.TITLE	ITSTCH
;+
;**ITSTCH---TEST CHARACTER
;
; THIS IS A FORTRAN FUNCTION THAT
; ALLOWS A CHARACTER TO BE TESTED AND A VARIABLE
; SET TO SHOW TYPE OF CHARACTER
;
; CALL:
;
;	ITYP= ITSTCH (ICHR)
; WHERE:
;	"ICHR" IS ANY VARIABLE CONTAINING THE CHAR TO BE TESTED.
;	"ITYPE" IS RETURNED TO INDICATE TYPE OF CHAR:
;	1=ALPHA
;	2=NUMERIC
;	3=SPACE
;	4=SPECIAL
;	5=CONTROL
;-
	.MCALL	CALL,RETURN
ITSTCH::MOVB	@2(R5),R1	;GET CHARACTER
$TSTCH::MOV	#1,R0		;ASSUME ALPHA
	CMPB	R1,#'Z		;CHECK LIMIT OF ALPHA
	BHI	SPCL		;BR IF SPECIAL
	CMPB	R1,#'A		;NOW LOWER LIMIT
	BHIS	ALPHA		;BR IF ALPHA
	CMPB	R1,#'9		;NOW TRY NUMBERS
	BHI	SPCL		;BR IF A SPECIAL
	CMPB	R1,#'0		;NOW OTHER END
	BHIS	NUMRIC
	CMPB	R1,#' 	;CK FOR SPACE
	BEQ	SPACE
	BHI	SPCL
	INC	R0
SPCL:	INC	R0
SPACE:	INC	R0
NUMRIC:	INC	R0
ALPHA:	RETURN
	.END