* $Source: /commtar/monoBANK/RTS/tKstandard.a,v $
* $Revision: 1.1 $ $Date: 88/02/29 14:16:51 $ $Author: callen $
        PUNCH ' ALIAS STNDRDSR,#ADAEXCN,#ADAEXNM'
        PUNCH ' ALIAS #ADAEXPR,#ADAEXST,#ADAEXTK'
STANDARD ADASTART   'Descriptors for standard errors',CICS=NO
	SPACE  2
	ENTRY STNDRD1R,#ADAEXCN,#ADAEXNM,#ADAEXPR,#ADAEXST,#ADAEXTK
	ENTRY STNDRDSR
	SPACE  2
$STANDAR DS    0F
STNDRDSR DS    0F
	DS    12X
#ADAEXCN DC    X'80',AL3(CONSERR)
	DC    F'0'
#ADAEXNM DC    X'80',AL3(NUMERR)
	DC    F'0'
#ADAEXPR DC    X'80',AL3(PROGERR)
	DC    F'0'
#ADAEXST DC    X'80',AL3(STGERR)
	DC    F'0'
#ADAEXTK DC    X'80',AL3(TSKERR)
	DC    F'0'
	DS    0D
	DC    XL8'FFFFFFFE00000000'      short_float'first
	DC    D'0'
	DC    XL8'7FFFFFFE00000000'      short_float'last
	DC    XL8'FFFFFFFF00000000'      float'first
	DC    D'0'
	DC    XL8'7FFFFFFF00000000'      float'last
	SPACE 2
CONSERR  DC    C'Constraint Error',X'0'
	SPACE 1
NUMERR   DC    C'Numeric Error',X'0'
	SPACE 1
PROGERR  DC    C'Program Error',X'0'
	SPACE 1
STGERR   DC    C'Storage Error',X'0'
	SPACE 1
TSKERR   DC    C'Tasking Error',X'0'
	SPACE 1
STNDRD1R DS    0F
	END
* $Cprt start$
*  
* Copyright (C) 1988 by Intermetrics, Inc. 
*  
*     This material may be used duplicated or disclosed by or for the 
* U.S. Government pursuant to the copyright license under DAR clause 
* 7-104.9(a) (May 1981). 
*  
*     This project was spnsored by the STARS Foundation 
*     Naval Research Laboratory, Washington DC 
*  
* $Cprt end$