kolibrios-gitea/programs/other/dictionary/dictionary.ASM

use32                ; <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD>騩 32 ࠧ<>來<EFBFBD><EFA4AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    org 0x0                ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20>ᥣ<EFBFBD><E1A5A3> 0x0
    db 'MENUET01'        ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD><E1AFAE>塞<EFBFBD><EFA5AC><EFBFBD> 䠩<><E4A0A9> (8 <20><><EFBFBD><EFBFBD>)
    dd 0x1                ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ଠ<EFBFBD><E0ACA0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD><E1AFAE>塞<EFBFBD><EFA5AC><EFBFBD> 䠩<><E4A0A9>
    dd start                ; <20><><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>⥬<EFBFBD> <20><>।<EFBFBD><E0A5A4><EFBFBD> <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD>
                        ; <20><>᫥ <20><><EFBFBD><EFBFBD>㧪<EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    dd i_end                ; ࠧ<><E0A0A7><EFBFBD> <20>ਫ<EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    dd mem                  ; <20><>ꥬ <20>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20>⥪<EFBFBD> <20>⢥<EFBFBD><E2A2A5><EFBFBD> 0<>100 <20><><EFBFBD><EFBFBD> <20> <20><>஢<EFBFBD><E0AEA2><EFBFBD> <20><> <20>୨<EFBFBD><E0ADA8> 4 <20><><EFBFBD><EFBFBD><EFBFBD>
    dd mem                  ; <20><>ᯮ<EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>ࠧ<EFBFBD> <20><> ⥫<><E2A5AB> <20>ணࠬ<E0AEA3><E0A0AC>. <20><><EFBFBD>設<EFBFBD> <20>⥪<EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 㪠<><E3AAA0><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
    dd 0x0              ; 㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><>ப<EFBFBD> <20> <20><>ࠬ<EFBFBD><E0A0AC>ࠬ<EFBFBD>.
    dd 0;pathprog       ;<3B><><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20>ண<EFBFBD>

include "../../macros.inc"
include "../../proc32.inc"
include "API.INC"
include "../../dll.inc"
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../develop/libraries/box_lib/load_lib.mac'

start:
        mcall 68,11      ;<3B><><EFBFBD>樠<EFBFBD><E6A8A0><EFBFBD><EFBFBD><EFBFBD>㥬 <20><><EFBFBD><EFBFBD>
        test eax,eax
        jz Win1.Exit
        stdcall dll.Load, @IMPORT


;       mov ecx,1024
;       mov edi,pathprog
;       xor al,al
;
;       repne scasb
;
;       dec edi
;       mov esi,WordFile
;      @@:
;       lodsb
;       stosb
;       test al,al
;       jne @b

        ;GetFileInfo fStruc,pathprog,fInfo  ;<3B>஢<EFBFBD>ઠ <20><> <20><><EFBFBD><EFBFBD>稥 䠩<><E4A0A9>
        ;test eax,eax                    ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> 䠩<><E4A0A9>
        ;je WordFileOK

        ;stdcall [mb_create],msgNotFound,mbThread
        ;jmp Win1.Redraw

;WordFileOK:
;       stdcall mem.Alloc,dword [fInfo+32]
;       mov ebx,dword [fInfo+32]
;       mov [filBuffer],eax
;       add dword[fInfo+32],eax  ;<3B><><EFBFBD><EFBFBD><EFBFBD> <20>࠭<EFBFBD><E0A0AD><EFBFBD><EFBFBD> 㪠<><E3AAA0>⥫<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;       ReadFile fStruc,pathprog,ebx,eax,0
;       test eax,eax
;       jz Win1.Redraw
;
;       add al,30h
;       mov [NumErr],al
;       stdcall [mb_create],msgNotFound1,mbThread
;


align 4
Win1.Redraw:
        RedrawWinBeg

        xor eax,eax
        mov ebx,(524*10000h+500)
        mov ecx,(548*10000h+200)
        mov edx,73FFFFFFh
        mov edi,Win1.Caption
        int 40h                      ;<3B><><EFBFBD><EFBFBD> <20> <20>஧<EFBFBD><E0AEA7><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䮭o<E4AEAD>

        mcall 9,ThreadInfo,-1

        mov eax,13
        mov ebx,[ThreadInfo+3Eh]
        inc ebx
        mov ecx,[ThreadInfo+42h]
        inc ecx
        mov edx,clWhite
        int 40h                      ;<3B> ⥯<><E2A5AF><EFBFBD> <20><> <20>஧<EFBFBD><E0AEA7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:)

        call Perevod                 ; <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20>ࠧ<EFBFBD> <20><>ॢ<EFBFBD><E0A5A2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>񭭮<EFBFBD> ᫮<><E1ABAE>
        call NextPerev
        stdcall [edit_box_draw],EditIN
        RedrawWinEnd

align 4
Win1.Events:
        WaitMessage
        dec eax
        jz Win1.Redraw
        dec eax
        jz Win1.Key
        dec eax
        jz Win1.ButtonPress

        ;stdcall [edit_box_mouse],EditIN

        jmp Win1.Events

Win1.ButtonPress:
        GetButtonPressed

        cmp ah,idbExit
        je Win1.Exit

        jmp Win1.Events

Win1.Key:
        GetKeyPressed
        stdcall [edit_box_key],EditIN
        jmp Win1.FonRedraw


Win1.Exit:

        ExitProcess

Win1.FonRedraw:               ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>뢮<EFBFBD><EBA2AE>
        mcall 9,ThreadInfo,-1

        mov eax,13
        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 Perevod
        call NextPerev
jmp Win1.Events

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

Perevod:              ;ᠬ <20><>ॢ<EFBFBD><E0A5A2>
        mov edi,dict;[filBuffer]

    Perev:
        xor ebx,ebx
      @@:                 ;<3B>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20><><EFBFBD>. ᫮<><E1ABAE> <20><> ᫮<><E1ABAE><EFBFBD> <20><><EFBFBD> esi
        mov al,[text+ebx]
        test al,al
        je endWord
        cmp [ebx+edi],al
        jne WordNotFound
        inc ebx
        jmp @b

  endWord:
        cmp byte[ebx+edi],20h
        jne WordNotFound

        add edi,ebx
        dec edi              ;<3B>ய<EFBFBD>᪠<EFBFBD><E1AAA0> <20>஡<EFBFBD><E0AEA1><EFBFBD> <20><>᫥ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪮<EFBFBD><E1AAAE> ᫮<><E1ABAE>
      @@:
        inc edi
        cmp byte[edi],20h
        je @b

        xor ebx,ebx
     CopyWord:               ;<3B><><EFBFBD><EFBFBD><EFBFBD>㥬 <20><>ॢ<EFBFBD><E0A5A2> <20> <20><>ப<EFBFBD> <20><><EFBFBD> <20>뢮<EFBFBD><EBA2AE>
        mov al,[edi+ebx]
        cmp al,0Dh
        je @f
        mov [perevText+ebx],al
        inc ebx
        jmp CopyWord
      @@:
        mov byte[perevText+ebx],0

        OutText 7,25,perevText
        ret

  WordNotFound:          ;<3B>᫨ ᫮<><E1ABAE> <20><> <20><><EFBFBD><EFBFBD>諮
        add edi,ebx
      @@:
        cmp byte[edi],0Dh
        je NextWord
        inc edi
        cmp edi,SizeDict;dword [fInfo+32]
        jae endPerev
        jmp @b

    NextWord:
        add edi,2
        cmp edi,SizeDict;dword [fInfo+32]
        jae endPerev
        jmp Perev
    endPerev:
        ret


;-------------------------------------------------------------------------------
NextPerev:
        mov ecx,Lines
        mov edi,dict;[filBuffer]
  LinePerev:           ;横<> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD><EFBFBD> <20><>ப<EFBFBD>
        xor ebx,ebx
      @@:                 ;<3B>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20><><EFBFBD>. ᫮<><E1ABAE> <20><> ᫮<><E1ABAE><EFBFBD> <20><><EFBFBD> esi
        mov al,[text+ebx]
        test al,al
        je N_endWord
        cmp [ebx+edi],al
        jne N_WordNotFound
        inc ebx
        jmp @b

  N_endWord:
        cmp ebx,0
        jne N_Ppoisk
        ret

      N_Ppoisk:             ;<3B><><EFBFBD><EFBFBD><EFBFBD> <20><>砫<EFBFBD> <20><>ப<EFBFBD>
        add edi,ebx
      @@:
        dec edi
        cmp byte[edi],0Ah
        jne @b
        inc edi

                             ;########<23>ய<EFBFBD>᪠<EFBFBD><E1AAA0> 㦥 <20><>ॢ<EFBFBD><E0A5A2>񭭮<EFBFBD> ᫮<><E1ABAE>########
        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

    N_Double:
        cmp byte[ebx+edi],20h
        jne N_NoDblOk

        add edi,ebx
      @@:
        inc edi
        cmp byte[edi],0Ah
        jne @b
        add edi,2
        jmp LinePerev

     N_NoDblOk:              ;############<23>뢮<EFBFBD> १<><E0A5A7><EFBFBD><EFBFBD><EFBFBD>⮢####################
        xor ebx,ebx        ;<3B><><EFBFBD><EFBFBD><EFBFBD>㥬 १<><E0A5A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
     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

        mov eax,Lines
        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


        xor ebx,ebx
     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

        mov eax,Lines
        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

        loop @f      ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFA3A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> LinePerev
        ret
      @@:
        jmp LinePerev

  N_WordNotFound:
        add edi,ebx
      @@:
        cmp byte[edi],0Dh
        je N_NextWord
        inc edi
        cmp edi,SizeDict;dword [fInfo+32]
        jae N_endPerev
        jmp @b

    N_NextWord:
        add edi,2
        cmp edi,SizeDict;dword [fInfo+32]
        jae N_endPerev
        jmp LinePerev
    N_endPerev:
        ret

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

        idbExit = 1

        Lines   = 16        ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப

        clTheme = 080B0FFh

        Win1.Caption    db 'Dictionary ENG -> RUS',0
        Win1X           = 524
        Win1Y           = 548
        Win1W           = 500
        Win1H           = 200

        Memo.X  = 5
        Memo.Y  = 20
        Memo.W  = 400
        Memo.H  = 370

        EditIN edit_box 350,5,5,0FFFFFFh,06F9480h,0,00h,0,40,\
                        text,mouse_dd,ed_focus,0,0



;       msgNotFound:
;                       dw 0
;                       db '<27>訡<EFBFBD><E8A8A1>',0
;                       db '<27><><EFBFBD><EFBFBD> dictionary.wrd <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
;                       db '<27>᭮',0
;                       db 0
;
;       msgNotFound1:
;                       dw 0
;                       db '!!!',0
;                       db '<27>訡<EFBFBD><E8A8A1> <20>⥭<EFBFBD><E2A5AD> '
;                    NumErr:    db 0
;                               db 0
;                       db '<27>᭮',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',\
        edit_box_key,'edit_box_key';,\
        ;edit_box_mouse,'edit_box_mouse'
import  msgbox,\
        mb_create,'mb_create'

dict:
include 'dictionary.wrd'

SizeDict = $;-dict


i_end:
;-------------------------------------------------------------------------------

        ;WordFP         rb 1024
;        m1 dd 0
        ;filBuffer      rd 1


        ThreadInfo:     rb 1024
        ;pathprog
        mouse_dd        rd 1
        text            rb 40
        perevText       rb 300
        ;fStruc         rb 30
        ;fInfo          rb 40
        mbThread        rb 1024


        rb 4096
mem: