millfork/include/coco/keyboard.mfk

mirror of https://github.com/KarolS/millfork.git synced 2024-07-05 09:28:54 +00:00

noinline asm byte readkey() {
    clr $6f
    jsr [$A000]
    beq readkey
    tfr a,b
    rts
}
Preliminary CoCo support 2020-07-30 23:58:40 +00:00
			`noinline asm byte readkey() {`
CoCo: Improvements 2020-07-31 11:29:13 +00:00			`clr $6f`
Preliminary CoCo support 2020-07-30 23:58:40 +00:00			`jsr [$A000]`
CoCo: Improvements 2020-07-31 11:29:13 +00:00			`beq readkey`
			`tfr a,b`
Preliminary CoCo support 2020-07-30 23:58:40 +00:00			`rts`
			`}`