mirror of
https://github.com/cc65/cc65.git
synced 2025-02-04 13:32:54 +00:00
telestrat : cgetc add for conio
This commit is contained in:
parent
95a88a787d
commit
a1c8860f63
15
libsrc/telestrat/cgetc.s
Normal file
15
libsrc/telestrat/cgetc.s
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
;
|
||||||
|
; jede jede@oric.org 2017-10-01
|
||||||
|
;
|
||||||
|
.export _cgetc
|
||||||
|
|
||||||
|
.include "telestrat.inc"
|
||||||
|
|
||||||
|
.proc _cgetc
|
||||||
|
loop:
|
||||||
|
BRK_TELEMON XRD0
|
||||||
|
bcc key_pressed
|
||||||
|
jmp loop
|
||||||
|
key_pressed:
|
||||||
|
rts
|
||||||
|
.endproc
|
Loading…
x
Reference in New Issue
Block a user