;$IO    CLOSE   CLOSE A FILE
;.      26-SEPT-76   P. CANNON
;.
;.      THIS MODULE ALLOWS THE USER TO CLOSE A FILE THAT WAS
;.      PREVIOUSLY OPENED.
;.
;.      CALL CLOSE(FDB,/IER/)
;.
;.      FDB     FILE DESCRIPTOR BLOCK
;.
;.      IER     ERROR FLAG
;.              POSITIVE IMPLIES NO ERROR
;.              ZERO IMPLIES AN ERROR
;.              NEGATIVE IMPLIES AN ERROR
;.
;       THE GENERAL FORM OF THE CLOSE$ MACRO IS :
;
;       CLOSE$  FDB,ERR
;
;       FDB     FILE DESCRIPTOR BLOCK
;
;       ERR     THE SYMBOLIC ADDRESS OF AN OPTIONAL USER-CODED
;               ERROR-HANDLING ROUTINE.
;
;
        .TITLE  CLOSE - CLOSE A FILE THAT WAS PREVIOUSLY OPENED
        .IDENT  /V01/
        .PSECT
        .GLOBL  CLOSE
        .GLOBL  IOFERR
        .MCALL  CLOSE$
;
;
EF:     .WORD   0               ;ADDRESS OF PARAMETER LIST
        .WORD   0               ;NBR OF TIMES CALLED
CLOSE:  MOV     R5,EF           ;SAVE ADDRESS OF PARAMETER LIST
        INC     EF+2            ;ADD ONE TO THE NBR OF TIMES CALLED
        MOV     (R5)+,R4        ;LOAD THE NUMBER OF PARAMETERS
        MOV     (R5)+,R0        ;LOAD THE FDB ADDRESS
        CLOSE$  R0              ;CALL CLOSE
        DEC     R4              ;DECREMENT THE NUMBER OF PARAMETERS
        JSR     PC,IOFERR       ;TEST THE  F.ERR  OFFSET IN
                                ;THE FDB AND RETURN THE STATUS
                                ;TO THE CALLING FORTRAN PROGRAM.
        RTS     PC
        .END