| 0,0 → 1,428 |
|---|
| struct FileInfoBlock |
| Function dd ? |
| Position dd ? |
| Flags dd ? |
| Count dd ? |
| Buffer dd ? |
| db ? |
| FileName 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 |
| |
| count_colors_text dd 1 |
| ColWords dd 0 |
| color_cursor dd ? |
| color_wnd_capt dd ? |
| color_wnd_work dd ? |
| color_wnd_bord dd ? |
| color_select dd ? |
| color_cur_text dd ? |
| color_wnd_text dd ? |
| |
| options_file dd 0 |
| options_file_end dd 0 |
| tex_colors dd 0 |
| tex_help_f1 dd 0 |
| |
| Col dd 0 ;óêàçàòåëü íà ñòðóêòóðû êëþ÷åâûõ ñëîâ TexColViv |
| |
| keyUpr dd 0 |
| err_opn db 0 ;îøèáêà îòêðûòèÿ ôàéëà |
| err_sav db 0 ;îøèáêà ñîõðàíåíèÿ ôàéëà |
| |
| sc system_colors |
| |
| run_file_70 FileInfoBlock |
| |
| align 4 |
| InitColText: |
| pushad |
| |
| mov ebx,dword[fn_col_option] |
| copy_path ebx,fn_syntax_dir,file_name_rez,0 |
| copy_path file_name_rez,sys_path,file_name,0 |
| |
| mov eax,70 |
| mov [run_file_70.Function], 0 |
| mov [run_file_70.Position], 0 |
| mov [run_file_70.Flags], 0 |
| mov ebx,[options_file_end] |
| sub ebx,[options_file] |
| mov [run_file_70.Count], ebx |
| m2m [run_file_70.Buffer], [options_file] |
| mov byte[run_file_70+20], 0 |
| mov [run_file_70.FileName], file_name |
| mov ebx,run_file_70 |
| int 0x40 |
| |
| |
| ;init: count_colors_text, ColWords, ... |
| mov dword[count_colors_text],1 |
| mov dword[ColWords],0 |
| mov dword[tex_help_f1],0 |
| |
| 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 |
| |
| jmp .no_colors |
| @@: |
| |
| mov esi,[options_file] |
| mov edi,count_colors_text |
| mov ecx,9*4 |
| rep movsb |
| |
| mov eax,[options_file] |
| add eax,32 |
| mov dword[tex_colors],eax |
| |
| mov eax,dword[count_colors_text] ;init: Col (offset to key words) |
| add eax,8 |
| shl eax,2 |
| add eax,[options_file] |
| mov dword[Col],eax |
| |
| ;init: tex_help_f1 |
| mov ecx,dword[ColWords] |
| imul ecx,sizeof.TexColViv |
| add ecx,dword[Col] |
| mov dword[tex_help_f1],ecx |
| |
| ;ôîðìèðîâàíèå òåêñòà â îêíå òåêñòîâîãî ðåäàêòîðà |
| stdcall [ted_clear], tedit0,1 |
| |
| stdcall print_capt,capt_header |
| |
| stdcall print_capt,col_1 |
| stdcall print_color,[color_cursor] |
| stdcall print_capt,col_2 |
| stdcall print_color,[color_wnd_capt] |
| stdcall print_capt,col_3 |
| stdcall print_color,[color_wnd_work] |
| stdcall print_capt,col_4 |
| stdcall print_color,[color_wnd_bord] |
| stdcall print_capt,col_5 |
| stdcall print_color,[color_select] |
| stdcall print_capt,col_6 |
| stdcall print_color,[color_cur_text] |
| |
| stdcall print_capt,col_7 |
| mov ecx,[count_colors_text] ;êîëè÷åñòâî öâåòîâ òåêñòà |
| mov eax,[tex_colors] |
| @@: |
| stdcall print_capt,capt_type_dd |
| stdcall print_color,[eax] |
| add eax,4 |
| loop @b |
| |
| stdcall print_capt,capt_lbl_wo |
| mov ecx,dword[ColWords] |
| mov eax,[Col] |
| xor ebx,ebx |
| @@: |
| inc ebx |
| stdcall print_word,eax,ebx |
| add eax,sizeof.TexColViv |
| loop @b |
| |
| stdcall print_capt,capt_lbl_f1 |
| mov ecx,dword[ColWords] |
| mov eax,[Col] |
| xor ebx,ebx |
| @@: |
| inc ebx |
| stdcall print_word_f1,eax,ebx |
| add eax,sizeof.TexColViv |
| loop @b |
| |
| stdcall [ted_init_scroll_bars], tedit0,4 |
| stdcall [ted_draw], tedit0 |
| |
| .no_colors: |
| popad |
| ret |
| |
| align 4 |
| proc print_color, color:dword |
| pushad |
| mov eax,dword[color] |
| |
| mov ebx,eax ;ìåíÿåì ìåñòàìè red è blue |
| shr ebx,16 |
| xchg al,bl |
| and eax,0xffff |
| and ebx,0xff |
| shl ebx,16 |
| or eax,ebx |
| |
| ror al,4 |
| ror eax,8 |
| ror al,4 |
| ror eax,8 |
| ror al,4 |
| rol eax,16 |
| mov edi,text_buffer |
| mov word[edi],'0x' |
| add edi,2 |
| mov ecx,6 |
| @@: |
| mov ebx,eax |
| and ebx,0xf |
| cmp bx,9 |
| jle .cifra |
| add bx,39 |
| .cifra: |
| add bx,48 |
| mov byte[edi],bl |
| inc edi |
| shr eax,4 |
| loop @b |
| mov byte[edi],13 |
| mov ebx,ted_opt_ed_change_time+ted_opt_ed_move_cursor |
| stdcall [ted_text_add], tedit0,text_buffer,9,ebx |
| popad |
| ret |
| endp |
| |
| align 4 |
| proc print_capt, capt:dword |
| pushad |
| mov esi,dword[capt] |
| stdcall str_len,esi |
| stdcall [ted_text_add], tedit0,esi,eax,ted_opt_ed_change_time+ted_opt_ed_move_cursor |
| popad |
| ret |
| endp |
| |
| align 4 |
| proc print_word, text:dword, index:dword |
| pushad |
| mov esi,text_buffer |
| mov byte[esi],0 |
| stdcall str_cat,esi,capt_beg_word |
| stdcall str_len,esi |
| add esi,eax |
| |
| mov edi,dword[text] |
| stdcall code_string,edi,esi ;êîäèðóåì ñòðîêó ñ êëþ÷åâûì ñëîâîì |
| stdcall str_cat,esi,capt_end_word |
| |
| cmp dword[edi+MAX_COLOR_WORD_LEN],0 ;f1 |
| je @f |
| stdcall str_cat,esi,capt_calc_f1 |
| stdcall str_cat_value,esi,[index] |
| stdcall str_cat,esi,capt_lbl_f1_use |
| jmp .end_f1_calc |
| @@: |
| stdcall str_cat,esi,capt_null |
| .end_f1_calc: |
| |
| mov esi,text_buffer |
| stdcall str_len,esi ;óçíàåì äëèííó âñåé ñòðîêè |
| stdcall [ted_text_add], tedit0,esi,eax,ted_opt_ed_change_time+ted_opt_ed_move_cursor |
| |
| mov ecx,edi |
| mov edi,text_buffer |
| mov byte[edi],',' |
| inc edi |
| mov byte[edi],0 |
| xor eax,eax |
| mov al,byte[ecx+MAX_COLOR_WORD_LEN+4] ;wwo |
| stdcall str_cat_value,edi,eax |
| stdcall str_len,edi |
| add edi,eax |
| mov byte[edi],',' |
| inc edi |
| |
| xor eax,eax |
| mov al,byte[ecx+MAX_COLOR_WORD_LEN+4+1] ;endc |
| cmp al,0 |
| je @f |
| stdcall str_cat_value,edi,eax |
| stdcall str_len,edi |
| add edi,eax |
| @@: |
| mov byte[edi],',' |
| inc edi |
| |
| xor eax,eax |
| mov al,byte[ecx+MAX_COLOR_WORD_LEN+4+2] ;color |
| stdcall str_cat_value,edi,eax |
| stdcall str_len,edi |
| add edi,eax |
| mov byte[edi],13 |
| inc edi |
| mov byte[edi],0 |
| |
| mov esi,text_buffer |
| stdcall str_len,esi |
| stdcall [ted_text_add], tedit0,esi,eax,ted_opt_ed_move_cursor |
| |
| popad |
| ret |
| endp |
| |
| align 4 |
| proc print_word_f1, text:dword, index:dword |
| pushad |
| mov edi,dword[text] |
| mov esi,dword[edi+MAX_COLOR_WORD_LEN] ;f1 |
| cmp esi,0 |
| je @f |
| mov ebx,text_buffer |
| mov byte[ebx],0 |
| stdcall str_cat,ebx,capt_point |
| stdcall str_cat_value,ebx,[index] |
| stdcall str_cat,ebx,capt_beg_db |
| stdcall str_len,ebx |
| add ebx,eax |
| |
| add esi,dword[tex_help_f1] |
| stdcall code_string,esi,ebx ;êîäèðóåì ñòðîêó |
| stdcall str_cat,ebx,capt_end_word_f1 |
| |
| mov ebx,text_buffer |
| stdcall str_len,ebx |
| stdcall [ted_text_add], tedit0,ebx,eax,ted_opt_ed_move_cursor |
| @@: |
| popad |
| ret |
| endp |
| |
| align 4 |
| proc code_string, text:dword, out_text:dword |
| pushad |
| mov esi,dword[text] |
| stdcall str_len,esi |
| mov ecx,eax |
| mov edi,dword[out_text] |
| |
| .copy: |
| mov al,byte[esi] |
| inc esi |
| cmp al,9 |
| je @f |
| cmp al,13 |
| je @f |
| cmp al,39 |
| je @f |
| mov byte[edi],al |
| inc edi |
| loop .copy |
| jmp .end_copy |
| @@: |
| mov byte[edi],39 |
| mov byte[edi+1],',' |
| add edi,2 |
| and eax,0xff |
| mov dword[edi],0 |
| call tl_convert_to_str |
| stdcall str_len,edi |
| add edi,eax |
| mov byte[edi],',' |
| mov byte[edi+1],39 |
| add edi,2 |
| loop .copy |
| .end_copy: |
| mov byte[edi],0 |
| popad |
| ret |
| endp |
| |
| align 4 |
| proc mem_clear, mem:dword, len:dword |
| push eax ecx edi |
| cld |
| xor al,al |
| mov edi, dword[mem] |
| mov ecx, dword[len] |
| repne stosb |
| pop edi ecx eax |
| ret |
| endp |
| |
| align 4 |
| proc str_cat, str1:dword, str2:dword |
| push eax ecx edi esi |
| mov esi,dword[str2] |
| stdcall str_len,esi |
| mov ecx,eax |
| inc ecx |
| mov edi,dword[str1] |
| stdcall str_len,edi |
| add edi,eax |
| cld |
| repne movsb |
| pop esi edi ecx eax |
| ret |
| endp |
| |
| align 4 |
| proc str_cat_value, str1:dword, value:dword |
| pushad |
| mov edi,[str1] |
| stdcall str_len,edi |
| add edi,eax |
| mov eax,[value] |
| call tl_convert_to_str |
| popad |
| ret |
| endp |
| |
| ;output: |
| ; eax = strlen |
| align 4 |
| proc str_len, str1:dword |
| mov eax,[str1] |
| @@: |
| cmp byte[eax],0 |
| je @f |
| inc eax |
| jmp @b |
| @@: |
| sub eax,[str1] |
| ret |
| endp |
| |
| ;input: |
| ; eax = value |
| ; edi = string buffer |
| align 4 |
| tl_convert_to_str: |
| pushad |
| stdcall mem_clear,edi,12 |
| 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 äàííàÿ êîìàíäà - ëèøíàÿ)) |
| or al,0x30 ;äàííàÿ êîìàíäà êîðî÷å ÷åì äâå âûøå |
| stosb ;çàïèñàòü ýëåìåíò èç ðåãèñòðà al â ÿ÷åêó ïàìÿòè es:edi |
| ret |