restore buffer ordering

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

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 {