;
.export _lseek
- .import popax
+ .import popax, popptr1
.include "zeropage.inc"
.include "errno.inc"
stx tmp2
; Get and save offset
- jsr popax
- sta ptr1
- stx ptr1+1
+ jsr popptr1
jsr popax
sta ptr2
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