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_PutSp.s | 54 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 lib/cpcrslib/cpc_PutSp.s

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

diff --git a/lib/cpcrslib/cpc_PutSp.s b/lib/cpcrslib/cpc_PutSp.s
new file mode 100644
index 0000000..0ddbf10
--- /dev/null
+++ b/lib/cpcrslib/cpc_PutSp.s
@@ -0,0 +1,54 @@
+.globl _cpc_PutSp
+
+_cpc_PutSp::	; dibujar en pantalla el sprite
+		; Entradas	bc-> Alto Ancho
+		;			de-> origen
+		;			hl-> destino
+		; Se alteran hl, bc, de, af
+
+	LD IX,#2
+	ADD IX,SP
+	LD E,0 (IX)
+	LD D,1 (IX)
+	LD A,3 (IX)
+   	LD L,4 (IX)
+	LD H,5 (IX)
+
+    LD (#ancho0+1),A		;actualizo rutina de captura
+    ;ld (anchot+1),a	;actualizo rutina de dibujo
+	SUB #1
+	CPL
+	LD (#suma_siguiente_linea0+1),A    ;COMPARTEN LOS 2 LOS MISMOS VALORES.
+
+	LD A,2 (IX)
+	;JP cpc_putsp0
+
+pc_PutSp0:
+	.DB #0XFD
+	LD H,A		;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE
+	LD B,#7
+ancho0:
+loop_alto_2_pc_PutSp0:
+	LD C,#4
+loop_ancho_2_pc_PutSp0:
+	LD A,(DE)
+	LD (HL),A
+	INC DE
+	INC HL
+	DEC C
+	JP NZ,loop_ancho_2_pc_PutSp0
+	.DB #0XFD
+	DEC H
+	RET Z
+
+suma_siguiente_linea0:
+salto_linea_pc_PutSp0:
+	LD C,#0XFF			;&07F6 			;SALTO LINEA MENOS ANCHO
+	ADD HL,BC
+	JP nc,loop_alto_2_pc_PutSp0 ;sig_linea_2zz		;si no desborda va a la siguiente linea
+	LD BC,#0XC050
+
+	ADD HL,BC
+	LD B,#7			;SÓLO SE DARÍA UNA DE CADA 8 VECES EN UN SPRITE
+	JP loop_alto_2_pc_PutSp0
+
-- 
cgit v1.2.3