annotate game09/game09.asm @ 161:91447c3ccd58

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