CON
  abc=123

DAT
inDAT long 1234

VAR
long inVAR

PUB aPUB
  testVARassignment
  testDATassignment
  testLocalassignment
  
PUB testVARassignment|inLocal
  inVAR:=abc                    'constant Assignment
  
  inVAR:=inDAT                  'DAT variable assignment
  inVAR:=@inDAT                 'DAT address assignment
  
  inVAR:=inLocal                'Local variable assignment
  inVAR:=@inLocal               'Local address assignment
  
  inVAR:=inVAR                  'VAR variable assignment
  inVAR:=@inVAR                 'VAR address assignment

  inVAR:=PAR                    'Special Purpose Register assignment
  inVAR:=CNT
  inVAR:=INA
  inVAR:=INB
  inVAR:=OUTA
  inVAR:=OUTB
  inVAR:=DIRA
  inVAR:=DIRB
  inVAR:=CTRA
  inVAR:=CTRB
  inVAR:=FRQA
  inVAR:=FRQB
  inVAR:=PHSA
  inVAR:=PHSB
  inVAR:=VCFG
  inVAR:=VSCL

  inVAR:=string("Hi")           'Assignment of string

  inVAR:=123                    'Assignment of constant
  inVAR:=constant(123)

  inVAR:=123.123                'Check float assignment
  inVAR:=float(123)

  inVAR.byte[0]:=0              'Test assignment using part of var
  inVAR.byte[1]:=1
  inVAR.byte[2]:=2
  inVAR.byte[3]:=3
  inVAR.byte[4]:=4              'Going past VAR size

  inVAR.word[0]:=0
  inVAR.word[1]:=1
  inVAR.word[2]:=2              'Going past VAR size

  inVAR.long[0]:=0
  inVAR.long[1]:=1              'Going past VAR size

  inVAR:=inDAT.byte[0]          'Test assignment using parts of DAT variable
  inVAR:=inDAT.word[0]
  inVAR:=inDAT.long[0]

  inVAR[0]:=abc                 'Test array notation
  inVAR[1]:=abc
  inVAR[abc]:=abc
  inVAR[inDAT]:=inDAT
  inVAR[inVAR]:=inVAR

PUB testDATassignment|inLocal
  inDAT:=abc
  
  inDAT:=inDAT
  inDAT:=@inDAT
  
  inDAT:=inLocal
  inDAT:=@inLocal
  
  inDAT:=inVAR
  inDAT:=@inVAR

  inDAT:=PAR                    'Special Purpose Register assignment
  inDAT:=CNT
  inDAT:=INA
  inDAT:=INB
  inDAT:=OUTA
  inDAT:=OUTB
  inDAT:=DIRA
  inDAT:=DIRB
  inDAT:=CTRA
  inDAT:=CTRB
  inDAT:=FRQA
  inDAT:=FRQB
  inDAT:=PHSA
  inDAT:=PHSB
  inDAT:=VCFG
  inDAT:=VSCL

  inDAT:=string("Hi")           'Assignment of string

  inDAT:=123                    'Assignment of constant
  inDAT:=constant(123)

  inDAT:=123.123                'Check float assignment
  inDAT:=float(123)

  inDAT.byte[0]:=0              'Test assignment using part of var
  inDAT.byte[1]:=1
  inDAT.byte[2]:=2
  inDAT.byte[3]:=3
  inDAT.byte[4]:=4              'Going past VAR size

  inDAT.word[0]:=0
  inDAT.word[1]:=1
  inDAT.word[2]:=2              'Going past VAR size

  inDAT.long[0]:=0
  inDAT.long[1]:=1              'Going past VAR size

  inDAT:=inDAT.byte[0]          'Test assignment using parts of DAT variable
  inDAT:=inDAT.word[0]
  inDAT:=inDAT.long[0]

  inDAT[0]:=abc                 'Test array notation
  inDAT[1]:=abc
  inDAT[abc]:=abc
  inDAT[inDAT]:=inDAT
  inDAT[inVAR]:=inVAR


PUB testLocalassignment|inLocal
  inLocal:=abc
  
  inLocal:=inDAT
  inLocal:=@inDAT
  
  inLocal:=inLocal
  inLocal:=@inLocal
  
  inLocal:=inVAR
  inLocal:=@inVAR

  inLocal:=PAR                    'Special Purpose Register assignment
  inLocal:=CNT
  inLocal:=INA
  inLocal:=INB
  inLocal:=OUTA
  inLocal:=OUTB
  inLocal:=DIRA
  inLocal:=DIRB
  inLocal:=CTRA
  inLocal:=CTRB
  inLocal:=FRQA
  inLocal:=FRQB
  inLocal:=PHSA
  inLocal:=PHSB
  inLocal:=VCFG
  inLocal:=VSCL

  inLocal:=string("Hi")           'Assignment of string

  inLocal:=123                    'Assignment of constant
  inLocal:=constant(123)

  inLocal:=123.123                'Check float assignment
  inLocal:=float(123)

  inLocal.byte[0]:=0              'Test assignment using part of var
  inLocal.byte[1]:=1
  inLocal.byte[2]:=2
  inLocal.byte[3]:=3
  inLocal.byte[4]:=4              'Going past VAR size

  inLocal.word[0]:=0
  inLocal.word[1]:=1
  inLocal.word[2]:=2              'Going past VAR size

  inLocal.long[0]:=0
  inLocal.long[1]:=1              'Going past VAR size

  inLocal:=inLocal.byte[0]          'Test assignment using parts of DAT variable
  inLocal:=inLocal.word[0]
  inLocal:=inLocal.long[0]

  inLocal[0]:=abc                 'Test array notation
  inLocal[1]:=abc
  inLocal[abc]:=abc
  inLocal[inLocal]:=inLocal
  inLocal[inVAR]:=inVAR 