mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-02 16:29:33 +00:00
273 lines
8.1 KiB
ArmAsm
273 lines
8.1 KiB
ArmAsm
;=============================
|
|
; mist_link_book
|
|
;=============================
|
|
mist_link_book:
|
|
|
|
; turn off music
|
|
lda SOUND_STATUS
|
|
and #SOUND_MOCKINGBOARD
|
|
beq skip_turn_off_music
|
|
|
|
; disable interrupts
|
|
jsr mockingboard_disable_interrupt
|
|
|
|
jsr clear_ay_both
|
|
|
|
skip_turn_off_music:
|
|
|
|
; load link noise if IIc
|
|
; we have to load it late due to IIc needing ROM copy in AUX
|
|
; until done playing music
|
|
; this makes an awkward pause but seems best compromise
|
|
|
|
lda APPLEII_MODEL
|
|
cmp #'C'
|
|
bne link_noise_already_loaded
|
|
|
|
jsr load_linking_noise
|
|
link_noise_already_loaded:
|
|
|
|
|
|
; clear screen
|
|
|
|
; clear to black
|
|
lda #$80
|
|
jsr BKGND0
|
|
|
|
lda #0
|
|
sta clear_all_color+1
|
|
|
|
jsr clear_all
|
|
; jsr page_flip
|
|
|
|
; jsr clear_all
|
|
; jsr page_flip
|
|
|
|
; play sound effect
|
|
|
|
jsr play_link_noise
|
|
|
|
lda #MIST_ARRIVAL_DOCK
|
|
sta LOCATION
|
|
|
|
lda #LOAD_MIST ; start at Mist
|
|
sta WHICH_LOAD
|
|
|
|
lda #$ff
|
|
sta LEVEL_OVER
|
|
|
|
rts
|
|
|
|
|
|
dock_animation_sprites:
|
|
.word dock_animate_sprite3 ; 26
|
|
.word dock_animate_sprite4 ; 27
|
|
.word dock_animate_sprite5 ; 28
|
|
.word dock_animate_sprite6 ; 29
|
|
.word dock_animate_sprite7 ; 30
|
|
.word dock_animate_sprite8 ; 31
|
|
.word dock_animate_sprite9 ; 32
|
|
.word dock_animate_sprite10 ; 33
|
|
.word dock_animate_sprite11 ; 34
|
|
.word dock_animate_sprite12 ; 35
|
|
.word dock_animate_sprite13 ; 36
|
|
|
|
|
|
; water1
|
|
dock_animate_sprite1:
|
|
.byte $00,$00,$00,$00,$00,$D5,$AA,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$D5,$AA,$00,$00
|
|
.byte $AA,$00,$AA,$00,$AA,$00,$AA,$D5,$00
|
|
.byte $00,$D5,$00,$D5,$00,$D5,$AA,$00,$AA
|
|
.byte $AA,$00,$AA,$00,$AA,$00,$AA,$D5,$00
|
|
.byte $00,$D5,$00,$D5,$00,$D5,$AA,$00,$AA
|
|
.byte $AA,$00,$AA,$00,$AA,$00,$AA,$D5,$00
|
|
.byte $00,$D5,$00,$D5,$00,$D5,$AA,$00,$AA
|
|
.byte $AA,$00,$AA,$00,$AA,$00,$AA,$D5,$00
|
|
.byte $00,$D5,$00,$D5,$00,$D5,$AA,$00,$AA
|
|
.byte $AA,$00,$AA,$00,$AA,$00,$AA,$D5,$00
|
|
.byte $00,$D5,$00,$D5,$00,$D5,$AA,$00,$00
|
|
|
|
; water2
|
|
dock_animate_sprite2:
|
|
.byte $80,$80,$80,$80,$80,$D5,$AA,$80,$80
|
|
.byte $80,$80,$80,$80,$80,$D5,$AA,$80,$80
|
|
.byte $80,$D5,$80,$D5,$80,$D5,$AA,$80,$AA
|
|
.byte $AA,$80,$AA,$80,$AA,$80,$AA,$D5,$80
|
|
.byte $80,$D5,$80,$D5,$80,$D5,$AA,$80,$AA
|
|
.byte $AA,$80,$AA,$80,$AA,$80,$AA,$D5,$80
|
|
.byte $80,$D5,$80,$D5,$80,$D5,$AA,$80,$AA
|
|
.byte $AA,$80,$AA,$80,$AA,$80,$AA,$D5,$80
|
|
.byte $80,$D5,$80,$D5,$80,$D5,$AA,$80,$AA
|
|
.byte $AA,$80,$AA,$80,$AA,$80,$AA,$D5,$80
|
|
.byte $80,$D5,$80,$D5,$80,$D5,$AA,$80,$80
|
|
.byte $AA,$80,$AA,$80,$AA,$80,$AA,$80,$80
|
|
|
|
|
|
; water tilt_high
|
|
dock_animate_sprite3:
|
|
.byte $AA,$FD,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $AA,$D5,$AA,$D5,$FA,$FF,$FF,$FF,$FF
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$F5,$FF
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
|
|
; water tilt_low
|
|
dock_animate_sprite4:
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $AA,$FD,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $AA,$D5,$AA,$D5,$FA,$FF,$FF,$FF,$FF
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$F5,$FF
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
|
|
; water level
|
|
dock_animate_sprite5:
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
|
|
; water tilt_island
|
|
dock_animate_sprite6:
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$BF,$FC,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$F1,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$80,$80,$F8,$FF,$FF,$D5,$AA
|
|
.byte $FF,$80,$80,$80,$A0,$D5,$AA,$D5,$AA
|
|
.byte $9F,$80,$A8,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
|
|
; island1
|
|
dock_animate_sprite7:
|
|
.byte $FF,$FF,$FF,$FF,$FD,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$75,$FF,$FF,$FF,$FF
|
|
.byte $FF,$FF,$FF,$FF,$55,$FF,$2A,$FF,$FF
|
|
.byte $FF,$FF,$5D,$FF,$55,$2A,$2A,$FF,$2A
|
|
.byte $FF,$2E,$55,$2E,$55,$2A,$2A,$80,$D5
|
|
.byte $FF,$2A,$55,$2A,$55,$2A,$80,$80,$D5
|
|
.byte $55,$2A,$55,$2A,$55,$2A,$80,$FF,$D5
|
|
.byte $55,$2A,$55,$2A,$55,$2A,$FF,$D5,$AA
|
|
.byte $55,$2A,$D5,$AA,$D5,$AA,$D5,$D5,$AA
|
|
.byte $D5,$2A,$D5,$AA,$D5,$AA,$D5,$D5,$AA
|
|
.byte $D5,$D5,$AA,$D5,$D5,$AA,$AA,$D5,$AA
|
|
.byte $AA,$D5,$AA,$D5,$AA,$D5,$AA,$D5,$AA
|
|
|
|
; island2
|
|
dock_animate_sprite8:
|
|
.byte $F7,$7F,$F7,$7F,$55,$AB,$FF,$7F,$7F
|
|
.byte $55,$7F,$55,$7F,$55,$AA,$F5,$7F,$7F
|
|
.byte $55,$3A,$55,$35,$55,$D5,$D5,$7F,$7F
|
|
.byte $55,$2A,$2A,$2D,$55,$5D,$C0,$7F,$2A
|
|
.byte $55,$2A,$55,$2D,$55,$7F,$80,$AA,$D5
|
|
.byte $55,$2A,$55,$2D,$55,$55,$2A,$7F,$D5
|
|
.byte $55,$AA,$55,$2A,$55,$2A,$2A,$AA,$D5
|
|
.byte $D5,$2A,$55,$2A,$55,$55,$2A,$AA,$D5
|
|
.byte $55,$2A,$55,$2A,$55,$55,$FF,$AA,$D5
|
|
.byte $55,$2A,$55,$2A,$55,$6A,$BF,$D5,$D2
|
|
.byte $55,$2A,$55,$2A,$55,$D5,$DA,$D5,$AA
|
|
.byte $55,$2A,$55,$2A,$55,$D5,$AA,$D5,$AA
|
|
|
|
; island3
|
|
dock_animate_sprite9:
|
|
.byte $FF,$FF,$FF,$FF,$03,$55,$D5,$7F,$7F
|
|
.byte $FF,$3A,$5D,$55,$00,$55,$D5,$7F,$7F
|
|
.byte $FF,$2A,$55,$55,$2A,$AA,$D5,$7F,$2A
|
|
.byte $DF,$2A,$55,$FF,$55,$D5,$D5,$AA,$00
|
|
.byte $55,$2A,$FF,$2A,$2A,$D5,$2A,$AA,$00
|
|
.byte $55,$2A,$2A,$2A,$0A,$11,$2A,$00,$00
|
|
.byte $55,$2A,$2A,$2A,$55,$55,$00,$00,$D5
|
|
.byte $55,$FF,$55,$2A,$55,$00,$55,$AA,$D5
|
|
.byte $FF,$2A,$55,$2A,$00,$00,$FF,$D5,$D5
|
|
.byte $55,$AA,$55,$2A,$00,$2A,$FF,$D5,$AA
|
|
.byte $D5,$2A,$55,$2A,$D5,$FF,$AA,$D5,$AA
|
|
.byte $55,$2A,$55,$2A,$D5,$D5,$D5,$D5,$AA
|
|
|
|
|
|
; island4
|
|
dock_animate_sprite10:
|
|
.byte $80,$AA,$D5,$7F,$7F,$55,$7F,$7F,$7F
|
|
.byte $F5,$AA,$AA,$7F,$2F,$55,$FA,$7F,$7F
|
|
.byte $80,$55,$AA,$55,$D5,$FF,$B5,$D5,$7F
|
|
.byte $8C,$15,$22,$54,$FD,$AA,$B5,$D5,$AA
|
|
.byte $55,$15,$22,$54,$FD,$AA,$D5,$D5,$AA
|
|
.byte $55,$55,$22,$55,$FD,$AA,$D5,$D5,$AA
|
|
.byte $55,$AA,$2A,$FE,$FF,$D5,$AA,$D5,$AA
|
|
.byte $D5,$2A,$55,$3E,$FF,$D5,$AA,$D5,$AA
|
|
.byte $55,$AA,$55,$3E,$FF,$D5,$AA,$D5,$AA
|
|
.byte $55,$2A,$F5,$EB,$BF,$D5,$AA,$D5,$AA
|
|
.byte $55,$2A,$75,$EB,$BF,$AD,$A5,$D5,$AA
|
|
.byte $55,$2A,$55,$6A,$BF,$D5,$AA,$D5,$AA
|
|
|
|
; island5
|
|
dock_animate_sprite11:
|
|
.byte $B5,$F5,$FF,$D7,$2F,$75,$FF,$FF,$FF
|
|
.byte $AA,$D5,$6A,$AA,$F5,$AB,$FF,$FF,$FF
|
|
.byte $2A,$55,$2A,$8A,$F5,$AB,$FD,$FF,$FF
|
|
.byte $22,$80,$22,$8A,$7F,$A2,$AD,$D5,$FD
|
|
.byte $22,$80,$22,$A2,$DF,$8A,$B5,$B5,$AA
|
|
.byte $2A,$80,$2A,$7F,$D7,$8A,$B5,$ED,$AA
|
|
.byte $2D,$55,$2A,$AF,$FF,$D5,$AA,$ED,$AA
|
|
.byte $55,$2A,$75,$AF,$FF,$D5,$AA,$D2,$AA
|
|
.byte $D5,$2A,$FD,$FB,$FF,$D5,$DA,$D5,$AA
|
|
.byte $D5,$FF,$FF,$FB,$FF,$D5,$DA,$D5,$AA
|
|
.byte $55,$FA,$FF,$7A,$FF,$B5,$D5,$D6,$AA
|
|
.byte $55,$2A,$DF,$7A,$FF,$D5,$AD,$D5,$AA
|
|
|
|
; island6
|
|
dock_animate_sprite12:
|
|
.byte $80,$80,$FF,$FF,$AF,$FF,$FF,$FF,$FF
|
|
.byte $A0,$84,$FF,$FA,$2A,$55,$FF,$FF,$FF
|
|
.byte $A0,$84,$DF,$AA,$F5,$A8,$F4,$FF,$FF
|
|
.byte $A0,$84,$D4,$FF,$FF,$AA,$F4,$FF,$FF
|
|
.byte $80,$D0,$94,$FA,$80,$AA,$A4,$D5,$AA
|
|
.byte $2A,$15,$F8,$FF,$D5,$88,$D5,$DA,$AA
|
|
.byte $80,$80,$F8,$FF,$D5,$88,$D5,$DA,$AA
|
|
.byte $55,$2A,$FF,$2A,$D7,$88,$D4,$D5,$AA
|
|
.byte $55,$FF,$57,$FA,$FF,$D5,$AA,$D5,$AA
|
|
.byte $75,$FF,$57,$FA,$D5,$A5,$AA,$D5,$AA
|
|
.byte $FD,$FF,$55,$AA,$D5,$A5,$D5,$D5,$D2
|
|
.byte $FF,$AF,$55,$AA,$D5,$D5,$AA,$D5,$AD
|
|
|
|
; island7
|
|
dock_animate_sprite13:
|
|
.byte $2A,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $2E,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
|
.byte $2A,$FF,$FF,$FF,$7A,$FF,$FF,$FF,$FF
|
|
.byte $80,$FC,$AF,$DF,$2A,$94,$FF,$FF,$FF
|
|
.byte $80,$E0,$97,$8A,$F0,$8A,$F1,$FF,$FF
|
|
.byte $80,$80,$97,$8F,$80,$8A,$F1,$FF,$FF
|
|
.byte $80,$80,$80,$FA,$C5,$AA,$94,$AA,$FF
|
|
.byte $FF,$2A,$55,$FF,$D7,$AA,$94,$8A,$AA
|
|
.byte $55,$2A,$55,$AA,$97,$88,$D4,$D5,$A8
|
|
.byte $55,$2A,$55,$FF,$FF,$BF,$A9,$AA,$85
|
|
.byte $55,$2A,$FD,$FF,$FF,$FF,$A9,$D5,$8A
|
|
.byte $55,$2A,$FF,$FF,$FF,$FF,$85,$D5,$AA
|
|
|