lseek: use STZ for APPLE2ENH

(As suggested in pull request.)
2018-08-20 00:10:51 -07:00 · 2018-08-20 00:10:51 -07:00 · 8cb930b50e
commit 8cb930b50e
parent 68a115cacf
1 changed files with 4 additions and 0 deletions
--- 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