millfork/include/a8_kernel.mfk

asm void putchar(byte a) {
    tax
    lda $347
    pha
    lda $346
    pha
    txa
    rts
}