'=====[ Compiler Directives ]==================================================
$crystal = 16000000
$regfile = "m328def.dat"
$baud    = 1200
'------------------------------------------------------------------------------

const DWELLTIME = 6                    ' this time should be less then the 8ms but longer then the time between each normal byte received.
const STABLEFRAMECOUNT = 3        ' minimum number of good frames before we try using the data...

dim   TickCount      as byte            ' this will hold the number of ms between each byte and 100 if there is no data for 100ms or longer

dim   myData(32)     as byte
dim   myDataindex    as byte
dim   newByte        as byte
dim   frameCount     as byte  ' holds the number of frames up to 100.  its reset to 0 if there is no data for 100ms or more.
dim   frameCountOld  as byte

'=====[ Setup Timer0 for Tick isr ]============================================
Config Timer0= Timer, Prescale= 1024, Compare A= Disconnect, Clear Timer= 1
' crystal  / Prescale / Hz Wanted = reload value
' 16000000 /      64  / 1000      = 250 (1ms steps)
OCR0A = 250 - 1 ' subtract 1 as per AVR docs
On OC0A TickCounter0_isr
Enable Timer0
'------------------------------------------------------------------------------

Enable Interrupts

' The main look starts here.................
do
   if ISCHARWAITING() = 1   then Gosub ProcessNewData
   if frameCount <> frameCountOld then Gosub ProcessNewFrame
loop


ProcessNewData:
   newByte = inkey()                 ' get the new data

   if TickCount > DWELLTIME then
      myDataIndex = 1           ' reset the index
         incr frameCount           ' start of new frame
      else
         incr myDataIndex
   end if

   if myDataIndex < 33 then
      myData(myDataIndex)= newByte      ' load the data into the next position
   end if

   TickCount= 0                      ' reset the timer
return


ProcessNewFrame:
   if frameCount => STABLEFRAMECOUNT then
      '
      ' we have a new frame and its stable!  Now do something with it!  
      '
   end if
   if frameCount > 100 then frameCount = 100
   frameCountOld= frameCount
return


'=====[ Timer ISR routine ]====================================================
TickCounter0_isr:
   Incr TickCount
   if TickCount > 100 then
      TickCount      = 100
      frameCount     = 0
      frameCountOld  = 0
   end if
Return
'------------------------------------------------------------------------------