.title	fdvtrm
	.ident	/v02/
	.list	meb

	.mcall	cf$ent,cf$xit

fdvtrm::	cf$ent
	$fdv	fnc=trm,trm=args(fp),nam=args+2(fp),val=args+4(fp),len=args+6(fp)
	cf$xit
	.end