$C63D/50749:   Test and initalise drive

C63D: A5 68     LDA $68
C63F: D0 28     BNE $C669
C641: A6 7F     LDX $7F
C643: 56 1C     LSR $1C,X
C645: 90 22     BCC $C669
C647: A9 FF     LDA #$FF
C649: 8D 98 02  STA $0298
C64C: 20 0E D0  JSR $D00E
C64F: A0 FF     LDY #$FF
C651: C9 02     CMP #$02
C653: F0 0A     BEQ $C65F
C655: C9 03     CMP #$03
C657: F0 06     BEQ $C65F
C659: C9 0F     CMP #$0F
C65B: F0 02     BEQ $C65F
C65D: A0 00     LDY #$00
C65F: A6 7F     LDX $7F
C661: 98        TYA
C662: 95 FF     STA $FF,X
C664: D0 03     BNE $C669
C666: 20 42 D0  JSR $D042
C669: A6 7F     LDX $7F
C66B: B5 FF     LDA $FF,X
C66D: 60        RTS

    Previous Page / Next Page