Bell 32V development

[unix-history] / usr / src / libc / sys / close.s

# C library -- close

# error =  close(file);

       .set    close,6
.globl  _close

_close:
       .word   0x0000
       chmk    $close
       bcc     noerror
       jmp     cerror
noerror:
       clrl    r0
       ret