imgtool dir coco_jvc_rsdos figauto6809opt.dsk
imgtool dir coco_jvc_rsdos workfig.dsk 

imgtool del coco_jvc_rsdos workfig.dsk FIG.BIN

imgtool put coco_jvc_rsdos figauto6809opt.dsk figao09.bin FIGAO09.BIN
imgtool put coco_jvc_rsdos workfig.dsk a.out FIG.BIN


../lwtools-4.14/lwasm/lwasm --list=fig-forth-auto6809opt.list fig-forth-auto6809opt.asm
../lwtools-4.14/lwasm/lwasm --list=figao.list figao.asm

for name in  bif-6809lw/*.ASM ; do  echo $name :\\n ; cat $name | tr '\r' '\n' | grep "BACK" ; done


xroar-0.34.7/src/xroar -machine coco2bus -bas roms/Color\ Basic\ v1.3\ \(1982\)\(Tandy\).rom -extbas roms/Extended\ Colour\ Basic\ v1.0\ \(1981\)\(Tandy\)/coco.rom -cart rsdos -cart-rom roms/Color\ Computer\ Controller\ \(1982\)\ \(26-3022\).rom -keymap us -kbd-translate



hex

: bout dup bl < 
if drop 2e endif 
emit ;

: x.r base @ swap hex .r base ! ;


: bline 
dup 4 + over  do 
i c@ 3 x.r loop
space space
dup 4 + swap do
i c@ bout loop ;

: bdump cr 
do i 4 x.r 3a emit space
i bline cr 4 +loop ;