Subversion Repositories Kolibri OS

    org 0                ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0

    db 'MENUET01'        ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)

    dd 1                 ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 

    dd start             ;  ¤à¥á, ­  ª®â®àë© á¨á⥬  ¯¥à¥¤ ñâ ã¯à ¢«¥­¨¥

                         ; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥­¨ï ¢ ¯ ¬ïâì

    dd i_end             ; à §¬¥à ¯à¨«®¦¥­¨ï

    dd mem               ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 

    dd mem               ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥

    dd 0                ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.

    dd 0;pathprog       ;¯ãâì ¨ ¨¬ï ¯à®£¨

include "../../../proc32.inc"

include "API.INC"

include "../../../dll.inc"

include '../../../develop/libraries/box_lib/trunk/box_lib.mac'

;include '../../../KOSfuncs.inc'

;include '../../../load_lib.mac'

        mcall 68,11      ;¨­¨æ¨ «¨§¨à㥬 ªãçã

        test eax,eax

        jz Win1.Exit

        stdcall dll.Load, @IMPORT

;       mov edi,pathprog

;       xor al,al

;

;       repne scasb

;

;       dec edi

;       mov esi,WordFile

;      @@:

;       lodsb

;       stosb

;       test al,al

;       jne @b

        ;test eax,eax                    ;§ ®¤­® ¨ ¯®«ãçã à §¬¥à ä ©« 

        ;je WordFileOK

        ;jmp Win1.Redraw

;       stdcall mem.Alloc,dword [fInfo+32]

;       mov ebx,dword [fInfo+32]

;       mov [filBuffer],eax

;       add dword[fInfo+32],eax  ;§¤¥áì åà ­¨âáï 㪠§ â¥«ì ­  ª®­¥æ ¡ãä¥à 

;       ReadFile fStruc,pathprog,ebx,eax,0

;       test eax,eax

;       jz Win1.Redraw

;

;       add al,30h

;       mov [NumErr],al

;       stdcall [mb_create],msgNotFound1,mbThread

;

Win1.Redraw:

        RedrawWinBeg

        mov ebx,(524*10000h+500)

        mov ecx,(548*10000h+200)

        mov edx,73FFFFFFh

        mov edi,Win1.Caption

        int 40h                      ;®ª­® á ¯à®§à ç­ë¬ ä®­o¬

        mov ebx,[ThreadInfo+3Eh]

        inc ebx

        mov ecx,[ThreadInfo+42h]

        inc ecx

        mov edx,clWhite

        int 40h                      ;  ⥯¥àì ­¥ ¯à®§à ç­ë¬:)

        call NextPerev

        stdcall [edit_box_draw],EditIN

        RedrawWinEnd

Win1.Events:

        WaitMessage

        dec eax

        jz Win1.Redraw

        dec eax

        jz Win1.Key

        dec eax

        jz Win1.ButtonPress

        GetButtonPressed

        je Win1.Exit

        GetKeyPressed

        stdcall [edit_box_key],EditIN

        jmp Win1.FonRedraw

        mcall 9,ThreadInfo,-1

        mov ebx,[ThreadInfo+3Eh]

        inc ebx

        mov ecx,20

        shl ecx,16

        add ecx,[ThreadInfo+42h]

        sub ecx,19

        mov edx,clWhite

        int 40h

        call NextPerev

jmp Win1.Events

        mov edi,dict;[filBuffer]

        xor ebx,ebx

      @@:                 ;áà ¢­¨¥¬ ¨áå. á«®¢® á® á«®¢®¬ ¯®¤ esi

        mov al,[text+ebx]

        test al,al

        je endWord

        cmp [ebx+edi],al

        jne WordNotFound

        inc ebx

        jmp @b

        cmp byte[ebx+edi],20h

        jne WordNotFound

        dec edi              ;¯à®¯ã᪠¥¬ ¯à®¡¥«ë ¯®á«¥  ­£«¨©áª®£® á«®¢ 

      @@:

        inc edi

        cmp byte[edi],20h

        je @b

     CopyWord:               ;ª®¯¨à㥬 ¯¥à¥¢®¤ ¢ áâப㠤«ï ¢ë¢®¤ 

        mov al,[edi+ebx]

        cmp al,0Dh

        je @f

        mov [perevText+ebx],al

        inc ebx

        jmp CopyWord

      @@:

        mov byte[perevText+ebx],0

        ret

        add edi,ebx

      @@:

        cmp byte[edi],0Dh

        je NextWord

        inc edi

        cmp edi,SizeDict;dword [fInfo+32]

        jae endPerev

        jmp @b

        add edi,2

        cmp edi,SizeDict;dword [fInfo+32]

        jae endPerev

        jmp Perev

    endPerev:

        ret

NextPerev:

        mov ecx,Lines

        mov edi,dict;[filBuffer]

  LinePerev:           ;横« à¨á®¢ ­¨ï áâப¨

        xor ebx,ebx

      @@:                 ;áà ¢­¨¥¬ ¨áå. á«®¢® á® á«®¢®¬ ¯®¤ esi

        mov al,[text+ebx]

        test al,al

        je N_endWord

        cmp [ebx+edi],al

        jne N_WordNotFound

        inc ebx

        jmp @b

        cmp ebx,0

        jne N_Ppoisk

        ret

        add edi,ebx

      @@:

        dec edi

        cmp byte[edi],0Ah

        jne @b

        inc edi

        xor ebx,ebx

    N_NoDouble:

        mov al,[text+ebx]

        test al,al

        je N_Double

        cmp [ebx+edi],al

        jne N_NoDblOk

        inc ebx

        jmp N_NoDouble

        cmp byte[ebx+edi],20h

        jne N_NoDblOk

      @@:

        inc edi

        cmp byte[edi],0Ah

        jne @b

        add edi,2

        jmp LinePerev

        xor ebx,ebx        ;ª®¯¨à㥬 १ã«ìâ â

     N_CopyWord:

        mov al,[edi+ebx]

        cmp al,20h

        je @f

        mov [perevText+ebx],al

        inc ebx

        jmp N_CopyWord

      @@:

        mov byte[perevText+ebx],0

        add edi,ebx

        sub eax,ecx

        dec eax

        shl eax,3

        add eax,45

        push ecx

        push edi

        OutText 7,ax,perevText

        pop edi

        pop ecx

        inc edi

        cmp byte[edi],20h

        je @b

     N_CopyPerev:

        mov al,[edi+ebx]

        cmp al,0Dh

        je @f

        mov [perevText+ebx],al

        inc ebx

        jmp N_CopyPerev

      @@:

        mov byte[perevText+ebx],0

        sub eax,ecx

        dec eax

        shl eax,3

        add eax,45

        push ecx

        push edi

        OutText 127,ax,perevText

        pop edi

        pop ecx

        inc edi

        cmp byte[edi],0Ah

        jne @b

        inc edi

        ret

      @@:

        jmp LinePerev

        add edi,ebx

      @@:

        cmp byte[edi],0Dh

        je N_NextWord

        inc edi

        cmp edi,SizeDict;dword [fInfo+32]

        jae N_endPerev

        jmp @b

        add edi,2

        cmp edi,SizeDict;dword [fInfo+32]

        jae N_endPerev

        jmp LinePerev

    N_endPerev:

        ret

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

;------DATA---------------------------------------------------------------------

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

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

        Win1X           = 524

        Win1Y           = 548

        Win1W           = 500

        Win1H           = 200

        Memo.Y  = 20

        Memo.W  = 400

        Memo.H  = 370

                        text,mouse_dd,ed_focus,0,0

;                       dw 0

;                       db 'Žè¨¡ª ',0

;                       db '” ©« dictionary.wrd ­¥ ­ ©¤¥­',0

;                       db 'Ÿá­®',0

;                       db 0

;

;       msgNotFound1:

;                       dw 0

;                       db '!!!',0

;                       db 'Žè¨¡ª  ç⥭¨ï '

;                    NumErr:    db 0

;                               db 0

;                       db 'Ÿá­®',0

;                       db 0

;

;       WordFile        db '.wrd',0

@IMPORT:

library box_lib,'box_lib.obj',msgbox,'msgbox.obj'

import  box_lib,\

        edit_box_draw,'edit_box_draw',\

        edit_box_key,'edit_box_key';,\

        ;edit_box_mouse,'edit_box_mouse'

import  msgbox,\

        mb_create,'mb_create'

include 'dictionary.wrd'

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

;        m1 dd 0

        ;filBuffer      rd 1

        ;pathprog

        mouse_dd        rd 1

        text            rb 40

        perevText       rb 300

        ;fStruc         rb 30

        ;fInfo          rb 40

        mbThread        rb 1024

mem: