Subversion Repositories Kolibri OS

Rev

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

Rev 316 Rev 485
Line 17... Line 17...
17 
               dd     0x0 , 0x0               ; I_Param , I_Icon
 17 
               dd     0x0 , 0x0               ; I_Param , I_Icon
Line 18... Line 18...
18 
 
 18 
 
19 
SCREEN_X equ 320 ;800
 19 
SCREEN_X equ 320 ;800
Line -... Line 20...
- 
 
 20 
SCREEN_Y equ 200 ;600
20 
SCREEN_Y equ 200 ;600
 21 
 
21 
 
 22 
include '..\..\..\macros.inc'
22 
include 'lang.inc'
 23 
include 'lang.inc'
Line 23... Line 24...
23 
include 'ascl.inc'
 24 
include 'ascl.inc'
Line 64... Line 65...
64 
 
 65 
 
Line 65... Line 66...
65 
count dd 100
 66 
count dd 100
66 
 
 67 
 
67 
key:
 68 
key:
68 
     mov eax,2
 69 
     mov eax,2
69 
     int 0x40
 70 
     mcall
70 
     jmp still
 71 
     jmp still
71 
button:
 72 
button:
72 
     mov eax,17
 73 
     mov eax,17
73 
     int 0x40
 74 
     mcall
74 
     cmp ah,1
 75 
     cmp ah,1
75 
     jne still
 76 
     jne still
76 
exit:
 77 
exit:
Line 77... Line 78...
77 
     mov eax,-1
 78 
     mov eax,-1
78 
     int 0x40
 79 
     mcall
Line 79... Line 80...
79 
 
 80 
 
80 
;Draw window
 81 
;Draw window
81 
draw_window:
 82 
draw_window:
Line 82... Line 83...
82
83
83 
    mov eax,12  ;Start
 84 
    mov eax,12  ;Start
84 
    mov ebx,1
 85 
    mov ebx,1
85 
    int 0x40
 86 
    mcall
86 
 
 87 
 
87 
    xor eax,eax   ;Draw window
 88 
    xor eax,eax   ;Draw window
Line 88... Line 89...
88 
    mov ebx,100*65536+(SCREEN_X+9) ;x start*65536+x size
 89 
    mov ebx,100*65536+(SCREEN_X+9) ;x start*65536+x size
89 
    mov ecx,100*65536+(SCREEN_Y+26) ;y start*65536+y size
 90 
    mov ecx,100*65536+(SCREEN_Y+26) ;y start*65536+y size
90 
    mov edx,0x13000000              ;0x13 use skinned window
 91 
    mov edx,0x13000000              ;0x13 use skinned window
91 
    mov edi,header
 92 
    mov edi,title
Line 92... Line 93...
92 
    int 0x40
 93 
    mcall
Line 93... Line 94...
93 
 
 94 
 
Line 94... Line 95...
94 
    mov eax,12  ;End
 95 
    mov eax,12  ;End
95 
    mov ebx,2
 96 
    mov ebx,2
96 
    int 0x40
 97 
    mcall
97 
    ret
 98 
    ret
98 
 
 99 
 
99 
header db '3D TEST SAMPLE',0
 100 
title db '3D TEST SAMPLE',0
Line 100... Line 101...
100 
 
 101 
 
Line 101... Line 102...
101 
outscr:
 102 
outscr:
102 
 
 103