From 1d358a473498c741549346e922d2c7c932ac328e Mon Sep 17 00:00:00 2001
From: jede <jede@oric.org>
Date: Mon, 25 May 2020 22:25:14 +0200
Subject: [PATCH] Fix bug

---
 libsrc/telestrat/joy/telestrat-joy.s | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/libsrc/telestrat/joy/telestrat-joy.s b/libsrc/telestrat/joy/telestrat-joy.s
index d15973a05..073a75faf 100644
--- a/libsrc/telestrat/joy/telestrat-joy.s
+++ b/libsrc/telestrat/joy/telestrat-joy.s
@@ -91,18 +91,22 @@ COUNT:
 
 READ:
         beq     right
-        lda     #%10000000
-        ora     VIA2::PRB
+
+        lda     VIA2::PRB
+        and     #%01111111
+        ora     #%01000000        
         sta     VIA2::PRB
         ; then read
         lda     VIA2::PRB
         eor     #%10011111
  
         rts
-right:        
-        lda     #%01000000
-        ora     VIA2::PRB
-        sta     VIA2::PRB
+right:  
+        lda     VIA2::PRB
+        and     #%10111111
+        ora     #%10000000
+        sta     VIA2::PRB      
+
         ; then read
         lda     VIA2::PRB
         eor     #%01011111