116 lines
1.8 KiB
ArmAsm
116 lines
1.8 KiB
ArmAsm
do_snow:
|
|
bit HIRES
|
|
bit PAGE1
|
|
|
|
lda #0
|
|
sta FRAMEL
|
|
sta FRAMEH
|
|
sta DRAW_PAGE
|
|
|
|
lda #8
|
|
sta XPOS
|
|
lda #100
|
|
sta YPOS
|
|
|
|
do_snow_loop:
|
|
;======================
|
|
; update frame count
|
|
|
|
inc FRAMEL ; 5
|
|
lda FRAMEL ; 3
|
|
and #$3f ; 2
|
|
sta FRAMEL ; 3
|
|
bne frame_noflo8 ; 2/3
|
|
inc FRAMEH ; 5
|
|
frame_noflo8:
|
|
|
|
lda KEYPRESS
|
|
bmi done_do_snow
|
|
|
|
; wait for_pattern / end
|
|
|
|
lda SOUND_STATUS
|
|
and #SOUND_MOCKINGBOARD
|
|
beq no_music8
|
|
|
|
; lda #1
|
|
; cmp current_pattern_smc+1
|
|
; bcc totally_done_fireplace
|
|
; beq totally_done_fireplace
|
|
; jmp done_music4
|
|
|
|
no_music8:
|
|
lda FRAMEH
|
|
cmp #6
|
|
beq done_do_snow
|
|
|
|
done_music8:
|
|
|
|
jsr hgr_clear_screen
|
|
|
|
; 0123456789012345678901234567890123456789
|
|
; XXXXXX XXXXXX XXXXXX
|
|
|
|
lda #2
|
|
sta SPRITE_X
|
|
ldy YPOS
|
|
lda sin2,Y
|
|
sta SPRITE_Y
|
|
lda #<snow_sprite
|
|
sta INL
|
|
lda #>snow_sprite
|
|
sta INH
|
|
jsr hgr_draw_sprite_big
|
|
|
|
lda #17
|
|
sta SPRITE_X
|
|
ldy YPOS
|
|
lda sin1,Y
|
|
sta SPRITE_Y
|
|
lda #<snow_sprite
|
|
sta INL
|
|
lda #>snow_sprite
|
|
sta INH
|
|
jsr hgr_draw_sprite_big
|
|
|
|
lda #32
|
|
sta SPRITE_X
|
|
ldy YPOS
|
|
lda sin2,Y
|
|
sta SPRITE_Y
|
|
lda #<snow_sprite
|
|
sta INL
|
|
lda #>snow_sprite
|
|
sta INH
|
|
jsr hgr_draw_sprite_big
|
|
|
|
|
|
|
|
jsr hgr_page_flip
|
|
|
|
; lda #128
|
|
; jsr wait
|
|
|
|
inc YPOS
|
|
; lda YPOS
|
|
; cmp #150
|
|
; bcc ypos_ok
|
|
|
|
; lda #100
|
|
; sta YPOS
|
|
|
|
;ypos_ok:
|
|
|
|
|
|
jmp do_snow_loop
|
|
|
|
done_do_snow:
|
|
rts
|
|
|
|
.include "hgr_sprite_big.s"
|
|
.include "hgr_clear_screen.s"
|
|
.include "hgr_page_flip.s"
|
|
|
|
.include "graphics/snow.inc"
|
|
|