     $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