; unsigned char cgetc (void);
.export _cgetc
- .import cursor
+ .import cursor, _PromptOff
.importzp cursor_x, cursor_y
.include "jumptab.inc"
tax
beq L0
pha
-
-; from 'The Hitchhiker's Guide To GEOS'
- php
- sei
- jsr PromptOff
- lda #0
- sta alphaFlag
- plp
-
+ jsr _PromptOff
pla
ldx #0
rts
.export _PromptOff
.include "jumptab.inc"
+ .include "geossym.inc"
-_PromptOff = PromptOff
+_PromptOff:
+; from 'The Hitchhiker's Guide To GEOS'
+ php
+ sei
+ jsr PromptOff
+ lda #0
+ sta alphaFlag
+ plp
+ rts