2023-09-13 03:27:46 +00:00
|
|
|
s" defs.jrt" loadfile
|
|
|
|
s" target.jrt" loadfile
|
|
|
|
s" asm.jrt" loadfile
|
|
|
|
|
|
|
|
:init segalloc ' comseg redefine ;
|
|
|
|
|
|
|
|
: writecom ( filename -- )
|
2023-10-16 01:05:54 +00:00
|
|
|
overwrite >r target 0x100 - 0x100 r@ comseg farfwrite <r close ;
|
2023-09-13 03:27:46 +00:00
|
|
|
: writeself overwrite >r here 0x100 - 0x100 r@ fwrite <r close ;
|
|
|
|
|
|
|
|
s" assemble.com" writeself
|