104 lines
1.5 KiB
ArmAsm
104 lines
1.5 KiB
ArmAsm
; 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
|
|
|
|
|
|
;===================
|
|
; Init RTS disk code
|
|
;===================
|
|
|
|
; jsr rts_init
|
|
|
|
;===================
|
|
; Load graphics
|
|
;===================
|
|
reload_everything:
|
|
; load MIST_TITLE.LZ4 to $a000
|
|
; then decompress it to $2000 (HGR PAGE0)
|
|
|
|
; lda #<mist_title_filename
|
|
; sta OUTL
|
|
; lda #>mist_title_filename
|
|
; sta OUTH
|
|
; jsr opendir_filename ; open and read entire file into memory
|
|
|
|
; size in ldsizeh:ldsizel (f1/f0)
|
|
|
|
; clc
|
|
lda #<file
|
|
sta LZ4_SRC
|
|
; adc ldsizel
|
|
; sta LZ4_END
|
|
|
|
lda #>file
|
|
sta LZ4_SRC+1
|
|
; adc ldsizeh
|
|
; sta LZ4_END+1
|
|
|
|
lda #<file_end
|
|
sta LZ4_END
|
|
lda #>file_end
|
|
sta LZ4_END+1
|
|
|
|
lda #<$2000
|
|
sta LZ4_DST
|
|
lda #>$2000
|
|
sta LZ4_DST+1
|
|
|
|
jsr lz4_decode
|
|
|
|
|
|
|
|
bit KEYRESET
|
|
|
|
keyloop:
|
|
lda KEYPRESS
|
|
bpl keyloop
|
|
|
|
bit KEYRESET
|
|
|
|
lda #16
|
|
sta 5
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
; .include "gr_putsprite.s"
|
|
; .include "gr_offsets.s"
|
|
; .include "gr_fast_clear.s"
|
|
; .include "gr_hline.s"
|
|
; .include "wait_keypress.s"
|
|
.include "lz4_decode.s"
|
|
; .include "rts.s"
|
|
|
|
|
|
; filename to open is 30-character Apple text:
|
|
;mist_title_filename: ; .byte "MIST_TITLE.LZ4",0
|
|
; .byte 'M'|$80,'I'|$80,'S'|$80,'T'|$80,'_'|$80,'T'|$80,'I'|$80,'T'|$80
|
|
; .byte 'L'|$80,'E'|$80,'.'|$80,'L'|$80,'Z'|$80,'4'|$80,$00
|
|
|
|
file:
|
|
.incbin "MIST_TITLE.LZ4"
|
|
file_end:
|