From 845b1693ca0b91e3f2d9a3bc5a1e56a6d93e4624 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 19 Apr 2019 20:25:32 -0700
Subject: [PATCH] fix Spiradisc and E7

---
 src/id/inspect0.a          | 5 +++++
 src/patchers/universale7.a | 4 ++--
 src/strings/en.a           | 2 +-
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/id/inspect0.a b/src/id/inspect0.a
index 0067ffb..c161e57 100755
--- a/src/id/inspect0.a
+++ b/src/id/inspect0.a
@@ -341,6 +341,9 @@ IDBootFailure
 
 VerifyInfocom18
          lda   $C0E9
+         lda   #2
+         sta   modsrc
+
 .retry13
          ldx   #$1A       ; the length of a track
          ldy   #0
@@ -355,6 +358,8 @@ VerifyInfocom18
          rts
 
 .badsect
+         dec   modsrc
+         beq   .no
          lda   gIsInfocom18
          beq   .no        ; if in Infocom mode already then we have a true failure
          bne   .retry13   ; otherwise, try to identify 13-sector instead
diff --git a/src/patchers/universale7.a b/src/patchers/universale7.a
index e595836..d751256 100755
--- a/src/patchers/universale7.a
+++ b/src/patchers/universale7.a
@@ -12,7 +12,7 @@ universale7
          bpl   .exit
          lda   #BASEPAGE+$0F
          sta   .sector+2
-         ldx   #$A0
+.search  ldx   #$A0
          lda   #$00
 .eor     eor   #$AC
 .sector  cmp   $D100,x    ; modified at runtime
@@ -37,6 +37,6 @@ universale7
          dec   .sector+2
          lda   .sector+2
          cmp   #BASEPAGE-1
-         bne   .sector
+         bne   .search
 .exit
 }
diff --git a/src/strings/en.a b/src/strings/en.a
index 89d66ca..8dac18e 100755
--- a/src/strings/en.a
+++ b/src/strings/en.a
@@ -280,7 +280,7 @@ StringTableHigh
 ; can be set directly before calling PrintByID.
 ;
 .header
-         !text "Passport by 4am               2019-04-17",$00
+         !text "Passport by 4am               2019-04-19",$00
 .mainmenu
          !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D
          !text "              "