Subversion Repositories Kolibri OS

;

;     Slovarik 0.3.1 (10 August 2005)

;                    DoomEd Archangel

;

;*********HEADER************

	use32

	org 0x0

	db 'MENUET01'

	dd 0x01

	dd lblSTART

	dd lblIMG_END

	dd lblMEMORY

	dd lblSTACK

	dd 0x0,0x0

;****************************

include 'ascl.inc'

lblSTART:

	call load_ini  ;Load ini file (path to last opened dictionary

	call load_dict ;Load dictionary

;----if no errors then continue

win_redraw:

call draw_window

still:

	mov eax,10

	int 0x40

	cmp eax,1

	je win_redraw

	cmp eax,2

	je key_pressed

	cmp eax,3

	je button_pressed

jmp still

key_pressed:

	;mov eax,2

	int 0x40

	cmp ah,27

	je clear_all_2

	cmp ah,13

	je translate_now

	cmp [inputboxpressed],1

	jne not_print

	cmp ah,8

	jne not_backspace

	mov bl,[inputboxlen]

	cmp bl,1

	jb not_print

	dec [inputboxcurchar]

	dec [inputboxlen]

	xor ebx,ebx

	mov bl,[inputboxcurchar]

	mov byte [inputbox+ebx],0

	sub [xcursor],6

	call draw_inputbox

	call draw_cursor

	jmp still

	not_backspace:

	cmp [inputboxlen],52

	je not_print

	xor ebx,ebx

	mov bl,[inputboxcurchar]

	mov [inputbox+ebx],ah

	inc [inputboxcurchar]

	inc [inputboxlen]

	call draw_inputbox

	add [xcursor],6

	call draw_cursor

	not_print:

jmp still

button_pressed:

	mov eax,17

	int 0x40

	cmp ah,1

	je lbl_close_now

	cmp ah,2

	je inputbox_pressed

	cmp ah,3

	je translate_now

	cmp ah,4

	je change_dict

jmp still

draw_window:

pusha

	mov eax,12

	mov ebx,1

	int 0x40

	mov eax,0

	mov ebx,30*65536+400

	mov ecx,30*65536+170

	mov edx,0x14cccccc

	mov edi,win_header

	int 0x40

	mov eax,4

	mov ebx,10*65536+41

	mov ecx,0x00000000

	mov edx,txtWord

	mov esi,txtWord_l-txtWord ; 6

	int 0x40

	;mov eax,4

	mov ebx,10*65536+67

	;mov ecx,0x00000000

	mov edx,txtVariants

	mov esi,txtVariants_l-txtVariants ;9

	int 0x40

	;mov eax,4

	mov ebx,10*65536+91

	;mov ecx,0x00000000

	mov edx,txtTranslate

	mov esi,txtTranslate_l-txtTranslate ;8

	int 0x40

	;mov eax,4

	mov ebx,10*65536+115

	;mov ecx,0x00000000

	mov edx,txtTranscript

	mov esi,txtTranscript_l-txtTranscript ;9

	int 0x40

	mov eax,8

	mov ebx,125*65536+150

	mov ecx,135*65536+20

	mov edx,3

	mov esi,0x00dddddd

	int 0x40

	mov eax,4

	mov ebx,168*65536+142

	mov ecx,0x00000000

	mov edx,txtTranslatenow

	mov esi,txtTranslatenow_l-txtTranslatenow ;9

	int 0x40

	mov eax,8

	mov ebx,10*65536+50

	mov ecx,135*65536+20

	mov edx,4

	mov esi,0x00dddddd

	int 0x40

	mov eax,4

	mov ebx,14*65536+142

	mov ecx,0x00000000

	mov edx,txtChangeDict

	mov esi,txtChangeDict_l-txtChangeDict  ;7

	int 0x40

;-------------------------------

	call draw_inputbox

	call print_variants

	call print_trans_word

	call print_transcript

;--------------------------------

	mov eax,12

	mov ebx,2

	int 0x40

popa

ret

draw_inputbox:

	mov eax,8

	mov ebx,68*65536+320

	mov ecx,38*65536+14

	mov edx,2

	int 0x40

	mov eax,13

	mov ebx,68*65536+320

	mov ecx,38*65536+14

	mov edx,0x00ffffff

	int 0x40

	call draw_inputbox_text

ret

draw_inputbox_text:

	mov eax,4

	mov ebx,70*65536+40

	mov ecx,0x00000000

	mov edx,inputbox

	mov esi,52

	int 0x40

ret

draw_cursor:

	mov eax,13

	mov bx,[xcursor]

	shl ebx,16

	mov bx,1

;        mov ebx,68*65536+1

	mov ecx,40*65536+10

	mov edx,0x000000ff

	int 0x40

ret

; END DRAW WINDOW

;-------------------PROGRAM-------------------

lbl_close_now:

	call save_ini

	mov eax,-1

	int 0x40

inputbox_pressed:

	mov [inputboxpressed],1

jmp still

print_variants:

	mov eax,13

	mov ebx,68*65536+320

	mov ecx,65*65536+14

	mov edx,0x00eeeeee

	int 0x40

	mov eax,4

	mov ebx,70*65536+67

	mov ecx,0x00000000

	mov edx,variants

	mov esi,52

	int 0x40

ret

translate_now:

	mov [inputboxpressed],0

	mov    edi,inputbox	;��।��塞 ����� ����񭭮� ��ப�

	mov    ecx,52 ;50

	xor    eax,eax

	repne  scasb

	sub    edi,inputbox

	dec    edi

	mov    [search_len],edi

	inc    [search_len]   ;------------increase

	cmp    [search_len],1

	je     nothing_in_inputbox

	call count_dict_size

	cmp [dict_size],0

	je still

	call   clear_tr_word

	call   clear_variants

	call clear_transcript

jmp search

count_dict_size:

pusha

	mov    edi,dictionary	  ;��।��塞 ����� ᫮����

	mov    ecx,0x7FFFF

	xor    eax,eax

	repne  scasb

	sub    edi,dictionary

	dec    edi

	mov    [dict_size],edi

popa

ret

nothing_in_inputbox:

	call clear_tr_word

	call clear_variants

	call clear_transcript

	cld

	mov esi,errNothingEntered

	mov edi,tr_word

	mov ecx,14

	rep movsb

jmp win_redraw

clear_inputbox:

    cld

    mov edi,inputbox

    mov ecx,13 ;52/4

    xor eax,eax

    rep stosd

    mov [inputboxcurchar],0

    mov [xcursor],69

ret

clear_tr_word:

    cld

    mov edi,tr_word

    mov ecx,13 ;52/4

    xor eax,eax

    rep stosd

ret

clear_variants:

    cld

    mov edi,variants

    mov ecx,13 ;52/4

    xor eax,eax

    rep stosd

ret

clear_transcript:

    cld

    mov edi,trscript_word

    mov ecx,13 ;52/4

    xor eax,eax

    rep stosd

ret

clear_all_in_1:

    cld

    mov edi,inputbox ; 52*4 = 208 / 4 = 52

    mov ecx,52

    xor eax,eax

    rep stosd

    mov [inputboxpressed],1

    mov [inputboxcurchar],0

    mov [xcursor],69

ret

clear_all_2:

	call clear_all_in_1

	call draw_window

jmp still

print_trans_word:

	mov eax,13

	mov ebx,68*65536+320

	mov ecx,89*65536+14

	mov edx,0x00eeeeee

	int 0x40

	mov eax,4

	mov ebx,70*65536+91

	mov ecx,0x00000000

	mov edx,tr_word

	mov esi,52

	int 0x40

ret

trans_not_found:

    cld

    mov esi,tr_not_found_text

    mov edi,tr_word

    mov ecx,18 ;200

    rep movsb

    call clear_transcript

    call clear_variants

    call draw_window

ret

print_transcript:

	mov eax,13

	mov ebx,68*65536+320

	mov ecx,113*65536+14

	mov edx,0x00eeeeee

	int 0x40

	mov eax,4

	mov ebx,70*65536+115

	mov ecx,0x00000000

	mov edx,trscript_word

	mov esi,52

	int 0x40

ret

;-----------------------------------------------------

; ����� �� ����� �����������

search:

    xor  esi,esi

    mov edi,dictionary	;������ � ���

    mov ecx,[dict_size] ;������ � ���

  news:

    push edi

  news2:

     ; 1) LOAD BYTES

     mov  al,[esi+inputboxplus] ; [esi+inputbox]

     mov  bl,[edi]

     ; 2) COMPARE BYTES

     cmp  al,bl

     je   yes_char

     ; 3) LETTER?

      cmp al,'A'

      jb notequal

      cmp al,'�'

      ja notequal

      ;----------

      cmp al,'z' ;122 ;z=122

      jbe cpLAT

;cpCYR

;---------------------TEST

     cmp  al,'�' ;cyr A

     jb   .bigletter ;if letter<128

       ;--------

	  cmp al,'�'

	  jae .more_175  ;if letter>175

	  sub  al,32

     jmp  compare_bytes

	  .more_175:

	  sub al,80

	  jmp compare_bytes

    .bigletter:

     cmp  al,'�'

     jae   .more_175_2

     add  al,32

     jmp compare_bytes

     .more_175_2:

     add al,80

     jmp compare_bytes

;---------------TEST

;cpLAT

      cpLAT:

     ; 4) A->a OR a->A

     cmp  al,'a'

     jb   @f

     add  al,-32

     jmp  compare_bytes

    @@:

     cmp  al,'Z'

     ja   notequal

     add  al,32

;-----

    compare_bytes:

     cmp  al,bl

     jne  notequal

  yes_char:

    inc  edi

    inc  esi

    cmp  esi,[search_len]

    jge  sfound

    jmp  news2

  notequal:

    pop  edi

    xor  esi,esi

    inc  edi

    loop news

    call trans_not_found

    jmp  still

    sfound:

    mov [total_smesh],edi ;ᬥ饭�� �� 䠩�� ᫮����

;-------------------

;-------search for transcription

    mov esi,[total_smesh]

    cld

  again0:

    lodsb

    cmp al,'|'

    jne again0

    mov [starting_transcrtiontion],esi

    cld

  again00:

    lodsb

    cmp al,'|' ;13

    jne again00

    mov [ending_transcrtiontion],esi

    mov eax,[starting_transcrtiontion]

    sub [ending_transcrtiontion],eax

    dec [ending_transcrtiontion]

	cld  ;����� �����

	mov esi,[starting_transcrtiontion]

	mov edi,trscript_word

	mov ecx,[ending_transcrtiontion]

	rep movsb

;-------search for translation

    mov esi,[starting_transcrtiontion]

    add esi,[ending_transcrtiontion]

    cld

  again:

    lodsb

    cmp al,'|'

    jne again

    mov [starting_kav],esi

    cld

  again2:

    lodsb

    cmp al,10 ;13

    jne again2

    mov [ending_kav],esi

    mov eax,[starting_kav]

    sub [ending_kav],eax

    dec [ending_kav]

;-----------------------------------------------

    cld  ;����� �����

    mov esi,[starting_kav]

    mov edi,tr_word

    mov ecx,[ending_kav]

    rep movsb

;--------

;search backward

	mov esi,[total_smesh]

	cld

	again3:

	lodsb

	cmp al,'|'

	jne again3

	mov [endingword],esi

	dec [endingword]

	again4:

	dec esi

	dec esi

	cld

	lodsb

	cmp al,10 ;13;' '

	jne again4

	mov [startingword],esi

	mov eax,[startingword]

	sub [endingword],eax

	cld  ;����� �����

	mov esi,[startingword]

	mov edi,variants

	mov ecx,[endingword]

	rep movsb

;-----------------------------------------------

    call draw_window

jmp still

;-----------------------------------------------------

;---clear dictionary

clear_dict:

    mov edi,dictionary

    mov ecx,131072 ; 0x80000 / 4

    xor eax,eax

    rep stosd

ret

;---- change dictionary

change_dict:

	opendialog draw_window,open_ok,open_err,fileinfo.path

open_ok:

	call clear_dict

	call clear_all_in_1

	call load_dict

jmp still

open_err:

	call load_dict.call_error

jmp still

;---- load dictionary

load_dict:

;-open                from ASCL 9

       mov  dword [fileinfo+8],1

       mov  eax,58

       mov  ebx,fileinfo

       int  0x40

       mov  eax,[dictionary+2]

       shr  eax,9

       inc  eax

       mov  dword [fileinfo+8],eax

       mov  eax,58

       mov  ebx,fileinfo

       int  0x40

;--------

	cmp eax,0  ;0- open ok

	je .return ; win_redraw

	cmp eax,5  ;5- open ok

	je .return

	cmp eax,6  ;6- open ok???????????

	je .return

; if we can't open the dictionary

	.call_error:

	cld

	mov esi,errDictNotFound

	mov edi,tr_word

	mov ecx,errDictNotFound_l-errDictNotFound ;23

	rep movsb

	call draw_window

	mov eax,5   ;delay

	mov ebx,100 ;1 sec

	int 0x40

	.return:

	call check_header

ret

;--- copy path to dictionary

copy_path:

	call count_dict_size ;int [dict_size] will be size of path to dictionary

	mov esi,dictionary

	mov edi,fileinfo.path ;40

	mov ecx,[dict_size]

	cld

	rep movsb

ret

;----------load config file

load_ini:

       cld

       mov esi,fileinfo_ini.inipath

       mov edi,fileinfo.path

       mov ecx,19

       rep movsb

       mov  eax,58

       mov  ebx,fileinfo

       int  0x40

       call copy_path

       mov [dict_size],0

       call clear_dict

ret

;----------------------------

clear_fileinfo_path:

    mov edi,fileinfo.path

    mov ecx,256/4

    xor eax,eax

    rep stosd

ret

;-------save config file

save_ini:

       cmp dword [dictionary],0

       jne .save

       call clear_fileinfo_path

       cld

       mov esi,default_dict_path

       mov edi,fileinfo.path

       mov ecx,14

       rep movsb

       .save:

       mov    edi,fileinfo.path     ;��।��塞 ����� ᫮����

       mov    ecx,256

       xor    eax,eax

       repne  scasb

       sub    edi,fileinfo.path

       dec    edi

       mov    [fileinfo_ini.size],edi

       mov  eax,58

       mov  ebx,fileinfo_ini

       int  0x40

ret

;------ check dictionary header

check_header:

	mov eax,'DICT'

	cmp dword [dictionary],eax

	je .return

		call clear_tr_word

	cld

	mov esi,errDictHeader

	mov edi,tr_word

	mov ecx,errDictHeader_l-errDictHeader ;23

	rep movsb

	.return:

ret

;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;data;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;

win_header:

db '�����ਪ', 0

win_header_l:

tr_not_found_text:

db '������� �� ������!'

tr_not_found_text_l:

txtWord:

db '�����:'

txtWord_l:

txtTranslate:

db '��ॢ��:'

txtTranslate_l:

txtVariants:

db '��ਠ���:'

txtVariants_l:

errDictNotFound:

db '�訡�� ������ 䠩�� ��� ����⨥ �⬥����!'

errDictNotFound_l:

txtTranslatenow:

db '��ॢ���'

txtTranslatenow_l:

errNothingEntered:

db '������ ᫮��!'

errNothingEntered_l:

txtTranscript:

db '�࠭��.:'

txtTranscript_l:

txtChangeDict:

db '�������'

txtChangeDict_l:

errDictHeader:

db '��� 䠩� �� ���� ᫮��६!'

errDictHeader_l:

xcursor dw 69

default_dict_path db '/RD/1/DICT.TXT'

fileinfo_ini:

.oper:

dd   1

dd   0x0

.size:

dd   256

dd   fileinfo.path

dd  os_work_mem

.inipath:

db '/rd/1/slovarik.ini',0

fileinfo:

dd   0	     ; 0 = ������ �����

dd   0x0       ; ����� ����� 䠩�� (512 ����, �㬥��� ��稭����� � ���)

dd   0x1       ; ᪮�쪮 ������ ���뢠��

dd   dictionary  ; �㤠 ���뢠��

dd   os_work_mem ; 0x10000  ; ������ ��� ࠡ��� �� - 4096 ����

.path:

db '',0  ;'/RD/1/DICT.TXT',0

lblIMG_END:

rb 257 ;times 257 db 0 ;for path

starting_kav dd 0

ending_kav dd 0

starting_transcrtiontion dd 0

ending_transcrtiontion dd 0

total_smesh dd 0

inputboxpressed db 0

search_len  dd 0

inputboxcurchar db 0

inputboxlen db 0

inputboxplus:

;db ' '

db 10 ;for search

inputbox:

rb 52 ;times 52 db 0

tr_word:

rb 52 ;times 52 db 0

trscript_word:

rb 52 ;times 52 db 0

variants:

rb 52  ;times 52 db 0

startingword dd 0

endingword dd 0

dict_size dd 0

dictionary:

rb 0x80000;~524 kb for dictionary

;0x100000 ;1 mb for future BIG dictionary :)

os_work_mem:

rb  0x10000

rb 4096

lblMEMORY:

lblSTACK: