WebSVN – Kolibri OS – Diff – /programs/develop/libraries/box_lib/trunk/tree_list.mac

 ; ìàêðîñ äëÿ ñèñòåìíîé áèáëèîòåêè box_lib.obj
 ; ýëåìåíò TreeList äëÿ Kolibri OS
-; ôàéë ïîñëåäíèé ðàç èçìåíÿëñÿ 2.12.2009 IgorA
+; ôàéë ïîñëåäíèé ðàç èçìåíÿëñÿ 8.12.2009 IgorA
 ; íà êîä ïðèìåíåíà GPL2 ëèöåíçèÿ
 tl_capt_cy    equ  word[edi+74] ;âûñîòà ïîäïèñè
 tl_info_capt_offs equ word[edi+76] ;ñäâèã äëÿ íà÷àëà òåêñòà (ïîäïèñè óçëà)
 tl_info_capt_len equ word[edi+78] ;äëèííà òåêñòà ïîäïèñè óçëà (åñëè = 0 òî äî êîíöà ñòðóêòóðû)
 tl_el_focus   equ dword[edi+80] ;óêàçàòåëü íà ñòðóêòóðó ýëåìåíòà â ôîêóñå
 tl_p_scrol    equ dword[edi+84] ;óêàçàòåëü íà ñòðóêòóðó ñêðîëëèíãà
-tl_sb_draw    equ dword[edi+88] ;óêàçàòåëü íà ôóíêöèþ ïåðåðèñîâûâàþùóþ ñêðîëëèíã
 tl_on_press   equ dword[edi+96] ;óêàçàòåëü íà ôóíêöèþ, êîòîðàÿ âûçûâàåòñÿ ïðè íàæàòèè Enter
 ;êîíñòàíòû ñòèëÿ
 tl_key_no_edit   equ   1b ;ýëåìåíò íåëüçÿ ðåäàêòèðîâàòü íà êëàâèàòóðå (èçìåíÿòü óðîâíè, óäàëÿòü)
 ;ls_tim		dd ? ;+34 âðåìÿ ïîñëåäíåãî ñîõðàíåíèÿ
 ;on_activate dd ? ;+92 óêàçàòåëü íà ôóíêöèþ ïðè àêòèâèðîâàíèè óçëà
 struc tree_list info_size,info_max_count,style, img_cx,img_cy,\
     col_bkg,col_zag,col_txt, box_l,box_t,box_w,box_h, capt_cy,info_capt_offs,\
-    info_capt_len,el_focus, p_scrol,p_sb_draw,on_press {
+    info_capt_len,el_focus, p_scrol,on_press {
   .data_info	dd 0
   .info_size	dw info_size
   .info_max_count dd info_max_count
   .style	    dd style
   .capt_cy	   dw capt_cy
   .info_capt_offs dw info_capt_offs
   .info_capt_len dw info_capt_len
   .el_focus dd el_focus
   .p_scrol  dd p_scrol
-  .p_sb_draw dd p_sb_draw
+  rb 4
   .on_activate dd 0
   .on_press dd on_press
+}
     mov ebx,tl_box_left
     add ebx,tl_box_width
     shl ebx,16
     cmp eax,ebx ;ïðàâàÿ ãðàíèöà îêíà
-    jg .no_in_wnd
+    jg .test_scroll ;.no_in_wnd
     mov ebx,tl_box_top
     add ebx,tl_box_height
       mov esi,tl_box_top
       add esi,tl_box_height ;esi = coord bottom border
       call tl_draw_cursor ;ïåðåðèñîâêà êóðñîðà
       call tl_draw_caption_cur_pos
       jmp .no_draw
+;--- mouse event for children scrollbar ----------------------------------------
+.test_scroll:
+  mov edx,tl_p_scrol
+  cmp edx,0
+  je .no_in_wnd ;ïîëüçîâàòåëü íå ñîçäàë äî÷åðíåãî ñêðîëëèíãà
+    shr ebx,16
+    add bx,word[edx] ;+0 .size_x
+    shl ebx,16
+    cmp eax,ebx ;ïðàâàÿ ãðàíèöà îêíà
+    jg .no_in_wnd
+    mov eax,dword[edx+16] ;+16 .max_area
+    cmp eax,dword[edx+20] ;+20 .cur_area
+    jbe .no_in_wnd ;âñå óçëû ïîïàäàþò â îêíî ñêðîëëèíãà
+      push dword edx
+      call scroll_bar_vertical.mouse ;scrollbar_ver_mouse
+      cmp dword[edx+40],0 ;+40 .redraw
+      je  @f
+        mov dword[edx+40],0 ;+40 .redraw
+        push dword edi
+        call tl_draw ;ïðîèçîøëè èçìåíåíèÿ ñêðîëëèíãà
+      @@:
+      cmp dword[edx+46],0 ;+46 .delta2
+      jne .no_draw ;ïîïàëè íà ñêðîëëèíã - íå ñíèìàåì ôîêóñ ñ TreeList
+;-------------------------------------------------------------------------------
     .no_in_wnd: ;íå ïîïàëè â îêíî - ïîòåðÿ ôîêóñà (ïðè óñëîâèè ÷òî ôîêóñ áûë íà äàííîì ýåëåìåíòå)
       mov ebx,tl_el_focus
       cmp dword[ebx],edi
       jne .no_draw ;ýëåìåíò íå â ôîêóñå
         mov dword[ebx],0 ;reset focus
+        mov esi,tl_box_top
+        add esi,tl_box_height ;esi = coord bottom border
+        call tl_draw_cursor ;ðèñóåì êóðñîð ñ ïîòåðÿíûì ôîêóñîì
     .no_draw:
     pop esi edi edx ecx ebx eax
   pop ebp
     mov edx,tl_col_bkg
     int 0x40 ;draw window client rect
     cmp tl_capt_cy,9 ;9 - minimum caption height
+    jl @f
+    mov ebx,edi ;calculate cursor position
+    mov eax,tl_cur_pos
+    inc eax
+    lea edi,[txt_capt_cur]
+    add edi,7
+    call tl_convert_to_str
+    mov edi,ebx
+    mov eax,tl_tim_undo
+    lea edi,[txt_capt_otm]
+    add edi,7
+    call tl_convert_to_str
+    mov edi,ebx ;restore edi
     jl @f
     mov eax,4 ;draw text captions
     mov ebx,tl_box_left
     shl ebx,16
     add ebx,5*65536+3
     shl ebx,16
     add ebx,100*65536+3
     add ebx,tl_box_top
     lea edx,[txt_capt_otm]
     int 0x40
-    mov eax,47 ;draw
-    mov ebx,0x40000
-    mov ecx,tl_cur_pos
-  inc ecx
-    mov edx,tl_box_left
-    shl edx,16
-    add edx,50*65536+3
-    add edx,tl_box_top
-    mov esi,tl_col_txt
-    int 0x40
-    mov ecx,tl_tim_undo
-    mov edx,tl_box_left
-    shl edx,16
-    add edx,140*65536+3
-    add edx,tl_box_top
-    mov esi,tl_col_txt
-    int 0x40
     @@:
-;---debug---
-;mov ecx,0
-;@@:
-;call DebugSymb
-;inc ecx
-;cmp ecx,10
-;jge @f
-;jmp @b
-;@@:
-;---debug---
     ;cycle to nodes
     xor eax,eax
     mov edx,tl_data_nodes
     mov ecx,edx
 ; ecx = pointer to 1 node struct
 ; edx = pointer to some node struct
 ; edi = pointer to 'TreeList' struct
 align 4
 tl_iterat_perv:
-  push bx
+  push eax
-  mov bl,0x7f
-  cmp byte[edx+3],1
-  jne @f
-    mov bl,byte[edx+2]
+;  mov bl,byte[edx+2]
-  @@:
   cmp tl_tim_undo,0
-  je .else
+  je .beg1
   push eax
   .beg0:
     call tl_move_perv
     cmp edx,ecx
     jle @f
     call tl_node_not_vis ;ïðîïóñê óäàëåííûõ è îòìåíåííûõ
-    cmp al,1
-    je .beg0
-    cmp bl,byte[edx+2] ;ïðîïóñê çàêðûòûõ
-    jl .beg0
-  @@:
-  pop eax
-  pop bx
+    cmp al,1
-  ret
+    je .beg0
-  .else:
+  .beg1:
     call tl_move_perv
     cmp edx,ecx
+    jle @f
+    cmp dword[edx+16],0 ;td = 'time delete' -> ïðîïóñê óäàëåííûõ
+    jne .beg1
+  @@:
+    call tl_move_max_clo_par
+  pop eax
+  ret
+;input:
+; edx = pointer to some node struct
+; edi = pointer to 'TreeList' struct
+;output:
+; edx = pointer closed parent node with maximum level
+align 4
+tl_move_max_clo_par: ;íàõîäèò ðîäèòåëüñêèé çàêðûòûé óçåë ìàêñèìàëüíîãî óðîâíÿ
+  push eax ebx
+  mov eax,edx
-    jle .endif
+  xor ebx,ebx
+  .beg:
+    call tl_move_par
+    cmp byte[edx+3],1 ;ðîäèòåëüñêèé óçåë çàêðûò ?
+    jne @f
-    cmp dword[edx+16],0 ;td = 'time delete' -> ïðîïóñê óäàëåííûõ
+      mov eax,edx
+    @@:
+    cmp ebx,edx
-    jne .else
+    je .end_f
+      mov ebx,edx
-    cmp bl,byte[edx+2] ;ïðîïóñê çàêðûòûõ
+    jmp .beg
-    jl .else
+  .end_f:
-  .endif:
+  mov edx,eax
-  pop bx
+  pop ebx eax
   ret
   imul edx,sizeof.TreeList
   add edx,tl_data_nodes
   ret
+;input:
+; ecx =
+; edx = pointer to some node struct
+; edi = pointer to 'TreeList' struct
+;output:
+; edx = pointer to parent node struct
+align 4
+tl_move_par: ;ïåðåäâèãàåìñÿ íà ðîäèòåëüñêèé óçåë, åñëè òàêîãî íåò, òî îñòàâëÿåì ñòàðîå çíà÷åíèå óêàçàòåëÿ
+ cmp byte[edx+2],0
+ je .end_f ;óçåë 0-ãî óðîâíÿ íå ìîæåò áûòü äî÷åðíèì
+ push eax ebx esi
+ mov esi,edx ;copy node pointer (edx)
+ mov bl,byte[edx+2]
+ @@:
+   call tl_move_perv
+   cmp edx,ecx
+   jle @f ;âñå âûøå ñòîÿùèå óçëû íå ðîäèòåëüñêèå
+   call tl_node_not_vis ;ïðîïóñê óäàëåííûõ è îòìåíåííûõ
+   cmp al,1
+   je @b
+   cmp byte[edx+2],bl
+   jl .end_0 ;óäà÷íî íàøëè ðîäèòåëüñêèé óçåë
+   jmp @b
+ @@:
+   mov esi,ebx ;restore node pointer
+ .end_0:
+ pop esi ebx eax
+ .end_f:
+ ret
 ;input:
 ; edx = pointer to symbol struct
 ; edi = pointer to 'TreeList' struct
 ;output:
 ; al = 1 if sumbol not visible
       int 0x40 ;ðèñóåì ïðîñòîé ïðÿìîóãîëüíèê, ò.ê. íåò ñèñòåìíûõ èêîíîê
       jmp .end_f
     @@:
       mov ebx,tl_data_img_sys
       imul ax,tl_img_cy
-      mov cx,tl_img_cx
-      shl ecx,16
-      mov cx,tl_img_cy
       mov edx,tl_box_left
       shl edx,16
       mov dx,ax
       add edx,tl_box_top
       add dx,tl_capt_cy
+      mov ecx,tl_el_focus ;ïðîâåðÿåì â ôîêóñå ýëåìåíò èëè íåò
+      cmp dword[ecx],edi
+      je .focus
+        xor eax,eax
+        xor ecx,ecx
+        mov cx,tl_img_cx
+        mov ax,tl_img_cy
+        imul eax,ecx
+        imul eax,4*3 ;4=icon index 3=rgb
+        add ebx,eax
+      .focus:
+      mov cx,tl_img_cx
+      shl ecx,16
+      mov cx,tl_img_cy
       ;crop image if on the border
       cmp si,dx ;åñëè êóðñîð âíèçó è åãî âîîáùå íå âèäíî
       jl .end_f
     call tl_draw_node_icon_opn_clo
     bt tl_style,1
     jae .end_draw
-      call tl_draw_node_icon_par_lin
+      call tl_draw_node_icon_par_lin
       call tl_draw_node_icon_par_lin_up
     .end_draw:
   pop esi edx ecx ebx eax
   ret
     @@:
   pop esi edx ecx ebx eax
   ret
+;input:
-;input:
+; al = óðîâåíü ýëåìåíòà
 ;...
 align 4
 tl_draw_node_icon_par_lin:
   cmp byte[edx+3],1
 	mov edx,tl_col_txt
 	mov eax,13
 	int 0x40 ;draw minus rect, if not system icons
 	jmp @f
       .draw_img_s:
-      mov ecx,esi ;load ecx
+;      mov ecx,esi ;load ecx
       mov edx,ebx
       ror ecx,16
       mov dx,cx
       mov cx,bx
       ror ecx,16
     @@:
   pop esi edx ecx ebx eax
   .close:
   ret
+;icon:
+; al = óðîâåíü ýëåìåíòà
+;...
+align 4
+tl_draw_node_icon_par_lin_up:
+  push eax ebx ecx edx esi
+    cmp tl_data_img_sys,0 ;if not image
+    je @f
+    cmp al,0
+    je @f
+;---------
+    xor esi,esi ;â si áóäåì íàñ÷èòûâàòü êîë-âî èêîíîê, íóæíûõ äëÿ ïðîðèñîâêè ëèíèè
+    .cycle0:
+      call tl_iterat_perv ;get perv visible item
+      cmp edx,ecx
+      jle .cycle1 ;if begin of list
+      cmp byte[edx+2],al
+      jle .cycle1 ;óðîâåíü âåðõíåãî ýëåìåíòà íå òðåáóåò ïðîðèñîâêè
+      inc si
+      jmp .cycle0
+    .cycle1:
+      cmp si,0 ;si = êîë-âî èêîíîê ëèíèè êîòîðûå íóæíî íàðèñîâàòü ñâåðõó
+      je @f
+      shl esi,16
+      pop ecx ;esi->ecx
+      push ecx ;save esi
+      ror ebx,16
+      sub bx,tl_img_cx
+      ror ebx,16
+      mov edx,ebx
+      ror ecx,16
+      mov dx,cx
+      mov cx,bx
+      ror ecx,16
+      mov cx,tl_img_cy ;restore size y (if crop)
+      mov ebx,3 ;rgb = 3 bytes
+      imul bx,tl_img_cx
+      imul bx,tl_img_cy
+      ;imul ebx,1
+      add ebx,tl_data_img_sys
+      add esi,tl_box_top
+      add si,tl_capt_cy ;si = âåðõíÿÿ ãðàíèöà îêíà
+      mov eax,7
+;---------
+      .cycle2:
+      sub dx,tl_img_cy ;ïîäíèìàåì êîîðäèíàòó y ââåðõ
+      cmp dx,si
+      jl @f
+;        int 0x40 ;draw line icon
+        cmp esi,0x10000
+        jl @f
+        int 0x40 ;draw line icon
+        sub esi,0x10000 ;óìåíüøàåì ñ÷åò÷èê èêîíîê
+      jmp .cycle2
+    @@:
+  pop esi edx ecx ebx eax
+  ret
 ;input:
 ; edi = pointer to TreeInfo struct
 ;output:
 ; eax = rows
     mov edx,tl_p_scrol
     mov dword[edx+20],eax ;+20 .cur_area
     mov dword[edx+16],ecx ;+16 .max_area
-    push dword edx ;pointer to scroll struct
-    mov edx,tl_sb_draw ;pointer to scroll draw function
+    push dword edx ;pointer to scroll struct
-    call dword[edx]
+    call scroll_bar_vertical.draw
   @@:
   pop edx ecx eax
 ret
     je @f
       mov edi,tl_p_scrol
       mov dword[edi+24],0
       push dword edi
       mov edi,dword[ebp+8]
-      mov edi,tl_sb_draw
-      call dword[edi]
+      call scroll_bar_vertical.draw
     @@:
   pop edi
   pop ebp
     add eax,dword[ebx+24] ;.position +24
     cmp tl_cur_pos,eax
     jl @f
       inc dword[ebx+24] ;.position +24
       push dword ebx
-      mov edi,tl_sb_draw ;ïåðåðèñîâêà ñêðîëëèíãà
-      call dword[edi]
+      call scroll_bar_vertical.draw
       mov edi,dword[ebp+8] ;restore edi
       push dword edi
       call tl_draw ;ïîëíàÿ ïåðåðèñîâêà îêíà
     cmp edi,dword[eax+24] ;åñëè êóðñîð óøåë âûøå ñêðîëëèíãà, òîãäà îïóñêàåì ñêðîëëèíã
     jge @f
       dec dword[eax+24]
       push dword eax
       mov edi,dword[ebp+8]
-      mov edi,tl_sb_draw ;.redraw
+      call scroll_bar_vertical.draw
-      call dword[edi]
       mov edi,dword[ebp+8] ;restore edi
       push dword edi
       call tl_draw ;ïîëíàÿ ïåðåðèñîâêà îêíà
       jmp .no_redraw
     @@:
       .scroll:
       ;ïåðåðèñîâêè îêíà è ñêðîëëèíãà
       push dword edi
       call tl_draw ;draw window
       push dword esi
-      mov eax,dword[ebp+8]
-      mov eax,tl_sb_draw ;.redraw
+      call scroll_bar_vertical.draw
-      call dword[eax]
     .no_redraw:
   pop esi edi eax
   pop ebp
   ret 4
       ;ïåðåðèñîâêè îêíà è ñêðîëëèíãà
       push dword edi
       call tl_draw ;draw window
-      push dword esi
-      mov eax,dword[ebp+8]
+      push dword esi
-      mov eax,tl_sb_draw ;.redraw
-      call dword[eax]
+      call scroll_bar_vertical.draw
     .no_redraw:
   pop esi edi ecx ebx eax
   pop ebp
 align 4
 tl_draw_caption_cur_pos:
   cmp tl_capt_cy,9 ;9 - minimum caption height
   jl @f
   push eax ebx ecx edx edi esi
+    mov ebx,edi ;calculate cursor position
-    mov eax,47 ;draw
+    mov eax,tl_cur_pos
-    mov ebx,0x40000
+    inc eax
-    mov ecx,tl_cur_pos
+    lea edi,[txt_capt_cur]
-    inc ecx
+    add edi,7
+    call tl_convert_to_str
+    mov edi,ebx
+    mov eax,4 ;draw text captions
-    mov edx,tl_box_left
+    mov ebx,tl_box_left
-    shl edx,16
+    shl ebx,16
-    add edx,50*65536+3
+    add ebx,5*65536+3
-    add edx,tl_box_top
+    add ebx,tl_box_top
-    mov esi,tl_col_txt
+    mov ecx,tl_col_txt
-    or  esi,0x40000000 ;çàêðàøèâàòü ôîí öâåòîì edi
+    or	ecx,0xc0000000 ;0x40000000 çàêðàøèâàòü ôîí öâåòîì edi
+    lea edx,[txt_capt_cur]
     mov edi,tl_col_zag
     int 0x40
   pop esi edi edx ecx ebx eax
   @@:
   ret
     add ecx,esi  ;äîáàâëÿåì óêàçàòåëü íà íà÷àëî ïàìÿòè (ñ ó÷åòîì ðàíåå çàïèñàííûõ ñòðóêòóð)
     sub ecx,dword[ebp+12] ;îòíèìàåì óêàçàòåëü íà íà÷àëî ïàìÿòè (áåç ðàíåå çàïèñàííûõ ñòðóêòóð)
     cmp ecx,dword[ebp+8]  ;ecx = element memory size
     jg .err_mem_size
-    ;save tree params
+    ;save tree params (in header)
     mov dword[esi],0x65657274 ;0x65657274 = 'tree'
     mov word[esi+4],bx
-    mov dword[esi+6],eax ;element count
-    add esi,10
+    mov dword[esi+6],eax ;element count
-    mov eax,tl_style
-    mov dword[esi],eax
+    mov eax,tl_style
-    add esi,4
+    mov dword[esi+10],eax
     mov eax,tl_cur_pos
-    mov dword[esi],eax
+    mov eax,tl_cur_pos
-    add esi,4
     mov dword[esi+14],eax
-    mov ax,tl_info_capt_offs
+    mov ax,tl_info_capt_offs
+    mov word[esi+18],ax
+    mov ax,tl_info_capt_len
-    mov word[esi],ax
+    mov word[esi+20],ax
+    ;copy scroll position
-    add esi,2
+    mov edx,tl_p_scrol
     mov eax,dword[edx+24] ;+24 .position
-    mov ax,tl_info_capt_len
+    mov dword[esi+22],eax
     mov word[esi],ax
 add esi,4
 mov eax,dword[edx] ;eax = (type; lev; clo)
 mov dword[esi],eax
 add esi,4
-;push dword edi
-;call tl_node_get_data
 ;pop eax
 push dword edi
 push dword edx
 call tl_node_poi_get_data
         or dword[ebp+20],tl_err_load_info_size
       @@:
       mov ecx,dword[esi+6] ;count nodes
       cmp ecx,1
       jl .end_f
+      mov edx,esi ;save header pointer
       add esi,tl_save_load_heder_size
       @@:
 ;load node params
 call tl_cur_next
 ;...
 add esi,ebx
         loop @b
+      bt word[ebp+18],1 ;load in add mode
+      jc .no_tree
+        mov eax,dword[edx+14] ;set cursor pos
+        mov tl_cur_pos,eax
+        mov eax,dword[edx+22] ;set scroll pos
+        mov ebx,tl_p_scrol
+        cmp ebx,0
+        je .end_f
+          mov dword[ebx+24],eax ;+24 .position
+          push dword ebx ;pointer to scroll struct
+          call scroll_bar_vertical.draw
       jmp .end_f
     .no_tree:
       mov dword[ebp+20],tl_err_load_caption
     .end_f:
 tl_key_ascii db 13,32,178,177,176,179,182,184,183
 tl_key_scan  db 28,57, 72, 80, 75, 77, 83, 73, 81
-txt_capt_cur db 'âà®ª ',0
+txt_capt_cur db 'âà®ª       ',0
+txt_capt_otm db 'â¬¥ë      ',0
+;ýòîò êîä íå ìîé, îí ïðåîáðàçóåò ÷èñëî â ñòðîêó
+;input:
+; eax = value
+; edi = string buffer
+;output:
+; edi =
+align 4
+tl_convert_to_str:
+  pushad
+    mov dword[edi+1],0x20202020
+    call .str
+  popad
+  ret
+align 4
+.str:
+  mov ecx,0x0a ;çàäàåòñÿ ñèñòåìà ñ÷èñëåíèÿ èçìåíÿþòñÿ ðåãèñòðû ebx,eax,ecx,edx âõîäíûå ïàðàìåòðû eax - ÷èñëî
+    ;ïðåðåâîä ÷èñëà â ASCII ñòðîêó âçîäíûå äàííûå ecx=ñèñòåìà ñ÷èñëåíÿ edi àäðåñ êóäà çàïèñûâàòü, áóäåì ñòðîêó, ïðè÷åì êîíåö ïåðåìåííîé
+  cmp eax,ecx  ;ñðàâíèòü åñëè â eax ìåíüøå ÷åì â ecx òî ïåðåéòè íà @@-1 ò.å. íà pop eax
+  jb @f
+  xor edx,edx  ;î÷èñòèòü edx
+  div ecx      ;ðàçäåëèòü - îñòàòîê â edx
+  push edx     ;ïîëîæèòü â ñòåê
+  ;dec edi             ;ñìåùåíèå íåîáõîäèìîå äëÿ çàïèñè ñ êîíöà ñòðîêè
+  call .str;ïåðåéòè íà ñàìó ñåáÿ ò.å. âûçâàòü ñàìó ñåáÿ è òàê äî òîãî ìîìåíòà ïîêà â eax íå ñòàíåò ìåíüøå ÷åì â ecx
+  pop eax
+  @@: ;cmp al,10 ;ïðîâåðèòü íå ìåíüøå ëè çíà÷åíèå â al ÷åì 10 (äëÿ ñèñòåìû ñ÷èñëåíÿ 10 äàííàÿ êîìàíäà - ëèøíàÿ))
+  ;sbb al,$69  ;- ÷åñòíî äàííàÿ èíñòðóêöèÿ ìåíÿ çàñòàâëÿåò çàäóìàòüñÿ ò.å. ÿ íå çíàþ êàê ýòî ðàáîòàåò
+  ;das        ;ïîñëå äàííîé êîìàíäû êàê áû ïðîèñõîäèò óìåíüøåíèå al íà 66h  (â êíèãå íàïèñàíî äðóãîå)
+  or al,0x30  ;äàííàÿ êîìàíäà êîðî÷å  ÷åì äâå âûøå
+  stosb       ;çàïèñàòü ýëåìåíò èç ðåãèñòðà al â ÿ÷åêó ïàìÿòè es:edi
-txt_capt_otm db 'â¬¥ë',0
+  ret         ;âåðíóòüñÿ ÷åíü èíòåðåñíûé õîä ò.ê. ïîêà â ñòåêå õðàíèòüñÿ êîë-âî âûçîâîâ òî ñòîëüêî ðàç ìû è áóäåì âûçûâàòüñÿ
+}

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/box_lib/trunk/tree_list.mac @ 1328 – Rev 1303 → 1309