Add font and Print_str routine

1 files changed, 20 insertions, 2 deletions

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