;
-; Ullrich von Bassewitz, 2003-04-13
+; 2003-04-13, Ullrich von Bassewitz
+; 2013-07-26, Greg King
;
; char cgetc (void);
;
- .export _cgetc
+ .export _cgetc
.constructor initcgetc
- .import cursor
-
- .include "atmos.inc"
+ .import cursor
+ .include "atmos.inc"
; ------------------------------------------------------------------------
@L2: and #$7F ; Mask out avail flag
sta KEYBUF
- ldy $209
- cpy #$A5
+ ldy MODEKEY
+ cpy #FUNCTKEY
bne @L3
ora #$80 ; FUNCT pressed