     $CDBD/52669:   B-P block pointer

    CDBD: 20 D2 CD  JSR $CDD2       ; open channel, get buffer number
    CDC0: A5 F9     LDA $F9         ; buffer number
    CDC2: 0A        ASL             ; * 2
    CDC3: AA        TAX             ; as index
    CDC4: AD 86 02  LDA $0286       ; pointer value
    CDC7: 95 99     STA $99,X       ; save as buffer pointer
    CDC9: 20 2F D1  JSR $D12F       ; prepare a byte in buffer
    CDCC: 20 EE D3  JSR $D3EE       ; for output
    CDCF: 4C 94 C1  JMP $C194       ; done

        Previous Page / Next Page