I think I can reasonably assume that what you posted isn't all of your code that you are trying to make work.
And if it is...well, where's the beef?
Post the whole thing if you want any useful help...
I think I can reasonably assume that what you posted isn't all of your code that you are trying to make work.
And if it is...well, where's the beef?
Post the whole thing if you want any useful help...
Well this is the only part where I have problems and I don't think pasting 80 pages will do any good
I really don't understand what's wrong with my code
here's the plan... shrink the whole thing and test with a simple program... simple main loop (led blinking or else) + USART INT. Then post the whole new thing.
Steve
It's not a bug, it's a random feature.
There's no problem, only learning opportunities.
Ok. I managed to do my work with this(after a lot of struggle) but it works. Hope this code will help somebody in the future
PS: Thanks guys for the help
Code:ReadSerial: DataRec var byte[6] for counterB=0 to 5 DataRec(counterB)=0 next counterB While CounterA <= 254 HSERIN [serdata2] DataRec(0)=DataRec(1) DataRec(1)=DataRec(2) DataRec(2)=DataRec(3) DataRec(3)=DataRec(4) DataRec(4)=DataRec(5) DataRec(5)=serdata2 IF DataRec(0)=$20 AND DataRec(2)="K" AND DataRec(3) = "E" AND DataRec(4) = "Y" THEN ' Parse serial data (command entered) SerData(CounterA) = serdata2 CounterA = CounterA + 1 endif wend FOR COUNTERB=0 to COUNTERA SEROUT2 SerWRT,16416,[SerDATA(COUNTERB), 10, 13] NEXT COUNTERB Goto MainLoop
While / Wend was in the bug list right?
Seems good to me.
Steve
It's not a bug, it's a random feature.
There's no problem, only learning opportunities.
Bookmarks