下面是转换后的源代码:
FUNCTION FC 16 : VOID
AUTHOR: _991
NAME: SPEICHER
BEGIN
NETWORK
。。。。。。。
。。。。。。。。
);
X000: NOP 0;
//;
A M 94.3;
JCN X001;
CALL FC 18
( ANZ := 160
, LAEN := 90
, FBBA := FC 31
, FBSW := FC 27
, FBTW := FC 14
, FBSK := FC 29
, FBTK := FC 28
, STK := M 0.0
, FBST := DB 0
, BLH := M 0.0
, FBBH := DB 0
, LOB := M 0.0
, FBLO := DB 0
, EBRV := M 0.0
, FBEB := DB 0
, RES1 := M 0.0
, FBR1 := DB 0
, RES2 := M 0.0
, FBR2 := DB 0
, STRT := M 94.3
);
X001: NOP 0;
//;
A M 94.4;
JCN X002;
CALL FC 19
( ANZ := 160
, LAEN := 90
, STRT := M 94.4
);
X002: NOP 0;
//;
A M 94.5;
JCN X003;
CALL FC 20
( ANZ := 160
, LAEN := 90
, STRT := M 94.5
);
X003: NOP 0;
NETWORK
O M 94.2;
O M 94.3;
O M 94.4;
O M 94.5;
= M 247.7;
NETWORK
END_FUNCTION
FUNCTION FC 18 : VOID
AUTHOR: _991
NAME: VON_SP // VON-SP
VAR_INPUT
ANZ :int; // ANZ
LAEN :int; // LAEN
FBBA :block_fc; // FBBA
FBSW :block_fc; // FBSW
FBTW :block_fc; // FBTW
FBSK :block_fc; // FBSK
FBTK :block_fc; // FBTK
STK :bool; // STK
FBST :block_db; // FBST
BLH :bool; // BLH
FBBH :block_db; // FBBH
LOB :bool; // LOB
FBLO :block_db; // FBLO
EBRV :bool; // EBRV
FBEB :block_db; // FBEB
RES1 :bool; // RES1
FBR1 :block_db; // FBR1
RES2 :bool; // RES2
FBR2 :block_db; // FBR2
STRT :bool; // STRT
END_VAR
VAR_TEMP
conv_akku1 :dword;
conv_stw :word;
END_VAR
BEGIN
NETWORK
NETWORK
OPN DB 250;
L DBW 0;
L 0;
<>I;
JC M001;
//;
OPN DB 221;
L W#16#0;
T DBW 6;
T DBW 8;
T DBW 10;
NOT;
S DBX 11.0;
NOT;
S DBX 11.0;
//;
OPN DB 250;
L 506;
L W#16#E400;
+I;
// LIR 0;
// *** 行 3278 (FB 83)中的错误: 未定义命令。 ***
T DBW 24;
L #ANZ;
L #ANZ;
+I;
+I;
+I;
+I;
+I;
+I;
SLW 1;
L DBW 24;
+I;
T DBW 26;
//;
L 1;
T MW 240;
L DBW 24;
T DBW 16;
T DBW 20;
M007:NOP 0;
OPN DB 250;
L W#16#0;
L DBW 16;
// LIR 0;
// *** 行 3303 (FB 83)中的错误: 未定义命令。 ***
==I;
JC M002;
//;
T DBW 18;
L DBW 16;
L 2;
+I;
T DBW 16;
M005:NOP 0;
L DBW 16;
// LIR 0;
// *** 行 3315 (FB 83)中的错误: 未定义命令。 ***
//;
OPN DB 202;
T conv_akku1;
L STW;
T conv_stw;
L MB 241;
SLW 4;
LAR1;
L conv_stw;
T STW;
L conv_akku1;
L DBW [ AR1, P#0.0 ];
<>I;
JC M003;
//;
L 6;
L MW 240;
==I;
JC M004;
//;
L 1;
+I;
T MW 240;
//;
OPN DB 250;
L DBW 16;
L 2;
+I;
T DBW 16;
JU M005;
M003:NOP 0;
L 1;
T MW 240;
//;
OPN DB 250;
L DBW 26;
L 14;
-I;
L DBW 20;
<=I;
JC M006;
//;
L 14;
+I;
T DBW 16;
T DBW 20;
JU M007;
M004:NOP 0;
OPN DB 250;
L 1;
T DBW 0;
M001:JU M008;
M002:NOP 0;
OPN DB 221;
NOT;
S DBX 9.4;
NOT;
S DBX 9.4;
NOT;
R DBX 11.0;
NOT;
R DBX 11.0;
//;
OPN DB 250;
L 0;
T DBW 0;
//;
R #STRT;
JU M008;
M006:NOP 0;
OPN DB 221;
NOT;
S DBX 9.3;
NOT;
S DBX 9.3;
NOT;
R DBX 11.0;
NOT;
R DBX 11.0;
//;
OPN DB 250;
L 0;
T DBW 0;
//;
R #STRT;
M008:NOP 0;
NETWORK
OPN DB 250;
L DBW 0;
L 1;
<>I;
JC M009;
//;
A M 92.0;
JC M010;
//;
L DBW 18;
T DBW 2;
L 1;
T DBW 4;
L 202;
T DBW 6;
L 1;
T DBW 8;
L #LAEN;
T DBW 10;
//;
AN M 92.0;
AN M 92.6;
S M 92.0;
R M 92.1;
R M 92.2;
R M 92.3;
M010:NOP 0;
CALL FC 21;
//;
A M 92.0;
JC M009;
//;
R M 92.6;
//;
L 2;
T DBW 0;
M009:NOP 0;
NETWORK
OPN DB 250;
L DBW 0;
L 2;
<>I;
JC M011;
//;
OPN DB 221;
NOT;
R DBX 11.0;
NOT;
R DBX 11.0;
//;
OPN DB 250;
L 3;
T DBW 0;
M011:NOP 0;
NETWORK
OPN DB 250;
L DBW 0;
L 3;
<>I;
JC M012;
//;
OPN DB 221;
NOT;
S DBX 11.4;
NOT;
S DBX 11.4;
OPN DB 202;
//;
UC #FBBA ;
UC #FBSW ;
UC #FBTW ;
UC #FBSK ;
UC #FBTK ;
AN #RES1;
JC M013;
OPN #FBR1 ;
M013:NOP 0;
AN #RES2;
JC M014;
OPN #FBR2 ;
M014:NOP 0;
//;
OPN DB 250;
L 4;
T DBW 0;
M012:NOP 0;
NETWORK
OPN DB 250;
L DBW 0;
L 4;
<>I;
JC M015;
//;
A M 8.7;
JC M015;
//;
L 0;
T DBW 0;
//;
OPN DB 221;
NOT;
R DBX 11.4;
NOT;
R DBX 11.4;
NOT;
S DBX 9.0;
NOT;
S DBX 9.0;
//;
R #STRT;
M015:NOP 0;
NETWORK
END_FUNCTION