1  ?f<< /lib/file.fs
 2  f<< /cos/cos.fs
 3  S" boot.bin" mountImage ( drv ) value mydrv
 4  mydrv DriveFile :new structbind IO myfile
 5  : spitrom ( a u -- ) myfile :write myfile :flush ;
 6  xcomp 8086a
 7  401 load \ ROM header
 8  402 load \ init
 9  403 load \ int86
10  404 load \ epilogue
11  xorg here over - spitrom
12  bye
13