@ dEVICE pic16F628A, INTRC_OSC_NOCLKOUT 
@ device MCLR_off
@ Device Bod_off
@ Device WDT_off
'Robotus.Net 
'Kasim 2011
'Rokart 3.1 icin gecerli programdir.
'Servo Motorlar b.2, b.3 ve b.4 pinlerine baglidir. 
'Programda 3 servo hareketiyle bocek robot ileri gitmektedir.
temp var byte      ' 
zaman var byte
m_servo var byte
l_servo var byte
r_servo var byte

portb.2 = 0        ' 
portb.3 = 0
portb.4 = 0 

m_servo = 140      '   
l_servo = 140
r_servo = 140
 
 
ileri:

             for temp = 1 to 7
                 m_servo = 160 
                 gosub servo
                 l_servo = 110
                 r_servo = 110
                 gosub servo
                 m_servo = 120
                 gosub servo
                 l_servo = 170
                 r_servo = 170
                 gosub servo
             next temp
         
              
goto ileri

servo:                           

       for zaman = 1 to 10
       pulsout portb.3,m_servo
       pulsout portb.2,l_servo
       pulsout portb.4,r_servo
       pause 25
       next zaman
return

end