Dim W As Word , Ar(10) As Byte
Print Sizeof(w)
Print Sizeof(ar())

var = VARPTR( var2 )     'A variable to retrieve the address from
var = VARPTR( "var3" )   'A constant

'____________________________________________________________________________________
' Given any sequence of variables of type Byte, Word, Long and Array of Bytes this example shows how to obtain a string
' whose bytes are the bytes of the variables one after the other.

' It is useful to write binary data to an SD card or the send it via serial port using a binary protocol

'____________________________________________________________________________________
$regfile = "xm192a3def.dat"                                 ' ATxmega192A3
'____________________________________________________________________________________
$hwstack = 256
$swstack = 128
$framesize = 128
'____________________________________________________________________________________
'   For  16MHz crystal
Config Osc = Disabled , Extosc = Enabled , Range = 12mhz_16mhz , Startup = Xtal_1kclk , 32khzosc = Enabled
' Set PLL OSC conditions:
Osc_pllctrl = &B1100_0010                                   ' reference external oscillator, set the PLL' multiplication factor to 2 (bits 0 - 4)
Set Osc_ctrl.4                                              ' Enable PLL Oscillator
Bitwait Osc_status.4 , Set                                  ' wait until the pll clock reference source is stable
Clk_ctrl = &B0000_0100                                      ' switch system clock to pll
' Prescale
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1
$crystal = 32000000
'____________________________________________________________________________________
Config Com1 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM1:" For Binary As #1
'____________________________________________________________________________________
'   VARIABLES

     Dim Long_variable As Long
     Dim Long0 As Byte At Long_variable Overlay
     Dim Long1 As Byte At Long_variable + 1 Overlay
     Dim Long2 As Byte At Long_variable + 2 Overlay
     Dim Long3 As Byte At Long_variable + 3 Overlay

     Dim Word_variable As Word
     Dim Word0 As Byte At Word_variable Overlay
     Dim Word1 As Byte At Word_variable + 1 Overlay

     Dim Byte_array_variable(5 )as Byte

     Dim Wtemp As Word
     Dim Btemp As Byte
     Dim N As Byte

     Dim Var_address As Word
     Dim Var_size As Byte

     Dim Reg_p_ar(401) As Byte
     Dim Reg_p_str As String * 400 At Reg_p_ar Overlay
     Dim K As Word
'____________________________________________________________________________________
'  INI VARIABLES

'   Initialize array Reg_p_ar()  index
     K = 0

'  Give a value to each byte of the variable "Btemp",  "Long_variable" and "Word_variable" for testing
     Btemp = 1
     Word0 = 11
     Word1 = 12
     Long0 = 101
     Long1 = 102
     Long2 = 103
     Long3 = 104
     Byte_array_variable(1) = 5
     Byte_array_variable(2) = 6
     Byte_array_variable(3) = 7

'____________________________________________________________________________________
'     LOAD VARIABLES INTO REG_P_AR()

'     Load BTEMP
      Var_size = Sizeof(btemp)
      Var_address = Varptr(btemp)                           ' Get the address where the variable is stored in SRAM
      Gosub Load_variable
'     Load WORD_VARIABLE
      Var_size = Sizeof(word_variable)
      Var_address = Varptr(word_variable)                   ' Get the address where the variable is stored in SRAM
      Gosub Load_variable
'     Load LONG_VARIABLE
      Var_size = Sizeof(long_variable)
      Var_address = Varptr(long_variable)                   ' Get the address where the variable is stored in SRAM
      Gosub Load_variable
'     Load BYTE_ARRAY_VARIABLE
      Var_size = Sizeof(byte_array_variable())
      Var_address = Varptr(byte_array_variable())           ' Get the address where the variable is stored in SRAM
      Gosub Load_variable
'____________________________________________________________________________________
      Reg_p_ar(k + 1 ) = 0                                  ' Put a string end at the end of data
'____________________________________________________________________________________

'      Print result  reg_p_ar()
       For N = 1 To K
          Print #1 , Reg_p_ar(n)
       Next N
' The result printed is:
'                          1
'                          11
'                          12
'                          101
'                          102
'                          103
'                          104
'                          5
'                          6
'                          7
'                          0
'                          0

           Print #1 , Reg_p_str                             ' The string does not contain printable characters so this doesn't print anything meaningful

'____________________________________________________________________________________
      Do
      Loop
'____________________________________________________________________________________

'__________________________________________________________________
'                              LOAD VARIABLE INTO   REG_P_AR()

'  Put the bytes of any given variable into the array Reg_p_ar() and keep track of the next
'   free position in the array, K
'     INPUT:
'              K= Position in Reg_p_ar() where the last yte was stored
'              Var_address = Address in SRAM of the Variable to load
'              Var_size = Number of byte of the variable 1, 2 or 4)
'     OUTPUT
'             Reg_p_ar()  updated
'             K  updated
'__________________________________________________________________
Load_variable:
   For N = 1 To Var_size
      Incr K
      Reg_p_ar(k ) = Inp(var_address)                       ' Get the Byte0 (LSB) of the variable
      Incr Var_address
   Next N
Return
'__________________________________________________________________

End