Just had a thought while making a coffee,

are the declarations correct to do it your way?

' Variable Defs
' ------------

SerData var byte
PIN var byte
STATE var byte
in_ct var BYTE[10] 'In coming control arrey


if STATE = "H" then PortA.[PIN]=1
if STATE = "L" then PortA.[PIN]=0