shithub: pokecrystal

Download patch

ref: 4a04a09a6b7a80f97392563b1b1b115fa1cf6316
parent: 844546f8495030b66e79aa30d96405065e2019dd
author: yenatch <yenatch@gmail.com>
date: Sat Sep 7 23:12:48 EDT 2013

labels for cgb double speed functions

--- a/common/init.asm
+++ b/common/init.asm
@@ -156,7 +156,7 @@
 	ld a, [hCGB]
 	and a
 	jr z, .asm_22b
-	call Function2ff7
+	call NormalSpeed
 .asm_22b
 
 	xor a
--- a/main.asm
+++ b/main.asm
@@ -827,20 +827,27 @@
 ; 2fef
 
 
-Function2fef: ; 2fef
+; The CGB hardware introduces Double Speed Mode.
+; While active, the clock speed is doubled.
+
+; The hardware can switch between normal speed
+; and double speed at any time, but LCD output
+; collapses during the switch.
+
+DoubleSpeed: ; 2fef
 	ld hl, rKEY1
 	bit 7, [hl]
-	jr z, Function2ffd
+	jr z, SwitchSpeed
 	ret
 ; 2ff7
 
-Function2ff7: ; 2ff7
+NormalSpeed: ; 2ff7
 	ld hl, rKEY1
 	bit 7, [hl]
 	ret z
 ; 2ffd
 
-Function2ffd: ; 2ffd
+SwitchSpeed: ; 2ffd
 	set 0, [hl]
 	xor a
 	ld [rIF], a
@@ -76483,7 +76490,7 @@
 	ld [$ffe9], a
 	xor a
 	ld [$ff9e], a
-	call Function2ff7
+	call NormalSpeed
 	xor a
 	ld [rIF], a
 	ld a, [BGMapBuffer]
@@ -81935,7 +81942,7 @@
 	di
 	ld a, [rIE]
 	ld [$cd32], a
-	call Function2fef
+	call DoubleSpeed
 	xor a
 	ld [rIF], a
 	ld [$c300], a
@@ -81984,7 +81991,7 @@
 	ld [$ffc9], a
 	ld [$ffe9], a
 	ld [$ff9e], a
-	call Function2ff7
+	call NormalSpeed
 	xor a
 	ld [rIF], a
 	ld a, [$cd32]
--