From e32e959aa7cb79bc7cdf0ee857ea3f1f16569286 Mon Sep 17 00:00:00 2001
From: dwsJason <JGAndersen@gmail.com>
Date: Sat, 7 Sep 2019 22:21:39 -0400
Subject: [PATCH] paddles: add a an ORCA C exposes method to call the paddle
 reader

---
 asm/paddles.s | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/asm/paddles.s b/asm/paddles.s
index 0934f0a..fc2bed0 100644
--- a/asm/paddles.s
+++ b/asm/paddles.s
@@ -10,6 +10,39 @@
 DummyPaddles start ASMCODE
 	end
 
+*PEEK 49249 - PADDLE 0 BUTTON (>127 IF BUTTON PRESSED)
+*PEEK 49250 - PADDLE 1 BUTTON (>127 IF BUTTON PRESSED)
+*PEEK 49251 - PADDLE 2 BUTTON (>127 IF BUTTON PRESSED)
+
+*
+* XRick GS C Interface to read
+* the joystick, and the button
+*
+paddle0 start ASMCODE
+	ds 2
+paddle1 entry
+	ds 2
+paddle_button_0 entry
+	ds 2
+	
+ReadPaddles entry
+	phb
+	phk
+	plb
+	
+	jsr GetJoyXY
+	
+	stx	paddle0
+	sty paddle1
+	
+	lda >$E0C061
+	and #$0080
+	sta paddle_button_0
+			
+	plb	
+	rtl
+	end
+
 *
 *------------------------------- 
 * IIGS 1MHz single-pass GetJoyXY