; ; 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 _fseek .import __seterrno .import _lseek ; --------------------------------------------------------------- ; int __near__ __fastcall__ fseek (register struct _FILE *f, long offset, int whence) ; --------------------------------------------------------------- .segment "CODE" .proc _fseek: near .segment "CODE" jsr pushax ldy #$06 ldx #$04 jsr regswap2 jsr decsp4 ldy #$01 lda (regbank+4),y and #$01 bne L000D lda #$07 jsr __seterrno jmp L0011 L000D: lda (regbank+4),y and #$08 beq L0004 ldy #$04 lda (sp),y iny ora (sp),y bne L0004 tax sta sreg sta sreg+1 lda #$01 iny jsr lsubeqysp L0004: ldx #$00 lda (regbank+4,x) jsr pusha0 ldy #$0B jsr ldeaxysp jsr pusheax ldy #$0B jsr ldaxysp jsr _lseek jsr steax0sp jsr ldeax0sp lda sreg+1 bmi L0009 ldy #$01 lda (regbank+4),y and #$F5 sta (regbank+4),y ldx #$00 jmp L0012 L0009: ldy #$01 lda (regbank+4),y ora #$04 sta (regbank+4),y L0011: ldx #$FF L0012: txa pha ldy #$0A lda (sp),y sta regbank+4 iny lda (sp),y sta regbank+5 pla iny jmp addysp .endproc