From 2fbdf974338bde8576efdae40a819a76b2391033 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 5 Nov 2023 11:22:55 +0000
Subject: Initial import of the open source release

---
 lib/cpcrslib/cpc_PrintStr.s | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 lib/cpcrslib/cpc_PrintStr.s

(limited to 'lib/cpcrslib/cpc_PrintStr.s')

diff --git a/lib/cpcrslib/cpc_PrintStr.s b/lib/cpcrslib/cpc_PrintStr.s
new file mode 100644
index 0000000..28e713a
--- /dev/null
+++ b/lib/cpcrslib/cpc_PrintStr.s
@@ -0,0 +1,27 @@
+.globl _cpc_PrintStr
+
+_cpc_PrintStr::
+	LD IX,#2
+	ADD IX,SP
+   	LD l,0 (IX)
+	LD h,1 (IX)	;TEXTO ORIGEN
+
+;	LD HL,#2
+ ;   ADD HL,SP
+;	LD E,(HL)
+;	INC HL
+;	LD D,(HL)
+;	EX DE,HL
+bucle_imp_cadena:
+	LD A,(HL)
+	OR A
+	JR Z,salir_bucle_imp_cadena
+	CALL #0XBB5A
+	INC HL
+	JR bucle_imp_cadena
+salir_bucle_imp_cadena:
+	LD A,#0X0D				; PARA TERMINAR HACE UN SALTO DE LÍNEA
+	CALL #0XBB5A
+	LD A,#0X0A
+	JP 0XBB5A
+
-- 
cgit v1.2.3