annotate game09/game09.asm @ 68:ec9ef70bf6e4

add game09
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 05 Aug 2018 10:34:37 +0900
parents
children b6aabbe1a027
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 LC000 BRA LC005
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 LC002 NOP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 LC003 BRA LC014
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 LC005 LDA #$FB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 TFR A,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 LDX #LE000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 STX <$7E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 STX <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 LDA #$FF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 STA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 LC014 LBSR LCD00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 LDA #$FB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 TFR A,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 LDX #LEFFF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 STX <$58
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 LC020 LDA #$FF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 STA <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 LC024 LDS #LFE00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 LDU #LFD80
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 LEAX >LC63F,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 LBSR LC165
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 LC032 LBSR LC370
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 BCS LC06D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 STX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 LBSR LC1D3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 BEQ LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 LC03E BSR LC09C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 LC040 BMI LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 STX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 LC044 LEAX +$02,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 LDA ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 CMPA #$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 BNE LC05B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 LBSR LC1D3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 BNE LC05F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 TST ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 BRA LC040
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 LC057 LDS #LFE00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 LC05B BSR LC0A8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 BRA LC040
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 LC05F LDX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 STX <$84
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 BSR LC0A0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 BMI LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 CMPX <$84
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 BEQ LC03E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 BRA LC044
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 LC06D STX <$86
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 STD <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 CMPB #$2F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
53 BNE LC0B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 LC077 BSR LC09C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 LC079 LBSR LC397
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 TST ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 BMI LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 BSR LC087
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 LBSR LC173
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 BRA LC079
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 LC087 LDD ,X++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 PSHS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 LBSR LC443
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 PULS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 LBRA LC165
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 LC093 LDX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 LEAX +$02,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 LC097 TST ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 BNE LC097
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 LC09C LDX <$7E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 LC09E STX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 LC0A0 LDD ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 BMI LC0B0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 SUBD <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 BCC LC0AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 LC0A8 LBSR LC173
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 BSR LC093
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 BRA LC09E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 LC0AF CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 LC0B0 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 LC0B1 LDX <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 BEQ LC077
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 BMI LC117
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 LDX <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 LDA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 INCA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 BNE LC117
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 BSR LC09C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 BMI LC0DE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 LDX ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 CMPX <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 BNE LC0DE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 BSR LC093
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 LDY <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 LC0CD LDA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 STA ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 CMPX <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 BEQ LC0DB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 LEAY +$01,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 BRA LC0CD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 LC0DB STY <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 LC0DE LDX <$86
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 LDB #$03
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 TST ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 BEQ LC114
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 LC0E6 INCB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 TST ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 BNE LC0E6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 ADDD <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 TFR D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 SUBD <$58
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 BCC LC117
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 LDX <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 STY <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 LEAY +$01,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 LC0FD LDB ,-X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 STB ,-Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 CMPX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 BNE LC0FD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 LDY <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 STY ,X++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 LDY <$86
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 LC10E LDB ,Y+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 STB ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 BNE LC10E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 LC114 LBRA LC032
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 LC117 LBRA LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 LC11A LDX #LFB8F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 TST <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 BNE LC124
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 LDX #LFB95
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 LC124 LEAY <LC159,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 LC127 PSHS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 LDX ,Y++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 PSHU X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 LBSR LC335
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 PULU X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 PULS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 PSHS A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 LDA <$83
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 ADDA #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 STA ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 PULS A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 TST +$01,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 BNE LC127
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 CLR ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 COM ,-X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 PSHS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
153 LEAX -$05,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 LC14B LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 INCA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 CMPB #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 BEQ LC14B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 COM [,S++]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 SUBA #$06
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
162 LC158 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 LC159 BEQ LC16B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 COM <$E8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 NEG <$64
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 NEG <$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 NEG <$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
168 NEG <$00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 LC165 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 LC166 STA <$94
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 LC168 LDB ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 CMPB <$94
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 BEQ LC158
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 LBSR LC412
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
175 BRA LC168
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 LC173 LBSR LC650
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 LBCS LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 LC17B CMPA #$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 BEQ LC1D1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 CLR <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 CLR <$4B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 LDB +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 BITB #$DF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 BNE LC1A6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186 CMPA #$5D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 BNE LC195
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 PULU X,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 STD <$46
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 STX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 BRA LC1C6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
192 LC195 CMPA #$40
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 BNE LC1A6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 STX <$46
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
198 LDY <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 PSHU Y,X,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 BRA LC1D3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 LC1A6 CMPA #$22
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 BNE LC1CA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
204 BSR LC166
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 BRA LC1D3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 LC1B0 CMPA #$5C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 BNE LC1B9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 LBSR LC676
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 BRA LC1D3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 LC1B9 STX <$84
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
211 BSR LC1EC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 LBSR LC39F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 BSR LC173
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 LDX <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 BNE LC1D7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 LC1C6 LDX <$46
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 BRA LC1D3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 LC1CA CMPA #$2F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 BNE LC1B0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
220 LBSR LC397
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 LC1D1 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 LC1D3 LDA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 BNE LC17B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 LC1D7 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 LC1D8 PSHS A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 BSR LC1F6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 LDX <$46
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 LC1E0 LDY <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 PSHU Y,X,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 PULS PC,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 LC1E7 LDA #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 LBRA LC4F9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 LC1EC LDA ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 BITA #$DF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 BEQ LC1E7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 CMPA #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 BNE LC1EC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 LC1F6 LBSR LC521
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 LC1F9 PSHS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 BITB #$DF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
243 BEQ LC210
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 CMPB #$29
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 BEQ LC214
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 CMPB #$2C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 BEQ LC1D8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 PULS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 LBSR LC29C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
250 BRA LC1F9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 LC210 STX <$46
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
252 PULS PC,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 LC214 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 PULS PC,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 LC218 CMPB #$3F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 BNE LC22E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 PSHS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 STB <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 LBSR LC5D8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 BSR LC1F6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 PULS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 BRA LC1F6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 LC22E BSR LC287
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 CMPA #$3A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 BEQ LC239
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 BSR LC26E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 LC236 LDD ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 LC239 BSR LC269
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
274 LC23C LDB ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 LC23E RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 LC23F CMPB #$22
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
277 BCS LC218
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 CMPB #$2D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 BHI LC218
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 SUBB #$22
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
282 LEAY <LC251,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 LDD B,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
284 JMP D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
285
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
286 LC251 fdb LC6EC-* 049b
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 fdb LC535-* 02e2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
288 fdb LC5A1-* 034c
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
289 fdb LC545-* 02ee
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 fdb LC236-* ffdd
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
291 fdb LC54E-* 02f3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 fdb LC236-* ffd9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 fdb LC23C-* ffdd
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
294 fdb LC23E-* ffdd
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 fdb LC53F-* 02dc
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 fdb LC242-* ffdd
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 fdb LC53F-* 02d8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
298
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
299 LC269 BSR LC279
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
300 LEAY D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 LC26E CMPA #$28
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 BNE LC292
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
304 BSR LC279
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
305 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
306 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
307 LEAY D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
308 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
309 LC279 BSR LC292
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
310 LDY ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
311 PSHS Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
312 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
313 LBSR LC1F6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 PULS PC,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
315 LC287 LDB ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 LC289 LDA ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 CMPA #$41
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 BPL LC289
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 LEAX -$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
321
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 LC292 ANDB #$3F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
323 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
324 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 ADDD #LFB04
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
326 TFR D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
328 LC29C PSHU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
329 LDD ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
330 PSHS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
331 SUBB #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
332 BEQ LC2A9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
333 DECB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 BNE LC2AB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 LC2A9 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
336 LC2AB LBSR LC521
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
337 PULU Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
338 EXG D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 PSHU Y,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 CMPA #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 BNE LC2C4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
343 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
344 SUBD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 BNE LC2E4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 LC2C0 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 LDB #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
349 LC2C4 CMPA #$3C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 BNE LC2E7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
351 CMPB #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 BEQ LC2D7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
353 CMPB #$3E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
354 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
355 BNE LC2E0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
356 SUBD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
357 BNE LC2C0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
358 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 LC2D7 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 SUBD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 BLE LC2C0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
364 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
365 LC2E0 SUBD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 BLT LC2C0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
367 LC2E4 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
368 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
369 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
370 LC2E7 CMPA #$3E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
371 BNE LC2FF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
372 CMPB #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
373 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
374 BNE LC2F8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 SUBD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
376 BGE LC2C0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
377 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
378 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
379 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
380 LC2F8 SUBD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
381 BGT LC2C0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
383 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 LC2FF CMPA #$2B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 BNE LC308
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
387 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
388 ADDD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
389 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
390 LC308 CMPA #$2D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
391 BNE LC311
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
392 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 SUBD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
394 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 LC311 CMPA #$2A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 LBNE LC653
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
398 LC319 EXG A,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
399 PSHU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 LDB +$03,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 MUL
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
402 STD <$82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 BSR LC32B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
404 BSR LC32B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
405 LDD <$82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
406 LEAU +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
408 LC32B PULU A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
409 LDB +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
410 MUL
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 ADDB <$82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 STB <$82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
414 LC335 CLR ,-S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
415 LC337 INC ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
416 LSL +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
417 ROL ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
418 BCC LC337
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
419 ROR ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
420 ROR +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
421 CLR <$82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
422 CLR <$83
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
423 LC347 SUBD ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
424 BCC LC351
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
425 ADDD ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
426 ANDCC #$FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
427 BRA LC353
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
428 LC351 ORCC #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
429 LC353 ROR <$83
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
430 ROR <$82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
431 DEC ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
432 BEQ LC361
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
433 LSR ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
434 ROR +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
435 BRA LC347
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
436 LC361 LEAS +$01,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
438 LC364 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
439 CMPB #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 BCS LC36D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
441 CMPB #$3A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
443 LC36D ANDCC #$FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 LC370 LBSR LC5D8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
446 LC373 BSR LC364
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
447 BCC LC396
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
448 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
449 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
450 LC379 ADDB ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
451 ADCA #$00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
452 SUBD #LC030
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
453 PSHU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
454 BSR LC364
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
455 LDD ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
456 BCC LC392
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
457 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
458 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
459 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
460 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
461 ADDD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
462 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
463 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
464 BRA LC379
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
465 LC392 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
466 ORCC #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
467 LC396 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
468 LC397 LDB #$0D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
469 BSR LC39D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
470 LC39B LDB #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
471 LC39D BRA LC412
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
472 LC39F PSHS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
473 LDA #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
474 STA <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
475 LDX <$84
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
476 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
477 CMPB #$2E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
478 BNE LC3BA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
479 PULS A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
480 LDA ,S+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
481 LC3B1 BEQ LC3C4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
482 LDB #$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
483 BSR LC412
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
484 DECA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
485 BRA LC3B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
486 LC3BA CMPB #$3B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
487 BNE LC3C5
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
488 LDD ,S++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
489 LBEQ LC057
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
490 LC3C4 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
491 LC3C5 CMPB #$40
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
492 BNE LC3E4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
493 LDB +$02,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
494 LBSR LC292
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
495 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
496 STD ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
497 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
498 SUBD ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
499 BLT LC3E1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
500 PULU X,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
501 STD <$46
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
502 STX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
503 LEAU -$06,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
504 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
505 LC3E1 LEAU +$04,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
506 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
507 LC3E4 CMPB #$26
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
508 BNE LC3FA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
509 LC3E8 LDB +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
510 CMPB #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
511 BNE LC3FA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
512 LDD ,S++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
513 BNE LC3F9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
514 LDX <$7E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
515 STX <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
516 DECA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
517 STA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
518 LC3F9 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
519 LC3FA CMPB #$21
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
520 BNE LC40C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
521 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
522 STD <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
523 BEQ LC40B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
524 LDY <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
525 LDX <$46
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
526 PSHU Y,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
527 LC40B RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
528 LC40C CMPB #$24
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
529 BNE LC415
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
530 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
531 LC412 LBRA LC64A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
532 LC415 CMPB #$3F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
533 BNE LC449
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
534 LDB +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
535 CMPB #$28
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
536 LBNE LC56E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
537 LBSR LC51F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
538 LC424 STB <$8E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
539 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
540 BSR LC433
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
541 ADDA <$8E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
542 BMI LC430
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
543 BSR LC3B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
544 LC430 LBRA LC165
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
545 LC433 TSTA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
546 LBPL LC11A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
547 LBSR LC4F3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
548 LBSR LC11A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
549 LDB #$2D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
550 STB ,-X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
551 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
552 LC443 PSHS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
553 LDB #$05
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
554 BRA LC424
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
555 LC449 CMPB #$3D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
556 BNE LC460
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
557 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
558 STD <$7E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
559 LDX #LFFFF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
560 STX <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
561 LBSR LC09C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
562 STX <$50
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
563 LBRA LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
564 LC45E PULS PC,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
565 LC460 CMPB #$3E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
566 BNE LC46C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
567 LDD ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
568 BEQ LC45E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
569 JSR [,S++]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
570 PSHS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
571 LC46C LDX <$84
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
572 LBSR LC287
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
573 CMPA #$3A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
574 BNE LC47D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
575 LBSR LC269
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
576 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
577 STB ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
578 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
579 LC47D LBSR LC26E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
580 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
581 STD ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
582 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
583 LDA +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
584 CMPA #$4E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
585 BEQ LC48E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
586 LBRA LC7D7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
587 LC48E TST +$02,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
588 BNE LC494
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
589 CLR +$03,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
590 LC494 LEAX +$03,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
591 CLR <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
592 LBSR LC373
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
593 BCS LC4A0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
594 LDD #LC3E8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
595 LC4A0 STD <$88
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
596 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
597 CMPB #$2C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
598 BNE LC4AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
599 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
600 LBSR LC373
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
601 BCS LC4B2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
602 LC4AF LDD #LC00A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
603 LC4B2 STD <$8A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
604 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
605 LC4B5 CMPA #$2F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
606 BNE LC4F9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
607 CLR <$8D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
608 LDD +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
609 BEQ LC4F9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
610 BMI LC4D4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
611 CMPD #LC002
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
612 BNE LC4DE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
613 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
614 CLR <$4E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
615 CLR <$4F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
616 ASRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
617 RORB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
618 ROR <$4F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
619 LEAU +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
620 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
621 LC4D4 INC <$8D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
622 NEG +$03,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
623 BNE LC4DC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
624 DEC +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
625 LC4DC COM +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
626 LC4DE LDD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
627 BPL LC4E6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
628 DEC <$8D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
629 BSR LC4F3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
630 LC4E6 LBSR LC335
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
631 LEAU +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
632 STD <$4E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
633 LDD <$82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
634 TST <$8D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
635 BEQ LC4F8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
636 LC4F3 NEGB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
637 BNE LC4F7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
638 DECA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
639 LC4F7 COMA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
640 LC4F8 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
641 LC4F9 LBSR LC397
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
642 LDB #$3F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
643 STB <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
644 LBSR LC412
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
645 TFR A,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
646 LBSR LC412
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
647 LDB #$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
648 LBSR LC412
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
649 LDX <$42
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
650 CMPX #LFB95
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
651 BNE LC519
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
652 LBSR LC165
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
653 BRA LC51C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
654 LC519 LBSR LC087
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
655 LC51C LBRA LC024
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
656 LC51F LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
657 LC521 LBSR LC373
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
658 BCS LC532
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
659 LBRA LC23F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
660 BSR LC51F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
661 BRA LC4F3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
662 BSR LC51F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
663 TSTA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
664 BMI LC4F3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
665 LC532 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
666 BSR LC51F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
667 LC535 PSHS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
668 LDD ,S++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
669 LBNE LC2E4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
670 INCB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
671 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
672 LC53F BSR LC51F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
673 LDD <$4E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
674 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
675 BSR LC51F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
676 PSHU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
677 LDD <$52
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
678 PSHU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
679 LDD #L3D09
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
680 LBSR LC319
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
681 ADDD #LC001
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
682 STD <$52
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
683 TFR A,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
684 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
685 LBSR LC319
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
686 TFR A,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
687 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
688 ADDD #LC001
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
689 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
690 NEG <$00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
691 NEG <$00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
692 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
693 LDB +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
694 LEAX +$03,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
695 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
696 LC56E CMPB #$3F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
697 BEQ LC57E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
698 CMPB #$24
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
699 BEQ LC582
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
700 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
701 LBSR LC433
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
702 LBRA LC165
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
703 LC57E LDB ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
704 BSR LC584
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
705 LC582 PULS B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
706 LC584 TFR B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
707 BSR LC58E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
708 TFR A,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
709 ANDB #$0F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
710 BRA LC592
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
711 LC58E LSRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
712 LSRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
713 LSRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
714 LSRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
715 LC592 CMPB #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
716 BMI LC598
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
717 ADDB #$07
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
718 LC598 ADDB #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
719 LBRA LC412
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
720 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
721 BSR LC5BD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
722 LBCC LC64D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
723 LC5A4 PSHS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
724 BSR LC5BD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
725 PSHU B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
726 PULS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
727 BCC LC5BA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
728 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
729 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
730 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
731 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
732 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
733 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
734 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
735 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
736 ADDB ,U+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
737 BRA LC5A4
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
738 LC5BA LEAU +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
739 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
740 LC5BD LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
741 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
742 SUBB #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
743 BCS LC5D2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
744 CMPB #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
745 BCS LC5D1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
746 SUBB #$07
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
747 CMPB #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
748 BCS LC5D2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
749 CMPB #$10
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
750 LC5D1 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
751 LC5D2 ANDCC #$FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
752 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
753 LC5D5 LBSR LC397
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
754 LC5D8 LDB #$3A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
755 BSR LC64A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
756 LDX #LFB95
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
757 TST <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
758 BNE LC5F2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
759 LDD <$88
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
760 LBMI LC020
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
761 LBSR LC443
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
762 LDB #$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
763 STB -$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
764 BSR LC64A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
765 LC5F2 BSR LC64D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
766 CMPB #$08
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
767 BEQ LC634
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
768 CMPB #$0D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
769 BCS LC5F2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
770 BEQ LC611
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
771 CMPB #$18
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
772 BEQ LC5D5
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
773 STB ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
774 CMPX #LFBDF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
775 BNE LC5F2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
776 LEAX -$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
777 LDB #$08
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
778 BSR LC64A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
779 BRA LC5F2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
780 LC611 TST <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
781 BNE LC626
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
782 CMPX #LFB9B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
783 BEQ LC61F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
784 CMPX #LFB9A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
785 BCC LC626
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
786 LC61F COM <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
787 LBSR LC39B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
788 BRA LC5D8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
789 LC626 LDD <$88
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
790 ADDD <$8A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
791 STD <$88
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
792 CLR ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
793 LDX #LFB95
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
794 LBRA LC39B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
795 LC634 LEAX -$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
796 CMPX #LFB94
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
797 BNE LC5F2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
798 STB <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
799 BRA LC5D8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
801 FCB $D,$A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
802 FCS "*READY"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
803 FCB $D,$A,0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
804
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
805 LC64A LBRA LC6FE OUTCH
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
806 LC64D LBRA LC6FC GETCH
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
807 LC650 LBRA LC720 SENSE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
808 LC653 CMPA #$2E EXBOP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
809 BNE LC65E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
810 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
811 ORA ,U+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
812 ORB ,U+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
813 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
814 LC65E CMPA #$26
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
815 BNE LC669
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
816 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
817 ANDA ,U+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
818 ANDB ,U+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
819 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
820 LC669 CMPA #$21
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
821 LBNE LC4B5
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
822 PULU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
823 EORA ,U+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
824 EORB ,U+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
825 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
826 LC676 LDD +$01,X EXTEND
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
827 LEAX +$03,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
828 PSHS U,X,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
829 LEAY >LC737,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
830 LC680 LDX ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
831 BMI LC6E7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
832 CMPX ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
833 BEQ LC68C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
834 LEAY +$05,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
835 BRA LC680
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
836 LC68C LEAY +$03,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
837 LEAS +$02,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
838 LDX ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
839 LDA -$01,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
840 BEQ LC6C3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
841 PSHS Y,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
842 LDA #$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
843 LC69A CMPA ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
844 BEQ LC69A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
845 LDA ,-X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
846 STX +$03,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
847 LC6A2 BITA #$DF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
848 BEQ LC6B0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
849 CMPA #$2C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
850 BEQ LC6AE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
851 BSR LC6C9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
852 BRA LC6B3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
853 LC6AE LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
854 LC6B0 LDD #LFFFF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
855 LC6B3 PSHU B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
856 LDA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
857 DEC ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
858 BNE LC6A2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
859 LDD +$03,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
860 STX +$03,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
861 TFR D,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
862 PULS Y,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
863 LC6C3 LDD ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
864 JSR D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
865 PULS PC,U,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
866 LC6C9 LBSR LC521
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
867 LC6CC PSHS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
868 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
869 BITB #$DF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
870 BEQ LC6E5
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
871 CMPB #$2C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
872 BEQ LC6E3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
873 CMPB #$29
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
874 BEQ LC6E3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
875 PULS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
876 LBSR LC29C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
877 BRA LC6CC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
878 LC6E3 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
879 LC6E5 PULS PC,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
880 LC6E7 PULS U,X,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
881 LBRA LC4F9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
882 LC6EC LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
883 LDB ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
884 LC6F0 LDA ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
885 BEQ LC6F8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
886 CMPA #$22
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
887 BNE LC6F0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
888 LC6F8 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
889 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
890 LC6FA STB LFC8D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
891 CLR <$34
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
892 LBRA L758E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
893 STB LA602
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
894 STB +$02,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
895 LC707 LDA +$03,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
896 BPL LC707
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
897 PULS PC,X,B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
898 PSHS X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
899 LDX <LC6FA,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
900 LC712 LDB +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
901 BPL LC712
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
902 LDB ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
903 CMPB #$18
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
904 LBEQ LC003
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
905 PULS PC,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
906 LC720 PSHS X,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
907 LDX <LC6FA,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
908 LDA +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
909 BPL LC731
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
910 BSR LC6FC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
911 CMPB #$18
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
912 BEQ LC734
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
913 BSR LC6FC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
914 LC731 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
915 PULS PC,X,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
916
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
917 * COMMAND TABLE CONSIST....
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
918 * COMMAND NAME (2 BYTE)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
919 * PARAMETER COUNT (1 BYTE)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
920 * OFSET TO SUBROUTIE FROM HERE (1 WORD)
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
921 **************************
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
922 OPCMD FCC "AT",2 START LINE,STEP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
923 FDB CAUTO-*
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
924 FCC "RN",3 RENUM first line no,inc,renum start
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
925 FDB RENUM-*
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
926 FCC "RD",3 DISK READ address,track,sector
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
927 FDB GETDK-*
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
928 FCC "WR",3 DISK WRITE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
929 FDB PUTDK-*
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
930 FCC "SY",0 TO SYSTEM
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
931 FDB SYSTEM-*
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
932 FDB -1,-1,-1,-1,-1,-1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
933 *************************
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
934
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
935 LDD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
936 BPL LC762
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
937 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
938 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
939 LC762 STD <$4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
940 LBSR LC09C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
941 BMI LC789
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
942 LDD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
943 BPL LC770
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
944 LDD #LC00A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
945 LC770 LDY ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
946 BPL LC779
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
947 LDY #LC3E8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
948 LC779 STY ,X++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
949 LBSR LC173
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
950 LEAY D,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
951 LC781 TST ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
952 BNE LC781
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
953 TST ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
954 BPL LC779
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
955 LC789 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
956 LDD ,U++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
957 BPL LC791
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
958 LDD #LC00A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
959 LC791 STD <$8A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
960 LDD ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
961 BEQ LC79E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
962 BPL LC79C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
963 LDD #LC3E8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
964 LC79C STD <$88
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
965 LC79E CLR <$8C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
966 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
967 BSR LC7B6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
968 LBSR LCD09
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
969 BNE LC7B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
970 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
971 BSR LC7B6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
972 LBSR LCD0C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
973 BNE LC7B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
974 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
975 LC7B1 LDA #$44
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
976 LBRA LC4F9
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
977 LC7B6 LDX +$04,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
978 LDA +$03,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
979 LDB +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
980 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
981 SWI
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
982 DEC <$02
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
983 LDA LD7FC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
984 CMPA #$18
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
985 BEQ LC7D3
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
986 LC7C7 TST LD7FD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
987 BPL LC7C7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
988 LDA LD7FC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
989 ANDCC #$FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
990 PULS PC,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
991 LC7D3 ORCC #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
992 PULS PC,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
993
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
994 org $c800
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
995 LBRA LCA96
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
996 LBRA LC8CA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
997 LBRA LC9F2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
998 LC809 STB <$FC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
999 LC80B STB <$FD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1000 LC80D STB <$FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1001 LC80F STB <$FF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1002 SUBB +$00,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1003 LC813 SUBA #$0E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1004 LC815 LDA [<LC80B,PCR]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1005 BPL LC815
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1006 LDA [<LC809,PCR]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1007 BRA LC831
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1008 LC81F LSRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1009 LSRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1010 LSRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1011 LSRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1012 LC823 ANDA #$0F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1013 CMPA #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1014 BCS LC82B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1015 ADDA #$07
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1016 LC82B ADDA #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1017 BRA LC831
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1018 LC82F LDA #$20
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1019 LC831 LDB [<LC80D,PCR]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1020 STA [<LC80D,PCR]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1021 LC837 LDB [<LC80F,PCR]
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1022 BPL LC837
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1023 JMP ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1024 LC83E CMPA #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1025 BCS LC856
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1026 CMPA #$3A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1027 BCC LC84A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1028 SUBA #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1029 BRA LC858
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1030 LC84A CMPA #$41
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1031 BCS LC856
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1032 CMPA #$47
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1033 BCC LC856
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1034 SUBA #$37
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1035 BRA LC858
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1036 LC856 ORCC #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1037 LC858 JMP ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1038 LC85A EXG D,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1039 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1040 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1041 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1042 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1043 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1044 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1045 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1046 ROLA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1047 EXG D,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1048 LEAX A,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1049 JMP ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1050 LC86A TFR U,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1051 LDA #$0D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1052 LEAU <LC874,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1053 LBRA LC831
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1054 LC874 LDA #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1055 LEAU <LC87C,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1056 LBRA LC831
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1057 LC87C JMP ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1058 LC87E TFR U,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1059 LDA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1060 LEAU <LC888,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1061 LBRA LC81F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1062 LC888 LDA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1063 LEAU <LC890,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1064 LBRA LC823
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1065 LC890 JMP ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1066 LC892 TFR U,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1067 LC894 TFR X,D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1068 LEAU <LC89C,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1069 LBRA LC81F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1070 LC89C TFR X,D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1071 LEAU <LC8A4,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1072 LBRA LC823
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1073 LC8A4 TFR X,D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1074 TFR B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1075 LEAU <LC8AE,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1076 LBRA LC81F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1077 LC8AE TFR X,D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1078 TFR B,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1079 LEAU <LC8B8,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1080 LBRA LC823
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1081 LC8B8 JMP ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1082 TFR U,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1083 LC8BC LDA ,X+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1084 LC8BE BEQ LC8C8
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1085 LEAU <LC8C6,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1086 LBRA LC831
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1087 LC8C6 BRA LC8BC
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1088 LC8C8 JMP ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1089 LC8CA LEAU <LC8D0,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1090 LBRA LC86A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1091 LC8D0 LEAU <LC8D6,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1092 LBRA LC86A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1093 LC8D6 LDA #$2A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1094 LEAU <LC8DE,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1095 LBRA LC831
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1096 LC8DE LDY #LC000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1097 LC8E2 LEAU <LC8E8,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1098 LBRA LC815
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1099 LC8E8 CMPA #$47
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1100 LC8EA LBEQ LC915
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1101 CMPA #$4D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1102 LBEQ LC931
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1103 CMPA #$53
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1104 LBEQ LC96B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1105 LEAU <LC900,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1106 LBRA LC83E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1107 LC900 BCS LC8CA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1108 LEAY ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1109 BNE LC90D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1110 LDY #LC001
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1111 LDX #LC000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1112 LC90D LEAU <LC913,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1113 LBRA LC85A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1114 LC913 BRA LC8E2
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1115 LC915 LEAU <LC91B,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1116 LBRA LC86A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1117 LC91B LEAU <LC921,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1118 LBRA LC892
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1119 LC921 LEAU <LC927,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1120 LBRA LC82F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1121 LC927 LDA #$47
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1122 LEAU <LC92F,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1123 LBRA LC831
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1124 LC92F JMP ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1125 LC931 LDB >LC814,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1126 LC935 ORB >LC813,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1127 TFR B,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1128 LEAU <LC941,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1129 LBRA LC86A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1130 LC941 LEAU <LC947,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1131 LBRA LC892
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1132 LC947 LEAU <LC94D,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1133 LC94A LBRA LC82F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1134 LC94D LEAU <LC953,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1135 LBRA LC82F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1136 LC953 LEAU <LC959,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1137 LBRA LC87E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1138 LC959 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1139 TFR DP,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1140 SUBB #$10
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1141 TFR B,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1142 BITB #$F0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1143 BNE LC94D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1144 DECB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1145 BNE LC935
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1146 LBRA LC8CA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1147 LC96B LEAU <LC971,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1148 LBRA LC86A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1149 LC971 LEAU <LC977,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1150 LBRA LC892
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1151 LC977 LEAU <LC97D,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1152 LBRA LC82F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1153 LC97D LEAU <LC983,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1154 BCS LC94A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1155 LEAY ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1156 BNE LC98D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1157 LDY #LC001
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1158 LDX #LC000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1159 LC98D LEAU <LC993,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1160 LBRA LC8DA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1161 LC993 BRA LC962
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1162 LEAU <LC99B,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1163 LBRA LC8EA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1164 LC99B LEAU <LC9A1,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1165 LBRA LC912
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1166 LC9A1 LEAU <LC9A7,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1167 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1168 LC9A7 LDA #$47
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1169 LEAU <LC9AF,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1170 LBRA LC8B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1171 LC9AF JMP ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1172 LDB >LC894,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1173 LC9B5 ORB >LC893,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1174 TFR B,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1175 LEAU <LC9C1,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1176 LBRA LC8EA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1177 LC9C1 LEAU <LC9C7,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1178 LBRA LC912
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1179 LC9C7 LEAU <LC9CD,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1180 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1181 LC9CD LEAU <LC9D3,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1182 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1183 LC9D3 LEAU <LC9D9,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1184 LBRA LC8FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1185 LC9D9 LEAX +$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1186 TFR DP,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1187 SUBB #$10
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1188 TFR B,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1189 BITB #$F0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1190 BNE LC9CD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1191 DECB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1192 BNE LC9B5
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1193 LBRA LC94A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1194 LC9EB LEAU <LC9F1,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1195 LBRA LC8EA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1196 LC9F1 LEAU <LC9F7,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1197 LBRA LC912
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1198 LC9F7 LEAU <LC9FD,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1199 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1200 LC9FD LEAU <LCA03,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1201 LBRA LC8FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1202 LCA03 LDA #$2D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1203 LEAU <LCA0B,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1204 LBRA LC8B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1205 LCA0B LDY #LC000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1206 CLRB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1207 TFR B,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1208 LCA12 LEAU <LCA18,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1209 LBRA LC895
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1210 LCA18 LEAU <LCA1E,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1211 LBRA LC8BE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1212 LCA1E BCS LCA39
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1213 LDY #LC001
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1214 TFR DP,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1215 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1216 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1217 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1218 LSLB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1219 TFR A,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1220 EXG D,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1221 EXG DP,B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1222 ABX
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1223 EXG B,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1224 EXG X,D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1225 TFR B,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1226 BRA LCA12
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1227 LCA39 CMPA #$0D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1228 BNE LCA47
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1229 LDA #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1230 LEAU <LCA45,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1231 LBRA LC8B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1232 LCA45 LDA #$0D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1233 LCA47 EXG A,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1234 LEAY ,Y
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1235 BEQ LCA4F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1236 STA ,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1237 LCA4F LDA #$2D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1238 LEAU <LCA57,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1239 LBRA LC8B1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1240 LCA57 LEAU <LCA5D,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1241 LBRA LC8FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1242 LCA5D TFR DP,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1243 CMPA #$0D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1244 LBEQ LC94A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1245 LEAX -$01,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1246 CMPA #$5E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1247 LBEQ LC9EB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1248 LEAX +$02,X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1249 LBRA LC9EB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1250 LEAX <LCAE5,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1251 LEAU <LCA7B,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1252 LBRA LC93A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1253 LCA7B LDA #$04
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1254 LCA7D TFR A,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1255 LEAX ,S+
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1256 LEAU <LCA87,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1257 LBRA LC8FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1258 LCA87 LEAU <LCA8D,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1259 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1260 LCA8D LEAU <LCA93,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1261 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1262 LCA93 LEAU <LCA99,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1263 LCA96 TFR DP,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1264 DECA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1265 LCA99 BNE LCA7D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1266 LEAX <LCAF8,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1267 LEAU <LCAA4,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1268 LBRA LC93A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1269 LCAA4 LDA #$04
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1270 LCAA6 TFR A,DP
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1271 LDX ,S++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1272 LEAU <LCAB0,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1273 LBRA LC912
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1274 LCAB0 LEAU <LCAB6,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1275 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1276 LCAB6 LEAU <LCABC,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1277 LBRA LC8AF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1278 LCABC TFR DP,A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1279 DECA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1280 BNE LCAA6
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1281 LEAX ,S
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1282 LEAU <LCAC9,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1283 LBRA LC912
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1284 LCAC9 LBRA LC94A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1285 LCACC INC <$09
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1286
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1287 fcs "RALPH09 DEBUGGER 2.0"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1288 fcb $d,$a,0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1289 fcb $d,$a
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1290 fcs "CC A B DP"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1291 fcb $d,$a,0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1292 fcb $d,$a
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1293 fcs "X Y U PC S"
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1294 fcb $d,$a,0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1295
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1296 LDX #LFF48
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1297 LDA #$07
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1298 LCB1B STA ,-X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1299 DECA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1300 BNE LCB1B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1301 CLR LFF4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1302 LDX #LFF00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1303 LDD #LC1E0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1304 LCB29 STD ,X++
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1305 INCB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1306 BNE LCB29
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1307 CLR LFF40
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1308 LDU >LC889,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1309 CLRA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1310 STA +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1311 STA +$03,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1312 DECA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1313 STA +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1314 LDA #$24
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1315 STA +$01,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1316 STA +$03,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1317 LDA ,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1318 LDA +$02,U
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1319 LDS >LC891,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1320 LEAX >LCACC,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1321 LEAU <LCB56,PCR
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1322 LBRA LC93A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1323 LCB56 LBRA LC94A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1324
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1325 org $cb80
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1326 LDA #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1327 STA LFF4A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1328 STA LFF4B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1329 LDX #LFF40
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1330 LDD #LC01F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1331 LCB8E STD ,--X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1332 DECB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1333 BNE LCB8E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1334 STD ,--X
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1335 LDD #LC1FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1336 STD LFF38
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1337 INCB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1338 STD LFF3A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1339 LDD #LC1FA
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1340 STD LFF3C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1341 LDA #$04
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1342 STA LFF49
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1343 JMP LE000
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1344
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1345 org $cc80
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1346 LDB #$00
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1347 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1348 LDB #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1349 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1350 LDB #$02
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1351 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1352 LDB #$03
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1353 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1354 LDB #$04
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1355 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1356 LDB #$05
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1357 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1358 LDB #$06
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1359 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1360 LDB #$07
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1361 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1362 LDB #$08
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1363 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1364 LDB #$09
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1365 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1366 LDB #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1367 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1368 LDB #$0B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1369 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1370 LDB #$0C
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1371 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1372 LDB #$0D
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1373 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1374 LDB #$0E
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1375 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1376 LDB #$0F
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1377 BRA LCCC0
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1378 LCCC0 STS LDF82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1379 LDS #LDF80
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1380 CMPB #$09
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1381 BLE LCCDB
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1382 BSR LCD01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1383 PSHS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1384 LDB #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1385 BSR LCCF7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1386 PULS B
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1387 BSR LCCF7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1388 BRA LCCDF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1389 RTI
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1390
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1391 LCCDB BSR LCD01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1392 BSR LCCF7
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1393 LCCDF BSR LCD14
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1394 LDS LDF82
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1395 LDA #$01
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1396 STA LFF49
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1397 RTI
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1398
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1399 LDA LD7FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1400 STB LD7FE
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1401 LCCF1 LDA LD7FF
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1402 BPL LCCF1
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1403 RTS
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1404
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1405 LCCF7 CMPB #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1406 BCS LCCFD
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1407 SUBB #$0A
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1408 LCCFD ADDB #$30
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1409 BRA LCD01