sb: keyboard early out

This commit is contained in:
Vince Weaver 2023-06-01 14:29:59 -04:00
parent 960339242d
commit 7fbebb9895
2 changed files with 12 additions and 3 deletions

View File

@ -1,10 +1,10 @@
;================================
; HGR vscroll
; HGR logo vscroll
;================================
; image to scroll in is in $4000
;
hgr_vscroll:
hgr_logo_vscroll:
ldx #191 ; 2
stx SCROLL ; SCROLL = 0 ; 3
@ -79,10 +79,19 @@ vscroll_out_smc:
done_scroll:
;=====================
; exit early if keypress
lda KEYPRESS
bmi vscroll_early_exit
;=====================
; scroll whole screen
dec SCROLL
bne vscroll_loop
vscroll_early_exit:
bit KEYRESET
rts

View File

@ -98,7 +98,7 @@ scroll_logo:
; scroll up vertically
;======================
jsr hgr_vscroll
jsr hgr_logo_vscroll
;===================