annotate game09/game09.asm @ 78:02120537b90d

fix user stack in game09.
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 07 Aug 2018 12:17:09 +0900
parents 11e19ea1a7ea
children 82d03e816deb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1 *
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
2 * GAME09 interpreter
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
3 *
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
4
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
5 ifp1
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
6 use defsfile
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
7 endc
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
8
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
9 nam Game09
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
10 ttl Game09
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
11 tylg set Prgrm+Objct
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
12 atrv set ReEnt+rev
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
13 rev set $01
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
14 edition set 1
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
15
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
16 mod eom,name,tylg,atrv,start,size
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
17
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
18
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
19 org 0
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
20 dpage rmb $96
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
21
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
22 DP00 equ $00
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
23 DP04 equ $04 variabble base A-Z (until DP36)
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
24 DP42 equ $42 program copy pointer
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
25 DP46 equ $46
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
26 DP4A equ $4A input lineno
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
27 DP4B equ $4B
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
28 DP4E equ $4E
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
29 DP4F equ $4F
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
30 DP50 equ $50 program top
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
31 DP52 equ $52
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
32 DP58 equ $58 program max
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
33 DP7E equ $7E program current end
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
34 DP82 equ $82
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
35 DP83 equ $83
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
36 DP84 equ $84
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
37 DP86 equ $86 input line (except lineno)
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
38 DP88 equ $88
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
39 DP8A equ $8A
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
40 DP8C equ $8C
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
41 DP8D equ $8D
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
42 DP8E equ $8E
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
43 DP94 equ $94
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
44 DPWORK rmb 2 $96
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
45 DPSTK rmb 2 $98
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
46
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
47 lineb0 rmb 2 $9A
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
48 linetop rmb 2 $9C
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
49 lineb9a rmb 2 $9E
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
50 lineb9b rmb 2 $A0
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
51 lineend rmb 2 $A2
78
02120537b90d fix user stack in game09.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 77
diff changeset
52 ustack rmb 128
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
53 linebuf rmb 252
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
54 program rmb $2000
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
55 size equ .
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
56
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
57 name fcs "Game09"
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
58 fcb edition
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
59 start * clrb
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
60 * os9 F$Exit
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
61 LC000 BRA LC005
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
62 LC002 NOP
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
63 LC003 BRA LC014
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
64 LC005 TFR U,D
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
65 TFR A,DP
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
66 STU <DPWORK
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
67 STS <DPSTK
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
68 LEAX program,U
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
69 STX <$7E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
70 STX <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
71 LDA #$FF
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
72 STA ,X
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
73 LC014 LDU <DPWORK
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
74 LEAX DP04,U
75
7aad8084a784 fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 74
diff changeset
75 STX <DP04
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
76 LEAX linebuf-1,U
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
77 STX <lineb0
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
78 LEAX 1,X
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
79 STX <linetop
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
80 LEAX 5,X
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
81 STX <lineb9a
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
82 LEAX 1,X
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
83 STX <lineb9b
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
84 LEAX 255-6,X
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
85 STX <lineend
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
86 LEAX size,U
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
87 STX <$58
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
88 LC020 LDA #$FF
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
89 STA <$8C
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
90 LC024 LDS <DPSTK
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
91 LDU <DPWORK
78
02120537b90d fix user stack in game09.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 77
diff changeset
92 LEAU linebuf,U user stack
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
93 LEAX >LC63F,PCR
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
94 LBSR LC165
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
95 LC032 LBSR LC370
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
96 BCS LC06D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
97 STX <$42
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
98 LBSR LC1D3
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
99 BEQ LC024
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
100 LC03E BSR LC09C
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
101 LC040 BMI LC024
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
102 STX <$42
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
103 LC044 LEAX +$02,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
104 LDA ,X+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
105 CMPA #$20
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
106 BNE LC05B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
107 LBSR LC1D3
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
108 BNE LC05F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
109 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
110 TST ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
111 BRA LC040
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
112 LC057 LDS <DPSTK
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
113 LC05B BSR LC0A8
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
114 BRA LC040
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
115 LC05F LDX <$42
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
116 STX <$84
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
117 BSR LC0A0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
118 BMI LC024
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
119 CMPX <$84
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
120 BEQ LC03E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
121 BRA LC044
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
122 LC06D STX <$86
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
123 STD <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
124 LDB ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
125 CMPB #$2F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
126 BNE LC0B1
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
127 LC077 BSR LC09C listing
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
128 LC079 LBSR LC397
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
129 TST ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
130 BMI LC024
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
131 BSR LC087
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
132 LBSR LC173
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
133 BRA LC079
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
134 LC087 LDD ,X++
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
135 PSHS X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
136 LBSR LC443
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
137 PULS X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
138 LBRA LC165
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
139 LC093 LDX <$42
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
140 LEAX +$02,X
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
141 LC097 TST ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
142 BNE LC097
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
143 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
144 LC09C LDX <$7E
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
145 LC09E STX <$42
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
146 LC0A0 LDD ,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
147 BMI LC0B0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
148 SUBD <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
149 BCC LC0AF
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
150 LC0A8 LBSR LC173
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
151 BSR LC093
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
152 BRA LC09E
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
153 LC0AF CLRA
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
154 LC0B0 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
155 LC0B1 LDX <$4A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
156 BEQ LC077
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
157 BMI LC117
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
158 LDX <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
159 LDA ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
160 INCA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
161 BNE LC117
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
162 BSR LC09C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
163 BMI LC0DE
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
164 LDX ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
165 CMPX <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
166 BNE LC0DE
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
167 BSR LC093
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
168 LDY <$42
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
169 LC0CD LDA ,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
170 STA ,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
171 CMPX <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
172 BEQ LC0DB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
173 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
174 LEAY +$01,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
175 BRA LC0CD
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
176 LC0DB STY <$50
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
177 LC0DE LDX <$86 get program line length
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
178 LDB #$03
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
179 TST ,X+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
180 BEQ LC114
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
181 LC0E6 INCB
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
182 TST ,X+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
183 BNE LC0E6
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
184 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
185 ADDD <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
186 TFR D,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
187 SUBD <$58
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
188 BCC LC117
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
189 LDX <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
190 STY <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
191 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
192 LEAY +$01,Y
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
193 LC0FD LDB ,-X make insert space
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
194 STB ,-Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
195 CMPX <$42
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
196 BNE LC0FD
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
197 LDY <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
198 STY ,X++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
199 LDY <$86
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
200 LC10E LDB ,Y+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
201 STB ,X+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
202 BNE LC10E
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
203 LC114 LBRA LC032
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
204 LC117 LBRA LC024
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
205 LC11A LDX <DPWORK
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
206 LEAX $8F,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
207 TST <$8C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
208 BNE LC124
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
209 LDX <linetop
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
210 LC124 LEAY <LC159,PCR
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
211 LC127 PSHS X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
212 LDX ,Y++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
213 PSHU X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
214 LBSR LC335
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
215 PULU X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
216 PULS X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
217 PSHS A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
218 LDA <$83
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
219 ADDA #$30
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
220 STA ,X+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
221 PULS A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
222 TST +$01,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
223 BNE LC127
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
224 CLR ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
225 COM ,-X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
226 PSHS X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
227 LEAX -$05,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
228 CLRA
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
229 LC14B LEAX +$01,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
230 INCA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
231 LDB ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
232 CMPB #$30
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
233 BEQ LC14B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
234 COM [,S++]
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
235 SUBA #$06
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
236 LC158 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
237 LC159 FDB 10000
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
238 FDB 1000
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
239 FDB 100
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
240 FDB 10
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
241 FDB 1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
242 FDB 0
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
243 LC165 CLRA
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
244 LC166 STA <$94
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
245 LC168 LDB ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
246 CMPB <$94
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
247 BEQ LC158
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
248 LBSR LC412
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
249 BRA LC168
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
250 LC173 LBSR LC650
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
251 LBCS LC024
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
252 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
253 LC17B CMPA #$20
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
254 BEQ LC1D1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
255 CLR <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
256 CLR <$4B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
257 LDB +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
258 BITB #$DF
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
259 BNE LC1A6
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
260 CMPA #$5D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
261 BNE LC195
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
262 PULU X,B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
263 STD <$46
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
264 STX <$42
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
265 BRA LC1C6
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
266 LC195 CMPA #$40
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
267 BNE LC1A6
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
268 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
269 STX <$46
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
270 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
271 CLRB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
272 LDY <$42
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
273 PSHU Y,X,B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
274 BRA LC1D3
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
275 LC1A6 CMPA #$22
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
276 BNE LC1CA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
277 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
278 BSR LC166
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
279 BRA LC1D3
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
280 LC1B0 CMPA #$5C
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
281 BNE LC1B9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
282 LBSR LC676
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
283 BRA LC1D3
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
284 LC1B9 STX <$84
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
285 BSR LC1EC
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
286 LBSR LC39F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
287 BSR LC173
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
288 LDX <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
289 BNE LC1D7
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
290 LC1C6 LDX <$46
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
291 BRA LC1D3
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
292 LC1CA CMPA #$2F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
293 BNE LC1B0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
294 LBSR LC397
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
295 LC1D1 LEAX +$01,X
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
296 LC1D3 LDA ,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
297 BNE LC17B
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
298 LC1D7 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
299 LC1D8 PSHS A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
300 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
301 BSR LC1F6
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
302 LDX <$46
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
303 LC1E0 LDY <$42
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
304 PSHU Y,X,B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
305 PULS PC,B,A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
306 LC1E7 LDA #$3D
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
307 LBRA LC4F9
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
308 LC1EC LDA ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
309 BITA #$DF
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
310 BEQ LC1E7
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
311 CMPA #$3D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
312 BNE LC1EC
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
313 LC1F6 LBSR LC521
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
314 LC1F9 PSHS B
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
315 LDB ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
316 BITB #$DF
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
317 BEQ LC210
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
318 CMPB #$29
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
319 BEQ LC214
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
320 CMPB #$2C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
321 BEQ LC1D8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
322 PULS B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
323 LBSR LC29C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
324 BRA LC1F9
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
325 LC210 STX <$46
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
326 PULS PC,B
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
327 LC214 LEAX +$01,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
328 PULS PC,B
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
329 LC218 CMPB #$3F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
330 BNE LC22E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
331 PSHS X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
332 STB <$8C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
333 LBSR LC5D8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
334 BSR LC1F6
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
335 PULS X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
336 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
337 RTS
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
338 LC22A LEAX +$01,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
339 BRA LC1F6
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
340 LC22E BSR LC287
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
341 CMPA #$3A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
342 BEQ LC239
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
343 BSR LC26E
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
344 LC236 LDD ,Y
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
345 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
346 LC239 BSR LC269
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
347 CLRA
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
348 LC23C LDB ,Y
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
349 LC23E RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
350 LC23F CMPB #$22
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
351 BCS LC218
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
352 CMPB #$2D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
353 BHI LC218
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
354 SUBB #$22
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
355 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
356 LEAY <LC251,PCR
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
357 LDD B,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
358 JMP D,Y
68
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
359
75
7aad8084a784 fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 74
diff changeset
360 LC251 fdb LC6EC-LC251 049b "
7aad8084a784 fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 74
diff changeset
361 fdb LC535-LC251 02e2 #
7aad8084a784 fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 74
diff changeset
362 fdb LC5A1-LC251 034c $
7aad8084a784 fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 74
diff changeset
363 fdb LC545-LC251 02ee %
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
364 fdb LC22E-LC251 ffdd &
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
365 fdb LC545-LC251 02f3 '
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
366 fdb LC22A-LC251 ffd9 (
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
367 fdb LC22E-LC251 ffdd )
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
368 fdb LC22E-LC251 ffdd *
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
369 fdb LC52D-LC251 02dc +
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
370 fdb LC22E-LC251 ffdd ,
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
371 fdb LC529-LC251 02d8 -
68
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
372
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
373 LC269 BSR LC279
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
374 LEAY D,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
375 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
376 LC26E CMPA #$28
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
377 BNE LC292
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
378 BSR LC279
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
379 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
380 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
381 LEAY D,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
382 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
383 LC279 BSR LC292
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
384 LDY ,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
385 PSHS Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
386 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
387 LBSR LC1F6
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
388 PULS PC,Y
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
389 LC287 LDB ,X+
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
390 LC289 LDA ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
391 CMPA #$41
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
392 BPL LC289
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
393 LEAX -$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
394 RTS
68
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
395
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
396 LC292 ANDB #$3F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
397 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
398 LSLB
75
7aad8084a784 fix game09 table jump and assignment
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 74
diff changeset
399 ADDD <DP04
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
400 TFR D,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
401 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
402 LC29C PSHU B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
403 LDD ,X+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
404 PSHS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
405 SUBB #$3D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
406 BEQ LC2A9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
407 DECB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
408 BNE LC2AB
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
409 LC2A9 LEAX +$01,X
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
410 LC2AB LBSR LC521
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
411 PULU Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
412 EXG D,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
413 PSHU Y,B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
414 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
415 CMPA #$3D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
416 BNE LC2C4
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
417 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
418 SUBD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
419 BNE LC2E4
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
420 LC2C0 CLRA
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
421 LDB #$01
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
422 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
423 LC2C4 CMPA #$3C
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
424 BNE LC2E7
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
425 CMPB #$3D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
426 BEQ LC2D7
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
427 CMPB #$3E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
428 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
429 BNE LC2E0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
430 SUBD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
431 BNE LC2C0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
432 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
433 LC2D7 PULU B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
434 SUBD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
435 BLE LC2C0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
436 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
437 CLRB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
438 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
439 LC2E0 SUBD ,U++
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
440 BLT LC2C0
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
441 LC2E4 CLRA
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
442 CLRB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
443 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
444 LC2E7 CMPA #$3E
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
445 BNE LC2FF
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
446 CMPB #$3D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
447 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
448 BNE LC2F8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
449 SUBD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
450 BGE LC2C0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
451 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
452 CLRB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
453 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
454 LC2F8 SUBD ,U++
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
455 BGT LC2C0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
456 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
457 CLRB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
458 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
459 LC2FF CMPA #$2B
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
460 BNE LC308
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
461 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
462 ADDD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
463 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
464 LC308 CMPA #$2D
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
465 BNE LC311
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
466 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
467 SUBD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
468 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
469 LC311 CMPA #$2A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
470 LBNE LC653
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
471 PULU B,A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
472 LC319 EXG A,B
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
473 PSHU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
474 LDB +$03,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
475 MUL
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
476 STD <$82
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
477 BSR LC32B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
478 BSR LC32B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
479 LDD <$82
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
480 LEAU +$02,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
481 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
482 LC32B PULU A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
483 LDB +$01,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
484 MUL
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
485 ADDB <$82
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
486 STB <$82
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
487 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
488 LC335 CLR ,-S
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
489 LC337 INC ,S
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
490 LSL +$01,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
491 ROL ,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
492 BCC LC337
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
493 ROR ,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
494 ROR +$01,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
495 CLR <$82
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
496 CLR <$83
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
497 LC347 SUBD ,U
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
498 BCC LC351
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
499 ADDD ,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
500 ANDCC #$FE
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
501 BRA LC353
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
502 LC351 ORCC #$01
74
c29030b5e4b4 program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 73
diff changeset
503 LC353 ROL <$83
c29030b5e4b4 program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 73
diff changeset
504 ROL <$82
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
505 DEC ,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
506 BEQ LC361
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
507 LSR ,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
508 ROR +$01,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
509 BRA LC347
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
510 LC361 LEAS +$01,S
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
511 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
512 LC364 LDB ,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
513 CMPB #$30
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
514 BCS LC36D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
515 CMPB #$3A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
516 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
517 LC36D ANDCC #$FE
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
518 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
519 LC370 LBSR LC5D8
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
520 LC373 BSR LC364
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
521 BCC LC396
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
522 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
523 CLRB
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
524 LC379 ADDB ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
525 ADCA #$00
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
526 SUBD #$030
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
527 PSHU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
528 BSR LC364
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
529 LDD ,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
530 BCC LC392
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
531 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
532 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
533 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
534 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
535 ADDD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
536 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
537 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
538 BRA LC379
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
539 LC392 PULU B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
540 ORCC #$01
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
541 LC396 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
542 LC397 LDB #$0D
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
543 BSR LC39D
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
544 LC39B LDB #$0A
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
545 LC39D BRA LC412
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
546 LC39F PSHS B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
547 LDA #$01
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
548 STA <$8C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
549 LDX <$84
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
550 LDB ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
551 CMPB #$2E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
552 BNE LC3BA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
553 PULS A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
554 LDA ,S+
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
555 LC3B1 BEQ LC3C4
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
556 LDB #$20
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
557 BSR LC412
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
558 DECA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
559 BRA LC3B1
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
560 LC3BA CMPB #$3B
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
561 BNE LC3C5
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
562 LDD ,S++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
563 LBEQ LC057
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
564 LC3C4 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
565 LC3C5 CMPB #$40
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
566 BNE LC3E4
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
567 LDB +$02,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
568 LBSR LC292
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
569 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
570 STD ,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
571 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
572 SUBD ,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
573 BLT LC3E1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
574 PULU X,B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
575 STD <$46
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
576 STX <$42
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
577 LEAU -$06,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
578 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
579 LC3E1 LEAU +$04,U
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
580 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
581 LC3E4 CMPB #$26
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
582 BNE LC3FA
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
583 LC3E8 LDB +$01,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
584 CMPB #$3D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
585 BNE LC3FA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
586 LDD ,S++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
587 BNE LC3F9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
588 LDX <$7E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
589 STX <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
590 DECA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
591 STA ,X
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
592 LC3F9 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
593 LC3FA CMPB #$21
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
594 BNE LC40C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
595 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
596 STD <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
597 BEQ LC40B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
598 LDY <$42
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
599 LDX <$46
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
600 PSHU Y,X
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
601 LC40B RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
602 LC40C CMPB #$24
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
603 BNE LC415
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
604 PULS B,A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
605 LC412 LBRA LC64A
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
606 LC415 CMPB #$3F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
607 BNE LC449
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
608 LDB +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
609 CMPB #$28
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
610 LBNE LC56E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
611 LBSR LC51F
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
612 LC424 STB <$8E
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
613 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
614 BSR LC433
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
615 ADDA <$8E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
616 BMI LC430
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
617 BSR LC3B1
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
618 LC430 LBRA LC165
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
619 LC433 TSTA
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
620 LBPL LC11A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
621 LBSR LC4F3
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
622 LBSR LC11A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
623 LDB #$2D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
624 STB ,-X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
625 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
626 LC443 PSHS B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
627 LDB #$05
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
628 BRA LC424
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
629 LC449 CMPB #$3D
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
630 BNE LC460
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
631 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
632 STD <$7E
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
633 LDX #$FFFF
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
634 STX <$4A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
635 LBSR LC09C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
636 STX <$50
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
637 LBRA LC024
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
638 LC45E PULS PC,B,A
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
639 LC460 CMPB #$3E
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
640 BNE LC46C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
641 LDD ,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
642 BEQ LC45E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
643 JSR [,S++]
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
644 PSHS B,A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
645 LC46C LDX <$84
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
646 LBSR LC287
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
647 CMPA #$3A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
648 BNE LC47D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
649 LBSR LC269
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
650 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
651 STB ,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
652 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
653 LC47D LBSR LC26E
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
654 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
655 STD ,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
656 RTS
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
657 LDA +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
658 CMPA #$4E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
659 BEQ LC48E
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
660 LBRA SYSTEM
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
661 LC48E TST +$02,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
662 BNE LC494
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
663 CLR +$03,X
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
664 LC494 LEAX +$03,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
665 CLR <$8C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
666 LBSR LC373
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
667 BCS LC4A0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
668 LDD #LC3E8
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
669 LC4A0 STD <$88
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
670 LDB ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
671 CMPB #$2C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
672 BNE LC4AF
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
673 LEAX +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
674 LBSR LC373
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
675 BCS LC4B2
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
676 LC4AF LDD #$00A
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
677 LC4B2 STD <$8A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
678 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
679 LC4B5 CMPA #$2F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
680 BNE LC4F9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
681 CLR <$8D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
682 LDD +$02,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
683 BEQ LC4F9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
684 BMI LC4D4
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
685 CMPD #LC002
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
686 BNE LC4DE
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
687 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
688 CLR <$4E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
689 CLR <$4F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
690 ASRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
691 RORB
74
c29030b5e4b4 program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 73
diff changeset
692 ROL <$4F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
693 LEAU +$02,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
694 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
695 LC4D4 INC <$8D
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
696 NEG +$03,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
697 BNE LC4DC
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
698 DEC +$02,U
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
699 LC4DC COM +$02,U
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
700 LC4DE LDD ,U++
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
701 BPL LC4E6
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
702 DEC <$8D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
703 BSR LC4F3
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
704 LC4E6 LBSR LC335
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
705 LEAU +$02,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
706 STD <$4E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
707 LDD <$82
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
708 TST <$8D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
709 BEQ LC4F8
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
710 LC4F3 NEGB
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
711 BNE LC4F7
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
712 DECA
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
713 LC4F7 COMA
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
714 LC4F8 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
715 LC4F9 LBSR LC397
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
716 LDB #$3F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
717 STB <$8C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
718 LBSR LC412
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
719 TFR A,B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
720 LBSR LC412
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
721 LDB #$20
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
722 LBSR LC412
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
723 LDX <$42
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
724 STY ,S
74
c29030b5e4b4 program is correctly stored. fix d09 ror bug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 73
diff changeset
725 CMPX <linetop
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
726 BNE LC519
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
727 LBSR LC165
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
728 BRA LC51C
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
729 LC519 LBSR LC087
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
730 LC51C LBRA LC024
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
731 LC51F LEAX +$01,X
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
732 LC521 LBSR LC373
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
733 BCS LC532
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
734 LBRA LC23F
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
735 LC529 BSR LC51F -
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
736 BRA LC4F3
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
737 LC52D BSR LC51F +
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
738 TSTA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
739 BMI LC4F3
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
740 LC532 RTS
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
741 LC535 BSR LC51F
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
742 PSHS B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
743 LDD ,S++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
744 LBNE LC2E4
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
745 INCB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
746 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
747 LC53F BSR LC51F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
748 LDD <$4E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
749 RTS
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
750 LC545
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
751 BSR LC51F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
752 PSHU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
753 LDD <$52
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
754 PSHU B,A
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
755 LDD #$3D09
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
756 LBSR LC319
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
757 ADDD #1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
758 STD <$52
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
759 TFR A,B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
760 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
761 LBSR LC319
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
762 TFR A,B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
763 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
764 ADDD #1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
765 RTS
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
766 LC568
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
767 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
768 LDB +$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
769 LEAX +$03,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
770 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
771 LC56E CMPB #$3F
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
772 BEQ LC57E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
773 CMPB #$24
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
774 BEQ LC582
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
775 PULS B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
776 LBSR LC433
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
777 LBRA LC165
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
778 LC57E LDB ,S
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
779 BSR LC584
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
780 LC582 PULS B,A
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
781 LC584 TFR B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
782 BSR LC58E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
783 TFR A,B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
784 ANDB #$0F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
785 BRA LC592
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
786 LC58E LSRB
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
787 LSRB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
788 LSRB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
789 LSRB
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
790 LC592 CMPB #$0A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
791 BMI LC598
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
792 ADDB #$07
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
793 LC598 ADDB #$30
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
794 LBRA LC412
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
795 LC5A1 CLRA
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
796 BSR LC5BD
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
797 LBCC LC64D
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
798 LC5A4 PSHS B
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
799 BSR LC5BD
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
800 PSHU B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
801 PULS B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
802 BCC LC5BA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
803 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
804 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
805 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
806 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
807 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
808 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
809 LSLB
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
810 ROLA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
811 ADDB ,U+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
812 BRA LC5A4
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
813 LC5BA LEAU +$01,U
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
814 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
815 LC5BD LEAX +$01,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
816 LDB ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
817 SUBB #$30
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
818 BCS LC5D2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
819 CMPB #$0A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
820 BCS LC5D1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
821 SUBB #$07
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
822 CMPB #$0A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
823 BCS LC5D2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
824 CMPB #$10
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
825 LC5D1 RTS
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
826 LC5D2 ANDCC #$FE
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
827 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
828 LC5D5 LBSR LC397
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
829 LC5D8 LDB #$3A
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
830 LBSR LC64A
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
831 LDX <linetop
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
832 TST <$8C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
833 BNE LC5F2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
834 LDD <$88
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
835 LBMI LC020
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
836 LBSR LC443
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
837 LDB #$20
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
838 STB -$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
839 BSR LC64A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
840 LC5F2 BSR LC64D
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
841 CMPB #$08
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
842 BEQ LC634
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
843 CMPB #$0D
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
844 BCS LC5F2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
845 BEQ LC611
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
846 CMPB #$18
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
847 BEQ LC5D5
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
848 STB ,X+
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
849 CMPX <lineend
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
850 BNE LC5F2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
851 LEAX -$01,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
852 LDB #$08
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
853 BSR LC64A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
854 BRA LC5F2
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
855 LC611 TST <$8C
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
856 BNE LC626
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
857 CMPX <lineb9b
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
858 BEQ LC61F
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
859 CMPX <lineb9a
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
860 BCC LC626
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
861 LC61F COM <$8C
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
862 LBSR LC39B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
863 BRA LC5D8
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
864 LC626 LDD <$88
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
865 ADDD <$8A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
866 STD <$88
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
867 CLR ,X
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
868 LDX <linetop
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
869 LBRA LC39B
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
870 LC634 LEAX -$01,X
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
871 CMPX <lineb0
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
872 BNE LC5F2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
873 STB <$8C
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
874 LBRA LC5D8
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
875 LC63F
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
876 FCB $D,$A
72
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
877 FCC "*READY"
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
878 FCB $D,$A,0
68
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
879
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
880 LC64A LBRA OUTCH
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
881 LC64D LBRA GETCH
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
882 LC650 LBRA SENSE
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
883
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
884 LC653 CMPA #$2E EXBOP
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
885 BNE LC65E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
886 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
887 ORA ,U+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
888 ORB ,U+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
889 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
890 LC65E CMPA #$26
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
891 BNE LC669
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
892 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
893 ANDA ,U+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
894 ANDB ,U+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
895 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
896 LC669 CMPA #$21
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
897 LBNE LC4B5
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
898 PULU B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
899 EORA ,U+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
900 EORB ,U+
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
901 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
902 LC676 LDD +$01,X EXTEND
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
903 LEAX +$03,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
904 PSHS U,X,B,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
905 LEAY >OPCMD,PCR
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
906 LC680 LDX ,Y
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
907 BMI LC6E7
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
908 CMPX ,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
909 BEQ LC68C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
910 LEAY +$05,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
911 BRA LC680
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
912 LC68C LEAY +$03,Y
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
913 LEAS +$02,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
914 LDX ,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
915 LDA -$01,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
916 BEQ LC6C3
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
917 PSHS Y,A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
918 LDA #$20
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
919 LC69A CMPA ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
920 BEQ LC69A
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
921 LDA ,-X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
922 STX +$03,S
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
923 LC6A2 BITA #$DF
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
924 BEQ LC6B0
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
925 CMPA #$2C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
926 BEQ LC6AE
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
927 BSR LC6C9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
928 BRA LC6B3
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
929 LC6AE LEAX +$01,X
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
930 LC6B0 LDD #$FFFF
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
931 LC6B3 PSHU B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
932 LDA ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
933 DEC ,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
934 BNE LC6A2
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
935 LDD +$03,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
936 STX +$03,S
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
937 TFR D,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
938 PULS Y,A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
939 LC6C3 LDD ,Y
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
940 JSR D,Y
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
941 PULS PC,U,X
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
942 LC6C9 LBSR LC521
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
943 LC6CC PSHS B
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
944 LDB ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
945 BITB #$DF
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
946 BEQ LC6E5
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
947 CMPB #$2C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
948 BEQ LC6E3
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
949 CMPB #$29
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
950 BEQ LC6E3
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
951 PULS B
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
952 LBSR LC29C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
953 BRA LC6CC
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
954 LC6E3 LEAX +$01,X
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
955 LC6E5 PULS PC,B
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
956 LC6E7 PULS U,X,B,A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
957 LBRA LC4F9
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
958 LC6EC LEAX +$01,X
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
959 LDB ,X+
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
960 LC6F0 LDA ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
961 BEQ LC6F8
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
962 CMPA #$22
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
963 BNE LC6F0
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
964 LC6F8 CLRA
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
965 RTS
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
966
72
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
967 OUTCH PSHS X,Y
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
968 BRA OUTCH1
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
969 GETCH
77
11e19ea1a7ea save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 76
diff changeset
970 PSHS A,B,X,Y
72
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
971 GETCH0
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
972 LDA #0
77
11e19ea1a7ea save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 76
diff changeset
973 LEAX 1,S
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
974 LDY #1
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
975 OS9 I$Read
72
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
976 BCS GETCH0
77
11e19ea1a7ea save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 76
diff changeset
977 PULS A,B,X,Y,PC
11e19ea1a7ea save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 76
diff changeset
978 OUTCH1 PSHS A,B
11e19ea1a7ea save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 76
diff changeset
979 LEAX 1,S
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
980 LDA #1
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
981 LDY #1
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
982 OS9 I$Write
77
11e19ea1a7ea save register in outch/getch
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 76
diff changeset
983 PULS A,B,X,Y,PC
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
984 SENSE PSHS X,Y,D
72
3a2fb51afc4d fix lv2 cmds
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 71
diff changeset
985 LDA #0
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
986 LDB #SS.Ready
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
987 OS9 I$GetStt
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
988 CMPB #$F6 Not Ready
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
989 BNE RSENSE
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
990 CLRB
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
991 PULS X,Y,D,PC
73
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
992 RSENSE
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
993 ORCC #1 set carry to indicate ready
ae26a881ac7a GAME program stored
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 72
diff changeset
994 RNSENSE
76
6462dc3978f1 fix game09 jump table
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 75
diff changeset
995 PULS X,Y,D,PC
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
996
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
997
68
ec9ef70bf6e4 add game09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
998
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
999 * COMMAND TABLE CONSIST....
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1000 * COMMAND NAME (2 BYTE)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1001 * PARAMETER COUNT (1 BYTE)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1002 * OFSET TO SUBROUTIE FROM HERE (1 WORD)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1003 **************************
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1004 OPCMD FCB 'A','T',2 START LINE,STEP
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1005 FDB CAUTO-*
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1006 FCB 'R','N',3 RENUM first line no,inc,renum start
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1007 FDB RENUM-*
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1008 * FCB 'R','D',3 DISK READ address,track,sector
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1009 * FDB GETDK-*
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1010 * FCB 'W','R',3 DISK WRITE
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1011 * FDB PUTDK-*
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1012 FCB 'S','Y',0 TO SYSTEM
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1013 FDB SYSTEM-*
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1014 FDB -1,-1,-1,-1,-1,-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1015 *************************
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1016 RENUM
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1017 LDD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1018 BPL LC762
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1019 CLRA
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1020 CLRB
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1021 LC762 STD <$4A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1022 LBSR LC09C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1023 BMI LC789
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1024 LDD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1025 BPL LC770
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1026 LDD #$00A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1027 LC770 LDY ,U++
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1028 BPL LC779
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1029 LDY #LC3E8
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1030 LC779 STY ,X++
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1031 LBSR LC173
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1032 LEAY D,Y
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1033 LC781 TST ,X+
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1034 BNE LC781
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1035 TST ,X
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1036 BPL LC779
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1037 LC789 RTS
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1038 CAUTO
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1039 LDD ,U++
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1040 BPL LC791
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1041 LDD #$00A
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1042 LC791 STD <$8A
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1043 LDD ,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1044 BEQ LC79E
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1045 BPL LC79C
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1046 LDD #LC3E8
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1047 LC79C STD <$88
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1048 LC79E CLR <$8C
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1049 RTS
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1050 BSR LC7B6
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
1051 * LBSR LCD09
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1052 BNE LC7B1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1053 RTS
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1054 BSR LC7B6
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
1055 * LBSR LCD0C
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1056 BNE LC7B1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1057 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1058 LC7B1 LDA #$44
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1059 LBRA LC4F9
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1060 LC7B6 LDX +$04,U
69
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1061 LDA +$03,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1062 LDB +$01,U
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 68
diff changeset
1063 RTS
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1064 SYSTEM clrb
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1065 os9 F$Exit
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1066 rts
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1067 emod
71
eb9be32c701c fix leval
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 70
diff changeset
1068 eom equ *
70
a200fa7d5b70 game09 fix for os9
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 69
diff changeset
1069 end