forked from steve-chamberlin/fpga-disk-controller
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathdisasm.asm
More file actions
1749 lines (1517 loc) · 30 KB
/
disasm.asm
File metadata and controls
1749 lines (1517 loc) · 30 KB
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
L0000 = $0000
L0001 = $0001
L0002 = $0002
L0003 = $0003
L0024 = $0024
L0025 = $0025
L0040 = $0040
L0041 = $0041
L0042 = $0042
L0043 = $0043
L0044 = $0044
L0045 = $0045
L0046 = $0046
L0047 = $0047
L0048 = $0048
L0049 = $0049
L004B = $004B
L004C = $004C
L004D = $004D
L004E = $004E
L004F = $004F
L0050 = $0050
L0051 = $0051
L0052 = $0052
L0053 = $0053
L0054 = $0054
L0055 = $0055
L0056 = $0056
L0057 = $0057
L0058 = $0058
L0059 = $0059
L005A = $005A
L005B = $005B
L0083 = $0083
L00A0 = $00A0
L00B9 = $00B9
L00C2 = $00C2
L00C4 = $00C4
L00C5 = $00C5
L00C9 = $00C9
L00F0 = $00F0
L00F2 = $00F2
L0478 = $0478
L04F8 = $04F8
L0578 = $0578
L05F8 = $05F8
L0678 = $0678
L06F8 = $06F8
L0778 = $0778
L07F8 = $07F8
L0800 = $0800
L0801 = $0801
LA0C5 = $A0C5
LA0CF = $A0CF
LAEE3 = $AEE3
LD4CF = $D4CF
LE000 = $E000
LF5F0 = $F5F0
LFABA = $FABA
LFC22 = $FC22
LFDED = $FDED
LFE89 = $FE89
LFE93 = $FE93
.org $C700
LDX #$20
LDX #$00
LDX #$03
CMP #$00
BCS LC714
SEC
BCS LC70E
CLC
.LC70E
LDX #$07
ROR L0478,X
CLC
.LC714
LDX #$C7
STX L07F8
LDX #$07
LDA LCFFF
JMP LCBE1
LDY #$00
LDA L004B
PHA
BNE LC72B
JMP LC7B8
.LC72B
LDA LC0FC
BPL LC72B
STA L0059
LSR A
LSR A
LSR A
AND #$0F
TAX
LDA L0059
AND #$07
STA L0059
.LC73E
LDA LC0FC
BPL LC73E
EOR LCA27,X
STA (L0056),Y
EOR L0040
STA L0040
INY
BNE LC751
INC L0057
.LC751
LDA LC0FC
BPL LC751
EOR LCA37,X
STA (L0056),Y
EOR L0040
STA L0040
INY
.LC760
LDA LC0FC
BPL LC760
EOR LCA47,X
STA (L0056),Y
EOR L0040
STA L0040
INY
.LC76F
LDA LC0FC
BPL LC76F
EOR LCA57,X
STA (L0056),Y
EOR L0040
STA L0040
INY
BNE LC782
INC L0057
.LC782
LDX L0059
.LC784
LDA LC0FC
BPL LC784
EOR LCA37,X
STA (L0056),Y
EOR L0040
STA L0040
INY
.LC793
LDA LC0FC
BPL LC793
EOR LCA47,X
STA (L0056),Y
EOR L0040
STA L0040
INY
.LC7A2
LDA LC0FC
BPL LC7A2
EOR LCA57,X
STA (L0056),Y
EOR L0040
STA L0040
INY
DEC L004B
BEQ LC7B8
JMP LC72B
.LC7B8
LDA LC0FC
BPL LC7B8
STA L0059
PLA
STA L004B
.LC7C2
LDA LC0FC
BPL LC7C2
SEC
ROL A
AND L0059
EOR L0040
.LC7CD
LDY LC0FC
BPL LC7CD
CPY #$C8
BNE LC7F2
LDX L004C
BEQ LC7E2
LDY #$00
.LC7DC
EOR (L0054),Y
INY
DEX
BNE LC7DC
.LC7E2
TAX
BNE LC7F6
LDA LC0FD
.LC7E8
LDA LC0FE
BMI LC7E8
LDA LC0F0
CLC
RTS
.LC7F2
LDA #$20
BNE LC7F8
.LC7F6
LDA #$10
.LC7F8
SEC
RTS
; PC=C7FA INVALID opcode FF
BRK
BRK
BRK
; PC=C7FE INVALID opcode BF
ASL A
.LC800
JSR LCAEE
JSR LCA05
LDY #$07
JSR LCBA9
LDA LC08B,X
LDA LC089,X
LDY #$32
.LC813
LDA LC08E,X
BMI LC81F
DEY
BNE LC813
SEC
JMP LC949
.LC81F
LDA LC081,X
LDY #$05
LDA #$FF
STA LC08F,X
.LC829
LDA LC950,Y
.LC82C
ASL LC08C,X
BCC LC82C
STA LC08D,X
DEY
BPL LC829
LDA L005A
ORA #$80
JSR LC9D8
JSR LC9D6
LDA L005B
JSR LC9D8
JSR LC9D6
JSR LC9D6
LDA L004C
ORA #$80
JSR LC9D8
LDA L004B
ORA #$80
JSR LC9D8
LDA L004C
BEQ LC873
LDY #$FF
LDA L0059
.LC862
ASL LC08C,X
BCC LC862
STA LC08D,X
INY
LDA (L0054),Y
ORA #$80
CPY L004C
BCC LC862
.LC873
LDA L004B
BNE LC87A
JMP LC913
.LC87A
NOP
LDY #$00
.LC87D
LDA L0041
STA LC08D,X
LDA L004D
ORA #$80
STY L0059
.LC888
LDY LC08C,X
BPL LC888
STA LC08D,X
LDY L0059
LDA (L0056),Y
STA L004D
ASL A
ROL L0041
INY
BNE LC8A1
INC L0057
JMP LC8A3
.LC8A1
PHA
PLA
.LC8A3
LDA #$02
ORA L0041
STA L0041
LDA L004E
ORA #$80
STA LC08D,X
LDA (L0056),Y
STA L004E
ASL A
ROL L0041
INY
LDA L004F
ORA #$80
STA LC08D,X
LDA (L0056),Y
STA L004F
ASL A
ROL L0041
INY
LDA L0050
ORA #$80
STA LC08D,X
LDA (L0056),Y
STA L0050
ASL A
ROL L0041
INY
BNE LC8DD
INC L0057
JMP LC8DF
.LC8DD
PHA
PLA
.LC8DF
LDA L0051
ORA #$80
STA LC08D,X
LDA (L0056),Y
STA L0051
ASL A
ROL L0041
INY
LDA L0052
ORA #$80
STA LC08D,X
LDA (L0056),Y
STA L0052
ASL A
ROL L0041
INY
LDA L0053
ORA #$80
STA LC08D,X
LDA (L0056),Y
STA L0053
ASL A
ROL L0041
INY
DEC L004B
BEQ LC913
JMP LC87D
.LC913
LDA L0040
ORA #$AA
.LC917
LDY LC08C,X
BPL LC917
STA LC08D,X
LDA L0040
LSR A
ORA #$AA
JSR LC9D8
LDA #$C8
JSR LC9D8
.LC92C
LDA LC08C,X
AND #$40
BNE LC92C
STA LC08D,X
LDY #$0A
.LC938
DEY
BNE LC943
LDA #$01
.LC93D
JSR LCA1F
SEC
BCS LC949
.LC943
LDA LC08E,X
BMI LC938
CLC
.LC949
LDA LC080,X
LDA LC08C,X
RTS
.LC950
; PC=C950 INVALID opcode C3
; PC=C951 INVALID opcode FF
; PC=C952 INVALID opcode FC
; PC=C953 INVALID opcode F3
; PC=C954 INVALID opcode CF
; PC=C955 INVALID opcode 3F
JSR LC95B
NOP
NOP
.LC95B
NOP
RTS
.LC95D
JMP LC93D
.LC960
LDA #$00
STA L0040
LDA L0054
STA L0056
LDA L0055
STA L0057
LDA #$21
STA L0052
LDA L0058
CLC
ADC #$C0
STA L0053
JSR LCA05
LDA LC08D,X
.LC97D
LDA LC08E,X
BPL LC97D
LDA LC081,X
LDY #$1E
.LC987
LDA LC08C,X
BPL LC987
DEY
BMI LC95D
CMP #$C3
BNE LC987
LDY #$06
.LC995
LDA LC08C,X
BPL LC995
AND #$7F
STA L004B,Y
EOR #$80
EOR L0040
STA L0040
DEY
BPL LC995
LDA L004C
BEQ LC9D3
CLC
EOR L0054
STA L0056
LDA L0055
ADC #$00
STA L0057
LDY #$00
.LC9B9
LDA LC08C,X
BPL LC9B9
ASL A
STA L0041
.LC9C1
LDA LC08C,X
BPL LC9C1
ASL L0041
BCS LC9CC
EOR #$80
.LC9CC
STA (L0054),Y
INY
CPY L004C
BCC LC9C1
.LC9D3
JMP (L0052)
.LC9D6
LDA #$80
.LC9D8
LDY LC08C,X
BPL LC9D8
STA LC08D,X
EOR L0040
STA L0040
RTS
.LC9E5
JSR LCA0F
LDA LC081,X
LDA LC085,X
LDY #$50
JSR LC9F8
JSR LCA0F
LDY #$0A
.LC9F8
JSR LC9FF
DEY
BNE LC9F8
RTS
.LC9FF
LDX #$C8
.LCA01
DEX
BNE LCA01
RTS
.LCA05
JSR LCA1F
LDA LC083,X
LDA LC087,X
RTS
.LCA0F
JSR LCA1F
LDA LC080,X
LDA LC082,X
LDA LC084,X
LDA LC086,X
RTS
.LCA1F
LDA L0058
ASL A
ASL A
ASL A
ASL A
TAX
RTS
.LCA27
; PC=CA27 INVALID opcode 80
; PC=CA28 INVALID opcode 80
; PC=CA29 INVALID opcode 80
; PC=CA2A INVALID opcode 80
; PC=CA2B INVALID opcode 80
; PC=CA2C INVALID opcode 80
; PC=CA2D INVALID opcode 80
; PC=CA2E INVALID opcode 80
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
.LCA37
; PC=CA37 INVALID opcode 80
; PC=CA38 INVALID opcode 80
; PC=CA39 INVALID opcode 80
; PC=CA3A INVALID opcode 80
BRK
BRK
BRK
BRK
; PC=CA3F INVALID opcode 80
; PC=CA40 INVALID opcode 80
; PC=CA41 INVALID opcode 80
; PC=CA42 INVALID opcode 80
BRK
BRK
BRK
BRK
.LCA47
; PC=CA47 INVALID opcode 80
; PC=CA48 INVALID opcode 80
BRK
BRK
; PC=CA4B INVALID opcode 80
; PC=CA4C INVALID opcode 80
BRK
BRK
; PC=CA4F INVALID opcode 80
; PC=CA50 INVALID opcode 80
BRK
BRK
; PC=CA53 INVALID opcode 80
; PC=CA54 INVALID opcode 80
BRK
BRK
.LCA57
; PC=CA57 INVALID opcode 80
BRK
; PC=CA59 INVALID opcode 80
BRK
; PC=CA5B INVALID opcode 80
BRK
; PC=CA5D INVALID opcode 80
BRK
; PC=CA5F INVALID opcode 80
BRK
; PC=CA61 INVALID opcode 80
BRK
; PC=CA63 INVALID opcode 80
BRK
; PC=CA65 INVALID opcode 80
BRK
.LCA67
LDA #$05
LDY #$00
JSR LCA8A
BCC LCA75
LDA #$80
JSR LCDED
.LCA75
RTS
.LCA76
JSR LCA8A
BCC LCA75
LDA #$80
JSR LCDED
LDA L06F8
STA L004D
LDA L0778
STA L004E
.LCA8A
LDA #$B8
LDY #$0B
LDX L0058
STA L04F8,X
TYA
STA L0578,X
.LCA97
LDA L004D
STA L06F8
LDA L004E
STA L0778
JSR LC800
LDA L06F8
STA L004D
LDA L0778
STA L004E
BCC LCABC
LDX L0058
DEC L04F8,X
BNE LCA97
DEC L0578,X
BPL LCA97
.LCABC
RTS
.LCABD
LDY L0058
LDA #$05
STA L04F8,Y
.LCAC4
JSR LC960
BCC LCAD8
LDY #$01
JSR LC9F8
JSR LC93D
LDX L0058
DEC L04F8,X
BNE LCAC4
.LCAD8
RTS
.LCAD9
BRK
BIT L0049
.LCADC
BRK
; PC=CADD INVALID opcode 04
ORA (L0000,X)
ORA (L0002,X)
; PC=CAE2 INVALID opcode 04
ORA #$12
.LCAE5
BRK
ORA (L0002,X)
; PC=CAE8 INVALID opcode 04
ORA (L0002,X)
.LCAEB
BRK
; PC=CAEC INVALID opcode 7F
; PC=CAED INVALID opcode FF
.LCAEE
LDX L004E
BEQ LCB05
LDA L0055
STA L0057
LDA #$80
CPX #$01
BEQ LCB00
INC L0057
LDA #$00
.LCB00
CLC
EOR L0054
STA L0056
.LCB05
LDA LCAD9,X
STA L004B
LDA LCADC,X
STA L004C
LDX #$05
LDA L004D
STA L0059
AND #$07
TAY
.LCB18
ASL L0059
BCC LCB31
LDA LCAE5,X
.LCB1F
CLC
EOR L004C
CMP #$07
BCC LCB28
SBC #$07
.LCB28
STA L004C
LDA LCADF,X
EOR L004B
STA L004B
.LCB31
DEX
BMI LCB3A
BNE LCB18
TYA
JMP LCB1F
.LCB3A
LDA L0055
PHA
LDA #$00
LDX L004E
BEQ LCB59
LDY LCAEB,X
.LCB46
EOR (L0054),Y
EOR (L0056),Y
DEY
BNE LCB46
EOR (L0054),Y
EOR (L0056),Y
CPX #$01
BEQ LCB57
INC L0055
.LCB57
INC L0055
.LCB59
LDY L004D
BEQ LCB66
EOR (L0054),Y
.LCB5F
EOR (L0054),Y
DEY
BNE LCB5F
EOR (L0054),Y
.LCB66
STA L0040
PLA
STA L0055
LDY L004C
DEY
LDA #$00
STA L0059
.LCB72
LDA (L0054),Y
ASL A
ROR L0059
DEY
BPL LCB72
SEC
ROR L0059
LDA L004C
CLC
EOR L0054
STA L0056
LDA L0055
ADC #$00
STA L0057
LDY #$06
.LCB8C
SEC
LDA (L0056),Y
STA L004D,Y
BMI LCB95
CLC
.LCB95
ROR L0041
DEY
BPL LCB8C
SEC
ROR L0041
LDA L0056
CLC
ADC #$07
STA L0056
BCC LCBA8
INC L0057
.LCBA8
RTS
.LCBA9
LDA LC088,X
LDA LC08D,X
JMP LCBB6
.LCBB2
TYA
STA LC08F,X
.LCBB6
TYA
EOR LC08E,X
AND #$1F
BNE LCBB2
RTS
.LCBBF
LDA L004B
TAY
LDX #$00
STX L004B
LDX #$03
.LCBC8
ASL A
ROL L004B
DEX
BNE LCBC8
CLC
EOR L004C
BCC LCBD5
INC L004B
.LCBD5
STY L004C
SEC
SBC L004C
BCS LCBDE
DEC L004B
.LCBDE
LDY L004B
RTS
.LCBE1
BCC LCBE6
JMP LCE59
.LCBE6
CLD
TXA
TAY
LDA L0478,Y
BMI LCBFF
PLA
STA L05F8,Y
CLC
ADC #$03
TAX
PLA
STA L0678,Y
ADC #$00
PHA
TXA
PHA
.LCBFF
PHP
SEI
LDX #$1B
.LCC03
LDA L0040,X
PHA
DEX
BPL LCC03
STY L0058
LDA L06F8,Y
CMP #$A5
BNE LCC19
EOR #$FF
EOR L0778,Y