$D48D/54413:   Write dir block

Jump from $D730:

D48D: 20 3B DE  JSR $DE3B       ; get track and sector number
D490: A9 01     LDA #$01
D492: 85 6F     STA $6F         ; a block
D494: A5 69     LDA $69         ; save step width 10 for block
D496: 48        PHA             ; allocation
D497: A9 03     LDA #$03
D499: 85 69     STA $69
D49B: 20 2D F1  JSR $F12D       ; find free block in BAM
D49E: 68        PLA
D49F: 85 69     STA $69         ; get step width back
D4A1: A9 00     LDA #$00
D4A3: 20 C8 D4  JSR $D4C8       ; buffer pointer to zero
D4A6: A5 80     LDA $80
D4A8: 20 F1 CF  JSR $CFF1       ; track number in buffer
D4AB: A5 81     LDA $81
D4AD: 20 F1 CF  JSR $CFF1       ; sector number in buffer
D4B0: 20 C7 D0  JSR $D0C7       ; write block to disk
D4B3: 20 99 D5  JSR $D599       ; and verify
D4B6: A9 00     LDA #$00
D4B8: 20 C8 D4  JSR $D4C8       ; buffer pointer to zero

Jump from $D4BE:

D4BB: 20 F1 CF  JSR $CFF1       ; fill buffer with zeroes
D4BE: D0 FB     BNE $D4BB
D4C0: 20 F1 CF  JSR $CFF1       ; zero as following track
D4C3: A9 FF     LDA #$FF
D4C5: 4C F1 CF  JMP $CFF1       ; $FF as number of bytes

    Previous Page / Next Page