tvl_auto_calib_method - Method source - Fisher Controls Intl LLC - DVC6000 HW2-130B

Loading…

Method Name: tvl_auto_calib_method

Method ID: 0x434D

Method Label: Auto Calibration

Method Help: Follow the prompts to initiate automatic calibration of the Travel Sensor.

{
float qa;
float qb;
float qc;
float qd;
float qe;
int q;
int q0;
int q1;
int q2;
int q3;
char S[3];
int q01;
int q02;
int q03;
int q04;
int q05;
int q06;
int q07;
int q08;
int q09;
int q10;
int q11;
int q12;
int q13;
int q14;
int q15;
int q16;
int q17;
int q18;
int q19;
int q20;
int q21;
int q23;
int q24;
int qj;
int qk;
float qa0;
float qa1;
float qa2;
float qa3;
float qa4;
float qa5;
float qa6;
float qa7;
float qa8;
float qa9;
float qb0;
float qb1;
float qb2;
float qb3;
float qb4;
float qb5;
float qx;
float fRoundingFactor;
int iVar45;
int iVar46;
int i;
long ids[5];
_set_device_status(0xFF,0);
_set_xmtr_device_status(0xFF,0);
_set_all_resp_code(1);
_set_resp_code(8,0);
send(151,S);
if (_ivar_value(16804) > 1)
{
ACKNOWLEDGE(literal_string(1930));
return;
}
;
q = 0.9;
fRoundingFactor = 0.0;
if (q < 1)
fRoundingFactor = 0.5;
send_trans(129,34,S);
if (0x02 == _ivar_value(16509))
{
ACKNOWLEDGE(literal_string(2190));
return;
}
send(138,S);
if ((_ivar_value(16789) & 0x01) > 0)
{
ACKNOWLEDGE(literal_string(2191));
return;
}
;
send_trans(129,0,S);
_vassign(16452,16427);
save_values();
if (1 == _ivar_value(167))
{
ACKNOWLEDGE(literal_string(2180));
process_abort();
}
if (_ivar_value(16427))
{
if ((_ivar_value(16465) & 0x01C0) == 0x0100)
{
_get_dev_var_value(literal_string(2181),0,16452);
}
else
{
_get_dev_var_value(literal_string(2182),0,16452);
}
save_values();
if (_ivar_value(16452) > 0)
{
ACKNOWLEDGE(literal_string(2183));
process_abort();
}
else
{
send_trans(130,6,S);
}
}
send_trans(129,0,S);
if (1 == _ivar_value(16472) || 5 == _ivar_value(16472))
{
if (1 == _ivar_value(16472))
{
ACKNOWLEDGE(literal_string(2162));
}
else
{
ACKNOWLEDGE(literal_string(2163));
}
process_abort();
}
_add_abort_method(17169);
DELAY(1,literal_string(2127));
send(138,S);
send_trans(129,0,S);
if ((_ivar_value(16790) & 0x31) > 0 || _ivar_value(10098) == 0)
{
send_trans(142,6,S);
send_trans(142,1,S);
send_trans(157,0,S);
if (1 != _ivar_value(167))
{
local_man_loader_status = 0;
save_values();
send_trans(130,74,S);
}
if (_ivar_value(171) == 0)
local_control_mode = 2;
else
if ((_ivar_value(16465) & 0x01C0) == 0x0100)
local_control_mode = 3;
else
{
ACKNOWLEDGE(literal_string(2126));
if (0 == _ivar_value(10098))
{
local_control_mode = 3;
}
else
{
_vassign(16453,10098);
}
save_values();
_get_dev_var_value(literal_string(192),0,16453);
}
save_values();
send_trans(130,7,S);
send_trans(129,0,S);
DELAY(1,literal_string(2127));
}
;
send_trans(129,34,S);
if (1 - SELECT_FROM_LIST(literal_string(2333),literal_string(2130)))
{
i = 0;
send(138,S);
if ((_ivar_value(16789) & 0x02) > 0)
{
send_trans(142,0,S);
send_trans(129,29,S);
send_trans(142,1,S);
if (0x7FA00000 == _lvar_value(16940))
i = 0x01;
if (0x7FA00000 == _lvar_value(16938))
i = i | 0x02;
if (0x7FA00000 == _lvar_value(16939))
i = i | 0x04;
if ((i & 0x01) > 0 && (_ivar_value(16465) & 0x0200) == 0x0200)
{
ACKNOWLEDGE(literal_string(2193));
}
if ((i & 0x02) > 0)
{
ACKNOWLEDGE(literal_string(2194));
}
if ((i & 0x04) > 0)
{
ACKNOWLEDGE(literal_string(2195));
}
}
switch (_ivar_value(16434))
{
case 7:
qb = 0.689;
qd = 0.1;
break;
case 12:
qb = 68.9;
qd = 10.0;
break;
case 10:
qb = 0.703;
qd = 0.1;
break;
default:
qb = 10.0;
qd = 5.0;
break;
}
if (!(i & 0x01))
{
qa = _fvar_value(16947);
_fassign(16947,qb * 15.0);
send_trans(130,88,S);
send(42,S);
send_trans(142,0,S);
send_trans(129,28,S);
q = 0;
while (_fvar_value(16439) < qb && !q)
{
send_trans(129,28,S);
q = SELECT_FROM_LIST(literal_string(2196),literal_string(2197));
}
send_trans(142,1,S);
qc = _fvar_value(16439);
if (qc > qa)
{
qa = qc + qb / 2.0;
q0 = qa / qd;
qa = q0 * qd;
}
_fassign(16947,qa);
send_trans(130,88,S);
send_command(42);
if (1 == q)
process_abort();
if (_fvar_value(16439) < qb)
{
i = i | 0x08;
}
}
;
send(138,S);
q0 = 0;
q1 = 1;
while ((_ivar_value(16792) & 0x08) > 0)
{
if (1 == q1)
{
send_trans(129,34,S);
if (1 == _ivar_value(16464) && _ivar_value(16794) & 0x08)
{
q0 = SELECT_FROM_LIST(literal_string(2198),literal_string(2199));
if (0 == q0)
{
q == SELECT_FROM_LIST(literal_string(221),literal_string(2200));
aux_term_mode = 2 * q;
send_trans(130,86,S);
}
}
}
if (0 == q0)
{
q0 = SELECT_FROM_LIST(literal_string(2201),literal_string(2202));
}
if (1 == q0)
{
remove_all_abort();
_add_abort_method(17169);
process_abort();
}
if (1 == q1)
{
q2 = _ivar_value(16529);
if (2 == q2)
q2 = -1;
q2 = q2 * (-2 * _ivar_value(16508) + 1);
if (0 == 0)
{
if (_ivar_value(171) == 0)
{
if (2 == _ivar_value(16529))
{
qa = 0.0;
}
else
{
qa = 1.0;
}
_fassign(16640,qa);
send_trans(130,78,S);
}
local_inst_mode = 1;
save_values();
send_trans(130,6,S);
}
}
if (_ivar_value(171) == 0)
{
if (1 == q1)
{
q1 = 2;
_fassign(16405,qa * 100.0);
save_values();
send_trans(130,4,S);
}
if (1 == _ivar_value(16464))
{
ACKNOWLEDGE(literal_string(2203));
}
else
{
ACKNOWLEDGE(literal_string(2204));
}
}
else
{
if (1 == _ivar_value(16464))
{
if (q2 < 0)
{
ACKNOWLEDGE(literal_string(2205));
}
else
{
ACKNOWLEDGE(literal_string(2206));
}
}
else
{
if (q2 < 0)
{
ACKNOWLEDGE(literal_string(2207));
}
else
{
ACKNOWLEDGE(literal_string(2206));
}

Please login for more