Remove some duplicates: proc32.inc, macros.inc, struct.inc, etc.
git-svn-id: svn://kolibrios.org@7134 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
70ef44fcc1
commit
2c778124e3
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"life.asm", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "life")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("life.asm", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "life")
|
||||||
|
|||||||
@ -1,267 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"unvwater.asm", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "unvwater")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("unvwater.asm", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "%B")
|
||||||
|
|||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,264 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; language for programs
|
|
||||||
;lang fix ru ; ru en fr ge fi
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"meforth.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "meforth")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("meforth.ASM", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "meforth")
|
||||||
|
|||||||
@ -101,8 +101,8 @@ MEMS: dd EM ; memory for app
|
|||||||
dd cur_dir_path
|
dd cur_dir_path
|
||||||
|
|
||||||
lang fix ru
|
lang fix ru
|
||||||
include 'MACROS.INC'
|
include 'macros.inc'
|
||||||
include '..\..\proc32.inc'
|
include 'proc32.inc'
|
||||||
|
|
||||||
align 4
|
align 4
|
||||||
proc strncmp stdcall, s1:dword, s2:dword, n:dword
|
proc strncmp stdcall, s1:dword, s2:dword, n:dword
|
||||||
@ -182,20 +182,20 @@ BYE: mcall -1
|
|||||||
mcall 71, 1, header
|
mcall 71, 1, header
|
||||||
|
|
||||||
mcall 9,pinfo,-1
|
mcall 9,pinfo,-1
|
||||||
mov eax,[pinfo.x_size]
|
mov eax,[pinfo.box.width]
|
||||||
cdq
|
cdq
|
||||||
sub eax,20
|
sub eax,20
|
||||||
mov ebx,6
|
mov ebx,6
|
||||||
div ebx
|
div ebx
|
||||||
mov [pinfo.x_start],eax
|
mov [pinfo.box.left],eax
|
||||||
|
|
||||||
mov eax,[pinfo.y_size]
|
mov eax,[pinfo.box.height]
|
||||||
cdq
|
cdq
|
||||||
sub eax,40
|
sub eax,40
|
||||||
mov ebx,ROWH
|
mov ebx,ROWH
|
||||||
div ebx
|
div ebx
|
||||||
|
|
||||||
mov [pinfo.y_start],eax
|
mov [pinfo.box.top],eax
|
||||||
call erase_screen
|
call erase_screen
|
||||||
mcall 12, 2
|
mcall 12, 2
|
||||||
mcall 67,-1,-1,FW_WIDTH,FW_HEIGHT
|
mcall 67,-1,-1,FW_WIDTH,FW_HEIGHT
|
||||||
@ -214,10 +214,10 @@ erase_screen:
|
|||||||
GetSkinHeight
|
GetSkinHeight
|
||||||
mov ecx,eax
|
mov ecx,eax
|
||||||
shl ecx,16
|
shl ecx,16
|
||||||
add ecx,[pinfo.y_size]
|
add ecx,[pinfo.box.height]
|
||||||
sub ecx,eax
|
sub ecx,eax
|
||||||
sub ecx,4
|
sub ecx,4
|
||||||
mov ebx,[pinfo.x_size]
|
mov ebx,[pinfo.box.width]
|
||||||
add ebx,5 shl 16 - 9
|
add ebx,5 shl 16 - 9
|
||||||
mcall 13,,,0;xff
|
mcall 13,,,0;xff
|
||||||
ret
|
ret
|
||||||
@ -238,7 +238,7 @@ AHEADER 0,"CC_LINES",cfa_CC_LINES
|
|||||||
mov [ebp],edi
|
mov [ebp],edi
|
||||||
mov esi,[cursor]
|
mov esi,[cursor]
|
||||||
sub esi,edi
|
sub esi,edi
|
||||||
mov ecx,[pinfo.x_start]
|
mov ecx,[pinfo.box.left]
|
||||||
; test ecx,ecx
|
; test ecx,ecx
|
||||||
; jnz .no0
|
; jnz .no0
|
||||||
; inc ecx
|
; inc ecx
|
||||||
@ -261,7 +261,7 @@ AHEADER 0,"CC_LINES",cfa_CC_LINES
|
|||||||
jb .again
|
jb .again
|
||||||
and dword[ebp],0
|
and dword[ebp],0
|
||||||
; dpd esi
|
; dpd esi
|
||||||
mov eax,[pinfo.y_start]
|
mov eax,[pinfo.box.top]
|
||||||
shl eax,3
|
shl eax,3
|
||||||
sub ebp,eax
|
sub ebp,eax
|
||||||
cmp ebp,os_work
|
cmp ebp,os_work
|
||||||
@ -316,7 +316,7 @@ set_cur:
|
|||||||
mov [ebp],edi
|
mov [ebp],edi
|
||||||
mov esi,[cursor]
|
mov esi,[cursor]
|
||||||
sub esi,edi
|
sub esi,edi
|
||||||
mov ecx,[pinfo.x_start]
|
mov ecx,[pinfo.box.left]
|
||||||
; test ecx,ecx
|
; test ecx,ecx
|
||||||
; jnz .no0
|
; jnz .no0
|
||||||
; inc ecx
|
; inc ecx
|
||||||
@ -339,7 +339,7 @@ set_cur:
|
|||||||
jb e_.again
|
jb e_.again
|
||||||
and dword[ebp],0
|
and dword[ebp],0
|
||||||
; dpd esi
|
; dpd esi
|
||||||
mov eax,[pinfo.y_start]
|
mov eax,[pinfo.box.top]
|
||||||
shl eax,3
|
shl eax,3
|
||||||
sub ebp,eax
|
sub ebp,eax
|
||||||
cmp ebp,os_work
|
cmp ebp,os_work
|
||||||
@ -490,4 +490,4 @@ I_END:
|
|||||||
os_work rb 16*1024
|
os_work rb 16*1024
|
||||||
|
|
||||||
CTOP = $ ;next available memory in code dictionary
|
CTOP = $ ;next available memory in code dictionary
|
||||||
;=============================================================
|
;=============================================================
|
||||||
|
|||||||
@ -1,2 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("test.ASM", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "test")
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("test.ASM", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "test")
|
||||||
|
|||||||
@ -1,292 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a { ; mike.dld
|
|
||||||
if ~a eq
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
__CPU_type equ p6
|
|
||||||
SYSENTER_VAR equ 0
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld, updated by Ghost for Fast System Calls
|
|
||||||
local ..ret_point
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
|
|
||||||
if __CPU_type eq p5
|
|
||||||
int 0x40
|
|
||||||
else
|
|
||||||
if __CPU_type eq p6
|
|
||||||
push ebp
|
|
||||||
mov ebp, esp
|
|
||||||
push ..ret_point ; it may be 2 or 5 byte
|
|
||||||
sysenter
|
|
||||||
..ret_point:
|
|
||||||
pop edx
|
|
||||||
pop ecx
|
|
||||||
|
|
||||||
else
|
|
||||||
if __CPU_type eq k6
|
|
||||||
push ecx
|
|
||||||
syscall
|
|
||||||
pop ecx
|
|
||||||
else
|
|
||||||
display 'ERROR : unknown CPU type'
|
|
||||||
int 0x40
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; language for programs
|
|
||||||
lang fix ru ; ru en fr ge fi
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if (flag and 10000b) | (parmbytes=0)
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,422 +0,0 @@
|
|||||||
;
|
|
||||||
; Formatted Debug Output (FDO)
|
|
||||||
; Copyright (c) 2005-2006, mike.dld
|
|
||||||
; Created: 2005-01-29, Changed: 2006-11-10
|
|
||||||
;
|
|
||||||
; For questions and bug reports, mail to mike.dld@gmail.com
|
|
||||||
;
|
|
||||||
; Available format specifiers are: %s, %d, %u, %x (with partial width support)
|
|
||||||
;
|
|
||||||
|
|
||||||
; to be defined:
|
|
||||||
; __DEBUG__ equ 1
|
|
||||||
; __DEBUG_LEVEL__ equ 5
|
|
||||||
|
|
||||||
macro debug_func name {
|
|
||||||
if used name
|
|
||||||
name@of@func equ name
|
|
||||||
}
|
|
||||||
|
|
||||||
macro debug_beginf {
|
|
||||||
align 4
|
|
||||||
name@of@func:
|
|
||||||
}
|
|
||||||
|
|
||||||
debug_endf fix end if
|
|
||||||
|
|
||||||
macro DEBUGS _sign,[_str] {
|
|
||||||
common
|
|
||||||
local tp
|
|
||||||
tp equ 0
|
|
||||||
match _arg:_num,_str \{
|
|
||||||
DEBUGS_N _sign,_num,_arg
|
|
||||||
tp equ 1
|
|
||||||
\}
|
|
||||||
match =0 _arg,tp _str \{
|
|
||||||
DEBUGS_N _sign,,_arg
|
|
||||||
\}
|
|
||||||
}
|
|
||||||
|
|
||||||
macro DEBUGS_N _sign,_num,[_str] {
|
|
||||||
common
|
|
||||||
pushf
|
|
||||||
pushad
|
|
||||||
local ..str,..label,is_str
|
|
||||||
is_str = 0
|
|
||||||
forward
|
|
||||||
if _str eqtype ''
|
|
||||||
is_str = 1
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if is_str = 1
|
|
||||||
jmp ..label
|
|
||||||
..str db _str,0
|
|
||||||
..label:
|
|
||||||
add esp,4*8+4
|
|
||||||
mov edx,..str
|
|
||||||
sub esp,4*8+4
|
|
||||||
else
|
|
||||||
mov edx,_str
|
|
||||||
end if
|
|
||||||
if ~_num eq
|
|
||||||
if _num eqtype eax
|
|
||||||
if _num in <eax,ebx,ecx,edx,edi,ebp,esp>
|
|
||||||
mov esi,_num
|
|
||||||
else if ~_num eq esi
|
|
||||||
movzx esi,_num
|
|
||||||
end if
|
|
||||||
else if _num eqtype 0
|
|
||||||
mov esi,_num
|
|
||||||
else
|
|
||||||
local tp
|
|
||||||
tp equ 0
|
|
||||||
match [_arg],_num \{
|
|
||||||
mov esi,dword[_arg]
|
|
||||||
tp equ 1
|
|
||||||
\}
|
|
||||||
match =0 =dword[_arg],tp _num \{
|
|
||||||
mov esi,dword[_arg]
|
|
||||||
tp equ 1
|
|
||||||
\}
|
|
||||||
match =0 =word[_arg],tp _num \{
|
|
||||||
movzx esi,word[_arg]
|
|
||||||
tp equ 1
|
|
||||||
\}
|
|
||||||
match =0 =byte[_arg],tp _num \{
|
|
||||||
movzx esi,byte[_arg]
|
|
||||||
tp equ 1
|
|
||||||
\}
|
|
||||||
match =0,tp \{
|
|
||||||
'Error: specified string width is incorrect'
|
|
||||||
\}
|
|
||||||
end if
|
|
||||||
else
|
|
||||||
mov esi,0x7FFFFFFF
|
|
||||||
end if
|
|
||||||
call fdo_debug_outstr
|
|
||||||
popad
|
|
||||||
popf
|
|
||||||
}
|
|
||||||
|
|
||||||
macro DEBUGD _sign,_dec {
|
|
||||||
local tp
|
|
||||||
tp equ 0
|
|
||||||
match _arg:_num,_dec \{
|
|
||||||
DEBUGD_N _sign,_num,_arg
|
|
||||||
tp equ 1
|
|
||||||
\}
|
|
||||||
match =0 _arg,tp _dec \{
|
|
||||||
DEBUGD_N _sign,,_arg
|
|
||||||
\}
|
|
||||||
}
|
|
||||||
|
|
||||||
macro DEBUGD_N _sign,_num,_dec {
|
|
||||||
pushf
|
|
||||||
pushad
|
|
||||||
if (~_num eq)
|
|
||||||
if (_dec eqtype eax | _dec eqtype 0)
|
|
||||||
'Error: precision allowed only for in-memory variables'
|
|
||||||
end if
|
|
||||||
if (~_num in <1,2,4>)
|
|
||||||
if _sign
|
|
||||||
'Error: 1, 2 and 4 are only allowed for precision in %d'
|
|
||||||
else
|
|
||||||
'Error: 1, 2 and 4 are only allowed for precision in %u'
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
if _dec eqtype eax
|
|
||||||
if _dec in <ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
mov eax,_dec
|
|
||||||
else if ~_dec eq eax
|
|
||||||
if _sign = 1
|
|
||||||
movsx eax,_dec
|
|
||||||
else
|
|
||||||
movzx eax,_dec
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
else if _dec eqtype 0
|
|
||||||
mov eax,_dec
|
|
||||||
else
|
|
||||||
add esp,4*8+4
|
|
||||||
if _num eq
|
|
||||||
mov eax,dword _dec
|
|
||||||
else if _num = 1
|
|
||||||
if _sign = 1
|
|
||||||
movsx eax,byte _dec
|
|
||||||
else
|
|
||||||
movzx eax,byte _dec
|
|
||||||
end if
|
|
||||||
else if _num = 2
|
|
||||||
if _sign = 1
|
|
||||||
movsx eax,word _dec
|
|
||||||
else
|
|
||||||
movzx eax,word _dec
|
|
||||||
end if
|
|
||||||
else
|
|
||||||
mov eax,dword _dec
|
|
||||||
end if
|
|
||||||
sub esp,4*8+4
|
|
||||||
end if
|
|
||||||
mov cl,_sign
|
|
||||||
call fdo_debug_outdec
|
|
||||||
popad
|
|
||||||
popf
|
|
||||||
}
|
|
||||||
|
|
||||||
macro DEBUGH _sign,_hex {
|
|
||||||
local tp
|
|
||||||
tp equ 0
|
|
||||||
match _arg:_num,_hex \{
|
|
||||||
DEBUGH_N _sign,_num,_arg
|
|
||||||
tp equ 1
|
|
||||||
\}
|
|
||||||
match =0 _arg,tp _hex \{
|
|
||||||
DEBUGH_N _sign,,_arg
|
|
||||||
\}
|
|
||||||
}
|
|
||||||
|
|
||||||
macro DEBUGH_N _sign,_num,_hex {
|
|
||||||
pushf
|
|
||||||
pushad
|
|
||||||
if (~_num eq) & (~_num in <1,2,3,4,5,6,7,8>)
|
|
||||||
'Error: 1..8 are only allowed for precision in %x'
|
|
||||||
end if
|
|
||||||
if _hex eqtype eax
|
|
||||||
if _hex in <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
if ~_hex eq eax
|
|
||||||
mov eax,_hex
|
|
||||||
end if
|
|
||||||
else if _hex in <ax,bx,cx,dx,si,di,bp,sp>
|
|
||||||
if ~_hex eq ax
|
|
||||||
movzx eax,_hex
|
|
||||||
end if
|
|
||||||
shl eax,16
|
|
||||||
if (_num eq)
|
|
||||||
mov edx,4
|
|
||||||
end if
|
|
||||||
else if _hex in <al,ah,bl,bh,cl,ch,dl,dh>
|
|
||||||
if ~_hex eq al
|
|
||||||
movzx eax,_hex
|
|
||||||
end if
|
|
||||||
shl eax,24
|
|
||||||
if (_num eq)
|
|
||||||
mov edx,2
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
else if _hex eqtype 0
|
|
||||||
mov eax,_hex
|
|
||||||
else
|
|
||||||
add esp,4*8+4
|
|
||||||
mov eax,dword _hex
|
|
||||||
sub esp,4*8+4
|
|
||||||
end if
|
|
||||||
if ~_num eq
|
|
||||||
mov edx,_num
|
|
||||||
else
|
|
||||||
mov edx,8
|
|
||||||
end if
|
|
||||||
call fdo_debug_outhex
|
|
||||||
popad
|
|
||||||
popf
|
|
||||||
}
|
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
debug_func fdo_debug_outchar
|
|
||||||
debug_beginf
|
|
||||||
pushad
|
|
||||||
mov cl,al
|
|
||||||
mov ebx,1
|
|
||||||
mov eax,63
|
|
||||||
int 0x40
|
|
||||||
popad
|
|
||||||
ret
|
|
||||||
debug_endf
|
|
||||||
|
|
||||||
debug_func fdo_debug_outstr
|
|
||||||
debug_beginf
|
|
||||||
mov eax,63
|
|
||||||
mov ebx,1
|
|
||||||
.l1: dec esi
|
|
||||||
js .l2
|
|
||||||
mov cl,[edx]
|
|
||||||
or cl,cl
|
|
||||||
jz .l2
|
|
||||||
int 0x40
|
|
||||||
inc edx
|
|
||||||
jmp .l1
|
|
||||||
.l2: ret
|
|
||||||
debug_endf
|
|
||||||
|
|
||||||
debug_func fdo_debug_outdec
|
|
||||||
debug_beginf
|
|
||||||
or cl,cl
|
|
||||||
jz @f
|
|
||||||
or eax,eax
|
|
||||||
jns @f
|
|
||||||
neg eax
|
|
||||||
push eax
|
|
||||||
mov al,'-'
|
|
||||||
call fdo_debug_outchar
|
|
||||||
pop eax
|
|
||||||
@@: push 10
|
|
||||||
pop ecx
|
|
||||||
push -'0'
|
|
||||||
.l1: xor edx,edx
|
|
||||||
div ecx
|
|
||||||
push edx
|
|
||||||
test eax,eax
|
|
||||||
jnz .l1
|
|
||||||
.l2: pop eax
|
|
||||||
add al,'0'
|
|
||||||
jz .l3
|
|
||||||
call fdo_debug_outchar
|
|
||||||
jmp .l2
|
|
||||||
.l3: ret
|
|
||||||
debug_endf
|
|
||||||
|
|
||||||
debug_func fdo_debug_outhex
|
|
||||||
__fdo_hexdigits db '0123456789ABCDEF'
|
|
||||||
debug_beginf
|
|
||||||
mov cl,dl
|
|
||||||
neg cl
|
|
||||||
add cl,8
|
|
||||||
shl cl,2
|
|
||||||
rol eax,cl
|
|
||||||
.l1: rol eax,4
|
|
||||||
push eax
|
|
||||||
and eax,0x0000000F
|
|
||||||
mov al,[__fdo_hexdigits+eax]
|
|
||||||
call fdo_debug_outchar
|
|
||||||
pop eax
|
|
||||||
dec edx
|
|
||||||
jnz .l1
|
|
||||||
ret
|
|
||||||
debug_endf
|
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
macro DEBUGF _level,_format,[_arg] {
|
|
||||||
common
|
|
||||||
if __DEBUG__ = 1 & _level >= __DEBUG_LEVEL__
|
|
||||||
local ..f1,f2,a1,a2,c1,c2,c3,..lbl
|
|
||||||
_debug_str_ equ __debug_str_ # a1
|
|
||||||
a1 = 0
|
|
||||||
c2 = 0
|
|
||||||
c3 = 0
|
|
||||||
f2 = 0
|
|
||||||
repeat ..lbl-..f1
|
|
||||||
virtual at 0
|
|
||||||
db _format,0,0
|
|
||||||
load c1 word from %-1
|
|
||||||
end virtual
|
|
||||||
if c1 = '%s'
|
|
||||||
virtual at 0
|
|
||||||
db _format,0,0
|
|
||||||
store word 0 at %-1
|
|
||||||
load c1 from f2-c2
|
|
||||||
end virtual
|
|
||||||
if c1 <> 0
|
|
||||||
DEBUGS 0,_debug_str_+f2-c2
|
|
||||||
end if
|
|
||||||
c2 = c2 + 1
|
|
||||||
f2 = %+1
|
|
||||||
DEBUGF_HELPER S,a1,0,_arg
|
|
||||||
else if c1 = '%x'
|
|
||||||
virtual at 0
|
|
||||||
db _format,0,0
|
|
||||||
store word 0 at %-1
|
|
||||||
load c1 from f2-c2
|
|
||||||
end virtual
|
|
||||||
if c1 <> 0
|
|
||||||
DEBUGS 0,_debug_str_+f2-c2
|
|
||||||
end if
|
|
||||||
c2 = c2 + 1
|
|
||||||
f2 = %+1
|
|
||||||
DEBUGF_HELPER H,a1,0,_arg
|
|
||||||
else if c1 = '%d' | c1 = '%u'
|
|
||||||
local c4
|
|
||||||
if c1 = '%d'
|
|
||||||
c4 = 1
|
|
||||||
else
|
|
||||||
c4 = 0
|
|
||||||
end if
|
|
||||||
virtual at 0
|
|
||||||
db _format,0,0
|
|
||||||
store word 0 at %-1
|
|
||||||
load c1 from f2-c2
|
|
||||||
end virtual
|
|
||||||
if c1 <> 0
|
|
||||||
DEBUGS 0,_debug_str_+f2-c2
|
|
||||||
end if
|
|
||||||
c2 = c2 + 1
|
|
||||||
f2 = %+1
|
|
||||||
DEBUGF_HELPER D,a1,c4,_arg
|
|
||||||
else if c1 = '\n'
|
|
||||||
c3 = c3 + 1
|
|
||||||
end if
|
|
||||||
end repeat
|
|
||||||
virtual at 0
|
|
||||||
db _format,0,0
|
|
||||||
load c1 from f2-c2
|
|
||||||
end virtual
|
|
||||||
if (c1<>0)&(f2<>..lbl-..f1-1)
|
|
||||||
DEBUGS 0,_debug_str_+f2-c2
|
|
||||||
end if
|
|
||||||
virtual at 0
|
|
||||||
..f1 db _format,0
|
|
||||||
..lbl:
|
|
||||||
__debug_strings equ __debug_strings,_debug_str_,<_format>,..lbl-..f1-1-c2-c3
|
|
||||||
end virtual
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __include_debug_strings dummy,[_id,_fmt,_len] {
|
|
||||||
common
|
|
||||||
local c1,a1,a2
|
|
||||||
forward
|
|
||||||
if defined _len & ~_len eq
|
|
||||||
_id:
|
|
||||||
a1 = 0
|
|
||||||
a2 = 0
|
|
||||||
repeat _len
|
|
||||||
virtual at 0
|
|
||||||
db _fmt,0,0
|
|
||||||
load c1 word from %+a2-1
|
|
||||||
end virtual
|
|
||||||
if (c1='%s')|(c1='%x')|(c1='%d')|(c1='%u')
|
|
||||||
db 0
|
|
||||||
a2 = a2 + 1
|
|
||||||
else if (c1='\n')
|
|
||||||
dw $0A0D
|
|
||||||
a1 = a1 + 1
|
|
||||||
a2 = a2 + 1
|
|
||||||
else
|
|
||||||
db c1 and 0x0FF
|
|
||||||
end if
|
|
||||||
end repeat
|
|
||||||
db 0
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro DEBUGF_HELPER _letter,_num,_sign,[_arg] {
|
|
||||||
common
|
|
||||||
local num
|
|
||||||
num = 0
|
|
||||||
forward
|
|
||||||
if num = _num
|
|
||||||
DEBUG#_letter _sign,_arg
|
|
||||||
end if
|
|
||||||
num = num+1
|
|
||||||
common
|
|
||||||
_num = _num+1
|
|
||||||
}
|
|
||||||
|
|
||||||
macro include_debug_strings {
|
|
||||||
if __DEBUG__ = 1
|
|
||||||
match dbg_str,__debug_strings \{
|
|
||||||
__include_debug_strings dbg_str
|
|
||||||
\}
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
@ -1,337 +0,0 @@
|
|||||||
; language for programs
|
|
||||||
lang fix en ; ru en fr ge fi
|
|
||||||
|
|
||||||
@^ fix macro comment {
|
|
||||||
^@ fix }
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
name db data
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro szc name,elsz,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m
|
|
||||||
m = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m
|
|
||||||
m = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
; -------------------------
|
|
||||||
macro header a,[b] {
|
|
||||||
common
|
|
||||||
use32
|
|
||||||
org 0
|
|
||||||
db 'MENUET',a
|
|
||||||
forward
|
|
||||||
if b eq
|
|
||||||
dd 0
|
|
||||||
else
|
|
||||||
dd b
|
|
||||||
end if }
|
|
||||||
macro section name,algn
|
|
||||||
{
|
|
||||||
local boundary
|
|
||||||
boundary = 16
|
|
||||||
if ~algn eq
|
|
||||||
boundary = algn
|
|
||||||
end if
|
|
||||||
align boundary
|
|
||||||
label name
|
|
||||||
}
|
|
||||||
macro func name {
|
|
||||||
if ~used name
|
|
||||||
display 'FUNC NOT USED: ',`name,13,10
|
|
||||||
else
|
|
||||||
align 4
|
|
||||||
name:
|
|
||||||
;pushad
|
|
||||||
;pushfd
|
|
||||||
;dps `name
|
|
||||||
;newline
|
|
||||||
;mcall 5,1
|
|
||||||
;popfd
|
|
||||||
;popad
|
|
||||||
}
|
|
||||||
macro endf { end if }
|
|
||||||
|
|
||||||
macro jif _op1,_cond,_op2,_label,_op
|
|
||||||
{
|
|
||||||
if _op eq
|
|
||||||
cmp _op1,_op2
|
|
||||||
else
|
|
||||||
_op _op1,_op2
|
|
||||||
end if
|
|
||||||
j#_cond _label
|
|
||||||
}
|
|
||||||
|
|
||||||
macro diff16 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d
|
|
||||||
s = l2-l1
|
|
||||||
display title,': 0x'
|
|
||||||
repeat 8
|
|
||||||
d = '0' + s shr ((8-%) shl 2) and $0F
|
|
||||||
if d > '9'
|
|
||||||
d = d + 'A'-'9'-1
|
|
||||||
end if
|
|
||||||
display d
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
macro diff10 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d,z,m
|
|
||||||
s = l2-l1
|
|
||||||
z = 0
|
|
||||||
m = 1000000000
|
|
||||||
display title,': '
|
|
||||||
repeat 10
|
|
||||||
d = '0' + s / m
|
|
||||||
s = s - (s/m)*m
|
|
||||||
m = m / 10
|
|
||||||
if d <> '0'
|
|
||||||
z = 1
|
|
||||||
end if
|
|
||||||
if z <> 0
|
|
||||||
display d
|
|
||||||
end if
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
struc POINT _t,_dx,_dy {
|
|
||||||
.x _t _dx
|
|
||||||
.y _t _dy
|
|
||||||
}
|
|
||||||
|
|
||||||
; structure definition helper
|
|
||||||
macro struct name, [arg]
|
|
||||||
{
|
|
||||||
common
|
|
||||||
name@struct fix name
|
|
||||||
struc name arg {
|
|
||||||
}
|
|
||||||
|
|
||||||
macro struct_helper name
|
|
||||||
{
|
|
||||||
virtual at 0
|
|
||||||
name name
|
|
||||||
sizeof.#name = $ - name
|
|
||||||
name equ sizeof.#name
|
|
||||||
end virtual
|
|
||||||
}
|
|
||||||
|
|
||||||
ends fix } struct_helper name@struct
|
|
||||||
|
|
||||||
macro union [def]
|
|
||||||
{
|
|
||||||
common size@union = 0
|
|
||||||
origin@union = $
|
|
||||||
forward virtual
|
|
||||||
def
|
|
||||||
if $-origin@union > size@union
|
|
||||||
size@union = $-origin@union
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
common rb size@union
|
|
||||||
}
|
|
||||||
|
|
||||||
; 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)
|
|
||||||
}
|
|
||||||
|
|
||||||
struc system_colors
|
|
||||||
{
|
|
||||||
.frame dd ?
|
|
||||||
.grab dd ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light dd ?
|
|
||||||
.grab_text dd ?
|
|
||||||
.work dd ?
|
|
||||||
.work_button dd ?
|
|
||||||
.work_button_text dd ?
|
|
||||||
.work_text dd ?
|
|
||||||
.work_graph dd ?
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; 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
|
|
||||||
@ -1,3 +1,5 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
ROOT = "../../../../.."
|
ROOT = "../../../../.."
|
||||||
tup.foreach_rule("*.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B")
|
tup.foreach_rule("*.asm", FASM .. " %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B")
|
||||||
|
|||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,2 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.foreach_rule("*.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "%B")
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.foreach_rule("*.asm", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "%B")
|
||||||
|
|||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,269 +0,0 @@
|
|||||||
|
|
||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if (flag and 10000b) | (parmbytes=0)
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,220 +0,0 @@
|
|||||||
;*****************************************************************************
|
|
||||||
;*
|
|
||||||
;* Open Watcom Project
|
|
||||||
;*
|
|
||||||
;* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
|
|
||||||
;*
|
|
||||||
;* ========================================================================
|
|
||||||
;*
|
|
||||||
;* This file contains Original Code and/or Modifications of Original
|
|
||||||
;* Code as defined in and that are subject to the Sybase Open Watcom
|
|
||||||
;* Public License version 1.0 (the 'License'). You may not use this file
|
|
||||||
;* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
|
|
||||||
;* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
|
|
||||||
;* provided with the Original Code and Modifications, and is also
|
|
||||||
;* available at www.sybase.com/developer/opensource.
|
|
||||||
;*
|
|
||||||
;* The Original Code and all software distributed under the License are
|
|
||||||
;* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
|
|
||||||
;* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
|
|
||||||
;* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
|
|
||||||
;* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
|
|
||||||
;* NON-INFRINGEMENT. Please see the License for the specific language
|
|
||||||
;* governing rights and limitations under the License.
|
|
||||||
;*
|
|
||||||
;* ========================================================================
|
|
||||||
;*
|
|
||||||
;* Description: Structured macros for MASM/WASM.
|
|
||||||
;*
|
|
||||||
;*****************************************************************************
|
|
||||||
|
|
||||||
|
|
||||||
__label = 0
|
|
||||||
__depth = 0
|
|
||||||
__inner_loop = 0
|
|
||||||
|
|
||||||
_guess macro name
|
|
||||||
__depth = __depth + 1
|
|
||||||
__label = __label + 1
|
|
||||||
_set __astk,%__depth,__label,<>
|
|
||||||
__label = __label + 1
|
|
||||||
_set __estk,%__depth,__label,<>
|
|
||||||
ifnb <name>
|
|
||||||
name = __label
|
|
||||||
endif
|
|
||||||
endm
|
|
||||||
|
|
||||||
_quif macro cc,name
|
|
||||||
ifnb <name>
|
|
||||||
_set __elbl,,name,<>
|
|
||||||
_j cc,_l,%__elbl
|
|
||||||
else
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_j cc,_l,%__albl
|
|
||||||
endif
|
|
||||||
endm
|
|
||||||
|
|
||||||
_quit macro name
|
|
||||||
_quif ,name
|
|
||||||
endm
|
|
||||||
|
|
||||||
_admit macro
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
__label = __label + 1
|
|
||||||
_set __astk,%__depth,__label,<>
|
|
||||||
_set __elbl,,__estk,%__depth
|
|
||||||
_j ,_l,%__elbl
|
|
||||||
_label _l,%__albl
|
|
||||||
endm
|
|
||||||
|
|
||||||
_endguess macro
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_label _l,%__albl
|
|
||||||
_set __elbl,,__estk,%__depth
|
|
||||||
_label _l,%__elbl
|
|
||||||
__depth = __depth - 1
|
|
||||||
endm
|
|
||||||
|
|
||||||
_loop macro name
|
|
||||||
_guess name
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_label _m,%__albl
|
|
||||||
_set __elbl,,__estk,%__depth
|
|
||||||
_label _m,%__elbl
|
|
||||||
_set __llbl,%__depth,%__inner_loop,<>
|
|
||||||
_set __inner_loop,,%__depth,<>
|
|
||||||
endm
|
|
||||||
|
|
||||||
_loopif macro cc,name
|
|
||||||
ifnb <name>
|
|
||||||
_set __elbl,,name,<>
|
|
||||||
_j cc,_m,%__elbl
|
|
||||||
else
|
|
||||||
_set __albl,,__astk,%__inner_loop
|
|
||||||
_j cc,_m,%__albl
|
|
||||||
endif
|
|
||||||
endm
|
|
||||||
|
|
||||||
_until macro cc
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_jn cc,_m,%__albl
|
|
||||||
_set __inner_loop,,__llbl,%__depth
|
|
||||||
_endguess
|
|
||||||
endm
|
|
||||||
|
|
||||||
_endloop macro
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_j ,_m,%__albl
|
|
||||||
_set __inner_loop,,__llbl,%__depth
|
|
||||||
_endguess
|
|
||||||
endm
|
|
||||||
|
|
||||||
_if macro cc
|
|
||||||
_guess
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_jn cc,_l,%__albl
|
|
||||||
endm
|
|
||||||
|
|
||||||
_else macro
|
|
||||||
_admit
|
|
||||||
endm
|
|
||||||
|
|
||||||
_endif macro
|
|
||||||
_endguess
|
|
||||||
endm
|
|
||||||
|
|
||||||
_set macro base1,ext1,base2,ext2
|
|
||||||
base1&ext1 = base2&ext2
|
|
||||||
endm
|
|
||||||
|
|
||||||
_label macro base,ext
|
|
||||||
base&ext:
|
|
||||||
endm
|
|
||||||
|
|
||||||
_j macro cc,base,ext
|
|
||||||
j&cc base&ext
|
|
||||||
endm
|
|
||||||
|
|
||||||
_jn macro cc,base,ext
|
|
||||||
jn&cc base&ext
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnna macro label
|
|
||||||
ja label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnae macro label
|
|
||||||
jae label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnb macro label
|
|
||||||
jb label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnbe macro label
|
|
||||||
jbe label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnc macro label
|
|
||||||
jc label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnne macro label
|
|
||||||
je label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnng macro label
|
|
||||||
jg label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnge macro label
|
|
||||||
jge label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnl macro label
|
|
||||||
jl label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnle macro label
|
|
||||||
jle label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnno macro label
|
|
||||||
jo label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnp macro label
|
|
||||||
jp label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnns macro label
|
|
||||||
js label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnz macro label
|
|
||||||
jz label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnpe macro label
|
|
||||||
jpo label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnpo macro label
|
|
||||||
jpe label
|
|
||||||
endm
|
|
||||||
|
|
||||||
j macro label
|
|
||||||
jmp label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jn macro label
|
|
||||||
nop
|
|
||||||
endm
|
|
||||||
|
|
||||||
_shl macro reg,count
|
|
||||||
add reg,reg
|
|
||||||
endm
|
|
||||||
|
|
||||||
_rcl macro reg,count
|
|
||||||
adc reg,reg
|
|
||||||
endm
|
|
||||||
@ -1,268 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; language for programs
|
|
||||||
lang fix ru ; ru en fr ge fi
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -1,4 +1,4 @@
|
|||||||
include "MACROS.INC"
|
include "macros.inc"
|
||||||
;
|
;
|
||||||
; OS function implementation
|
; OS function implementation
|
||||||
; SmallC for KolibriOS
|
; SmallC for KolibriOS
|
||||||
|
|||||||
@ -1,2 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("SCC.ASM", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "SCC")
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("SCC.ASM", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "SCC")
|
||||||
|
|||||||
@ -1,6 +1,8 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" or (tup.getconfig("NO_MSVC") ~= "" and tup.getconfig("NO_GCC") ~= "") then return end
|
if tup.getconfig("NO_FASM") ~= "" or (tup.getconfig("NO_MSVC") ~= "" and tup.getconfig("NO_GCC") ~= "") then return end
|
||||||
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../../../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
|
||||||
OBJS = tup.foreach_rule("*.asm", "fasm %f %o", "%B.obj")
|
OBJS = tup.foreach_rule("*.asm", FASM .. " %f %o", "%B.obj")
|
||||||
if tup.getconfig("NO_GCC") == ""
|
if tup.getconfig("NO_GCC") == ""
|
||||||
then tup.rule(OBJS, "kos32-ar rcs %o %f", "sound.lib")
|
then tup.rule(OBJS, "kos32-ar rcs %o %f", "sound.lib")
|
||||||
else tup.rule(OBJS, "link.exe /lib /out:%o %f", "sound.lib")
|
else tup.rule(OBJS, "link.exe /lib /out:%o %f", "sound.lib")
|
||||||
|
|||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -35,7 +35,7 @@ include 'tinypad.inc'
|
|||||||
|
|
||||||
;purge mov,add,sub ; SPEED
|
;purge mov,add,sub ; SPEED
|
||||||
|
|
||||||
header '01',1,@CODE,TINYPAD_END,STATIC_MEM_END,MAIN_STACK,@PARAMS,ini_path
|
__header '01',1,@CODE,TINYPAD_END,STATIC_MEM_END,MAIN_STACK,@PARAMS,ini_path
|
||||||
|
|
||||||
APP_VERSION equ '4.1'
|
APP_VERSION equ '4.1'
|
||||||
|
|
||||||
@ -63,7 +63,7 @@ TBARH = 18 ; tab bar height (pixels)
|
|||||||
INI_SEC_PREFIX equ ''
|
INI_SEC_PREFIX equ ''
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
section @CODE ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
__section @CODE ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
cld
|
cld
|
||||||
mov edi,@UDATA
|
mov edi,@UDATA
|
||||||
@ -614,7 +614,7 @@ include 'tp-clipboard.asm'
|
|||||||
include '../../../dll.inc'
|
include '../../../dll.inc'
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
section @DATA ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
__section @DATA ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
|
|
||||||
;include_debug_strings
|
;include_debug_strings
|
||||||
@ -622,7 +622,7 @@ section @DATA ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
|||||||
include 'data/tp-idata.inc'
|
include 'data/tp-idata.inc'
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
section @IMPORT ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
__section @IMPORT ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
|
|
||||||
library \
|
library \
|
||||||
@ -678,13 +678,13 @@ import proc_lib, \
|
|||||||
TINYPAD_END: ; end of file
|
TINYPAD_END: ; end of file
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
section @UDATA ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
__section @UDATA ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
|
|
||||||
include 'data/tp-udata.inc'
|
include 'data/tp-udata.inc'
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
section @PARAMS ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
__section @PARAMS ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
|
|
||||||
fasm_parameters:
|
fasm_parameters:
|
||||||
|
|||||||
@ -103,7 +103,7 @@ popup_thread_start:
|
|||||||
mov [mi_cur],0
|
mov [mi_cur],0
|
||||||
mcall -1
|
mcall -1
|
||||||
|
|
||||||
func draw_popup_wnd
|
__func draw_popup_wnd
|
||||||
mcall 12,1
|
mcall 12,1
|
||||||
|
|
||||||
mov ebx,dword[ebp+POPUP.x-2]
|
mov ebx,dword[ebp+POPUP.x-2]
|
||||||
@ -208,7 +208,7 @@ func draw_popup_wnd
|
|||||||
ret
|
ret
|
||||||
endf
|
endf
|
||||||
|
|
||||||
func setup_main_menu_popup
|
__func setup_main_menu_popup
|
||||||
mov ebx,[p_info.box.left]
|
mov ebx,[p_info.box.left]
|
||||||
add ebx,[p_info.client_box.left]
|
add ebx,[p_info.client_box.left]
|
||||||
@@: dec ecx
|
@@: dec ecx
|
||||||
|
|||||||
@ -1,528 +0,0 @@
|
|||||||
@^ fix macro comment {
|
|
||||||
^@ fix }
|
|
||||||
|
|
||||||
; -------------------------
|
|
||||||
macro library [lname,fname]
|
|
||||||
{
|
|
||||||
forward
|
|
||||||
dd __#lname#_library_table__,__#lname#_library_name__
|
|
||||||
common
|
|
||||||
dd 0
|
|
||||||
forward
|
|
||||||
align 4
|
|
||||||
__#lname#_library_name__ db fname,0
|
|
||||||
}
|
|
||||||
|
|
||||||
macro import lname,[name,sname]
|
|
||||||
{
|
|
||||||
common
|
|
||||||
align 4
|
|
||||||
__#lname#_library_table__:
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
name dd __#name#_import_name__
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
dd 0
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
align 4
|
|
||||||
__#name#_import_name__ db sname,0
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro export [name,sname]
|
|
||||||
{
|
|
||||||
forward
|
|
||||||
dd __#name#_export_name__,name
|
|
||||||
common
|
|
||||||
dd 0
|
|
||||||
forward
|
|
||||||
align 4
|
|
||||||
__#name#_export_name__ db sname,0
|
|
||||||
}
|
|
||||||
; -------------------------
|
|
||||||
|
|
||||||
macro m2m dest,src {
|
|
||||||
push src
|
|
||||||
pop dest
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
macro iglobal {
|
|
||||||
IGlobals equ IGlobals,
|
|
||||||
macro __IGlobalBlock { }
|
|
||||||
|
|
||||||
macro uglobal {
|
|
||||||
UGlobals equ UGlobals,
|
|
||||||
macro __UGlobalBlock { }
|
|
||||||
|
|
||||||
endg fix } ; Use endg for ending iglobal and uglobal blocks.
|
|
||||||
|
|
||||||
|
|
||||||
macro IncludeIGlobals{
|
|
||||||
macro IGlobals dummy,[n] \{ __IGlobalBlock
|
|
||||||
purge __IGlobalBlock \}
|
|
||||||
match I, IGlobals \{ I \} }
|
|
||||||
|
|
||||||
macro IncludeUGlobals{
|
|
||||||
macro UGlobals dummy,[n] \{
|
|
||||||
\common
|
|
||||||
\local begin, size
|
|
||||||
begin = $
|
|
||||||
virtual at $
|
|
||||||
\forward
|
|
||||||
__UGlobalBlock
|
|
||||||
purge __UGlobalBlock
|
|
||||||
\common
|
|
||||||
size = $ - begin
|
|
||||||
end virtual
|
|
||||||
rb size
|
|
||||||
\}
|
|
||||||
match U, UGlobals \{ U \} }
|
|
||||||
|
|
||||||
uglobal
|
|
||||||
endg
|
|
||||||
|
|
||||||
iglobal
|
|
||||||
endg
|
|
||||||
|
|
||||||
|
|
||||||
; 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:
|
|
||||||
IncludeIGlobals
|
|
||||||
}
|
|
||||||
DATA fix data
|
|
||||||
|
|
||||||
macro udata
|
|
||||||
{
|
|
||||||
if used __params & ~defined __params
|
|
||||||
__params:
|
|
||||||
db 0
|
|
||||||
__end:
|
|
||||||
rb 255
|
|
||||||
else
|
|
||||||
__end:
|
|
||||||
end if
|
|
||||||
__udata:
|
|
||||||
IncludeUGlobals
|
|
||||||
}
|
|
||||||
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
|
|
||||||
}
|
|
||||||
|
|
||||||
; macro for defining multiline text data
|
|
||||||
struc mls [sstring]
|
|
||||||
{
|
|
||||||
forward
|
|
||||||
local ssize
|
|
||||||
virtual at 0
|
|
||||||
db sstring ; mod
|
|
||||||
ssize = $
|
|
||||||
end virtual
|
|
||||||
db ssize
|
|
||||||
db sstring
|
|
||||||
common
|
|
||||||
db -1 ; mod
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
name db data
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro szZ name,[data] { ; same as sz, but with 0 at the end of line (ASCIIZ string) [dunkaist]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
name db data,0
|
|
||||||
.size = $-name-1
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
sz0 fix szZ
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro szc name,elsz,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m
|
|
||||||
m = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m,c
|
|
||||||
m = 0
|
|
||||||
c = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
c = c+1
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
.count = c
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
include 'config.inc'
|
|
||||||
;__CPU_type equ p5
|
|
||||||
SYSENTER_VAR equ 0
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; -------------------------
|
|
||||||
macro header a,[b] {
|
|
||||||
common
|
|
||||||
use32
|
|
||||||
org 0
|
|
||||||
db 'MENUET',a
|
|
||||||
forward
|
|
||||||
if b eq
|
|
||||||
dd 0
|
|
||||||
else
|
|
||||||
dd b
|
|
||||||
end if }
|
|
||||||
macro section name { align 16
|
|
||||||
label name }
|
|
||||||
macro func name {
|
|
||||||
if ~used name
|
|
||||||
display 'FUNC NOT USED: ',`name,13,10
|
|
||||||
else
|
|
||||||
align 4
|
|
||||||
name:
|
|
||||||
;diff16 `name,0,name
|
|
||||||
;pushad
|
|
||||||
;pushfd
|
|
||||||
;dps `name
|
|
||||||
;newline
|
|
||||||
;mcall 5,1
|
|
||||||
;popfd
|
|
||||||
;popad
|
|
||||||
}
|
|
||||||
macro endf { end if }
|
|
||||||
|
|
||||||
macro diff16 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d
|
|
||||||
s = l2-l1
|
|
||||||
display title,': 0x'
|
|
||||||
repeat 8
|
|
||||||
d = '0' + s shr ((8-%) shl 2) and $0F
|
|
||||||
if d > '9'
|
|
||||||
d = d + 'A'-'9'-1
|
|
||||||
end if
|
|
||||||
display d
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
macro diff10 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d,z,m
|
|
||||||
s = l2-l1
|
|
||||||
z = 0
|
|
||||||
m = 1000000000
|
|
||||||
display title,': '
|
|
||||||
repeat 10
|
|
||||||
d = '0' + s / m
|
|
||||||
s = s - (s/m)*m
|
|
||||||
m = m / 10
|
|
||||||
if d <> '0'
|
|
||||||
z = 1
|
|
||||||
end if
|
|
||||||
if z <> 0
|
|
||||||
display d
|
|
||||||
end if
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & ((arg2 eqtype 0) | (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
macro RGB [a] {
|
|
||||||
common
|
|
||||||
match (r=,g=,b),a \{
|
|
||||||
\dd ((r) shl 16) or ((g) shl 8) or (b)
|
|
||||||
\}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
struc POINT _t,_dx,_dy {
|
|
||||||
.x _t _dx
|
|
||||||
.y _t _dy
|
|
||||||
}
|
|
||||||
|
|
||||||
; structure definition helper
|
|
||||||
include 'struct.inc'
|
|
||||||
|
|
||||||
struct RECT
|
|
||||||
left dd ?
|
|
||||||
top dd ?
|
|
||||||
right dd ?
|
|
||||||
bottom dd ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct BOX
|
|
||||||
left dd ?
|
|
||||||
top dd ?
|
|
||||||
width dd ?
|
|
||||||
height dd ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
; structures used in MeOS
|
|
||||||
struct process_information
|
|
||||||
cpu_usage dd ? ; +0
|
|
||||||
window_stack_position dw ? ; +4
|
|
||||||
window_stack_value dw ? ; +6
|
|
||||||
dw ? ; +8
|
|
||||||
process_name rb 12 ; +10
|
|
||||||
memory_start dd ? ; +22
|
|
||||||
used_memory dd ? ; +26
|
|
||||||
PID dd ? ; +30
|
|
||||||
box BOX ; +34
|
|
||||||
slot_state dw ? ; +50
|
|
||||||
dw ? ; +52
|
|
||||||
client_box BOX ; +54
|
|
||||||
wnd_state db ? ; +70
|
|
||||||
rb (1024-71)
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct system_colors
|
|
||||||
frame dd ?
|
|
||||||
grab dd ?
|
|
||||||
work_3d_dark dd ?
|
|
||||||
work_3d_light dd ?
|
|
||||||
grab_text dd ?
|
|
||||||
work dd ?
|
|
||||||
work_button dd ?
|
|
||||||
work_button_text dd ?
|
|
||||||
work_text dd ?
|
|
||||||
work_graph dd ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct FILEDATE
|
|
||||||
Second db ?
|
|
||||||
Minute db ?
|
|
||||||
Hour db ?
|
|
||||||
db ?
|
|
||||||
Day db ?
|
|
||||||
Month db ?
|
|
||||||
Year dw ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct FILEINFO
|
|
||||||
Attributes dd ?
|
|
||||||
IsUnicode db ?
|
|
||||||
db 3 dup(?)
|
|
||||||
DateCreate FILEDATE
|
|
||||||
DateAccess FILEDATE
|
|
||||||
DateModify FILEDATE
|
|
||||||
Size dq ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
; 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
|
|
||||||
@ -1,270 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label def \\{ match . type,def> \\\{ deflocal@proc .,label,<type \\\} \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc du [val] \\{ \common deflocal@proc .,du,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,du,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
match =label,def \{ ..tmp equ \}
|
|
||||||
match tmp,..tmp \{ ..var def val \}
|
|
||||||
match ,..tmp \{ label ..var val \}
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,180 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining data structures
|
|
||||||
|
|
||||||
macro struct name
|
|
||||||
{ fields@struct equ name
|
|
||||||
match child parent, name \{ fields@struct equ child,fields@\#parent \}
|
|
||||||
sub@struct equ
|
|
||||||
struc db [val] \{ \common fields@struct equ fields@struct,.,db,<val> \}
|
|
||||||
struc dw [val] \{ \common fields@struct equ fields@struct,.,dw,<val> \}
|
|
||||||
struc du [val] \{ \common fields@struct equ fields@struct,.,du,<val> \}
|
|
||||||
struc dd [val] \{ \common fields@struct equ fields@struct,.,dd,<val> \}
|
|
||||||
struc dp [val] \{ \common fields@struct equ fields@struct,.,dp,<val> \}
|
|
||||||
struc dq [val] \{ \common fields@struct equ fields@struct,.,dq,<val> \}
|
|
||||||
struc dt [val] \{ \common fields@struct equ fields@struct,.,dt,<val> \}
|
|
||||||
struc rb count \{ fields@struct equ fields@struct,.,db,count dup (?) \}
|
|
||||||
struc rw count \{ fields@struct equ fields@struct,.,dw,count dup (?) \}
|
|
||||||
struc rd count \{ fields@struct equ fields@struct,.,dd,count dup (?) \}
|
|
||||||
struc rp count \{ fields@struct equ fields@struct,.,dp,count dup (?) \}
|
|
||||||
struc rq count \{ fields@struct equ fields@struct,.,dq,count dup (?) \}
|
|
||||||
struc rt count \{ fields@struct equ fields@struct,.,dt,count dup (?) \}
|
|
||||||
macro db [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,db,<val> \}
|
|
||||||
macro dw [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dw,<val> \}
|
|
||||||
macro du [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,du,<val> \}
|
|
||||||
macro dd [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dd,<val> \}
|
|
||||||
macro dp [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dp,<val> \}
|
|
||||||
macro dq [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dq,<val> \}
|
|
||||||
macro dt [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dt,<val> \}
|
|
||||||
macro rb count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,db,count dup (?) \}
|
|
||||||
macro rw count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dw,count dup (?) \}
|
|
||||||
macro rd count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dd,count dup (?) \}
|
|
||||||
macro rp count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dp,count dup (?) \}
|
|
||||||
macro rq count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dq,count dup (?) \}
|
|
||||||
macro rt count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dt,count dup (?) \}
|
|
||||||
macro union \{ fields@struct equ fields@struct,,union,<
|
|
||||||
sub@struct equ union \}
|
|
||||||
macro struct \{ fields@struct equ fields@struct,,substruct,<
|
|
||||||
sub@struct equ substruct \}
|
|
||||||
virtual at 0 }
|
|
||||||
|
|
||||||
macro ends
|
|
||||||
{ match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt
|
|
||||||
restruc rb,rw,rd,rp,rq,rt
|
|
||||||
purge db,dw,du,dd,dp,dq,dt
|
|
||||||
purge rb,rw,rd,rp,rq,rt
|
|
||||||
purge union,struct
|
|
||||||
match name=,fields,fields@struct \\{ fields@struct equ
|
|
||||||
make@struct name,fields
|
|
||||||
fields@\\#name equ fields \\}
|
|
||||||
end virtual \}
|
|
||||||
match any, sub@struct \{ fields@struct equ fields@struct> \}
|
|
||||||
restore sub@struct }
|
|
||||||
|
|
||||||
macro make@struct name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
if $
|
|
||||||
display 'Error: definition of ',`name,' contains illegal instructions.',0Dh,0Ah
|
|
||||||
err
|
|
||||||
end if
|
|
||||||
local define
|
|
||||||
define equ name
|
|
||||||
forward
|
|
||||||
local sub
|
|
||||||
match , field \{ make@substruct type,name,sub def
|
|
||||||
define equ define,.,sub, \}
|
|
||||||
match any, field \{ define equ define,.#field,type,<def> \}
|
|
||||||
common
|
|
||||||
match fields, define \{ define@struct fields \} }
|
|
||||||
|
|
||||||
macro define@struct name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
local list
|
|
||||||
list equ
|
|
||||||
forward
|
|
||||||
if ~ field eq .
|
|
||||||
name#field type def
|
|
||||||
sizeof.#name#field = $ - name#field
|
|
||||||
else
|
|
||||||
rb sizeof.#type
|
|
||||||
end if
|
|
||||||
local value
|
|
||||||
match any, list \{ list equ list, \}
|
|
||||||
list equ list <value>
|
|
||||||
common
|
|
||||||
sizeof.#name = $
|
|
||||||
restruc name
|
|
||||||
match values, list \{
|
|
||||||
struc name value \\{
|
|
||||||
match any, fields@struct \\\{ fields@struct equ fields@struct,.,name,<values> \\\}
|
|
||||||
match , fields@struct \\\{ label .
|
|
||||||
forward
|
|
||||||
match , value \\\\{ field type def \\\\}
|
|
||||||
match any, value \\\\{ field type value
|
|
||||||
if ~ field eq .
|
|
||||||
rb sizeof.#name#field - ($-field)
|
|
||||||
end if \\\\}
|
|
||||||
common \\\} \\} \} }
|
|
||||||
|
|
||||||
macro enable@substruct
|
|
||||||
{ macro make@substruct substruct,parent,name,[field,type,def]
|
|
||||||
\{ \common
|
|
||||||
\local define
|
|
||||||
define equ parent,name
|
|
||||||
\forward
|
|
||||||
\local sub
|
|
||||||
match , field \\{ match any, type \\\{ enable@substruct
|
|
||||||
make@substruct type,name,sub def
|
|
||||||
purge make@substruct
|
|
||||||
define equ define,.,sub, \\\} \\}
|
|
||||||
match any, field \\{ define equ define,.\#field,type,<def> \\}
|
|
||||||
\common
|
|
||||||
match fields, define \\{ define@\#substruct fields \\} \} }
|
|
||||||
|
|
||||||
enable@substruct
|
|
||||||
|
|
||||||
macro define@union parent,name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
virtual at 0
|
|
||||||
forward
|
|
||||||
if ~ field eq .
|
|
||||||
virtual at 0
|
|
||||||
parent#field type def
|
|
||||||
sizeof.#parent#field = $ - parent#field
|
|
||||||
end virtual
|
|
||||||
if sizeof.#parent#field > $
|
|
||||||
rb sizeof.#parent#field - $
|
|
||||||
end if
|
|
||||||
else if sizeof.#type > $
|
|
||||||
rb sizeof.#type - $
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
sizeof.#name = $
|
|
||||||
end virtual
|
|
||||||
struc name [value] \{ \common
|
|
||||||
label .\#name
|
|
||||||
last@union equ
|
|
||||||
forward
|
|
||||||
match any, last@union \\{ virtual at .\#name
|
|
||||||
field type def
|
|
||||||
end virtual \\}
|
|
||||||
match , last@union \\{ match , value \\\{ field type def \\\}
|
|
||||||
match any, value \\\{ field type value \\\} \\}
|
|
||||||
last@union equ field
|
|
||||||
common rb sizeof.#name - ($ - .\#name) \} }
|
|
||||||
|
|
||||||
macro define@substruct parent,name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
virtual at 0
|
|
||||||
forward
|
|
||||||
if ~ field eq .
|
|
||||||
parent#field type def
|
|
||||||
sizeof.#parent#field = $ - parent#field
|
|
||||||
else
|
|
||||||
rb sizeof.#type
|
|
||||||
end if
|
|
||||||
local value
|
|
||||||
common
|
|
||||||
sizeof.#name = $
|
|
||||||
end virtual
|
|
||||||
struc name value \{
|
|
||||||
label .\#name
|
|
||||||
forward
|
|
||||||
match , value \\{ field type def \\}
|
|
||||||
match any, value \\{ field type value
|
|
||||||
if ~ field eq .
|
|
||||||
rb sizeof.#parent#field - ($-field)
|
|
||||||
end if \\}
|
|
||||||
common \} }
|
|
||||||
@ -66,7 +66,7 @@ proc dll.Link, exp:dword, imp:dword
|
|||||||
ret
|
ret
|
||||||
endp
|
endp
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
; calls lib_init with predefined parameters
|
; calls lib_init with predefined parameters
|
||||||
; no return value
|
; no return value
|
||||||
proc dll.Init, dllentry:dword
|
proc dll.Init, dllentry:dword
|
||||||
pushad
|
pushad
|
||||||
@ -104,7 +104,7 @@ proc dll.GetProcAddress, exp:dword, sz_name:dword
|
|||||||
ret
|
ret
|
||||||
endp
|
endp
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
; compares strings
|
; compares strings
|
||||||
; returns eax = 0 if equal, -1 otherwise
|
; returns eax = 0 if equal, -1 otherwise
|
||||||
proc strcmp, str1:dword, str2:dword
|
proc strcmp, str1:dword, str2:dword
|
||||||
push esi edi
|
push esi edi
|
||||||
|
|||||||
@ -5,7 +5,7 @@ version equ ''
|
|||||||
|
|
||||||
include 'macros.inc'
|
include 'macros.inc'
|
||||||
|
|
||||||
header '01',1,START,I_END,(D_END+0x100),(D_END+0x100),0,cur_dir_path
|
__header '01',1,START,I_END,(D_END+0x100),(D_END+0x100),0,cur_dir_path
|
||||||
|
|
||||||
include 'opcodes.inc'
|
include 'opcodes.inc'
|
||||||
include 'proc32.inc'
|
include 'proc32.inc'
|
||||||
@ -1835,4 +1835,4 @@ PMEM: rb 256
|
|||||||
bufferfinfo rb 40
|
bufferfinfo rb 40
|
||||||
scin_height rd 1
|
scin_height rd 1
|
||||||
|
|
||||||
D_END:
|
D_END:
|
||||||
|
|||||||
@ -1,2 +1,5 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("PrMK.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "PrMK")
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
|
||||||
|
tup.rule("PrMK.asm", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "PrMK")
|
||||||
|
|||||||
@ -1 +0,0 @@
|
|||||||
__CPU_type fix p5
|
|
||||||
@ -1,519 +0,0 @@
|
|||||||
@^ fix macro comment {
|
|
||||||
^@ fix }
|
|
||||||
|
|
||||||
; -------------------------
|
|
||||||
macro library [lname,fname]
|
|
||||||
{
|
|
||||||
forward
|
|
||||||
dd __#lname#_library_table__,__#lname#_library_name__
|
|
||||||
common
|
|
||||||
dd 0
|
|
||||||
forward
|
|
||||||
align 4
|
|
||||||
__#lname#_library_name__ db fname,0
|
|
||||||
}
|
|
||||||
|
|
||||||
macro import lname,[name,sname]
|
|
||||||
{
|
|
||||||
common
|
|
||||||
align 4
|
|
||||||
__#lname#_library_table__:
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
name dd __#name#_import_name__
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
dd 0
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
align 4
|
|
||||||
__#name#_import_name__ db sname,0
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro export [name,sname]
|
|
||||||
{
|
|
||||||
forward
|
|
||||||
dd __#name#_export_name__,name
|
|
||||||
common
|
|
||||||
dd 0
|
|
||||||
forward
|
|
||||||
align 4
|
|
||||||
__#name#_export_name__ db sname,0
|
|
||||||
}
|
|
||||||
; -------------------------
|
|
||||||
|
|
||||||
macro m2m dest,src {
|
|
||||||
push src
|
|
||||||
pop dest
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
macro iglobal {
|
|
||||||
IGlobals equ IGlobals,
|
|
||||||
macro __IGlobalBlock { }
|
|
||||||
|
|
||||||
macro uglobal {
|
|
||||||
UGlobals equ UGlobals,
|
|
||||||
macro __UGlobalBlock { }
|
|
||||||
|
|
||||||
endg fix } ; Use endg for ending iglobal and uglobal blocks.
|
|
||||||
|
|
||||||
|
|
||||||
macro IncludeIGlobals{
|
|
||||||
macro IGlobals dummy,[n] \{ __IGlobalBlock
|
|
||||||
purge __IGlobalBlock \}
|
|
||||||
match I, IGlobals \{ I \} }
|
|
||||||
|
|
||||||
macro IncludeUGlobals{
|
|
||||||
macro UGlobals dummy,[n] \{
|
|
||||||
\common
|
|
||||||
\local begin, size
|
|
||||||
begin = $
|
|
||||||
virtual at $
|
|
||||||
\forward
|
|
||||||
__UGlobalBlock
|
|
||||||
purge __UGlobalBlock
|
|
||||||
\common
|
|
||||||
size = $ - begin
|
|
||||||
end virtual
|
|
||||||
rb size
|
|
||||||
\}
|
|
||||||
match U, UGlobals \{ U \} }
|
|
||||||
|
|
||||||
uglobal
|
|
||||||
endg
|
|
||||||
|
|
||||||
iglobal
|
|
||||||
endg
|
|
||||||
|
|
||||||
|
|
||||||
; 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:
|
|
||||||
IncludeIGlobals
|
|
||||||
}
|
|
||||||
DATA fix data
|
|
||||||
|
|
||||||
macro udata
|
|
||||||
{
|
|
||||||
if used __params & ~defined __params
|
|
||||||
__params:
|
|
||||||
db 0
|
|
||||||
__end:
|
|
||||||
rb 255
|
|
||||||
else
|
|
||||||
__end:
|
|
||||||
end if
|
|
||||||
__udata:
|
|
||||||
IncludeUGlobals
|
|
||||||
}
|
|
||||||
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
|
|
||||||
}
|
|
||||||
|
|
||||||
; macro for defining multiline text data
|
|
||||||
struc mls [sstring]
|
|
||||||
{
|
|
||||||
forward
|
|
||||||
local ssize
|
|
||||||
virtual at 0
|
|
||||||
db sstring ; mod
|
|
||||||
ssize = $
|
|
||||||
end virtual
|
|
||||||
db ssize
|
|
||||||
db sstring
|
|
||||||
common
|
|
||||||
db -1 ; mod
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
name db data
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro szc name,elsz,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m
|
|
||||||
m = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m,c
|
|
||||||
m = 0
|
|
||||||
c = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
c = c+1
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
.count = c
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
include 'config.inc'
|
|
||||||
__CPU_type equ p5
|
|
||||||
SYSENTER_VAR equ 0
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld, updated by Ghost for Fast System Calls
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; -------------------------
|
|
||||||
macro header a,[b] {
|
|
||||||
common
|
|
||||||
use32
|
|
||||||
org 0
|
|
||||||
db 'MENUET',a
|
|
||||||
forward
|
|
||||||
if b eq
|
|
||||||
dd 0
|
|
||||||
else
|
|
||||||
dd b
|
|
||||||
end if }
|
|
||||||
macro section name { align 16
|
|
||||||
label name }
|
|
||||||
macro func name {
|
|
||||||
if ~used name
|
|
||||||
display 'FUNC NOT USED: ',`name,13,10
|
|
||||||
else
|
|
||||||
align 4
|
|
||||||
name:
|
|
||||||
;diff16 `name,0,name
|
|
||||||
;pushad
|
|
||||||
;pushfd
|
|
||||||
;dps `name
|
|
||||||
;newline
|
|
||||||
;mcall 5,1
|
|
||||||
;popfd
|
|
||||||
;popad
|
|
||||||
}
|
|
||||||
macro endf { end if }
|
|
||||||
|
|
||||||
macro diff16 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d
|
|
||||||
s = l2-l1
|
|
||||||
display title,': 0x'
|
|
||||||
repeat 8
|
|
||||||
d = '0' + s shr ((8-%) shl 2) and $0F
|
|
||||||
if d > '9'
|
|
||||||
d = d + 'A'-'9'-1
|
|
||||||
end if
|
|
||||||
display d
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
macro diff10 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d,z,m
|
|
||||||
s = l2-l1
|
|
||||||
z = 0
|
|
||||||
m = 1000000000
|
|
||||||
display title,': '
|
|
||||||
repeat 10
|
|
||||||
d = '0' + s / m
|
|
||||||
s = s - (s/m)*m
|
|
||||||
m = m / 10
|
|
||||||
if d <> '0'
|
|
||||||
z = 1
|
|
||||||
end if
|
|
||||||
if z <> 0
|
|
||||||
display d
|
|
||||||
end if
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & ((arg2 eqtype 0) | (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
macro RGB [a] {
|
|
||||||
common
|
|
||||||
match (r=,g=,b),a \{
|
|
||||||
\dd ((r) shl 16) or ((g) shl 8) or (b)
|
|
||||||
\}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
struc POINT _t,_dx,_dy {
|
|
||||||
.x _t _dx
|
|
||||||
.y _t _dy
|
|
||||||
}
|
|
||||||
|
|
||||||
; structure definition helper
|
|
||||||
include 'struct.inc'
|
|
||||||
|
|
||||||
struct RECT
|
|
||||||
left dd ?
|
|
||||||
top dd ?
|
|
||||||
right dd ?
|
|
||||||
bottom dd ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct BOX
|
|
||||||
left dd ?
|
|
||||||
top dd ?
|
|
||||||
width dd ?
|
|
||||||
height dd ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
; structures used in MeOS
|
|
||||||
struct process_information
|
|
||||||
cpu_usage dd ? ; +0
|
|
||||||
window_stack_position dw ? ; +4
|
|
||||||
window_stack_value dw ? ; +6
|
|
||||||
dw ? ; +8
|
|
||||||
process_name rb 12 ; +10
|
|
||||||
memory_start dd ? ; +22
|
|
||||||
used_memory dd ? ; +26
|
|
||||||
PID dd ? ; +30
|
|
||||||
box BOX ; +34
|
|
||||||
slot_state dw ? ; +50
|
|
||||||
dw ? ; +52
|
|
||||||
client_box BOX ; +54
|
|
||||||
wnd_state db ? ; +70
|
|
||||||
rb (1024-71)
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct system_colors
|
|
||||||
frame dd ?
|
|
||||||
grab dd ?
|
|
||||||
work_3d_dark dd ?
|
|
||||||
work_3d_light dd ?
|
|
||||||
grab_text dd ?
|
|
||||||
work dd ?
|
|
||||||
work_button dd ?
|
|
||||||
work_button_text dd ?
|
|
||||||
work_text dd ?
|
|
||||||
work_graph dd ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct FILEDATE
|
|
||||||
Second db ?
|
|
||||||
Minute db ?
|
|
||||||
Hour db ?
|
|
||||||
db ?
|
|
||||||
Day db ?
|
|
||||||
Month db ?
|
|
||||||
Year dw ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
struct FILEINFO
|
|
||||||
Attributes dd ?
|
|
||||||
IsUnicode db ?
|
|
||||||
db 3 dup(?)
|
|
||||||
DateCreate FILEDATE
|
|
||||||
DateAccess FILEDATE
|
|
||||||
DateModify FILEDATE
|
|
||||||
Size dq ?
|
|
||||||
ends
|
|
||||||
|
|
||||||
; 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
|
|
||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,180 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining data structures
|
|
||||||
|
|
||||||
macro struct name
|
|
||||||
{ fields@struct equ name
|
|
||||||
match child parent, name \{ fields@struct equ child,fields@\#parent \}
|
|
||||||
sub@struct equ
|
|
||||||
struc db [val] \{ \common fields@struct equ fields@struct,.,db,<val> \}
|
|
||||||
struc dw [val] \{ \common fields@struct equ fields@struct,.,dw,<val> \}
|
|
||||||
struc du [val] \{ \common fields@struct equ fields@struct,.,du,<val> \}
|
|
||||||
struc dd [val] \{ \common fields@struct equ fields@struct,.,dd,<val> \}
|
|
||||||
struc dp [val] \{ \common fields@struct equ fields@struct,.,dp,<val> \}
|
|
||||||
struc dq [val] \{ \common fields@struct equ fields@struct,.,dq,<val> \}
|
|
||||||
struc dt [val] \{ \common fields@struct equ fields@struct,.,dt,<val> \}
|
|
||||||
struc rb count \{ fields@struct equ fields@struct,.,db,count dup (?) \}
|
|
||||||
struc rw count \{ fields@struct equ fields@struct,.,dw,count dup (?) \}
|
|
||||||
struc rd count \{ fields@struct equ fields@struct,.,dd,count dup (?) \}
|
|
||||||
struc rp count \{ fields@struct equ fields@struct,.,dp,count dup (?) \}
|
|
||||||
struc rq count \{ fields@struct equ fields@struct,.,dq,count dup (?) \}
|
|
||||||
struc rt count \{ fields@struct equ fields@struct,.,dt,count dup (?) \}
|
|
||||||
macro db [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,db,<val> \}
|
|
||||||
macro dw [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dw,<val> \}
|
|
||||||
macro du [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,du,<val> \}
|
|
||||||
macro dd [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dd,<val> \}
|
|
||||||
macro dp [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dp,<val> \}
|
|
||||||
macro dq [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dq,<val> \}
|
|
||||||
macro dt [val] \{ \common \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dt,<val> \}
|
|
||||||
macro rb count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,db,count dup (?) \}
|
|
||||||
macro rw count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dw,count dup (?) \}
|
|
||||||
macro rd count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dd,count dup (?) \}
|
|
||||||
macro rp count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dp,count dup (?) \}
|
|
||||||
macro rq count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dq,count dup (?) \}
|
|
||||||
macro rt count \{ \local anonymous
|
|
||||||
fields@struct equ fields@struct,anonymous,dt,count dup (?) \}
|
|
||||||
macro union \{ fields@struct equ fields@struct,,union,<
|
|
||||||
sub@struct equ union \}
|
|
||||||
macro struct \{ fields@struct equ fields@struct,,substruct,<
|
|
||||||
sub@struct equ substruct \}
|
|
||||||
virtual at 0 }
|
|
||||||
|
|
||||||
macro ends
|
|
||||||
{ match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt
|
|
||||||
restruc rb,rw,rd,rp,rq,rt
|
|
||||||
purge db,dw,du,dd,dp,dq,dt
|
|
||||||
purge rb,rw,rd,rp,rq,rt
|
|
||||||
purge union,struct
|
|
||||||
match name=,fields,fields@struct \\{ fields@struct equ
|
|
||||||
make@struct name,fields
|
|
||||||
fields@\\#name equ fields \\}
|
|
||||||
end virtual \}
|
|
||||||
match any, sub@struct \{ fields@struct equ fields@struct> \}
|
|
||||||
restore sub@struct }
|
|
||||||
|
|
||||||
macro make@struct name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
if $
|
|
||||||
display 'Error: definition of ',`name,' contains illegal instructions.',0Dh,0Ah
|
|
||||||
err
|
|
||||||
end if
|
|
||||||
local define
|
|
||||||
define equ name
|
|
||||||
forward
|
|
||||||
local sub
|
|
||||||
match , field \{ make@substruct type,name,sub def
|
|
||||||
define equ define,.,sub, \}
|
|
||||||
match any, field \{ define equ define,.#field,type,<def> \}
|
|
||||||
common
|
|
||||||
match fields, define \{ define@struct fields \} }
|
|
||||||
|
|
||||||
macro define@struct name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
local list
|
|
||||||
list equ
|
|
||||||
forward
|
|
||||||
if ~ field eq .
|
|
||||||
name#field type def
|
|
||||||
sizeof.#name#field = $ - name#field
|
|
||||||
else
|
|
||||||
rb sizeof.#type
|
|
||||||
end if
|
|
||||||
local value
|
|
||||||
match any, list \{ list equ list, \}
|
|
||||||
list equ list <value>
|
|
||||||
common
|
|
||||||
sizeof.#name = $
|
|
||||||
restruc name
|
|
||||||
match values, list \{
|
|
||||||
struc name value \\{
|
|
||||||
match any, fields@struct \\\{ fields@struct equ fields@struct,.,name,<values> \\\}
|
|
||||||
match , fields@struct \\\{ label .
|
|
||||||
forward
|
|
||||||
match , value \\\\{ field type def \\\\}
|
|
||||||
match any, value \\\\{ field type value
|
|
||||||
if ~ field eq .
|
|
||||||
rb sizeof.#name#field - ($-field)
|
|
||||||
end if \\\\}
|
|
||||||
common \\\} \\} \} }
|
|
||||||
|
|
||||||
macro enable@substruct
|
|
||||||
{ macro make@substruct substruct,parent,name,[field,type,def]
|
|
||||||
\{ \common
|
|
||||||
\local define
|
|
||||||
define equ parent,name
|
|
||||||
\forward
|
|
||||||
\local sub
|
|
||||||
match , field \\{ match any, type \\\{ enable@substruct
|
|
||||||
make@substruct type,name,sub def
|
|
||||||
purge make@substruct
|
|
||||||
define equ define,.,sub, \\\} \\}
|
|
||||||
match any, field \\{ define equ define,.\#field,type,<def> \\}
|
|
||||||
\common
|
|
||||||
match fields, define \\{ define@\#substruct fields \\} \} }
|
|
||||||
|
|
||||||
enable@substruct
|
|
||||||
|
|
||||||
macro define@union parent,name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
virtual at 0
|
|
||||||
forward
|
|
||||||
if ~ field eq .
|
|
||||||
virtual at 0
|
|
||||||
parent#field type def
|
|
||||||
sizeof.#parent#field = $ - parent#field
|
|
||||||
end virtual
|
|
||||||
if sizeof.#parent#field > $
|
|
||||||
rb sizeof.#parent#field - $
|
|
||||||
end if
|
|
||||||
else if sizeof.#type > $
|
|
||||||
rb sizeof.#type - $
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
sizeof.#name = $
|
|
||||||
end virtual
|
|
||||||
struc name [value] \{ \common
|
|
||||||
label .\#name
|
|
||||||
last@union equ
|
|
||||||
forward
|
|
||||||
match any, last@union \\{ virtual at .\#name
|
|
||||||
field type def
|
|
||||||
end virtual \\}
|
|
||||||
match , last@union \\{ match , value \\\{ field type def \\\}
|
|
||||||
match any, value \\\{ field type value \\\} \\}
|
|
||||||
last@union equ field
|
|
||||||
common rb sizeof.#name - ($ - .\#name) \} }
|
|
||||||
|
|
||||||
macro define@substruct parent,name,[field,type,def]
|
|
||||||
{ common
|
|
||||||
virtual at 0
|
|
||||||
forward
|
|
||||||
if ~ field eq .
|
|
||||||
parent#field type def
|
|
||||||
sizeof.#parent#field = $ - parent#field
|
|
||||||
else
|
|
||||||
rb sizeof.#type
|
|
||||||
end if
|
|
||||||
local value
|
|
||||||
common
|
|
||||||
sizeof.#name = $
|
|
||||||
end virtual
|
|
||||||
struc name value \{
|
|
||||||
label .\#name
|
|
||||||
forward
|
|
||||||
match , value \\{ field type def \\}
|
|
||||||
match any, value \\{ field type value
|
|
||||||
if ~ field eq .
|
|
||||||
rb sizeof.#parent#field - ($-field)
|
|
||||||
end if \\}
|
|
||||||
common \} }
|
|
||||||
@ -2,7 +2,7 @@
|
|||||||
;///// COPYING ////////////////////////////////////////////////////////////////
|
;///// COPYING ////////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func copy_file
|
__func copy_file
|
||||||
pushad
|
pushad
|
||||||
|
|
||||||
cmp [active_panel],0
|
cmp [active_panel],0
|
||||||
@ -126,7 +126,7 @@ endf
|
|||||||
|
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func draw_window_copy_main
|
__func draw_window_copy_main
|
||||||
mcall2 MF_FILLRECT,oX+tW*2,tW*76,oY+tH*7,tH*8,0x00C0C0C0
|
mcall2 MF_FILLRECT,oX+tW*2,tW*76,oY+tH*7,tH*8,0x00C0C0C0
|
||||||
|
|
||||||
mmov esi,oX+tW*4+2,oX+tW*75+3
|
mmov esi,oX+tW*4+2,oX+tW*75+3
|
||||||
@ -168,7 +168,7 @@ endf
|
|||||||
|
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func draw_copy_input
|
__func draw_copy_input
|
||||||
mcall2 MF_FILLRECT,oX+tW*6,tW*68,oY+tH*10,tH,0x00008080
|
mcall2 MF_FILLRECT,oX+tW*6,tW*68,oY+tH*10,tH,0x00008080
|
||||||
|
|
||||||
mov edx,fc_info.path
|
mov edx,fc_info.path
|
||||||
|
|||||||
@ -11,7 +11,7 @@ align 4
|
|||||||
dd compare_by_extension
|
dd compare_by_extension
|
||||||
|
|
||||||
; AL = panel
|
; AL = panel
|
||||||
func mfar_sort
|
__func mfar_sort
|
||||||
pusha
|
pusha
|
||||||
cmp al,0
|
cmp al,0
|
||||||
jne ._00
|
jne ._00
|
||||||
@ -69,7 +69,7 @@ endf
|
|||||||
|
|
||||||
; ESI = pointer to 1st file info
|
; ESI = pointer to 1st file info
|
||||||
; EDI = pointer to 2nd file info
|
; EDI = pointer to 2nd file info
|
||||||
func compare_by_name
|
__func compare_by_name
|
||||||
mov ecx,11
|
mov ecx,11
|
||||||
push edi esi
|
push edi esi
|
||||||
repe cmpsb
|
repe cmpsb
|
||||||
@ -102,7 +102,7 @@ endf
|
|||||||
|
|
||||||
; ESI = pointer to 1st file info
|
; ESI = pointer to 1st file info
|
||||||
; EDI = pointer to 2nd file info
|
; EDI = pointer to 2nd file info
|
||||||
func compare_by_extension
|
__func compare_by_extension
|
||||||
push edi esi
|
push edi esi
|
||||||
mov ecx,3
|
mov ecx,3
|
||||||
add esi,8
|
add esi,8
|
||||||
@ -137,4 +137,4 @@ func compare_by_extension
|
|||||||
popfd
|
popfd
|
||||||
._05:
|
._05:
|
||||||
ret
|
ret
|
||||||
endf
|
endf
|
||||||
|
|||||||
@ -290,7 +290,7 @@ still:
|
|||||||
;///// DRAW WINDOW ////////////////////////////////////////////////////////////
|
;///// DRAW WINDOW ////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func draw_window
|
__func draw_window
|
||||||
mcall MF_WINPROPS,WP_GETSYSCLRS,sc,sizeof.system_colors
|
mcall MF_WINPROPS,WP_GETSYSCLRS,sc,sizeof.system_colors
|
||||||
|
|
||||||
mcall MF_WNDDRAW,WD_BEGINDRAW
|
mcall MF_WNDDRAW,WD_BEGINDRAW
|
||||||
@ -340,7 +340,7 @@ endf
|
|||||||
;//////////////////////////////////////////////////////////////////////////////
|
;//////////////////////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func draw_window_full
|
__func draw_window_full
|
||||||
call draw_window
|
call draw_window
|
||||||
mov edx,1
|
mov edx,1
|
||||||
call get_files_data
|
call get_files_data
|
||||||
@ -360,7 +360,7 @@ endf
|
|||||||
align 4
|
align 4
|
||||||
len dd ?
|
len dd ?
|
||||||
|
|
||||||
func get_normal_path
|
__func get_normal_path
|
||||||
pusha
|
pusha
|
||||||
mov ecx,5
|
mov ecx,5
|
||||||
rep movsb
|
rep movsb
|
||||||
@ -394,7 +394,7 @@ endf
|
|||||||
; EAX = length needed
|
; EAX = length needed
|
||||||
; ECX = current length
|
; ECX = current length
|
||||||
; EDI = path string
|
; EDI = path string
|
||||||
func get_path_ellipses
|
__func get_path_ellipses
|
||||||
cmp ecx,eax
|
cmp ecx,eax
|
||||||
jbe @f
|
jbe @f
|
||||||
pushad
|
pushad
|
||||||
@ -416,7 +416,7 @@ endf
|
|||||||
;//////////////////////////////////////////////////////////////////////////////
|
;//////////////////////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func draw_path
|
__func draw_path
|
||||||
pushad
|
pushad
|
||||||
cmp [active_panel],0
|
cmp [active_panel],0
|
||||||
jne ._00
|
jne ._00
|
||||||
@ -444,7 +444,7 @@ endf
|
|||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
; AL = panel
|
; AL = panel
|
||||||
func draw_files
|
__func draw_files
|
||||||
push eax
|
push eax
|
||||||
mmov ecx,oY+tH*2-1,tH*FPC
|
mmov ecx,oY+tH*2-1,tH*FPC
|
||||||
mov edx,[fc.background]
|
mov edx,[fc.background]
|
||||||
@ -519,7 +519,7 @@ endf
|
|||||||
;//////////////////////////////////////////////////////////////////////////////
|
;//////////////////////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func draw_bottom_keys
|
__func draw_bottom_keys
|
||||||
pushad
|
pushad
|
||||||
mcall2 MF_FILLRECT,oX-1,tW*80+1,oY+tH*24-1,tH+1,[fc.pathbg]
|
mcall2 MF_FILLRECT,oX-1,tW*80+1,oY+tH*24-1,tH+1,[fc.pathbg]
|
||||||
dec ecx
|
dec ecx
|
||||||
@ -551,7 +551,7 @@ endf
|
|||||||
; ESI = X1*65536+X2
|
; ESI = X1*65536+X2
|
||||||
; EDI = Y1*65536+Y2
|
; EDI = Y1*65536+Y2
|
||||||
; EDX = color
|
; EDX = color
|
||||||
func draw_frame
|
__func draw_frame
|
||||||
mov ecx,edi
|
mov ecx,edi
|
||||||
mov ebx,edi
|
mov ebx,edi
|
||||||
shr ebx,16
|
shr ebx,16
|
||||||
@ -578,7 +578,7 @@ endf
|
|||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
; EDX = pointer to file data
|
; EDX = pointer to file data
|
||||||
func get_file_color
|
__func get_file_color
|
||||||
push esi
|
push esi
|
||||||
mov cl,[edx+11]
|
mov cl,[edx+11]
|
||||||
test cl,(FA_HIDDEN or FA_SYSTEM)
|
test cl,(FA_HIDDEN or FA_SYSTEM)
|
||||||
@ -632,7 +632,7 @@ endf
|
|||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
; EDI = color
|
; EDI = color
|
||||||
func draw_sel
|
__func draw_sel
|
||||||
pushad
|
pushad
|
||||||
cmp [active_panel],0
|
cmp [active_panel],0
|
||||||
jne ._00
|
jne ._00
|
||||||
@ -715,7 +715,7 @@ endf
|
|||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
; AL = panel
|
; AL = panel
|
||||||
func draw_file_info
|
__func draw_file_info
|
||||||
push eax
|
push eax
|
||||||
mmov ecx,oY+tH*21,tH
|
mmov ecx,oY+tH*21,tH
|
||||||
mov edx,[fc.background]
|
mov edx,[fc.background]
|
||||||
@ -790,7 +790,7 @@ endf
|
|||||||
;//////////////////////////////////////////////////////////////////////////////
|
;//////////////////////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func get_file_name
|
__func get_file_name
|
||||||
pushad
|
pushad
|
||||||
mov eax,[esi+0]
|
mov eax,[esi+0]
|
||||||
mov [f_name+0],eax
|
mov [f_name+0],eax
|
||||||
@ -810,7 +810,7 @@ endf
|
|||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
; ESI = pointer to file data
|
; ESI = pointer to file data
|
||||||
func get_file_info
|
__func get_file_info
|
||||||
pushad
|
pushad
|
||||||
mov eax,[esi+12]
|
mov eax,[esi+12]
|
||||||
mov dword[f_info],FS_READ
|
mov dword[f_info],FS_READ
|
||||||
@ -888,7 +888,7 @@ endf
|
|||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
; DL = panel
|
; DL = panel
|
||||||
func get_files_data
|
__func get_files_data
|
||||||
pushad
|
pushad
|
||||||
mov [d_tcnt],0
|
mov [d_tcnt],0
|
||||||
mov [d_ttsz],0
|
mov [d_ttsz],0
|
||||||
@ -985,7 +985,7 @@ endf
|
|||||||
;//////////////////////////////////////////////////////////////////////////////
|
;//////////////////////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func execute_current_file
|
__func execute_current_file
|
||||||
pushad
|
pushad
|
||||||
cmp [active_panel],0
|
cmp [active_panel],0
|
||||||
jne ._00
|
jne ._00
|
||||||
@ -1080,7 +1080,7 @@ endf
|
|||||||
;//////////////////////////////////////////////////////////////////////////////
|
;//////////////////////////////////////////////////////////////////////////////
|
||||||
;------------------------------------------------------------------------------
|
;------------------------------------------------------------------------------
|
||||||
|
|
||||||
func delete_current_file
|
__func delete_current_file
|
||||||
pushad
|
pushad
|
||||||
popad
|
popad
|
||||||
ret
|
ret
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"bnc.asm", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "bnc")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("bnc.asm", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "bnc")
|
||||||
|
|||||||
@ -1,270 +0,0 @@
|
|||||||
; 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:
|
|
||||||
__end:
|
|
||||||
}
|
|
||||||
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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & ((arg2 eqtype 0) | (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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
|
|
||||||
dw ? ; +52 - reserved
|
|
||||||
.client_left dd ? ; +54
|
|
||||||
.client_top dd ? ; +58
|
|
||||||
.client_width dd ? ; +62
|
|
||||||
.client_height dd ? ; +66
|
|
||||||
.wnd_state db ? ; +70
|
|
||||||
rb (1024-71)
|
|
||||||
}
|
|
||||||
struct process_information
|
|
||||||
|
|
||||||
struc system_colors
|
|
||||||
{
|
|
||||||
.frame dd ?
|
|
||||||
.grab dd ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -1,2 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("megamaze.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "megamaze")
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("megamaze.asm", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "megamaze")
|
||||||
|
|||||||
@ -1,264 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; language for programs
|
|
||||||
;lang fix ru ; ru en fr ge fi
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -589,11 +589,11 @@ show_help:
|
|||||||
mov ebp,[pack]
|
mov ebp,[pack]
|
||||||
.red:
|
.red:
|
||||||
mcall 12,1
|
mcall 12,1
|
||||||
mov ebx,[prc_info.x_start]
|
mov ebx,[prc_info.box.left]
|
||||||
add ebx,[prc_info.x_size]
|
add ebx,[prc_info.box.width]
|
||||||
shl ebx,16
|
shl ebx,16
|
||||||
add ebx,310
|
add ebx,310
|
||||||
mov ecx,[prc_info.y_start]
|
mov ecx,[prc_info.box.top]
|
||||||
shl ecx,16
|
shl ecx,16
|
||||||
add ecx,220
|
add ecx,220
|
||||||
mcall 0,,,0x03c0c0c0
|
mcall 0,,,0x03c0c0c0
|
||||||
|
|||||||
@ -1,269 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & ((arg2 eqtype 0) | (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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
|
|
||||||
dw ? ; +52 - reserved
|
|
||||||
.client_left dd ? ; +54
|
|
||||||
.client_top dd ? ; +58
|
|
||||||
.client_width dd ? ; +62
|
|
||||||
.client_height dd ? ; +66
|
|
||||||
.wnd_state db ? ; +70
|
|
||||||
rb (1024-71)
|
|
||||||
}
|
|
||||||
struct process_information
|
|
||||||
|
|
||||||
struc system_colors
|
|
||||||
{
|
|
||||||
.frame dd ?
|
|
||||||
.grab dd ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"rsquare.asm", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "rsquare")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("rsquare.asm", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "rsquare")
|
||||||
|
|||||||
@ -17,9 +17,8 @@ MOBILITY equ 9;13
|
|||||||
dd stak+0x400 ; memory for app
|
dd stak+0x400 ; memory for app
|
||||||
dd stak+0x400 ; esp
|
dd stak+0x400 ; esp
|
||||||
dd 0x0 , 0x0 ; I_Param , I_Icon
|
dd 0x0 , 0x0 ; I_Param , I_Icon
|
||||||
include "lang.inc"
|
include "macros.inc"
|
||||||
include "MACROS.INC"
|
;include "debug.inc"
|
||||||
;include "DEBUG.INC"
|
|
||||||
|
|
||||||
run:
|
run:
|
||||||
if LEVELCONV eq 1
|
if LEVELCONV eq 1
|
||||||
|
|||||||
@ -1,189 +0,0 @@
|
|||||||
; 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
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; language for programs
|
|
||||||
lang fix ru ; ru en fr ge fi
|
|
||||||
;lang equ ru
|
|
||||||
|
|
||||||
|
|
||||||
; 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 ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -29,11 +29,9 @@
|
|||||||
|
|
||||||
format binary as ""
|
format binary as ""
|
||||||
|
|
||||||
include '../../../macros.inc' ; decrease code size (optional)
|
include 'macros.inc' ; decrease code size (optional)
|
||||||
include 'CELLTYPE.INC' ; object identifiers
|
include 'CELLTYPE.INC' ; object identifiers
|
||||||
;include 'debug.inc'
|
;include 'debug.inc'
|
||||||
;lang equ ru ; russian interface; english if undefined
|
|
||||||
include 'lang.inc'
|
|
||||||
|
|
||||||
CUR_DIR equ '/sys/games/' ; change it to appropriate path
|
CUR_DIR equ '/sys/games/' ; change it to appropriate path
|
||||||
|
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"SOKO.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "SOKO")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("SOKO.ASM", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "SOKO")
|
||||||
|
|||||||
@ -1,269 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & ((arg2 eqtype 0) | (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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
|
|
||||||
dw ? ; +52 - reserved
|
|
||||||
.client_left dd ? ; +54
|
|
||||||
.client_top dd ? ; +58
|
|
||||||
.client_width dd ? ; +62
|
|
||||||
.client_height dd ? ; +66
|
|
||||||
.wnd_state db ? ; +70
|
|
||||||
rb (1024-71)
|
|
||||||
}
|
|
||||||
struct process_information
|
|
||||||
|
|
||||||
struc system_colors
|
|
||||||
{
|
|
||||||
.frame dd ?
|
|
||||||
.grab dd ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -28,8 +28,7 @@
|
|||||||
dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï)
|
dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï)
|
||||||
dd 0x0 ; § १¥à¢¨à®¢ ®
|
dd 0x0 ; § १¥à¢¨à®¢ ®
|
||||||
|
|
||||||
include 'lang.inc'
|
include 'macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áᥬ¡«¥à騪®¢!
|
||||||
include 'MACROS.INC' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§ì áᥬ¡«¥à騪®¢!
|
|
||||||
|
|
||||||
|
|
||||||
START:
|
START:
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"SQ_GAME.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "SQ_GAME")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("SQ_GAME.ASM", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "SQ_GAME")
|
||||||
|
|||||||
@ -52,7 +52,7 @@ macro m2m dest,src {
|
|||||||
macro iglobal {
|
macro iglobal {
|
||||||
IGlobals equ IGlobals,
|
IGlobals equ IGlobals,
|
||||||
macro __IGlobalBlock { }
|
macro __IGlobalBlock { }
|
||||||
|
|
||||||
macro uglobal {
|
macro uglobal {
|
||||||
UGlobals equ UGlobals,
|
UGlobals equ UGlobals,
|
||||||
macro __UGlobalBlock { }
|
macro __UGlobalBlock { }
|
||||||
@ -83,7 +83,7 @@ macro IncludeUGlobals{
|
|||||||
|
|
||||||
uglobal
|
uglobal
|
||||||
endg
|
endg
|
||||||
|
|
||||||
iglobal
|
iglobal
|
||||||
endg
|
endg
|
||||||
|
|
||||||
@ -329,7 +329,7 @@ macro mcall a,b,c,d,e,f { ; mike.dld, updated by Ghost for Fast System Calls
|
|||||||
|
|
||||||
|
|
||||||
; -------------------------
|
; -------------------------
|
||||||
macro header a,[b] {
|
macro __header a,[b] {
|
||||||
common
|
common
|
||||||
use32
|
use32
|
||||||
org 0
|
org 0
|
||||||
@ -339,24 +339,23 @@ macro header a,[b] {
|
|||||||
dd 0
|
dd 0
|
||||||
else
|
else
|
||||||
dd b
|
dd b
|
||||||
end if }
|
end if
|
||||||
macro section name { align 16
|
}
|
||||||
label name }
|
|
||||||
macro func name {
|
macro __section name {
|
||||||
|
align 16
|
||||||
|
label name
|
||||||
|
}
|
||||||
|
|
||||||
|
macro __func name {
|
||||||
if ~used name
|
if ~used name
|
||||||
display 'FUNC NOT USED: ',`name,13,10
|
display 'FUNC NOT USED: ',`name,13,10
|
||||||
else
|
else
|
||||||
align 4
|
align 4
|
||||||
name:
|
name:
|
||||||
;diff16 `name,0,name
|
;diff16 `name,0,name
|
||||||
;pushad
|
|
||||||
;pushfd
|
|
||||||
;dps `name
|
|
||||||
;newline
|
|
||||||
;mcall 5,1
|
|
||||||
;popfd
|
|
||||||
;popad
|
|
||||||
}
|
}
|
||||||
|
|
||||||
macro endf { end if }
|
macro endf { end if }
|
||||||
|
|
||||||
macro diff16 title,l1,l2
|
macro diff16 title,l1,l2
|
||||||
|
|||||||
@ -1,9 +1,10 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" or tup.getconfig("NO_MSVC") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" or tup.getconfig("NO_MSVC") ~= "" then return end
|
||||||
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
tup.include(HELPERDIR .. "/use_msvc.lua")
|
tup.include(HELPERDIR .. "/use_msvc.lua")
|
||||||
|
|
||||||
compile_msvc{"ac97snd/ac97wav.c", "ac97snd/crt.c"}
|
compile_msvc{"ac97snd/ac97wav.c", "ac97snd/crt.c"}
|
||||||
OBJS += tup.foreach_rule({"ac97snd/k_lib.asm", "ufmod-config.asm"}, "fasm %f %o", "%B.obj")
|
OBJS += tup.foreach_rule({"ac97snd/k_lib.asm", "ufmod-config.asm"}, FASM .. " %f %o", "%B.obj")
|
||||||
OBJS += "mpg/mpg.lib"
|
OBJS += "mpg/mpg.lib"
|
||||||
OBJS += "../../develop/sdk/trunk/sound/src/sound.lib"
|
OBJS += "../../develop/sdk/trunk/sound/src/sound.lib"
|
||||||
link_msvc("ac97snd.bin")
|
link_msvc("ac97snd.bin")
|
||||||
|
|||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1,220 +0,0 @@
|
|||||||
;*****************************************************************************
|
|
||||||
;*
|
|
||||||
;* Open Watcom Project
|
|
||||||
;*
|
|
||||||
;* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
|
|
||||||
;*
|
|
||||||
;* ========================================================================
|
|
||||||
;*
|
|
||||||
;* This file contains Original Code and/or Modifications of Original
|
|
||||||
;* Code as defined in and that are subject to the Sybase Open Watcom
|
|
||||||
;* Public License version 1.0 (the 'License'). You may not use this file
|
|
||||||
;* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
|
|
||||||
;* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
|
|
||||||
;* provided with the Original Code and Modifications, and is also
|
|
||||||
;* available at www.sybase.com/developer/opensource.
|
|
||||||
;*
|
|
||||||
;* The Original Code and all software distributed under the License are
|
|
||||||
;* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
|
|
||||||
;* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
|
|
||||||
;* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
|
|
||||||
;* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
|
|
||||||
;* NON-INFRINGEMENT. Please see the License for the specific language
|
|
||||||
;* governing rights and limitations under the License.
|
|
||||||
;*
|
|
||||||
;* ========================================================================
|
|
||||||
;*
|
|
||||||
;* Description: Structured macros for MASM/WASM.
|
|
||||||
;*
|
|
||||||
;*****************************************************************************
|
|
||||||
|
|
||||||
|
|
||||||
__label = 0
|
|
||||||
__depth = 0
|
|
||||||
__inner_loop = 0
|
|
||||||
|
|
||||||
_guess macro name
|
|
||||||
__depth = __depth + 1
|
|
||||||
__label = __label + 1
|
|
||||||
_set __astk,%__depth,__label,<>
|
|
||||||
__label = __label + 1
|
|
||||||
_set __estk,%__depth,__label,<>
|
|
||||||
ifnb <name>
|
|
||||||
name = __label
|
|
||||||
endif
|
|
||||||
endm
|
|
||||||
|
|
||||||
_quif macro cc,name
|
|
||||||
ifnb <name>
|
|
||||||
_set __elbl,,name,<>
|
|
||||||
_j cc,_l,%__elbl
|
|
||||||
else
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_j cc,_l,%__albl
|
|
||||||
endif
|
|
||||||
endm
|
|
||||||
|
|
||||||
_quit macro name
|
|
||||||
_quif ,name
|
|
||||||
endm
|
|
||||||
|
|
||||||
_admit macro
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
__label = __label + 1
|
|
||||||
_set __astk,%__depth,__label,<>
|
|
||||||
_set __elbl,,__estk,%__depth
|
|
||||||
_j ,_l,%__elbl
|
|
||||||
_label _l,%__albl
|
|
||||||
endm
|
|
||||||
|
|
||||||
_endguess macro
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_label _l,%__albl
|
|
||||||
_set __elbl,,__estk,%__depth
|
|
||||||
_label _l,%__elbl
|
|
||||||
__depth = __depth - 1
|
|
||||||
endm
|
|
||||||
|
|
||||||
_loop macro name
|
|
||||||
_guess name
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_label _m,%__albl
|
|
||||||
_set __elbl,,__estk,%__depth
|
|
||||||
_label _m,%__elbl
|
|
||||||
_set __llbl,%__depth,%__inner_loop,<>
|
|
||||||
_set __inner_loop,,%__depth,<>
|
|
||||||
endm
|
|
||||||
|
|
||||||
_loopif macro cc,name
|
|
||||||
ifnb <name>
|
|
||||||
_set __elbl,,name,<>
|
|
||||||
_j cc,_m,%__elbl
|
|
||||||
else
|
|
||||||
_set __albl,,__astk,%__inner_loop
|
|
||||||
_j cc,_m,%__albl
|
|
||||||
endif
|
|
||||||
endm
|
|
||||||
|
|
||||||
_until macro cc
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_jn cc,_m,%__albl
|
|
||||||
_set __inner_loop,,__llbl,%__depth
|
|
||||||
_endguess
|
|
||||||
endm
|
|
||||||
|
|
||||||
_endloop macro
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_j ,_m,%__albl
|
|
||||||
_set __inner_loop,,__llbl,%__depth
|
|
||||||
_endguess
|
|
||||||
endm
|
|
||||||
|
|
||||||
_if macro cc
|
|
||||||
_guess
|
|
||||||
_set __albl,,__astk,%__depth
|
|
||||||
_jn cc,_l,%__albl
|
|
||||||
endm
|
|
||||||
|
|
||||||
_else macro
|
|
||||||
_admit
|
|
||||||
endm
|
|
||||||
|
|
||||||
_endif macro
|
|
||||||
_endguess
|
|
||||||
endm
|
|
||||||
|
|
||||||
_set macro base1,ext1,base2,ext2
|
|
||||||
base1&ext1 = base2&ext2
|
|
||||||
endm
|
|
||||||
|
|
||||||
_label macro base,ext
|
|
||||||
base&ext:
|
|
||||||
endm
|
|
||||||
|
|
||||||
_j macro cc,base,ext
|
|
||||||
j&cc base&ext
|
|
||||||
endm
|
|
||||||
|
|
||||||
_jn macro cc,base,ext
|
|
||||||
jn&cc base&ext
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnna macro label
|
|
||||||
ja label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnae macro label
|
|
||||||
jae label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnb macro label
|
|
||||||
jb label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnbe macro label
|
|
||||||
jbe label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnc macro label
|
|
||||||
jc label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnne macro label
|
|
||||||
je label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnng macro label
|
|
||||||
jg label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnge macro label
|
|
||||||
jge label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnl macro label
|
|
||||||
jl label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnle macro label
|
|
||||||
jle label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnno macro label
|
|
||||||
jo label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnp macro label
|
|
||||||
jp label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnns macro label
|
|
||||||
js label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnnz macro label
|
|
||||||
jz label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnpe macro label
|
|
||||||
jpo label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jnpo macro label
|
|
||||||
jpe label
|
|
||||||
endm
|
|
||||||
|
|
||||||
j macro label
|
|
||||||
jmp label
|
|
||||||
endm
|
|
||||||
|
|
||||||
jn macro label
|
|
||||||
nop
|
|
||||||
endm
|
|
||||||
|
|
||||||
_shl macro reg,count
|
|
||||||
add reg,reg
|
|
||||||
endm
|
|
||||||
|
|
||||||
_rcl macro reg,count
|
|
||||||
adc reg,reg
|
|
||||||
endm
|
|
||||||
@ -1,6 +1,7 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" or tup.getconfig("NO_MSVC") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" or tup.getconfig("NO_MSVC") ~= "" then return end
|
||||||
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
|
||||||
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
tup.include(HELPERDIR .. "/use_msvc.lua")
|
tup.include(HELPERDIR .. "/use_msvc.lua")
|
||||||
compile_msvc{"*.c"}
|
compile_msvc{"*.c"}
|
||||||
tup.append_table(OBJS, tup.rule("pow.asm", "fasm %f %o", "pow.obj"))
|
tup.append_table(OBJS, tup.rule("pow.asm", FASM .. " %f %o", "pow.obj"))
|
||||||
tup.rule(OBJS, "link.exe /lib /out:%o %f", "mpg.lib")
|
tup.rule(OBJS, "link.exe /lib /out:%o %f", "mpg.lib")
|
||||||
|
|||||||
@ -1,268 +0,0 @@
|
|||||||
|
|
||||||
; Macroinstructions for defining and calling procedures
|
|
||||||
|
|
||||||
macro stdcall proc,[arg] ; directly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc }
|
|
||||||
|
|
||||||
macro invoke proc,[arg] ; indirectly call STDCALL procedure
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc] }
|
|
||||||
|
|
||||||
macro ccall proc,[arg] ; directly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call proc
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro cinvoke proc,[arg] ; indirectly call CDECL procedure
|
|
||||||
{ common
|
|
||||||
size@ccall = 0
|
|
||||||
if ~ arg eq
|
|
||||||
reverse
|
|
||||||
pushd arg
|
|
||||||
size@ccall = size@ccall+4
|
|
||||||
common
|
|
||||||
end if
|
|
||||||
call [proc]
|
|
||||||
if size@ccall
|
|
||||||
add esp,size@ccall
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro proc [args] ; define procedure
|
|
||||||
{ common
|
|
||||||
match name params, args>
|
|
||||||
\{ define@proc name,<params \} }
|
|
||||||
|
|
||||||
prologue@proc equ prologuedef
|
|
||||||
|
|
||||||
macro prologuedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ if parmbytes | localbytes
|
|
||||||
push ebp
|
|
||||||
mov ebp,esp
|
|
||||||
if localbytes
|
|
||||||
sub esp,localbytes
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
irps reg, reglist \{ push reg \} }
|
|
||||||
|
|
||||||
epilogue@proc equ epiloguedef
|
|
||||||
|
|
||||||
macro epiloguedef procname,flag,parmbytes,localbytes,reglist
|
|
||||||
{ irps reg, reglist \{ reverse pop reg \}
|
|
||||||
if parmbytes | localbytes
|
|
||||||
leave
|
|
||||||
end if
|
|
||||||
if flag and 10000b
|
|
||||||
retn
|
|
||||||
else
|
|
||||||
retn parmbytes
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro define@proc name,statement
|
|
||||||
{ local params,flag,regs,parmbytes,localbytes,current
|
|
||||||
if used name
|
|
||||||
name:
|
|
||||||
match =stdcall args, statement \{ params equ args
|
|
||||||
flag = 11b \}
|
|
||||||
match =stdcall, statement \{ params equ
|
|
||||||
flag = 11b \}
|
|
||||||
match =c args, statement \{ params equ args
|
|
||||||
flag = 10001b \}
|
|
||||||
match =c, statement \{ params equ
|
|
||||||
flag = 10001b \}
|
|
||||||
match =params, params \{ params equ statement
|
|
||||||
flag = 0 \}
|
|
||||||
virtual at ebp+8
|
|
||||||
match =uses reglist=,args, params \{ regs equ reglist
|
|
||||||
params equ args \}
|
|
||||||
match =regs =uses reglist, regs params \{ regs equ reglist
|
|
||||||
params equ \}
|
|
||||||
match =regs, regs \{ regs equ \}
|
|
||||||
match =,args, params \{ defargs@proc args \}
|
|
||||||
match =args@proc args, args@proc params \{ defargs@proc args \}
|
|
||||||
parmbytes = $ - (ebp+8)
|
|
||||||
end virtual
|
|
||||||
name # % = parmbytes/4
|
|
||||||
all@vars equ
|
|
||||||
current = 0
|
|
||||||
match prologue:reglist, prologue@proc:<regs> \{ prologue name,flag,parmbytes,localbytes,reglist \}
|
|
||||||
macro locals
|
|
||||||
\{ virtual at ebp-localbytes+current
|
|
||||||
macro label . \\{ deflocal@proc .,:, \\}
|
|
||||||
struc db [val] \\{ \common deflocal@proc .,db,val \\}
|
|
||||||
struc dw [val] \\{ \common deflocal@proc .,dw,val \\}
|
|
||||||
struc dp [val] \\{ \common deflocal@proc .,dp,val \\}
|
|
||||||
struc dd [val] \\{ \common deflocal@proc .,dd,val \\}
|
|
||||||
struc dt [val] \\{ \common deflocal@proc .,dt,val \\}
|
|
||||||
struc dq [val] \\{ \common deflocal@proc .,dq,val \\}
|
|
||||||
struc rb cnt \\{ deflocal@proc .,rb cnt, \\}
|
|
||||||
struc rw cnt \\{ deflocal@proc .,rw cnt, \\}
|
|
||||||
struc rp cnt \\{ deflocal@proc .,rp cnt, \\}
|
|
||||||
struc rd cnt \\{ deflocal@proc .,rd cnt, \\}
|
|
||||||
struc rt cnt \\{ deflocal@proc .,rt cnt, \\}
|
|
||||||
struc rq cnt \\{ deflocal@proc .,rq cnt, \\} \}
|
|
||||||
macro endl
|
|
||||||
\{ purge label
|
|
||||||
restruc db,dw,dp,dd,dt,dq
|
|
||||||
restruc rb,rw,rp,rd,rt,rq
|
|
||||||
restruc byte,word,dword,pword,tword,qword
|
|
||||||
current = $-(ebp-localbytes)
|
|
||||||
end virtual \}
|
|
||||||
macro ret operand
|
|
||||||
\{ match any, operand \\{ retn operand \\}
|
|
||||||
match , operand \\{ match epilogue:reglist, epilogue@proc:<regs>
|
|
||||||
\\\{ epilogue name,flag,parmbytes,localbytes,reglist \\\} \\} \}
|
|
||||||
macro finish@proc \{ localbytes = (((current-1) shr 2)+1) shl 2
|
|
||||||
end if \} }
|
|
||||||
|
|
||||||
macro defargs@proc [arg]
|
|
||||||
{ common
|
|
||||||
if ~ arg eq
|
|
||||||
forward
|
|
||||||
local ..arg,current@arg
|
|
||||||
match argname:type, arg
|
|
||||||
\{ current@arg equ argname
|
|
||||||
label ..arg type
|
|
||||||
argname equ ..arg
|
|
||||||
if dqword eq type
|
|
||||||
dd ?,?,?,?
|
|
||||||
else if tbyte eq type
|
|
||||||
dd ?,?,?
|
|
||||||
else if qword eq type | pword eq type
|
|
||||||
dd ?,?
|
|
||||||
else
|
|
||||||
dd ?
|
|
||||||
end if \}
|
|
||||||
match =current@arg,current@arg
|
|
||||||
\{ current@arg equ arg
|
|
||||||
arg equ ..arg
|
|
||||||
..arg dd ? \}
|
|
||||||
common
|
|
||||||
args@proc equ current@arg
|
|
||||||
forward
|
|
||||||
restore current@arg
|
|
||||||
common
|
|
||||||
end if }
|
|
||||||
|
|
||||||
macro deflocal@proc name,def,[val]
|
|
||||||
{ common
|
|
||||||
match vars, all@vars \{ all@vars equ all@vars, \}
|
|
||||||
all@vars equ all@vars name
|
|
||||||
forward
|
|
||||||
local ..var,..tmp
|
|
||||||
..var def val
|
|
||||||
match =?, val \{ ..tmp equ \}
|
|
||||||
match any =dup (=?), val \{ ..tmp equ \}
|
|
||||||
match tmp : value, ..tmp : val
|
|
||||||
\{ tmp: end virtual
|
|
||||||
initlocal@proc ..var,def value
|
|
||||||
virtual at tmp\}
|
|
||||||
common
|
|
||||||
match first rest, ..var, \{ name equ first \} }
|
|
||||||
|
|
||||||
macro initlocal@proc name,def
|
|
||||||
{ virtual at name
|
|
||||||
def
|
|
||||||
size@initlocal = $ - name
|
|
||||||
end virtual
|
|
||||||
position@initlocal = 0
|
|
||||||
while size@initlocal > position@initlocal
|
|
||||||
virtual at name
|
|
||||||
def
|
|
||||||
if size@initlocal - position@initlocal < 2
|
|
||||||
current@initlocal = 1
|
|
||||||
load byte@initlocal byte from name+position@initlocal
|
|
||||||
else if size@initlocal - position@initlocal < 4
|
|
||||||
current@initlocal = 2
|
|
||||||
load word@initlocal word from name+position@initlocal
|
|
||||||
else
|
|
||||||
current@initlocal = 4
|
|
||||||
load dword@initlocal dword from name+position@initlocal
|
|
||||||
end if
|
|
||||||
end virtual
|
|
||||||
if current@initlocal = 1
|
|
||||||
mov byte [name+position@initlocal],byte@initlocal
|
|
||||||
else if current@initlocal = 2
|
|
||||||
mov word [name+position@initlocal],word@initlocal
|
|
||||||
else
|
|
||||||
mov dword [name+position@initlocal],dword@initlocal
|
|
||||||
end if
|
|
||||||
position@initlocal = position@initlocal + current@initlocal
|
|
||||||
end while }
|
|
||||||
|
|
||||||
macro endp
|
|
||||||
{ purge ret,locals,endl
|
|
||||||
finish@proc
|
|
||||||
purge finish@proc
|
|
||||||
restore regs@proc
|
|
||||||
match all,args@proc \{ restore all \}
|
|
||||||
restore args@proc
|
|
||||||
match all,all@vars \{ restore all \} }
|
|
||||||
|
|
||||||
macro local [var]
|
|
||||||
{ common
|
|
||||||
locals
|
|
||||||
forward done@local equ
|
|
||||||
match varname[count]:vartype, var
|
|
||||||
\{ match =BYTE, vartype \\{ varname rb count
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname rw count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname rd count
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname rp count
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname rq count
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname rt count
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
rq count+count
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ virtual
|
|
||||||
varname vartype
|
|
||||||
end virtual
|
|
||||||
rb count*sizeof.\#vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match :varname:vartype, done@local:var
|
|
||||||
\{ match =BYTE, vartype \\{ varname db ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =WORD, vartype \\{ varname dw ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DWORD, vartype \\{ varname dd ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =PWORD, vartype \\{ varname dp ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =QWORD, vartype \\{ varname dq ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =TBYTE, vartype \\{ varname dt ?
|
|
||||||
restore done@local \\}
|
|
||||||
match =DQWORD, vartype \\{ label varname dqword
|
|
||||||
dq ?,?
|
|
||||||
restore done@local \\}
|
|
||||||
match , done@local \\{ varname vartype
|
|
||||||
restore done@local \\} \}
|
|
||||||
match ,done@local
|
|
||||||
\{ var
|
|
||||||
restore done@local \}
|
|
||||||
common
|
|
||||||
endl }
|
|
||||||
@ -1 +0,0 @@
|
|||||||
__CPU_type fix p5
|
|
||||||
@ -15,8 +15,7 @@
|
|||||||
dd 0x0 ; адрес буфера для параметров (не используется)
|
dd 0x0 ; адрес буфера для параметров (не используется)
|
||||||
dd 0x0 ; зарезервировано
|
dd 0x0 ; зарезервировано
|
||||||
|
|
||||||
include 'MACROS.INC' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ!
|
include 'macros.inc' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ!
|
||||||
include 'lang.inc'
|
|
||||||
|
|
||||||
;---------------------------------------------------------------------
|
;---------------------------------------------------------------------
|
||||||
;--- НАЧАЛО ПРОГРАММЫ ----------------------------------------------
|
;--- НАЧАЛО ПРОГРАММЫ ----------------------------------------------
|
||||||
|
|||||||
@ -1,268 +0,0 @@
|
|||||||
; 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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; language for programs
|
|
||||||
lang fix ru ; ru en fr ge fi
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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 ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"CD_tray.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "CD_tray")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("CD_tray.ASM", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "%B")
|
||||||
|
|||||||
@ -1,3 +1,3 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
||||||
tup.rule({"CPUID.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "CPUID")
|
tup.rule({"CPUID.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o -m70000" .. tup.getconfig("KPACK_CMD"), "CPUID")
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"gmon.asm", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "gmon")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("gmon.asm", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "gmon")
|
||||||
|
|||||||
@ -35,10 +35,25 @@
|
|||||||
; 12 - Update time decriment (tab_conf.inc)
|
; 12 - Update time decriment (tab_conf.inc)
|
||||||
; 13..17 - Color Changing buttons CPU_load, Mem_usage, Temp1, Temp2, Temp3
|
; 13..17 - Color Changing buttons CPU_load, Mem_usage, Temp1, Temp2, Temp3
|
||||||
|
|
||||||
include 'lang.inc'
|
|
||||||
include 'config.inc'
|
include 'config.inc'
|
||||||
include 'macros.inc'
|
include 'macros.inc'
|
||||||
|
|
||||||
|
macro clear_prev_no arg1 ; clears previous number printed at arg1
|
||||||
|
{
|
||||||
|
pusha
|
||||||
|
mov ebx, 0x00070000
|
||||||
|
mov ecx, 1000000 ; dummy value
|
||||||
|
mov edx, arg1
|
||||||
|
mov esi, 0x40000000 + tcol
|
||||||
|
mov edi, tcol ; bg col
|
||||||
|
mov eax, 47
|
||||||
|
int 0x40
|
||||||
|
popa
|
||||||
|
}
|
||||||
|
|
||||||
|
nl equ 0x0d, 0x0a
|
||||||
|
|
||||||
|
|
||||||
tcol equ 0x5080d0
|
tcol equ 0x5080d0
|
||||||
atcol equ 0x4070c0
|
atcol equ 0x4070c0
|
||||||
val_mod equ 0x3090
|
val_mod equ 0x3090
|
||||||
|
|||||||
@ -1,380 +0,0 @@
|
|||||||
; language for programs
|
|
||||||
;lang fix en ; ru en fr ge fi
|
|
||||||
; added lang.inc for compiling with a specific language
|
|
||||||
|
|
||||||
@^ fix macro comment {
|
|
||||||
^@ fix }
|
|
||||||
|
|
||||||
nl equ 0x0d, 0x0a
|
|
||||||
;~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
|
|
||||||
macro uglobal {
|
|
||||||
UGlobals equ UGlobals,
|
|
||||||
macro __UGlobalBlock { }
|
|
||||||
|
|
||||||
endg fix } ; Use endg for ending iglobal and uglobal blocks.
|
|
||||||
|
|
||||||
macro IncludeUGlobals{
|
|
||||||
macro UGlobals dummy,[n] \{
|
|
||||||
\common
|
|
||||||
\local begin, size
|
|
||||||
begin = $
|
|
||||||
virtual at $
|
|
||||||
\forward
|
|
||||||
__UGlobalBlock
|
|
||||||
purge __UGlobalBlock
|
|
||||||
\common
|
|
||||||
size = $ - begin
|
|
||||||
end virtual
|
|
||||||
rb size
|
|
||||||
\}
|
|
||||||
match U, UGlobals \{ U \} }
|
|
||||||
|
|
||||||
uglobal
|
|
||||||
endg
|
|
||||||
;~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
|
|
||||||
|
|
||||||
; 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:
|
|
||||||
IncludeUGlobals
|
|
||||||
}
|
|
||||||
UDATA fix udata
|
|
||||||
|
|
||||||
macro meos_app_end
|
|
||||||
{
|
|
||||||
align 32
|
|
||||||
rb 2048
|
|
||||||
__stack:
|
|
||||||
__memory:
|
|
||||||
display nl, ' '
|
|
||||||
}
|
|
||||||
MEOS_APP_END fix meos_app_end
|
|
||||||
|
|
||||||
; macro for defining multiline text data
|
|
||||||
struc mls [sstring] {
|
|
||||||
forward
|
|
||||||
local ssize
|
|
||||||
virtual at 0
|
|
||||||
db sstring ; mod
|
|
||||||
ssize = $
|
|
||||||
end virtual
|
|
||||||
db ssize
|
|
||||||
db sstring
|
|
||||||
common
|
|
||||||
|
|
||||||
db -1 ; mod
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
name db data
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro szc name,elsz,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m
|
|
||||||
m = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
local s,m
|
|
||||||
m = 0
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
forward
|
|
||||||
if lang eq lng
|
|
||||||
virtual at 0
|
|
||||||
db data
|
|
||||||
s = $
|
|
||||||
end virtual
|
|
||||||
d#elsz s
|
|
||||||
if m < s
|
|
||||||
m = s
|
|
||||||
end if
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
.size = $-name
|
|
||||||
.maxl = m
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
;macro __mov reg,a { ; mike.dld
|
|
||||||
; if ~a eq
|
|
||||||
; mov reg,a
|
|
||||||
; end if
|
|
||||||
;}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; -------------------------
|
|
||||||
macro header a,[b] {
|
|
||||||
common
|
|
||||||
use32
|
|
||||||
org 0
|
|
||||||
db 'MENUET',a
|
|
||||||
forward
|
|
||||||
if b eq
|
|
||||||
dd 0
|
|
||||||
else
|
|
||||||
dd b
|
|
||||||
end if }
|
|
||||||
macro section name { align 16
|
|
||||||
label name }
|
|
||||||
macro func name {
|
|
||||||
if ~used name
|
|
||||||
display 'FUNC NOT USED: ',`name,13,10
|
|
||||||
else
|
|
||||||
align 4
|
|
||||||
name:
|
|
||||||
;pushad
|
|
||||||
;pushfd
|
|
||||||
;dps `name
|
|
||||||
;newline
|
|
||||||
;mcall 5,1
|
|
||||||
;popfd
|
|
||||||
;popad
|
|
||||||
}
|
|
||||||
macro endf { end if }
|
|
||||||
|
|
||||||
macro diff16 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d
|
|
||||||
s = l2-l1
|
|
||||||
display title,': 0x'
|
|
||||||
repeat 8
|
|
||||||
d = '0' + s shr ((8-%) shl 2) and $0F
|
|
||||||
if d > '9'
|
|
||||||
d = d + 'A'-'9'-1
|
|
||||||
end if
|
|
||||||
display d
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
macro diff10 title,l1,l2
|
|
||||||
{
|
|
||||||
local s,d,z,m
|
|
||||||
s = l2-l1
|
|
||||||
z = 0
|
|
||||||
m = 1000000000
|
|
||||||
display title,': '
|
|
||||||
repeat 10
|
|
||||||
d = '0' + s / m
|
|
||||||
s = s - (s/m)*m
|
|
||||||
m = m / 10
|
|
||||||
if d <> '0'
|
|
||||||
z = 1
|
|
||||||
end if
|
|
||||||
if z <> 0
|
|
||||||
display d
|
|
||||||
end if
|
|
||||||
end repeat
|
|
||||||
display 13,10
|
|
||||||
}
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & (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
|
|
||||||
}
|
|
||||||
|
|
||||||
macro clear_prev_no arg1 ; clears previous number printed at arg1
|
|
||||||
{
|
|
||||||
pusha
|
|
||||||
mov ebx, 0x00070000
|
|
||||||
mov ecx, 1000000 ; dummy value
|
|
||||||
mov edx, arg1
|
|
||||||
mov esi, 0x40000000 + tcol
|
|
||||||
mov edi, tcol ; bg col
|
|
||||||
mov eax, 47
|
|
||||||
int 0x40
|
|
||||||
popa
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
struc POINT _t,_dx,_dy {
|
|
||||||
.x _t _dx
|
|
||||||
.y _t _dy
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
; 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
|
|
||||||
@ -3,4 +3,4 @@ HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("
|
|||||||
tup.include(HELPERDIR .. "/use_fasm.lua")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
|
||||||
add_include(HELPERDIR .. "/develop/libraries/libs-dev/libio")
|
add_include(HELPERDIR .. "/develop/libraries/libs-dev/libio")
|
||||||
tup.rule("launch.asm", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o" .. tup.getconfig("KPACK_CMD"), "launch")
|
tup.rule("launch.asm", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o" .. tup.getconfig("KPACK_CMD"), "%B")
|
||||||
|
|||||||
@ -142,7 +142,6 @@
|
|||||||
; * detect Revision, Class and Subclass of Device,
|
; * detect Revision, Class and Subclass of Device,
|
||||||
; * and make Description based on Class
|
; * and make Description based on Class
|
||||||
;-------------------------------------------------------------
|
;-------------------------------------------------------------
|
||||||
include 'lang.inc'
|
|
||||||
include 'macros.inc'
|
include 'macros.inc'
|
||||||
MEOS_APP_START
|
MEOS_APP_START
|
||||||
CODE
|
CODE
|
||||||
@ -159,13 +158,13 @@ still: mcall 10 ; wait here for event
|
|||||||
|
|
||||||
red: ; redraw
|
red: ; redraw
|
||||||
mcall 9, Proc_Info, -1 ; window redraw requested so get new window coordinates and size
|
mcall 9, Proc_Info, -1 ; window redraw requested so get new window coordinates and size
|
||||||
mov eax, [Proc_Info.x_start]; store the window coordinates into the Form Structure
|
mov eax, [Proc_Info.box.left]; store the window coordinates into the Form Structure
|
||||||
mov [Form + 2], ax ; x start position
|
mov [Form + 2], ax ; x start position
|
||||||
mov eax, [Proc_Info.y_start];
|
mov eax, [Proc_Info.box.top];
|
||||||
mov [Form + 6], ax ; ystart position
|
mov [Form + 6], ax ; ystart position
|
||||||
mov eax, [Proc_Info.x_size] ;
|
mov eax, [Proc_Info.box.width];
|
||||||
mov [Form], ax ; window width
|
mov [Form], ax ; window width
|
||||||
mov eax, [Proc_Info.y_size] ;
|
mov eax, [Proc_Info.box.height];
|
||||||
mov [Form + 4] ,ax ; window height
|
mov [Form + 4] ,ax ; window height
|
||||||
call draw_window ; go redraw window now
|
call draw_window ; go redraw window now
|
||||||
jmp still
|
jmp still
|
||||||
|
|||||||
@ -1,3 +1,4 @@
|
|||||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
tup.rule("echo lang fix " .. ((tup.getconfig("LANG") == "") and "en" or tup.getconfig("LANG")) .. " > lang.inc", {"lang.inc"})
|
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../../.." or tup.getconfig("HELPERDIR")
|
||||||
tup.rule({"PCIDEV.ASM", extra_inputs = {"lang.inc"}}, "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "PCIDEV")
|
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||||
|
tup.rule("PCIDEV.ASM", FASM .. " -dlang=" .. tup.getconfig("LANG") .. " %f %o " .. tup.getconfig("KPACK_CMD"), "%B")
|
||||||
|
|||||||
@ -1,333 +0,0 @@
|
|||||||
|
|
||||||
;~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
|
|
||||||
macro iglobal {
|
|
||||||
IGlobals equ IGlobals,
|
|
||||||
macro __IGlobalBlock { }
|
|
||||||
|
|
||||||
macro uglobal {
|
|
||||||
UGlobals equ UGlobals,
|
|
||||||
macro __UGlobalBlock { }
|
|
||||||
|
|
||||||
endg fix } ; Use endg for ending iglobal and uglobal blocks.
|
|
||||||
|
|
||||||
|
|
||||||
macro IncludeIGlobals{
|
|
||||||
macro IGlobals dummy,[n] \{ __IGlobalBlock
|
|
||||||
purge __IGlobalBlock \}
|
|
||||||
match I, IGlobals \{ I \} }
|
|
||||||
|
|
||||||
macro IncludeUGlobals{
|
|
||||||
macro UGlobals dummy,[n] \{
|
|
||||||
\common
|
|
||||||
\local begin, size
|
|
||||||
begin = $
|
|
||||||
virtual at $
|
|
||||||
\forward
|
|
||||||
__UGlobalBlock
|
|
||||||
purge __UGlobalBlock
|
|
||||||
\common
|
|
||||||
size = $ - begin
|
|
||||||
end virtual
|
|
||||||
rb size
|
|
||||||
\}
|
|
||||||
match U, UGlobals \{ U \} }
|
|
||||||
|
|
||||||
uglobal
|
|
||||||
endg
|
|
||||||
|
|
||||||
iglobal
|
|
||||||
endg
|
|
||||||
|
|
||||||
;~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-
|
|
||||||
; 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:
|
|
||||||
IncludeIGlobals
|
|
||||||
}
|
|
||||||
DATA fix data
|
|
||||||
|
|
||||||
macro udata
|
|
||||||
{
|
|
||||||
if used __params & ~defined __params
|
|
||||||
__params:
|
|
||||||
db 0
|
|
||||||
__end:
|
|
||||||
rb 255
|
|
||||||
else
|
|
||||||
__end:
|
|
||||||
end if
|
|
||||||
__udata:
|
|
||||||
IncludeUGlobals
|
|
||||||
}
|
|
||||||
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
|
|
||||||
}
|
|
||||||
|
|
||||||
; macro for defining multiline text data
|
|
||||||
struc mls [sstring] {
|
|
||||||
forward
|
|
||||||
local ssize
|
|
||||||
virtual at 0
|
|
||||||
db sstring ; mod
|
|
||||||
ssize = $
|
|
||||||
end virtual
|
|
||||||
db ssize
|
|
||||||
db sstring
|
|
||||||
common
|
|
||||||
|
|
||||||
db -1 ; mod
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; strings
|
|
||||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if used name
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
label name
|
|
||||||
end if
|
|
||||||
forward
|
|
||||||
if (used name)&(lang eq lng)
|
|
||||||
db data
|
|
||||||
end if
|
|
||||||
common
|
|
||||||
if used name
|
|
||||||
.size = $-name
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; easy system call macro
|
|
||||||
macro mpack dest, hsrc, lsrc
|
|
||||||
{
|
|
||||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16 + lsrc
|
|
||||||
else
|
|
||||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
|
||||||
mov dest, (hsrc) shl 16
|
|
||||||
add dest, lsrc
|
|
||||||
else
|
|
||||||
mov dest, hsrc
|
|
||||||
shl dest, 16
|
|
||||||
add dest, lsrc
|
|
||||||
end if
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
macro __mov reg,a,b { ; mike.dld
|
|
||||||
if (~a eq)&(~b eq)
|
|
||||||
mpack reg,a,b
|
|
||||||
else if (~a eq)&(b eq)
|
|
||||||
mov reg,a
|
|
||||||
end if
|
|
||||||
}
|
|
||||||
|
|
||||||
__CPU_type equ p5
|
|
||||||
SYSENTER_VAR equ 0
|
|
||||||
|
|
||||||
macro mcall a,b,c,d,e,f { ; mike.dld
|
|
||||||
__mov eax,a
|
|
||||||
__mov ebx,b
|
|
||||||
__mov ecx,c
|
|
||||||
__mov edx,d
|
|
||||||
__mov esi,e
|
|
||||||
__mov edi,f
|
|
||||||
|
|
||||||
int 0x40
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; optimize the code for size
|
|
||||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
|
||||||
|
|
||||||
macro add arg1,arg2
|
|
||||||
{
|
|
||||||
if (arg2 eqtype 0)
|
|
||||||
if (arg2) = 1
|
|
||||||
inc arg1
|
|
||||||
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 __regs) & ((arg2 eqtype 0) | (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
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
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
|
|
||||||
dw ? ; +52 - reserved
|
|
||||||
.client_left dd ? ; +54
|
|
||||||
.client_top dd ? ; +58
|
|
||||||
.client_width dd ? ; +62
|
|
||||||
.client_height dd ? ; +66
|
|
||||||
.wnd_state db ? ; +70
|
|
||||||
rb (1024-71)
|
|
||||||
}
|
|
||||||
struct process_information
|
|
||||||
|
|
||||||
struc system_colors
|
|
||||||
{
|
|
||||||
.frame dd ?
|
|
||||||
.grab dd ?
|
|
||||||
.work_3d_dark dd ?
|
|
||||||
.work_3d_light 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
|
|
||||||
Loading…
Reference in New Issue
Block a user