2 ; 2003-04-13, Ullrich von Bassewitz
3 ; 2014-09-04, Greg King
11 .forceimport disable_caps
16 ; ------------------------------------------------------------------------
21 lda KEYBUF ; Do we have a character?
24 ; No character, enable cursor and wait
26 lda cursor ; Should cursor be off?
34 ; If the cursor was enabled, disable it now
38 dec STATUS ; Clear bit zero
40 ; We have the character, clear the "available" flag
42 @L2: and #$7F ; Mask out avail flag
48 ora #$80 ; FUNCT-key pressed