kolibrios-gitea/programs/demos/life2/include/write_macro.inc
IgorA 97d7b5c34a clean code
git-svn-id: svn://kolibrios.org@8170 a494cfbc-eb01-0410-851d-a64ba20cac60
2020-11-10 12:19:15 +00:00

50 lines
582 B
PHP

macro writestr [arg]
{
common
local straddr
local strend
pushad
push straddr
push strend
jmp @Kolibri@DebugPutString$qpxc
straddr db arg,0
strend:
pop eax
popad
}
macro writeint arg
{
push dword arg
xchg eax,[esp]
pushad
push eax
call @DebugPutNumber$qi
pop eax
popad
pop eax
}
macro write [arg]
{
forward
if arg eq
else if arg eq endline
writestr 10
else if arg eqtype ''
writestr arg
else
writeint arg
end if
}
macro writeln [arg]
{
common
write arg,endline
}