SET
SAVE
= L 30.1
L "SYSTEM_DB".CST_CNT
L #CST_CNT
<>I
JCN A7d0
L DBW 182
T #CST_CNT
CLR
= #INIT_T
A7d0: CLR
A #INIT_T
NOT
JCN A7d1
L W#16#0
T LW 32
L DW#16#87000030
T LD 34
L W#16#0
T LW 38
L DW#16#87000090
T LD 40
TAR2 LD 44
UC SFC 6
P#L 48.0
P#L 32.0
P#L 38.0
LAR2 LD 44
L LW 48
T #Ret
L #TopSi.NUM
AD DW#16#FF
T #OB_NR
L 100
T #FELD
L #OB_NR
L 1
TAK
==I
T LW 32
JC A7d3
JU A7d4
A7d3: L 9
T #FELD
JU A7d2
A7d4: L 30
L LW 32
==I
JC A7d5
JU A7d6
A7d5: L 0
T #FELD
JU A7d2
A7d6: L 31
L LW 32
==I
JC A7d7
JU A7d8
A7d7: L 1
T #FELD
JU A7d2
A7d8: L 32
L LW 32
==I
JC A7d9
JU A7da
A7d9: L 2
T #FELD
JU A7d2
A7da: L 33
L LW 32
==I
JC A7db
JU A7dc
A7db: L 3
T #FELD
JU A7d2
A7dc: L 34
L LW 32
==I
JC A7dd
JU A7de
A7dd: L 4
T #FELD
JU A7d2
A7de: L 35
L LW 32
==I
JC A7df
JU A7e0
A7df: L 5
T #FELD
JU A7d2
A7e0: L 36
L LW 32
==I
JC A7e1
JU A7e2
A7e1: L 6
T #FELD
JU A7d2
A7e2: L 37
L LW 32
==I
JC A7e3
JU A7e4
A7e3: L 7
T #FELD
JU A7d2
A7e4: L 38
L LW 32
==I
JC A7e5
JU A7d2
A7e5: L 8
T #FELD
A7d2: L #FELD
L 9
<=I
JCN A7e8
SET
= #INIT_T
JU A7e8
A7d1: L #FELD
ITD
L L#0
+D
L L#32
*D
L L#752
+D
LAR1
OPN "SYSTEM_DB"
L DBD [AR1,P#0.0]
T #TNEU
L #TALT
TAK
>D
JCN A7e9
L #TALT
L L#2147483647
-D
L #TNEU
TAK
-D
T #TA
L #TNEU
T #TALT
JU A7ea
A7e9: L #TNEU
L #TALT
-D
T #TA
L #TNEU
T #TALT
A7ea: CLR
A #S
NOT
JCN A7eb
L #T
T #T_DINT
L #T
L T#0MS
>D
JCN A7ec
L #TA
L #T_DINT
>D
JCN A7ed
L #TA
T #T_DINT
A7ed: L #TA
DTR
L #T_DINT
DTR
TAK
TAK
/R
T #DIN
L #X
L #YD
-R
L #DIN
*R
L #YD
+R
T #Y
L #Y
L #YD
==R
JCN A7f0
L #X
T #Y
JU A7f0
A7ec: L #X
T #Y
JU A7f0
A7eb: L #SV
T #Y
A7f0: L #Y
T #YD
A7e8: CLR
A L 30.1
SAVE
BE