A #IN0
= #OUT1
AN DB125.DBX 61.0
ON DB125.DBX 61.7
R DB125.DBX 62.7
LAR1 P#284.0
OPN DB 125
L DBD [AR1,P#0.0]
L DBD [AR1,P#4.0]
AD
T #TEMP17
JU M001
A(
L #TEMP17
L DW#16#3C035C1
==D
)
JCN M002
M001: A DB125.DBX 62.7
JC M003
L P#160.0
T #TEMP11
L P#0.0
T #TEMP12
A DB125.DBX 61.0
A DB125.DBX 61.7
JCN M003
L 17
M004: T #TEMP13
OPN DB 125
L DBD [#TEMP11]
T #TEMP14
OPN DB 97
L #TEMP14
T DBD [#TEMP12]
L #TEMP11
L P#4.0
+D
T #TEMP11
L #TEMP12
L P#4.0
+D
T #TEMP12
SET
S DB125.DBX 62.7
L #TEMP13
LOOP M004
M003: AN DB34.DBX 60.5
L S5T#1S500MS
SF T 55
A T 55
JC M002
A DB11.DBX 7.2
JC M002
CALL FB 2 , DB122
IN0 :=DB125.DBX38.1
IN1 :=1
IN2 :=P#DB120.DBX 20.0 BYTE 10
IN3 :=
IN4 :=
IN5 :=
IN6 :=
IN7 :=
IN8 :=
IN9 :=
IN10 :=
IN11 :=
IN12 :=
IN13 :=
IN14 :=
IN15 :=
IN16 :=
IN17 :=
IN18 :=
IN19 :=
IN20 :=
IN21 :=
IN22 :=
IN23 :=
IN24 :=
IN25 :=
IN26 :=
IN27 :=
IN28 :=
IN29 :=
IN30 :=
IN31 :=
IN32 :=
IN33 :=
OUT34:=DB125.DBX38.4
OUT35:=DB125.DBX38.5
OUT36:=DB125.DBW140
IO37 :=P#DB97.DBX 68.0 DWORD 1
IO38 :=
IO39 :=
IO40 :=
IO41 :=
IO42 :=
IO43 :=
IO44 :=
SET
S DB125.DBX 38.1
A DB125.DBX 38.4
O DB125.DBX 38.5
R DB125.DBX 38.1
A(
L DB97.DBD 68
L 0.000000e+000
<=R
)
L 0
JC M005
L DB97.DBD 68
L 8.000000e+001
/R
T #TEMP2
L #TEMP2
TRUNC
T MD 160
DTR
T #TEMP16
L #TEMP2
L #TEMP16
-R
T #TEMP3
JU M006
M005: T MD 160
M006: L MD 160
L 1
+I
T MD 164
A(
L MD 164
L 15
>=I
)
L 15
JC M007
JU M008
M007: T MD 164
JU M008
L MD 160
L 1
-I
T MD 172
L MD 164
L 1
-I
T MD 176
M008: A(
L MD 160
L 0
<=I
)
L 0
JC M009
A(
L MD 160
L 15
>=I
)
L 15
JC M009
L MD 160
M009: T MD 168
L P#4.0
L MW 170
*D
T #TEMP4
L P#4.0
+D
T #TEMP5
OPN DB 97
L DBD [#TEMP4]
T #TEMP6
L DBD [#TEMP5]
T #TEMP7
L #TEMP6
L #TEMP7
-R
T #TEMP8
A(
L MD 168
L 0
)
L #TEMP6
JC M010
A(
L MD 168
L 16
>=I
)
L #TEMP6
JC M010
L #TEMP3
L #TEMP8
*R
T #TEMP15
L #TEMP6
L #TEMP15
-R
M010: TRUNC
T #TEMP9
M002: AN #OUT1
L 0
JC M011
AN DB34.DBX 60.5
L 2000
JC M011
A DB11.DBX 7.2
L 2000
JC M011
L L#50
L MW 166
*I
T MW 180
L 800
L MW 180
-I
T MW 182
L #TEMP9
A Q 51.5
JC M011
L MW 182
-I
M011: T PQW 288
T MW 186