Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 131 → Rev 130

/programs/demos/numcalc/trunk/@numcalc.asm
0,0 → 1,49
use32
db 'MENUET01'
dd 1
dd start
dd i_end
dd mem
dd mem
dd 0
dd 0
 
start:
push 66
pop eax
push 4
pop ebx
mov cl, 45h ; NumLock scancode
xor edx, edx
int 40h
mov al, 40 ; ñòàðøèå áèòû óæå îáíóëåíû
mov bl, 2 ; ñòàðøèå áèòû óæå îáíóëåíû
int 40h
event:
push 10
pop eax
int 40h
; ó íàñ ìîæåò áûòü òîëüêî îäíî ñîáûòèå - íàæàòà êëàâèøà
mov al, 2
int 40h
cmp al, 2
jnz event
; ó íàñ åñòü òîëüêî îäíà ãîðÿ÷àÿ êëàâèøà
push 70
pop eax
mov ebx, fileinfo
int 40h
jmp event
 
fileinfo:
dd 7
dd 0
dd 0
dd 0
dd 0
db '/rd/1/calc',0
 
i_end:
align 16
rb 16
mem:
Property changes:
Added: svn:executable
+*
\ No newline at end of property
/programs/demos/numcalc/trunk/build.bat
0,0 → 1,2
@fasm @numcalc.asm @numcalc
@pause
/programs/demos/bgitest/trunk/bgifont.inc
570,12 → 570,6
jg .nobold
end if
mov edx,[.color]
; \begin{diamond}[18.08.2006]
; starting from K0530 kernel interprets flag 0x1000000 as
; negate existing pixels colors, disregarding passed color
; we do not want this
and edx, 0xFFFFFF
; \end{diamond}[18.08.2006]
mov eax,38
int 0x40
test ebp,BGI_BOLD
/programs/demos/bgitest/trunk/bgitest.asm
72,6 → 72,7
include 'macros.inc'
;include 'debug.inc'
include 'bgifont.inc'
lang equ en;ru;en
 
START:
mov [help],0