mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-14 13:33:48 +00:00
raster: slow it down a bit
This commit is contained in:
parent
230333cd78
commit
2677930759
@ -24,6 +24,8 @@ SCROLL = $FC70
|
||||
VTAB = $FC22 ; takes row in CV, Result is in BASL:BASH ($28/$29)
|
||||
VTABZ = $FC24 ; VTABZ variant takes row in Accumulator
|
||||
|
||||
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||
|
||||
raster_demo:
|
||||
|
||||
; Set lores graphics
|
||||
@ -46,11 +48,16 @@ raster_demo:
|
||||
|
||||
reset_scroll:
|
||||
|
||||
|
||||
jsr random8
|
||||
sta CV
|
||||
|
||||
scroll_loop:
|
||||
|
||||
lda #$80
|
||||
jsr WAIT
|
||||
|
||||
|
||||
jsr SCROLL ; scrolls screen up one row ; 3
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user