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

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

diff --git a/lib/cpcrslib/cpc_SetMode.s b/lib/cpcrslib/cpc_SetMode.s
new file mode 100644
index 0000000..f6877b4
--- /dev/null
+++ b/lib/cpcrslib/cpc_SetMode.s
@@ -0,0 +1,13 @@
+.globl _cpc_SetMode
+
+_cpc_SetMode::
+	;ld a,l
+	LD HL,#2
+	ADD HL,SP
+	LD L,(HL)				; Comprobar que el valor vaya a L!!
+	LD BC,#0x7F00          ;Gate array port
+	LD D,#140 ;@10001100	   ;Mode  and  rom  selection  (and Gate Array function)
+	ADD D
+	OUT (C),A
+	RET
+
-- 
cgit v1.2.3