.psect  data,rd,wrt,noexe

$TPADEF

TPARSE_INIT:
	.LONG	TPA$K_COUNT0
	.LONG	TPA$M_BLANKS!TPA$M_ABBREV
TPARSE:	.BLKB	TPA$K_LENGTH0

	$INIT_STATE	UIC_STB,UIC_KTB
	$STATE
	$TRAN	TPA$_IDENT,,,,UIC
	$STATE
	$TRAN	TPA$_EOS,TPA$_EXIT
	$END_STATE

UIC:	.LONG

    .psect  code,rd,shr,exe

	.ENTRY	PARSE_UIC,^M<R2,R3,R4,R5>

	; INITIALIZE TPARSE BLOCK
	MOVC5	#8,TPARSE_INIT,#0,#TPA$K_LENGTH0,TPARSE

	; SET THE TPARSE BLOCK STRING INFO
	MOVL	4(AP),R0
	MOVZWL	(R0),TPARSE+TPA$L_STRINGCNT
	MOVL	4(R0),TPARSE+TPA$L_STRINGPTR

	; CALL LIB$TPARSE
	PUSHAB	UIC_KTB
	PUSHAB	UIC_STB
	PUSHAB	TPARSE
	CALLS	#3,G^LIB$TABLE_PARSE

	MOVL	UIC,@8(AP)

	RET

	.END