2 ; Ullrich von Bassewitz, 06.08.1998
13 _cgetc: lda KEY_COUNT ; Get number of characters
14 ora FKEY_COUNT ; Or with number of function key chars
15 bne L2 ; Jump if there are already chars waiting
17 ; Switch on the cursor if needed
20 lda (CRAM_PTR),y ; Get current char
26 beq L1 ; Jump if no cursor
33 sbc #$0B ; + carry = $C00 (screen address)
42 sta TED_CURSLO ; Cursor off
45 L2: jsr KBDREAD ; Read char and return in A