'for Carpet Rover
'to test the IRPD
'Connections;
'IRPD output to I/O pin5
'IRPD left LED to I/O pin6
'IRPD right LED to I/O pin7

symbol temp = b2
symbol x = w2
dirs = %11011111	'pin0-4 = output, pin5 = input, pin6-7 = output
start:

temp = 0
for x=1 to 10
pin7 = 1
temp = temp + pin5
pin7 = 0
next x
debug "right ",#temp,cr
for x=1 to 750:next

temp = 0
for x=1 to 10
pin6 = 1
temp = temp + pin5
pin6 = 0
next x
debug "left ",#temp,cr
for x=1 to 750:next

goto start