mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
108 lines
2.9 KiB
ArmAsm
108 lines
2.9 KiB
ArmAsm
; another_mist -- a silly demo
|
|
|
|
; apologies to Cyan and Eric Chahi
|
|
|
|
|
|
another_mist:
|
|
|
|
;===========================
|
|
; Enable graphics
|
|
;===========================
|
|
|
|
bit LORES
|
|
bit SET_GR
|
|
bit FULLGR
|
|
bit KEYRESET
|
|
|
|
;===========================
|
|
; Setup pages (is this necessary?)
|
|
;===========================
|
|
|
|
lda #0
|
|
sta DRAW_PAGE
|
|
lda #4
|
|
sta DISP_PAGE
|
|
|
|
lda #<another_sequence
|
|
sta INTRO_LOOPL
|
|
lda #>another_sequence
|
|
sta INTRO_LOOPH
|
|
|
|
jsr run_sequence
|
|
|
|
rts
|
|
|
|
|
|
another_sequence:
|
|
.byte 255 ; load to bg
|
|
.word ootw_uboot_bg_lzsa ; this
|
|
.byte 128+5 ; .word ootw_uboot_flash1_lzsa ; (3)
|
|
.byte 128+5 ; .word ootw_uboot_flash2_lzsa ; (3)
|
|
.byte 128+60 ; .word swim01_lzsa ; (3)
|
|
.byte 128+30 ; .word swim02_lzsa ; (3)
|
|
.byte 128+30 ; .word swim03_lzsa ; (3)
|
|
.byte 128+30 ; .word swim04_lzsa ; (3)
|
|
.byte 128+30 ; .word swim05_lzsa ; (3)
|
|
.byte 128+30 ; .word swim06_lzsa ; (3)
|
|
.byte 255 ; load to bg
|
|
.word another_pool_lzsa ; this
|
|
.byte 128+60; .word ashore01
|
|
.byte 128+40; .word ashore02
|
|
.byte 128+60; .word ashore03
|
|
.byte 128+40; .word ashore04
|
|
.byte 128+60; .word ashore05
|
|
.byte 128+40; .word ashore06
|
|
.byte 128+60; .word ashore07
|
|
.byte 128+40; .word ashore08
|
|
.byte 128+40; .word ashore09
|
|
.byte 128+40; .word ashore10
|
|
.byte 128+40; .word ashore11
|
|
.byte 128+40; .word ashore12
|
|
.byte 128+40; .word ashore13
|
|
.byte 128+40; .word ashore14
|
|
.byte 128+40; .word ashore15
|
|
.byte 128+40; .word ashore16
|
|
.byte 128+40; .word ashore17
|
|
.byte 128+40; .word ashore18
|
|
.byte 128+40; .word ashore19
|
|
.byte 128+40; .word ashore20
|
|
.byte 128+40; .word ashore21
|
|
.byte 128+40; .word ashore22
|
|
.byte 128+40; .word ashore23
|
|
.byte 128+40; .word ashore24
|
|
|
|
.byte 255 ; load to bg
|
|
.word clock_e_lzsa ; this
|
|
.byte 128+90; .word blank
|
|
.byte 128+90; .word clock_n
|
|
.byte 128+90; .word tree5_n
|
|
.byte 128+80; .word tree4_n
|
|
.byte 128+70; .word tree2_n
|
|
.byte 128+70; .word tree1_n
|
|
.byte 128+70; .word pool_n
|
|
.byte 128+70; .word step_top_n
|
|
.byte 128+70; .word pad_n
|
|
.byte 128+70; .word spaceship_path_w
|
|
.byte 128+70; .word spaceship_far_n
|
|
.byte 128+70; .word spaceship_switch_n
|
|
.byte 128+70; .word spaceship_door_n
|
|
.byte 128+100; .word spaceship_door_open
|
|
.byte 25
|
|
.word spaceship_switch_n_lzsa
|
|
.byte 255 ; load to bg
|
|
.word spaceship_far_n_lzsa
|
|
.byte 80
|
|
.word takeoff01_lzsa
|
|
.byte 128+50; .word takeoff_02
|
|
.byte 128+40; .word takeoff_03
|
|
.byte 128+20; .word takeoff_04
|
|
.byte 128+20; .word takeoff_05
|
|
.byte 128+20; .word takeoff_06
|
|
.byte 128+20; .word takeoff_07
|
|
.byte 128+20; .word takeoff_08
|
|
.byte 128+20; .word takeoff_00
|
|
.byte 128+20; .word takeoff_10
|
|
.byte 128+40; .word takeoff_11
|
|
.byte 128+100; .word takeoff_12
|
|
.byte 0
|