Subversion Repositories Kolibri OS

;

; END

; KolibriOS Team 2005-2013

;

;  note that 'mov al,xx' is shorter than 'mov eax,xx'

;           and if we know that high 24 bits of eax are zero, we can use 1st form

;           the same about ebx,ecx,edx

use32        ; âêëþ÷èòü 32-áèòíûé ðåæèì àññåìáëåðà

org 0x0      ; àäðåñàöèÿ ñ íóëÿ

db 'MENUET01'    ; 8-áàéòíûé èäåíòèôèêàòîð MenuetOS

dd 0x01          ; âåðñèÿ çàãîëîâêà (âñåãäà 1)

dd START         ; àäðåñ ïåðâîé êîìàíäû

dd IM_END        ; ðàçìåð ïðîãðàììû

dd I_END         ; êîëè÷åñòâî ïàìÿòè

dd stacktop      ; àäðåñ âåðøèíû ñòåêà

dd 0x0           ; àäðåñ áóôåðà äëÿ ïàðàìåòðîâ

dd cur_dir_path

include 'lang.inc'

include '../../../macros.inc'

include '../../../proc32.inc'

include '../../../dll.inc'

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

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

        @use_library

align 4

START:

load_libraries l_libs_start,end_l_libs

        inc     eax

        test    eax,eax

        jz      close

push    dword check1

call    [init_checkbox2]

stdcall dll.Init,[init_lib]

invoke  ini_get_int,ini_file,asettings,aautosave,0

        mov   [autosave],eax

        dec   eax

        jnz   @f

        bts   dword [check1.flags],1

@@:

        mcall   40,0x80000027

redraw:

    call draw_window

still:

    mov  al,10

    mcall                                    ;wait here for event

    dec  eax

    jz   redraw

    dec  eax

    jz   key

    dec  eax

    jz   button

    push dword check1

    call [check_box_mouse2]

    bt   dword [check1.flags],1

    jnc  @f

    mov  [autosave],1

    jmp  still

@@:

    mov  [autosave],0

    jmp  still

key:

    mov  al,2

    mcall                                    ;eax=2 - get key code

    mov  al,ah

     cmp  al,13

     je   restart

     cmp  al,19

     je   checkbox

     cmp  al,180

     je   restart_kernel

     cmp  al,181

     je   power_off

     cmp  al,27

     jne   still

close:

    mcall -1

button:

    mcall 17                                 ;eax=17 - get pressed button id

    xchg al,ah

    dec  eax

    jz   close

    dec  eax

    jz   restart_kernel

    dec  eax

    jz   restart

    dec  eax

    jnz  checkbox

power_off:

    push 2

    jmp  mcall_and_close

restart:

    push 3

    jmp  mcall_and_close

restart_kernel:

    push 4

mcall_and_close:

    invoke  ini_set_int,ini_file,asettings,aautosave,[autosave]

    cmp  [autosave],1

    jne   no_save

    mcall 70,rdsave

    test  eax,eax

    js    no_save

    mov   ecx,eax

    mcall 18,21

    mov   ecx,eax

@@:

    push ecx

    mcall 23,100

    dec   eax

    jnz   no_red

    call draw_window

no_red:

    pop   ecx

    mcall 9,proc_info

    cmp   [proc_info+50],9

    je    no_save

    jmp   @b

no_save:

    pop  ecx

    mcall 18,9

ret

checkbox:

    btc   dword [check1.flags],1

    jc    .1

    mov   [autosave],1

    jmp   .draw

.1:

    mov   [autosave],0

.draw:

    push  dword check1

    call  [check_box_draw2]

    jmp    still

draw_window:

    mov   al,12

    mcall   ,1

    mov   al,14

    mcall                                    ;eax=14 - get screen max x & max y

    movzx ecx,ax

    shr   eax,17

    shl   eax,16

    lea   ebx,[eax-110 shl 16+222]

    shr   ecx,1

    shl   ecx,16

    lea   ecx,[ecx-70 shl 16+117]

    xor   eax,eax

    mcall  , , ,0x019098b0,0x01000000        ;define and draw window

    mov   al,13

    mcall   ,<0,223> ,<0,118>

    mcall   ,<1,221>,<1,116>,0xffffff

    mcall   ,<2,220>,<2,115>,0xe4dfe1

    mov   al,8

    mcall   ,<16,90> ,<20,27>,4,0x990022     ;eax=8 - draw buttons

    mcall   ,<113,90>,       ,2,0xaa7700

    mcall   ,        ,<54,27>,1,0x777777

    mcall   ,<16,90> ,       ,3,0x007700

    mov   al,4

    mcall   ,<27,24> ,0x90ffffff,label2        ;eax=4 - write text

    mcall   ,<23,58> ,          ,label3

    mcall   ,<47,37> ,          ,label5

    mcall   ,<41,71> ,          ,label6

    push  dword check1

    call  [check_box_draw2]

    mov   al,12

    mcall   ,2

    ret

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

;data

include 'data.inc'

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

IM_END:

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

align 4

proc_info  rb 1024

autosave rd 1

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

cur_dir_path:

        rb 4096

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

library_path:

        rb 4096

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

align 32

        rb 4096

stacktop:

I_END:  ; ìåòêà êîíöà ïðîãðàììû