16 lines
225 B
ArmAsm
16 lines
225 B
ArmAsm
|
;
|
||
|
|
; 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
|