;
; SYSLIB Module Name:  SFCLOS
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;       F$CLOSE
; Module External References:
;       BDOS
;

;
;  F$CLOSE -- CLOSE FILE WHOSE FCB IS PTED TO BY DE
;       RET W/A=0 IF OK
;
       EXT     BDOS

F$CLOSE::
       PUSH    H       ; SAVE HL
       PUSH    B       ; SAVE BC
       MVI     C,B$CLOS
       CALL    BDOS
       CPI     255     ; ERROR?
       JZ      FCLSDN
       XRA     A       ; A=0
FCLSDN:
       POP     B       ; RESTORE BC
       POP     H       ; RESTORE HL
       RET

B$CLOS  EQU     16      ; CLOSE FILE

       END