;
; Jede (jede@oric.org), 2023-03-13
;

; off_t __fastcall__ lseek(int fd, off_t offset, int whence);

        .export         _lseek

        .include        "telestrat.inc"
        .include        "zeropage.inc"

        .import         popax

.proc _lseek
        ; Save whence
        sta     tmp1
        ; Skip X

        ; Get offset and store

        jsr     popax
        sta     tmp2
        stx     tmp3

        jsr     popax
        sta     RESB
        stx     RESB+1

        ; Get FD
        jsr     popax
        ; Does not need X
        sta     RES           ; Save FD

        lda     tmp2
        ldy     tmp3
        ldx     tmp1          ; Get whence
        BRK_TELEMON XFSEEK
        rts
.endproc