226 lines
3.4 KiB
PHP
226 lines
3.4 KiB
PHP
; new application structure
|
|
macro meos_app_start
|
|
{
|
|
use32
|
|
org 0x0
|
|
|
|
db 'MENUET01'
|
|
dd 0x01
|
|
dd __start
|
|
dd __end
|
|
dd __memory
|
|
dd __stack
|
|
|
|
if used __params & ~defined __params
|
|
dd __params
|
|
else
|
|
dd 0x0
|
|
end if
|
|
|
|
dd 0x0
|
|
}
|
|
MEOS_APP_START fix meos_app_start
|
|
|
|
macro code
|
|
{
|
|
__start:
|
|
}
|
|
CODE fix code
|
|
|
|
macro data
|
|
{
|
|
__data:
|
|
}
|
|
DATA fix data
|
|
|
|
macro udata
|
|
{
|
|
if used __params & ~defined __params
|
|
__params:
|
|
db 0
|
|
__end:
|
|
rb 255
|
|
else
|
|
__end:
|
|
end if
|
|
__udata:
|
|
}
|
|
UDATA fix udata
|
|
|
|
macro meos_app_end
|
|
{
|
|
align 32
|
|
rb 2048
|
|
__stack:
|
|
__memory:
|
|
}
|
|
MEOS_APP_END fix meos_app_end
|
|
|
|
|
|
; macro for defining multiline text data
|
|
struc mstr [sstring]
|
|
{
|
|
forward
|
|
local ssize
|
|
virtual at 0
|
|
db sstring
|
|
ssize = $
|
|
end virtual
|
|
dd ssize
|
|
db sstring
|
|
common
|
|
dd -1
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
; code profiling
|
|
macro STARTTIMER
|
|
{
|
|
push ecx
|
|
push ebx
|
|
rdtsc
|
|
push edx
|
|
push eax
|
|
}
|
|
|
|
macro STOPTIMER ;edx:eax = cpu cycles ellapsed
|
|
{
|
|
rdtsc
|
|
pop ebx
|
|
pop ecx
|
|
clc
|
|
sbb eax,ebx
|
|
sbb edx,ecx
|
|
pop ebx
|
|
pop ecx
|
|
}
|
|
|
|
|
|
; optimize the code for size
|
|
macro add arg1,arg2
|
|
{
|
|
if arg1 in <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
if arg2 eqtype 0
|
|
if (arg2) = 1
|
|
inc arg1
|
|
else
|
|
add arg1,arg2
|
|
end if
|
|
else
|
|
add arg1,arg2
|
|
end if
|
|
else
|
|
add arg1,arg2
|
|
end if
|
|
}
|
|
|
|
macro sub arg1,arg2
|
|
{
|
|
if arg2 eqtype 0
|
|
if (arg2) = 1
|
|
dec arg1
|
|
else
|
|
sub arg1,arg2
|
|
end if
|
|
else
|
|
sub arg1,arg2
|
|
end if
|
|
}
|
|
|
|
macro mov arg1,arg2
|
|
{
|
|
if arg1 in <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
if arg2 eqtype 0
|
|
if (arg2) = 0
|
|
xor arg1,arg1
|
|
else if (arg2) = 1
|
|
xor arg1,arg1
|
|
inc arg1
|
|
else if (arg2) = -1
|
|
or arg1,-1
|
|
else if (arg2) > -128 & (arg2) < 128
|
|
push arg2
|
|
pop arg1
|
|
else
|
|
mov arg1,arg2
|
|
end if
|
|
else
|
|
mov arg1,arg2
|
|
end if
|
|
else
|
|
mov arg1,arg2
|
|
end if
|
|
}
|
|
|
|
|
|
macro struct name
|
|
{
|
|
virtual at 0
|
|
name name
|
|
sizeof.#name = $ - name
|
|
end virtual
|
|
}
|
|
|
|
|
|
; structures used in MeOS
|
|
struc process_information
|
|
{
|
|
.cpu_usage dd ? ; +0
|
|
.window_stack_position dw ? ; +4
|
|
.window_stack_value dw ? ; +6
|
|
.not_used1 dw ? ; +8
|
|
.process_name rb 12 ; +10
|
|
.memory_start dd ? ; +22
|
|
.used_memory dd ? ; +26
|
|
.PID dd ? ; +30
|
|
.x_start dd ? ; +34
|
|
.y_start dd ? ; +38
|
|
.x_size dd ? ; +42
|
|
.y_size dd ? ; +46
|
|
.slot_state dw ? ; +50
|
|
rb (1024-52)
|
|
}
|
|
struct process_information
|
|
|
|
struc system_colors
|
|
{
|
|
.frame dd ?
|
|
.grab dd ?
|
|
.grab_button dd ?
|
|
.grab_button_text dd ?
|
|
.grab_text dd ?
|
|
.work dd ?
|
|
.work_button dd ?
|
|
.work_button_text dd ?
|
|
.work_text dd ?
|
|
.work_graph dd ?
|
|
}
|
|
struct system_colors
|
|
|
|
|
|
; constants
|
|
|
|
; events
|
|
EV_IDLE = 0
|
|
EV_TIMER = 0
|
|
EV_REDRAW = 1
|
|
EV_KEY = 2
|
|
EV_BUTTON = 3
|
|
EV_EXIT = 4
|
|
EV_BACKGROUND = 5
|
|
EV_MOUSE = 6
|
|
EV_IPC = 7
|
|
EV_STACK = 8
|
|
|
|
; event mask bits for function 40
|
|
EVM_REDRAW = 1b
|
|
EVM_KEY = 10b
|
|
EVM_BUTTON = 100b
|
|
EVM_EXIT = 1000b
|
|
EVM_BACKGROUND = 10000b
|
|
EVM_MOUSE = 100000b
|
|
EVM_IPC = 1000000b
|
|
EVM_STACK = 10000000b |