Subversion Repositories Kolibri OS

struct f70

  func_n dd ?

  param1 dd ?

  param2 dd ?

  param3 dd ?

  param4 dd ?

  rezerv db ?

  name dd ?

ends

struct TexColViv

  Text rb MAX_COLOR_WORD_LEN; // ñëîâî

  f1 dd 0

  wwo db ? ; whole words only

  endc db ? ; ñèìâîë êîíöà âûäåëåíèÿ (wwo&4)

  color db ? ; íîìåð öâåòà

ends

struct symbol

  c db ?    ;  +0 ñèìâîë

  col db ?  ;  +1 öâåò

  perv dd ? ;  +2

  next dd ? ;  +6 óêàçàòåëè

  tc dd ?   ; +10 âðåì. ñîçäàíèÿ

  td dd ?   ; +14 âðåì. óäàëåíèÿ

ends

hed db 'TextEditor 22.04.10',0 ;ïîäïèñü îêíà

sc system_colors

fn_icon db 'te_icon.bmp',0

bmp_icon dd 0

run_file_70 f70

;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

  @@:

  .end_key_fun:

  popad

  ret

endp

;output:

; al = 1 - can save

align 4

proc ted_can_save, edit:dword

  push ecx edi

  mov edi,dword[edit]

  mov ecx,ted_tim_ch

  sub ecx,ted_tim_undo

  mov al,1

  cmp ted_tim_ls,ecx

  jne @f

    dec al

  @@:

  pop edi ecx

  ret

endp

;output:

; 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,ted_sel_x0

    cmp ebx,ted_sel_x1

    jne @f

    mov ebx,ted_sel_y0

    cmp ebx,ted_sel_y1

    jne @f

    xor al,al

  @@:

  pop edi ebx

  ret

endp

align 4

proc SelNormalize, edit:dword

  push ecx esi edi

    mov edi,dword[edit]

    mov esi,edi

    add esi,ted_offs_sel

    add edi,ted_offs_seln

    mov ecx,sizeof.TexSelect

    rep movsb

	mov edi,dword[edit]

    jmp @f

    .swp_f:

      mov ecx,ted_seln_x0

      m2m ted_seln_x0,ted_seln_x1

      mov ted_seln_x1,ecx

      mov ecx,ted_seln_y0

      cmp ecx,ted_seln_y1 ;(sel_y0>sel_y1)

      jle .end_f

      m2m ted_seln_y0,ted_seln_y1

      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

    cmp ecx,ted_seln_y1 ;(sel_y0==sel_y1)

    jne .end_f

      mov ecx,ted_seln_x0

      cmp ecx,ted_seln_x1 ;(sel_x0>sel_x1)

      jg .swp_f

    .end_f:

  pop edi esi ecx

  ret

endp

align 4

proc SelStart, edit:dword

  push ecx edi

    mov edi,dword[edit]

    mov ecx,ted_cur_x

    add ecx,[hScr.position]

    mov ted_sel_x0,ecx

    mov ted_sel_x1,ecx

    mov ecx,ted_cur_y

    add ecx,[wScr.position]

    mov ted_sel_y0,ecx

    mov ted_sel_y1,ecx

  pop edi ecx

  ret

endp

align 4

proc SelMove, edit:dword

  push ecx edi

    mov edi,dword[edit]

    mov ecx,ted_cur_x

    add ecx,[hScr.position]

    mov ted_sel_x1,ecx

    mov ecx,ted_cur_y

    add ecx,[wScr.position]

    mov ted_sel_y1,ecx

  pop edi ecx

  call draw_but_toolbar ;redraw toolbar (need to button Copy)

  ret

endp

;input:

; cl_al_mem = 1 - clear all memory

align 4

proc ted_clear, edit:dword, cl_al_mem:dword

  push edi

  mov edi,dword[edit]

  mov ted_cur_x,0

  mov ted_cur_y,0

  mov ted_tim_ch,0

  mov ted_tim_ls,0

  mov ted_tim_co,0

  mov ted_tim_undo,0

  mov ted_help_id,-1

  mov [wScr.position],0

  mov [wScr.max_area],100

  mov [wScr.redraw],1

  mov [hScr.position],0

  mov [hScr.max_area],100

  mov ted_sel_x0,0

  mov ted_sel_y0,0

  mov ted_sel_x1,0

  mov ted_sel_y1,0

  cmp dword[cl_al_mem],0

  je .exit

  push ecx edx

  mov ecx,sizeof.symbol*maxChars

  mov edx,ted_tex

  @@:

    mov byte [edx],0

    inc edx

  loop @b

  mov edx,ted_tex

  mov dword [edx+6],1

  pop edx ecx

  .exit:

  pop edi

  ret

endp

;--- out_reg = Col[ind_reg].Text[0] ---

macro ColToIndexOffset ind_reg,out_reg {

  mov out_reg,ind_reg

  imul out_reg,sizeof.TexColViv

  add out_reg,ted_key_words_data

}

align 4

proc InitColText, edit:dword

  pushad

  mov edi,dword[edit]

  mov ebx,dword[fn_col_option]

  copy_path ebx,fn_syntax_dir,file_name_rez,0x0

  copy_path file_name_rez,sys_path,file_name,0x0

  mov eax,70

  mov [run_file_70.func_n], 0

  mov [run_file_70.param1], 0

  mov [run_file_70.param2], 0

  mov ebx,ted_syntax_file_end

  sub ebx,ted_syntax_file

  mov [run_file_70.param3], ebx

  m2m [run_file_70.param4], ted_syntax_file

  mov [run_file_70.rezerv], 0

  mov [run_file_70.name], file_name

  mov ebx,run_file_70

  int 0x40

  mov ecx,0x100

  mov edx,FkPos

  @@:

    mov dword[edx],-1

    add edx,4

  loop @b

  ;init: ted_colors_text_count, ted_key_words_count, ...

  mov ted_colors_text_count,1

  mov ted_key_words_count,0

    mov ted_help_text_f1,0

  mov ted_help_id,-1 ;èäåíòèôèêàòîð ñëîâà äëÿ ñïðàâêè

  cmp eax,6

  je @f

  cmp eax,0

  je @f

    cmp ax,10

    jl .zifra_0_9

      mov al,'?'

      sub ax,48

    .zifra_0_9:

    add ax,48

    mov byte[msgbox_3.err],al

    stdcall [mb_create],msgbox_3,thread ;message: Can-t open color options file!

    jmp .no_colors

  @@:

  mov eax,edi ;ñîõðàíÿåì çíà÷åíèå edi

  mov esi,ted_syntax_file

  add edi,ted_offs_count_colors

  mov ecx,9*4

  rep movsb

  mov edi,eax ;âîñòàíàâëèâàåì çíà÷åíèå edi

  mov eax,ted_syntax_file

  add eax,32

  mov ted_text_colors,eax

  mov eax,ted_colors_text_count ;init: count_colors_text (offset to key words)

  add eax,8

  shl eax,2

  add eax,ted_syntax_file

  mov ted_key_words_data,eax

  mov ecx,ted_key_words_count ;init: FkPos (first key positions)

  xor eax,eax

  @@:

    ColToIndexOffset eax,edx

    xor ebx,ebx

    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: ted_help_text_f1

  mov ecx,ted_key_words_count

  imul ecx,sizeof.TexColViv

  add ecx,ted_key_words_data

  mov ted_help_text_f1,ecx

  .no_colors:

  popad

  ret

endp

;input:

; ebx = file size

; edi = pointer to tedit struct

align 4

proc OpenFile

  push eax ;destination

  push ecx ;for cycle

  push edx ;source

    stdcall ted_clear,edi,0 ;÷èñòèì íå âñþ ïàìÿòü, ïîòîìó ÷òî íèæå áóäåì åå çàïîëíÿòü íîâûìè äàíûìè

    mov eax,ebx

    mov ecx,ebx

    add eax,2

    ConvertIndexToPointer eax

    mov edx,ted_tex

    add edx,ebx

  push ebx

    @@:

      mov ebx,[edx]

      mov byte [eax],bl

      mov dword [eax+2],ecx

      inc dword [eax+2]

      mov dword [eax+6],ecx

      add dword [eax+6],3

      ;mov byte[eax+1],0 ;col=0

      mov dword [eax+10],-1 ;tc=-1

      mov dword [eax+14],0 ;td=0

      cmp ecx,0

      je @f

      dec ecx

      dec edx

      sub eax,sizeof.symbol

      jmp @b

    @@:

  pop ebx

    add eax,2

    mov dword [eax],0 ; first sumbol 'perv=0'

    mov edx,ted_tex

    ; begining sumbol 'perv=0' 'next=2'

    mov dword [edx+2],0

    mov dword [edx+6],2

    add edx,sizeof.symbol

    mov dword [edx+6],0 ; last sumbol 'next=0'

    mov dword [edx+2],ebx ; last sumbol 'perv=last'

    inc dword [edx+2]

    mov edx,ebx

    inc edx ;2 = rezerv sumbols

    imul edx,sizeof.symbol

    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,ted_tex_end

      jge @f

	mov dword[edx+10],0

	mov dword[edx+14],0

      jmp @b

    @@:

    call GetNumLines

    cmp eax,100

    jge @f

      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

; edi = pointer to tedit struct

;output:

; edx = pointer to 'perv' visible symbol struct

align 4

IteratPerv:

  cmp ted_tim_undo,0

  je .else

  push ebx

  @@:

    call GetTexPervPos

    cmp edx,ted_tex

    je @f

    call SymbNotVis

    cmp bl,1

    je @b

    cmp byte[edx],10 ;ïðîïóñê ñèìâîëà ñ êîäîì 10

    je @b

  @@:

  pop ebx

  ret

  .else:

    call GetTexPervPos

    cmp edx,ted_tex

    je .endif

    cmp dword [edx+14],0

    jne .else

    cmp byte[edx],10 ;ïðîïóñê ñèìâîëà ñ êîäîì 10

    je .else

  .endif:

  ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

;output:

; edx = pointer to 'next' visible symbol struct

align 4

IteratNext:

  cmp ted_tim_undo,0

  je .else

  push ebx

  @@:

    call GetTexNextPos

    cmp edx,ted_tex_1

    jle @f

    call SymbNotVis

    cmp bl,1

    je @b

    cmp byte[edx],10 ;ïðîïóñê ñèìâîëà ñ êîäîì 10

    je @b

  @@:

  pop ebx

  ret

  .else:

    call GetTexNextPos

    cmp edx,ted_tex_1

    jle .endif

    cmp dword [edx+14],0

    jne .else

    cmp byte[edx],10 ;ïðîïóñê ñèìâîëà ñ êîäîì 10

    je .else

  .endif:

  ret

;input:

; bl = symbol end of select

; edx = pointer to symbol struct

; edi = pointer to tedit struct

align 4

ItPoNextUc:

  @@:

    cmp bl,byte[edx]

    je @f

    cmp edx,ted_tex_1

    jle @f

    call IteratNext

    jmp @b

  @@:

  call IteratNext

  ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

align 4

ItPervColorTag:

  @@:

    cmp byte[edx+1],0

    jne @f

    call IteratPerv

    cmp edx,ted_tex_1

    jle @f

    jmp @b

  @@:

  ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

align 4

ItNextColorTag:

  @@:

    call IteratNext

    cmp byte[edx+1],0

    jne @f

    cmp edx,ted_tex_1

    jle @f

    jmp @b

  @@:

  ;call IteratNext

  ret

;input:

; edx = pointer to symbol struct

; edi = pointer to tedit struct

;output:

; 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)

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,ted_tim_undo

  cmp eax,ted_tim_ch

  jg @f

    mov bl,1

    pop eax

    ret

  @@:

  mov eax,ted_tim_ch

  sub eax,ted_tim_undo

  cmp [edx+10],eax

  jle @f

    or bl,1

  @@:

  pop eax

  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

  locals

    new_spc dd ? ;count new spaces

	new_lin dd ? ;count new lines

  endl

;èñïîëüçîâàíèå ðåãèñòðîâ âíóòðè ôóíêöèè:

;eax - ïîçèöèÿ äëÿ âñòàâêè òåêñòà

;ebx - äëÿ âðåìåííûõ íóæä, äëèííà âñòàâëÿåìîãî òåêñòà

;ecx - äëÿ âðåìåííûõ íóæä

;edx - óêàçàòåëü íà ñòðóêòóðó ñèìâîëà

  pushad

  mov edi,dword[edit]

  mov esi,dword[text]

  call GetPos

  call GetTexPervPos

  call GetTexArrIndex ;eax=po_t

  mov dword[new_spc],0

  cmp ted_gp_opt,2

  je @f

    push eax ;c_sp=cur[cn].x+Scroller->XPos-StrLen(cur[cn].y+Scroller->YPos);

      mov eax,ted_cur_x

      add eax,[hScr.position]

      mov dword[new_spc],eax

      mov eax,ted_cur_y

      add eax,[wScr.position]

      call ted_strlen ;ebx = line len

      sub dword[new_spc],ebx

    pop eax

  @@:

  mov ebx,dword[t_len]

  mov dword[new_lin],0

  cmp ted_gp_opt,0

  jne @f

    push eax

      mov eax,ted_cur_y

      add eax,[wScr.position]

      inc eax

      mov dword[new_lin],eax

      call GetNumLines

      sub dword[new_lin],eax

    pop eax

  @@:

  mov edx,sizeof.symbol

  shl edx,1

  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

      test dword[add_opt],ted_opt_ed_change_time ;if(n_tim) ted_tim_ch++;

      jz .no_tim

	inc ted_tim_ch

      .no_tim:

      test dword[add_opt],ted_opt_ed_move_cursor

      jz .no_cur_mov

      cmp dword[new_lin],0 ;åñëè åñòü äîáàâî÷íûå ñòðîêè, òî êóðñîð åùå íå äâèãàåì

      jg .no_cur_mov

      cmp dword[new_spc],0 ;åñëè íåò äîáàâî÷íûõ ïðîáåëîâ, òî êóðñîð òîæå íå äâèãàåì

      jg .no_cur_mov

	inc ted_cur_x ;move cursor

	;call GoToPos

	cmp byte [esi],13

	jne .no_cur_mov

	  mov ted_cur_x,0

	  inc ted_cur_y

      .no_cur_mov:

      mov ecx,ted_opt_ed_change_time

	  not ecx

	  and dword[add_opt],ecx ;n_tim=false;

      mov cl,byte [esi] ;tex[i].c=ta[ns];

      mov byte [edx],cl

      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,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,ted_tex ; *** ecx = tex[tex[i].next] ***

      mov [ecx+2],eax ;tex[tex[i].next].perv=i;

      cmp dword[new_lin],0 ;add lines or text

      jle .spc_add

	dec dword[new_lin]

	mov byte [edx],13

	jmp .u1f

      .spc_add:

      cmp dword[new_spc],0 ;add spaces or text

      jle .tex_add

	dec dword[new_spc]

	mov byte [edx],' '

	jmp .u1f

      .tex_add:

      inc esi

      dec ebx

    .u1f:

    add edx,sizeof.symbol

    cmp edx,ted_tex_end

    jge @f ;out of memory

    cmp ebx,0

    jne @b

  @@:

  call CmColored

  popad

  ret

endp

;input:

;  ecx = position to free insert cell

;  edx = pointer to sumbol, when insert

;  esi = pointer to added symbol

;  edi = pointer to tedit struct

;output:

;  ecx = position to inserted cell

align 4

CharAdd:

  .loop_b:

    cmp ecx,ted_tex_end

    jge .end_f

    cmp dword[ecx+10],0

    jne @f

      cmp dword[ecx+14],0

      je .loop_e

    @@:

    add ecx,sizeof.symbol

    jmp .loop_b

  .loop_e:

  push eax ebx

  mov eax,ted_tim_ch

  mov dword[ecx+10],eax

  mov al,byte[esi]

  mov byte[ecx],al

  call GetTexArrIndex ; *** eax=pos ***

  mov [ecx+2],eax ;tex[i].perv=pos;

  m2m dword[ecx+6],dword[edx+6] ;tex[i].next=tex[pos].next;

  push edx

    mov edx,ecx

    call GetTexArrIndex ; *** eax=i ***

  pop edx

  mov [edx+6],eax ;tex[pos].next=i; // ññûëêè ïåðåíàïðàâëÿåì

  mov ebx,[ecx+6]

  ConvertIndexToPointer ebx

  mov [ebx+2],eax ;tex[tex[i].next].perv=i; // ...

  pop ebx eax

  .end_f:

  call CmColored

  ret

;input:

; conv_table = pointert to convert table

; edi = pointer to tedit struct

;output:

; esi = count converted symbols

align 4

proc ConvertSelText

  locals

    conv_cou dd ?

  endl

  mov dword[conv_cou],0

  pushad

  stdcall IsSel,edi

  cmp al,0

  je .end_f

    stdcall ted_set_undo,edi

    stdcall SelNormalize,edi

    mov esi,ted_seln_x0

    mov ecx,ted_seln_y0

    call GetPosByParam

    mov eax,edx

    mov esi,ted_seln_x1

    mov ecx,ted_seln_y1

    call GetPosByParam

    ;call GetTexPervPos

    mov ebx,edx

    cmp eax,ebx

    je .end_f

    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],ted_tim_ch

	call CharAdd ;b_pos=CharAdd(tex[i].c^32,i,false,b_pos);

	call GetTexNextPos ;go to added symbol

	inc dword[conv_cou]

      .no_change:

      call IteratNext

      cmp edx,ted_tex

      je @f

      cmp edx,ebx

      je @f

      jmp @b

    @@:

    cmp dword[conv_cou],0

    jne @f

      dec ted_tim_ch

    @@:

  .end_f:

  popad

  mov esi,dword[conv_cou]

  ret

endp

;output: