.TITLE	TPARSE STRUCTURE FOR C_SITE CONFIGURATION CONTROL
	.IDENT	'V1.00'
;************************************************************************
;
;	TPARSE STATE TABLE AND KEY TABLE STRUCTURE FOR USE WITH THE
;	C_SITE SOFTWARE CONFIGURATION CONTROL TASK
;
;	AUTHOR - STEPHEN R. RAINIER		DATE - April 05, 1985
;
;	PURPOSE - TO DEFINE THE COMMAND LANGUAGE INTERPRETTER FSM FOR
;		  C_SITE CONFIGURATION CONTROL COMMANDS.
;
;	MODIFIED -
;
;
;	COMMENTS -
;
;************************************************************************
	.GLOBAL		READ_CMD,READ_SWITCH,SAVE_PARAM
	$TPADEF
;
	$INIT_STATE	STATE_TABLE, KEY_TABLE
;
	$STATE	START
	$TRAN	TPA$_SYMBOL, GOT_CMD, READ_CMD
	$TRAN	TPA$_EOS, TPA$_EXIT
;
	$STATE	GOT_CMD
	$TRAN	'/', GOT_SWITCH,READ_SWITCH
	$TRAN	TPA$_EOS, TPA$_EXIT
	$TRAN	TPA$_LAMBDA,GET_PARAM
;
	$STATE	GOT_SWITCH
	$TRAN	TPA$_ANY,GOT_SWITCH,READ_SWITCH
	$TRAN	TPA$_BLANK
	$TRAN	TPA$_EOS, TPA$_EXIT
	$TRAN	TPA$_LAMBDA
;
	$STATE	GET_PARAM
	$TRAN	TPA$_ANY,GET_PARAM,SAVE_PARAM,,,2
	$TRAN	TPA$_BLANK
	$TRAN	TPA$_EOS, TPA$_EXIT
	$TRAN	TPA$_LAMBDA
;
	$STATE	PARAM_THREE
	$TRAN	TPA$_ANY,PARAM_THREE,SAVE_PARAM,,,3
	$TRAN	TPA$_BLANK
	$TRAN	TPA$_EOS, TPA$_EXIT
	$TRAN	TPA$_LAMBDA
;
	$STATE	PARAM_FOUR
	$TRAN	TPA$_ANY,PARAM_FOUR,SAVE_PARAM,,,4
	$TRAN	TPA$_BLANK
	$TRAN	TPA$_EOS, TPA$_EXIT
	$TRAN	TPA$_LAMBDA
;
	$STATE	PARAM_FIVE
	$TRAN	TPA$_ANY,PARAM_FIVE,SAVE_PARAM,,,5
	$TRAN	TPA$_BLANK
	$TRAN	TPA$_EOS, TPA$_EXIT
	$TRAN	TPA$_LAMBDA
;
	$STATE	PARAM_SIX
	$TRAN	TPA$_ANY,PARAM_SIX,SAVE_PARAM,,,6
	$TRAN	TPA$_BLANK
	$TRAN	TPA$_EOS, TPA$_EXIT
	$TRAN	TPA$_LAMBDA
;
	$STATE	END_OF_LINE
	$TRAN	TPA$_ANY,TPA$_FAIL
	$TRAN	TPA$_EOS, TPA$_EXIT
;
	$END_STATE
;
	.END