6502
/
cc65
mirror of https://github.com/cc65/cc65.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix bgcolor and textcolor must return last color, jmp remove.

This commit is contained in:
jede 2019-07-18 20:48:10 +02:00 committed by greg-king5
parent f9e13abc11
commit 0fe98a7ca8
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libsrc/telestrat/bgcolor.s
View File

@ -7,6 +7,8 @@
.include "telestrat.inc"
.proc _bgcolor
ldx BGCOLOR ; Get previous color
sta BGCOLOR
txa ; Return previous color
rts
.endproc

8
libsrc/telestrat/clrscr.s
View File

@ -34,12 +34,8 @@
dex
stx SCRX
; X is equal to 0
stx BGCOLOR
stx OLD_BGCOLOR
lda #$07
sta CHARCOLOR
lda #$FF
sta OLD_BGCOLOR
sta OLD_CHARCOLOR
rts

6
libsrc/telestrat/gotoxy.s
View File

@ -24,8 +24,8 @@ gotoxy: jsr popa ; Get Y
jsr popa
sta SCRX
jmp update_adscr ; Update adress video ram position when SCRY is modified
; Update adress video ram position when SCRY is modified (update_adscr)
; Fall through
.endproc
.proc update_adscr
@ -48,7 +48,7 @@ gotoxy: jsr popa ; Get Y
loop:
lda ADSCRL
clc
adc #$28
adc #SCREEN_XSIZE
bcc skip
inc ADSCRH
skip:

2
libsrc/telestrat/textcolor.s
View File

@ -6,6 +6,8 @@
.include "telestrat.inc"
.proc _textcolor
ldx CHARCOLOR ; Get previous color
sta CHARCOLOR
txa ; Return previous color
rts
.endproc