.MACRO	ISTAT$	STTBL,KEYTBL,DEBUG
	.MCALL	MTRAN$
	.IF	DF	$RONLY
	.PSECT	$STATE,D,RO
	.IFF
	.PSECT	$STATE,D
	.ENDC
STTBL::
	.IF	DF	$RONLY
	.PSECT	$KTAB,D,RO
	.IFF
	.PSECT	$KTAB,D
	.ENDC
KEYTBL::
	.IF	DF	$RONLY
	.PSECT	$KSTR,D,RO
	.IFF
	.PSECT	$KSTR,D
	.ENDC
	.IF IDN <DEBUG>,<$DEBUG>
	.MACRO DBGTP$
	.LIST
							.=.
	.NLIST
	.ENDM
	.IFF
	.MACRO DBGTP$
	.ENDM
	.ENDC
	$$$KEY = -1
	$$$FLG = -1
	$EXIT = 0
	$LAMDA = 300
	$NUMBR = 302
	$STRNG = 304
	$BLANK = 306
	$SUBXP = 310
	$EOS   = 312
	$DNUMB = 314
	$RAD50 = 316
	$ANY   = 320
	$ALPHA = 322
	$DIGIT = 324
	$HXNUM = 326								;HEXMOD
	$HXDIG = 330								;HEXMOD
	.PSECT
.ENDM	ISTAT$