Spectrum Controls 2080sc-BAC - Manual (Page 34)

3-16 Chapter 3: Configuring the Module
User’s Manual Pub. 0300274-01 Rev. A.0
tmp_index := param_offset;
tmp_raw_var := 0 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
1 ;
tmp_index := tmp_index + 1 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
16 # 100 ;
tmp_index := tmp_index + 1 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
16 # 10000 ;
tmp_index := tmp_index + 1 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
16 # 1000000 ;
tmp_index := tmp_index + 1 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
16 # 100000000 ;
tmp_index := tmp_index + 1 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
16 # 10000000000 ;
tmp_index := tmp_index + 1 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
16 # 1000000000000 ;
tmp_index := tmp_index + 1 ;
tmp_raw_var := tmp_raw_var + ANY_TO_ULINT(bac_raw_tbl[tmp_index]) *
16 # 100000000000000 ;
(*
if param_mode == 1
convert ULINT variable tmp_raw_var to byte array bac_raw_tbl
This is for Analog Input Table
*)
ELSIF param_mode = 1 THEN
tmp_index := param_offset;
tmp_raw_var := param_var;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_raw_var := tmp_raw_var / 256 ;
tmp_index := tmp_index + 1 ;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_raw_var := tmp_raw_var / 256 ;
tmp_index := tmp_index + 1 ;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_raw_var := tmp_raw_var / 256 ;
tmp_index := tmp_index + 1 ;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_raw_var := tmp_raw_var / 256 ;
tmp_index := tmp_index + 1 ;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_raw_var := tmp_raw_var / 256 ;
tmp_index := tmp_index + 1 ;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_raw_var := tmp_raw_var / 256 ;
tmp_index := tmp_index + 1 ;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_raw_var := tmp_raw_var / 256 ;
tmp_index := tmp_index + 1 ;
bac_raw_tbl[tmp_index] := ANY_TO_BYTE(tmp_raw_var);
tmp_index := tmp_index + 1 ;
(*
if param_mode == 2
This is for Binary Output Table
*)
ELSIF param_mode = 2 THEN
tmp_index := param_offset / 8 ;
tmp1 := MOD (param_offset, 8 );
tmp2 := ANY_TO_DINT(bac_raw_tbl[tmp_index]);
tmp2 :=
SHR (tmp2, tmp1);