$EFCF/61391:   Erase bit for sector in BAM entry

Jump from $EF5F, $EF93:

EFCF: 20 11 F0  JSR $F011       ; find BAM field for this track
EFD2: 98        TYA
EFD3: 85 6F     STA $6F

Jump from $F214:

EFD5: A5 81     LDA $81         ; sector
EFD7: 4A        LSR
EFD8: 4A        LSR             ; divide by 8
EFD9: 4A        LSR
EFDA: 38        SEC
EFDB: 65 6F     ADC $6F
EFDD: A8        TAY             ; byte number in BAM entry
EFDE: A5 81     LDA $81         ; sector number
EFE0: 29 07     AND #$07
EFE2: AA        TAX             ; bit number in BAM entry
EFE3: B1 6D     LDA ($6D),Y     ; byte in BAM
EFE5: 3D E9 EF  AND $EFE9,X     ; erase bit for corresponding sector
EFE8: 60        RTS

    Previous Page / Next Page