From 9a2526b1ffcf65d037bbb923ff8679c17c4ffd75 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 17 Mar 2018 22:21:13 -0400
Subject: [PATCH] mode7: some polishing of credits

---
 mode7_demo/credits.s        |  8 +++++---
 mode7_demo/starfield_demo.s | 23 ++++++++++++++++++-----
 2 files changed, 23 insertions(+), 8 deletions(-)

diff --git a/mode7_demo/credits.s b/mode7_demo/credits.s
index e2dd840e..42016803 100644
--- a/mode7_demo/credits.s
+++ b/mode7_demo/credits.s
@@ -1,6 +1,6 @@
 ; Closing Credits
 
-NUM_CREDITS	EQU 16
+NUM_CREDITS	EQU 17
 
 	;===================
 	; init credits
@@ -89,7 +89,7 @@ long_loop:
 	lda	#$ff
 	bne	store_loop
 short_loop:
-	lda	#$30		; set delay to show the credit before
+	lda	#$40		; set delay to show the credit before
 store_loop:
 	sta	LOOP		; continuing
 
@@ -295,10 +295,12 @@ credits:
 .asciiz	"ECE GRAD BOWLING"
 .byte 13		; 11
 .asciiz	"CORNELL GCF"
-.byte 9		; 21
+.byte 8		; 21
 .asciiz	"ALL MSTIES EVERYWHERE"
 .byte 17		; 3
 .asciiz	"..."
+.byte 17		; 3
+.asciiz	"..."
 
 thankz:
 .asciiz	"SPECIAL THANKS TO:"
diff --git a/mode7_demo/starfield_demo.s b/mode7_demo/starfield_demo.s
index f6375918..1ea6c4ae 100644
--- a/mode7_demo/starfield_demo.s
+++ b/mode7_demo/starfield_demo.s
@@ -5,7 +5,6 @@
 NUMSTARS	EQU	16
 
 
-
 ;		State			Number	Speed	BGColor CLS
 ;		===========		======	=====	=======	===
 ;		Ship at rest		0	32	black	1
@@ -45,7 +44,7 @@ starfield_demo:
 	sta	STATE
 	; always multiply with low byte as zero
 	sta	NUM2L							; 3
-	sta	FRAME_COUNT
+;	sta	FRAME_COUNT
 
 	lda	#32
 	sta	SPEED
@@ -210,6 +209,7 @@ speed_table:
 	;=====================
 	;=====================
 	;=====================
+
 starfield_credits:
 
 	;================================
@@ -225,6 +225,9 @@ starfield_credits:
 	lda	#4							; 2
 	sta	DRAW_PAGE
 	jsr	credits_draw_text_background
+	lda	#128
+	sta	SPEED
+
 
 	;===============
 	; Init Variables
@@ -235,7 +238,7 @@ starfield_credits:
 	sta	SCREEN_Y
 	; always multiply with low byte as zero
 	sta	NUM2L							; 3
-	sta	FRAME_COUNT
+;	sta	FRAME_COUNT
 	sta	YY		; which credit
 	sta	LOOP		; delay loop
 
@@ -281,8 +284,15 @@ starcredits_loop:
 	;====================
 	; draw the rasterbars
 	;====================
+	lda	SPEED
+	bne	done_rasters
+
+	lda	YY
+	cmp	#16
+	beq	done_rasters
 
 	jsr	draw_rasters
+done_rasters:
 
 	;====================
 	; draw the credits
@@ -297,10 +307,13 @@ starcredits_loop:
 
 	jsr	page_flip						; 6
 
-	inc	FRAME_COUNT
+	lda	SPEED
+	beq	no_speed
+	dec	SPEED
+no_speed:
 
 	lda	YY
-	cmp	#15				; NUMBER OF CREDITS
+	cmp	#17				; NUMBER OF CREDITS
 	beq	done_star_credits
 
 	;==================