;
; File generated by cc65 v 2.19 - Git ab8bb268
;
	.fopt		compiler,"cc65 v 2.19 - Git ab8bb268"
	.setcpu		"6502"
	.smart		on
	.autoimport	on
	.case		on
	.debuginfo	off
	.importzp	sp, sreg, regsave, regbank
	.importzp	tmp1, tmp2, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4
	.macpack	longbranch
	.export		_ftell
	.import		__seterrno
	.import		_lseek

; ---------------------------------------------------------------
; long __near__ __fastcall__ ftell (register struct _FILE *f)
; ---------------------------------------------------------------

.segment	"CODE"

.proc	_ftell: near

.segment	"CODE"

	jsr     pushax
	ldy     #$00
	ldx     #$04
	jsr     regswap2
	jsr     decsp4
	ldy     #$01
	lda     (regbank+4),y
	and     #$01
	bne     L0002
	lda     #$07
	jsr     __seterrno
	ldx     #$FF
	stx     sreg
	stx     sreg+1
	txa
	jmp     L0001
L0002:	ldx     #$00
	lda     (regbank+4,x)
	jsr     pusha0
	jsr     pushl0
	jsr     _lseek
	jsr     steax0sp
	jsr     ldeax0sp
	jsr     pusheax
	ldx     #$00
	stx     sreg
	stx     sreg+1
	lda     #$01
	jsr     tosgeeax
	beq     L0004
	ldy     #$01
	lda     (regbank+4),y
	and     #$08
	beq     L0004
	ldx     #$00
	tya
	jsr     lsubeq0sp
L0004:	jsr     ldeax0sp
L0001:	pha
	ldy     #$04
	lda     (sp),y
	sta     regbank+4
	iny
	lda     (sp),y
	sta     regbank+5
	pla
	jmp     incsp6

.endproc