second: add placeholder spheres code

demos/second/Makefile

@@ -21,9 +21,20 @@ second_d1.dsk:	QBOOT QLOAD MUSIC music.inc \
 	$(DOS33_RAW) second_d1.dsk 3 0 MUSIC	0 0
 	$(DOS33_RAW) second_d1.dsk 8 0 ./part01_intropan/INTRO	0 0
 	$(DOS33_RAW) second_d1.dsk 11 0 ./part05_dot_tunnel/TUNNEL	0 0
-	$(DOS33_RAW) second_d1.dsk 13 0 ./part16_ocean/OCEAN	0 0
+#	$(DOS33_RAW) second_d1.dsk 13 0 ./part16_ocean/OCEAN	0 0
+	$(DOS33_RAW) second_d1.dsk 33 0 ./part15_transmission/SPHERES	0 0
 	$(DOS33_RAW) second_d1.dsk 34 0 ./part17_polar/POLAR	0 0
 
+
+####
+
+part15_transmission/SPHERES:	
+	cd part15_transmission && make
+
+part17_polar/POLAR:	
+	cd part17_polar && make
+
+
 second_d2.dsk:	QBOOT QLOAD2 MUSIC2 music2.inc \
 	./part18_3d/THREED \
 	./part19_nuts/NUTS \
@@ -233,6 +244,8 @@ generate_common.o:	generate_common.c
 
 clean:
 	rm -f *~ *.o *.lst HELLO SECOND QBOOT QLOAD MUSIC START
+	cd part15_transmission && make clean
+	cd part17_polar && make clean
 	cd part18_3d && make clean
 	cd part19_nuts && make clean
 	cd part20_credits && make clean

demos/second/NOTES

@@ -1,5 +1,7 @@
 Disk Usage:
 
+DISK1				Track	Sectors		AUX
+~~~~~~
 fake_bios:	4k	90%
 intro_pan:	10k	33%
 chess_shapes:	12k	5%
@@ -11,9 +13,9 @@ lens/rotozoom:	4k	50%
 plasma:		4k?	25%
 plasmacube:	4k?	10%
 dotbounce:	4k?	0%
-transmission:	8k?	0%
-ocean:		24k	90%
-polar:		5k	50%
+transmission:	4k?	0%	33	16		$2000-$2FFF
+ocean:		24k		XX	96		???
+polar:		4k		34	16		$1000-$1FFF
 	=========================
 
 DISK2:				Track	Sectors		AUX

demos/second/part15_transmission/Makefile

@@ -0,0 +1,34 @@
+include ../../../Makefile.inc
+
+DOS33 = ../../../utils/dos33fs-utils/dos33
+DOS33_RAW = ../../../utils/dos33fs-utils/dos33_raw
+EMPTY_DISK = ../../../empty_disk/empty.dsk
+TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
+LINKER_SCRIPTS = ../../../linker_scripts/
+
+
+all:	SPHERES
+
+####
+
+SPHERES:	spheres.o
+	ld65 -o SPHERES spheres.o -C $(LINKER_SCRIPTS)/apple2_8000.inc
+
+spheres.o:	spheres.s \
+	../zx02_optim.s \
+	../hgr_copy_fast.s \
+	../zp.inc ../hardware.inc ../qload.inc \
+	graphics/spheres.hgr.zx02
+	ca65 -o spheres.o spheres.s -l spheres.lst
+
+###
+
+graphics/fc_iipix.hgr.zx02:	
+	cd graphics && make
+
+###
+
+
+clean:
+	rm -f *~ *.o *.lst SPHERES
+	cd graphics && make clean

demos/second/part15_transmission/graphics/Makefile

@@ -0,0 +1,20 @@
+include ../../../../Makefile.inc
+
+ZX02 = ~/research/6502_compression/zx02.git/build/zx02
+PNG_TO_HGR = ../../../../utils/hgr-utils/png2hgr
+PNG2GR = ../../../../utils/gr-utils/png2gr
+
+all:	spheres.hgr.zx02
+
+####
+
+spheres.hgr:	spheres.png
+	$(PNG_TO_HGR) spheres.png > spheres.hgr
+
+spheres.hgr.zx02:	spheres.hgr
+	$(ZX02) spheres.hgr spheres.hgr.zx02
+
+####
+
+clean:
+	rm -f *~

demos/second/part15_transmission/spheres.s

@@ -0,0 +1,85 @@
+; Polar Bear
+
+; do the animated bounce if possible
+
+;
+; by deater (Vince Weaver) <vince@deater.net>
+
+.include "../zp.inc"
+.include "../hardware.inc"
+.include "../qload.inc"
+
+mod7_table	= $1c00
+div7_table	= $1d00
+hposn_low	= $1e00
+hposn_high	= $1f00
+
+polar_start:
+	;=====================
+	; initializations
+	;=====================
+
+	;===================
+	; 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	#<polar_data
+	sta	zx_src_l+1
+	lda	#>polar_data
+	sta	zx_src_h+1
+	lda	#$60
+	jsr	zx02_full_decomp
+
+
+	lda	#0
+	sta	COUNT
+	sta	DRAW_PAGE
+
+ship_sprite_loop:
+
+	lda	#$60
+	jsr	hgr_copy
+
+	bit	PAGE1
+
+	jsr	wait_until_keypress
+
+polar_done:
+	rts
+
+
+.align $100
+	.include	"../wait_keypress.s"
+	.include	"../zx02_optim.s"
+;	.include	"../hgr_table.s"
+	.include	"../hgr_clear_screen.s"
+	.include	"../hgr_copy_fast.s"
+
+
+
+	; wait A * 1/50s
+wait_irq:
+;	lda	#50
+	sta	IRQ_COUNTDOWN
+wait_irq_loop:
+	lda	IRQ_COUNTDOWN
+	bne	wait_irq_loop
+	rts
+
+polar_data:
+	.incbin "graphics/polar2.hgr.zx02"
+