noinline asm void putchar(byte register(a) character) {
    clr <$6f
    jsr [$a002]
    rts
}