mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-19 15:30:08 +00:00
68 lines
1.1 KiB
ArmAsm
68 lines
1.1 KiB
ArmAsm
; XMAS 2023
|
|
|
|
.include "hardware.inc"
|
|
.include "zp.inc"
|
|
.include "qload.inc"
|
|
.include "music.inc"
|
|
|
|
|
|
xmas_main:
|
|
|
|
;======================================
|
|
; init
|
|
;======================================
|
|
|
|
lda #$00
|
|
sta DRAW_PAGE
|
|
sta clear_all_color+1
|
|
|
|
lda #$04
|
|
sta DRAW_PAGE
|
|
jsr clear_all
|
|
|
|
;======================================
|
|
; draw opening scene
|
|
;======================================
|
|
|
|
jsr fireplace_opener
|
|
|
|
repeat:
|
|
|
|
;======================================
|
|
; 3D tree
|
|
;======================================
|
|
|
|
jsr regular_tree
|
|
|
|
;======================================
|
|
; plasma tree
|
|
;======================================
|
|
|
|
jsr plasma_tree
|
|
|
|
;======================================
|
|
; snowflakes
|
|
;======================================
|
|
|
|
jsr do_snow
|
|
|
|
|
|
;======================================
|
|
; fireplace without vapor lock
|
|
;======================================
|
|
|
|
|
|
jsr fireplace_restart
|
|
|
|
finished:
|
|
jmp repeat
|
|
|
|
|
|
.include "wait_keypress.s"
|
|
.include "irq_wait.s"
|
|
|
|
.include "plasma_tree.s"
|
|
.include "fireplace.s"
|
|
.include "regular_tree.s"
|
|
.include "snowflakes.s"
|