mirror of
https://github.com/cc65/cc65.git
synced 2024-06-28 19:29:53 +00:00
41 lines
778 B
ArmAsm
41 lines
778 B
ArmAsm
;
|
|
; Oliver Schmidt, 30.12.2004
|
|
;
|
|
; int __fastcall__ close (int fd);
|
|
;
|
|
|
|
.export _close
|
|
|
|
.import closedirect, freebuffer
|
|
|
|
.include "errno.inc"
|
|
.include "filedes.inc"
|
|
|
|
_close:
|
|
; Process fd
|
|
jsr getfd ; Returns A, Y and C
|
|
bcs errno
|
|
|
|
; Check for device
|
|
bmi zerofd
|
|
|
|
; Close file
|
|
jsr closedirect ; Preserves Y
|
|
bcs oserr
|
|
|
|
; Mark fdtab slot as free
|
|
zerofd: lda #$00
|
|
sta fdtab + FD::REF_NUM,y
|
|
|
|
; Cleanup I/O buffer
|
|
jsr freebuffer
|
|
|
|
; Return success
|
|
lda #$00
|
|
|
|
; Set __oserror
|
|
oserr: jmp __mappederrno
|
|
|
|
; Set __errno
|
|
errno: jmp __directerrno
|