WebSVN – Kolibri OS – Diff – /programs/other/t_edit/t_work.inc

   next dd ? ;  +6 óêàçàòåëè
   tc dd ?   ; +10 âðåì. ñîçäàíèÿ
   td dd ?   ; +14 âðåì. óäàëåíèÿ
 ends
-ColColor dd 1
-ColWords dd 0
-CURSOR_COLOR dd 0x808080
-WND_CAPT_COLOR dd 0x80
-WND_WORK_COLOR dd 0x0
-WND_BORD_COLOR dd 0xd0d0d0
-SELECT_COLOR dd 0x208080
-CUR_TEXT_COLOR dd 0xff0000
-WND_TEXT_COLOR dd 0xffff00
-options_file dd 0
-options_file_end dd 0
-tex_colors dd 0
-tex_help_f1 dd 0
-FkPos: rd 256
-Col dd 0 ;óêàçàòåëü íà ñòðóêòóðû êëþ÷åâûõ ñëîâ TexColViv
-conv_tabl rb 128 ; òàáëèöà äëÿ êîíâåðòèðîâàíèÿ scan-êîäà â ascii-êîä
-keyUpr dd 0
-err_sav db 0 ;îøèáêà ñîõðàíåíèÿ ôàéëà
-panel_id db 0 ;íîìåð îòêðûòîé ïàíåëè
-ch_tim	 dd ? ; êîëè÷åñòâî èçìåíåíèé â ôàéëå
-ls_tim	 dd ? ; âðåìÿ ïîñëåäíåãî ñîõðàíåíèÿ
-co_tim	 dd ? ; âðåìÿ ïîñëåäíåé öâåòîâîé ðàçìåòêè
-tim_Undo dd ? ; êîëè÷åñòâî îòìåíåííûõ äåéñòâèé
-gpOpt db 0
-mode_colored db 1 ; ðåæèì âûäåëåíèÿ ñëîâ öâåòîì (0-âûêë. 1-âêë.)
-key_new db 0 ; ñèìâîë, êîòîðûé áóäåò äîáàâëÿòñÿ ñ êëàâèàòóðû
-tex	dd 0 ;text memory pointer
-tex_1	dd 0 ;text first symbol pointer
-tex_end dd 0 ;text end memory pointer
-curMod db 1
-cur_x dd 0
-cur_y dd 0
-invis db 0 ;ðåæèì ïîêàçà íåïå÷àòàåìûõ ñèìâîëîâ
-symbol_new_line db 20 ;ñèìâîë çàâåðøåíèÿ ñòðîêè
-help_id dd -1  ;èäåíòèôèêàòîð äëÿ ñïðàâêè
-hed db 'TextEditor 15.04.10',0 ;ïîäïèñü îêíà
+hed db 'TextEditor 22.04.10',0 ;ïîäïèñü îêíà
 sc system_colors
 fn_icon db 'te_icon.bmp',0
+bmp_icon dd 0
-bmp_icon dd 0
+run_file_70 f70
 run_file_70 f70
 ;input:
-;input:
+; edi = pointer to tedit struct
 ; reg = index
 ;output:
+; reg = pointer to 'tex' struct
+macro ConvertIndexToPointer reg {
+  imul reg,sizeof.symbol
+  add reg,ted_tex
+}
+align 4
+proc ted_init, edit:dword
+  push eax ecx edi
+  mov edi,dword[edit]
+  mov ecx,sizeof.symbol*maxChars
+  call mem_Alloc ;âûäåëÿåì ïàìÿòü
+  mov ted_tex,eax
+  mov ted_tex_1,eax
+  add ted_tex_1,sizeof.symbol
+  mov ted_tex_end,eax
+  add ted_tex_end,sizeof.symbol*maxChars
+  stdcall ted_clear, edi,1
+;-------------------------------------------------
+  mov ecx,maxColWords*sizeof.TexColViv+40
+  ;add ecx,40
+  call mem_Alloc
+  mov ted_syntax_file,eax
+  mov ted_syntax_file_end,eax
+  add ted_syntax_file_end,ecx
+  pop edi ecx eax
+  ret
+endp
+align 4
+proc ted_delete, edit:dword
+  push ecx edi
+  mov edi,dword[edit]
+  mov ecx,ted_tex
+  call mem_Free
+  mov ecx,ted_syntax_file
+  call mem_Free
+  pop edi ecx
+  ret
+endp
+;input:
+; eax = key kodes
+; ebx = key control
+align 4
+proc ted_key, edit:dword, table:dword
+  pushad
+  mov edi,dword[edit]
+  cmp ah,KEY_F1 ;[F1]
+  jne @f
+    stdcall ted_show_help_f1,edi
+    jmp .end_key_fun
+  @@:
+  cmp ah,KEY_F3 ;[F3]
+  jne @f
+    stdcall but_FindText,edi
+    jmp .end_key_fun
+  @@:
+  test ebx,KM_CTRL ;Ctrl+...
+  jz .key_Ctrl
+    cmp ah,24 ;Ctrl+O
+    jne @f
+      call but_OpenFile
+    @@:
+    cmp ah,33 ;Ctrl+F
+    jne @f
+    cmp ted_panel_id,TE_PANEL_FIND
+    je @f
+      stdcall but_find,edi
+    @@:
+    cmp ah,44 ;Ctrl+Z
+	jne @f
+      stdcall ted_but_undo,edi
+	@@:
+    cmp ah,46 ;Ctrl+C
+    jne @f
+      stdcall ted_but_copy,edi
+    @@:
+    cmp ah,47 ;Ctrl+V
+    jne @f
+      stdcall ted_but_paste,edi
+    @@:
+    cmp ah,49 ;Ctrl+N
+    jne @f
+      call but_NewFile
+    @@:
+    cmp ah,199 ;Ctrl+Home
+    jne @f
+      call but_CtrlHome
+    @@:
+    ;jmp .end_key_fun
+  .key_Ctrl:
+  test ebx,KM_SHIFT ;Shift+...
+  jz .key_Shift
+    cmp ah,72 ;Shift+Up
+    jne @f
+      stdcall ted_sel_key_up,edi
+    @@:
+    cmp ah,75 ;Shift+Left
+    jne @f
+      stdcall ted_sel_key_left,edi
+    @@:
+    cmp ah,77 ;Shift+Right
+    jne @f
+      stdcall ted_sel_key_right,edi
+    @@:
+    cmp ah,80 ;Shift+Down
+    jne @f
+      stdcall ted_sel_key_down,edi
+    @@:
+    ;mov ted_drag_k,1 ;íà÷èíàåì âûäåëåíèå îò êëàâèàòóðû
+    jmp .key_MoveCur
+  .key_Shift:
+;-------------------------------------------------
+  cmp ah,72 ;178 ;Up
+  jne @f
+    stdcall draw_cursor_sumb,edi
+    call CurMoveUp
+    cmp dl,8
+    jne .no_red_0
+      call OnInitialUpdate
+      stdcall draw_main_win,edi
+      jmp @f
+    .no_red_0:
+    stdcall draw_main_cursor,edi
+    mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  @@:
+  cmp ah,80 ;177 ;Down
+  jne @f
+    stdcall draw_cursor_sumb,edi
+    call CurMoveDown
+    cmp dl,8
+    jne .no_red_1
+      call OnInitialUpdate
+      stdcall draw_main_win,edi
+      jmp @f
+    .no_red_1:
+    stdcall draw_main_cursor,edi
+    mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  @@:
+  cmp ah,75 ;176 ;Left
+  jne @f
+    stdcall draw_cursor_sumb,edi
+    call CurMoveLeft
+    cmp dl,8
+    jne .no_red_2
+      call OnInitialUpdate
+      stdcall draw_main_win,edi
+      jmp @f
+    .no_red_2:
+    stdcall draw_main_cursor,edi
+    mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  @@:
+  cmp ah,77 ;179 ;Right
+  jne @f
+    stdcall draw_cursor_sumb,edi
+    call CurMoveRight
+    cmp dl,8
+    jne .no_red_3
+      call OnInitialUpdate
+      stdcall draw_main_win,edi
+      jmp @f
+    .no_red_3:
+    stdcall draw_main_cursor,edi
+    mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  @@:
+  cmp ah,71 ;180 ;Home
+  jne @f
+    stdcall draw_cursor_sumb,edi
+    call CurMoveX_FirstChar
+    cmp dl,8
+    jne .no_red_4
+      call OnInitialUpdate
+      stdcall draw_main_win,edi
+      jmp @f
+    .no_red_4:
+    stdcall draw_main_cursor,edi
+    mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  @@:
+  cmp ah,79 ;181 ;End
+  jne @f
+    stdcall draw_cursor_sumb,edi
+    call CurMoveX_LastChar
+    cmp dl,8
+    jne .no_red_5
+      call OnInitialUpdate
+      stdcall draw_main_win,edi
+      jmp @f
+    .no_red_5:
+    stdcall draw_main_cursor,edi
+    mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  @@:
+  cmp ah,73 ;184 ;PageUp
+  jne @f
+    call CurMovePageUp
+    cmp dl,0
+    je @f
+    call OnInitialUpdate
+    stdcall draw_main_win,edi
+  @@:
+  cmp ah,81 ;183 ;PageDown
+  jne @f
+    call CurMovePageDown
+    cmp dl,0
+    je @f
+    call OnInitialUpdate
+    stdcall draw_main_win,edi
+    mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  @@:
+;-------------------------------------------------
+;    cmp ebx,0
+;    jne .end_key_fun
+  .key_MoveCur:
+  cmp ah,69 ;[Pause Break]
+  je .end_key_fun
+  cmp ah,120 ;[Fn]
+  je .end_key_fun
+  cmp ah,0x80 ;if key up
+  ja .end_key_fun
+  cmp dword[table],0
+  je @f
+    stdcall KeyConvertToASCII, dword[table]
+  @@:
+  ;mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  xor edx,edx
+  mov dl,ah
+  add edx,EvChar ;add char to text
+  cmp byte [edx],1
+  jne @f
+    mov ted_key_new,ah
+    stdcall ted_set_undo,edi
+    mov edx,ted_opt_ed_change_time+ted_opt_ed_move_cursor
+    stdcall SelTextDel,edx
+    cmp al,1
+    jne .del
+      mov edx,ted_opt_ed_move_cursor
+    .del:
+    cmp ted_cur_ins,1
+    je .no_ins_mod
+      stdcall TextDel,edi,ted_opt_ed_change_time
+	  mov edx,ted_opt_ed_move_cursor
+    .no_ins_mod:
+	mov ecx,edi
+	add ecx,ted_offs_key_new
+    stdcall ted_text_add,edi,ecx,1,edx ;äîáàâëÿåì ñèìâîë ââåäåííûé ñ êëàâèàòóðû
+    call draw_but_toolbar
+    cmp ted_key_new,13
+    jne .dr_m_win
+      stdcall draw_main_win,edi
+      jmp .dr_cur_l
+    .dr_m_win:
+      stdcall draw_cur_line,edi
+    .dr_cur_l:
+  @@:
+  cmp ah,8 ;[<-]
+  jne @f
+    stdcall ted_set_undo,edi
+    stdcall SelTextDel,ted_opt_ed_change_time
+    cmp al,1
+    je .del_one_b
+      stdcall TextDel,edi,ted_opt_ed_change_time+ted_opt_ed_move_cursor
+    .del_one_b:
+    call draw_but_toolbar
+    stdcall draw_main_win,edi
+    jmp .end_key_fun
+  @@:
+  cmp ah,182 ;Delete
+  jne @f
+    stdcall ted_set_undo,edi
+    stdcall SelTextDel,ted_opt_ed_change_time
+    cmp al,1
+    je .del_one_d
+      stdcall TextDel,edi,ted_opt_ed_change_time
+    .del_one_d:
+    call draw_but_toolbar
+    stdcall draw_main_win,edi
+    jmp .end_key_fun
+  @@:
+  cmp ah,185 ;Ins
+  jne @f
+    stdcall draw_cursor_sumb,edi
+    xor ted_cur_ins,1
+    stdcall draw_main_cursor,edi
-; reg = pointer to 'tex' struct
+  @@:
 macro ConvertIndexToPointer reg {
-  imul reg,sizeof.symbol
+  .end_key_fun:
+  popad
-  add reg,[tex]
+  ret
+endp
-}
+;output:
+; al = 1 - can save
 align 4
-;output:
+proc ted_can_save, edit:dword
-; al = 1 - can save
+  push ecx edi
-CanSave:
+  mov edi,dword[edit]
   push ecx
-  mov ecx,[ch_tim]
+  mov ecx,ted_tim_ch
-  sub ecx,[tim_Undo]
+  sub ecx,ted_tim_undo
   mov al,1
-  cmp [ls_tim],ecx
+  cmp ted_tim_ls,ecx
   jne @f
+    dec al
-    dec al
+  @@:
-  @@:
+  pop edi ecx
-  pop ecx
+  ret
-  ret
+endp
 ;output:
-;output:
+; al = 1 - selected
-; al = 1 - selected
+align 4
 proc IsSel, edit:dword
   push ebx edi
   mov edi,dword[edit]
   xor al,al
   cmp ted_drag_m,1
   je @f
     mov al,1
-    mov ebx,[sel.x0]
+    mov ebx,ted_sel_x0
-    cmp ebx,[sel.x1]
+    cmp ebx,ted_sel_x1
     jne @f
+    mov ebx,ted_sel_y0
-    mov ebx,[sel.y0]
+    cmp ebx,ted_sel_y1
-    cmp ebx,[sel.y1]
+    jne @f
+    xor al,al
-    jne @f
+  @@:
+  pop edi ebx
-    xor al,al
+  ret
-  @@:
+endp
   pop edi ebx
+align 4
+proc SelNormalize, edit:dword
-  ret
+  push ecx esi edi
-endp
+    mov edi,dword[edit]
+    mov esi,edi
-SelNormalize:
+    add esi,ted_offs_sel
-  push ecx esi edi
+    add edi,ted_offs_seln
-    mov esi,sel
+    mov ecx,sizeof.TexSelect
-    mov edi,seln
+    rep movsb
     mov ecx,sizeof.TexSelect
-    rep movsb
+	mov edi,dword[edit]
     jmp @f
     .swp_f:
-      mov ecx,[seln.x0]
+      mov ecx,ted_seln_x0
-      m2m [seln.x0],[seln.x1]
+      m2m ted_seln_x0,ted_seln_x1
-      mov [seln.x1],ecx
+      mov ted_seln_x1,ecx
-      mov ecx,[seln.y0]
+      mov ecx,ted_seln_y0
-      cmp ecx,[seln.y1] ;(sel.y0>sel.y1)
+      cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)
       jle .end_f
-      m2m [seln.y0],[seln.y1]
+      m2m ted_seln_y0,ted_seln_y1
-      mov [seln.y1],ecx
+      mov ted_seln_y1,ecx
     jmp .end_f
+    @@:
-    @@:
+    mov ecx,ted_seln_y0
+    cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)
+    jg .swp_f
-    mov ecx,[seln.y0]
+    cmp ecx,ted_seln_y1 ;(sel_y0==sel_y1)
-    cmp ecx,[seln.y1] ;(sel.y0>sel.y1)
+    jne .end_f
-    jg .swp_f
+      mov ecx,ted_seln_x0
+      cmp ecx,ted_seln_x1 ;(sel_x0>sel_x1)
-    cmp ecx,[seln.y1] ;(sel.y0==sel.y1)
+      jg .swp_f
     jne .end_f
-      mov ecx,[seln.x0]
+    .end_f:
-      cmp ecx,[seln.x1] ;(sel.x0>sel.x1)
+  pop edi esi ecx
-      jg .swp_f
+  ret
 endp
-    .end_f:
+align 4
-  pop edi esi ecx
+proc SelStart, edit:dword
-  ret
+  push ecx edi
+    mov edi,dword[edit]
+    mov ecx,ted_cur_x
-SelStart:
+    add ecx,[hScr.position]
-  push ecx
+    mov ted_sel_x0,ecx
-    mov ecx,[cur_x]
+    mov ted_sel_x1,ecx
     add ecx,[hScr.position]
-    mov [sel.x0],ecx
+    mov ecx,ted_cur_y
-    mov [sel.x1],ecx
+    add ecx,[wScr.position]
     mov ted_sel_y0,ecx
-    mov ecx,[cur_y]
+    mov ted_sel_y1,ecx
+  pop edi ecx
-    add ecx,[wScr.position]
+  ret
-    mov [sel.y0],ecx
+endp
-    mov [sel.y1],ecx
+align 4
+proc SelMove, edit:dword
+  push ecx edi
+    mov edi,dword[edit]
-  pop ecx
-  ret
+    mov ecx,ted_cur_x
+    add ecx,[hScr.position]
-align 4
+    mov ted_sel_x1,ecx
-SelMove:
-  push ecx
+    mov ecx,ted_cur_y
-    mov ecx,[cur_x]
+    add ecx,[wScr.position]
-    add ecx,[hScr.position]
+    mov ted_sel_y1,ecx
-    mov [sel.x1],ecx
+  pop edi ecx
   call draw_but_toolbar ;redraw toolbar (need to button Copy)
-    mov ecx,[cur_y]
+  ret
-    add ecx,[wScr.position]
+endp
-    mov [sel.y1],ecx
-  pop ecx
+;input:
-  call draw_but_toolbar ;redraw toolbar (need to button Copy)
+; cl_al_mem = 1 - clear all memory
-  ret
+align 4
+proc ted_clear, edit:dword, cl_al_mem:dword
-;input:
+  push edi
-; al = 1 - clear all memory
+  mov edi,dword[edit]
 Clear:
-  mov [cur_x],0
+  mov ted_cur_x,0
-  mov [cur_y],0
+  mov ted_cur_y,0
-  mov [ch_tim],0
+  mov ted_tim_ch,0
-  mov [ls_tim],0
+  mov ted_tim_ls,0
-  mov [co_tim],0
+  mov ted_tim_co,0
-  mov [tim_Undo],0
+  mov ted_tim_undo,0
-  mov [help_id],-1
+  mov ted_help_id,-1
   mov [wScr.position],0
+  mov [wScr.max_area],100
-  mov [wScr.max_area],100
+  mov [wScr.redraw],1
+  mov [hScr.position],0
-  mov [wScr.redraw],1
-  mov [hScr.position],0
+  mov [hScr.max_area],100
   mov [hScr.max_area],100
   mov ted_sel_x0,0
-  mov [sel.x0],0
+  mov ted_sel_y0,0
-  mov [sel.y0],0
+  mov ted_sel_x1,0
-  mov [sel.x1],0
+  mov ted_sel_y1,0
-  mov [sel.y1],0
+  cmp dword[cl_al_mem],0
+  je .exit
-  cmp al,0
-  je .exit
+  push ecx edx
   mov ecx,sizeof.symbol*maxChars
-  push ecx edx
+  mov edx,ted_tex
-  mov ecx,sizeof.symbol*maxChars
+  @@:
-  mov edx,[tex]
+    mov byte [edx],0
-  @@:
+    inc edx
-    mov byte [edx],0
+  loop @b
-    inc edx
+  mov edx,ted_tex
-  loop @b
+  mov dword [edx+6],1
-  mov edx,[tex]
+  pop edx ecx
-  mov dword [edx+6],1
-  pop edx ecx
+  .exit:
   pop edi
-  .exit:
+  ret
-  ret
+endp
+;--- out_reg = Col[ind_reg].Text[0] ---
-;--- out_reg = Col[keyw[ind_reg]].Text[0] ---
+macro ColToIndexOffset ind_reg,out_reg {
-macro ColToIndexOffset ind_reg,out_reg {
+  mov out_reg,ind_reg
-  mov out_reg,ind_reg
+  imul out_reg,sizeof.TexColViv
-  imul out_reg,sizeof.TexColViv
+  add out_reg,ted_key_words_data
-  add out_reg,[Col]
+}
-}
+align 4
+proc InitColText, edit:dword
-InitColText:
+  pushad
-  push eax ebx ecx esi edi
+  mov edi,dword[edit]
-  mov  ebx,dword[fn_col_option]
+  mov ebx,dword[fn_col_option]
       sub ax,48
     .zifra_0_9:
     add ax,48
-    mov byte[msgbox_3.err],al
-    push thread
-    push msgbox_3
+    mov byte[msgbox_3.err],al
-    call [mb_create] ;message: Can-t open color options file!
+    stdcall [mb_create],msgbox_3,thread ;message: Can-t open color options file!
     jmp .no_colors
+  @@:
-  @@:
+  mov eax,edi ;ñîõðàíÿåì çíà÷åíèå edi
-  mov esi,[options_file]
+  mov esi,ted_syntax_file
-  mov edi,ColColor
+  add edi,ted_offs_count_colors
+  mov ecx,9*4
-  mov ecx,9*4
+  rep movsb
-  rep movsb
+  mov edi,eax ;âîñòàíàâëèâàåì çíà÷åíèå edi
-  mov eax,[options_file]
+  mov eax,ted_syntax_file
   add eax,32
-  mov dword[tex_colors],eax
+  mov ted_text_colors,eax
-  mov eax,dword[ColColor] ;init: Col (offset to key words)
+  mov eax,ted_colors_text_count ;init: count_colors_text (offset to key words)
   add eax,8
   shl eax,2
-  add eax,[options_file]
+  add eax,ted_syntax_file
-  mov dword[Col],eax
+  mov ted_key_words_data,eax
-  mov ecx,dword[ColWords] ;init: FkPos (first key positions)
+  mov ecx,ted_key_words_count ;init: FkPos (first key positions)
   xor eax,eax
   @@:
-    ColToIndexOffset eax,edi
+    ColToIndexOffset eax,edx
     xor ebx,ebx
-    mov bl,byte[edi]
+    mov bl,byte[edx]
     shl bx,2
     mov esi,FkPos
     add esi,ebx
     cmp dword[esi],-1
     jne .no_ch_key
       mov dword[esi],eax
     .no_ch_key:
     inc eax
   loop @b
-  ;init: tex_help_f1
+  ;init: ted_help_text_f1
-  mov ecx,dword[ColWords]
+  mov ecx,ted_key_words_count
   imul ecx,sizeof.TexColViv
-  add ecx,dword[Col]
+  add ecx,ted_key_words_data
-  mov dword[tex_help_f1],ecx
+  mov ted_help_text_f1,ecx
+  .no_colors:
+  popad
-  .no_colors:
+  ret
-  pop edi esi ecx ebx eax
+endp
   ret
+;input:
-;input:
+; ebx = file size
-; ebx = file size
+; edi = pointer to tedit struct
-OpenFile:
+align 4
-  push eax ;destination
+proc OpenFile
-  push ecx ;for cycle
+  push eax ;destination
-  push edx ;source
+  push ecx ;for cycle
   push edx ;source
     xor al,al
-    call Clear
+    stdcall ted_clear,edi,0 ;÷èñòèì íå âñþ ïàìÿòü, ïîòîìó ÷òî íèæå áóäåì åå çàïîëíÿòü íîâûìè äàíûìè
     mov eax,ebx
     @@:
   pop ebx
     add eax,2
     mov dword [eax],0 ; first sumbol 'perv=0'
-    mov edx,[tex]
+    mov edx,ted_tex
     ; begining sumbol 'perv=0' 'next=2'
     mov dword [edx+2],0
     mov dword [edx+6],2
     inc dword [edx+2]
     mov edx,ebx
     inc edx ;2 = rezerv sumbols
     imul edx,sizeof.symbol
-    add edx,[tex]
+    add edx,ted_tex
     mov dword [edx+6],1 ; last sumbol 'next=1'
     @@: ;clear memory, need if before was open big file
       add edx,sizeof.symbol
-      cmp edx,[tex_end]
+      cmp edx,ted_tex_end
       jge @f
 	mov dword[edx+10],0
 	mov dword[edx+14],0
       mov eax,100
     @@:
     mov [wScr.max_area],eax
 ;    mov [wScr.redraw],1
   pop edx ecx eax
   call CmColored
+  call draw_but_toolbar
+  stdcall draw_main_win,edi
   ret
+endp
 ;input:
+; edx = pointer to symbol struct
-; edx = pointer to symbol struct
+; edi = pointer to tedit struct
 ;output:
+; edx = pointer to 'perv' visible symbol struct
-; edx = pointer to 'perv' visible symbol struct
+align 4
 IteratPerv:
-  cmp [tim_Undo],0
+  cmp ted_tim_undo,0
   je .else
   push ebx
   @@:
     call GetTexPervPos
-    cmp edx,[tex]
+    cmp edx,ted_tex
     je @f
     call SymbNotVis
     cmp bl,1
     je @b
   @@:
   pop ebx
   ret
   .else:
     call GetTexPervPos
-    cmp edx,[tex]
+    cmp edx,ted_tex
     je .endif
     cmp dword [edx+14],0
     jne .else
     cmp byte[edx],10 ;ïðîïóñê ñèìâîëà ñ êîäîì 10
     je .else
   ret
+;input:
-;input:
+; edx = pointer to symbol struct
-; edx = pointer to symbol struct
+; edi = pointer to tedit struct
+;output:
-;output:
+; edx = pointer to 'next' visible symbol struct
-; edx = pointer to 'next' visible symbol struct
+align 4
 IteratNext:
-  cmp [tim_Undo],0
+  cmp ted_tim_undo,0
   je .else
   push ebx
   @@:
     call GetTexNextPos
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     call SymbNotVis
     cmp bl,1
   @@:
   pop ebx
   ret
   .else:
     call GetTexNextPos
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle .endif
     cmp dword [edx+14],0
     jne .else
     cmp byte[edx],10 ;ïðîïóñê ñèìâîëà ñ êîäîì 10
     je .else
   .endif:
   ret
-;input:
-; edx = pointer to symbol struct
+;input:
+; bl = symbol end of select
+; edx = pointer to symbol struct
+; edi = pointer to tedit struct
-; bl = symbol end of select
+align 4
 ItPoNextUc:
   @@:
     cmp bl,byte[edx]
     je @f
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     call IteratNext
     jmp @b
   @@:
   call IteratNext
   ret
+;input:
+; edx = pointer to symbol struct
-;input:
+; edi = pointer to tedit struct
-; edx = pointer to symbol struct
+align 4
 ItPervColorTag:
   @@:
     cmp byte[edx+1],0
     jne @f
     call IteratPerv
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     jmp @b
   @@:
   ret
+;input:
 ; edx = pointer to symbol struct
-;input:
+; edi = pointer to tedit struct
-; edx = pointer to symbol struct
+align 4
 ItNextColorTag:
   @@:
     call IteratNext
     cmp byte[edx+1],0
     jne @f
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     jmp @b
   @@:
   ;call IteratNext
+  ret
   ret
 ;input:
-;input:
+; edx = pointer to symbol struct
+; edi = pointer to tedit struct
-; edx = pointer to symbol struct
+;output:
-;output:
+; bl = 1 if sumbol not visible
-; bl = 1 if sumbol not visible
+; (tex[i].td+ted_tim_undo<=ted_tim_ch && tex[i].td) || (tex[i].tc>ted_tim_ch-ted_tim_undo)
-; (tex[i].td+tim_Undo<=ch_tim && tex[i].td) || (tex[i].tc>ch_tim-tim_Undo)
+align 4
 SymbNotVis:
   push eax
   xor bl,bl
   cmp dword [edx+14],0
   je @f
   mov eax,[edx+14] ;eax=tex[i].td
-  add eax,[tim_Undo]
+  add eax,ted_tim_undo
-  cmp eax,[ch_tim]
+  cmp eax,ted_tim_ch
   jg @f
     mov bl,1
     pop eax
     ret
   @@:
-  mov eax,[ch_tim]
+  mov eax,ted_tim_ch
-  sub eax,[tim_Undo]
+  sub eax,ted_tim_undo
   cmp [edx+10],eax
   jle @f
     or bl,1
   @@:
   pop eax
+  ret
-  ret
+;input:
+; text:dword - pointer to text string
+; add_opt:dword - options
+align 4
+proc ted_text_add, edit:dword, text:dword, t_len:dword, add_opt:dword
-;input:
+  locals
-; bh = 1 - move cursor after text add
+    new_spc dd ? ;count new spaces
-; bl = 1 - change time when text add
+	new_lin dd ? ;count new lines
-; esi = add text len
+  endl
-; edi = pointer to text string
+;èñïîëüçîâàíèå ðåãèñòðîâ âíóòðè ôóíêöèè:
-TextAdd:
+;eax - ïîçèöèÿ äëÿ âñòàâêè òåêñòà
-  push ebp
+;ebx - äëÿ âðåìåííûõ íóæä, äëèííà âñòàâëÿåìîãî òåêñòà
-  mov ebp,esp
+;ecx - äëÿ âðåìåííûõ íóæä
-  sub esp,4*2
+;edx - óêàçàòåëü íà ñòðóêòóðó ñèìâîëà
+  pushad
-  push eax ;po_t
+  mov edi,dword[edit]
-  push ecx edx edi
+  mov esi,dword[text]
   call GetPos
   call GetTexPervPos
   call GetTexArrIndex ;eax=po_t
-  mov dword[ebp-4],0 ;count new spaces
+  mov dword[new_spc],0
+  cmp ted_gp_opt,2
+  je @f
-  cmp [gpOpt],2
+    push eax ;c_sp=cur[cn].x+Scroller->XPos-StrLen(cur[cn].y+Scroller->YPos);
-  je @f
+      mov eax,ted_cur_x
-    push eax ebx ;c_sp=cur[cn].x+Scroller->XPos-StrLen(cur[cn].y+Scroller->YPos);
+      add eax,[hScr.position]
-      mov eax,[cur_x]
+      mov dword[new_spc],eax
-      add eax,[hScr.position]
-      mov dword[ebp-4],eax
+      mov eax,ted_cur_y
       add eax,[wScr.position]
-      mov eax,[cur_y]
+      call ted_strlen ;ebx = line len
-      add eax,[wScr.position]
+      sub dword[new_spc],ebx
-      call StrLen
+    pop eax
-      sub dword[ebp-4],ebx
+  @@:
     pop ebx eax
-  @@:
+  mov ebx,dword[t_len]
-  mov dword[ebp-8],0 ;count new lines
+  mov dword[new_lin],0
-  cmp [gpOpt],0
+  cmp ted_gp_opt,0
   jne @f
     push eax
-      mov eax,[cur_y]
+      mov eax,ted_cur_y
       add eax,[wScr.position]
       inc eax
-      mov dword[ebp-8],eax
+      mov dword[new_lin],eax
       call GetNumLines
-      sub dword[ebp-8],eax
+      sub dword[new_lin],eax
     pop eax
   @@:
   mov edx,sizeof.symbol
   shl edx,1
-  add edx,[tex]
+  add edx,ted_tex
   @@: ;for(i=2;i
     cmp dword [edx+10],0 ;if(!tex[i].tc && !tex[i].td)
     jne .u1f
     cmp dword [edx+14],0
     jne .u1f
-      cmp bl,0 ;if(n_tim) ch_tim++;
+      test dword[add_opt],ted_opt_ed_change_time ;if(n_tim) ted_tim_ch++;
+      jz .no_tim
+	inc ted_tim_ch
-      je .no_tim
+      .no_tim:
-	inc [ch_tim]
+      test dword[add_opt],ted_opt_ed_move_cursor
-      .no_tim:
+      jz .no_cur_mov
-      cmp bh,0
+      cmp dword[new_lin],0 ;åñëè åñòü äîáàâî÷íûå ñòðîêè, òî êóðñîð åùå íå äâèãàåì
-      je .no_cur_mov
+      jg .no_cur_mov
-      cmp dword[ebp-8],0 ;åñëè åñòü äîáàâî÷íûå ñòðîêè, òî êóðñîð åùå íå äâèãàåì
+      cmp dword[new_spc],0 ;åñëè íåò äîáàâî÷íûõ ïðîáåëîâ, òî êóðñîð òîæå íå äâèãàåì
       jg .no_cur_mov
-      cmp dword[ebp-4],0 ;åñëè íåò äîáàâî÷íûõ ïðîáåëîâ, òî êóðñîð òîæå íå äâèãàåì
+	inc ted_cur_x ;move cursor
-      jg .no_cur_mov
+	;call GoToPos
-	inc [cur_x] ;move cursor
+	cmp byte [esi],13
-	;call GoToPos
+	jne .no_cur_mov
-	cmp byte [edi],13
+	  mov ted_cur_x,0
-	jne .no_cur_mov
+	  inc ted_cur_y
-	  mov [cur_x],0
+      .no_cur_mov:
 	  inc [cur_y]
-      .no_cur_mov:
+      mov ecx,ted_opt_ed_change_time
+	  not ecx
-      xor bl,bl ;n_tim=false;
+	  and dword[add_opt],ecx ;n_tim=false;
-      mov cl,byte [edi] ;tex[i].c=ta[ns];
+      mov cl,byte [esi] ;tex[i].c=ta[ns];
       mov byte [edx],cl
-      m2m dword [edx+10],dword [ch_tim] ;tex[i].tc=ch_tim;
+      m2m dword [edx+10],ted_tim_ch ;tex[i].tc=ted_tim_ch;
       mov [edx+2],eax ;tex[i].perv=po_t;
       mov ecx,eax
       imul ecx,sizeof.symbol
-      add ecx,[tex] ; *** ecx = tex[po_t] ***
+      add ecx,ted_tex ; *** ecx = tex[po_t] ***
       add ecx,6   ; *** ecx = tex[po_t].next ***
       m2m dword [edx+6],dword [ecx] ;tex[i].next=tex[po_t].next;
       call GetTexArrIndex ;*** eax = i ***
       cmp eax,maxChars
       jge @f
       mov [ecx],eax ;tex[po_t].next=i; // ññûëêè ïåðåíàïðàâëÿåì
       mov ecx,[edx+6] ; *** ecx = tex[i].next ***
       imul ecx,sizeof.symbol
-      add ecx,[tex] ; *** ecx = tex[tex[i].next] ***
+      add ecx,ted_tex ; *** ecx = tex[tex[i].next] ***
       mov [ecx+2],eax ;tex[tex[i].next].perv=i;
-      cmp dword[ebp-8],0 ;add lines or text
-      jle .spc_add
-	dec dword[ebp-8]
-	mov byte [edx],13
+      cmp dword[new_lin],0 ;add lines or text
+      jle .spc_add
-	jmp .u1f
+	dec dword[new_lin]
-      .spc_add:
+	mov byte [edx],13
-      cmp dword[ebp-4],0 ;add spaces or text
+	jmp .u1f
-      jle .tex_add
+      .spc_add:
-	dec dword[ebp-4]
+      cmp dword[new_spc],0 ;add spaces or text
-	mov byte [edx],' '
+      jle .tex_add
+	dec dword[new_spc]
-	jmp .u1f
+	mov byte [edx],' '
-      .tex_add:
+	jmp .u1f
+      .tex_add:
-      inc edi
+      inc esi
-      dec esi
+      dec ebx
     .u1f:
     add edx,sizeof.symbol
-    cmp edx,[tex_end]
+    cmp edx,ted_tex_end
     jge @f ;out of memory
-    cmp esi,0
+    cmp ebx,0
     jne @b
     add ecx,sizeof.symbol
     jmp .loop_b
   .loop_e:
   push eax ebx
-  mov eax,[ch_tim]
+  mov eax,ted_tim_ch
   mov dword[ecx+10],eax
   mov al,byte[esi]
   mov byte[ecx],al
   ret
+;input:
-;input:
+; conv_table = pointert to convert table
-; conv_table = pointert to convert table
+; edi = pointer to tedit struct
+;output:
-;output:
+; esi = count converted symbols
-; edi = count converted symbols
+align 4
-ConvertSelText:
+proc ConvertSelText
+  locals
+    conv_cou dd ?
+  endl
+  mov dword[conv_cou],0
-  xor edi,edi
+  pushad
   push eax ebx ecx edx esi
-  stdcall IsSel, tedit0
+  stdcall IsSel,edi
   cmp al,0
   je .end_f
-    call SetUndo
+    stdcall ted_set_undo,edi
-    call SelNormalize
+    stdcall SelNormalize,edi
-    mov esi,[seln.x0]
+    mov esi,ted_seln_x0
-    mov ecx,[seln.y0]
+    mov ecx,ted_seln_y0
     call GetPosByParam
     mov eax,edx
-    mov esi,[seln.x1]
+    mov esi,ted_seln_x1
-    mov ecx,[seln.y1]
+    mov ecx,ted_seln_y1
     call GetPosByParam
     ;call GetTexPervPos
     mov ebx,edx
     cmp eax,ebx
     je .end_f
-    inc [ch_tim]
+    inc ted_tim_ch
     mov edx,eax ;i=p0;
     mov ecx,2
     ConvertIndexToPointer ecx
     @@:
       mov esi,[edx]
       and esi,0xff
       add esi,[conv_table] ;EvUpper
       cmp byte [esi],0
       je .no_change
-	m2m dword [edx+14],dword [ch_tim]
+	m2m dword [edx+14],ted_tim_ch
 	call CharAdd ;b_pos=CharAdd(tex[i].c^32,i,false,b_pos);
 	call GetTexNextPos ;go to added symbol
-	inc edi
+	inc dword[conv_cou]
       .no_change:
       call IteratNext
-      cmp edx,[tex]
+      cmp edx,ted_tex
       je @f
       cmp edx,ebx
       je @f
+      jmp @b
-      jmp @b
+    @@:
-    @@:
-    cmp edi,0
+    cmp dword[conv_cou],0
+    jne @f
-    jne @f
-      dec [ch_tim]
-    @@:
-  .end_f:
+      dec ted_tim_ch
-  pop esi edx ecx ebx eax
+    @@:
   .end_f:
-  ret
+  popad
+  mov esi,dword[conv_cou]
+  ret
+endp
+;output:
-;input:
+; bl = 0 - no delete
-; bh = (0-backspace, 1-delete)
+; bl = 1 - delete
-; bl = 1 - change time
+align 4
-;output:
+proc TextDel, edit:dword, del_opt:dword
-; bl = 0 - no delete
+  push cx edx edi
-; bl = 1 - delete
+  mov edi,dword[edit]
-TextDel:
+  mov ebx,dword[del_opt]
   push edx cx
   xor cl,cl
-  cmp bh,1
+  test ebx,ted_opt_ed_move_cursor
-  je @f
+  jz @f
     call CurMoveLeft
     cmp dl,0
     je .no_del
   @@:
   call GetPos
-  cmp [gpOpt],1
+  cmp ted_gp_opt,1
   je .no_del
-    cmp bl,0
+    test ebx,ted_opt_ed_change_time
-    je @f
+    jz @f
+      inc ted_tim_ch
+    @@:
+    m2m dword [edx+14], ted_tim_ch
+    mov cl,1
+  .no_del:
+  mov bl,cl
+  pop edi edx cx
+  ret
+endp
+;input:
+; edi = pointer to tedit struct
+;output:
+; al = 1 if delete
+;description:
+; Ôóíêöèÿ óäàëÿåò âûäåëåííûé òåêñò
+align 4
+proc SelTextDel, del_opt:dword
+	push ebx ecx edx esi
+	stdcall IsSel,edi
+	cmp al,0
+	je .end_f
+		stdcall SelNormalize,edi
+		mov esi,ted_seln_x1
+		mov ecx,ted_seln_y1
+		call GetPosByParam
+		mov ebx,edx
+		mov esi,ted_seln_x0
+		mov ecx,ted_seln_y0
+		call GetPosByParam
+		test dword[del_opt],ted_opt_ed_change_time
+		jz @f
+			inc ted_tim_ch
+		@@:
+		cmp edx,ted_tex
+		je @f
+		cmp edx,ebx ;if(i==te)break;
+		je @f
+			m2m dword[edx+14],ted_tim_ch
+			mov esi,ted_opt_ed_change_time
+			not esi
+			and dword[del_opt],esi ;n_tim=false;
+			call IteratNext
+			jmp @b
+		@@:
+		test dword[del_opt],ted_opt_ed_change_time
+		jz @f
+			dec ted_tim_ch
+			xor al,al
+		@@:
+		test dword[del_opt],ted_opt_ed_change_time
+		jnz @f
+			mov ecx,ted_seln_x0
+			mov edx,ted_seln_y0
+			call GoToPos
-      inc [ch_tim]
+			mov ted_sel_x0,0
-    @@:
+			mov ted_sel_y0,0
-    m2m dword [edx+14], dword [ch_tim]
+			mov ted_sel_x1,0
+			mov ted_sel_y1,0
+		@@:
-    mov cl,1
+	.end_f:
-  .no_del:
+	pop esi edx ecx ebx
-  mov bl,cl
+	ret
-  pop cx edx
+endp
   ret
+;input:
 ; eax = pointer to begin select
-;input:
+; ebx = pointer to end select
-; eax = pointer to begin select
+; edi = pointer to tedit struct
-; ebx = pointer to end select
+align 4
 Revers:
     m2m dword[edx+6],dword[edx+2] ;tex[i].next = tex[i].perv;
     mov [edx+2],ecx ;tex[i].perv = tmp;
     cmp edx,ebx ;if(i==p1)break;
     je @f
 ; ---
-;cmp edx,[tex]
+;cmp edx,ted_tex
 ;je @f
 ; ---
     mov edx,ecx ;i = tmp;
     ConvertIndexToPointer edx
     jmp @b
   pop edx ecx
   call CmColored
   ret
 ;input:
 ; edi = pointer to tedit struct
 ;output:
 ; dl = 0 not move
+; dl = 2 if move up
-; dl = 2 if move up
+; dl = 8 if scroll move up
-; dl = 8 if scroll move up
+align 4
 CurMoveUp:
-  cmp [cur_y],0
+  cmp ted_cur_y,0
   je @f
-    dec [cur_y]
+    dec ted_cur_y
     mov dl,2
     ret
   @@:
     ret
   @@:
   mov dl,0
   ret
+;input:
 ; edi = pointer to tedit struct
 ;output:
 ; dl = 0 not move
 ; dl = 2 if move down
+; dl = 8 if scroll move down
-; dl = 8 if scroll move down
+align 4
 CurMoveDown:
-  push eax
+  push eax ebx
+  mov dl,0
-  mov dl,0
+  mov ebx,ted_scr_w
-  mov eax,[wScr.cur_area]
+  mov eax,dword[ebx+sb_offs_cur_area]
   dec eax
-  cmp [cur_y],eax
+  cmp ted_cur_y,eax
   jge @f
-    inc [cur_y]
+    inc ted_cur_y
     mov dl,2
     jmp .ret_f
   @@:
-  mov eax,[cur_y]
+  mov eax,ted_cur_y
-  add eax,[wScr.position]
+  add eax,dword[ebx+sb_offs_position]
   inc eax
-  cmp [wScr.max_area],eax
+  cmp dword[ebx+sb_offs_max_area],eax
   jle @f
-    inc [wScr.position]
+    inc dword[ebx+sb_offs_position]
     mov dl,8
   @@:
   .ret_f:
-  pop eax
+  pop ebx eax
   ret
+;output:
-;output:
+; dl = 0 not move
-; dl = 0 not move
+; dl = 1 if move up
-; dl = 1 if move up
+align 4
 CurMovePageUp:
   push eax
     mov dl,1
   @@:
   pop eax
   ret
+;input:
+; edi = pointer to tedit struct
 align 4
 CurMovePageDown:
+	push eax ebx ecx
+	mov ecx,ted_scr_w
   push eax ebx
-  xor dl,dl
+	xor dl,dl
-  mov eax,[wScr.max_area]
+	mov eax,dword[ecx+sb_offs_max_area]
-  sub eax,[wScr.cur_area]
+	sub eax,dword[ecx+sb_offs_cur_area]
-  cmp [wScr.position],eax
+	cmp dword[ecx+sb_offs_position],eax
-  jge @f
+	jge @f
-    mov ebx,[wScr.cur_area]
+		mov ebx,dword[ecx+sb_offs_cur_area]
-    add [wScr.position],ebx
+		add dword[ecx+sb_offs_position],ebx
-    mov dl,1
+		mov dl,1
-    mov [wScr.redraw],1
+		mov dword[ecx+sb_offs_redraw],1
-    cmp [wScr.position],eax
+		cmp dword[ecx+sb_offs_position],eax
-    jle @f
+		jle @f
-      mov [wScr.position],eax
+			mov dword[ecx+sb_offs_position],eax
-  @@:
+	@@:
-  pop ebx eax
+	pop ecx ebx eax
+	ret
-  ret
+;input:
 ; edi = pointer to tedit struct
 ;output:
 ; dl = 0 not move
 ; dl = 1 if move left
+; dl = 3 if move left and up
-; dl = 3 if move left and up
+; dl = 8 if scroll move up
-; dl = 8 if scroll move up
+align 4
 CurMoveLeft:
-  cmp [cur_x],0
+  cmp ted_cur_x,0
   je @f
-    dec [cur_x]
+    dec ted_cur_x
     mov dl,1
     ret
   @@:
   cmp [hScr.position],0
   je @f
     dec [hScr.position]
     mov dl,8
     ret
   @@:
-  cmp [cur_y],0
+  cmp ted_cur_y,0
   jne @f
     mov dl,0
     cmp [wScr.position],0
     je .ret_f
       dec [wScr.position]
       call OnInitialUpdate
       call CurMoveX_LastChar
       mov dl,8
     jmp .ret_f
   @@:
-  cmp [cur_y],0
+  cmp ted_cur_y,0
   je @f
-  dec [cur_y]
+  dec ted_cur_y
   call CurMoveX_LastChar
   cmp dl,8
   je .ret_f
   mov dl,3
   ret
   @@:
   mov dl,0
+  .ret_f:
+  ret
-  .ret_f:
+;input:
-  ret
+; edi = pointer to tedit struct
 align 4
 CurMoveRight:
   push eax
   xor dl,dl
   mov eax,[hScr.cur_area]
-  cmp [cur_x],eax
+  cmp ted_cur_x,eax
   jge @f
-    inc [cur_x]
+    inc ted_cur_x
     mov dl,1
     jmp .ret_f
   @@:
     inc [hScr.position]
     mov dl,8
+  .ret_f:
+  pop eax
+  ret
   .ret_f:
-  pop eax
+;input:
-  ret
+; edi = pointer to tedit struct
 align 4
 CurMoveX_LastChar:
 ;[hScr.position]
 ;[hScr.cur_area]
 ;dl-???
   push eax ebx
-  mov eax,[cur_y]
+  mov eax,ted_cur_y
   add eax,[wScr.position]
-  call StrLen
+  call ted_strlen
     add [hScr.position],ebx
     mov ebx,[hScr.cur_area]
     sub [hScr.position],ebx
     mov dl,8
   @@:
-  mov [cur_x],ebx
+  mov ted_cur_x,ebx
   pop ebx eax
   ret
+;input:
 ; edi = pointer to tedit struct
 ;output:
 ; dl = 0 not move
 ; dl = 1 move cursor
+; dl = 8 move cursor and scroll
-; dl = 8 move cursor and scroll
+align 4
 CurMoveX_FirstChar:
   xor dl,dl
-  cmp [cur_x],0
+  cmp ted_cur_x,0
   je @f
-  mov [cur_x],0
+  mov ted_cur_x,0
   mov dl,1
   @@:
   cmp [hScr.position],0
   je @f
   @@:
   ret
 ;input:
+; edx = pointer to symbol struct
-; edx = pointer to symbol struct
+; edi = pointer to tedit struct
 ;output:
+; eax = array index
-; eax = array index
+align 4
 GetTexArrIndex:
   push ecx edx
   mov eax,edx
-  sub eax,[tex]
+  sub eax,ted_tex
   xor edx,edx
   mov ecx,sizeof.symbol
   div ecx
   pop edx ecx
+  ret
   ret
 ;input:
+; edx = pointer to symbol struct
-;input:
+; edi = pointer to tedit struct
-; edx = pointer to symbol struct
+;output:
-;output:
+; edx = pointer to 'perv' struct
-; edx = pointer to 'perv' struct
+align 4
 GetTexPervPos:
   push dword [edx+2]
   pop edx
   imul edx,sizeof.symbol
-  add edx,[tex]
+  add edx,ted_tex
   ret
 ;input:
-;input:
+; edx = pointer to symbol struct
-; edx = pointer to symbol struct
+;output:
-;output:
+; edx = pointer to 'next' symbol struct
-; edx = pointer to 'next' symbol struct
+align 4
 GetTexNextPos:
   push dword [edx+6]
+  pop edx
-  pop edx
+  imul edx,sizeof.symbol
-  imul edx,sizeof.symbol
+  add edx,ted_tex
-  add edx,[tex]
+  ret
   ret
+;input:
+; edi = pointer to tedit struct
 ;output:
-;output:
+; edx = symbol under cursor
-; edx = symbol under cursor
+; ted_gp_opt = 1,2
-; gpOpt = 1,2
+; edx = tex[1].perv if error
-; edx = tex[1].perv if error
+; ted_gp_opt = 0
-; gpOpt = 0
+align 4
 GetPos:
   push esi ecx
-    mov esi,[cur_x]
+    mov esi,ted_cur_x
     add esi,[hScr.position]
-    mov ecx,[cur_y]
+    mov ecx,ted_cur_y
     add ecx,[wScr.position]
+    call GetPosByParam
-    call GetPosByParam
+  pop ecx esi
-  pop ecx esi
+  ret
-  ret
 ;input:
-;input:
+; esi = XPos
+; ecx = YPos
-; esi = XPos
+; edi = pointer to tedit struct
-; ecx = YPos
+;output:
-;output:
+; edx = symbol under cursor
-; edx = symbol under cursor
+; ted_gp_opt = 1 if found text line
-; gpOpt = 1 if found text line
+; ted_gp_opt = 2 if found text line and column
-; gpOpt = 2 if found text line and column
+; edx = tex[1] if error
-; edx = tex[1] if error
+; ted_gp_opt = 0 if text no found
-; gpOpt = 0 if text no found
+align 4
 GetPosByParam:
   push eax ;Row
   push ebx ;Col
   xor eax,eax
   xor ebx,ebx
-  mov [gpOpt],0
+  mov ted_gp_opt,0
-  mov edx,[tex]
+  mov edx,ted_tex
   @@:
     call IteratNext
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     cmp ebx,esi
-    jne .u1_0 ;Col <> cur_x
+    jne .u1_0 ;Col <> ted_cur_x
-      mov [gpOpt],1
+      mov ted_gp_opt,1
       cmp eax,ecx
-      jge @f ; Row >= cur_y
+      jge @f ; Row >= ted_cur_y
     .u1_0:
-    mov [gpOpt],0
+    mov ted_gp_opt,0
     inc ebx
     cmp byte [edx],13
     jne @b
     cmp eax,ecx
-    jge @f ; Row >= cur_y
+    jge @f ; Row >= ted_cur_y
     inc eax
     xor ebx,ebx
     jmp @b
   @@:
   cmp eax,ecx
-  jne @f ; Row = cur_y
+  jne @f ; Row = ted_cur_y
-    inc [gpOpt]
+    inc ted_gp_opt
   @@:
+  cmp ted_gp_opt,0
-  cmp [gpOpt],0
+  jne @f
-  jne @f
+    mov edx,ted_tex_1
+    ;call GetTexPervPos
-    mov edx,[tex_1]
+  @@:
-    ;call GetTexPervPos
+  pop ebx eax
-  @@:
+  ret
   pop ebx eax
   ret
+;input:
 ; eax = Row
-;input:
+; edi = pointer to tedit struct
-; eax = Row
+;output:
-;output:
+; ebx = str len
-; ebx = str len
+align 4
-StrLen:
+ted_strlen:
   push edx ecx
   ;ecx = Row, from cycle
   pop ecx edx
   ret
 ;input:
-;output:
+; edx = symbol position
-; edx = symbol position
+; edi = pointer to tedit struct
+;output:
-;output:
+; eax = number of line
-; eax = number of line
+; ebx = symbol position in line
-; ebx = symbol position in line
+align 4
 GetTexCoords:
   push edx
     cmp eax,0
     jne .no_col_mov
     inc ebx
     .no_col_mov:
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     cmp byte [edx],13
     jne @b
     inc eax
     jmp @b
   @@:
   dec ebx
   pop edx
+  ret
-  ret
+;input:
 ; edi = pointer to tedit struct
+;output:
-;output:
+; eax = num lines
-; eax = num lines
+align 4
 GetNumLines:
   push edx
   mov eax,1
-  mov edx,[tex]
+  mov edx,ted_tex
   @@:
     call IteratNext
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     cmp byte [edx],13
     jne @b
 ;...
 ;dec eax
   pop edx
   ret
+align 4
+proc ted_set_undo, edit:dword
+  push edi
+  mov edi,dword[edit]
-SetUndo:
-  mov [dragk],0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
+  mov ted_drag_k,0 ;çàêàí÷èâàåì âûäåëåíèå îò êëàâèàòóðû
-  cmp [tim_Undo],1
+  cmp ted_tim_undo,1
   jl .no_work
   push eax ebx edx
-  mov edx,[tex]
+  mov edx,ted_tex
   call GetTexNextPos ;long i=tex[0].next;
-  mov eax,[tim_Undo]
+  mov eax,ted_tim_undo
-  sub [ch_tim],eax ;ch_tim-=tim_Undo;
+  sub ted_tim_ch,eax ;ted_tim_ch-=ted_tim_undo;
-  mov eax,[ch_tim]
+  mov eax,ted_tim_ch
-  cmp [ls_tim],eax ;if(ls_tim>ch_tim)
+  cmp ted_tim_ls,eax ;if(ted_tim_ls>ted_tim_ch)
   jle @f
-    mov dword [ls_tim],0
+    mov ted_tim_ls,0
   @@:
-    cmp edx,[tex]
+    cmp edx,ted_tex
     je @f
-    ;if(tex[i].tc>ch_tim){ // åñëè ñîçäàíèå ñèìâîëà áûëî îòìåíåíî
+    ;if(tex[i].tc>ted_tim_ch){ // åñëè ñîçäàíèå ñèìâîëà áûëî îòìåíåíî
     cmp [edx+10],eax
     jle .no_u1
       mov dword [edx+10],0
       mov dword [edx+14],0
       mov ebx,[edx+2]
       imul ebx,sizeof.symbol
-      add ebx,[tex];.next
+      add ebx,ted_tex;.next
       m2m dword [ebx+6],dword [edx+6] ;tex[tex[i].perv].next=tex[i].next;
       mov ebx,[edx+6]
       imul ebx,sizeof.symbol
-      add ebx,[tex];.perv
+      add ebx,ted_tex;.perv
       m2m dword [ebx+2],dword [edx+2] ;tex[tex[i].next].perv=tex[i].perv;
     .no_u1:
-    ;else if(tex[i].td>ch_tim) tex[i].td=0; // åñëè óäàëåíèå ñèìâîëà áûëî îòìåíåíî
+    ;else if(tex[i].td>ted_tim_ch) tex[i].td=0; // åñëè óäàëåíèå ñèìâîëà áûëî îòìåíåíî
     cmp [edx+14],eax
     jle .no_u2
       mov dword [edx+14],0
     .no_u2:
     call GetTexNextPos
     jmp @b
   @@:
+  mov ted_tim_undo,0
-  mov dword [tim_Undo],0
+  mov eax,ted_tim_co
+  cmp ted_tim_ch,eax
-  mov eax,[co_tim]
+  jge @f
-  cmp [ch_tim],eax
+    mov ted_tim_co,0
-  jge @f
+  @@:
+  pop edx ebx eax
+  .no_work:
-    mov [co_tim],0
+  pop edi
-  @@:
+  ret
-  pop edx ebx eax
+endp
-  .no_work:
-  ret
+;input:
 ; ecx = Col
-;input:
+; edx = Row
-; ecx = Col
+; edi = pointer to tedit struct
-; edx = Row
+align 4
 GoToPos:
-  mov [cur_x],ecx
+  mov ted_cur_x,ecx
   sub edx,[wScr.position]
-  cmp edx,[wScr.cur_area] ;[cur_y] > [.cur_area]
+  cmp edx,[wScr.cur_area] ;ted_cur_y > [.cur_area]
   jl @f
     push ebx
     mov ebx,edx
     sub ebx,[wScr.cur_area]
-    inc ebx
-    add [wScr.position],ebx
-    sub edx,ebx
-    pop ebx
-    ; ??? redrav
-  @@:
+    inc ebx
-  mov [cur_y],edx
-  ret
-;input:
-; bl = 1 change time when delete text
-;output:
-; al = 1 if delete
-SelTextDel:
-  stdcall IsSel, tedit0
-  cmp al,0
-  jne @f
-  ret
-  @@:
-  ;call SelEnd
-  call SelNormalize
-  push esi edi ecx edx
-    mov esi,[seln.x1]
-    mov ecx,[seln.y1]
-    call GetPosByParam
-    mov edi,edx
-    mov esi,[seln.x0]
-    mov ecx,[seln.y0]
-    call GetPosByParam
-    cmp bl,0
-    je @f
-      inc [ch_tim]
-    @@:
-      cmp edx,[tex]
-      je @f
-      cmp edx,edi ;if(i==te)break;
-      je @f
-      m2m dword[edx+14],dword[ch_tim]
-      xor bl,bl   ;n_tim=false;
-      call IteratNext
-      jmp @b
-    @@:
-    cmp bl,0
-    je @f
-      dec [ch_tim]
-      xor al,al
-    @@:
-    cmp bl,0
-    jne @f
-      mov ecx,[seln.x0]
-      mov edx,[seln.y0]
-      call GoToPos
+    add [wScr.position],ebx
-      mov [sel.x0],0
+    sub edx,ebx
-      mov [sel.y0],0
+    pop ebx
-      mov [sel.x1],0
+    ; ??? redrav
-      mov [sel.y1],0
+  @@:
-    @@:
+  mov ted_cur_y,edx
-  pop edx ecx edi esi
+  ret
-  ret
+;input:
 ; edi = pointer to tedit struct
 align 4
 CmColored:
   push eax edx
-  mov eax,[ch_tim]
+  mov eax,ted_tim_ch
-  sub eax,[tim_Undo]
+  sub eax,ted_tim_undo
-  mov dword[co_tim],eax
+  mov ted_tim_co,eax
-  mov edx,[tex]
+  mov edx,ted_tex
   @@:
     call IteratNext
-    cmp edx,[tex_1]
+    cmp edx,ted_tex_1
     jle @f
     mov byte[edx+1],0
     jmp @b
   @@:
   cmp dword[ColWords],1
-  jl .no_colors
+  cmp ted_key_words_count,1
+  jl .no_colors
-  mov edx,[tex]
+  mov edx,ted_tex
   @@:
     call TextFSColor
+    cmp edx,ted_tex_1
-    cmp edx,[tex_1]
+    jle .no_colors
-    jle .no_colors
+    jmp @b
-    jmp @b
   .no_colors:
-  pop edx eax
-  ret
+  pop edx eax
+  ret
 ;input:
 ; edx = pointer to start symbol
+; edi = pointer to tedit struct
+;output:
+; edx = pointer to next symbol
+;description:
-;output:
+; Ôóíêöèÿ äëÿ ïîèñêà è âûäåëåíèÿ ïîäñâå÷åíûõ ñëîâ
-; edx = pointer to next symbol
+align 4
-TextFSColor:
+proc TextFSColor
-  ;eax = word_n
+locals
-  ;ecx = l_pos
+  begPos dd ? ;íà÷àëüíàÿ ïîçèöèÿ
-  push ebp
+  endPos dd ? ;êîíå÷íàÿ ïîçèöèÿ
-  mov ebp,esp
+  find db ? ;íàéäåíî / íå íàéäåíî
-  sub esp,10 ;2*4+2*1
+  f_color db ? ;èíäåêñ öâåòà íàéäåíîãî ñëîâà
-  ;bP  = dword[ebp-4]
+endl
-  ;eP  = dword[ebp-8]
+  push eax ebx ecx esi
-  ;fnd = byte[ebp-12]
-  ;f_color = byte[ebp-13]
+;eax = word_n òåêóùèé íîìåð (ïîçèöèÿ) ïðîâåðÿåìîãî ñëîâà â ñïèñêå
-  push eax ebx ecx esi edi
+;ebx = äëÿ ðàçíûõ öåëåé
-  mov dword[ebp-4],1
+;ecx = l_pos ïîñëåäíèé íîìåð (ïîçèöèÿ) ïîäõîäÿùåãî ñëîâà â ñïèñêå
-  mov dword[ebp-4],1
+;esi = äëÿ ðàçíûõ öåëåé, íîìåð ïðîâåðÿåìîãî ñèìâîëà â ñëîâå
-  mov byte[ebp-12],0
+  mov dword[begPos],1
-  mov byte[ebp-13],1
+  mov dword[endPos],1
-  @@:
+  mov byte[find],0
-    call IteratNext
+  mov byte[f_color],1
-    cmp edx,[tex_1]
+  @@:
-    jle @f
+    call IteratNext
     cmp edx,ted_tex_1
-    xor ebx,ebx
-    mov bl,byte[edx]
-;mov byte[buf],bl
+    jle @f
-;mov byte[buf+1],0
+    xor eax,eax
-    shl bx,2 ;ebx*=4
+    mov al,byte[edx]
-    add ebx,FkPos
+    shl ax,2 ;eax*=4
-    mov eax,dword[ebx]
+    add eax,FkPos
-    cmp eax,0
+    mov eax,dword[eax]
-    jl @b ;if( (word_n=FkPos[(unsigned char)tex[i].c])>-1 ){
+    cmp eax,0
+    jl @b ;if( (word_n=FkPos[(unsigned char)tex[i].c])>-1 ){
     mov ecx,eax
-    ;while(l_pos
+    mov ecx,eax
-    .wh_1b:
+    ;while(l_pos
-      cmp ecx,dword[ColWords]
+    .wh_1b:
-      jge .wh_1e
+      cmp ecx,ted_key_words_count
-      ColToIndexOffset ecx,esi
+      jge .wh_1e
-      mov bh,byte[esi]
+      ColToIndexOffset ecx,esi
-      ColToIndexOffset eax,esi
+      mov bl,byte[esi]
-      mov bl,byte[esi]
+      ColToIndexOffset eax,esi
-      cmp bh,bl
+      cmp bl,byte[esi]
-      jne .wh_1e
-	inc ecx
+      jne .wh_1e
-      jmp .wh_1b
-    .wh_1e:
 	inc ecx
-    mov dword[ebp-4],edx ;bP=i;
+      jmp .wh_1b
-    mov edi,1
+    .wh_1e:
-    .wh_2b: ;while(1){
+    mov dword[begPos],edx ;bP=i;
-      call IteratNext
+    mov esi,1
-      ;while(l_pos>word_n && Col[keyw[l_pos-1]].Text[pos]!=tex[i].c)
+    .wh_2b: ;while(1){
-      .wh_3b:
+      call IteratNext
-	cmp ecx,eax
-	jle .wh_3e
+      ;while(l_pos>word_n && Col[l_pos-1].Text[pos]!=tex[i].c)
-	dec ecx
+      .wh_3b:
-	ColToIndexOffset ecx,ebx
+	cmp ecx,eax
-	inc ecx
+	jle .wh_3e
-	;cmp byte[ebx+edi],byte[edx]
+	dec ecx
-	push ax
+	ColToIndexOffset ecx,ebx
-	  mov al,byte[ebx+edi]
+	inc ecx
-	  mov bl,al
+	;cmp byte[ebx+esi],byte[edx]
-	pop ax
+	mov bl,byte[ebx+esi]
 	cmp bl,byte[edx]
-	je .wh_3e
-	  dec ecx
+	je .wh_3e
-	jmp .wh_3b
+	  dec ecx
-      .wh_3e:
+	jmp .wh_3b
       .wh_3e:
       ColToIndexOffset eax,ebx
-      cmp byte[ebx+edi],0
+      ColToIndexOffset eax,ebx
-      jne .if_0 ;if(Col[keyw[word_n]].Text[pos]==0){
+      cmp byte[ebx+esi],0
-	mov dword[ebp-8],edx ;eP=i;
+      jne .if_0 ;if(Col[word_n].Text[pos]==0){
-	ColToIndexOffset eax,esi
+	mov dword[endPos],edx ;eP=i;
-	mov bl,byte[esi+MAX_COLOR_WORD_LEN+6]
+	ColToIndexOffset eax,ebx
-	mov byte[ebp-13],bl ;f_color=Col[keyw[word_n]].color;
+	mov bl,byte[ebx+MAX_COLOR_WORD_LEN+6]
 	mov byte[f_color],bl ;f_color=Col[word_n].color;
-mov byte[ebp-12],1
-;... esi = Col[keyw[word_n]]
+mov byte[find],1
-	  mov bl,byte[esi+MAX_COLOR_WORD_LEN+4]
-	  cmp bl,0 ;if(Col[keyw[word_n]].wwo)
+	  ColToIndexOffset eax,ebx ;... ebx = Col[word_n]
-	  je .if_2n
+	  mov bl,byte[ebx+MAX_COLOR_WORD_LEN+4]
-	    push edx
+	  cmp bl,0 ;if(Col[word_n].wwo)
-	    mov edx,dword[ebp-4]
+	  je .if_2n
-     call IteratPerv
+	    push edx
-;           mov bh,bl
+	    mov edx,dword[begPos]
      call IteratPerv
-	    btr bx,0 ;1-1
-	    jae .if_3e ;if(Col[keyw[word_n]].wwo&1)
+	    btr bx,0 ;1-1
-	      ;u1= !(isalnum(cont_s)||cont_s=='_')
+	    jae .if_3e ;if(Col[word_n].wwo&1)
-	      call isalnum
+	      ;u1= !(isalnum(cont_s)||cont_s=='_')
-	      jae .if_3e
+	      call isalnum
-		mov byte[ebp-12],0
+	      jae .if_3e
-	    .if_3e:
+		mov byte[find],0
+	    .if_3e:
 	    btr bx,3 ;4-1
-	    jae .if_4e ;if(Col[keyw[word_n]].wwo&8)
+	    btr bx,3 ;4-1
-	      ;u1= !isalpha(cont_s);
+	    jae .if_4e ;if(Col[word_n].wwo&8)
+	      ;u1= !isalpha(cont_s);
 	      call isalpha
 	      jae .if_4e
-		mov byte[ebp-12],0
+		mov byte[find],0
 	    .if_4e:
 	    mov edx,dword[endPos]
-	    mov edx,dword[ebp-8]
+;     call IteratNext
 ;     call IteratNext
 	    btr bx,1 ;2-1
-	    btr bx,1 ;2-1
+	    jae .if_5e ;if(Col[word_n].wwo&2)
-	    jae .if_5e ;if(Col[keyw[word_n]].wwo&2)
+	      ;u1= !(isalnum(cont_s)||cont_s=='_')
-	      ;u1= !(isalnum(cont_s)||cont_s=='_')
+	      call isalnum
-	      call isalnum
+	      jae .if_5e
-	      jae .if_5e
+		mov byte[find],0
-		mov byte[ebp-12],0
+	    .if_5e:
 	    .if_5e:
+	    btr bx,4 ;5-1
-	    btr bx,4 ;5-1
+	    jae .if_6e ;if(Col[word_n].wwo&16)
-	    jae .if_6e ;if(Col[keyw[word_n]].wwo&16)
+	      ;u1= !isalpha(cont_s);
-	      ;u1= !isalpha(cont_s);
+	      call isalpha
-	      call isalpha
+	      jae .if_6e
-	      jae .if_6e
+		mov byte[find],0
-		mov byte[ebp-12],0
+	    .if_6e:
-	    .if_6e:
 	    btr bx,2 ;3-1
-	    jae .if_7e ;if(Col[keyw[word_n]].wwo&4)
-       mov bl,byte[esi+MAX_COLOR_WORD_LEN+5]
-	      call ItPoNextUc
+	    jae .if_7e ;if(Col[word_n].wwo&4)
-       cmp edx,[tex_1]
+	    ColToIndexOffset eax,ebx
-       jle .if_7e
+	    mov bl,byte[ebx+MAX_COLOR_WORD_LEN+5]
-       mov dword[ebp-8],edx
+	    call ItPoNextUc
-	    .if_7e:
+       cmp edx,ted_tex_1
        jle .if_7e
-	    pop edx
+       mov dword[endPos],edx
-	  .if_2n:
+	    .if_7e:
 ;                 if(i!=1){ // íå êîíåö äîêóìåíòà
-;                   cont_s=tex[eP].c;
+	    pop edx
-;                   if(Col[keyw[word_n]].wwo&2) u2= !(isalnum(cont_s)||cont_s=='_');  // íå áóêâ.-÷èñë. ñèìâîë
+	  .if_2n:
-;                   if(u2 && Col[keyw[word_n]].wwo&16) u2= !isalpha(cont_s); // íå ÷èñë. ñèìâîë
+;                 if(i!=1){ // íå êîíåö äîêóìåíòà
-;                   if(Col[keyw[word_n]].wwo&4) eP=ItPoNextUc(eP,Col[keyw[word_n]].endc);
+;                   cont_s=tex[eP].c;
 ;                   if(Col[word_n].wwo&2) u2= !(isalnum(cont_s)||cont_s=='_');  // íå áóêâ.-÷èñë. ñèìâîë
-	cmp eax,ecx
+;                   if(u2 && Col[word_n].wwo&16) u2= !isalpha(cont_s); // íå ÷èñë. ñèìâîë
-	je .wh_2e ;if(word_n==l_pos) break; // do double - åñëè ñëîâî òî÷íî ïîñëåäíåå
+;                   if(Col[word_n].wwo&4) eP=ItPoNextUc(eP,Col[word_n].endc);
       .if_0:
+	cmp eax,ecx
-      cmp edx,[tex_1]
+	je .wh_2e ;if(word_n==l_pos) break; // do double - åñëè ñëîâî òî÷íî ïîñëåäíåå
-      jle .wh_2e ;if(i==1) break;
+      .if_0:
-      ;while(l_pos>word_n && Col[keyw[word_n]].Text[pos]!=tex[i].c)
+      cmp edx,ted_tex_1
-      .wh_4b:
+      jle .wh_2e ;if(i==1) break;
 	cmp ecx,eax
-	jle .wh_4e
+      ;while(l_pos>word_n && Col[word_n].Text[pos]!=tex[i].c)
-	ColToIndexOffset eax,ebx
+      .wh_4b:
-	;cmp byte[ebx+edi],byte[edx]
+	cmp ecx,eax
-	push ax
+	jle .wh_4e
-	  mov al,byte[ebx+edi]
+	ColToIndexOffset eax,ebx
-	  mov bl,al
+	;cmp byte[ebx+esi],byte[edx]
-	pop ax
+	mov bl,byte[ebx+esi]
-	cmp bl,byte[edx]
-	je .wh_4e
-	  inc eax
+	cmp bl,byte[edx]
-	jmp .wh_4b
+	je .wh_4e
-      .wh_4e:
+	  inc eax
 	jmp .wh_4b
-      cmp eax,ecx
+      .wh_4e:
       je .wh_2e;if(word_n==l_pos) break;
+      cmp eax,ecx
-      inc edi ;pos++;
+      je .wh_2e;if(word_n==l_pos) break;
-      jmp .wh_2b
+      inc esi ;pos++;
-    .wh_2e:
+      jmp .wh_2b
+    .wh_2e:
-    cmp byte[ebp-12],1 ;if(fnd)break;
+    cmp byte[find],1 ;if(fnd)break;
     je @f
-    mov edx,dword[ebp-4];i=bP;
+    mov edx,dword[begPos];i=bP;
     jmp @b
   @@:
-  cmp byte[ebp-12],1
+  cmp byte[find],1
   jne .if_1e ;if(fnd){ // âûäåëåíèå íàéäåíîãî òåêñòà
-;    if(!mode_sf1 || (mode_sf1 && strlen(Col[keyw[word_n]].f1->c_str())>0)){
+;    if(!mode_sf1 || (mode_sf1 && strlen(Col[word_n].f1->c_str())>0)){
-    mov eax,dword[ebp-4]
+    mov eax,dword[begPos]
-    mov bl,byte[ebp-13]
+    mov bl,byte[f_color]
     mov byte[eax+1],bl ;tex[bP].col=f_color;
-    mov eax,dword[ebp-8]
+    mov eax,dword[endPos]
+    mov byte[eax+1],0xff ;tex[eP].col=255;
-    mov byte[eax+1],0xff ;tex[eP].col=255;
+;    return ItPoPerv(eP); // âîçâðàùàåì ïîçèöèþ êîíöà âõîæäåíèÿ
-;    return ItPoPerv(eP); // âîçâðàùàåì ïîçèöèþ êîíöà âõîæäåíèÿ
+    mov edx,dword[endPos]
-    mov edx,dword[ebp-8]
+    call GetTexPervPos
-    call GetTexPervPos
+    jmp @f
-    jmp @f
+  .if_1e:
-  .if_1e:
+    mov edx,ted_tex
-    mov edx,[tex]
+  @@:
   @@:
   pop esi ecx ebx eax
-  pop edi esi ecx ebx eax
+  ret
-  mov esp,ebp
+endp
   pop ebp
-  ret
+;input:
 ; edx = pointer to char (byte)
+;output:
-;input:
+; cf=1 if symbol is...
-; edx = pointer to char (byte)
+align 4
+tab_all_num db 0,0,0,0,0,0,11111111b,11b,11111110b,0xff,0xff,111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0;,0,0,0,0,0,0,0,0 - tab_alpha_0,0,0,0,0,0,0,0
-;output:
+tab_alpha db 0,0,0,0,0,0,0,0,11111110b,0xff,0xff,111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 ; cf=1 if symbol is...
-tab_all_num db 0,0,0,0,0,0,11111111b,11b,11111110b,0xff,0xff,111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0,0,0;,0,0,0,0,0,0 - tab_alpha_0,0,0,0,0,0
+align 4
-tab_alpha db 0,0,0,0,0,0,0,0,11111110b,0xff,0xff,111b,11111110b,0xff,0xff,111b,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+isalnum:
-  ;db 0,0,0,0,0,0,11111111b,11b,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+  push eax ebx
-isalnum:
+  mov al,byte[edx] ;al=offset
-  push eax ebx
+  shr al,3
-  mov al,byte[edx] ;al=offset
+  and eax,11111b
-  shr al,3
+  mov ebx,tab_all_num
-  and eax,11111b
+  add ebx,eax
-  mov ebx,tab_all_num
+  mov ah,byte[ebx]
-  add ebx,eax
+  mov al,byte[edx] ;al=bit
-  mov ah,byte[ebx]
-  mov al,byte[edx] ;al=bit
+  and ax,111b
-  and ax,111b
+  mov bx,word[ebx]
+  btr bx,ax
-  m2m bx,word[ebx]
+  pop ebx eax
+  ret
-  btr bx,ax
+align 4
-  pop ebx eax
+isalpha:
+  push eax ebx
-  ret
+  mov al,byte[edx] ;al=offset
+  shr al,3
-isalpha:
+  and eax,11111b
-  push eax ebx
+  mov ebx,tab_alpha
-  mov al,byte[edx] ;al=offset
+  add ebx,eax
-  shr al,3
+  mov ah,byte[ebx]
-  and eax,11111b
+  mov al,byte[edx] ;al=bit
-  mov ebx,tab_alpha
+  and ax,111b
-  add ebx,eax
+  mov bx,word[ebx]
-  mov ah,byte[ebx]
+  btr bx,ax
-  mov al,byte[edx] ;al=bit
+  pop ebx eax
-  and ax,111b
+  ret
   m2m bx,word[ebx]
-  btr bx,ax
+align 4
-  pop ebx eax
+proc ted_show_help_f1, edit:dword
-  ret
+  push eax edx edi
   mov edi,dword[edit]
-ShowHelpF1:
+  call GetPos
-  push eax edx
+  push edx
+    call ItNextColorTag
-  call GetPos
+    mov eax,edx
-  push edx
+  pop edx
-    call ItNextColorTag
+  call ItPervColorTag
-    mov eax,edx
-  pop edx
+  cmp eax,ted_tex
-  call ItPervColorTag
+  jle @f
   cmp edx,ted_tex_1
-  cmp eax,[tex]
+  jle @f
-  jle @f
+    stdcall FindHelpId,eax
 	pop dx
 	  .wh_0b:
 	    cmp ebx,ecx ;while(l_pos>word_n
 	    jle .wh_0e
 	    dec ebx
-	    ColToIndexOffset ebx,edi
+	    ColToIndexOffset ebx,eax
 	    inc ebx
-	    cmp byte[edi+esi],dl ;&& Col[keyw[l_pos-1]].Text[pos]!=tf[i])
+	    cmp byte[eax+esi],dl ;&& Col[l_pos-1].Text[pos]!=tf[i])
 	    je .wh_0e
 	      dec ebx ;l_pos--;
 	    jmp .wh_0b
 	  .wh_0e:
 	  .wh_1b:
 	    cmp ebx,ecx ;while(l_pos>word_n
 	    jle .wh_1e
-	    ColToIndexOffset ecx,edi
+	    ColToIndexOffset ecx,eax
-	    cmp byte[edi+esi],dl
+	    cmp byte[eax+esi],dl
 	    je .wh_1e
 	      inc ecx ;word_n++;
 	    jmp .wh_1b
 	  .wh_1e:
 	pop dx
 	cmp ecx,ebx ;if(word_n==l_pos) break;
 	je @f
 	call IteratNext ;pos++;
-	cmp edx,eax ;for(...;i
+	cmp edx,dword[end_pos] ;for(...;i
 	je @f ;jge
 	inc esi
 	jmp @b
       @@:
-      pop edi esi
+      pop eax esi
-      mov dword[help_id],ecx
+      mov ted_help_id,ecx
-      ;return keyw[word_n];
+      ;return word_n;
     .if_0e:
-    .if_0e:
+  pop ecx ebx
-  pop ecx ebx
+  ret
-  ret
+endp

Subversion Repositories Kolibri OS

(root)/programs/other/t_edit/t_work.inc – Rev 1449 → 1456