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