mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
97 lines
2.4 KiB
ArmAsm
97 lines
2.4 KiB
ArmAsm
;======================================
|
|
; mist link book to the octogon temple
|
|
;======================================
|
|
mist_link_book:
|
|
|
|
; clear screen
|
|
lda #0
|
|
sta clear_all_color+1
|
|
|
|
jsr clear_all
|
|
jsr page_flip
|
|
|
|
jsr clear_all
|
|
jsr page_flip
|
|
|
|
; play sound effect?
|
|
|
|
lda #<linking_noise
|
|
sta BTC_L
|
|
lda #>linking_noise
|
|
sta BTC_H
|
|
ldx #LINKING_NOISE_LENGTH ; 45 pages long???
|
|
jsr play_audio
|
|
|
|
lda #OCTAGON_CEILING
|
|
sta LOCATION
|
|
lda #DIRECTION_N
|
|
sta DIRECTION
|
|
|
|
lda #LOAD_OCTAGON ; return to OCTAGON on MIST
|
|
sta WHICH_LOAD
|
|
|
|
lda #$ff
|
|
sta LEVEL_OVER
|
|
|
|
rts
|
|
|
|
|
|
mist_movie:
|
|
.word ceiling_sprite0,ceiling_sprite1,ceiling_sprite2
|
|
.word ceiling_sprite3,ceiling_sprite4,ceiling_sprite5
|
|
; probably should have 6 more
|
|
|
|
ceiling_sprite0:
|
|
.byte 9,6
|
|
.byte $88,$88,$22,$75,$75,$75,$22,$88,$88
|
|
.byte $88,$22,$27,$02,$f2,$02,$27,$22,$88
|
|
.byte $28,$22,$0f,$02,$00,$0f,$02,$55,$22
|
|
.byte $22,$ff,$22,$02,$20,$02,$22,$55,$22
|
|
.byte $88,$22,$2f,$f2,$f2,$f2,$52,$22,$88
|
|
.byte $88,$88,$22,$2f,$2f,$22,$25,$88,$88
|
|
|
|
ceiling_sprite1:
|
|
.byte 9,6
|
|
.byte $88,$88,$52,$22,$75,$75,$25,$88,$88
|
|
.byte $88,$25,$22,$f2,$00,$f2,$27,$72,$88
|
|
.byte $28,$ff,$20,$02,$00,$0f,$f0,$27,$22
|
|
.byte $22,$ff,$20,$22,$00,$ff,$20,$52,$22
|
|
.byte $88,$22,$2f,$ff,$f0,$22,$52,$55,$88
|
|
.byte $88,$88,$22,$52,$52,$52,$25,$88,$88
|
|
|
|
ceiling_sprite2:
|
|
.byte 9,6
|
|
.byte $88,$88,$22,$25,$25,$22,$22,$88,$88
|
|
.byte $88,$22,$ff,$02,$2f,$02,$27,$72,$88
|
|
.byte $28,$22,$0f,$02,$00,$0f,$0f,$77,$22
|
|
.byte $22,$22,$ff,$02,$20,$0f,$2f,$77,$22
|
|
.byte $88,$52,$22,$2f,$22,$22,$27,$22,$88
|
|
.byte $88,$88,$25,$22,$55,$55,$25,$88,$88
|
|
|
|
ceiling_sprite3:
|
|
.byte 9,6
|
|
.byte $88,$88,$22,$ff,$22,$22,$25,$88,$88
|
|
.byte $88,$22,$ff,$2f,$00,$ff,$22,$22,$88
|
|
.byte $28,$22,$f0,$02,$00,$02,$f0,$77,$22
|
|
.byte $55,$22,$f0,$0f,$00,$ff,$20,$77,$22
|
|
.byte $88,$55,$22,$22,$20,$22,$75,$57,$88
|
|
.byte $88,$88,$25,$52,$52,$52,$22,$88,$88
|
|
|
|
ceiling_sprite4:
|
|
.byte 9,6
|
|
.byte $88,$88,$22,$f2,$2f,$22,$22,$88,$88
|
|
.byte $88,$22,$ff,$02,$22,$02,$22,$22,$88
|
|
.byte $58,$f5,$0f,$02,$00,$02,$0f,$72,$22
|
|
.byte $55,$22,$22,$02,$f0,$02,$2f,$77,$22
|
|
.byte $88,$52,$22,$22,$2f,$22,$77,$22,$88
|
|
.byte $88,$88,$55,$52,$52,$27,$22,$88,$88
|
|
|
|
ceiling_sprite5:
|
|
.byte 9,6
|
|
.byte $88,$88,$72,$27,$f2,$d2,$22,$88,$88
|
|
.byte $88,$55,$f2,$2f,$00,$22,$2f,$22,$88
|
|
.byte $28,$f2,$20,$02,$00,$02,$f0,$55,$22
|
|
.byte $55,$22,$20,$f2,$00,$f2,$20,$25,$22
|
|
.byte $88,$55,$22,$2f,$20,$72,$27,$22,$88
|
|
.byte $88,$88,$55,$27,$27,$52,$52,$88,$88
|