6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-21 15:32:41 +00:00
Code Issues Projects Releases Wiki Activity

some fixes for last change

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1485 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2002-11-04 23:30:19 +00:00
parent 4cc56dacbd
commit 345bec94f1
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
libsrc/atari/cputc.s
View File

@ -45,15 +45,20 @@ L4: cmp #$0A ; LF
cputdirect: ; accepts screen code
jsr putchar
lda OLDADR ; update cursor position pointer
clc
adc #1
sta OLDADR
bcc l1
; 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
l1: inc COLCRS
inc COLCRS
lda COLCRS
cmp #40
bcc plot
@ -96,6 +101,7 @@ L3: clc
ldy COLCRS
sta (ptr4),y
; update OLDADR (maybe ROWCRS and COLCRS were changed)
sty tmp4
lda ptr4
clc
@ -104,7 +110,6 @@ L3: clc
lda ptr4+1
adc #0
sta OLDADR+1
rts
.rodata