From a69ff95615b9ef4ed1ef2e0dbe42bf64b36e25b0 Mon Sep 17 00:00:00 2001
From: Astatin <git@astatin.live>
Date: Thu, 31 Oct 2024 15:04:01 +0900
Subject: Add font and Print_str routine

---
 utils.gbasm | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'utils.gbasm')

diff --git a/utils.gbasm b/utils.gbasm
index 857acbc..5dad3a9 100644
--- a/utils.gbasm
+++ b/utils.gbasm
@@ -38,18 +38,36 @@ Print_8bit: ; Number in A, Memory Tilemap position in HL
 	LD C, A
 	SWAP A 				   ; We start by the highest nibble
 	AND $0f
-	OR $10
+	OR $80
 	LD (HL+), A
 	
 	LD A, C
 	AND $0f 			   ; Then the lowest
-	OR $10
+	OR $80
 	LD (HL+), A
 
 	POP BC
 	POP AF
 	RET
 
+Print_str: ; Memory Tilemap position in HL, Text address in BC, FF ended
+	PUSH AF
+	PUSH BC
+
+	Print_str.loop:
+		LD A, (BC)
+		CP $ff
+		JR Z, =Print_str.end
+
+		LD (HL+), A
+		INC BC
+		JR =Print_str.loop
+
+	Print_str.end:
+	POP BC
+	POP AF
+	RET
+
 MUL: ; B x C => EA
 	XOR A
 	LD E, $00
-- 
cgit v1.2.3-70-g09d2