Interrupt driven Buffered Serial Input

[johnmiller]

I tried your code, and now I tried the one above and still does not work

ReadSerial:
   DataRec var byte[5] : DataRec = 0
   
   While CounterA <= 55
        HSERIN [serdata2]        'save serial port data right away
        if serdata2 = $13 THEN
           i = 0
           KP = 1
        ENDIF
        if KP = 1 then
           IF i=5 THEN
              SerData(CounterA) = serdata2
              CounterA = CounterA + 1
              KP = 0
           endif
           i = i + 1
        endif
   wend

   FOR COUNTERB=42 to COUNTERA
        SEROUT2 SerWRT,16416,[hex2 SerDATA(COUNTERB), 10, 13]
        NEXT COUNTERB
   Goto ReadReadyLoop

I tried this one as well and it doesn't work either:

    SERIN2 [WAIT($20), SKIP 4, serdata2]

PS: it doesn't work it's like the pic is not reading the data fast enough. It is supposed to read the data from a keyboard that than sends data over a serial link at 19200 (not inverted).

All the above codes work if I press a key once per second or so, but they don't work any faster. Anybody can tell me why

[skimask]

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...

[johnmiller]

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

[skimask]

I don't think pasting 80 pages will do any good
I really don't understand what's wrong with my code

And I guess neither will we...

[mister_e]

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.

[johnmiller]

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

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

[mister_e]

While / Wend was in the bug list right?

Seems good to me.