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