     $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