$F011/61457:   ?

Jump from $EFCF, $F130, $F1C4, $F1DF, $F1FA:

F011: A5 6F     LDA $6F
F013: 48        PHA
F014: A5 70     LDA $70
F016: 48        PHA
F017: A6 7F     LDX $7F         ; drive number
F019: B5 FF     LDA $FF,X
F01B: F0 05     BEQ $F022       ; drive zero?
F01D: A9 74     LDA #$74
F01F: 20 48 E6  JSR $E648       ; 'drive not ready'

Jump from $F01B:

F022: 20 0F F1  JSR $F10F       ; get buffer number for BAM
F025: 85 6F     STA $6F
F027: 8A        TXA
F028: 0A        ASL
F029: 85 70     STA $70
F02B: AA        TAX
F02C: A5 80     LDA $80         ; track
F02E: DD 9D 02  CMP $029D,X
F031: F0 0B     BEQ $F03E
F033: E8        INX
F034: 86 70     STX $70
F036: DD 9D 02  CMP $029D,X
F039: F0 03     BEQ $F03E
F03B: 20 5B F0  JSR $F05B

Jump from $F031, $F039:

F03E: A5 70     LDA $70
F040: A6 7F     LDX $7F         ; drive number
F042: 9D 9B 02  STA $029B,X
F045: 0A        ASL
F046: 0A        ASL             ; times 4
F047: 18        CLC
F048: 69 A1     ADC #$A1
F04A: 85 6D     STA $6D
F04C: A9 02     LDA #$02
F04E: 69 00     ADC #$00
F050: 85 6E     STA $6E
F052: A0 00     LDY #$00
F054: 68        PLA
F055: 85 70     STA $70
F057: 68        PLA
F058: 85 6F     STA $6F
F05A: 60        RTS

    Previous Page / Next Page