mirror of https://github.com/cc65/cc65.git
40 lines
723 B
ArmAsm
40 lines
723 B
ArmAsm
;
|
|
; 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
|