credits: hooked up, no vapor lock

split_screen/credits.s

@@ -113,11 +113,11 @@ no_init_mb:
 
 
 	; test letters
-letter_loop:
+;letter_loop:
-	lda	#80
+;	lda	#80
-	jsr	WAIT
+;	jsr	WAIT
-	jsr	move_letters
+;	jsr	move_letters
-	jmp	letter_loop
+;	jmp	letter_loop
 
 	; Wait
 
@@ -471,6 +471,7 @@ loop6:
 
 
 
+	jsr	move_letters
 
 	; Blanking time:	 4550
 	; JMP at end		   -3
@@ -671,74 +672,81 @@ green_loop:
 
 ; 4 + (40*55) + 6 - 1
 
+	;===============================================
+	; Move Letters
+	;===============================================
+	;
 
 
 move_letters:
 	ldy	#0							; 2
 	lda	(LETTERL),Y						; 5
-	sta	LETTER
+	sta	LETTER							; 3
 	bmi	letter_special
-
+									; 2
-	lda	LETTERY
+	lda	LETTERY							; 3
-	asl
+	asl								; 2
-	tay
+	tay								; 2
-	lda	gr_offsets,Y	; lookup low-res memory address		; 4
+	lda	gr_offsets,Y	; lookup low-res memory address		; 5
 	sta	BASL		; store out low byte of addy		; 3
-	lda	gr_offsets+1,Y	; look up high byte			; 4
+	lda	gr_offsets+1,Y	; look up high byte			; 5
 	sta	BASH							; 3
 
-	ldy	#0							; 2
+	ldy	#0		; erase old char with space		; 2
-	lda	#' '|$80						; 5
+	lda	#' '|$80						; 2
-	ldy	LETTERX
+	ldy	LETTERX							; 3
-	sta	(BASL),Y
+	sta	(BASL),Y						; 6
 
-	dey
+	dey			; draw new char				; 2
-	sty	LETTERX
+	sty	LETTERX							; 3
-	lda	LETTER
+	lda	LETTER							; 3
-	ora	#$80
+	ora	#$80							; 2
-	ldy	LETTERX
+	ldy	LETTERX							; 3
-	sta	(BASL),Y
+	sta	(BASL),Y						; 6
 
-	lda	LETTERX
+	lda	LETTERX							; 3
-	cmp	LETTERD
+	cmp	LETTERD							; 3
 	bne	letter_ok
-
+									; 2
 letter_next:
-	clc
+	clc								; 2
-	lda	LETTERL
+	lda	LETTERL							; 3
-	adc	#1
+	adc	#1							; 2
-	sta	LETTERL
+	sta	LETTERL							; 3
-	lda	LETTERH
+	lda	LETTERH							; 3
-	adc	#0
+	adc	#0							; 2
-	sta	LETTERH
+	sta	LETTERH							; 3
-	inc	LETTERD
+	inc	LETTERD							; 5
-	lda	#39
+	lda	#39							; 2
-	sta	LETTERX
+	sta	LETTERX							; 3
 
 letter_ok:
-	rts
+									; 3
+	rts								; 6
 letter_special:
-	cmp	#$ff
+									; 3
+	cmp	#$ff							; 2
 	beq	letter_done
+									; 2
+	ldy	#1							; 2
+	lda	(LETTERL),Y						; 5
+	sta	LETTERY							; 3
 
-	ldy	#1
+	iny								; 2
-	lda	(LETTERL),Y
+	lda	(LETTERL),Y						; 5
-	sta	LETTERY
+	sta	LETTERD							; 3
 
-	iny
+	clc								; 2
-	lda	(LETTERL),Y
+	lda	LETTERL							; 3
-	sta	LETTERD
+	adc	#3							; 2
-
+	sta	LETTERL							; 3
-	clc
+	lda	LETTERH							; 3
-	lda	LETTERL
+	adc	#0							; 2
-	adc	#3
+	sta	LETTERH							; 3
-	sta	LETTERL
-	lda	LETTERH
-	adc	#0
-	sta	LETTERH
 
 letter_done:
-	rts
+									;3/0
+	rts								; 6
 
 letters:
 	;.byte	1,15