From 8cb930b50e93647cd28debfc40f39fcf6507797b Mon Sep 17 00:00:00 2001
From: Patrick Pelletier <code@funwithsoftware.org>
Date: Mon, 20 Aug 2018 00:10:51 -0700
Subject: [PATCH] lseek: use STZ for APPLE2ENH

(As suggested in pull request.)
---
 libsrc/apple2/lseek.s | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/libsrc/apple2/lseek.s b/libsrc/apple2/lseek.s
index b1b7b6afb..6d5eba8a2 100644
--- a/libsrc/apple2/lseek.s
+++ b/libsrc/apple2/lseek.s
@@ -85,8 +85,12 @@ seek_common:
         bcs     oserr
 
         ; Need to return the position in EAX
+        .ifdef  __APPLE2ENH__
+        stz     sreg+1
+        .else
         lda     #0
         sta     sreg+1
+        .endif
         lda     mliparam + MLI::MARK::POSITION+2
         sta     sreg
         ldx     mliparam + MLI::MARK::POSITION+1
-- 
2.39.5