mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-14 13:33:48 +00:00
104 lines
1.8 KiB
ArmAsm
104 lines
1.8 KiB
ArmAsm
; VMW Productions 2018 XMAS Demo
|
|
;
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
; external routines
|
|
|
|
;play_music=$1000
|
|
;mockingboard_init=$1100
|
|
;mockingboard_mute=$11a1
|
|
|
|
|
|
xmas2018_start: ; this should end up at $4000
|
|
|
|
;===================
|
|
; Check for Apple II and patch
|
|
;===================
|
|
|
|
lda $FBB3 ; IIe and newer is $06
|
|
cmp #6
|
|
beq apple_iie
|
|
|
|
; lda #$54 ; patch the check_email font code
|
|
; sta ce_patch+1
|
|
|
|
|
|
apple_iie:
|
|
|
|
;==================
|
|
; Init mockingboard
|
|
;==================
|
|
|
|
lda #0
|
|
sta MB_PATTERN
|
|
lda #$60
|
|
sta MB_FRAME
|
|
|
|
jsr mockingboard_init
|
|
|
|
;===================
|
|
; set graphics mode
|
|
;===================
|
|
jsr HOME
|
|
|
|
jsr wreath
|
|
|
|
;==================
|
|
; Game over
|
|
;==================
|
|
; we never get here
|
|
game_over_man:
|
|
jmp game_over_man
|
|
|
|
|
|
.align $100
|
|
.include "wreath.s"
|
|
.include "lz4_decode.s"
|
|
.include "gr_offsets.s"
|
|
.include "gr_hline.s"
|
|
.include "gr_fast_clear.s"
|
|
.include "vapor_lock.s"
|
|
.include "delay_a.s"
|
|
.include "wait_keypress.s"
|
|
.include "mockingboard.s"
|
|
; .include "random16.s"
|
|
; .include "hgr.s"
|
|
; .include "move_letters.s"
|
|
.include "gr_putsprite.s"
|
|
; .include "text_print.s"
|
|
; .include "screen_split.s"
|
|
|
|
;============================
|
|
; Include Sprites
|
|
;============================
|
|
;.align $100
|
|
; .include "tfv_sprites.inc"
|
|
; .include "mode7_sprites.inc"
|
|
|
|
;=================================
|
|
; Include Text for Sliding Letters
|
|
; *DONT CROSS PAGES*
|
|
;=================================
|
|
;.include "letters.s"
|
|
|
|
;============================
|
|
; Include Lores Graphics
|
|
; No Alignment Needed
|
|
;============================
|
|
|
|
;============================
|
|
; Include Hires Graphics
|
|
; No Alignment Needed
|
|
; FIXME: we can save 8 bytes per file by stripping checksums off end
|
|
;============================
|
|
|
|
; starring
|
|
wreath_hgr:
|
|
.incbin "wreath.img.lz4",11
|
|
wreath_hgr_end:
|
|
|
|
|