2 ; 2003-04-13, Ullrich von Bassewitz
3 ; 2014-09-04, Greg King
12 .forceimport disable_caps
17 ; ------------------------------------------------------------------------
22 lda KEYBUF ; Do we have a character?
25 ; No character, enable cursor and wait
27 lda cursor ; Should cursor be off?
35 ; If the cursor was enabled, disable it now
39 dec STATUS ; Clear bit zero
41 ; We have the character, clear the "available" flag
43 @L2: and #$7F ; Mask out avail flag
49 ora #$80 ; FUNCT-key pressed
57 ; ------------------------------------------------------------------------
58 ; Switch the cursor off. Code goes into the INIT segment
59 ; which may be reused after it is run.
65 asl STATUS ; Clear bit zero