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

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

diff --git a/lib/cpcrslib/cpc_ClrScr.s b/lib/cpcrslib/cpc_ClrScr.s
new file mode 100644
index 0000000..49f1d2d
--- /dev/null
+++ b/lib/cpcrslib/cpc_ClrScr.s
@@ -0,0 +1,11 @@
+.globl _cpc_ClrScr
+
+_cpc_ClrScr::
+	XOR A
+	LD HL,#0xC000
+	LD DE,#0xC001
+	LD BC,#16383
+	LD (HL),A
+	LDIR
+	RET
+
-- 
cgit v1.2.3