@ dEVICE pic16F628A, INTRC_OSC_NOCLKOUT 
@ device MCLR_off
@ Device WDT_off
@ Device Bod_off
'Robotus.Net 
'Mini Sumo Robot - Kizildev'li
'Kasim 2011
'************    
CMCON = 7
x var word
'************
output 0
output 1
output porta.2
input portb.2
output portb.3
input porta.0
input porta.1
'************
high portb.3
sayim:
for x = 1 to 5
high porta.2
low portb.6
low portb.7
low porta.6
low porta.7
pause 500
low porta.2
low portb.7
low portb.6
low porta.6
low porta.7
pause 500
next 
'************
basla:
if portb.0=0 and portb.1 = 1 then solrakip
if portb.0=1 and portb.1 = 0 then sagrakip
if portb.2=0 and portb.1 = 1 then solkon
if portb.2=1 and portb.4 = 0 then sagkon
if portb.2=1 and portb.4 = 1 then geri
if portb.0=1 and portb.1 = 1 then ileri
high 6
low 7
high porta.6
low porta.7
pause 50
goto basla
'************
geri:
low 6
high 7
low porta.6
high porta.7
pause 600
low 6
high 7
high porta.6
low porta.7
pause 600 
goto basla
'************
ileri:
high 6
low 7
high porta.6
low porta.7
goto basla
'**************

solkon:
low 6
high 7
high porta.6
low porta.7
pause 600 
goto basla
'************
sagkon:
high 6
low 7
low porta.6
high porta.7
pause 600
goto basla
'************

sagrakip:
low 6
high 7
high porta.6
low porta.7
pause 100 
goto basla
'************
solrakip:
high 6
low 7
low porta.6
high porta.7
pause 100
goto basla
'************