6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-14 14:26:27 +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
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 cputdirect: ; accepts screen code
jsr putchar jsr putchar
lda OLDADR ; update cursor position pointer ; update cursor position pointer
clc ldy #0
adc #1 lda OLDCHR
sta OLDADR sta (OLDADR),y
bcc l1 inc OLDADR
bne L1
inc OLDADR+1 inc OLDADR+1
L1: lda (OLDADR),y
sta OLDCHR
ora _revflag
sta (OLDADR),y
; advance cursor ; advance cursor
l1: inc COLCRS inc COLCRS
lda COLCRS lda COLCRS
cmp #40 cmp #40
bcc plot bcc plot
@@ -96,6 +101,7 @@ L3: clc
ldy COLCRS ldy COLCRS
sta (ptr4),y sta (ptr4),y
; update OLDADR (maybe ROWCRS and COLCRS were changed)
sty tmp4 sty tmp4
lda ptr4 lda ptr4
clc clc
@@ -104,7 +110,6 @@ L3: clc
lda ptr4+1 lda ptr4+1
adc #0 adc #0
sta OLDADR+1 sta OLDADR+1
rts rts
.rodata .rodata