6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-10-02 21:54:47 +00:00
Code Issues Projects Releases Wiki Activity

honour cursor setting

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1481 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2002-11-03 22:10:55 +00:00
parent dadd136ae1
commit 6078dea817
1 changed files with 36 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
libsrc/atari/cgetc.s
View File

@ -1,21 +1,48 @@
;
; get a kbd char.
; Christian Groessler, November-2002
;
; get a char from the keyboard
; char cgetc(void)
;
.include "atari.inc"
.export _cgetc
.include "atari.inc"
.export _cgetc
.import cursor
_cgetc:
jsr setcursor
jsr @1
ldx #0
rts
@1: lda KEYBDV+5
pha
lda KEYBDV+4
pha
@1: lda KEYBDV+5
pha
lda KEYBDV+4
pha
lda #12
sta ICAX1Z ; fix problems with direct call to KEYBDV
rts
rts
.proc setcursor
lda OLDCHR ; get char at current cursor position
ldy #0 ; needed later
ldx cursor ; current cursor setting as requested by the user
beq off
ldx #0
beq cont
off: inx
cont: stx CRSINH ; update system variable
beq turnon
and #$7f ; clear high bit / inverse flag
finish: sta (OLDADR),y ; update on-screen display
rts
turnon: ora #$80 ; set high bit / inverse flag
bne finish
.endproc