     $CD73/52595:   B-W block write

    CD73: 20 F2 CD  JSR $CDF2       ; open channel
    CD76: 20 E8 D4  JSR $D4E8       ; set buffer pointer
    CD79: A8        TAY
    CD7A: 88        DEY
    CD7B: C9 02     CMP #$02        ; buffer pointer lo less than 2?
    CD7D: B0 02     BCS $CD81       ; no
    CD7F: A0 01     LDY #$01

    Jump from $CD7D:

    CD81: A9 00     LDA #$00
    CD83: 20 C8 D4  JSR $D4C8       ; buffer pointer to zero
    CD86: 98        TYA
    CD87: 20 F1 CF  JSR $CFF1       ; write byte in buffer
    CD8A: 8A        TXA
    CD8B: 48        PHA
    CD8C: 20 64 D4  JSR $D464       ; write block to disk
    CD8F: 68        PLA
    CD90: AA        TAX
    CD91: 20 EE D3  JSR $D3EE       ; get byte from buffer
    CD94: 4C 94 C1  JMP $C194       ; done, error message

        Previous Page / Next Page