;
; 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