.MACRO	$KERDEF,$G

 	$DEFINI	KER,$GBL


 $EQU	KER_FACILITY	<^X801>
					;
					; GENERAL MESSAGES AND ERRORS
					;
 $EQU	KER_NORMAL	<^X0801800B>
 $EQU	KER_INTERNALERR	<^X08018012>
					;
					; COMMAND SCANNER ERROR MESSAGES AND WARNINGS.
					;
 $EQU	KER_CMDERR	<^X0801801A>
 $EQU	KER_ILLEOL	<^X08018022>
 $EQU	KER_ILLPKTLEN	<^X0801802A>
 $EQU	KER_ILLPADCHR	<^X08018032>
 $EQU	KER_ILLNPAD	<^X0801803A>
 $EQU	KER_LINTOOLNG	<^X08018042>
 $EQU	KER_ILLSOH	<^X0801804A>
 $EQU	KER_ILLQUO	<^X08018052>
 $EQU	KER_LOCONLY	<^X0801805A>
					;
					; FILE PROCESSING ERROR MESSAGES AND WARNINGS.
					;
 $EQU	KER_EOF	<^X08018063>
 $EQU	KER_RMS32	<^X0801806A>
 $EQU	KER_NOMORFILES	<^X08018073>
 $EQU	KER_ILLFILTYP	<^X0801807A>
 $EQU	KER_REC_TOO_BIG	<^X08018082>
					;
					; MESSAGE LEVEL PROCESSING ERROR MESSAGES AND WARNINGS.
					;
 $EQU	KER_ERRMSG	<^X0801808A>
 $EQU	KER_CHKSUMERR	<^X08018092>
 $EQU	KER_SNDERR	<^X0801809A>
 $EQU	KER_RETRIES	<^X080180A2>
 $EQU	KER_EXIT	<^X080180AB>
 $EQU	KER_UNIMPLGEN	<^X080180B2>
 $EQU	KER_UNISRV	<^X080180BA>
 $EQU	KER_PROTOERR	<^X080180C2>
 $EQU	KER_ZEROLENMSG	<^X080180CA>
					;
					; TERMINAL LEVEL PROCESSING MESSAGES
					;
 $EQU	KER_LINTERM	<^X080180D2>
 $EQU	KER_TIMEOUT	<^X080180D8>
 $EQU	KER_ABORTED	<^X080180E2>
 $EQU	KER_RECERR	<^X080180EA>
 $EQU	KER_CON_SAME	<^X080180F2>
					;
					; MORE COMMAND SCANNER ERRORS.  THESE ARE HERE TO KEEP FROM SHIFTING THE OTHER
					; ERROR CODES.
					;
 $EQU	KER_AMBIGKEY	<^X080180FA>
 $EQU	KER_UNKNOWKEY	<^X08018102>
					;
					; TAKE COMMAND CODES
					;
 $EQU	KER_TAKE_EOF	<^X0801810B>
 $EQU	KER_TAKE_ERROR	<^X08018112>

 	$DEFEND	KER,$GBL,DEF

 	.ENDM	$KERDEF