2023-07-09 20:59:05 +00:00
|
|
|
; Micro-SCI Floppy Drive Controller info disassembly
|
|
|
|
|
|
2023-07-16 02:28:35 +00:00
|
|
|
PRINTVEC := $08
|
|
|
|
|
PRBL2 := $F94A
|
|
|
|
|
HOME := $FC58
|
|
|
|
|
COUT := $FDED
|
2023-07-09 20:59:05 +00:00
|
|
|
|
2023-07-16 02:28:35 +00:00
|
|
|
.org $c600
|
2023-07-09 20:59:05 +00:00
|
|
|
|
|
|
|
|
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
|
2023-07-16 02:28:35 +00:00
|
|
|
LC617: lda (PRINTVEC),y
|
|
|
|
|
LC619: bmi doit
|
2023-07-09 20:59:05 +00:00
|
|
|
tax
|
|
|
|
|
jsr PRBL2
|
|
|
|
|
beq loop1
|
2023-07-16 02:28:35 +00:00
|
|
|
doit: jsr COUT
|
|
|
|
|
loop1: iny
|
2023-07-09 20:59:05 +00:00
|
|
|
bne LC617
|
2023-07-16 02:28:35 +00:00
|
|
|
LC627: beq LC627
|
2023-07-09 20:59:05 +00:00
|
|
|
|
2023-07-16 02:28:35 +00:00
|
|
|
info: .byte $8d, $bc, $ad, $ad, $cb, $c5, $d9, $c2
|
2023-07-09 20:59:05 +00:00
|
|
|
.byte $cf, $c1, $d2, $c4
|
|
|
|
|
|
2023-07-16 02:28:35 +00:00
|
|
|
.ifdef MICROSCI
|
2023-07-09 20:59:05 +00:00
|
|
|
; 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
|
2023-07-16 02:28:35 +00:00
|
|
|
.else
|
2023-07-09 20:59:05 +00:00
|
|
|
; 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
|
2023-07-16 02:28:35 +00:00
|
|
|
.endif
|
2023-07-09 20:59:05 +00:00
|
|
|
.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
|
