From c9f40539a76b532f3de1b8fde386226686e0078a Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Thu, 20 Jun 2019 11:16:26 -0700
Subject: [PATCH] restore buffer ordering

---
 src/glue.prorwts2.a | 6 ------
 src/prorwts2.a      | 4 ++--
 2 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/glue.prorwts2.a b/src/glue.prorwts2.a
index aa0e38da5..2165519e3 100644
--- a/src/glue.prorwts2.a
+++ b/src/glue.prorwts2.a
@@ -412,11 +412,7 @@ packet = first_zp ;word
 buffer = first_zp+2 ;word
 
 ProDOS_enter
-  !ifdef PASS2 {
 !set CloseHandles = @imp_close
-  } else { ;PASS2
-!set CloseHandles = *
-  }
     stx    ProDOS_savedX+1
     sty    ProDOS_savedY+1
     pha
@@ -574,7 +570,6 @@ ProDOS_enter
     iny
     lda    (packet), y
     sta    @handle-1, x
-    tax
     jsr    @patch_buffer
     iny
     lda    #1
@@ -691,7 +686,6 @@ ProDOS_enter
     lda    (packet), y
     tax
     lda    @handle-1, x
-    tax
     jsr    @patch_buffer
     ldx    #ldrlo
     iny
diff --git a/src/prorwts2.a b/src/prorwts2.a
index a031c83e4..6221ed068 100644
--- a/src/prorwts2.a
+++ b/src/prorwts2.a
@@ -3008,10 +3008,10 @@ hdddataend
       } ;allow_trees
     } else { ;load_high = 0
       !pseudopc ((hdddataend + $ff) & -256) {
-        hdddirbuf = $d000
+        hdddirbuf = $d200
       }
       !if aligned_read = 0 {
-        hddencbuf = hdddirbuf + $200
+        hddencbuf = hdddirbuf - $200
       } ;aligned_read
       !if allow_trees = 1 {
         !if aligned_read = 0 {