From 857a7b960ea0b790c70c98818bc1841294514a0f Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Tue, 19 Oct 2021 15:01:45 -0700
Subject: [PATCH] support seek(0)

---
 src/constants.a       | 2 +-
 src/prodos.impl.lc2.a | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/constants.a b/src/constants.a
index 159f1ede2..f920ce13b 100644
--- a/src/constants.a
+++ b/src/constants.a
@@ -150,7 +150,7 @@ iCurBlockLo    = $D401               ; constant
 iCurBlockHi    = $D403               ; constant
 launchpatch    = $D655               ; glue.launch.a
 iAddToPath     = $FE6C               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
-itraverse      = $D94A               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
+itraverse      = $D94E               ; Roger Rabbit, avoid, use Infiltrator 2 style instead
 ldrhi          = $56                 ; constant
 namlo          = $57                 ; constant
 namhi          = $58                 ; constant
diff --git a/src/prodos.impl.lc2.a b/src/prodos.impl.lc2.a
index 0584d0802..bece21d1a 100644
--- a/src/prodos.impl.lc2.a
+++ b/src/prodos.impl.lc2.a
@@ -223,6 +223,8 @@ resetval=$f0
          stx   blkofflo
          stx   blkoffhi
          stx   reqcmd
+         ldy   sizelo
+         beq   @testzero
 @seekloop
          jsr   @reset
          ldy   sizelo
@@ -265,6 +267,7 @@ resetval=$f0
          pla
          sbc   ldrhi
          sta   ldrhi
+@testzero
          tya
          sbc   #0
          sta   sizelo