baud = testbaudrate

$regfile = "m1284pdef.dat"
$crystal = 9830400
$framesize = 500
$swstack = 500
$PROG &HFF , &HC7 , &HD0 , &HFD



config watchdog = 8192
stop watchdog



                                                ' Pullup On

' '-------------------------------------------------------------------------------
'Open a software UART TRANSMIT channel for debug dB9
'-------------------------------------------------------------------------------
'Open a software UART TRANSMIT channel for debug dB9
Open "comc.3:38400,8,n,1" For Output As #1                   '
Open "comc.2:38400,8,n,1" For Input As #5
'---------------------------------------------------------
'Nor 140
'---------------------------------------------------------
' Open Hardware uart on pins 14 & 15 for NOR140

$baud = 38400                                       '
Open "com1:" For Binary As #3

Config Serialin = Buffered , Size = 200 , Cts = Pind.4 , Rts = Pind.7 , Threshold_full = 30 , Threshold_empty = 30

Config Serialout = Buffered , Size = 250

enable interrupts

Declare Function Getmeterresponse(byval metercommandstr As String*10) As String
declare sub change_meter_baudrate()
declare function confirm_meter_id() as byte

Dim Tempstr1 As String * 100
dim tempstr2 as string * 100
dim msg_id as byte
dim retries as byte
dim m as byte
dim testbaudrate as long
dim tempstr9 as string * 255
dim bArray(200) as byte at tempstr9 overlay
dim n As word
dim rxbyte as byte

  '*************
   'MAIN LOOP
  '*************

  do
   wait 1
   Do

      Print #1 , ">> send IT "           'IT to the instrument ellicits a response "Nor140"
      Tempstr1 = Getmeterresponse( "it;")
      wait 1
      If Instr(tempstr1 , "Nor140") <> 0  Then
         print #1,">. we got correct response "
      else
         print #1,">> we got incorrect or no  response"
         call change_meter_baudrate
      End If


   Loop Until Retries >= 200  or msg_id = 0


  loop


  '***********************
  'SUBROUTINES  START HERE
  '***********************
    function confirm_meter_id() as byte

       baud = 38400
       tempstr1 = getmeterresponse("it;")
       if instr(tempstr1,"Nor140")<>0 then
          msg_id = 0
        else
          msg_id = 99
       end if

       confirm_meter_id = msg_id

    end function

'*********************************************************************************
Sub Change_meter_baudrate()
  ' This sub checks the meter at all baud rate from 9600 to 115200 and exits when the correct response is seen

   n = 0
   do
       incr n
       for m = 0 to 4
         testbaudrate = lookup(m,BR_data)

        select case testbaudrate     'i want to replace this complete case statement with baud = testbaudrate
          case 9600
            baud = 9600
          case 19200
            baud = 19200
          case 38400
            baud = 38400
          case 57600
            baud = 57600
          case 115200
            baud = 115200
          case else
            print #1,">> rubbish"
        end select


        ' baud = testbaudrate

         'Now we try to set the meter baud rate to 38400 using the 'test' baudrate
         print #1,">> try "; str(testbaudrate)
         print #3,"BR2"    'command BR2 sets the meter baud rate to 38400
         waitms 1250
         msg_id = confirm_meter_id()
         if msg_id = 0 then exit sub:
       next m


   loop until n >= 25
   print #1,">> no success"
   wait 2
   exit sub
   BR_data:
   data 9600&,19200&,38400&,57600&,115200&


End Sub




 '*************************************************************************************
Function Getmeterresponse(byval metercommandstr As String*10) As String

'meter response looks like      E<space>57.9<cr><lf>

   Local Timedelay As Long
   local Index as byte
   local loopcount as byte
   Index = 1                                               'arrays are 1 based
   Clear Serialin                                           'clear ser buffer
   Print #3 , ""                                            'clear meter buffer
   Print #3 , metercommandstr                               'CRLF is added automatically
   rxbyte = 0                                                'essential
   tempstr9 = ""
   tempstr1 = ""
   Do

      incr loopcount
      While Ischarwaiting(#3) <> 0
         rxbyte = waitkey(#3)
        select case rxbyte
            case 10     'LF
                 exit while
            case 13     'CR
                  exit while
            case 32      'space do nothing
            case Else
              if index<250 then
                bArray(Index) = rxbyte      'overlay byte onto string
                incr index
              else
                exit while
              end if
         end select
      Wend
      waitms 1
   Loop Until  loopcount >= 100
      bArray(index) = &H0                   'string terminator

    print #1,">> meter said ";tempstr9
    loopcount = 0

   Getmeterresponse = tempstr9

End Function
 '*********************************************************************************
 

Const U2X1 = _Xtal / 8

Function Calc_UBRR(byval NewBaud As Dword) As Word
 Local HelpD As Dword
 Helpd = U2X1 / NewBaud
 Calc_UBRR = HelpD - 1
End Function

HelpW = Calc_UBRR : UBRR = HelpW

 

baud #3, testbaudrate

baud #3, testbaudrate

 print #1,">> try "; str(testbaudrate)

Sub Change_meter_baudrate()
  ' This sub checks the meter at all baud rate from 9600 to 115200 and exits when the correct response is seen
  'Becuase of high err rate at 115200, U2X = 1 is needed which has lower err rate


       n = 0
   do
       incr n
       'Single speed
       for m = 0 to 4
         my_UBRR = lookup(m,BR_data)
         print #1,">. test number=";my_UBRR
         UBRR = my_UBRR
         UCSR0A.U2X=0


         'Now we try to set the meter baud rate to 38400 using the 'test' baudrate
         print #1,">> try "; UBRR
         print #3,"BR2"    'command BR2 sets the meter baud rate to 38400
         waitms 1000       'only 100 needed
         msg_id = confirm_meter_id()
         if msg_id = 0 then
           print #1,">> Success.Single speed Both meter & USART are now at 38400"
           exit sub
         end if
       next m

       'try double speed because single speed didnt work
         for m = 5 to 9
              my_UBRR = lookup(m,BR_data)
              print #1,">. test number=";my_UBRR
              UBRR = my_UBRR
              UCSR0A.U2X=1


              'Now we try to set the meter baud rate to 38400 using the 'test' baudrate
              print #1,">> try "; UBRR
              print #3,"BR2"    'command BR2 sets the meter baud rate to 38400
              waitms 1000       'only 100 needed
              msg_id = confirm_meter_id()
              if msg_id = 0 then exit for  'Both meter and UART now at 38400 but U2x=1, so go back to single speed & try again

         next m


   loop until   n >= 100   'for test purposes
   print #1,">> no success"
   wait 2
   exit sub
   BR_data:

   data 63,31,15,10,4,127,63,31,20,10
End Sub

 

  UBRR0 = const

 UBRR1 = const

UBRR0L = 257

       UBRR = 257

       print #1,UBRR0
       print #1,bin(UBRR0)     ' -> 0000000000000001
       print #1,bin(UBRR)       ' -> 0000000000000001
       print #1, bin(UBRR0L)  ' -> 00000001
       stop

 
       UBRR0 = 257

       print #1,UBRR0
       print #1,bin(UBRR0)     ' -> 0000000000000001
       print #1,bin(UBRR)       ' -> 0000000000000001
       print #1, bin(UBRR0L)  ' -> 00000001