mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-20 21:30:03 +00:00
31 lines
356 B
ArmAsm
31 lines
356 B
ArmAsm
; note, this should scroll while still moving
|
|
; don't have time to do that
|
|
|
|
scroll_off:
|
|
|
|
ldx #0
|
|
scroll_off_outer_loop:
|
|
|
|
lda hposn_low,X
|
|
sta GBASL
|
|
lda hposn_high,X
|
|
clc
|
|
adc DRAW_PAGE
|
|
sta GBASH
|
|
|
|
ldy #39
|
|
lda #00
|
|
scroll_off_inner_loop:
|
|
sta (GBASL),Y
|
|
dey
|
|
bpl scroll_off_inner_loop
|
|
|
|
lda #50
|
|
jsr wait
|
|
|
|
inx
|
|
cpx #192
|
|
bne scroll_off_outer_loop
|
|
|
|
rts
|