From: Patrick Pelletier <code@funwithsoftware.org>
Date: Mon, 20 Aug 2018 07:10:51 +0000 (-0700)
Subject: lseek: use STZ for APPLE2ENH
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=8cb930b50e93647cd28debfc40f39fcf6507797b;p=cc65

lseek: use STZ for APPLE2ENH

(As suggested in pull request.)
---

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