1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
cc65/libsrc/common/fmisc.s
cuz 0edf53fd2f Use the constants from _file.inc
git-svn-id: svn://svn.cc65.org/cc65/trunk@1650 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-11-25 21:59:35 +00:00

84 lines
1.0 KiB
ArmAsm

;
; Ullrich von Bassewitz, 31.05.1998
;
; Several small file stream functions
;
.export _clearerr, _feof, _ferror, _fileno, _fflush
.import return0
.import __errno
.importzp ptr1
.include "_file.inc"
;
; Get the FILE* parameter, check if the file is open
;
getf: sta ptr1
stx ptr1+1
ldy #_FILE_f_flags
lda (ptr1),y ; get f->f_flags
and #_FOPEN ; file open?
beq @L1 ; jump if no
clc ; ok
rts
@L1: sec
rts
;
; void clearerr (FILE* f);
;
_clearerr:
jsr getf
bcs err
lda (ptr1),y
and #<~(_FEOF | _FERROR)
sta (ptr1),y
err: rts
;
; int feof (FILE* f);
;
_feof:
jsr getf
; bcs err
lda (ptr1),y
and #_FEOF
ldx #0
rts
;
; int ferror (FILE* f);
;
_ferror:
jsr getf
; bcs err
lda (ptr1),y
and #_FERROR
ldx #0
rts
;
; int fileno (FILE* f);
;
_fileno:
jsr getf
; bcs err
dey
lda (ptr1),y
ldx #0
rts
;
; int __fastcall__ fflush (FILE* f);
;
_fflush = return0