;$IO    DELETE  DELETE A FILE
;.      13-SEPT-76  P. CANNON
;.      THIS MODLE GIVES THE FORTRAN PROGRAMMER ACCESS TO THE
;.      DELET$ MACRO TO ENABLE HIM TO DELETE FILES.
;.
;.      CALL DELETE(FDB,IER)
;.
;.      FDB     FILE DESCRIPTOR BLOCK
;.      IER     ERROR FLAG
;.              POSITIVE IMPLIES NO ERROR
;.              ZERO IMPLIES FILE NOT FOUND
;.
;       THE GENERAL FORM OF THE  DELET$ MACRO IS :
;       DELET$  FDB,ERR
;
;       WHERE:
;       FDB     ADDRESS OF FILE DESCRIPTOR BLOCK
;       ERR     THE SYMBOLIC ADDRESS OF AN OPTIONAL USER-CODED
;               ERROR-HANDLING ROUTINE.
        .TITLE  DELETE - DELETE A FILE
        .IDENT  /V01/
       .PSECT
        .GLOBL  DELETE
        .GLOBL  IOFERR
        .MCALL  DELET$
;
EF:     .WORD   0               ;ADDRESS OF PARAMETER LIST
        .WORD   0               ;NBR OF TIMES CALLED
DELETE: 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 ADDRESS OF FDB
        DELET$  R0              ;DELETE THE FILE
        DEC     R4              ;DECREMENT THE NUMBER OF PARAMETERS
        JSR     PC,IOFERR       ;TEST THE  F.ERR  ERROR WORD IN THE
                                ;FDB AND RETURN THE STATUS TO THE
                                ;CALLING PROGRAM
        RTS     PC              ;EXIT
        .END