dialer/assemble.jrt

12 lines
302 B
Plaintext
Executable File

s" defs.jrt" loadfile
s" target.jrt" loadfile
s" asm.jrt" loadfile
:init segalloc ' comseg redefine ;
: writecom ( filename -- )
overwrite >r target 0x100 - 0x100 r@ comseg farfwrite <r close ;
: writeself overwrite >r here 0x100 - 0x100 r@ fwrite <r close ;
s" assemble.com" writeself