return_a := sysUART_putbuff(0,16#2f,1);

return_a := sysUART_putbuff(0,'/',1);

ADDM_1(
    AddrTable:= ADDR_SL,
    Execute:= NOT start_4,
    Addr:= '2.1',
    Done=> ADDM_DONE,
    Error=> ADDM_ERR,
    CommError=> ADDM_COMM_ERR_1);
    
READ_VAR_1(
    Execute:= ADDM_DONE,
    Abort:= Abort_read_var_1,
    Addr:= ADDR_SL,
    Timeout:= comm_timeout_g,
    Done=> Done_Read_Var_1,
    Busy=> start_1,
    Aborted=> Aborted_read_var_1,
    Error=> Err_read_var_1,
    CommError=> Comm_err_read_var_1,
    OperError=> OperErr_read_var_1,
    ObjType:= ObjectType.MW,
    FirstObj:= 0,
    Quantity:= 3,
    Buffer:= (ADR(ReceiveBufferMW_G1)));
    
    air_temp_setp_r_1 := ReceiveBufferMW_G1[0];
    g_last_fault_r_1 := ReceiveBufferMW_G1[2];

    
READ_VAR_2
(
    Execute:= NOT start_1,
    Abort:= Abort_read_var_2,
    Addr:= ADDR_SL,
    Timeout:= comm_timeout_g,
    Done=> Done_Read_Var_2,
    Busy=> start_2,
    Aborted=> Aborted_read_var_2,
    Error=> Err_read_var_2,
    CommError=> Comm_err_read_var_2,
    OperError=> OperErr_read_var_2,
    ObjType:= ObjectType.IW,
    FirstObj:= 1,
    Quantity:= 5,
    Buffer:= (ADR(ReceiveBufferIW_G1)));

    air_temp_1 := ReceiveBufferIW_G1[0];
    g_status_1 := ReceiveBufferIW_G1[2];
    g_val_pwr_1 := ReceiveBufferIW_G1[3];
    g_val_time_1 := ReceiveBufferIW_G1[4];    

    SendBufferQ_G1[0] := com_g_start_1;
    
WRITE_VAR_1(
    Execute:= NOT start_2,
    Abort:= Abort_write_var_1,
    Addr:= ADDR_SL,
    Timeout:= comm_timeout_g,
    Done=> Done_write_var_1,
    Busy=> start_3_1,
    Aborted=> Aborted_write_var_1,
    Error=> Err_write_var_1,
    CommError=> Comm_err_var_1,
    OperError=> OperErr_write_var_1,
    ObjType:= ObjectType.Q,
    FirstObj:= 16,
    Quantity:= 1,
    Buffer:= ADR(SendBufferQ_G1));
    
    SendBufferQ1_G1[0] := com_g_stop_1;
    
WRITE_VAR_1_1(
    Execute:= NOT start_3_1,
    Abort:= Abort_write_var_1_1,
    Addr:= ADDR_SL,
    Timeout:= comm_timeout_g,
    Done=> Done_write_var_1_1,
    Busy=> start_3,
    Aborted=> Aborted_write_var_1_1,
    Error=> Err_write_var_1_1,
    CommError=> Comm_err_var_1_1,
    OperError=> OperErr_write_var_1_1,
    ObjType:= ObjectType.Q,
    FirstObj:= 25,
    Quantity:= 1,
    Buffer:= ADR(SendBufferQ1_G1));
    
    SendBufferMW_G1[0] := air_temp_setp_w_1;
    SendBufferMW_G1[2] := g_last_fault_w_1;
    
WRITE_VAR_2(
    Execute:= NOT start_3,
    Abort:= Abort_write_var_2,
    Addr:= ADDR_SL,
    Timeout:= comm_timeout_g,
    Done=> Done_write_var_2,
    Busy=> start_4,
    Aborted=> Aborted_write_var_2,
    Error=> Err_write_var_2,
    CommError=> Comm_err_var_2,
    OperError=> OperErr_write_var_2,
    ObjType:= ObjectType.MW,
    FirstObj:= 0,
    Quantity:= 3,
    Buffer:= ADR(SendBufferMW_G1));    

    online_G_1 := (ADDM_COMM_ERR_1 = 0) AND (Comm_err_read_var_1 = 0) AND
                    (Comm_err_read_var_2 = 0) AND (Comm_err_var_1 = 0) AND (Comm_err_var_2 = 0);