From 00024c1c957308f8e8557f3ef788f485bdc4ace8 Mon Sep 17 00:00:00 2001
From: Steven Hugg <hugg@fasterlight.com>
Date: Tue, 27 Oct 2026 20:43:40 +0100
Subject: [PATCH] apple2: from issue #113, add delay after seeking to fix
 occasional corrupt sectors

---
 readme.txt                | 3 +++
 src/6502/a2_prorwts2.acme | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/readme.txt b/readme.txt
index eba481f..f83a152 100644
--- a/readme.txt
+++ b/readme.txt
@@ -146,6 +146,9 @@ Release notes:
 
 		Documentation: New "8-bit" page covering the USTY chunk.
 
+		Apple II: Give disk seek head a few ms to settle down to
+		prevent read errors. (via @danielgaskell and @peterferrie/qkumba)
+
 	1.0.3:
 
 		New Apple II interpreter:
diff --git a/src/6502/a2_prorwts2.acme b/src/6502/a2_prorwts2.acme
index 2edd3ea..df86ef4 100644
--- a/src/6502/a2_prorwts2.acme
+++ b/src/6502/a2_prorwts2.acme
@@ -1940,6 +1940,8 @@ trackd1 = * + 1
                 sta     trackd1
   } ;allow_multi = 1
                 jsr     seek
+                lda     #$10    ; added
+                jsr     delay   ; added
 
                 ;match or read/write sector