diff --git a/src/engine/bank05.asm b/src/engine/bank05.asm
index 395b148..cd44d7d 100644
--- a/src/engine/bank05.asm
+++ b/src/engine/bank05.asm
@@ -5178,12 +5178,8 @@ ConvertHPToCounters:
 	pop bc
 	ret
 
-; returns in a the result of
-; dividing b by a, rounded down
-; input:
-;	a = divisor
-;	b = dividend
-CalculateBDividedByA_Bank5:
+; returns a = floor(b / a)
+CalculateBDividedByA_Bank05:
 	push bc
 	ld c, a
 	ld a, b
@@ -6236,7 +6232,7 @@ AIDecideBenchPokemonToSwitchTo:
 .add_hp_score
 	ld b, a
 	ld a, 4
-	call CalculateBDividedByA_Bank5
+	call CalculateBDividedByA_Bank05
 	call ConvertHPToCounters
 	call AIEncourage
 
diff --git a/src/engine/bank08.asm b/src/engine/bank08.asm
index 5cfa7f1..79a8fc0 100644
--- a/src/engine/bank08.asm
+++ b/src/engine/bank08.asm
@@ -230,9 +230,39 @@ AIProcessHandTrainerCards:
 	ret z
 	inc de
 	jr .loop_copy
-; 0x20270
 
-SECTION "Bank 8@4290", ROMX[$4290], BANK[$8]
+; returns hl = floor(hl / 10)
+CalculateWordTensDigit:
+	push bc
+	push de
+	lb bc, $ff, -10
+	lb de, $ff, -1
+.loop
+	inc de
+	add hl, bc
+	jr c, .loop
+	ld h, d
+	ld l, e
+	pop de
+	pop bc
+	ret
+
+; returns a = floor(b / a)
+CalculateBDividedByA_Bank08:
+	push bc
+	ld c, a
+	ld a, b
+	ld b, c
+	ld c, 0
+.loop
+	sub b
+	jr c, .done
+	inc c
+	jr .loop
+.done
+	ld a, c
+	pop bc
+	ret
 
 ; makes AI use Potion card.
 AIPlay_Potion: