-
Notifications
You must be signed in to change notification settings - Fork 2
/
PDD1.LST
3247 lines (3243 loc) · 80.3 KB
/
PDD1.LST
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
;
; Disassembled by:
; DASMx object code disassembler
; (c) Copyright 1996-2003 Conquest Consultants
; Version 1.40 (Oct 18 2003)
;
; File: pdd.bin
;
; Size: 4096 bytes
; Checksum: 70AE
; CRC-32: 84C64747
;
; Date: Tue Nov 29 18:34:29 2016
;
; CPU: Hitachi 6301 (6301/6303 family)
;
;
;
org $F000
;
F000 ProgramStart:
F000 : 0F " " sei
F001 : 8E 87 FF " " lds #$87FF
F004 : 86 FC " " ldaa #$FC
F006 : 97 00 " " staa _register_PORT1Direction
F008 : 86 34 " 4" ldaa #$34
F00A : 97 02 " " staa _register_PORT1Data
F00C : 86 FF " " ldaa #$FF
F00E : 97 04 " " staa _register_PORT3Direction
F010 : 97 05 " " staa _register_PORT4Direction
F012 : 86 A0 " " ldaa #$A0
F014 : B7 40 00 " @ " staa _CPLD_4000
F017 : F6 40 01 " @ " ldab _CPLD_4001
F01A : C4 F0 " " andb #$F0
F01C : 37 "7" pshb
F01D : 54 "T" lsrb
F01E : 54 "T" lsrb
F01F : 54 "T" lsrb
F020 : 54 "T" lsrb
F021 : CE FF B7 " " ldx #$FFB7
F024 : 3A ":" abx
F025 : A6 00 " " ldaa $00,x
F027 : 97 80 " " staa X0080
F029 : B7 40 01 " @ " staa _CPLD_4001
F02C : 86 10 " " ldaa #$10
F02E : 97 01 " " staa _register_PORT2Direction
F030 : 86 0C " " ldaa #$0C
F032 : 97 10 " " staa _register_SCI_RateAndModeControl
F034 : 86 0A " " ldaa #$0A
F036 : 97 11 " " staa _register_SCI_TxRxControlAndStatus
F038 : CE 00 81 " " ldx #$0081
F03B : CC 00 7F " " ldd #$007F
F03E : BD F9 AD " " jsr _sub_ClearMemory(X=StartAddress_D=Length)
F041 : 72 FF 86 "r " oim #$FFX0086
F044 : C6 64 " d" ldab #$64
F046 : BD F9 BC " " jsr _sub_Delay_Units=ACCB
F049 : BD F4 51 " Q" jsr LF451
F04C : 33 "3" pulb
F04D : C1 D0 " " cmpb #$D0
F04F : 24 30 "$0" bcc LF081
F051 : C1 30 " 0" cmpb #$30
F053 : 25 2F "%/" bcs LF084
F055 LF055:
F055 : BD F9 FE " " jsr LF9FE
F058 : BD F9 B6 " " jsr _sub_Delay_Units=14
F05B LF05B:
F05B : CE 00 8D " " ldx #$008D
F05E : CC 00 23 " #" ldd #$0023
F061 : BD F9 AD " " jsr _sub_ClearMemory(X=StartAddress_D=Length)
F064 : 96 11 " " ldaa _register_SCI_TxRxControlAndStatus
F066 : 96 12 " " ldaa _register_SCI_RxData
F068 : BD F9 BA " " jsr _sub_Delay_Units=1
F06B : CE 00 8E " " ldx #$008E
F06E : DF 9C " " stx X009C
F070 LF070:
F070 : BD F1 45 " E" jsr LF145
F073 : 27 3A "':" beq LF0AF
F075 : 81 E2 " " cmpa #$E2
F077 : 26 6F "&o" bne LF0E8
F079 : 72 80 9F "r " oim #$80X009F
F07C : 7F 00 8D " " clr X008D
F07F : 20 EF " " bra LF070
F081 LF081:
F081 : 7E FA E2 "~ " jmp LFAE2
;
F084 LF084:
F084 : C1 20 " " cmpb #$20
F086 : 27 03 "' " beq _EntryPoint_SpecialRomJumpBootLoader
F088 : 7E FA 17 "~ " jmp LFA17
;
F08B _EntryPoint_SpecialRomJumpBootLoader:
F08B : BD F6 5A " Z" jsr LF65A
F08E : 26 1C "& " bne LF0AC
F090 : CE 85 15 " " ldx #$8515
F093 : DF BC " " stx X00BC
F095 : CE 80 13 " " ldx #$8013
F098 LF098:
F098 : A6 00 " " ldaa $00,x
F09A : 08 " " inx
F09B : 3C "<" pshx
F09C : DE BC " " ldx X00BC
F09E : A7 00 " " staa $00,x
F0A0 : 08 " " inx
F0A1 : DF BC " " stx X00BC
F0A3 : 38 "8" pulx
F0A4 : 8C 82 ED " " cpx #$82ED
F0A7 : 26 EF "& " bne LF098
F0A9 : BD 85 15 " " jsr _EntryPoint_CodeExecutionAddress(8515)
F0AC LF0AC:
F0AC : 7E FA 71 "~ q" jmp LFA71
;
F0AF LF0AF:
F0AF : DE 9C " " ldx X009C
F0B1 : 8C 00 9C " " cpx #$009C
F0B4 : 26 05 "& " bne LF0BB
F0B6 : 72 01 9F "r " oim #$01X009F
F0B9 : 20 05 " " bra LF0C0
;
F0BB LF0BB:
F0BB : E7 00 " " stab $00,x
F0BD : 08 " " inx
F0BE : DF 9C " " stx X009C
F0C0 LF0C0:
F0C0 : C1 0D " " cmpb #$0D
F0C2 : 26 13 "& " bne LF0D7
F0C4 : 96 9F " " ldaa X009F
F0C6 : 27 20 "' " beq LF0E8
F0C8 : 79 00 9F "y " rol X009F
F0CB : 25 06 "% " bcs LF0D3
F0CD : 86 C0 " " ldaa #$C0
F0CF LF0CF:
F0CF : 97 8D " " staa X008D
F0D1 : 20 15 " " bra LF0E8
;
F0D3 LF0D3:
F0D3 : 86 D0 " " ldaa #$D0
F0D5 : 20 F8 " " bra LF0CF
;
F0D7 LF0D7:
F0D7 : C1 20 " " cmpb #$20
F0D9 : 26 07 "& " bne LF0E2
F0DB LF0DB:
F0DB : DE 9C " " ldx X009C
F0DD : 09 " " dex
F0DE : DF 9C " " stx X009C
F0E0 : 20 8E " " bra LF070
;
F0E2 LF0E2:
F0E2 : C1 0A " " cmpb #$0A
F0E4 : 27 F5 "' " beq LF0DB
F0E6 : 20 88 " " bra LF070
;
F0E8 LF0E8:
F0E8 : 96 84 " " ldaa X0084
F0EA : 26 19 "& " bne LF105
F0EC : 96 8D " " ldaa X008D
F0EE : 26 15 "& " bne LF105
F0F0 : CE FF C7 " " ldx #$FFC7
F0F3 LF0F3:
F0F3 : 96 8E " " ldaa X008E
F0F5 : A1 00 " " cmpa $00,x
F0F7 : 27 11 "' " beq LF10A
F0F9 : 08 " " inx
F0FA : 08 " " inx
F0FB : 08 " " inx
F0FC : 8C FF E8 " " cpx #$FFE8
F0FF : 26 F2 "& " bne LF0F3
F101 : 86 C1 " " ldaa #$C1
F103 : 97 8D " " staa X008D
F105 LF105:
F105 : CE F1 E8 " " ldx #$F1E8
F108 : 20 02 " " bra LF10C
;
F10A LF10A:
F10A : EE 01 " " ldx $01,x
F10C LF10C:
F10C : AD 00 " " jsr $00,x ;INFO: index jump
F10E : BD F5 9D " " jsr LF59D
F111 : 26 10 "& " bne LF123
F113 : 79 00 A0 "y " rol X00A0
F116 : 24 2A "$*" bcc LF142
F118 LF118:
F118 : 7F 00 9E " " clr X009E
F11B : 8D 28 " (" bsr LF145
F11D : 27 07 "' " beq LF126
F11F : 81 E2 " " cmpa #$E2
F121 : 27 1F "' " beq LF142
F123 LF123:
F123 : 7E F0 55 "~ U" jmp LF055
;
F126 LF126:
F126 : C1 0A " " cmpb #$0A
F128 : 27 EE "' " beq LF118
F12A : C1 0D " " cmpb #$0D
F12C : 26 14 "& " bne LF142
F12E : DE A5 " " ldx X00A5
F130 LF130:
F130 : E6 00 " " ldab $00,x
F132 : 8D 4B " K" bsr LF17F
F134 : 26 ED "& " bne LF123
F136 : 08 " " inx
F137 : DC A7 " " ldd X00A7
F139 : 27 07 "' " beq LF142
F13B : 83 00 01 " " subd #$0001
F13E : DD A7 " " std X00A7
F140 : 26 EE "& " bne LF130
F142 LF142:
F142 : 7E F0 5B "~ [" jmp LF05B
;
F145 LF145:
F145 : 7B 03 02 "{ " tim #$03_register_PORT1Data
F148 : 27 0A "' " beq LF154
F14A : 8D 52 " R" bsr LF19E
F14C : 27 F7 "' " beq LF145
F14E LF14E:
F14E : 72 04 02 "r " oim #$04_register_PORT1Data
F151 : 96 8D " " ldaa X008D
F153 : 39 "9" rts
;
F154 LF154:
F154 : 71 F3 02 "q " aim #$F3_register_PORT1Data
F157 LF157:
F157 : 96 11 " " ldaa _register_SCI_TxRxControlAndStatus
F159 : 84 C0 " " anda #$C0
F15B : 26 06 "& " bne LF163
F15D : 8D 3F " ?" bsr LF19E
F15F : 27 F6 "' " beq LF157
F161 : 20 EB " " bra LF14E
;
F163 LF163:
F163 : D6 12 " " ldab _register_SCI_RxData
F165 : 37 "7" pshb
F166 : 49 "I" rola
F167 : 49 "I" rola
F168 : 25 0E "% " bcs LF178
F16A : CC 00 7F " " ldd #$007F
F16D : DD AA " " std X00AA
F16F : 97 AC " " staa X00AC
F171 : 86 01 " " ldaa #$01
F173 : 97 9E " " staa X009E
F175 : 33 "3" pulb
F176 : 20 D6 " " bra LF14E
;
F178 LF178:
F178 : 33 "3" pulb
F179 : 86 E2 " " ldaa #$E2
F17B : 97 8D " " staa X008D
F17D : 20 CF " " bra LF14E
;
F17F LF17F:
F17F : D7 B4 " " stab X00B4
F181 LF181:
F181 : 4F "O" clra
F182 : 97 9E " " staa X009E
F184 : 7B 20 11 "{ " tim #$20_register_SCI_TxRxControlAndStatus
F187 : 26 05 "& " bne LF18E
F189 : 8D 13 " " bsr LF19E
F18B : 27 F4 "' " beq LF181
F18D : 39 "9" rts
;
F18E LF18E:
F18E : D6 B4 " " ldab X00B4
F190 : D7 13 " " stab _register_SCI_TxData
F192 LF192:
F192 : 7B 20 11 "{ " tim #$20_register_SCI_TxRxControlAndStatus
F195 : 27 02 "' " beq LF199
F197 : 4F "O" clra
F198 : 39 "9" rts
;
F199 LF199:
F199 : 8D 03 " " bsr LF19E
F19B : 27 F5 "' " beq LF192
F19D : 39 "9" rts
;
F19E LF19E:
F19E : DC 8B " " ldd X008B
F1A0 : 27 32 "'2" beq LF1D4
F1A2 LF1A2:
F1A2 : 83 00 01 " " subd #$0001
F1A5 : DD 8B " " std X008B
F1A7 : 24 03 "$ " bcc LF1AC
F1A9 : 7A 00 8A "z " dec X008A
F1AC LF1AC:
F1AC : BD F9 C6 " " jsr LF9C6
F1AF : 7B 02 02 "{ " tim #$02_register_PORT1Data
F1B2 : 26 30 "&0" bne LF1E4
F1B4 : 96 9E " " ldaa X009E
F1B6 : 46 "F" rora
F1B7 : 24 0E "$ " bcc LF1C7
F1B9 : DC AB " " ldd X00AB
F1BB : 27 0C "' " beq LF1C9
F1BD LF1BD:
F1BD : 83 00 01 " " subd #$0001
F1C0 : DD AB " " std X00AB
F1C2 : 24 03 "$ " bcc LF1C7
F1C4 : 7A 00 AA "z " dec X00AA
F1C7 LF1C7:
F1C7 : 4F "O" clra
F1C8 : 39 "9" rts
;
F1C9 LF1C9:
F1C9 : 36 "6" psha
F1CA : 96 AA " " ldaa X00AA
F1CC : 32 "2" pula
F1CD : 26 EE "& " bne LF1BD
F1CF : 86 E0 " " ldaa #$E0
F1D1 LF1D1:
F1D1 : 97 8D " " staa X008D
F1D3 : 39 "9" rts
;
F1D4 LF1D4:
F1D4 : 36 "6" psha
F1D5 : 96 8A " " ldaa X008A
F1D7 : 32 "2" pula
F1D8 : 26 C8 "& " bne LF1A2
F1DA : 71 FB 80 "q " aim #$FBX0080
F1DD : 96 80 " " ldaa X0080
F1DF : B7 40 01 " @ " staa _CPLD_4001
F1E2 : 20 C8 " " bra LF1AC
;
F1E4 LF1E4:
F1E4 : 86 E0 " " ldaa #$E0
F1E6 : 20 E9 " " bra LF1D1
;
F1E8 _jsrAdr(F0F0)_Default_code:
F1E8 : 96 84 " " ldaa X0084
F1EA : 26 0C "& " bne _jsrAdr(F0F0)_Default_code(onlyLocal_1)
F1EC : 7F 00 A0 " " clr X00A0
F1EF : 96 8D " " ldaa X008D
F1F1 : 84 F0 " " anda #$F0
F1F3 : 81 E0 " " cmpa #$E0
F1F5 : 26 03 "& " bne _jsrAdr(F0F0)_Default_code(onlyLocal_2)
F1F7 : 39 "9" rts
;
F1F8 _jsrAdr(F0F0)_Default_code(onlyLocal_1):
F1F8 : 97 8D " " staa X008D
F1FA _jsrAdr(F0F0)_Default_code(onlyLocal_2):
F1FA : 7E F4 2C "~ ," jmp LF42C
;
F1FD _jsrAdr(F0F0)_3_code:
F1FD : BD F4 F5 " " jsr LF4F5
F200 : 26 15 "& " bne LF217
F202 : BD F6 5A " Z" jsr LF65A
F205 : 26 10 "& " bne LF217
F207 : BD F4 95 " " jsr LF495
F20A : 26 0B "& " bne LF217
F20C : BD F8 69 " i" jsr LF869
F20F : 20 54 " T" bra LF265
;
F211 _jsrAdr(F0F0)_5_code:
F211 : 72 FF A9 "r " oim #$FFX00A9
F214 _jsrAdr(F0F0)_4_code:
F214 : BD F4 F5 " " jsr LF4F5
F217 LF217:
F217 : 26 36 "&6" bne LF24F
F219 : BD F6 5A " Z" jsr LF65A
F21C : 26 31 "&1" bne LF24F
F21E : BD F4 E5 " " jsr LF4E5
F221 : 26 2C "&," bne LF24F
F223 : BD F4 95 " " jsr LF495
F226 : 26 27 "&'" bne LF24F
F228 : BD F8 69 " i" jsr LF869
F22B : BD F4 36 " 6" jsr LF436
F22E : BD F5 9D " " jsr LF59D
F231 : 27 04 "' " beq LF237
F233 LF233:
F233 : 7F 00 A0 " " clr X00A0
F236 : 39 "9" rts
;
F237 LF237:
F237 : BD F5 CB " " jsr LF5CB
F23A : 81 E0 " " cmpa #$E0
F23C : 27 F5 "' " beq LF233
F23E : 16 " " tab
F23F : 26 0E "& " bne LF24F
F241 : BD F7 7A " z" jsr LF77A
F244 : 96 8D " " ldaa X008D
F246 : 26 07 "& " bne LF24F
F248 : 96 A9 " " ldaa X00A9
F24A : 26 03 "& " bne LF24F
F24C : BD F6 5A " Z" jsr LF65A
F24F LF24F:
F24F : 20 57 " W" bra LF2A8
;
F251 _jsrAdr(F0F0)_6_code:
F251 : BD F5 22 " "" jsr LF522
F254 : 26 F9 "& " bne LF24F
F256 : BD F6 86 " " jsr LF686
F259 : 26 F4 "& " bne LF24F
F25B : CC 80 05 " " ldd #$8005
F25E : DD A5 " " std X00A5
F260 : CC 00 0C " " ldd #$000C
F263 : DD A7 " " std X00A7
F265 LF265:
F265 : 7E F4 40 "~ @" jmp LF440
;
F268 _jsrAdr(F0F0)_8_code:
F268 : 72 FF A9 "r " oim #$FFX00A9
F26B _jsrAdr(F0F0)_7_code:
F26B : BD F5 22 " "" jsr LF522
F26E : 26 38 "&8" bne LF2A8
F270 : BD F6 5A " Z" jsr LF65A
F273 : 26 33 "&3" bne LF2A8
F275 : BD F4 E5 " " jsr LF4E5
F278 : 26 2E "&." bne LF2A8
F27A : BD F4 36 " 6" jsr LF436
F27D : BD F5 9D " " jsr LF59D
F280 : 27 03 "' " beq LF285
F282 LF282:
F282 : 7E F2 33 "~ 3" jmp LF233
;
F285 LF285:
F285 : CE 80 05 " " ldx #$8005
F288 : DF A5 " " stx X00A5
F28A : CC 00 0C " " ldd #$000C
F28D : DD A7 " " std X00A7
F28F : BD F5 CB " " jsr LF5CB
F292 : 27 06 "' " beq LF29A
F294 : 81 E0 " " cmpa #$E0
F296 : 27 EA "' " beq LF282
F298 : 20 0E " " bra LF2A8
;
F29A LF29A:
F29A : BD F7 7A " z" jsr LF77A
F29D : 96 8D " " ldaa X008D
F29F : 26 07 "& " bne LF2A8
F2A1 : 96 A9 " " ldaa X00A9
F2A3 : 26 03 "& " bne LF2A8
F2A5 : BD F6 5A " Z" jsr LF65A
F2A8 LF2A8:
F2A8 : 20 79 " y" bra LF323
;
F2AA _jsrAdr(F0F0)_2_code:
F2AA : 72 FF A9 "r " oim #$FFX00A9
F2AD _jsrAdr(F0F0)_1_code:
F2AD : 86 03 " " ldaa #$03
F2AF : 97 AD " " staa X00AD
F2B1 : 96 8F " " ldaa X008F
F2B3 : 81 0D " " cmpa #$0D
F2B5 : 27 11 "' " beq LF2C8
F2B7 : BD F8 5A " Z" jsr LF85A
F2BA : 26 6E "&n" bne LF32A
F2BC : 97 AD " " staa X00AD
F2BE : 96 90 " " ldaa X0090
F2C0 : 81 0D " " cmpa #$0D
F2C2 : 27 04 "' " beq LF2C8
F2C4 : 86 32 " 2" ldaa #$32
F2C6 : 20 60 " `" bra LF328
;
F2C8 LF2C8:
F2C8 : 4F "O" clra
F2C9 : 97 CA " " staa X00CA
F2CB : 97 CB " " staa X00CB
F2CD : 96 AD " " ldaa X00AD
F2CF : 81 06 " " cmpa #$06
F2D1 : 22 53 ""S" bhi LF326
F2D3 : 97 CE " " staa X00CE
F2D5 : 72 FF 86 "r " oim #$FFX0086
F2D8 : 81 03 " " cmpa #$03
F2DA : 22 59 ""Y" bhi LF335
F2DC LF2DC:
F2DC : CC 05 13 " " ldd #$0513
F2DF LF2DF:
F2DF : DD CC " " std X00CC
F2E1 : BD F4 51 " Q" jsr LF451
F2E4 : 26 44 "&D" bne LF32A
F2E6 : 7F 00 AD " " clr X00AD
F2E9 LF2E9:
F2E9 : DC CC " " ldd X00CC
F2EB : FD 80 00 " " std X8000
F2EE : CE 80 02 " " ldx #$8002
F2F1 : BD F9 AD " " jsr _sub_ClearMemory(X=StartAddress_D=Length)
F2F4 : 96 CE " " ldaa X00CE
F2F6 : B7 80 04 " " staa X8004
F2F9 LF2F9:
F2F9 : 96 AD " " ldaa X00AD
F2FB : B7 80 02 " " staa X8002
F2FE : BD F9 18 " " jsr LF918
F301 : BD F7 7A " z" jsr LF77A
F304 : 96 8D " " ldaa X008D
F306 : 26 22 "&"" bne LF32A
F308 : 96 A9 " " ldaa X00A9
F30A : 26 0A "& " bne LF316
F30C : 7F 00 AF " " clr X00AF
F30F : BD F6 A2 " " jsr LF6A2
F312 : 96 8D " " ldaa X008D
F314 : 26 28 "&(" bne LF33E
F316 LF316:
F316 : 96 AD " " ldaa X00AD
F318 : 4C "L" inca
F319 : 97 AD " " staa X00AD
F31B : 81 50 " P" cmpa #$50
F31D : 26 0D "& " bne LF32C
F31F : 96 CA " " ldaa X00CA
F321 : 26 2E "&." bne LF351
F323 LF323:
F323 : 7E F4 36 "~ 6" jmp LF436
;
F326 LF326:
F326 : 86 33 " 3" ldaa #$33
F328 LF328:
F328 : 97 8D " " staa X008D
F32A LF32A:
F32A : 20 44 " D" bra LF370
;
F32C LF32C:
F32C : 96 8D " " ldaa X008D
F32E : 27 C9 "' " beq LF2F9
F330 : 7F 00 8D " " clr X008D
F333 : 20 B4 " " bra LF2E9
;
F335 LF335:
F335 : 81 06 " " cmpa #$06
F337 : 27 A3 "' " beq LF2DC
F339 : CC 04 13 " " ldd #$0413
F33C : 20 A1 " " bra LF2DF
;
F33E LF33E:
F33E : 16 " " tab
F33F : 84 F0 " " anda #$F0
F341 : 81 A0 " " cmpa #$A0
F343 : 26 E5 "& " bne LF32A
F345 : 96 CA " " ldaa X00CA
F347 : 26 CD "& " bne LF316
F349 : D7 CA " " stab X00CA
F34B : 96 AD " " ldaa X00AD
F34D : 97 CB " " staa X00CB
F34F : 20 C5 " " bra LF316
;
F351 LF351:
F351 : 97 8D " " staa X008D
F353 : BD F4 2C " ," jsr LF42C
F356 : 96 CB " " ldaa X00CB
F358 : 97 A2 " " staa X00A2
F35A : 39 "9" rts
;
F35B _jsrAdr(F0F0)_9_code:
F35B : 96 8F " " ldaa X008F
F35D : 81 0D " " cmpa #$0D
F35F : 26 0B "& " bne LF36C
F361 : BD F4 2C " ," jsr LF42C
F364 : BD F5 9D " " jsr LF59D
F367 : 27 09 "' " beq LF372
F369 LF369:
F369 : 7E F2 33 "~ 3" jmp LF233
;
F36C LF36C:
F36C : 86 3D " =" ldaa #$3D
F36E : 97 8D " " staa X008D
F370 LF370:
F370 : 20 60 " `" bra LF3D2
;
F372 LF372:
F372 : CE 00 8E " " ldx #$008E
F375 : DF A5 " " stx X00A5
F377 : CE 00 0C " " ldx #$000C
F37A : DF A7 " " stx X00A7
F37C : BD F5 CB " " jsr LF5CB
F37F : 27 13 "' " beq LF394
F381 : 81 E0 " " cmpa #$E0
F383 : 27 E4 "' " beq LF369
F385 LF385:
F385 : 97 8D " " staa X008D
F387 : 20 9A " " bra LF323
;
F389 LF389:
F389 : 97 8D " " staa X008D
F38B : BD F4 36 " 6" jsr LF436
F38E : B6 80 02 " " ldaa X8002
F391 : 97 A2 " " staa X00A2
F393 : 39 "9" rts
;
F394 LF394:
F394 : 4F "O" clra
F395 : 97 AD " " staa X00AD
F397 LF397:
F397 : BD F6 86 " " jsr LF686
F39A : 26 E9 "& " bne LF385
F39C : CE 80 05 " " ldx #$8005
F39F : CC 00 8E " " ldd #$008E
F3A2 : DD A5 " " std X00A5
F3A4 LF3A4:
F3A4 : A6 00 " " ldaa $00,x
F3A6 : 3C "<" pshx
F3A7 : DE A5 " " ldx X00A5
F3A9 : A1 00 " " cmpa $00,x
F3AB : 27 0E "' " beq LF3BB
F3AD : 38 "8" pulx
F3AE : 7C 00 AD "| " inc X00AD
F3B1 : 86 50 " P" ldaa #$50
F3B3 : 91 AD " " cmpa X00AD
F3B5 : 26 E0 "& " bne LF397
F3B7 : 86 3C " <" ldaa #$3C
F3B9 : 20 CA " " bra LF385
;
F3BB LF3BB:
F3BB : 08 " " inx
F3BC : DF A5 " " stx X00A5
F3BE : 38 "8" pulx
F3BF : 08 " " inx
F3C0 : 8C 80 11 " " cpx #$8011
F3C3 : 26 DF "& " bne LF3A4
F3C5 : 4F "O" clra
F3C6 : 20 C1 " " bra LF389
;
F3C8 _jsrAdr(F0F0)_A_code:
F3C8 : 96 8F " " ldaa X008F
F3CA : 81 0D " " cmpa #$0D
F3CC : 27 06 "' " beq LF3D4
F3CE : 86 38 " 8" ldaa #$38
F3D0 : 97 8D " " staa X008D
F3D2 LF3D2:
F3D2 : 20 4B " K" bra LF41F
;
F3D4 LF3D4:
F3D4 : BD F4 25 " %" jsr LF425
F3D7 : BD F4 E5 " " jsr LF4E5
F3DA : 27 06 "' " beq LF3E2
F3DC : 4F "O" clra
F3DD : 97 8D " " staa X008D
F3DF : 75 20 A2 "u " eim #$20X00A2
F3E2 LF3E2:
F3E2 : 4C "L" inca
F3E3 : 97 D8 " " staa X00D8
F3E5 : BD F4 AF " " jsr LF4AF
F3E8 : 7F 00 D8 " " clr X00D8
F3EB : 96 8D " " ldaa X008D
F3ED : 27 0D "' " beq LF3FC
F3EF : 81 D1 " " cmpa #$D1
F3F1 : 26 03 "& " bne LF3F6
F3F3 : 75 80 A2 "u " eim #$80X00A2
F3F6 LF3F6:
F3F6 : 75 40 A2 "u@ " eim #$40X00A2
F3F9 : 4F "O" clra
F3FA : 97 8D " " staa X008D
F3FC LF3FC:
F3FC : 4C "L" inca
F3FD : 97 A0 " " staa X00A0
F3FF : 39 "9" rts
;
F400 _jsrAdr(F0F0)_B_code:
F400 : 96 8F " " ldaa X008F
F402 : 81 0D " " cmpa #$0D
F404 : 27 0D "' " beq LF413
F406 : BD F8 5A " Z" jsr LF85A
F409 : 26 14 "& " bne LF41F
F40B : 97 AD " " staa X00AD
F40D : 96 90 " " ldaa X0090
F40F : 81 0D " " cmpa #$0D
F411 : 26 08 "& " bne LF41B
F413 LF413:
F413 : 96 AD " " ldaa X00AD
F415 : 27 08 "' " beq LF41F
F417 : 81 01 " " cmpa #$01
F419 : 27 06 "' " beq LF421
F41B LF41B:
F41B : 86 37 " 7" ldaa #$37
F41D : 97 8D " " staa X008D
F41F LF41F:
F41F : 20 0B " " bra LF42C
;
F421 LF421:
F421 : 38 "8" pulx
F422 : 7E FA E2 "~ " jmp LFAE2
;
F425 LF425:
F425 : 4F "O" clra
F426 : 5F "_" clrb
F427 : DD A2 " " std X00A2
F429 : 97 A4 " " staa X00A4
F42B : 39 "9" rts
;
F42C LF42C:
F42C : 8D F7 " " bsr LF425
F42E LF42E:
F42E : 96 8D " " ldaa X008D
F430 : 97 A1 " " staa X00A1
F432 : 72 01 A0 "r " oim #$01X00A0
F435 : 39 "9" rts
;
F436 LF436:
F436 : 96 86 " " ldaa X0086
F438 : 97 A2 " " staa X00A2
F43A : DC 87 " " ldd X0087
F43C : DD A3 " " std X00A3
F43E : 20 EE " " bra LF42E
;
F440 LF440:
F440 : 8D F4 " " bsr LF436
F442 : 72 81 A0 "r " oim #$81X00A0
F445 : 39 "9" rts
;
F446 LF446:
F446 : 71 7F 02 "q " aim #$7F_register_PORT1Data
F449 LF449:
F449 : 7E F9 BA "~ " jmp _sub_Delay_Units=1
;
F44C LF44C:
F44C : 72 80 02 "r " oim #$80_register_PORT1Data
F44F : 20 F8 " " bra LF449
;
F451 LF451:
F451 : 8D F9 " " bsr LF44C
F453 : 86 3E " >" ldaa #$3E
F455 : 97 B9 " " staa X00B9
F457 : 71 FC 80 "q " aim #$FCX0080
F45A : 72 03 80 "r " oim #$03X0080
F45D : B6 40 01 " @ " ldaa _CPLD_4001
F460 : 84 08 " " anda #$08
F462 : 27 1E "' " beq LF482
F464 LF464:
F464 : C6 04 " " ldab #$04
F466 : BD F9 3D " =" jsr LF93D
F469 : 7A 00 B9 "z " dec X00B9
F46C : 27 0D "' " beq LF47B
F46E : B6 40 01 " @ " ldaa _CPLD_4001
F471 : 84 08 " " anda #$08
F473 : 26 EF "& " bne LF464
F475 : 8D CF " " bsr LF446
F477 : 7F 00 85 " " clr X0085
F47A : 39 "9" rts
;
F47B LF47B:
F47B : 8D C9 " " bsr LF446
F47D : 86 F1 " " ldaa #$F1
F47F : 7E F6 09 "~ " jmp LF609
;
F482 LF482:
F482 : C6 04 " " ldab #$04
F484 : BD F9 39 " 9" jsr LF939
F487 : 7A 00 B9 "z " dec X00B9
F48A : 27 EF "' " beq LF47B
F48C : B6 40 01 " @ " ldaa _CPLD_4001
F48F : 84 08 " " anda #$08
F491 : 27 EF "' " beq LF482
F493 : 20 CF " " bra LF464
;
F495 LF495:
F495 : F6 80 04 " " ldab X8004
F498 : CE F4 A8 " " ldx #$F4A8
F49B : 3A ":" abx
F49C : A6 00 " " ldaa $00,x
F49E : 91 AE " " cmpa X00AE
F4A0 : 25 02 "% " bcs LF4A4
F4A2 : 4F "O" clra
F4A3 : 39 "9" rts
;
F4A4 LF4A4:
F4A4 : 86 12 " " ldaa #$12
F4A6 : 20 4B " K" bra LF4F3
;
F4A8 _lookupTable_For_0xF498:
F4A8 : 14 " " db $14
F4A9 : 10 " " db $10
F4AA : 0A " " db $0A
F4AB : 05 " " db $05
F4AC : 02 " " db $02
F4AD : 01 " " db $01
F4AE : 01 " " db $01
;
F4AF LF4AF:
F4AF : C6 01 " " ldab #$01
F4B1 : 20 01 " " bra LF4B4
;
F4B3 LF4B3:
F4B3 : 5F "_" clrb
F4B4 LF4B4:
F4B4 : 37 "7" pshb
F4B5 : B6 40 02 " @ " ldaa _CPLD_4002
F4B8 : 16 " " tab
F4B9 : 84 04 " " anda #$04
F4BB : 26 0D "& " bne LF4CA
F4BD : C4 08 " " andb #$08
F4BF : 33 "3" pulb
F4C0 : 27 22 "'"" beq LF4E4
F4C2 : 96 D8 " " ldaa X00D8
F4C4 : 27 09 "' " beq LF4CF
F4C6 : 86 D3 " " ldaa #$D3
F4C8 : 20 03 " " bra LF4CD
;
F4CA LF4CA:
F4CA : 33 "3" pulb
F4CB : 86 D1 " " ldaa #$D1
F4CD LF4CD:
F4CD : 97 8D " " staa X008D
F4CF LF4CF:
F4CF : 72 FF 86 "r " oim #$FFX0086
F4D2 : 17 " " tba
F4D3 : 26 0D "& " bne LF4E2
F4D5 : B6 40 00 " @ " ldaa _CPLD_4000
F4D8 : 84 FD " " anda #$FD
F4DA : B7 40 00 " @ " staa _CPLD_4000
F4DD : 8A 02 " " oraa #$02
F4DF : B7 40 00 " @ " staa _CPLD_4000
F4E2 LF4E2:
F4E2 : 96 8D " " ldaa X008D
F4E4 LF4E4:
F4E4 : 39 "9" rts
;
F4E5 LF4E5:
F4E5 : BD F4 4C " L" jsr LF44C
F4E8 : B6 40 02 " @ " ldaa _CPLD_4002
F4EB : 84 02 " " anda #$02
F4ED : 26 02 "& " bne LF4F1
F4EF : 4F "O" clra
F4F0 : 39 "9" rts
;
F4F1 LF4F1:
F4F1 : 86 B0 " " ldaa #$B0
F4F3 LF4F3:
F4F3 : 20 1D " " bra LF512
;
F4F5 LF4F5:
F4F5 : 4F "O" clra
F4F6 : 4C "L" inca
F4F7 : 97 AE " " staa X00AE
F4F9 : 8D 33 " 3" bsr LF52E
F4FB : 27 17 "' " beq LF514
F4FD : 4A "J" deca
F4FE : 26 14 "& " bne LF514
F500 : 97 8D " " staa X008D
F502 : A6 00 " " ldaa $00,x
F504 : 81 0D " " cmpa #$0D
F506 : 27 0C "' " beq LF514
F508 : BD F5 5D " ]" jsr LF55D
F50B : 27 08 "' " beq LF515
F50D : 4A "J" deca
F50E : 26 04 "& " bne LF514
F510 : 86 10 " " ldaa #$10
F512 LF512:
F512 : 97 8D " " staa X008D
F514 LF514:
F514 : 39 "9" rts
;
F515 LF515:
F515 : DC B7 " " ldd X00B7
F517 : 27 05 "' " beq LF51E
F519 : D7 AE " " stab X00AE
F51B : 4D "M" tsta
F51C : 27 F6 "' " beq LF514
F51E LF51E:
F51E : 86 11 " " ldaa #$11
F520 : 20 F0 " " bra LF512
;
F522 LF522:
F522 : 8D 0A " " bsr LF52E
F524 : 27 EE "' " beq LF514
F526 : 81 01 " " cmpa #$01
F528 : 26 EA "& " bne LF514
F52A : 86 14 " " ldaa #$14
F52C : 20 E4 " " bra LF512
;
F52E LF52E:
F52E : CE 00 8F " " ldx #$008F
F531 : A6 00 " " ldaa $00,x
F533 : 81 0D " " cmpa #$0D
F535 : 27 1A "' " beq LF551
F537 : 81 2C " ," cmpa #$2C
F539 : 27 18 "' " beq LF553
F53B : BD F5 5D " ]" jsr LF55D
F53E : 81 02 " " cmpa #$02
F540 : 24 10 "$ " bcc LF552
F542 : 36 "6" psha
F543 : DC B7 " " ldd X00B7
F545 : 83 00 50 " P" subd #$0050
F548 : 24 0E "$ " bcc LF558
F54A : DC B7 " " ldd X00B7
F54C : D7 AD " " stab X00AD
F54E : 32 "2" pula
F54F : 16 " " tab
F550 : 39 "9" rts
;
F551 LF551:
F551 : 4F "O" clra
F552 LF552:
F552 : 39 "9" rts
;
F553 LF553:
F553 : 08 " " inx
F554 : 86 01 " " ldaa #$01
F556 LF556:
F556 : 20 BA " " bra LF512
;
F558 LF558:
F558 : 32 "2" pula
F559 : 86 13 " " ldaa #$13
F55B : 20 F9 " " bra LF556
;
F55D LF55D:
F55D : 4F "O" clra
F55E : 5F "_" clrb
F55F : DD B7 " " std X00B7
F561 LF561:
F561 : A6 00 " " ldaa $00,x
F563 : 08 " " inx
F564 : 81 0D " " cmpa #$0D
F566 : 27 E9 "' " beq LF551
F568 : 81 2C " ," cmpa #$2C
F56A : 27 2D "'-" beq LF599
F56C : BD F8 5A " Z" jsr LF85A
F56F : 26 E1 "& " bne LF552
F571 : 3C "<" pshx
F572 : 36 "6" psha
F573 : C6 0A " " ldab #$0A
F575 : 96 B8 " " ldaa X00B8
F577 : 3D "=" mul
F578 : 37 "7" pshb
F579 : 36 "6" psha
F57A : 96 B7 " " ldaa X00B7
F57C : C6 0A " " ldab #$0A
F57E : 3D "=" mul
F57F : 18 " " xgdx
F580 : 33 "3" pulb
F581 : 3A ":" abx
F582 : 18 " " xgdx
F583 : 4D "M" tsta
F584 : 26 0C "& " bne LF592
F586 : 17 " " tba
F587 : 33 "3" pulb
F588 : 18 " " xgdx
F589 : 33 "3" pulb
F58A : 3A ":" abx
F58B : 25 07 "% " bcs LF594
F58D : DF B7 " " stx X00B7
F58F : 38 "8" pulx
F590 : 20 CF " " bra LF561
;
F592 LF592:
F592 : 32 "2" pula
F593 : 33 "3" pulb
F594 LF594:
F594 : 38 "8" pulx
F595 : 86 20 " " ldaa #$20
F597 LF597:
F597 : 20 BD " " bra LF556
;
F599 LF599:
F599 : 86 01 " " ldaa #$01
F59B : 20 FA " " bra LF597
;
F59D LF59D:
F59D : 96 A0 " " ldaa X00A0
F59F : 46 "F" rora
F5A0 : 24 AF "$ " bcc LF551
F5A2 : 7F 00 8D " " clr X008D
F5A5 : CE 00 A1 " " ldx #$00A1
F5A8 LF5A8:
F5A8 : A6 00 " " ldaa $00,x
F5AA : 08 " " inx
F5AB : DF C2 " " stx X00C2
F5AD : 8D 0A " " bsr LF5B9
F5AF : 26 A1 "& " bne LF552
F5B1 : DE C2 " " ldx X00C2
F5B3 : 8C 00 A5 " " cpx #$00A5
F5B6 : 26 F0 "& " bne LF5A8
F5B8 : 39 "9" rts
;
F5B9 LF5B9:
F5B9 : BD F8 3D " =" jsr LF83D
F5BC : 37 "7" pshb
F5BD : 16 " " tab
F5BE : BD F1 7F " " jsr LF17F
F5C1 : 26 04 "& " bne LF5C7
F5C3 : 33 "3" pulb
F5C4 : 7E F1 7F "~ " jmp LF17F
;
F5C7 LF5C7:
F5C7 : 33 "3" pulb
F5C8 : 96 8D " " ldaa X008D
F5CA : 39 "9" rts
;
F5CB LF5CB:
F5CB : 72 FF 86 "r " oim #$FFX0086
F5CE : 7F 00 9E " " clr X009E
F5D1 LF5D1:
F5D1 : BD F1 45 " E" jsr LF145
F5D4 : 27 04 "' " beq LF5DA
F5D6 : 81 E2 " " cmpa #$E2
F5D8 : 26 12 "& " bne LF5EC
F5DA LF5DA:
F5DA : DE A5 " " ldx X00A5
F5DC : E7 00 " " stab $00,x
F5DE : 08 " " inx
F5DF : DF A5 " " stx X00A5
F5E1 : DC A7 " " ldd X00A7
F5E3 : 83 00 01 " " subd #$0001
F5E6 : DD A7 " " std X00A7
F5E8 : 26 E7 "& " bne LF5D1
F5EA : 96 8D " " ldaa X008D
F5EC LF5EC:
F5EC : 16 " " tab
F5ED : 39 "9" rts
;
F5EE LF5EE:
F5EE : 86 0A " " ldaa #$0A
F5F0 : 97 C7 " " staa X00C7
F5F2 LF5F2:
F5F2 : 8D 21 " !" bsr LF615
F5F4 : 26 17 "& " bne LF60D
F5F6 : DC C0 " " ldd X00C0