mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-29 00:31:52 +00:00
b1238af49d
this will probably upset people
51 lines
757 B
ArmAsm
51 lines
757 B
ArmAsm
;
|
|
;
|
|
|
|
chapter1_transition:
|
|
|
|
;===================================
|
|
; show chpater screen and play music
|
|
;===================================
|
|
|
|
lda #<part1_lzsa
|
|
sta LZSA_SRC_LO
|
|
lda #>part1_lzsa
|
|
sta LZSA_SRC_HI
|
|
lda #$c ; load to page $c00
|
|
jsr decompress_lzsa2_fast
|
|
|
|
; copy over background
|
|
jsr gr_copy_to_current
|
|
|
|
; flip page
|
|
jsr page_flip
|
|
|
|
|
|
;=============================
|
|
; play music if mockingboard
|
|
;=============================
|
|
|
|
lda SOUND_STATUS
|
|
and #SOUND_MOCKINGBOARD
|
|
beq skip_start_music
|
|
cli
|
|
|
|
skip_start_music:
|
|
|
|
ldx #$D0
|
|
jsr wait_a_bit
|
|
|
|
|
|
; turn off music
|
|
lda SOUND_STATUS
|
|
and #SOUND_MOCKINGBOARD
|
|
beq skip_turn_off_music
|
|
|
|
sei ; disable interrupts
|
|
|
|
jsr clear_ay_both
|
|
|
|
skip_turn_off_music:
|
|
|
|
rts
|