dirtbiker5627
- 2nd May 2010, 21:03
What am I doing wrong?
pulse var Word
x var byte
signal var byte
ANSEL = %00000000
Start:
Pulsin PORTC.3, 0, pulse
if (pulse < 220) or (pulse > 260) then start
signal = 0
x = 1
Loop:
pulsin PORTC.3, 0, pulse
if (pulse > 90) then ADD_X
READ_IR:
x = x * 2
if (x = 255) then start
serout PORTC.2, 2, [#signal]
clear
goto loop
ADD_X:
signal = signal + x
goto read_ir
end
pulse var Word
x var byte
signal var byte
ANSEL = %00000000
Start:
Pulsin PORTC.3, 0, pulse
if (pulse < 220) or (pulse > 260) then start
signal = 0
x = 1
Loop:
pulsin PORTC.3, 0, pulse
if (pulse > 90) then ADD_X
READ_IR:
x = x * 2
if (x = 255) then start
serout PORTC.2, 2, [#signal]
clear
goto loop
ADD_X:
signal = signal + x
goto read_ir
end