.MACRO	ULOEPT	NAME
	.IF	B	NAME
	.MEXIT
	.ENDC
	.NCHR	$$$ULO,NAME
	.IF	GT	$$$ULO-6
	.ERROR
	.ENDC
	.RAD50	/NAME/
	.IF	LE	$$$ULO-3
	.WORD	0
	.ENDC
	.WORD	NAME-$$$STR
	$$$LOB=$$$LOB+1
	.ENDM