$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

	.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$tparse

	movl	uic,@8(ap)
	ret

	.end