mirror of
https://codeberg.org/cryu/micro-sci-a2-controller
synced 2024-11-25 05:34:42 +00:00
98 lines
2.9 KiB
ArmAsm
98 lines
2.9 KiB
ArmAsm
|
; Micro-SCI Floppy Drive Controller info disassembly
|
||
|
|
|
||
|
|
PRINTVEC = $08
|
||
|
|
PRBL2 = $F94A
|
||
|
|
HOME = $FC58
|
||
|
|
COUT = $FDED
|
||
|
|
|
||
|
|
* = $c600
|
||
|
|
|
||
|
|
ldx #$20 ; controller signature
|
||
|
|
ldy #$00
|
||
|
|
ldx #$03
|
||
|
|
stx $3C
|
||
|
|
|
||
|
|
jsr HOME ; clear display, home cursor
|
||
|
|
tsx
|
||
|
|
lda $0100,x ; current address (#$c6 for slot 6)
|
||
|
|
sta PRINTVEC+1
|
||
|
|
lda #0
|
||
|
|
sta PRINTVEC
|
||
|
|
ldy #<info ; offset of data begin
|
||
|
|
LC617 lda (PRINTVEC),y
|
||
|
|
LC619 bmi doit
|
||
|
|
tax
|
||
|
|
jsr PRBL2
|
||
|
|
beq loop1
|
||
|
|
doit jsr COUT
|
||
|
|
loop1 iny
|
||
|
|
bne LC617
|
||
|
|
LC627 beq LC627
|
||
|
|
|
||
|
|
info .byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
|
||
|
|
.byte $cf, $c1, $d2, $c4
|
||
|
|
|
||
|
|
#ifdef USCI
|
||
|
|
; ROM checksum 5ddcbbf1
|
||
|
|
; <--KEYBOARD U-SCI REAR-->
|
||
|
|
;
|
||
|
|
; ---------JUMPER--------
|
||
|
|
; ! ! !
|
||
|
|
; V V V
|
||
|
|
;
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; XXXXXXX XXXXXXX XXXXXXX
|
||
|
|
; 3.2 INFO 3.3&PASCAL
|
||
|
|
|
||
|
|
.byte $08, $d5, $ad, $d3
|
||
|
|
.byte $c3, $c9, $08, $d2, $c5, $c1, $d2, $ad
|
||
|
|
.byte $ad, $be, $8d, $8d, $08, $ad, $ad, $ad
|
||
|
|
.byte $ad, $ad, $ad, $ad, $ad, $ad, $ca, $d5
|
||
|
|
.byte $cd, $d0, $c5, $d2, $ad, $ad
|
||
|
|
#else
|
||
|
|
; ROM checksum 5dfc32ca
|
||
|
|
; <--KEYBOARD ACE 1000 REAR-->
|
||
|
|
;
|
||
|
|
; ------JUMPER------
|
||
|
|
; ! ! !
|
||
|
|
; V V V
|
||
|
|
;
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; ### ! ! ! ### ! ! ! ###
|
||
|
|
; XXXXXXX XXXXXXX XXXXXXX
|
||
|
|
; 3.2 INFO 3.3&PASCAL
|
||
|
|
|
||
|
|
.byte $06, $c1, $c3, $c5
|
||
|
|
.byte $a0, $b1, $b0, $b0, $b0, $06, $d2, $c5
|
||
|
|
.byte $c1, $d2, $ad, $ad, $be, $8d, $8d, $07
|
||
|
|
.byte $a0, $02, $ad, $ad, $ad, $ad, $ad, $ad
|
||
|
|
.byte $ca, $d5, $cd, $d0, $c5, $d2
|
||
|
|
#endif
|
||
|
|
.byte $ad, $ad
|
||
|
|
.byte $ad, $ad, $ad, $ad, $8d, $07, $a1, $0b
|
||
|
|
.byte $a1, $0b, $a1, $8d, $07, $d6, $0b, $d6
|
||
|
|
.byte $0b, $d6, $8d, $8d, $06, $a3, $a3, $a3
|
||
|
|
.byte $a0, $a1, $a0, $a1, $03, $a1, $a0, $a3
|
||
|
|
.byte $a3, $a3, $a0, $a1, $03, $a1, $a0, $a1
|
||
|
|
.byte $a0, $a3, $a3, $a3, $8d, $06, $a3, $a3
|
||
|
|
.byte $a3, $a0, $a1, $a0, $a1, $03, $a1, $a0
|
||
|
|
.byte $a3, $a3, $a3, $a0, $a1, $03, $a1, $a0
|
||
|
|
.byte $a1, $a0, $a3, $a3, $a3, $8d, $06, $a3
|
||
|
|
.byte $a3, $a3, $a0, $a1, $a0, $a1, $03, $a1
|
||
|
|
.byte $a0, $a3, $a3, $a3, $a0, $a1, $03, $a1
|
||
|
|
.byte $a0, $a1, $a0, $a3, $a3, $a3, $8d, $06
|
||
|
|
.byte $a3, $a3, $a3, $a0, $a1, $a0, $a1, $03
|
||
|
|
.byte $a1, $a0, $a3, $a3, $a3, $a0, $a1, $03
|
||
|
|
.byte $a1, $a0, $a1, $a0, $a3, $a3, $a3, $8d
|
||
|
|
.byte $06, $d8, $d8, $d8, $d8, $d8, $d8, $d8
|
||
|
|
.byte $03, $d8, $d8, $d8, $d8, $d8, $d8, $d8
|
||
|
|
.byte $03, $d8, $d8, $d8, $d8, $d8, $d8, $d8
|
||
|
|
.byte $8d, $08, $b3, $ae, $b2, $06, $c9, $ce
|
||
|
|
.byte $c6, $cf, $04, $b3, $ae, $b3, $a6, $d0
|
||
|
|
.byte $c1, $d3, $c3, $c1, $cc, $8d, $8d
|