Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 485 → Rev 484

/programs/demos/trantest/trunk/trantest.asm
19,7 → 19,6
SCREEN_X equ 320 ;800
SCREEN_Y equ 200 ;600
 
include '..\..\..\macros.inc'
include 'lang.inc'
include 'ascl.inc'
include 'ascgl.inc'
67,16 → 66,16
 
key:
mov eax,2
mcall
int 0x40
jmp still
button:
mov eax,17
mcall
int 0x40
cmp ah,1
jne still
exit:
mov eax,-1
mcall
int 0x40
 
;Draw window
draw_window:
83,21 → 82,21
mov eax,12 ;Start
mov ebx,1
mcall
int 0x40
 
xor eax,eax ;Draw window
mov ebx,100*65536+(SCREEN_X+9) ;x start*65536+x size
mov ecx,100*65536+(SCREEN_Y+26) ;y start*65536+y size
mov edx,0x13000000 ;0x13 use skinned window
mov edi,title
mcall
mov edi,header
int 0x40
 
mov eax,12 ;End
mov ebx,2
mcall
int 0x40
ret
 
title db '3D TEST SAMPLE',0
header db '3D TEST SAMPLE',0
 
outscr:
 
106,7 → 105,7
mov ecx,SCREEN_X*65536+SCREEN_Y
mov edx,5*65536+22
mov ax,7
mcall
int 0x40
 
ret