UNDEL.MAC/-BF=UNDEL.VGN \ -2,2 .IDENT /V01.1/ -7,7 ; VERSION 01.1 -15 ; ;****************************************************************************** ; ; This software is provided on an "as is" basis only. Caterpillar Tractor Co., ; disclaims all warranties on the program, including without limitation, all ; implied warranties of merchantablity and fitness. ; ; Full permission and consent is hereby given to DECUS and to the DECUS ; special interest groups to reproduce, distribute, and publish and permit ; others to reproduce in whole or in part, in any form and without restriction ; this program and any information relating thereto ; ;****************************************************************************** ; ; The following modifications were made by Rick Webster, Process ; Control Applications, MSDGO, Caterpillar Tractor Co. ; ; RAW001 - Fix OPENFL routine to return with carry set on open ; failure like it was supposed to. ; ; RAW002 - Add error messages for ALUN$ failures, enhance error ; messages for input & output errors. ; ; RAW003 - Check for UIC specified on input spec ; ; Function: ; % -124,,/;RAW002/ BCS ASNOER ;Branch on error -131,,/;RAW003/ BITB #CS.DIF,C.STAT(0) ;Spec must have a UIC BEQ SYNERR ;If eq, no UIC specified -138,,/;RAW002/ BCS ASNIER ;Branch on error -139,,/;RAW002/ BCS ASNIER ;Branch on error -140,,/;RAW002/ BCS ASNIER ;Branch on error -149,,/;RAW002/ ASNOER: MOV #OASNER,R1 ;R1 has address of error message MOV $DSW,ARGBLK ;Put error code in message CALL WRITE ;Output error message JMP GETCML ;Go try for another command line ASNIER: MOV #IASNER,R1 ;R1 has address of error message MOV $DSW,ARGBLK ;Put error code in message CALL WRITE ;Output error message JMP GETCML ;Go try for another command line -259,259,/;RAW002/ MOV #FCSERR,ARGBLK ;Assume FCS error TSTB INXFDB+F.ERR+1 ;Was it? BEQ 1$ ;Yes - branch MOV #DIRERR,ARGBLK ;No, indicate DIR error 1$: MOVB INXFDB+F.ERR,R1 ;R1 has sign extended error code MOV R1,ARGBLK+2 ;Put error code in message -267,267,/;RAW002/ MOV #FCSERR,ARGBLK ;Assume FCS error TSTB BMPFDB+F.ERR+1 ;Was it? BEQ 11$ ;Yes - branch MOV #DIRERR,ARGBLK ;No, indicate DIR error 11$: MOVB BMPFDB+F.ERR,R1 ;R1 has sign extended error code MOV R1,ARGBLK+2 ;Put error code in message -310,,/;RAW001/ BCS 10$ ;Branch on error -317,317,/;RAW001/ 10$: RETURN -371,371,/;RAW002/ MOV #FCSERR,ARGBLK ;Assume FCS error TSTB OUTFDB+F.ERR+1 ;Was it? BEQ 15$ ;Yes - branch MOV #DIRERR,ARGBLK ;No, indicate DIR error 15$: MOVB OUTFDB+F.ERR,R1 ;R1 has sign extended error code MOV R1,ARGBLK+2 ;Put error code in message -431,431,/;RAW002/ MOV #FCSERR,ARGBLK ;Assume FCS error TSTB OUTFDB+F.ERR+1 ;Was it? BEQ 30$ ;Yes - branch MOV #DIRERR,ARGBLK ;No, indicate DIR error 30$: MOVB OUTFDB+F.ERR,R1 ;R1 has sign extended error code MOV R1,ARGBLK+2 ;Put error code in message -494,494,/;RAW002/ MOV #FCSERR,ARGBLK ;Assume FCS error TSTB BMPFDB+F.ERR+1 ;Was it? BEQ 5$ ;Yes - branch MOV #DIRERR,ARGBLK ;No, indicate DIR error 5$: MOVB BMPFDB+F.ERR,R1 ;R1 has sign extended error code MOV R1,ARGBLK+2 ;Put error code in message -519,521,/;RAW001/ OUTMSG: .ASCIZ /%N%I*** Output File error, %I error code = (%D) ***/ INXMSG: .ASCIZ /%N%I*** Input Index File %I error = (%D) ***/ BITMSG: .ASCIZ /%N%I*** Input Bitmap File %I error = (%D) ***/ OASNER: .ASCIZ /%N%I*** ALUN$ failure on output, DIR error code = (%D) ***/ IASNER: .ASCIZ /%N%I*** ALUN$ failure on input, DIR error code = (%D) ***/ FCSERR: .ASCIZ /FCS/ DIRERR: .ASCIZ /DIR/ /