asm_dip/toolchain/fasm2/include/fix.inc
2024-11-25 00:04:53 -05:00

32 lines
513 B
PHP

define fix? fix?
fix... = 0
calminstruction (name) fix? &value&
arrange name, fix.name
publish name, value
check fix...
jyes done
compute fix..., 1
arrange name, fix.=enable
assemble name
done:
end calminstruction
macro fix?.enable? chain
chain
macro include?! file*, head
include file, fix.enable head
purge ?, include?
end macro
calminstruction ?! &line&
local any
match any =fix? any?, line
jyes skip
transform line, fix
skip:
assemble line
end calminstruction
end macro