     $EDE5/60901:   Allocate file blocks in BAM

    Jump from $EDA5, $EDC8, $EDD1:

    EDE5: 20 5F D5  JSR $D55F       ; check track and sector number
    EDE8: 20 90 EF  JSR $EF90       ; allocate block in BAM
    EDEB: 20 75 D4  JSR $D475       ; read next block

    Jump from $EE0A:

    EDEE: A9 00     LDA #$00
    EDF0: 20 C8 D4  JSR $D4C8       ; buffer pointer zero
    EDF3: 20 37 D1  JSR $D137       ; get byte from buffer
    EDF6: 85 80     STA $80         ; track
    EDF8: 20 37 D1  JSR $D137       ; get byte from buffer
    EDFB: 85 81     STA $81         ; sector
    EDFD: A5 80     LDA $80         ; another block?
    EDFF: D0 03     BNE $EE04       ; yes
    EE01: 4C 27 D2  JMP $D227       ; close channel

    Jump from $EDFF:

    EE04: 20 90 EF  JSR $EF90       ; allocate block in BAM
    EE07: 20 4D D4  JSR $D44D       ; read next block
    EE0A: 4C EE ED  JMP $EDEE       ; continue

        Previous Page / Next Page