Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 485 → Rev 109

/programs/games/pong/trunk/pong.asm
21,7 → 21,6
 
 
include 'lang.inc'
include '..\..\..\macros.inc'
include 'ascl.inc'
include 'ascgl.inc'
 
44,7 → 43,7
still:
 
mov eax,11 ; scan event
mcall
int 0x40
 
cmp eax,1 ; redraw request ?
je red
59,7 → 58,7
mov ecx,[scorea]
mov edx,300*65536+8
mov esi,cl_Blue
mcall
int 0x40
out_scoreb:
mov eax,47
mov ebx,5*65536
66,7 → 65,7
mov ecx,[scoreb]
mov edx,350*65536+8
mov esi,cl_Red
mcall
int 0x40
 
del_images:
setimg dword [ply1x],dword [ply1y],img4
291,7 → 290,7
 
key: ; key
mov eax,2
mcall
int 0x40
cmp ah,key_Left
jne no_l
sub dword [ply1rx],16
317,11 → 316,11
 
button: ; button
mov eax,17 ; get id
mcall
int 0x40
cmp ah,1 ; button id=1 ?
jne noclose
mov eax,-1 ; close this program
mcall
int 0x40
noclose:
jmp still