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

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

diff --git a/lib/cpcrslib/cpc_SetInk.s b/lib/cpcrslib/cpc_SetInk.s
new file mode 100644
index 0000000..2c29464
--- /dev/null
+++ b/lib/cpcrslib/cpc_SetInk.s
@@ -0,0 +1,12 @@
+.globl _cpc_SetInk
+
+_cpc_SetInk::
+	LD HL,#2
+	ADD HL,SP
+	LD A,(HL)
+	INC HL
+
+	LD B,(HL)
+	LD C,B
+	JP 0XBC32
+
-- 
cgit v1.2.3