Apply "improved" cursor-off handling for native GEOS API too.
git-svn-id: svn://svn.cc65.org/cc65/trunk@5876 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
ce47ebbbf4
commit
3aabd85bf4
2 changed files with 12 additions and 11 deletions
|
@ -7,7 +7,7 @@
|
|||
; unsigned char cgetc (void);
|
||||
|
||||
.export _cgetc
|
||||
.import cursor
|
||||
.import cursor, _PromptOff
|
||||
.importzp cursor_x, cursor_y
|
||||
|
||||
.include "jumptab.inc"
|
||||
|
@ -33,15 +33,7 @@ L0: jsr GetNextChar
|
|||
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
|
||||
|
|
|
@ -8,5 +8,14 @@
|
|||
.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
|
||||
|
|
Loading…
Add table
Reference in a new issue