I finally got the code working but it is very ineffecient. I am only 17 and I came up with the code with only a little help so give me some credit. Its not the best but if any of you have other ways to compress the code and make it more effecient please reply. Thanks
Code:DEFINE OSC 4 ANSEL = %00000000 IR_PULSE var word(11) SIGNAL var word START_PULSE var word INDEX var byte X var byte Main: Pulsin PORTC.3, 0, start_pulse if (start_pulse < 220) or (start_pulse > 260) then main for index = 0 to 11 pulsin PORTC.3, 0, ir_pulse(index) next index Convert: x = 1 signal = 0 for index = 0 to 11 if (ir_pulse(index) > 90) then ADD_X READ_IR: x = x * 2 next index serout PORTC.2, 2, [#signal, 9] clear goto main ADD_X: signal = signal + x goto read_ir end




Bookmarks