     $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