empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Small optimizations

Browse source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1379 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2002-08-07 19:35:15 +00:00
parent 99b193a482
commit 93dbb62e9f
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
libsrc/vic20/color.s
View file

@ -9,12 +9,11 @@
.export _textcolor, _bgcolor, _bordercolor
.importzp tmp1
.include "vic20.inc"
.bss
clr_tmp: .res 1 ; tempory storage for bitfield ops
.code
@ -30,12 +29,12 @@ _bgcolor:
asl
asl
asl
sei ; don't want anything messing around while we update
sta clr_tmp
sta tmp1
sei ; don't want anything messing around while we update
lda VIC_COLOR ; get old value
and #$0F
tax
ora clr_tmp
ora tmp1
sta VIC_COLOR ; set new value
cli
txa
@ -48,12 +47,12 @@ _bgcolor:
_bordercolor:
and #$07
sei ; don't want anything messing around while we update
sta clr_tmp
lda VIC_COLOR ; get old value
sta tmp1
sei ; don't want anything messing around while we update
lda VIC_COLOR ; get old value
and #$F8
tax
ora clr_tmp
ora tmp1
sta VIC_COLOR ; set new value
cli
txa