Проектирование устройства управления электродвигателем, страница 4

    DDRB:=%00001000;  

    TCCR2:=%01100001; 

    TCCR1A:=%10000001; 

    y:=0;        

    x:=0;        

{==============================================================}

     loop        

       x:=180;

label: M1;          

       if RxD=1 then

          f:=-90; 

       endif;    

       if TxD=1 then

          f:=90; 

       endif;             

       y:=sin(x+1)*255/2;

       z:= Round(y);

       MDelay(100);

       OCR2:=z;   

       y1:=sin(x+1+f)*255/2;

       z1:= Round(y1);

       MDelay(100);

       OCR1A:=z1; 

       f:=0;      

       if x=360 then

          x:=0;   

          goto M1;

       endif;     

       if x<360 then

          x:=x+10;

          goto M1;               

     endloop;                  

{==============================================================}

end AVR_Mega8.                   

{--------------------------------------------------------------}