Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 485 Rev 539
1 
include '..\..\..\..\macros.inc'
 1 
include '..\..\..\..\macros.inc'
2 
use32
 2 
use32
3 
        db      'MENUET01'
 3 
        db      'MENUET01'
4 
        dd      1
 4 
        dd      1
5 
        dd      start
 5 
        dd      start
6 
        dd      i_end
 6 
        dd      i_end
7 
        dd      mem
 7 
        dd      mem
8 
        dd      mem
 8 
        dd      mem
9 
        dd      0
 9 
        dd      0
10 
        dd      0
 10 
        dd      0
11 
 
 11 
 
12 
start:
 12 
start:
13 
        push    66
 13 
        push    66
14 
        pop     eax
 14 
        pop     eax
15 
        push    4
 15 
        push    4
16 
        pop     ebx
 16 
        pop     ebx
17 
        mov     cl, 45h         ; NumLock scancode
 17 
        mov     cl, 45h         ; NumLock scancode
18 
        xor     edx, edx
 18 
        xor     edx, edx
19 
        mcall
 19 
        mcall
20 
        mov     al, 40          ; ñòàðøèå áèòû óæå îáíóëåíû
 20 
        mov     al, 40          ; ñòàðøèå áèòû óæå îáíóëåíû
21 
        mov     bl, 2           ; ñòàðøèå áèòû óæå îáíóëåíû
 21 
        mov     bl, 2           ; ñòàðøèå áèòû óæå îáíóëåíû
22 
        mcall
 22 
        mcall
23 
event:
 23 
event:
24 
        push    10
 24 
        push    10
25 
        pop     eax
 25 
        pop     eax
26 
        mcall
 26 
        mcall
27 
; ó íàñ ìîæåò áûòü òîëüêî îäíî ñîáûòèå - íàæàòà êëàâèøà
 27 
; ó íàñ ìîæåò áûòü òîëüêî îäíî ñîáûòèå - íàæàòà êëàâèøà
28 
        mov     al, 2
 28 
        mov     al, 2
29 
        mcall
 29 
        mcall
30 
        cmp     al, 2
 30 
        cmp     al, 2
31 
        jnz     event
 31 
        jnz     event
32 
; ó íàñ åñòü òîëüêî îäíà ãîðÿ÷àÿ êëàâèøà
 32 
; ó íàñ åñòü òîëüêî îäíà ãîðÿ÷àÿ êëàâèøà
33 
        push    70
 33 
        push    70
34 
        pop     eax
 34 
        pop     eax
35 
        mov     ebx, fileinfo
 35 
        mov     ebx, fileinfo
36 
        mcall
 36 
        mcall
37 
        jmp     event
 37 
        jmp     event
38 
 
 38 
 
39 
fileinfo:
 39 
fileinfo:
40 
        dd      7
 40 
        dd      7
41 
        dd      0
 41 
        dd      0
42 
        dd      0
 42 
        dd      0
43 
        dd      0
 43 
        dd      0
44 
        dd      0
 44 
        dd      0
45 
        db      '/rd/1/calc',0
 45 
        db      '/sys/calc',0
46 
 
 46 
 
47 
i_end:
 47 
i_end:
48 
        align   16
 48 
        align   16
49 
        rb      16
 49 
        rb      16
50 
mem:
 50 
mem: