FUNCTION FC 19 : VOID
AUTHOR: _48010
NAME: TOTZEIT
VAR_INPUT
XE :dword; // XE
TODB :int; // TODB
RADB :block_db; // RADB
ZEIT :dword; // ZEIT
TA :real; // TA
STOP :bool; // STOP
INIT :bool; // INIT
END_VAR
VAR_OUTPUT
YA :dword; // YA
END_VAR
VAR_TEMP
conv_akku1 :dword;
conv_akku2 :dword;
conv_stw :word;
conv_index :word;
conv_create_db :word;
conv_number_of_dbb :word;
conv_return_db :word;
conv_ret_val :int;
END_VAR
BEGIN
NETWORK
NETWORK
OPN #RADB ;
L #XE;
T MD 248;
L #ZEIT;
T MD 232;
L 0;
T MB 255;
NETWORK
L #TODB;
T MW 224;
L 2;
>I;
JC M001;
L W#16#1;
T MB 255;
BEU;
M001:NOP 0;
L W#16#EEC0;
SLD 4;
L MW 224;
+D;
// LIR 1;
// *** Error in Line 4955 (FB 175): Command not defined. ***
L W#16#0;
==I;
JC M002;
TAK;
SLD 4;
+ L#-1;
// LIR 1;
// *** Error in Line 4963 (FB 175): Command not defined. ***
L 213;
>=I;
JC M003;
L MW 224;
L W#16#500;
OW;
// CALL OB 124;
// *** Error in Line 4971 (FB 175): Block does not exist. ***
BEU;
M002:L 208;
T conv_akku1;
TAK;
T conv_akku2;
L STW;
T conv_stw;
L conv_akku1;
SLW 1;
T conv_number_of_dbb;
L MB 225;
T conv_create_db;
L conv_stw;
T STW;
L conv_akku2;
L conv_akku1;
CALL SFC22 (
LOW_LIMIT := conv_create_db,
UP_LIMIT := conv_create_db,
COUNT := conv_number_of_dbb,
RET_VAL := conv_ret_val,
DB_NUMBER := conv_return_db
);
JU M004;
M003:NOP 0;
T conv_akku1;
TAK;
L MB 225;
T conv_index;
TAK;
L conv_akku1;
OPN DB [conv_index];
L MD 232;
L #TA;
>=R;
AN #INIT;
JC M005;
M004:NOP 0;
T conv_akku1;
TAK;
L MB 225;
T conv_index;
TAK;
L conv_akku1;
OPN DB [conv_index];
L 198;
T MW 246;
M007:L MD 248;
T conv_akku1;
TAK;
T conv_akku2;
L STW;
T conv_stw;
L MB 247;
SLW 4;
LAR1;
L conv_stw;
T STW;
L conv_akku2;
L conv_akku1;
T DBD [ AR1, P#0.0 ];
L 0;
L MW 246;
==I;
JC M006;
+ -2;
T MB 247;
JU M007;
M006:L +0.0000000E+00;
T DBW 404;
T DBD 400;
L MD 248;
T DBD 412;
JU M008;
M005:AN #STOP;
JC M009;
M008:NOP 0;
L DBD 412;
OPN #RADB ;
T #YA;
BEU;
M009: NOP 0;
NETWORK
L MD 232;
L +0.1000000E+03;
ENT;
L #TA;
*R;
TAK;
/R;
L +0.5100000E+02;
>R;
JC M010;
TAK;
M010:L DBD 400;
+R;
T DBD 400;
L +0.1000000E+03;
<R;
JC M011;
-R;
T DBD 400;
M011:L DBD 400;
RND;
T MW 244;
L DBW 404;
==I;
JC M012;
//;
L MW 244;
SLW 1;
T MW 246;
T conv_akku1;
L STW;
T conv_stw;
L MB 247;
SLW 4;
LAR1;
L conv_stw;
T STW;
L conv_akku1;
L DBD [ AR1, P#0.0 ];
T DBD 412;
L 2;
T DBW 406;
M014:NOP 0;
L 99;
L DBW 404;
+ 1;
>=I;
JC M013;
L 0;
M013:T DBW 404;
SLW 1;
T MW 246;
L MD 248;
T conv_akku1;
TAK;
T conv_akku2;
L STW;
T conv_stw;
L MB 247;
SLW 4;
LAR1;
L conv_stw;
T STW;
L conv_akku2;
L conv_akku1;
T DBD [ AR1, P#0.0 ];
L MW 244;
L DBW 404;
<>I;
JC M014;
JU M015;
M012:NOP 0;
L MW 244;
SLW 1;
T MW 244;
L DBW 406;
+ -1;
DTR;
T conv_akku1;
L STW;
T conv_stw;
L MB 245;
SLW 4;
LAR1;
L conv_stw;
T STW;
L conv_akku1;
L DBD [ AR1, P#0.0 ];
*R;
L MD 248;
+R;
L DBW 406;
DTR;
/R;
T conv_akku1;
TAK;
T conv_akku2;
L STW;
T conv_stw;
L MB 245;
SLW 4;
LAR1;
L conv_stw;
T STW;
L conv_akku2;
L conv_akku1;
T DBD [ AR1, P#0.0 ];
L DBW 406;
+ 1;
T DBW 406;
M015:NOP 0;
L DBD 412;
OPN #RADB ;
T #YA;
))
