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

gr: scroll: update texture

Browse Source
This commit is contained in:
Vince Weaver
2022-05-19 23:20:44 -04:00
parent 5bbdd48d60
commit eafb6271c8
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
graphics/gr/scroll/random_fun.s
View File

@@ -33,10 +33,11 @@ GBASH = $27
OUTL = $74
OUTH = $75
FRAME = $6D
PAGE = $6E
LINE = $6F
pattern1 = $f000 ; location in memory
pattern1 = $d000 ; location in memory
.zeropage
.globalzp pattern_smc
@@ -68,9 +69,18 @@ main_loop:
bit SPEAKER
; lda #200
; jsr WAIT
lda #100
jsr WAIT
inc FRAME
lda FRAME
and #$3f
bne no_inc_bg
inc pattern_smc+2
no_inc_bg:
;============================
; draw an interleaved line