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

Removed (pretty inconsistently used) tab chars from source code base.

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
libsrc/vic20/color.s
View File

@@ -8,53 +8,53 @@
;
.export _textcolor, _bgcolor, _bordercolor
.importzp tmp1
.export _textcolor, _bgcolor, _bordercolor
.importzp tmp1
.include "vic20.inc"
.include "vic20.inc"
.code
_textcolor:
ldx CHARCOLOR ; get old value
sta CHARCOLOR ; set new value
txa
rts
ldx CHARCOLOR ; get old value
sta CHARCOLOR ; set new value
txa
rts
_bgcolor:
asl
asl
asl
asl
sta tmp1
sei ; don't want anything messing around while we update
lda VIC_COLOR ; get old value
and #$0F
tax
ora tmp1
sta VIC_COLOR ; set new value
cli
txa
lsr
lsr
lsr
lsr
rts
asl
asl
asl
asl
sta tmp1
sei ; don't want anything messing around while we update
lda VIC_COLOR ; get old value
and #$0F
tax
ora tmp1
sta VIC_COLOR ; set new value
cli
txa
lsr
lsr
lsr
lsr
rts
_bordercolor:
and #$07
sta tmp1
sei ; don't want anything messing around while we update
lda VIC_COLOR ; get old value
and #$F8
tax
ora tmp1
sta VIC_COLOR ; set new value
cli
txa
rts
and #$07
sta tmp1
sei ; don't want anything messing around while we update
lda VIC_COLOR ; get old value
and #$F8
tax
ora tmp1
sta VIC_COLOR ; set new value
cli
txa
rts