mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-08 19:33:03 +00:00
62 lines
948 B
ArmAsm
62 lines
948 B
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
|
|
|
|
|
|
;======================================
|
|
; 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"
|
|
|