From 329f867fd6ac44ab1a4cfd45372738bfb927542d Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 16 Jan 2019 13:12:57 -0800
Subject: [PATCH] fix Tetrisk 128k

---
 src/glue.prorwts2.a | 38 +++++++++++++++++++++-----------------
 1 file changed, 21 insertions(+), 17 deletions(-)

diff --git a/src/glue.prorwts2.a b/src/glue.prorwts2.a
index db05f9e95..e90feefcb 100644
--- a/src/glue.prorwts2.a
+++ b/src/glue.prorwts2.a
@@ -524,38 +524,47 @@ ProDOS_enter
     sta    sizehi
     sta    sizelo
     jsr    hddopendir
-    ldx    @handles+1
-    lda    bleftlo
-    sta    @sizelo-1, x
-    lda    blefthi
-    sta    @sizehi-1, x
     lda    #0
     sta    blkidx
     beq    @jmp_zp ;always
 
 @imp_seek
-    ldx    @handles+1
-    lda    @sizelo-1, x
-    sta    bleftlo
-    lda    @sizehi-1, x
-    sta    blefthi
+    jsr    @set_rdwrbuff
     lda    #0
     sta    blkidx
     sta    blkofflo
     sta    blkoffhi
     sta    reqcmd
-    jsr    @set_rdwrbuff
+    jsr    @reset
+    ldx    sizelo
+    beq    @seek64
+    sta    sizehi
+    sta    sizelo
+    jsr    @seekreset
+    inc    ldrlo
+    bne    @seek64
+    inc    ldrhi
+
+@seek64
     lda    ldrhi
     sta    sizehi
     lda    ldrlo
     sta    sizelo
-    jsr    hddrdwrpart
+    jsr    @seekreset
     lda    ldrhi
     ora    ldrlo
     bne    @jmp_zp
     dec    blkidx
     beq    @jmp_zp ;always
 
+@seekreset
+    jsr    hddrdwrpart
+@reset
+    lda    #$ff
+    sta    blefthi
+    sta    bleftlo
+    rts
+
 @imp_read
     lda    #cmdread
     !byte  $2c
@@ -670,10 +679,5 @@ ProDOS_enter
 @handle
     !byte  0, 0 ;only up to two handles at a time
 
-@sizelo
-    !byte  0, 0 ;only up to two files at a time
-@sizehi
-    !byte  0, 0 ;only up to two files at a time
-
 @saved_zp
     !fill  (last_zp - first_zp) + 1