aboutsummaryrefslogtreecommitdiff
path: root/lib/cpcrslib/cpc_SetMode.s
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2023-11-05 11:22:55 +0000
committerJuan J. Martinez <jjm@usebox.net>2023-11-05 11:31:28 +0000
commit2fbdf974338bde8576efdae40a819a76b2391033 (patch)
tree64d41a37470143f142344f9a439d96de3e7918c2 /lib/cpcrslib/cpc_SetMode.s
downloadkitsunes-curse-2fbdf974338bde8576efdae40a819a76b2391033.tar.gz
kitsunes-curse-2fbdf974338bde8576efdae40a819a76b2391033.zip
Initial import of the open source release
Diffstat (limited to 'lib/cpcrslib/cpc_SetMode.s')
-rw-r--r--lib/cpcrslib/cpc_SetMode.s13
1 files changed, 13 insertions, 0 deletions
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
+