2 ; Ullrich von Bassewitz, 06.08.1998
15 ;--------------------------------------------------------------------------
17 _cgetc: lda KEY_COUNT ; Get number of characters
18 bne L2 ; Jump if there are already chars waiting
20 ; Switch on the cursor if needed
28 L2: lda KEY_COUNT ; Check characters again
30 jsr CURS_OFF ; Switch cursor off, if characters available
32 jsr KBDREAD ; Read char and return in A
36 ;--------------------------------------------------------------------------
37 ; Module constructor/destructor
52 ; Set the new vector. I can only hope that this works for other C128