; Micro-SCI Floppy Drive Controller info disassembly

PRINTVEC	:= $08
PRBL2		:= $F94A
HOME		:= $FC58
COUT		:= $FDED

.org $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 MICROSCI
; 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