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

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

diff --git a/lib/cpcrslib/cpc_SetColour.s b/lib/cpcrslib/cpc_SetColour.s
new file mode 100644
index 0000000..7fd6dc3
--- /dev/null
+++ b/lib/cpcrslib/cpc_SetColour.s
@@ -0,0 +1,16 @@
+.globl  _cpc_SetColour
+
+_cpc_SetColour::		;El número de tinta 17 es el borde
+    LD HL,#2
+    ADD HL,SP
+  	LD A,(HL)
+    INC HL
+  	;INC HL
+    LD E,(HL)
+  	LD BC,#0x7F00                     ;Gate Array
+	OUT (C),A                       ;Número de tinta
+	LD A,#64 ;@01000000              	;Color (y Gate Array)
+	ADD E
+	OUT (C),A
+	RET
+
-- 
cgit v1.2.3