lseek: use STZ for APPLE2ENH

[cc65] / libsrc / apple2 / lseek.s

diff --git a/libsrc/apple2/lseek.s b/libsrc/apple2/lseek.s
index 22bcbee306d5527f14d14be6f7b762e13847f0c0..6d5eba8a233b8eb19fdf74818e9745649a434bed 100644 (file)
--- a/libsrc/apple2/lseek.s
+++ b/libsrc/apple2/lseek.s
@@ -84,6 +84,18 @@ seek_common:
         jsr     callmli
         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
+        lda     mliparam + MLI::MARK::POSITION
+
         rts
 
         ; Load errno code