//6 cykli na petle(lacznie 122 cykle)
 lcntr=LENGTH, do loopend until lce;
 	f0=dm(i0,m1); /*czyta A*/
 	f1=pm(i8,m9); /*czyta B*/
 	f3=f0*f1;
 	f4=dm(i1,m1); /*czyta C*/
 	f3=f3+f4;
 loopend: dm(i2,m1)=f3; /*gromadzi w i2*/
 
 //4 cykli na petle(lacznie 82 cykle)
 lcntr=LENGTH, do loopend until lce;
 	f0=dm(i0,m1), f1=pm(i8,m9); /*czyta A czyta B*/
 	f3=f0*f1, 	f4=dm(i1,m1); /*czyta C*/
 	f3=f3+f4;
 loopend: dm(i2,m1)=f3; /*gromadzi w i2*/
 
  
 //3 cykli na petle(lacznie 64 cykle)
 f0=dm(i0,m1), f1=pm(i8,m9); /*czyta A czyta B*/
 lcntr=LENGTH-1, do loopend until lce;
 	f3=f0*f1, 	f4=dm(i1,m1); /*czyta C*/
 	f3=f3+f4, f0=dm(i0,m1), f1=pm(i8,m9);
 loopend: dm(i2,m1)=f3; /*gromadzi w i2*/
 
 f3=f0*f1, f4=dm(i1,m1);
 f3=f3+f4;
 dm(i2,m1)=f3;	
 
  //2 cykle na petle(lacznie 50 cykle)
 f0=dm(i0,m1), f1=pm(i8,m9); /*czyta A czyta B*/
 f3=f0*f1, 	f4=dm(i1,m1); /*czyta C*/
 f3=f3+f4, f0=dm(i0,m1), f1=pm(i8,m9);
 lcntr=LENGTH-2, do loopend until lce;
 	f3=f0*f1, f0=dm(i0,m1), f1=pm(i9,m9);
 loopend: f3=f3+f4, f0=dm(i0,m1), f1=pm(i8,m9);
  f3=f0*f1, f4=dm(i1,m1), pm(i9,m9);
 f3=f3+f4;
 pm(i9,m9)=f3;