Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-27 07:29:29 +00:00
Code Issues Projects Releases Wiki Activity

xmas2018: hgr scroll: preserve colors (mostly)

Browse Source
This commit is contained in:
Vince Weaver 2018-12-20 10:53:22 -05:00
parent a92ec7869c
commit 5d4005567f
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
xmas_2018/merry.s
View File

@ -276,15 +276,23 @@ hgr_scroll_line_loop:
sta NEXT ; 3
dey ; restore Y ; 2
; if ((count mod 7==2) || (count mod 7==6)) {
; ram[HIGH]=ram[NEXT]&0x80;
;}
; else {
lda COUNTL
cmp #2
beq move_high_bit
cmp #6
beq move_high_bit
bne keep_high_bit
move_high_bit:
lda NEXT
jmp done_high_bit
keep_high_bit:
lda CURRENT ; 3
done_high_bit:
and #$80 ; 2
sta HIGH ; 3
; }
cpy #39
bne not_thirtynine
@ -293,7 +301,6 @@ hgr_scroll_line_loop:
lda (INL),Y
sta NEXT
ldy TEMPY
; if (y==39) ram[NEXT]=ram[y_indirect(INL,0)];
not_thirtynine:
lda NEXT ; 3