From f96c63acfdc0a6c12b13016484739af38fb14f1e Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Sun, 5 Sep 2021 12:52:52 -0700
Subject: [PATCH] fix random error when switching from 16 to 13 sectors

---
 src/id/bootfailure.a | 5 +++++
 src/strings/en.a     | 2 +-
 src/universalstyle.a | 6 ++++--
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/src/id/bootfailure.a b/src/id/bootfailure.a
index 035ec1f..28d13db 100644
--- a/src/id/bootfailure.a
+++ b/src/id/bootfailure.a
@@ -309,6 +309,11 @@ VerifyInfocom18
          eor   #$AA
 +        rts
 
+seekread13
+         dec   gCommand
+         jsr   $BD00       ; seek
+         inc   gCommand
+
 read13
          lda   $C0E9
          lda   #$1C        ; retry count
diff --git a/src/strings/en.a b/src/strings/en.a
index d686da2..99f0108 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -365,7 +365,7 @@ StringTableHigh           ; must be kept in sync with constants in enid.a
 .passport
          !text "Passport ",$00
 .header
-         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-09-04",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-09-05",$00
 .bar9
          !text "_________",$00
 .bar18
diff --git a/src/universalstyle.a b/src/universalstyle.a
index 07e018c..779493b 100644
--- a/src/universalstyle.a
+++ b/src/universalstyle.a
@@ -22,9 +22,11 @@ UseUniversal
 ;
          lda   gIs13Sector
          bne   @not13Sector
-         lda   #<read13
+         lda   #0
+         sta   $47E                  ; restore track number replaced by DOS
+         lda   #<seekread13
          sta   jCallRWTS+1
-         lda   #>read13
+         lda   #>seekread13
          sta   jCallRWTS+2
          bne   @doneUnivPatching     ; always branches
 @not13Sector