mirror of
https://github.com/cc65/cc65.git
synced 2024-07-07 19:29:18 +00:00
68a115cacf
Fixes this issue: https://github.com/cc65/cc65/issues/722 ftell() returns the value returned by lseek(), and lseek() for the Apple II wasn't returning a value.
105 lines
2.2 KiB
ArmAsm
105 lines
2.2 KiB
ArmAsm
;
|
|
; Peter Ferrie, 21.11.2014
|
|
;
|
|
; off_t __fastcall__ lseek(int fd, off_t offset, int whence);
|
|
;
|
|
|
|
.export _lseek
|
|
.import popax, popptr1
|
|
|
|
.include "zeropage.inc"
|
|
.include "errno.inc"
|
|
.include "mli.inc"
|
|
.include "filedes.inc"
|
|
|
|
_lseek:
|
|
; Save whence
|
|
sta tmp1
|
|
stx tmp2
|
|
|
|
; Get and save offset
|
|
jsr popptr1
|
|
jsr popax
|
|
sta ptr2
|
|
|
|
; Get and process fd
|
|
jsr popax
|
|
jsr getfd ; Returns A, Y and C
|
|
bcs errno
|
|
|
|
; Check for device
|
|
cmp #$80
|
|
bcs einval
|
|
|
|
; Valid whence values are 0..2
|
|
ldx tmp2
|
|
bne einval
|
|
ldx tmp1
|
|
cpx #3
|
|
bcs einval
|
|
|
|
; Set fd
|
|
sta mliparam + MLI::MARK::REF_NUM
|
|
|
|
txa
|
|
beq cur
|
|
lda #GET_EOF_CALL
|
|
dex
|
|
beq end
|
|
|
|
; SEEK_SET
|
|
dex
|
|
txa
|
|
tay
|
|
beq seek_common
|
|
|
|
; SEEK_CUR
|
|
cur:
|
|
lda #GET_MARK_CALL
|
|
|
|
; SEEK_END
|
|
end:
|
|
; MARK_COUNT must == EOF_COUNT, otherwise unexpected behaviour
|
|
.assert MARK_COUNT = EOF_COUNT, error
|
|
ldx #MARK_COUNT
|
|
jsr callmli
|
|
bcs oserr
|
|
lda mliparam + MLI::MARK::POSITION
|
|
ldx mliparam + MLI::MARK::POSITION+1
|
|
ldy mliparam + MLI::MARK::POSITION+2
|
|
|
|
seek_common:
|
|
adc ptr1
|
|
sta mliparam + MLI::MARK::POSITION
|
|
txa
|
|
adc ptr1+1
|
|
sta mliparam + MLI::MARK::POSITION+1
|
|
tya
|
|
adc ptr2
|
|
sta mliparam + MLI::MARK::POSITION+2
|
|
|
|
; Set file pointer
|
|
lda #SET_MARK_CALL
|
|
ldx #MARK_COUNT
|
|
jsr callmli
|
|
bcs oserr
|
|
|
|
; Need to return the position in EAX
|
|
lda #0
|
|
sta sreg+1
|
|
lda mliparam + MLI::MARK::POSITION+2
|
|
sta sreg
|
|
ldx mliparam + MLI::MARK::POSITION+1
|
|
lda mliparam + MLI::MARK::POSITION
|
|
|
|
rts
|
|
|
|
; Load errno code
|
|
einval: lda #EINVAL
|
|
|
|
; Set __errno
|
|
errno: jmp __directerrno
|
|
|
|
; Set __oserror
|
|
oserr: jmp __mappederrno
|