From 776dd6182347322f16f0d5e677f91b7ee68d112f Mon Sep 17 00:00:00 2001
From: yenatch <yenatch@gmail.com>
Date: Mon, 15 Feb 2016 18:57:49 -0500
Subject: [PATCH] hRemainder

---
 hram.asm           | 1 +
 misc/mobile_12.asm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/hram.asm b/hram.asm
index 3e921f78e..dc6c480bf 100644
--- a/hram.asm
+++ b/hram.asm
@@ -50,6 +50,7 @@ hStringCmpString2  EQU $ffb5
 hDividend          EQU $ffb3 ; length in b register, before 'call Divide' (max 4 bytes)
 hDivisor           EQU $ffb7 ; 1 byte long
 hQuotient          EQU $ffb4 ; result (3 bytes long)
+hRemainder         EQU $ffb7
 
 hMultiplicand      EQU $ffb4 ; 3 bytes long
 hMultiplier        EQU $ffb7 ; 1 byte long
diff --git a/misc/mobile_12.asm b/misc/mobile_12.asm
index 48e740681..dd0f63135 100755
--- a/misc/mobile_12.asm
+++ b/misc/mobile_12.asm
@@ -1805,8 +1805,8 @@ Function48d94: ; 48d94 (12:4d94)
 	ld [hDivisor], a
 	ld b, 2
 	call Divide
-	ld a, [hDivisor]
-	ld c, $a
+	ld a, [hRemainder]
+	ld c, 10
 	call SimpleDivide
 	sla b
 	sla b