Mercurial > hg > Members > kono > os9 > sbc09

comparison game09/game09.asm @ 68:ec9ef70bf6e4

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