second: hook up gorilla

demos/second/Makefile

@@ -13,6 +13,7 @@ second_d1.dsk:	QBOOT QLOAD music.inc \
 	MUSIC \
 	./part01_intropan/INTRO \
 	./part05_dot_tunnel/TUNNEL \
+	./part08_gorilla/GORILLA \
 	./part09_leaves/LEAVES \
 	./part10_lens_rotozoom/LENS \
 	./part12_plasma/PLASMA \
@@ -31,7 +32,7 @@ second_d1.dsk:	QBOOT QLOAD music.inc \
 	$(DOS33_RAW) second_d1.dsk 10 0 ./part01_intropan/INTRO	0 0
 #	$(DOS33_RAW) second_d1.dsk 15 0 ./part04_chess_shapes/CHESS	0 0
 #	$(DOS33_RAW) second_d1.dsk 16 0 ./part05_dot_tunnel/TUNNEL	0 0
-#	$(DOS33_RAW) second_d1.dsk 19 0 ./part08_gorilla/GORILLA	0 0
+	$(DOS33_RAW) second_d1.dsk 19 0 ./part08_gorilla/GORILLA	0 0
 	$(DOS33_RAW) second_d1.dsk 21 0 ./part09_leaves/LEAVES		0 0
 	$(DOS33_RAW) second_d1.dsk 23 0 ./part10_lens_rotozoom/LENS		0 0
 	$(DOS33_RAW) second_d1.dsk 24 0 ./part12_plasma/PLASMA		0 0
@@ -44,6 +45,9 @@ second_d1.dsk:	QBOOT QLOAD music.inc \
 
 ####
 
+part08_gorilla/GORILLA:	
+	cd part08_gorilla && make
+
 part09_leaves/LEAVES:	
 	cd part09_leaves && make
 
@@ -293,6 +297,7 @@ generate_common.o:	generate_common.c
 
 clean:
 	rm -f *~ *.o *.lst HELLO SECOND QBOOT QLOAD MUSIC START
+	cd part08_gorilla && make clean
 	cd part09_leaves && make clean
 	cd part10_lens_rotozoom && make clean
 	cd part12_plasma && make clean

demos/second/part08_gorilla/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:	GORILLA
+
+####
+
+GORILLA:	gorilla.o
+	ld65 -o GORILLA gorilla.o -C $(LINKER_SCRIPTS)/apple2_8000.inc
+
+gorilla.o:	gorilla.s \
+	../zx02_optim.s \
+	../hgr_copy_fast.s \
+	../zp.inc ../hardware.inc ../qload.inc \
+	graphics/mntscrl3.hgr.zx02
+	ca65 -o gorilla.o gorilla.s -l gorilla.lst
+
+###
+
+graphics/final3.hgr.zx02:	
+	cd graphics && make
+
+###
+
+
+clean:
+	rm -f *~ *.o *.lst GORILLA
+	cd graphics && make clean

demos/second/part08_gorilla/gorilla.s

@@ -0,0 +1,84 @@
+; Gorilla scroll
+
+; o/~ I'm happy, I'm feeling glad ... o/~
+
+;
+; 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
+
+gorilla_start:
+	;=====================
+	; initializations
+	;=====================
+
+	;===================
+	; Load graphics
+	;===================
+
+	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	#<gorilla_data
+	sta	zx_src_l+1
+	lda	#>gorilla_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
+
+gorilla_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
+
+gorilla_data:
+	.incbin "graphics/mntscrl3.hgr.zx02"
+

demos/second/part08_gorilla/graphics/Makefile

@@ -8,6 +8,9 @@ all:	mntscrl3.hgr.zx02
 
 ####
 
+mntscrl3.hgr:	mntscrl3.png
+	$(PNG_TO_HGR) mntscrl3.png > mntscrl3.hgr
+
 mntscrl3.hgr.zx02:	mntscrl3.hgr
 	$(ZX02) mntscrl3.hgr mntscrl3.hgr.zx02
 

demos/second/start.s

@@ -158,6 +158,17 @@ load_program_loop:
 	;==========================
 	;==========================
 
+	;=======================
+	; run GORILLA (#4)
+	;=======================
+	; copy GORILLA from AUX $7000 to MAIN $8000
+
+	lda	#$70		; AUX src $7000
+	ldy	#$80		; MAIN dest $8000
+	ldx	#32		; 16 pages
+	jsr	copy_aux_main
+	jsr	$8000
+
 	;=======================
 	; run LEAVES (#5)
 	;=======================