Merged in DR v1.4.1.6

fastcredits.asm

@@ -1,21 +1,51 @@
+FastCreditsActive = $50
+
+;===================================================================================================
+
+
+FlagFastCredits:
+	LDA.b #$40
+	TRB.b FastCreditsActive
+
+	AND.b Joy1B_All
+	TSB.b FastCreditsActive
+
+	LDA.b #$20
+	AND.b Joy1A_New
+	EOR.b FastCreditsActive
+	STA.b FastCreditsActive
+
+	LDA.b FastCreditsActive
+	AND.b #$60
+	BEQ .slow
+
+	LDA.b #$01
+	TSB.b FastCreditsActive
+
+.slow
+	LDA.b GameSubMode
+	ASL
+	TAX
+
+	RTL
+
 ;===================================================================================================
 
 FastCreditsCutsceneTimer:
-	BIT.b $F2-1 : BVC .slow
+	LDA.b ScrapBufferBD+$0B
+	INC
 
-	LDA.w #$0001 : STA.b $50
+	JSR IsFastCredits
+	BCC .slow
+
+	INC
+	INC
+	INC
 
-	LDA.b $C8
-	CLC
-	ADC.w #$0004
 	AND.w #$FFFE
-	STA.b $C8
-	SEP #$20
-	RTL
-	
 
 .slow
-	INC.b $C8
+	STA.b ScrapBufferBD+$0B
 
 	SEP #$20
 	RTL
@@ -49,18 +79,20 @@ FastCreditsCutsceneScrollY:
 
 FastCreditsCutsceneScroll:
 	LDA.w $00E2,Y
-	CMP.l $0EC308,X ; compare to target
+	CMP.l Credits_ScrollScene_target_y,X ; compare to target
 
-	ROL.b $00 ; put carry in here
-	LDA.l $0EC348,X ; get movement
+	ROL.b Scrap00 ; put carry in here
+	LDA.l Credits_ScrollScene_movement_y,X ; get movement
 	BPL ++ ; if positive, leave saved carry alone
-	INC.b $00 ; otherwise, flip it
-++	ROR.b $00 ; recover carry
+	INC.b Scrap00 ; otherwise, flip it
+++	ROR.b Scrap00 ; recover carry
 
 	BCC ++ ; scroll if carry not set
+
 	LDA.w #$0000
 
-++	BIT.b $F2-1 : BVC .slow ; check for X held
+++	JSR IsFastCredits
+	BCC .slow
 
 	AND.w #$FFFF ; get sign of A
 	BPL .positive
@@ -77,21 +109,14 @@ FastCreditsCutsceneScroll:
 	ASL
 	ASL
 
-
-
 .slow
 	RTS
 
-
-
-
-
-
 FastCreditsCutsceneUnderworldX:
 	JSR FastCreditsCutsceneScrollX
 	CLC
-	ADC.b $E2
-	STA.b $E2
+	ADC.b BG2H
+	STA.b BG2H
 
 	RTL
 
@@ -99,26 +124,34 @@ FastCreditsCutsceneUnderworldX:
 FastCreditsCutsceneUnderworldY:
 	JSR FastCreditsCutsceneScrollY
 	CLC
-	ADC.b $E8
-	STA.b $E8
+	ADC.b BG2V
+	STA.b BG2V
 
 	RTL
 
 
 FastTextScroll:
-	LDA.b $1A
-	BIT.b $F2-1 : BVC .slow
+        LDA.b FrameCounter
+        SEP #$10
+	JSR IsFastCredits
+	BCC .slow
 
 	AND.w #$0000
+        REP #$10
 	RTL
 
 .slow
 	AND.w #$0003
+        REP #$10
 	RTL
 
 DumbFlagForMSU:
 	STA.l CurrentWorld
-	STZ.b $50
+	STZ.b FastCreditsActive
 	RTL
 
+IsFastCredits:
+	LDY.b FastCreditsActive
+        CPY.b #$20
+	RTS