1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
cc65/libsrc/apple2/close.s

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