fn EExecYA1 &out_prm1 in_prm1 in_prm2 in_prm3 in_prm4 Att_1 Sg1 Sg2 Sg3 Sg4 FM =
(

	if ((in_prm1==undefined) or (in_prm2==undefined) or (in_prm3==undefined)) then return false;


	local p1,p2,p3,ksi, p9,p10,y2
	
	CreateCopy &p1 in_prm1 
	p1.FAtt=CopyAtt in_prm1.FAtt 

	CreateCopy &p2 in_prm2 
	p2.FAtt=CopyAtt in_prm2.FAtt 

	CreateCopy &p3 in_prm3 
	p3.FAtt=CopyAtt in_prm3.FAtt 

	CreateCopy &ksi in_prm4 
	ksi.FAtt=CopyAtt in_prm4.FAtt 

	EExecL3 &p9 &p10 ksi Att0 Att0 Sg4 "0"
	EExecY0 &y2 p1 p2 p3 p9 p10 Att0 Sg1 Sg2 Sg3 1 1 "0"
	
	CreateCopy &out_prm1 y2 
	out_prm1.FAtt=CopyAtt Att_1 

	return true
) -- EExecYA1