$regfile = "m128def.dat"
$hwstack = 160                                    ' default use 32 for the hardware stack
$swstack = 160                                    'default use 10 for the SW stack
$framesize = 160                                  'default use 40 for the frame space
$crystal = 16000000

Dim Case_check_0 as byte
Dim Char_count0 As Byte
Dim Eval_string_0 As String * 15          'Dimension for 15 bytes but use around 10 (See Max_String_Length constant)
Dim A(14) As Byte
Dim A_text As String * 1
Dim char_present as byte

'These should already be there...
Config Serialin = Buffered , Size = 200            'Allow 200 bytes of storage for incoming data
Config Serialin1 = Buffered , Size = 200

Config Serialout = Buffered , Size = 200           'USART 0
Config Serialout1 = Buffered , Size = 200          'USART1

Open "COM1:" For Random As #1
Open "COM2:" For Random As #2

Enable Interrupts

Print "Running..."

char_count0 = 1      'set initial value on startup

'************** Main Prog Loop ********************
Do

      'Running main program loop

      'check if chars are in buffer, jump to sub and retrieve chars
      Char_present = IsCharWaiting ()
      If Char_present = 1 then
            Char_count0 = 1         'set initial value before reading chars

            Gosub Read_Serial
      End If

Loop
'************************************************

Adjust_RTC:
      Print "Adjust RTC"

      'Do cool stuff here......

      Gosub Delete_Eval_string_0
Return

Delete_Eval_string_0:

      'clear chars from string when finished
      delchar eval_string_0, 1
      delchar eval_string_0, 2
      delchar eval_string_0, 3
      delchar eval_string_0, 4
      delchar eval_string_0, 5
      delchar eval_string_0, 6
      delchar eval_string_0, 7
      delchar eval_string_0, 8
      delchar eval_string_0, 9
      delchar eval_string_0, 10
      delchar eval_string_0, 11
      delchar eval_string_0, 12
      delchar eval_string_0, 13
      delchar eval_string_0, 14
      delchar eval_string_0, 15

      'Reset these values back to a "Ready to Process" state.
      Char_count0 = 1
      Case_check_0 = 0
      A_Text =""

      Clear SerialIn0

Return

Display_ETI:
      Print "Show ETI"

      'Do cool stuff here......

      Gosub Delete_Eval_string_0
Return

Invalid_message_0:
      Clear Serialin
      Case_check_0 = 0
      Print "Invalid Command"

      'Delete characters from string if an invalid message is received.
      'otherwise chars will remain in memory and keep giving invalid messages
      'This allows recovery in the event of data corruption.
      Gosub Delete_Eval_string_0
Return

Read_serial:

      Do
               A(Char_count0) = Inkey()

               If A(Char_count0) = 10 Then

                     'CR LF has been received, assume message is complete at this point.
                     'Exit Do-Loop and evaluate what has been received.

                     Case_check_0 = 1         'LF received, now time to evaluate message below
                     Char_count0 = 1

                     Exit do
               End If

               'Build a string with the received chars.
               If A(char_count0) > 10 Then   'For chars with an ASCII value greater than 10
                     A_text = Chr(a(Char_count0))
                     Mid(eval_string_0 , Char_count0 , 1) = A_text
                     Print Char_count0;"   "; chr (A(Char_Count0));  "                 "; Eval_String_0     'debugging only

                     Incr Char_count0
               End If

      Loop until char_present = 0

      If Case_check_0 = 1 Then                    'evaluate received strings
            Select Case Eval_string_0

                   Case "reti":  Gosub Reset_ETI
                   Case "Show ETI": Gosub Display_ETI
                   Case "Adjust RTC": Gosub Adjust_RTC
                  Case Else : Gosub Invalid_message_0

            End Select
      End If

      Clear Serialin0
Return

Reset_ETI:
      'Reset value of  Elapsed Time Indicator.

      Print "Resetting ETI"

      'Do cool stuff here......

      Gosub Delete_Eval_string_0
Return




End      'of code listing
 

Memfill eval_string_0, 15 , 0