OSDN Git Service

digging out the bugs, keeping track of the build commands.text
[fig-forth-6809/fig-forth-6809.git] / 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=figao.list figao.asm
12
13 for name in  bif-6809lw/*.ASM ; do  echo $name :\\n ; cat $name | tr '\r' '\n' | grep "BACK" ; done
14
15
16 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
17
18
19
20 hex
21
22 : bout dup bl < 
23 if drop 2e endif 
24 emit ;
25
26 : x.r base @ swap hex .r base ! ;
27
28
29 : bline 
30 dup 4 + over  do 
31 i c@ 3 x.r loop
32 space space
33 dup 4 + swap do
34 i c@ bout loop ;
35
36 : bdump cr 
37 do i 4 x.r 3a emit space
38 i bline cr 4 +loop ;