dos33fsprogs/mist/mist_title.s

58 lines
655 B
ArmAsm
Raw Normal View History

2020-03-01 05:37:09 +00:00
; Mist Title
; loads a HGR version of the title
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
.include "zp.inc"
.include "hardware.inc"
mist_start:
;===================
; init screen
jsr TEXT
jsr HOME
bit KEYRESET
bit SET_GR
bit PAGE0
bit HIRES
bit FULLGR
;===================
; Load graphics
;===================
reload_everything:
2020-03-02 21:50:00 +00:00
lda #<file
2020-03-05 05:25:59 +00:00
sta LZSA_SRC_LO
2020-03-02 21:50:00 +00:00
lda #>file
2020-03-05 05:25:59 +00:00
sta LZSA_SRC_HI
2020-03-01 05:37:09 +00:00
2020-03-05 05:25:59 +00:00
lda #$20
2020-03-01 05:37:09 +00:00
2020-03-05 05:25:59 +00:00
jsr decompress_lzsa2_fast
2020-03-01 05:37:09 +00:00
2020-03-02 21:50:00 +00:00
bit KEYRESET
keyloop:
lda KEYPRESS
bpl keyloop
2020-03-01 05:37:09 +00:00
2020-03-02 21:50:00 +00:00
bit KEYRESET
2020-03-01 05:37:09 +00:00
2020-03-02 21:50:00 +00:00
lda #16
sta 5
rts
2020-03-01 05:37:09 +00:00
2020-03-05 05:25:59 +00:00
.include "decompress_fast_v2.s"
2020-03-01 05:37:09 +00:00
2020-03-02 21:50:00 +00:00
file:
2020-03-05 05:25:59 +00:00
.incbin "graphics_title/mist_title.lzsa"