second: use page flipping in thumbnail credits

demos/second/part20_credits/Makefile

@@ -11,7 +11,7 @@ all:	CREDITS
 ####
 
 CREDITS:	credits.o
-	ld65 -o CREDITS credits.o -C $(LINKER_SCRIPTS)/apple2_6000.inc
+	ld65 -o CREDITS credits.o -C $(LINKER_SCRIPTS)/apple2_8000.inc
 
 credits.o:	credits.s vertical_scroll.s ../zx02_optim.s \
 	thumbnail_credits.s \

demos/second/part20_credits/thumbnail_credits.s

@@ -9,26 +9,54 @@
 ;=====================
 ;=====================
 
+; $2000-$3FFF = hires page1
+; $4000-$5FFF = hires page2
+; $6000-$7FFF = temp graphics
+; $8000-$BFFF = code
+
+
 thumbnail_credits:
 
+	lda	#0				; clear screen
+	jsr	hgr_page1_clearscreen
+	lda	#0				; clear screen
+	jsr	hgr_page2_clearscreen
+
+	bit	PAGE2				; start viewing page2
+
 	; load the logo set 1
 
 	lda	#<summary1_data
 	sta	zx_src_l+1
 	lda	#>summary1_data
 	sta	zx_src_h+1
-	lda	#$40
+	lda	#$60
 	jsr	zx02_full_decomp
 
 
 	lda	#0
 	sta	COUNT
 
+	lda	#$0		; draw to PAGE1 to start (so end credits)
+	sta	DRAW_PAGE	; ends on PAGE1
+
 credits_logo_outer_outer:
 
+	lda	DRAW_PAGE
+	and	#$20
+	bne	cloo_page2
+
+cloo_page1:
 	lda	#0				; clear screen
 	jsr	hgr_page1_clearscreen
+	jmp	cloo_write_text
 
+cloo_page2:
+	lda	#0				; clear screen
+	jsr	hgr_page2_clearscreen
+
+
+cloo_write_text:
 
         lda     #12
         sta     CH
@@ -54,6 +82,9 @@ credits_logo_outer_outer:
 	tax
 	pla
 
+	;========================
+	; draw the thumbnail
+	;  TODO: scroll it in
 
 
 	ldx	COUNT				; patch the source offsets
@@ -74,7 +105,9 @@ credits_logo_outer:
 
 	; setup high
 
+	clc
 	lda	hposn_high+16,X
+	adc	DRAW_PAGE
 	sta	OUTH
 
 
@@ -94,7 +127,7 @@ clo_smc1:
 	sta	INL
 
 	lda	hposn_high,X
-	eor	#$60
+	eor	#$40			; $2000 -> $6000  0010 -> 0110
 	sta	INH
 	ldx	XSAVE
 
@@ -108,6 +141,20 @@ credits_logo_inner:
 	dex
 	bpl	credits_logo_outer
 
+	lda	DRAW_PAGE
+	eor	#$20
+	sta	DRAW_PAGE
+
+	bne	cloo_disp_page1
+
+cloo_disp_page2:
+	bit	PAGE2
+	jmp	cloo_done_flip
+
+cloo_disp_page1:
+	bit	PAGE1
+
+cloo_done_flip:
 
 	jsr	wait_until_keypress
 
@@ -123,7 +170,7 @@ credits_logo_inner:
 	sta	zx_src_l+1
 	lda	#>summary2_data
 	sta	zx_src_h+1
-	lda	#$40
+	lda	#$60
 	jsr	zx02_full_decomp
 	lda	#0
 skip_summary2:

demos/second/start2.s

@@ -140,16 +140,16 @@ load_loop:
 	;=======================
 
 	;============================================
-	; copy CREDITS from AUX $2000 to MAIN $6000
+	; copy CREDITS from AUX $2000 to MAIN $8000
 
 	lda	#$20		; AUX src $2000
-	ldy	#$60		; MAIN dest $6000
+	ldy	#$80		; MAIN dest $8000
 	ldx	#64		; 64 pages
 	jsr	copy_aux_main
 
 	; run credits
 
-	jsr	$6000
+	jsr	$8000