noinline asm byte readkey() {
    clr $6f
    jsr [$A000]
    beq readkey
    tfr a,b
    rts
}