Subversion Repositories Kolibri OS

Rev

Rev 131 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 131 Rev 485
Line -... Line 1...
- 
 
 1 
include '..\..\..\..\macros.inc'
1 
use32
 2 
use32
2 
        db      'MENUET01'
 3 
        db      'MENUET01'
3 
        dd      1
 4 
        dd      1
4 
        dd      start
 5 
        dd      start
5 
        dd      i_end
 6 
        dd      i_end
Line 13... Line 14...
13 
        pop     eax
 14 
        pop     eax
14 
        push    4
 15 
        push    4
15 
        pop     ebx
 16 
        pop     ebx
16 
        mov     cl, 45h         ; NumLock scancode
 17 
        mov     cl, 45h         ; NumLock scancode
17 
        xor     edx, edx
 18 
        xor     edx, edx
18 
        int     40h
 19 
        mcall
19 
        mov     al, 40          ; ñòàðøèå áèòû óæå îáíóëåíû
 20 
        mov     al, 40          ; ñòàðøèå áèòû óæå îáíóëåíû
20 
        mov     bl, 2           ; ñòàðøèå áèòû óæå îáíóëåíû
 21 
        mov     bl, 2           ; ñòàðøèå áèòû óæå îáíóëåíû
21 
        int     40h
 22 
        mcall
22 
event:
 23 
event:
23 
        push    10
 24 
        push    10
24 
        pop     eax
 25 
        pop     eax
25 
        int     40h
 26 
        mcall
26 
; ó íàñ ìîæåò áûòü òîëüêî îäíî ñîáûòèå - íàæàòà êëàâèøà
 27 
; ó íàñ ìîæåò áûòü òîëüêî îäíî ñîáûòèå - íàæàòà êëàâèøà
27 
        mov     al, 2
 28 
        mov     al, 2
28 
        int     40h
 29 
        mcall
29 
        cmp     al, 2
 30 
        cmp     al, 2
30 
        jnz     event
 31 
        jnz     event
31 
; ó íàñ åñòü òîëüêî îäíà ãîðÿ÷àÿ êëàâèøà
 32 
; ó íàñ åñòü òîëüêî îäíà ãîðÿ÷àÿ êëàâèøà
32 
        push    70
 33 
        push    70
33 
        pop     eax
 34 
        pop     eax
34 
        mov     ebx, fileinfo
 35 
        mov     ebx, fileinfo
35 
        int     40h
 36 
        mcall
36 
        jmp     event
 37 
        jmp     event
Line 37... Line 38...
37 
 
 38 
 
38 
fileinfo:
 39 
fileinfo:
39 
        dd      7
 40 
        dd      7