mirror of
https://github.com/cc65/cc65.git
synced 2025-01-05 15:30:44 +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…
Reference in New Issue
Block a user