$D19D/53661:   Write byte in buffer and block

Jump from $CFC6:

D19D: 20 F1 CF  JSR $CFF1       ; byte in buffer
D1A0: F0 01     BEQ $D1A3       ; buffer full?
D1A2: 60        RTS

Jump from $D1A0, $DA3D:

D1A3: 20 D3 D1  JSR $D1D3       ; get drive number
D1A6: 20 1E F1  JSR $F11E       ; find free block in BAM
D1A9: A9 00     LDA #$00
D1AB: 20 C8 D4  JSR $D4C8       ; buffer pointer to zero
D1AE: A5 80     LDA $80
D1B0: 20 F1 CF  JSR $CFF1       ; track number as first byte
D1B3: A5 81     LDA $81
D1B5: 20 F1 CF  JSR $CFF1       ; sector number as second byte
D1B8: 20 C7 D0  JSR $D0C7       ; write block
D1BB: 20 1E CF  JSR $CF1E       ; change buffer
D1BE: 20 D0 D6  JSR $D6D0       ; parameter to disk controller
D1C1: A9 02     LDA #$02
D1C3: 4C C8 D4  JMP $D4C8       ; buffer pointer to 2

    Previous Page / Next Page