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

inline void new_line() {
    putchar(13)
}