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

always use setcursor to update cursor settings

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1657 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2002-11-26 21:34:13 +00:00
parent ef36bbfd82
commit 93f6ee340d
1 changed files with 9 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
libsrc/atari/cputc.s
View File

@ -9,7 +9,7 @@
.export plot, cputdirect, putchar
.import popa, _gotoxy, mul40
.importzp tmp4,ptr4
.import _revflag
.import _revflag,setcursor
.include "atari.inc"
@ -25,7 +25,7 @@ _cputc:
lda #0
sta COLCRS
beq plot ; return
L4: cmp #$0A ; LF
beq newline
cmp #ATEOL ; Atari-EOL?
@ -45,18 +45,6 @@ L4: cmp #$0A ; LF
cputdirect: ; accepts screen code
jsr putchar
; update cursor position pointer
ldy #0
lda OLDCHR
sta (OLDADR),y
inc OLDADR
bne L1
inc OLDADR+1
L1: lda (OLDADR),y
sta OLDCHR
ora _revflag
sta (OLDADR),y
; advance cursor
inc COLCRS
lda COLCRS
@ -73,7 +61,8 @@ newline:
bne plot
lda #0
sta ROWCRS
plot: ldy COLCRS
plot: jsr setcursor
ldy COLCRS
ldx ROWCRS
rts
@ -86,32 +75,21 @@ putchar:
sta (OLDADR),y
lda ROWCRS
jsr mul40
L3: clc
jsr mul40 ; destroys tmp4
clc
adc SAVMSC ; add start of screen memory
sta ptr4
lda tmp4
txa
adc SAVMSC+1
sta ptr4+1
pla ; get char again
ora _revflag
sta OLDCHR
ora _revflag
ldy COLCRS
sta (ptr4),y
; update OLDADR (maybe ROWCRS and COLCRS were changed)
sty tmp4
lda ptr4
clc
adc tmp4
sta OLDADR
lda ptr4+1
adc #0
sta OLDADR+1
rts
jmp setcursor
.rodata
ataint: .byte 64,0,32,96