PROGRAM NAME CREATED VIA NEW PROJECT!!
COPY AND PASTE FROM NEXT LINE DOWN
'***********************************************
Sub Procedure Forward
PortB = %00000000
Delay_ms(5)
PortB = %00101101
Delay_ms(50)
end sub
'***********************************************
Sub Procedure Reverse
PortB = %00000000
Delay_ms(10)
PortB = %00110011
Delay_ms(50)
end sub
'***********************************************
Sub Procedure T_Left
PortB = %00000000
Delay_ms(10)
PortB = %00101011
Delay_ms(50)
end sub
'***********************************************
Sub Procedure T_Right
PortB = %00000000
Delay_ms(10)
PortB = %00110101
Delay_ms(50)
end sub
'***********************************************
Sub Procedure Halt
Delay_ms(50)
PortB = %00000000
end sub
'***********************************************
Main:
TrisB = %00000000 ' Configure pins of PortB as output
TrisA = %00000000 ' Configure pins of PortA as output
mainloop:
Forward
Delay_ms(1000)
Reverse
Delay_ms(1000)
T_Left
Delay_ms(3000)
T_Right
Delay_ms(3000)
Forward
Delay_ms(200)
Reverse
Delay_ms(200)
Forward
Delay_ms(200)
Reverse
Delay_ms(200)
T_Left
Delay_ms(200)
T_Right
Delay_ms(200)
Goto mainloop
End.
