Code:
Dim R6_Wert as Byte
...
!STS   {R6_Wert},   R6