$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