annotate game09/disasm09.game @ 161:91447c3ccd58

fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 12 Feb 2019 09:16:24 +0900
parents 6be44b5de445
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
68
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 100 "ADDRESS=" A=?
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 110 "TO =" D=? @ !=900
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 120 @=(A>D) #=-1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 900 / ??=A .=20 E=A !=1000
116
6be44b5de445 fix asm09.game
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
5 910 / .=5 B=0,5 ;=E+B>=A .=3 #=930
68
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 920 ?$=E:B) " "
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 930 @=B+1 .=30 B=0,5 ;=E+B>=A #=970
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 950 ;=E:B)>" " $=E:B) #=970
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 960 " "
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 970 @=B+1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 990 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 1000 ;=(A:0)>$7F) #=1200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 1010 ;=(A:0)=$10) #=1400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 1020 ;=(A:0)=$11) #=1600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 1030 ;=(A:0)=$12) "NOP" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 1040 ;=(A:0)=$13) "SYNC" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 1050 ;=(A:0)=$16) "LBRA" #=2000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 1060 ;=(A:0)=$17) "LBSR" #=2000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 1070 ;=(A:0)=$19) "DAA" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 1080 ;=(A:0)=$1A) "ORCC" #=2200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 1090 ;=(A:0)=$1C) "ANDCC" #=2400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 1100 ;=(A:0)=$1D) "SEX" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 1110 ;=(A:0)=$1E) "EXG" #=2600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 1120 ;=(A:0)=$1F) "TFR" #=2600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 1130 ;=((A:0)/16)=1) #=3200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 1140 ;=((A:0)/16)=2) #=2800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 1150 ;=((A:0)/16)=3) #=3000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 1160 ;=(A:0)=$4E) #=3200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 1170 ;=(A:0)=$5E) #=3200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 1180 #=3400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 1200 ;=(A:0)=$8D) "BSR" #=3600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 1210 ;=(%(A:0)/16)=3) #=3800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 1220 ;=(%(A:0)/16)=7) #=4000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 1230 ;=(%(A:0)/16)=13) #=4000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 1240 ;=(%(A:0)/16)=15) #=4000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 1250 ;=(%(A:0)/16)>11) #=4200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 1260 B=%(A:0)/16) !=4400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 1270 ;=(A:0)>$BF) #=4600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 1275 "A"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 1280 !=7200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 1290 ;=(B=0) #=7000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 1300 ;=(B=1) A=A+2 " $" ?$=A:-1) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 1310 ;=(B=2) #=4800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 1320 " $" A=A+3 ??=A(-1) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 1400 ;=(A:1)=$20) #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 1410 ;=(A:1)=$3F) A=A+2 "SWI2" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 1420 ;=((A:1)/16)=2 A=A+1 #=5200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 1430 ;=(A:1)=$8F) #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 1440 ;=(A:1)=$CF) #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 1450 ;=(A:1)>$BF) #=5400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 1455 ;=(A:1)<$80) #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 1460 !=7400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 1470 A=A+1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 1480 ;=(B=3) "CMPD" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 1490 ;=(B=12) "CMPY" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 1500 ;=(B=14) "LDY" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 1510 ;=(B=15) "STY" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 1520 #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 1600 ;=(A:1)=$3F) A=A+2 "SWI3" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 1610 ;=(A:1)<$80) #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 1620 ;=(A:1)>$BF) #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 1630 A=A+1 !=7600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 1640 ;=(B=3) "CMPU" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 1650 ;=(B=12) "CMPS" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 1660 #=3200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 1800 A=A+1 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 2000 A=A+1 C=A+2+A(0)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 2010 " $" ??=C A=A+2 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 2200 B=A:1)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 2210 ;=(B>$7F) ",E" B=B-$80
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 2220 ;=(B>$3F) ",F" B=B-$40
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 2230 ;=(B>$1F) ",H" B=B-$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 2240 ;=(B>$F) ",I" B=B-$10
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 2250 ;=(B>7) ",N" B=B-8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 2260 ;=(B>3) ",Z" B=B-4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 2270 ;=(B>1) ",V" B=B-2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 2280 ;=(B>0) ",C"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 2290 A=A+2 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 2400 B=$FF-A:1) #=2210
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 2600 .=1 B=A:1)/16 !=5600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 2610 "," !=7400 !=5600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 2620 A=A+2 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 2800 !=5800 B=A:1)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 2810 ;=(B>$7F) B=B+$FF00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 2820 B=B+A+2 " $" ??=B A=A+2 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 3000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 3010 ;=A:0)=$3F "SYS" #=7030
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 3020 ;=(A:0)=$3D) "MUL" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 3030 ;=(A:0)=$3C) "CWAI" #=2400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 3040 ;=(A:0)=$3B) "RTI" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 3050 ;=(A:0)=$3A) "ABX" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 3060 ;=(A:0)=$39) "RTS" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 3070 ;=(A:0)>$37) #=3200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 3080 ;=(A:0)<$34) #=6000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 3090 B=%(A:0)/2)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 3100 ;=(B=0) "PSH" #=3120
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 3110 "PUL"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 3120 ;=(A:0)>$35) "U" #=3140
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 3130 "S"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 3140 #=6200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 3200 A=A+1 "UNDF" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 3400 !=7600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 3410 ;=(B=0) "NEG" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 3420 ;=(B=3) "COM" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 3430 ;=(B=4) "LSR" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 3440 ;=(B=6) "ROR" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 3450 ;=(B=7) "ASR" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 3460 ;=(B=8) "ASL" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 3470 ;=(B=9) "ROL" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 3480 ;=(B=10) "DEC" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 3490 ;=(B=12) "INC" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 3500 ;=(B=13) "TST" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 3510 ;=(B=14) "JMP" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 3520 ;=(B=15) "CLR" #=6400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 3530 #=3200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 3600 B=A:1) #=2810
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 3800 !=7200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 3810 ;=(A:0)>$BF) "ADDD" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 3820 "SUBD" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 4000 !=7200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 4010 ;=(B=0) #=3200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 4020 #=1250
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 4200 !=7600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 4210 ;=(A:0)>$BF) #=6600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 4220 ;=(B=12) "CMPX" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 4230 ;=(B=13) "JSR" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 4240 ;=(B=14) "LDX" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 4250 "STX" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 4400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 4410 ;=(B=0) "SUB" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 4420 ;=(B=1) "CMP" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 4430 ;=(B=2) "SBC" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 4440 ;=(B=4) "AND" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 4450 ;=(B=5) "BIT" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 4460 ;=(B=6) "LD" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 4470 ;=(B=7) "ST" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 4480 ;=(B=8) "EOR" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 4490 ;=(B=9) "ADC" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 4500 ;=(B=10) "OR" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 4510 "ADD" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 4600 "B" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 4800 B=%(A:1)/32)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 4810 ;=(A:1)>$7F) #=6800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 4820 ;=(B>15) B=B+$FFE0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 4830 " " ?=B #=8000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 5000 A=A+2 "UNDF" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 5200 "L" !=5800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 5210 #=2000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 5400 !=7400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 5410 ;=(B=14) "LDS" A=A+1 #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 5420 "STS" A=A+1 #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 5600 ;=(B=0) "D" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 5610 ;=(B=1) "X" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 5620 ;=(B=2) "Y" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 5630 ;=(B=3) "U" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 5640 ;=(B=4) "S" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 5650 ;=(B=5) "PC" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 5660 ;=(B=8) "A" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 5670 ;=(B=9) "B" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 5680 ;=(B=10) "CC" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 5690 "DPR" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 5800 "B" !=7600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 5810 ;=(B=0) "RA" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 5820 ;=(B=1) "RN" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 5830 ;=(B=2) "HI" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 5840 ;=(B=3) "LS" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 5850 ;=(B=4) "HS" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 5860 ;=(B=5) "LO" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 5870 ;=(B=6) "NE" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 5880 ;=(B=7) "EQ" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 5890 ;=(B=8) "VC" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 5900 ;=(B=9) "VS" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 5910 ;=(B=10) "PL" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 5920 ;=(B=11) "MI" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 5930 ;=(B=12) "GE" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 5940 ;=(B=13) "LT" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 5950 ;=(B=14) "GT" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 5960 "LE" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 6000 "LEA" !=7600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 6010 ;=(B=0) "X" #=4800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 6020 ;=(B=1) "Y" #=4800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 6030 ;=(B=2) "S" #=4800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 6040 "U" #=4800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 6200 B=A:1)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 6210 ;=(B>$7F) ",PC" B=B-$80
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 6220 ;=(B>$3F) ",U" B=B-$40
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 6230 ;=(B>$1F) ",Y" B=B-$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 6240 ;=(B>15) ",X" B=B-16
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 6250 ;=(B>7) "DPR" B=B-8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 6260 ;=(B>3) ",B" B=B-4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 6270 ;=(B>1) ",A" B=B-2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 6280 ;=(B>0) ",C"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 6290 A=A+2 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 6400 B=A:0)/16
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 6410 ;=(B=4) "A" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 6420 ;=(B=5) "B" #=1800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 6430 ;=(B=0) B=1 #=1290
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 6440 B=B-4 #=1290
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 6600 ;=(B=12) "LDD" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 6610 ;=(B=13) "STD" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 6620 ;=(B=14) "LDU" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 6630 "STU" #=1280
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 6800 ;=(B>15) #=8200
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 6810 .=1 #=8400
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 6820 ;=(B=12) A=A+3 ??=A(-1) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 6830 ;=(B=9) ?$=A:1) A=A+4 ??=A(-1) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 6840 ;=(B=13) ?$=A:1) A=A+4 ??=A(-1) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 6850 ?$=A:1) A=A+2 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 7000 !=7600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 7010 ;=(B=3) #=7800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 7020 ;=(B>11) #=7800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 7030 " # $" ?$=A:1)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 7040 ;=A:1)>" "*(A:1<$80) "=" $=A:1)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 7050 #=2620
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 7200 B=%((A:0)/16)/4) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 7400 B=%(A:1)/16) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 7600 B=%(A:0)/16) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 7800 " # $" A=A+3 ??=A(-1) ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 8000 B=%((A:1)/32)/4) "," A=A+2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 8010 ;=(B=0) "X" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 8020 ;=(B=1) "Y" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 8030 ;=(B=2) "U" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 8040 "S" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 8200 B=B-16
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 8210 ;=((B=0)+(B=2)) #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 8220 ;=(B=15) A=A+4 " [$" ??=A(-1) "]" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 8230 " [" !=8400 "]" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 8400 ;=(B=4) #=8000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 8410 ;=(B=0) !=8000 "+" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 8420 ;=(B=1) !=8000 "++" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 8430 ;=(B=2) !=8000 "-" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 8440 ;=(B=3) !=8000 "--" ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 8450 ;=(B=8) "$" ??=A:2) !=8000 A=A+1 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 8460 ;=(B=9) "$" ??=A(1) !=8000 A=A+2 ]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 8470 ;=(B=6) "A" #=8000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 8480 ;=(B=5) "B" #=8000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 8490 ;=(B=11) "D" #=8000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 8500 ;=(B=12) B=A:2) A=A+3 #=8600
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 8510 ;=(B=13) A=A+4 B=A(-1) #=8610
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 8520 #=5000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 8600 ;=(B>$7F) B=B+$FF00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 8610 "$" ??=B+A ",PC" ]