2000-08-07 22:43:31 +00:00
|
|
|
;
|
|
|
|
|
; Christian Groessler, August 2000
|
|
|
|
|
;
|
|
|
|
|
; this file provides the lseek() function
|
|
|
|
|
;
|
|
|
|
|
; off_t __fastcall__ lseek(int fd, off_t offset, int whence);
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.export _lseek
|
|
|
|
|
.import incsp6,__errno,__oserror
|
|
|
|
|
.importzp sreg
|
|
|
|
|
.include "atari.inc"
|
|
|
|
|
.include "../common/errno.inc"
|
|
|
|
|
|
|
|
|
|
.proc _lseek
|
|
|
|
|
|
|
|
|
|
; dummy implementation, return -1 and ENOSYS errno value
|
|
|
|
|
jsr incsp6
|
|
|
|
|
lda #<ENOSYS
|
|
|
|
|
sta __errno
|
|
|
|
|
lda #>ENOSYS
|
2000-08-11 22:14:21 +00:00
|
|
|
sta __errno+1
|
2000-08-07 22:43:31 +00:00
|
|
|
ldx #0
|
|
|
|
|
stx __oserror
|
|
|
|
|
dex
|
|
|
|
|
txa
|
|
|
|
|
sta sreg
|
|
|
|
|
sta sreg+1
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.endproc
|
