bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

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
Download Patch File Download Diff File Expand all files Collapse all files

11
libsrc/vic20/color.s
View File

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