Subversion Repositories Kolibri OS

Rev

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

Rev 4867 Rev 4868
Line 87... Line 87...
87 
 
 87 
 
Line 88... Line 88...
88 
 
 88 
 
- 
 
 89 
;; Main entry points and COLD start data
Line 89... Line 90...
89 
   ;; Main entry points and COLD start data
 90 
 
Line 90... Line 91...
90 
 
 91 
 use32
91 
 use32
 92 
 format binary as ""
92 
 
 93 
 
93 
 	org    0x0
 94 
 	org    0x0
94 
 
 95 
 
95 
 	db     'MENUET01'	; 8 byte id
 96 
 	db     'MENUET01'
96 
 	dd     0x01	   ; header version
 97 
 	dd     0x01
Line 105... Line 106...
105 
end if
 106 
end if
106 
 	dd     0x0	; I_Param , I_Icon
 107 
 	dd     0x0	; I_Param , I_Icon
Line 107... Line 108...
107 
 
 108 
 
108 
 lang fix ru
 109 
 lang fix ru
109 
 include 'MACROS.INC'
 110 
 include 'MACROS.INC'
Line 110... Line 111...
110 
 include "proc32.inc"
 111 
 include '..\..\proc32.inc'
111 
 
 112 
 
Line 112... Line 113...
112 
align 4
 113 
align 4
Line 180... Line 181...
180 
 
 181 
 
181 
 draw_window:
 182 
 draw_window:
182 
 		pusha
 183 
	pusha
183 
 		mcall 12,1
 184 
	mcall 12,1
184 
   	mov   [fRed],ebx
 185 
	mov   [fRed],ebx
185 
    mcall 0, <0,FW_WIDTH>, <0,FW_HEIGHT>, 0x03000000, 0x805080D0, 0x005080D0
 186 
	mcall 0, <0,FW_WIDTH>, <0,FW_HEIGHT>, 0x54000000
- 
 
 187 
	; mcall 0,,,COL_WINDOW_BG, ,title ; define window
Line 186... Line 188...
186 
    mcall 4, <8,8>, 0x10DDEEFF, header, header.size
 188 
	mcall 71, 1, header
187 
 
 189 
 
188 
 		mcall 9,pinfo,-1
 190 
	mcall 9,pinfo,-1
189 
 		mov   eax,[pinfo.x_size]
 191 
	mov   eax,[pinfo.x_size]
Line 200... Line 202...
200 
 		div   ebx
 202 
	div   ebx
Line 201... Line 203...
201 
 
 203 
 
202 
 		mov   [pinfo.y_start],eax
 204 
	mov   [pinfo.y_start],eax
203 
    call  erase_screen
 205 
	call  erase_screen
204 
     mcall 12, 2
 - 
 
205 
if ~ SYSTEM eq EMUL
 206 
	mcall 12, 2
206 
    mcall 67,-1,-1,FW_WIDTH,FW_HEIGHT
 - 
 
207 
end if
 207 
	mcall 67,-1,-1,FW_WIDTH,FW_HEIGHT
208 
 		popa
 208 
	popa
Line -... Line 209...
- 
 
 209 
	ret
209 
 		ret
 210 
 
- 
 
 211 
 
210 
 
 212 
macro GetSkinHeight
211 
 lsz header,\
 213 
{
212 
   ru,'”®àâ ¤«ï MenuetOS (SPF)',\
 214 
	mov  eax,48
- 
 
 215 
	mov  ebx,4
Line 213... Line 216...
213 
   en,'EXAMPLE APPLICATION',\
 216 
	int 0x40
- 
 
 217 
}
- 
 
 218 
 
- 
 
 219 
erase_screen:
- 
 
 220 
	GetSkinHeight
- 
 
 221 
	mov ecx,eax
- 
 
 222 
	shl ecx,16
214 
   fr,"L'exemplaire programme"
 223 
	add ecx,[pinfo.y_size]
215 
 
 224 
	sub ecx,eax
216 
 erase_screen:
 - 
 
217 
 		mov   ebx,[pinfo.x_size]
 - 
 
218 
 		add   ebx,10 shl 16-20
 225 
	sub ecx,4
219 
 		mov   ecx,[pinfo.y_size]
 226 
	mov   ebx,[pinfo.x_size]
Line 220... Line 227...
220 
 		add   ecx,30 shl 16-35
 227 
	add   ebx,5 shl 16 - 9
Line 462... Line 469...
462 
  fRed  dd 1
 469 
  fRed  dd 1
463 
 last_ebp dd 0
 470 
 last_ebp dd 0
Line 464... Line 471...
464 
 
 471 
 
Line -... Line 472...
- 
 
 472 
 include 'amain.asm'
- 
 
 473
465 
 include 'amain.asm'
 474 
 header db   'Kolibri Forth v12.1',0
466 
 
 475 
 
467 
 FINFO:
 476 
 FINFO:
468 
 	.mode dd 0
 477 
 	.mode dd 0
469 
 			  dd 0
 478 
 			  dd 0
470 
 	.blk  dd 1
 479 
 	.blk  dd 1
471 
 	.buf  dd 0
 480 
 	.buf  dd 0
472 
 	.work dd os_work
 - 
 
473 
 	.path:
 - 
 
474 
 if SYSTEM eq MEOS
 - 
 
475 
; 	.path db 0
 - 
 
476 
; 	.path db '/HD/1/FORTH/AUTORUN.DAT',0
 - 
 
477 
; 	   db '/RD/1/AUTOLOAD.F'
 481 
 	.work dd os_work
478 
 else
 482 
 	.path:
479 
 	 db '/RD/1/AUTOLOAD.F'
 483 
 	 db '/RD/1/AUTOLOAD.F'
480 
; 	 db '/RD/1/EXAMPLE.F'
 - 
 
481 
;	   db '/RD/1/PICTURE.F'
 - 
 
482 
; 	 db '/RD/1/AUTORUN.DAT'
 - 
 
483 
; 	 db '/HD/1/FORTH/AUTORUN.DAT'
 484 
; 	 db '/RD/1/EXAMPLE.F'
484 
 end if
 485 
;	 db '/RD/1/PICTURE.F'
Line 485... Line 486...
485 
 	db 0
 486 
 	db 0