Code: Select all
RDBYT
BIT DISK ; TEST FOR INDEX PULSE
BPL RDBYT2
LDA DISK+$10
LSR A
BCC RDBYT
LDA DISK+$11 ; READ BYTE
CLC
RTS
RDBYT2
LDA #FILLCH
SEC
RTS
Code: Select all
RDBYT
BIT DISK ; TEST FOR INDEX PULSE
BPL RDBYT2
@1
LDA DISK+$10
LSR A
BCC @1
LDA DISK+$11 ; READ BYTE
CLC
RTS
RDBYT2
LDA #FILLCH
SEC
RTS
/Jeff