Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 320 → Rev 319

/roboti/Robiada/2007/SW/robot/robot.brws
9,7 → 9,7
adresh C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 733;" d
adresl C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 732;" d
bsr C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 760;" d
buttons C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 41;" d
buttons C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 41;" d
ccp1con C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 727;" d
ccp2con C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 724;" d
ccpr1h C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 729;" d
26,7 → 26,7
fsr1l C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 761;" d
fsr2h C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 754;" d
fsr2l C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 753;" d
i C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 42;" d
i C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 42;" d
indf0 C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 775;" d
indf1 C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 767;" d
indf2 C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 759;" d
38,11 → 38,11
lata C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 700;" d
latb C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 701;" d
latc C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 702;" d
leds C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 39;" d
leds1 C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 40;" d
leds C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 39;" d
leds1 C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 40;" d
lvdcon C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 747;" d
main C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 36;" s
motors C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 37;" d
main C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 36;" s
motors C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 37;" d
osccon C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 748;" d
pcl C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 785;" d
pclath C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 786;" d
72,9 → 72,9
rcon C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 745;" d
rcreg C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 719;" d
rcsta C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 716;" d
receive C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 20;" f
send C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 31;" s
sensors C:\Documents and Settings\Robiada\Desktop\SW\robot\robot.bas 38;" d
receive C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 20;" f
send C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 31;" s
sensors C:\Documents and Settings\Robiada\Desktop\SW\vzor\robot.bas 38;" d
spbrg C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 720;" d
sspadd C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 737;" d
sspbuf C:\Program Files\SourceBoost\Include\basic\pic18F252.bas 738;" d
/roboti/Robiada/2007/SW/robot/robot.bas
68,11 → 68,17
Do while 1
Do while i <= 500000
i=i+1
loop
motors = motors + 0x11
buttons = portb
If (buttons.1)=0 Then
i=0
leds1 = leds1 - 1
lata = leds1
Do while i <= 500000
i=i+1
loop
motors = motors + 0x11
elseif (buttons.4)=0 Then
i=0
leds1 = leds1 + 1