forked from KolibriOS/kolibrios
Yogev Ezra
87 lines
1.6 KiB
PHP
87 lines
1.6 KiB
PHP
;************************************
|
|
;******** Œ€Š�Ž‘› *******************
|
|
;************************************
|
|
; Constants= colors
|
|
;-----------------------梥â:0xRRGGBB
|
|
cBLACK = 0x000000 ; ç¥àë©
|
|
cRED = 0xFF0000 ; ªà áë©
|
|
cYELLOW = 0xFFFF00 ; ¦¥«âë©
|
|
cGREEN = 0x00FF00 ; §¥«¥ë©
|
|
cNAVY = 0x0000FF ; ᨨ©
|
|
cMAGENTA = 0xFF00FF ; ¬ «¨®¢ë©
|
|
cBLUE = 0x00FFFF ; £®«ã¡®©
|
|
cWHITE = 0xFFFFFF ; ¡¥«ë©
|
|
cBROWN = 0x554433 ; ª®à¨ç¥¢ë©
|
|
cB equ cBLACK
|
|
cW equ cWHITE
|
|
|
|
macro BeginProgram
|
|
{
|
|
use32
|
|
org 0x0
|
|
|
|
db 'MENUET01'
|
|
dd 0x01
|
|
dd __start
|
|
dd __end
|
|
dd __memory ; 0x10000
|
|
dd __stack ; 0x10000
|
|
dd 0x0 ; dd __params
|
|
dd 0x0
|
|
__start:
|
|
}
|
|
|
|
macro EndProgram
|
|
{
|
|
align 32
|
|
rb 256 ;512
|
|
__end:
|
|
__stack:
|
|
__memory:
|
|
}
|
|
|
|
|
|
macro LoopBegin lab,begi
|
|
{
|
|
push ecx ; ECX->STACK store old
|
|
mov ecx,begi
|
|
lab:
|
|
push ecx ; ECX->STACK counter store
|
|
}
|
|
|
|
macro LoopEnd lab,endi
|
|
{
|
|
pop ecx ;ECX<-STACK counter restore
|
|
inc ecx
|
|
cmp ecx,endi
|
|
jne lab
|
|
pop ecx ;ECX<-STACK restore old
|
|
}
|
|
|
|
macro SetEventMask mmm
|
|
{
|
|
mov eax,40
|
|
mov ebx,mmm
|
|
int 0x40
|
|
}
|
|
|
|
macro redraw_begin
|
|
{
|
|
mov eax,12
|
|
mov ebx,1
|
|
int 0x40
|
|
}
|
|
|
|
macro redraw_end
|
|
{
|
|
mov eax,12
|
|
mov ebx,2
|
|
int 0x40
|
|
}
|
|
|
|
macro EventIs eee,lll
|
|
{
|
|
cmp eax,eee
|
|
je lll
|
|
}
|