From 7efc7a8230dc010f9b8e82115d204e770d8c048d Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Tue, 25 Dec 2018 18:50:55 -0800
Subject: [PATCH] really preserve Y

---
 src/glue.prorwts2.a | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/glue.prorwts2.a b/src/glue.prorwts2.a
index 34ff6df99..17c872315 100644
--- a/src/glue.prorwts2.a
+++ b/src/glue.prorwts2.a
@@ -273,6 +273,8 @@ ProDOS_exit
         sta    $c082, x
 ProDOS_savedX
         ldx    #$d1
+ProDOS_savedY
+        ldy    #$d1
         rts
 ProDOS_fatal ;only for debugging, will be removed
         pha
@@ -351,6 +353,7 @@ ProDOS_enter
     !set PASS2=1
   }
     stx    ProDOS_savedX+1
+    sty    ProDOS_savedY+1
     pha
     jsr    @swap_zp
     pla
@@ -372,8 +375,6 @@ ProDOS_enter
     php
     txa
     pha
-    tya
-    pha
 @request
     lda    #$d1
     cmp    #$c4
@@ -584,8 +585,6 @@ ProDOS_enter
 @restore_zp
     jsr    @swap_zp
     pla
-    tay
-    pla
     lsr
     lsr
     lsr