;=============================
	; channel_link_book
	;=============================
channel_link_book:

	; clear screen
	lda	#0
	sta	clear_all_color+1

	jsr	clear_all
	jsr	page_flip

	jsr	clear_all
	jsr	page_flip

	;====================================
	; reset parts of level
	;
	; actual game does this?  turns off water
	;	make sure elevator1 is at ground level
	;	book elevator at ground level

	lda	CHANNEL_SWITCHES
	and	#$6b			; reset water faucet, elev1 down
					; book elevator down
	sta	CHANNEL_SWITCHES


	;====================================
	; play link noise

	jsr	play_link_noise

	lda	#CHANNEL_ARRIVAL
	sta	LOCATION

	lda	#DIRECTION_S
	sta	DIRECTION

	lda	#LOAD_CHANNEL
	sta	WHICH_LOAD

set_level_over:
        lda     #$ff
        sta     LEVEL_OVER

        rts

channel_movie:
	.word channel_sprite0,channel_sprite1,channel_sprite2
	.word channel_sprite3,channel_sprite4,channel_sprite5
	.word channel_sprite6,channel_sprite7,channel_sprite8
	.word channel_sprite9,channel_sprite10

channel_sprite0:
	.byte 9,6
	.byte $77,$77,$77,$7f,$77,$55,$77,$7f,$77
	.byte $77,$77,$77,$77,$57,$55,$57,$75,$77
	.byte $77,$ff,$55,$f7,$5f,$55,$ff,$ff,$57
	.byte $57,$ff,$55,$ff,$ff,$55,$55,$ff,$55
	.byte $55,$7f,$75,$77,$77,$55,$77,$77,$55
	.byte $55,$77,$77,$57,$57,$55,$77,$77,$75

channel_sprite1:
	.byte 9,6
	.byte $77,$78,$88,$87,$88,$87,$78,$77,$77
	.byte $77,$77,$77,$78,$88,$87,$88,$78,$77
	.byte $55,$87,$88,$f8,$88,$88,$8f,$55,$ff
	.byte $55,$f8,$58,$ff,$88,$88,$f8,$58,$ff
	.byte $55,$7f,$55,$88,$55,$88,$7f,$55,$7f
	.byte $55,$77,$77,$88,$55,$78,$77,$77,$77

channel_sprite2:
	.byte 9,6
	.byte $87,$88,$87,$87,$87,$87,$87,$87,$87
	.byte $88,$88,$77,$78,$78,$88,$88,$78,$77
	.byte $8f,$88,$88,$8f,$ff,$55,$ff,$55,$ff
	.byte $58,$88,$ff,$58,$88,$85,$ff,$55,$ff
	.byte $55,$88,$8f,$55,$78,$88,$8f,$55,$7f
	.byte $55,$88,$88,$55,$77,$78,$78,$55,$77

channel_sprite3:
	.byte 9,6
	.byte $87,$77,$77,$77,$77,$77,$77,$55,$55
	.byte $88,$88,$88,$87,$87,$77,$77,$55,$55
	.byte $ff,$58,$88,$88,$88,$88,$8f,$85,$ff
	.byte $ff,$55,$ff,$58,$88,$88,$88,$88,$f8
	.byte $88,$55,$77,$55,$77,$78,$78,$55,$77
	.byte $88,$85,$77,$55,$77,$77,$77,$55,$77

channel_sprite4:
	.byte 9,6
	.byte $78,$78,$78,$78,$78,$88,$88,$88,$88
	.byte $78,$58,$78,$58,$78,$58,$78,$58,$58
	.byte $ff,$55,$ff,$55,$ff,$55,$ff,$ff,$55
	.byte $ff,$55,$f5,$55,$ff,$55,$ff,$ff,$55
	.byte $7f,$55,$7f,$55,$7f,$55,$7f,$7f,$55
	.byte $77,$55,$77,$55,$77,$55,$77,$77,$55

channel_sprite5:
	.byte 9,6
	.byte $55,$55,$00,$00,$05,$50,$55,$00,$00
	.byte $05,$05,$05,$00,$50,$05,$55,$00,$70
	.byte $50,$00,$55,$00,$55,$ff,$55,$00,$ff
	.byte $55,$00,$55,$00,$55,$ff,$55,$00,$ff
	.byte $55,$00,$55,$00,$55,$77,$55,$00,$77
	.byte $55,$00,$55,$00,$55,$77,$55,$00,$77

channel_sprite6:
	.byte 9,6
	.byte $00,$00,$00,$50,$00,$00,$00,$00,$00
	.byte $00,$00,$00,$05,$00,$55,$00,$00,$00
	.byte $50,$00,$00,$00,$00,$f5,$55,$00,$00
	.byte $55,$ff,$55,$f0,$00,$ff,$55,$ff,$00
	.byte $55,$7f,$55,$7f,$00,$7f,$55,$ff,$00
	.byte $55,$77,$55,$77,$00,$77,$55,$77,$00

channel_sprite7:
	.byte 9,6
	.byte $55,$75,$00,$50,$00,$00,$55,$00,$00
	.byte $88,$87,$00,$55,$77,$57,$55,$00,$87
	.byte $88,$88,$00,$75,$77,$57,$55,$00,$88
	.byte $08,$58,$00,$78,$57,$87,$85,$80,$58
	.byte $77,$50,$00,$70,$55,$77,$55,$00,$88
	.byte $77,$55,$00,$77,$55,$77,$55,$00,$88

channel_sprite8:
	.byte 9,6
	.byte $88,$8f,$8f,$8f,$ff,$00,$00,$ff,$ff
	.byte $88,$88,$ff,$55,$0f,$00,$00,$00,$ff
	.byte $88,$88,$5f,$55,$5f,$00,$ff,$f0,$f0
	.byte $88,$88,$ff,$55,$ff,$00,$ff,$55,$ff
	.byte $88,$88,$7f,$55,$7f,$00,$7f,$55,$ff
	.byte $88,$88,$87,$85,$77,$00,$77,$55,$77

channel_sprite9:
	.byte 9,6
	.byte $00,$05,$55,$00,$05,$00,$55,$00,$00
	.byte $00,$55,$55,$ff,$55,$00,$55,$55,$00
	.byte $00,$f0,$00,$ff,$55,$00,$55,$55,$00
	.byte $00,$05,$00,$05,$55,$00,$f5,$f5,$00
	.byte $00,$7f,$00,$ff,$55,$00,$ff,$ff,$00
	.byte $00,$77,$00,$77,$55,$00,$77,$77,$00

channel_sprite10:
	.byte 9,6
	.byte $88,$55,$88,$55,$00,$88,$77,$77,$77
	.byte $88,$55,$88,$55,$00,$88,$77,$77,$77
	.byte $88,$55,$88,$55,$00,$88,$77,$77,$77
	.byte $68,$66,$88,$26,$00,$88,$66,$66,$66
	.byte $26,$62,$68,$66,$00,$68,$66,$66,$66
	.byte $66,$62,$26,$26,$00,$66,$66,$66,$66




linking_filename:
	.byte "LINK_NOISE.BTC",0