From 4a04a09a6b7a80f97392563b1b1b115fa1cf6316 Mon Sep 17 00:00:00 2001
From: yenatch <yenatch@gmail.com>
Date: Sun, 8 Sep 2013 03:12:48 -0400
Subject: labels for cgb double speed functions

---
 common/init.asm |  2 +-
 main.asm        | 21 ++++++++++++++-------
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/common/init.asm b/common/init.asm
index 3104c416d..ead75975c 100644
--- a/common/init.asm
+++ b/common/init.asm
@@ -156,7 +156,7 @@ Init: ; 17d
 	ld a, [hCGB]
 	and a
 	jr z, .asm_22b
-	call Function2ff7
+	call NormalSpeed
 .asm_22b
 
 	xor a
diff --git a/main.asm b/main.asm
index a8660f1a6..bf2527f10 100644
--- a/main.asm
+++ b/main.asm
@@ -827,20 +827,27 @@ _de_: ; 2fed
 ; 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 @@ Function1000a4: ; 1000a4
 	ld [$ffe9], a
 	xor a
 	ld [$ff9e], a
-	call Function2ff7
+	call NormalSpeed
 	xor a
 	ld [rIF], a
 	ld a, [BGMapBuffer]
@@ -81935,7 +81942,7 @@ Function1183cb: ; 1183cb
 	di
 	ld a, [rIE]
 	ld [$cd32], a
-	call Function2fef
+	call DoubleSpeed
 	xor a
 	ld [rIF], a
 	ld [$c300], a
@@ -81984,7 +81991,7 @@ Function118452: ; 118452
 	ld [$ffc9], a
 	ld [$ffe9], a
 	ld [$ff9e], a
-	call Function2ff7
+	call NormalSpeed
 	xor a
 	ld [rIF], a
 	ld a, [$cd32]
-- 
cgit v1.2.3