dos33fsprogs/demos/second/part15_transmission/spheres.s

; Transmission

;
; by deater (Vince Weaver) <vince@deater.net>

.include "../zp.inc"
.include "../hardware.inc"
.include "../qload.inc"
.include "../music.inc"

mod7_table	= $1c00
div7_table	= $1d00
hposn_low	= $1e00
hposn_high	= $1f00

spheres_start:
	;=====================
	; initializations
	;=====================

	; debug
	lda     #68
        sta     current_pattern_smc+1
        jsr     pt3_set_pattern

	; decompress audio to $6000

	lda	#<transmission_data
	sta	zx_src_l+1
	lda	#>transmission_data
	sta	zx_src_h+1
	lda	#$60
	jsr	zx02_full_decomp

	; play audio

	lda	#$00
	sta	BTC_L
	lda	#$60
	sta	BTC_H

	sei			; stop music

	ldx	#11
	jsr	play_audio


	cli

	;===================
	; Load graphics
	;===================
load_loop:

	bit	SET_GR
	bit	HIRES
	bit	FULLGR
	bit	PAGE1

	lda	#0
	jsr	hgr_page1_clearscreen
	jsr	hgr_page2_clearscreen

	bit	PAGE2

	; load image offscreen $6000

	lda	#<spheres_data
	sta	zx_src_l+1
	lda	#>spheres_data
	sta	zx_src_h+1
	lda	#$60
	jsr	zx02_full_decomp


	lda	#0
	sta	COUNT
	sta	DRAW_PAGE


	; copy to main


	lda	#$60
	jsr	hgr_copy

	bit	PAGE1

spheres_loop:
	lda	#72
	jsr	wait_for_pattern
	bcc	spheres_loop

spheres_done:
	rts


	.include	"../wait_keypress.s"
	.include	"../zx02_optim.s"
;	.include	"../hgr_table.s"
	.include	"../hgr_clear_screen.s"
	.include	"../hgr_copy_fast.s"
	.include	"../audio.s"
	.include	"../irq_wait.s"

spheres_data:
	.incbin "graphics/spheres.hgr.zx02"

transmission_data:
	.incbin "audio/transmission.btc.zx02"