From c3b0fa04a663fe233765b83d3be41a42aa08c25d Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Mon, 3 May 2021 08:21:10 +0100
Subject: Initial import for public 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