keen: add twinkling star

This commit is contained in:
Vince Weaver 2024-03-12 02:20:36 -04:00
parent 29932afb40
commit bff5f6c13b
2 changed files with 17 additions and 0 deletions

View File

@ -123,6 +123,15 @@ keen_loop:
inc FRAMEH
no_frame_oflo:
lda FRAMEL
lsr
lsr
lsr
and #$7
tay
lda star_colors,Y
sta $F28 ; 0,28
;===========================
; check end of level
;===========================
@ -599,3 +608,9 @@ maybe_exit:
inc LEVEL_OVER
rts
star_colors:
.byte $05,$07,$07,$0f
.byte $0f,$07,$05,$0a

View File

@ -151,6 +151,8 @@ LONG_FRAME = $E4 ; nibel
CURRENT_DISPLAY = $E4 ; selena
LAST_PLAYED = $E4 ; selena
STAR_CYCLE = $E5
DISP_PAGE = $ED ; ALL
DRAW_PAGE = $EE ; ALL