SET
SAVE
= L 38.1
L DB1.DBW 0
L #CST_CNT
<>I
JCN A7d0
L DBW 182
T #CST_CNT
CLR
= #INIT_T
L 0.000000e+000
T #V_OUT
T #V_DELTA
T #A_OUT
T #R_OUT
= #ERR
A L 38.1
SAVE
BEU
JU A7d1
A7d0: CLR
A #INIT_T
NOT
JCN A7d2
L W#16#0
T LW 40
L DW#16#87000070
T LD 42
L W#16#0
T LW 46
L DW#16#870000D0
T LD 48
TAR2 LD 52
UC "RD_SINFO"
P#L 12.0
P#L 40.0
P#L 46.0
LAR2 LD 52
L #TopSi.NUM
AD DW#16#FF
T #OB_NR
L 100
T #FELD
TAK
L 1
TAK
==I
T LW 40
JC A7d4
JU A7d5
A7d4: L 9
T #FELD
JU A7d3
A7d5: L 30
L LW 40
==I
JC A7d6
JU A7d7
A7d6: L 0
T #FELD
JU A7d3
A7d7: L 31
L LW 40
==I
JC A7d8
JU A7d9
A7d8: L 1
T #FELD
JU A7d3
A7d9: L 32
L LW 40
==I
JC A7da
JU A7db
A7da: L 2
T #FELD
JU A7d3
A7db: L 33
L LW 40
==I
JC A7dc
JU A7dd
A7dc: L 3
T #FELD
JU A7d3
A7dd: L 34
L LW 40
==I
JC A7de
JU A7df
A7de: L 4
T #FELD
JU A7d3
A7df: L 35
L LW 40
==I
JC A7e0
JU A7e1
A7e0: L 5
T #FELD
JU A7d3
A7e1: L 36
L LW 40
==I
JC A7e2
JU A7e3
A7e2: L 6
T #FELD
JU A7d3
A7e3: L 37
L LW 40
==I
JC A7e4
JU A7e5
A7e4: L 7
T #FELD
JU A7d3
A7e5: L 38
L LW 40
==I
JC A7e6
JU A7d3
A7e6: L 8
T #FELD
A7d3: L #FELD
L 9
>I
JCN A7e8
A L 38.1
SAVE
BEU
A7e8: SET
= #INIT_T
JU A7d1
A7d2: L #FELD
ITD
L L#32
*D
L L#752
+D
LAR1
OPN DB 99
L DBD [AR1,P#0.0]
T #T_NEU
L #T_ALT
TAK
>D
JCN A7ea
TAK
L L#2147483647
-D
L #T_NEU
TAK
-D
DTR
L 1.000000e+003
/R
T #T_SCAN
L #T_NEU
T #T_ALT
JU A7eb
A7ea: L #T_NEU
L #T_ALT
-D
DTR
L 1.000000e+003
/R
T #T_SCAN
L #T_NEU
T #T_ALT
A7eb: CLR
= #ERR
L #T_UP
L 0.000000e+000
<=R
JCN A7ec
L 1.800000e+002
T #tm_up
SET
= #ERR
JU A7ed
A7ec: L #T_UP
T #tm_up
A7ed: L #T_DN
L 0.000000e+000
<=R
JCN A7ee
L 1.800000e+002
T #tm_dn
SET
= #ERR
JU A7ef
A7ee: L #T_DN
T #tm_dn
A7ef: L #T_RND
L 0.000000e+000
<=R
JCN A7f0
L 1.800000e+001
T #tm_rnd
SET
= #ERR
JU A7f1
A7f0: L #T_RND
T #tm_rnd
A7f1: L #V_IN
L #V_OUT
-R
T #V_DELTA
L #AS
L 0.000000e+000
JCN A7f2
L 1.000000e+000
L #tm_dn
/R
T #AI
JU A7f3
A7f2: L 1.000000e+000
L #tm_up
/R
T #AI
A7f3: L #Aout
L #AI
>R
NEGR
= L 38.2
O L 38.2
= #A_outlim
A #HOLD_V
JCN A7f4
L 0.000000e+000
T #AM
JU A7f5
A7f4: L #AI
T #AM
A7f5: CLR
A #HOLD_A
JCN A7f6
L 0.000000e+000
T #RM
JU A7f7
A7f6: CLR
A #A_outlim
JCN A7f8
L #RM_old
T #RM
JU A7f7
A7f8: L #AI
L #tm_rnd
/R
T #RM
A7f7: L #RM
T #RM_old
L #T_SCAN
*R
T #A3
L #T_SCAN
*R
L 5.000000e-001
*R
T #W7
L #A3
NEGR
L #V_DELTA
ABS
TAK
T LD 40
TAK
L #W7
-R
L 2.000000e+000
*R
L #RM
*R
LN
L 5.000000e-001
*R
EXP
L LD 40
+R
T #AW
L #V_DELTA
L 0.000000e+000
JCN A7f9
L #AW
NEGR
T #AQ
JU A7fa
A7f9: L #AW
T #AQ
A7fa: L #V_DELTA
ABS
L #W7
TAK
T LD 40
TAK
L 2.500000e+000
*R
L LD 40
TAK
JCN A7fb
L #V_DELTA
L 2.000000e-001
*R
L #T_SCAN
/R
T #AS
JU A7fc
A7fb: L #AQ
T #AS
A7fc: L #AS
L #AM
>R
JCN A7fd
T #AR
JU A7fe
A7fd: L #AM
NEGR
L #AS
TAK
JCN A7ff
L #AM
NEGR
T #AR
JU A7fe
A7ff: L #AS
T #AR
A7fe: L #AR
L #Aout
-R
L #T_SCAN
/R
T #RS
L #RM
>R
JCN A800
T #Rout
JU A801
A800: L #RM
NEGR
L #RS
TAK
JCN A802
L #RM
NEGR
T #Rout
JU A801
A802: L #RS
T #Rout
A801: L #V_OUT
L #V_IN
-R
ABS
L 1.000000e-006
>R
L #Aout
ABS
L 1.000000e-004
= L 38.2
>R
O L 38.2
= #ACTIVE
A #SET
JCN A803
L #A_SET
L 1.800000e+002
/R
T #Aout
JU A804
A803: CLR
A #ACTIVE
JCN A805
L #Rout
L #T_SCAN
*R
L #Aout
+R
T #Aout
JU A804
A805: L 0.000000e+000
T #Aout
A804: CLR
A #SET
JCN A806
L #V_SET
T #V_OUT
JU A807
A806: CLR
A #ACTIVE
JCN A808
L #Aout
L #T_SCAN
*R
L #V_OUT
+R
L #Rout
TAK
T LD 40
TAK
L #T_SCAN
*R
L #T_SCAN
*R
L 5.000000e-001
*R
L LD 40
+R
T #V_OUT
JU A807
A808: L #V_IN
T #V_OUT
A807: L #Aout
L 1.800000e+002
*R
T #A_OUT
L #Rout
L 1.800000e+002
*R
T #R_OUT
A7d1: CLR
A L 38.1
SAVE
BE