     $C87D/51325:   Erase file

    Jump from $C852, $C868, $DC1B:

    C87D: 20 5F EF  JSR $EF5F       ; free block in BAM
    C880: 20 75 D4  JSR $D475
    C883: 20 19 F1  JSR $F119       ; get buffer number in BAM
    C886: B5 A7     LDA $A7,X
    C888: C9 FF     CMP #$FF
    C88A: F0 08     BEQ $C894
    C88C: AD F9 02  LDA $02F9
    C88F: 09 40     ORA #$40
    C891: 8D F9 02  STA $02F9

    Jump from $C88A, $C8B3:

    C894: A9 00     LDA #$00
    C896: 20 C8 D4  JSR $D4C8       ; buffer pointer to zero
    C899: 20 56 D1  JSR $D156       ; get track
    C89C: 85 80     STA $80
    C89E: 20 56 D1  JSR $D156       ; get sector
    C8A1: 85 81     STA $81
    C8A3: A5 80     LDA $80         ; track number
    C8A5: D0 06     BNE $C8AD       ; not equal to zero
    C8A7: 20 F4 EE  JSR $EEF4       ; write BAM
    C8AA: 4C 27 D2  JMP $D227       ; close channel

    Jump from $C8A5:

    C8AD: 20 5F EF  JSR $EF5F       ; free block in BAM
    C8B0: 20 4D D4  JSR $D44D       ; read next block
    C8B3: 4C 94 C8  JMP $C894       ; and continue

        Previous Page / Next Page