'-----------------------------------------------------------------------------------------
'name                     : rs485-modbus-master.bas
'copyright                : (c) 1995-2020, MCS Electronics
'purpose                  : demo file for MAKEMODBUS
'micro                    : XMega32
'-----------------------------------------------------------------------------------------
'*******************************************************************************
'ModBUS test program
'ATXMEGA32
'TestBoard-MS
'2024-10
'*******************************************************************************
'Energy meter  TAC1101 Tariff
'-From Dokumentation-----------------------
'Usage: TAC1100 [-a address] [-d] [-x] [-p] [-v] [-c] [-e] [-i] [-t] [-f] [-g] [-T] [[-m]|[-q]] [-b baud_rate] [-P parity] [-S bit] [-z num_retries] [-j seconds] [-w seconds] device
'TAC1100 [-a address] [-d] [-b baud_rate] [-P parity] [-S bit] -s new_address device
'TAC1100 [-a address] [-d] [-b baud_rate] [-P parity] [-S bit] -r baud_rate device
'TAC1100 [-a address] [-d] [-b baud_rate] [-P parity] [-S bit] -R new_time device
'where
'-a address Meter number (between 1 and 247). Default: 1
'-s new_address Set new meter number (between 1 and 247)
'-p Get power (W)
'-v Get voltage (V)
'-c Get current (A)
'-f Get frequency (Hz)
'-g Get power factor
'-e Get exported energy (Wh)
'-i Get imported energy (Wh)
'-t Get total energy (Wh)
'-T Get Time for rotating display values (0 = no rotation)
'-d Debug
'-x Trace (libmodbus debug on)
'-b baud_rate Use baud_rate serial port speed (1200, 2400, 4800, 9600) Default: 2400
'-P parity Use parity (E, N, O)
'-S bit Use stop bits (1, 2). Default: 1
'-r baud_rate Set baud_rate meter speed (1200, 2400, 4800, 9600)
'-R new_time Change rotation time for displaying values (0 - 30s) (0 = no totation)
'-m Output values in IEC 62056 format ID(VALUE*UNIT)
'-q Output values in compact mode
'-z num_retries Try to read max num_retries times on bus before exiting with error. Default: 1 (no retry)
'-j 1/10 secs Response timeout. Default: 2=0.2s
'-D 1/1000 secs Delay before sending commands (wait line set). Default: 30=0.03s
'-w seconds Time to wait to lock serial port. (1-30s) Default: 0s device Serial device, i.e. /dev/ttyUSB0
'*******************************************************************************

$regfile = "xm32a4udef.dat"
$crystal = 32000000
$hwstack = 50
$swstack = 50
$framesize = 50

$lib "modbus.lbx"
Config Print1 = Portb.3 , Mode = Set

Rs485dir Alias Portb.3                                      'make an alias
Config Rs485dir = Output                                    'set direction register to output
Rs485dir = 0                                                ' set the pin to 0 for listening

'Config Modbus = Default

'
'-Oscilator ----------------------------------------------------------------------
'
Config Osc = Enabled , Extosc = Enabled , Pllosc = Enabled , Range = 12mhz_16mhz , Startup = Xtal_16kclk , Pllsource = Extclock , Plldiv2 = Disabled , Pllmul = 2 , 32khzosc = Disabled
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled
'Config Priority = Static , Vector = Application , Lo = Enabled
'-------------------------------------------------------------------------------
'Config Submode = New
'-EEPROM XMEGA-----------------------------------------------------------------
'Config Eeprom = Mapped
'------------------------------------------------------------------------------

'-COM Ports ---------------------------------------------------------------------------------
'Serial Interface to PC
'COM----UART----TX pin--RX pin-
'COM1 - UART_C0 PORTC.3 PORTC.2     RS485- ModBUS Energy meter
'COM3 - UART_D0 PORTD.3 PORTD.2     PC-Terminal
'COM5 - UART_E0 PORTE.3 PORTE.2     WiFi ESP8266

Config Com1 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Config Com3 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
'Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8

'--Open all UARTS----------------------------------------------------------------------------------
Open "COM1:" For Binary As #1                               'RS485- ModBUS Energy meter
Open "COM3:" For Binary As #3                               'PC-Terminal
'Open "COM5:" For Binary As #5                              'WiFi  ESP8266

Config Serialin = Buffered , Size = 50
Config Serialin2 = Buffered , Size = 50
Enable Interrupts

'-----------------------------------------------------------------------------------
Print #3 , "*****Energy meter 2024-10*****"

Dim B As Byte
Dim W As Word
Dim L As Long

Dim Str_mbus As String * 20

W = &H4567                                                  'assign a value
L = &H12345678                                              'assign a value

Main:
Do

      Wait 2                                                ' delay
      'Print "send request to slave/server"
     ' Send one of the following three messages
      Print #1 , Makemodbus(1 , 3 , &H2B , 24);             ' slave 2, function 3, start address 2B, 4 words is 8 bytes
      W = &HDD :
     'Print #1 , Makemodbus(1 , 3 , &H64 , W);    ' slave 2, function 6, address 8  , value of w
     'Print #1 , Makemodbus(2 , 16 , 8 , L);               ' slave 2, function 16, address 8 , send a long

      While Ischarwaiting() <> 0
       B = Waitkey(#1)
       Str_mbus = Str_mbus + Hex(b)
      Wend

      Print #3 , Str_mbus
      Str_mbus = ""

   'If Ischarwaiting(#1) <> 0 Then                           'was something returned?
   '    B = Waitkey(#1)                                      'then get it
   '    Print#3 , Hex(b) ; ",";                              'print the info
   'End If
Loop

End

Print #1 , Makemodbus(&H01 , &H04 , &H00000002 , &H04);

Print #1, Makemodbus(&H01, &H04, &H0000, &H0002, &H04);

Dim L As Long
Dim Sn As Single At L Overlay
L = &H43618A75
print sn