.TITLE	ERRCHK - PICK UP ERROR COUNT
	.LIST	MEB
;
;	PICKS UP SYSTEM ERROR COUNT, RETURNS IT AS STATUS ON EXIT
;
	.MCALL	EXST$S
;
ENTRY:
	MOV	$ERRSQ,R0
	EXST$S	R0

	.END	ENTRY