Subversion Repositories Kolibri OS

Rev

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

Rev 6389 Rev 6506
Line 4... Line 4...
4
;   system	    :  MenuetOS64/KolibriOS
4
;   system	    :  MenuetOS64/KolibriOS
5
;   author	    :  Maciej Guba aka macgub
5
;   author	    :  Maciej Guba aka macgub
6
;   email	    :  macgub3@wp.pl
6
;   email	    :  macgub3@wp.pl
7
;   web 	    :  http://macgub.hekko.pl
7
;   web 	    :  http://macgub.hekko.pl
Line 8... Line -...
8
 
-
 
9
include "../../macros.inc"
-
 
10
 
8
 
11
timeout equ 3
9
timeout equ 3
12
XRES equ 500	    ; window size
10
XRES equ 500	    ; window size
13
YRES equ 500
11
YRES equ 500
14
maxx = XRES
12
maxx = XRES
Line 169... Line 167...
169
 
167
 
Line -... Line 168...
-
 
168
 
-
 
169
 
170
 
170
 call main_loop
-
 
171
 
-
 
172
 mov eax,7
-
 
173
 mov ebx,screen
-
 
174
 mov ecx,maxx*65536+maxy
Line 171... Line 175...
171
 
175
 xor edx,edx
Line 172... Line 176...
172
 call main_loop
176
 int 0x40
Line 173... Line 177...
173
 
177
 
174
 mcall 7,screen,,<0,0>
178
 
175
 
179
 
176
 
180
 
-
 
181
 
-
 
182
jmp still
-
 
183
 
Line -... Line 184...
-
 
184
 
177
 
185
 
-
 
186
include 'RAY.INC'
Line 178... Line -...
178
jmp still
-
 
179
 
187
 
180
 
188
;   *********************************************
-
 
189
;   *******  WINDOW DEFINITIONS AND DRAW ********
-
 
190
;   *********************************************
181
 
191
draw_window:
-
 
192
    mov  eax,12 		   ; function 12:tell os about windowdraw
Line -... Line 193...
-
 
193
    mov  ebx,1			   ; 2, end of draw
-
 
194
    int  0x40
182
include 'ray.inc'
195
 
Line 183... Line 196...
183
 
196
    mov  eax,48            ; get skin height
Line 184... Line 197...
184
;   *********************************************
197
    mov  ebx,4
185
;   *******  WINDOW DEFINITIONS AND DRAW ********
198
    int  0x40
186
;   *********************************************
199
 
187
draw_window:
200
    lea  ecx,[eax + (100 shl 16) + maxy+4]
188
 
201
    mov  edi,title
189
	mcall 12,1
202
    xor  eax,eax
190
 
203
    mov  ebx,100*65536+maxx+9   ; [x start] *65536 + [x size]
191
    mcall 48,4 ; get skin height
204
    mov  edx,0x74000000    ; window type
192
    lea ecx,[eax + (100 shl 16) + maxy+4]
205
	int  0x40