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

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

diff --git a/lib/cpcrslib/cpc_PutMaskSp2x8.s b/lib/cpcrslib/cpc_PutMaskSp2x8.s
new file mode 100644
index 0000000..ac85f0e
--- /dev/null
+++ b/lib/cpcrslib/cpc_PutMaskSp2x8.s
@@ -0,0 +1,45 @@
+.globl _cpc_PutMaskSp2x8
+; imprime un sprite de 8x8 en modo 1
+; El formato del sprite es el siguiente por cada línea:
+; defb byte1,byte2,byte3,byte4
+; siendo byte1 y byte3 son las máscaras de los bytes 2 y 4
+; se recibe de entrada el sprite y la posición.
+_cpc_PutMaskSp2x8::
+	LD IX,#2
+	ADD IX,SP
+	LD L,2 (IX)
+	LD H,3 (IX)
+	LD E,0 (IX)
+	LD D,1 (IX)
+	.DB #0XFD
+	LD H,#8		;ALTO, SE PUEDE TRABAJAR CON HX DIRECTAMENTE
+	LD B,#7
+loop_alto_mask_2x8:
+	EX DE,HL
+	LD A,(DE)	;leo el byte del fondo
+	AND (HL)	;lo enmascaro
+	INC HL
+	OR (HL)		;lo enmascaro
+	LD (DE),A	;actualizo el fondo
+	INC DE
+	INC HL
+	;COMO SOLO SON 2 BYTES, es más rápido y económico desplegar la rutina
+	LD A,(DE)
+	AND (HL)
+	INC HL
+	OR (HL)
+	LD (DE),A
+	INC DE
+	INC HL
+	.DB #0XFD
+	DEC H
+	RET Z
+	EX DE,HL
+	LD C,#0XFE
+	ADD HL,BC
+	JP NC,loop_alto_mask_2x8
+	LD BC,#0XC050
+	ADD HL,BC
+	LD B,#7
+	JP loop_alto_mask_2x8
+
-- 
cgit v1.2.3