shithub: pokecrystal

Info  •  Files  •  Log  •  Branches

hRemainder

--- a/hram.asm

+++ b/hram.asm

@@ -50,6 +50,7 @@

 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

--- a/misc/mobile_12.asm

+++ b/misc/mobile_12.asm

@@ -1805,8 +1805,8 @@

 	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