.IDENT /1-1/
	.PSECT	$TRANS,EXE,NOWRT,PIC,SHR,GBL
	.MACRO	TRANS	UNAME,LNAME
	.TRANSFER	UNAME
	.IF NB		LNAME
	.MASK		LNAME
	JMP		LNAME+2
	.IFF
	.MASK		UNAME
	JMP		UNAME+2
	.ENDC
	.ENDM	TRANS