Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-09-10 08:54:51 +00:00
Code Issues Projects Releases Wiki Activity

xmas2018: scroll works! Horrifically s-l-o-w

Browse Source
This commit is contained in:
Vince Weaver 2018-12-20 10:49:39 -05:00
parent b6b492934b
commit a92ec7869c
1 changed files with 98 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

173
xmas_2018/merry.s
View File

@ -107,8 +107,17 @@ meloopF:dex ; 2
; jsr play_music ; 6+1032
jsr scroll_hgr_loop
lda #$00
sta scroll_hgr_smc+1
jsr scroll_hgr_left
lda #$28
sta scroll_hgr_smc+1
jsr scroll_hgr_left
lda #$50
sta scroll_hgr_smc+1
jsr scroll_hgr_left
; Try X=9 Y=89 cycles=4540
@ -172,98 +181,44 @@ me_handle_keypress:
HIGH = $00
CURRENT = $01
NEXT = $02
COUNTH = $03
COUNTL = $04
;===========================================
;===========================================
;===========================================
scroll_hgr_left:
lda #$0 ; 2
sta COUNTH ; 3
sta COUNTL ; 3
scroll_hgr_loop:
lda #$40 ; 2
sta OUTH ; 3
lda #$60 ; 2
sta INH ; 3
scroll_hgr_smc:
lda #$0 ; 2
sta INL ; 3
sta OUTL ; 3
sta COUNT
left_one_loop:
ldy #0 ; 2
page1_loop:
lda (OUTL),Y ; get pixel block of interest ; 5
sta CURRENT ; 3
jsr hgr_scroll_line ; 6+???
iny ; 2
lda (OUTL),Y ; get subsequent pixel block ; 5
;(note, 6 if off end?)
sta NEXT ; 3
dey ; restore Y ; 2
lda OUTH
sta TEMP
; if ((count mod 7==2) || (count mod 7==6)) {
; ram[HIGH]=ram[NEXT]&0x80;
;}
; else {
lda INH
sta OUTH
lda CURRENT ; 3
and #$80 ; 2
sta HIGH ; 3
; }
; if (y==39) ram[NEXT]=ram[y_indirect(INL,0)];
jsr hgr_scroll_line ; 6+???
lda NEXT ; 3
and #$3 ; 2
asl ; 2
asl ; 2
asl ; 2
asl ; 2
asl ; 2
sta NEXT ; 3
lda CURRENT ; 3
lsr ; 2
lsr ; 2
and #$1f ; 2
ora HIGH ; 3
ora NEXT ; 3
sta (OUTL),Y ; 6
iny ; 2
cpy #40 ; 2
bne page1_loop ; 3
; -1
.if 0
for(y=0;y<40;y++) {
ram[CURRENT]=ram[y_indirect(INL,y)];
ram[NEXT]=ram[y_indirect(INL,y+1)];
if ((count mod 7==2) ||(count mod 7==6)) {
ram[HIGH]=ram[NEXT]&0x80;
}
else {
ram[HIGH]=ram[CURRENT]&0x80;
}
a=ram[NEXT];
and(0x3);
asl();
asl();
asl();
asl();
asl();
ram[NEXT]=a;
a=ram[CURRENT];
lsr();
lsr(); // current>>=2;
and(0x1f); // current&=0x1f;
ora_mem(HIGH);
ora_mem(NEXT);
ram[y_indirect(INL,y)]=a;
}
.endif
lda TEMP
sta OUTH
clc ; 2
lda INL ; 3
@ -287,9 +242,18 @@ page1_loop:
lda KEYPRESS ; 4
bmi scroll_done ; 3
inc COUNT ; 5
lda COUNT ; 3
cmp #140 ; 2
inc COUNTL ; 5
lda COUNTL ; 3
cmp #7 ; 2
bne scroll_noinc_counth ; 3
lda #0 ; 2
sta COUNTL ; 3
inc COUNTH ; 5
scroll_noinc_counth:
lda COUNTH ; 3
cmp #20 ; 2
beq scroll_done ; 3
;-1
@ -297,3 +261,62 @@ page1_loop:
scroll_done:
rts ; 6
hgr_scroll_line:
ldy #0 ; 2
hgr_scroll_line_loop:
lda (OUTL),Y ; get pixel block of interest ; 5
sta CURRENT ; 3
iny ; 2
lda (OUTL),Y ; get subsequent pixel block ; 5
;(note, 6 if off end?)
sta NEXT ; 3
dey ; restore Y ; 2
; if ((count mod 7==2) || (count mod 7==6)) {
; ram[HIGH]=ram[NEXT]&0x80;
;}
; else {
lda CURRENT ; 3
and #$80 ; 2
sta HIGH ; 3
; }
cpy #39
bne not_thirtynine
sty TEMPY
ldy #0
lda (INL),Y
sta NEXT
ldy TEMPY
; if (y==39) ram[NEXT]=ram[y_indirect(INL,0)];
not_thirtynine:
lda NEXT ; 3
and #$3 ; 2
asl ; 2
asl ; 2
asl ; 2
asl ; 2
asl ; 2
sta NEXT ; 3
lda CURRENT ; 3
lsr ; 2
lsr ; 2
and #$1f ; 2
ora HIGH ; 3
ora NEXT ; 3
sta (OUTL),Y ; 6
iny ; 2
cpy #40 ; 2
bne hgr_scroll_line_loop ; 3
; -1
rts ; 6