$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