From cd1598fa89b91f0a96793f8ee0378eb9821651e7 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 14 Sep 2001 08:42:17 +0000
Subject: [PATCH] Added peekxsys functions for the 610

git-svn-id: svn://svn.cc65.org/cc65/trunk@918 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/cbm610/Makefile  |  1 +
 libsrc/cbm610/peeksys.s | 50 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 libsrc/cbm610/peeksys.s

diff --git a/libsrc/cbm610/Makefile b/libsrc/cbm610/Makefile
index ea51689c8..d6575c5ef 100644
--- a/libsrc/cbm610/Makefile
+++ b/libsrc/cbm610/Makefile
@@ -25,6 +25,7 @@ OBJS =	_scrsize.o	\
        	kplot.o		\
 	kscnkey.o	\
 	kudtim.o	\
+	peeksys.o	\
 	pokesys.o	\
 	rs232.o
 
diff --git a/libsrc/cbm610/peeksys.s b/libsrc/cbm610/peeksys.s
new file mode 100644
index 000000000..e3110603e
--- /dev/null
+++ b/libsrc/cbm610/peeksys.s
@@ -0,0 +1,50 @@
+;
+; Ullrich von Bassewitz, 14.09.2001
+;
+
+ 	.export	     	_peekbsys, _peekwsys
+ 	.importzp    	ptr1
+
+ 	.include       	"zeropage.inc"
+
+
+; ------------------------------------------------------------------------
+; unsigned char __fastcall__ peekbsys (unsigned addr);
+
+.proc	_peekbsys
+
+	sta	ptr1		; Store argument pointer
+	stx	ptr1+1
+       	ldx	IndReg
+	lda	#$0F
+	sta	IndReg
+	ldy	#$00
+	lda	(ptr1),y
+	stx	IndReg
+	ldx	#$00  		; Extend to word
+ 	rts
+
+.endproc
+
+; ------------------------------------------------------------------------
+; unsigned __fastcall__ peekwsys (unsigned addr);
+
+.proc	_peekwsys
+
+	sta  	ptr1		; Store argument pointer
+	stx  	ptr1+1
+       	ldx  	IndReg
+	lda  	#$0F
+	sta  	IndReg
+	ldy  	#$00
+	lda	(ptr1),y	; Get low byte
+	pha
+	iny
+	lda	(ptr1),y	; Get high byte
+	stx	IndReg
+	tax	      		; High byte -> X
+	pla			; Low byte -> A
+ 	rts
+
+.endproc
+
-- 
2.39.5