Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 484 → Rev 485

/programs/develop/examples/numcalc/trunk/@numcalc.asm
1,3 → 1,4
include '..\..\..\..\macros.inc'
use32
db 'MENUET01'
dd 1
15,17 → 16,17
pop ebx
mov cl, 45h ; NumLock scancode
xor edx, edx
int 40h
mcall
mov al, 40 ; ñòàðøèå áèòû óæå îáíóëåíû
mov bl, 2 ; ñòàðøèå áèòû óæå îáíóëåíû
int 40h
mcall
event:
push 10
pop eax
int 40h
mcall
; ó íàñ ìîæåò áûòü òîëüêî îäíî ñîáûòèå - íàæàòà êëàâèøà
mov al, 2
int 40h
mcall
cmp al, 2
jnz event
; ó íàñ åñòü òîëüêî îäíà ãîðÿ÷àÿ êëàâèøà
32,7 → 33,7
push 70
pop eax
mov ebx, fileinfo
int 40h
mcall
jmp event
 
fileinfo: