Jeremy Penner
6521a2127b
assemble.jrt for creating assemble.com which has asm.jrt preloaded rebuild.bat for re-bootstrapping tinyjort from scratch and verifying that minijort and assemble produce the same binary small CGA textmode vocabulary with test program
13 lines
332 B
Text
Executable file
13 lines
332 B
Text
Executable file
s" defs.jrt" loadfile
|
|
s" target.jrt" loadfile
|
|
s" asm.jrt" loadfile
|
|
|
|
:init segalloc ' comseg redefine ;
|
|
|
|
: writecom ( filename -- )
|
|
overwrite >r 0x100
|
|
begin dup target < while dup b@t r@ fputc 1+ repeat
|
|
drop <r close ;
|
|
: writeself overwrite >r here 0x100 - 0x100 r@ fwrite <r close ;
|
|
|
|
s" assemble.com" writeself
|