dos33fsprogs/mist/link_book_mist_dock.s

57 lines
739 B
ArmAsm
Raw Normal View History

;=============================
; mist_link_book
;=============================
mist_link_book:
; clear screen
lda #0
sta clear_all_color+1
jsr clear_all
jsr page_flip
jsr clear_all
jsr page_flip
2020-03-23 23:16:38 +00:00
;.if 0
; 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 #MIST_ARRIVAL_DOCK
sta LOCATION
lda #LOAD_MIST ; start at Mist
sta WHICH_LOAD
2020-03-23 23:16:38 +00:00
;.endif
.if 0
lda #MECHE_INSIDE_GEAR
sta LOCATION
lda #LOAD_MECHE
sta WHICH_LOAD
lda #DIRECTION_E
sta DIRECTION
.endif
.if 0
lda #MECHE_ROTATE_CONTROLS
sta LOCATION
lda #LOAD_MECHE
sta WHICH_LOAD
lda #DIRECTION_E
sta DIRECTION
.endif
lda #$ff
sta LEVEL_OVER
rts