commands.text

   1 imgtool dir coco_jvc_rsdos figauto6809opt.dsk
   2 imgtool dir coco_jvc_rsdos workfig.dsk
   3
   4 imgtool del coco_jvc_rsdos workfig.dsk FIG.BIN
   5
   6 [imgtool put coco_jvc_rsdos figauto6809opt.dsk figao09.bin FIGAO09.BIN]
   7 imgtool put coco_jvc_rsdos workfig.dsk a.out FIG.BIN
   8
   9
  10 ../../lwtools-4.14/lwasm/lwasm --list=fig-forth-auto6809opt.list fig-forth-auto6809opt.asm
  11 ../../lwtools-4.14/lwasm/lwasm --list=fig-forth-auto6809.list fig-forth-auto6809.asm
  12 [../lwtools-4.14/lwasm/lwasm --list=figao.list figao.asm]
  13
  14 for name in  bif-6809lw/*.ASM ; do  echo $name :\\n ; cat $name | tr '\r' '\n' | grep "BACK" ; done
  15
  16
  17 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
  18
  19
  20 LOADM "FIG.BIN"
  21 LOADM"FIG
  22 EXEC &H1200
  23
  24
  25 hex
  26
  27 : bemit dup bl < over 7f < 0= or
  28 if drop 2e endif
  29 emit ;
  30
  31 : x.r base @ >r hex .r r> base ! ;
  32
  33
  34 : bline
  35 dup 4 + over  do
  36 i c@ 3 x.r loop
  37 space space
  38 dup 4 + swap do
  39 i c@ bemit loop ;
  40
  41 : bdump cr
  42 do i 4 x.r 3a emit space
  43 i bline cr 4 +loop ;
  44