$EDB3/60851:   ?

Jump from $EDDD:

EDB3: C8        INY
EDB4: B1 94     LDA ($94),Y     ; save track
EDB6: 48        PHA
EDB7: C8        INY
EDB8: B1 94     LDA ($94),Y     ; and sector
EDBA: 48        PHA
EDBB: A0 13     LDY #$13        ; pointer to side-sector block
EDBD: B1 94     LDA ($94),Y
EDBF: F0 0A     BEQ $EDCB       ; no track following?
EDC1: 85 80     STA $80         ; track and
EDC3: C8        INY
EDC4: B1 94     LDA ($94),Y
EDC6: 85 81     STA $81         ; sector of 1st side-sector block
EDC8: 20 E5 ED  JSR $EDE5       ; mark side-sector block as

Jump from $EDBF:

EDCB: 68        PLA             ; allocated
EDCC: 85 81     STA $81
EDCE: 68        PLA             ; get track and sector back
EDCF: 85 80     STA $80
EDD1: 20 E5 ED  JSR $EDE5       ; mark blocks of file as allocated

Jump from $EDE2:

EDD4: 20 04 C6  JSR $C604       ; read next entry in directory
EDD7: F0 C3     BEQ $ED9C       ; end of directory?

Jump from $ED9A:

EDD9: A0 00     LDY #$00
EDDB: B1 94     LDA ($94),Y     ; file type
EDDD: 30 D4     BMI $EDB3       ; bit 7 set, file closed?
EDDF: 20 B6 C8  JSR $C8B6       ; file type to zero and write BAM
EDE2: 4C D4 ED  JMP $EDD4

    Previous Page / Next Page