.TITLE DELETE .ENABL LC .NLIST BEX ; This example uses the special mode of CSI to delete files. ; INSPEC is the address of the first input slot in the CSI input table. .MCALL .SRESET,.CSISPC,.DELETE,.PRINT,.EXIT START: .SRESET .CSISPC #OUTSPC,#DEFEXT .DELETE #LIST,#0,#INSPC BCC 100$ MOV #UNKNWN,%0 MOVB ERRBYT,%1 CMPB %1,#3 BHI 10$ ASL %1 MOV ERMSGS(%1),%0 10$: .PRINT 100$: .EXIT ERMSGS: .WORD ACTIVE,NOFILE,INVLID,PROTED ACTIVE: .ASCIZ /Channel active/ NOFILE: .ASCIZ /File not found/ PROTED: .ASCIZ /File is protected/ INVLID: .ASCIZ /Device not file-structured/ UNKNWN: .ASCIZ /Unknown error/ .EVEN DEFEXT: .RAD50 /NEW/ .WORD 0,0,0 LIST: .BLKW 2 OUTSPC=. INSPC=.+36 .BLKW 39. .END START