1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
;
; Ullrich von Bassewitz, 22.11.2002
;
; int __fastcall__ fclose (FILE* f);
; /* Close a file */
;
.export _fclose
.import _close
.importzp ptr1
.include "errno.inc"
.include "_file.inc"
; ------------------------------------------------------------------------
; Code
.proc _fclose
sta ptr1
stx ptr1+1 ; Store f
; Check if the file is really open
ldy #_FILE::f_flags
lda (ptr1),y
and #_FOPEN
bne @L1
; File is not open
lda #EINVAL
jsr __seterrno
lda #$FF ; Return -1
tax
rts
; File is open. Reset the flags and close the file.
@L1: lda #_FCLOSED
sta (ptr1),y
ldy #_FILE::f_fd
lda (ptr1),y
ldx #0
jmp _close ; Will set errno and return an error flag
.endproc
|
