Subversion Repositories Kolibri OS

Rev

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

Rev 109 Rev 180
Line 10... Line 10...
10 
               org     0x0
 10 
               org     0x0
11 
               db     'MENUET01'              ; 8 byte id
 11 
               db     'MENUET01'              ; 8 byte id
12 
               dd     0x01                    ; header version
 12 
               dd     0x01                    ; header version
13 
               dd     START                   ; start of code
 13 
               dd     START                   ; start of code
14 
               dd     I_END                   ; size of image
 14 
               dd     I_END                   ; size of image
15 
               dd     0x2000000                 ; memory for app
 15 
               dd     0x100000                ; memory for app
16 
               dd     0x2000000                ; esp
 16 
               dd     0x100000                ; esp
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 20... Line 20...
20 
SCREEN_Y equ 200 ;600
 20 
SCREEN_Y equ 200 ;600
21 
 
 21 
 
22 
include 'lang.inc'
 22 
include 'lang.inc'
Line 23... Line 23...
23 
include 'ascl.inc'
 23 
include 'ascl.inc'
- 
 
 24 
include 'ascgl.inc'
24 
include 'ascgl.inc'
 25 
 
Line 25... Line 26...
25 
 
 26 
START:
26 
START:
 27 
red:
27 
    call draw_window
 28 
    call draw_window
Line 28... Line 29...
28 
 
 29 
 
29 
still:
 30 
still:
30 
    scevent red,key,button
 31 
    scevent red,key,button
31 
    fps  280,8,cl_White,cl_Black
 32 
    fps  290,8,cl_White,cl_Black
Line 61... Line 62...
61 
xxx:
 62 
xxx:
62 
     jmp still
 63 
     jmp still
Line 63... Line 64...
63 
 
 64 
 
Line 64... Line -...
64 
count dd 100
 - 
 
65 
 
 - 
 
66 
red:
 - 
 
67 
     call draw_window
 65 
count dd 100
68 
     jmp still
 66 
 
69 
key:
 67 
key:
70 
     mov eax,2
 68 
     mov eax,2
71 
     int 0x40
 69 
     int 0x40
Line 79... Line 77...
79 
     mov eax,-1
 77 
     mov eax,-1
80 
     int 0x40
 78 
     int 0x40
Line 81... Line 79...
81 
 
 79 
 
82 
;Draw window
 80 
;Draw window
- 
 
 81 
draw_window:
83 
draw_window:
 82
84 
    mov eax,12  ;Start
 83 
    mov eax,12  ;Start
85 
    mov ebx,1
 84 
    mov ebx,1
Line 86... Line 85...
86 
    int 0x40
 85 
    int 0x40
87 
 
 86 
 
88 
    mov eax,0   ;Draw window
 87 
    xor eax,eax   ;Draw window
89 
    mov ebx,100*65536+(SCREEN_X+9) ;x start*65536+x size
 88 
    mov ebx,100*65536+(SCREEN_X+19) ;x start*65536+x size
90 
    mov ecx,100*65536+(SCREEN_Y+26) ;y start*65536+y size
 - 
 
91 
    mov edx,0x03000000         ;0x03 use skinned window
 - 
 
92 
    int 0x40
 - 
 
93 
 
 - 
 
94 
    mov eax,4   ;Out Text
 - 
 
95 
    mov ebx,8*65536+8          ;x start*65536+y start
 89 
    mov ecx,100*65536+(SCREEN_Y+51) ;y start*65536+y size
96 
    mov ecx,0x00ffffff         ;color White
 - 
 
97 
    mov edx,head_label
 90 
    mov edx,0x33000000              ;0x33 use skinned window
Line 98... Line 91...
98 
    mov esi,hl_end-head_label
 91 
    mov edi,header
99 
    int 0x40
 92 
    int 0x40
100 
 
 93 
 
101 
    mov eax,12  ;End
 94 
    mov eax,12  ;End
Line 102... Line 95...
102 
    mov ebx,2
 95 
    mov ebx,2
103 
    int 0x40
 - 
 
Line 104... Line 96...
104 
    ret
 96 
    int 0x40
Line 105... Line 97...
105 
 
 97 
    ret
106 
head_label: db "3D TEST SAMPLE FOR MENUETOS"
 98