The code for FB121. it looks complicated!
[1
NAME: CTRLSTD1
DECL: DBNR DKY
DECL: PACT DKF
DECL: PBAD DKF
DECL: PGOO DKF
DECL: NRNI DKF
DECL: NRCT DKF
DECL: CTRL IBI
DECL: SYNC IBI
DECL: OPTI DKM
DECL: INIT IBI
DECL: MEMO IBI
DECL: NMES DKF
DECL: NMEI DKF
DECL: STAT QBY
DECL: FAUL QBI
DECL: INSP QBI
***
]
[2
LW =PACT
T FY 200
LW =NRNI
T FY 201
L KF +1
T FY 218
L KH 0000
T FW 210
***
]
[3
LW =DBNR
T FW 212
L FY 212
T FW 214
DO FW 214
C DB 0
L DW 10
L FY 213
+F
T DW 18
DO DW 18
L DW 0
T FW 220
***
]
[4
AN =INIT
O F 220.0
JC =M001
L KH 0000
T FY 220
JU FB 72
NAME: GETGBPCE
FCT : KF +1
TYPP: KH 0088
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
PREC: FY 210
CREC: FY 210
POWO: FY 210
PONX: FY 204
STAT: FY 206
L FY 204
L FY 200
!=F
S F 220.1
>=F
JC =M002
JU FB 71
NAME: GETBDPCE
FCT : KF +1
TYPP: KH 0012
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
NPC1: FY 210
NPC2: FY 210
ONOF: FY 210
BOMA: FY 204
CODE: FY 210
VIDA: FY 205
SERI: FW 208
STAT: FY 206
L FY 204
L KF +1
!=F
S F 220.2
L FY 205
L KF +1
!=F
S F 220.3
AN F 220.2
O F 220.3
JC =M003
JU =M004
M001: JU =M005
M004:
LW =PBAD
T FY 212
JU FB 72
NAME: GETGBPCE
FCT : KF +2
TYPP: KH 000C
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
PREC: FY 210
CREC: FY 212
POWO: FY 200
PONX: FY 212
STAT: FY 206
L KH 00FD
T FW 212
JU FB 71
NAME: GETBDPCE
FCT : KF +2
TYPP: KH 0030
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
NPC1: FY 210
NPC2: FY 210
ONOF: FY 210
BOMA: FY 212
CODE: FY 213
VIDA: FY 210
SERI: FW 210
STAT: FY 206
JU FB 65
NAME: MEMONOFF
FCT : KF +2
TYPE: KH 0001
NRPO: FY 200
NRST: FY 218
ONOF: F 110.0
BOMA: F 110.0
AN F 221.7
S F 221.7
M002:
JU FB 71
NAME: GETBDPCE
FCT : KF +1
TYPP: KH 0012
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
NPC1: FY 210
NPC2: FY 210
ONOF: FY 210
BOMA: FY 204
CODE: FY 210
VIDA: FY 205
SERI: FW 208
STAT: FY 206
L FY 204
L KF +1
!=F
S F 220.2
L FY 205
L KF +1
!=F
S F 220.3
M003:
JU FB 61
NAME: ONOFFSTA
FCT : KF +1
TYPP: KH 0002
NRPO: FY 200
NRST: FY 218
TYPE: FY 210
ONOF: FY 204
SERI: FW 210
MAPA: FY 205
COPA: FY 205
PREC: FY 205
STAT: FY 206
L FY 204
L KF +1
!=F
S F 220.6
L FW 208
L FW 210
!=F
S F 220.5
AN F 220.0
S F 220.0
M005: ***
]
[5
LW =OPTI
T FW 202
***
]
[6
AN =MEMO
ON F 220.0
JC =M001
AN F 220.1
ON F 220.2
O F 220.3
JC =M002
LW =PGOO
T FY 207
AN F 220.6
O
A F 203.4
AN F 220.5
O
AN F 221.1
O
A F 221.1
A F 221.2
JC =M003
LW =PBAD
T FY 207
JU FB 65
NAME: MEMONOFF
FCT : KF +2
TYPE: KH 0001
NRPO: FY 200
NRST: FY 218
ONOF: F 110.0
BOMA: F 110.0
L KH 0001
T FW 204
L KH 0000
T FW 210
JU FB 71
NAME: GETBDPCE
FCT : KF +2
TYPP: KH 0030
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
NPC1: FY 210
NPC2: FY 210
ONOF: FY 210
BOMA: FY 204
CODE: FY 200
VIDA: FY 210
SERI: FW 210
STAT: FY 206
M003:
JU FB 72
NAME: GETGBPCE
FCT : KF +2
TYPP: KH 000C
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
PREC: FY 210
CREC: FY 210
POWO: FY 200
PONX: FY 207
STAT: FY 206
M002:
L FW 220
L KH FE00
AW
T FW 220
M001: ***
]
[7
A =CTRL
= F 221.0
***
]
[8
AN =SYNC
O
A F 221.1
AN F 221.2
JC =M001
AN F 221.1
S F 221.1
S F 221.2
A F 221.0
A F 202.0
O
AN F 221.0
AN F 202.0
R F 221.2
M001: ***
]
[9
A =SYNC
ON F 221.1
O F 221.3
JC =M001
LW =NRCT
T FY 213
L KH 0000
T FY 207
A F 220.1
A F 220.2
AN F 220.3
A(
A F 220.5
ON F 203.4
)
A F 220.6
AN F 221.2
JC =M002
JU FB 63
NAME: COMPTSTA
FCT : KF +4
TYPP: KH 0000
NRPO: FY 200
NRST: FY 218
NRCT: FY 213
INCR: FY 210
CPTJ: FW 210
CPTC: FW 210
CPTP: FW 210
FLGP: F 207.0
FLGC: F 207.1
STAT: FY 206
JC =M003
M002:
JU FB 63
NAME: COMPTSTA
FCT : KF +6
TYPP: KH 0000
NRPO: FY 200
NRST: FY 218
NRCT: FY 213
INCR: FY 213
CPTJ: FW 210
CPTC: FW 210
CPTP: FW 210
FLGP: F 207.2
FLGC: F 220.7
STAT: FY 206
L KH 0100
T FW 214
A F 220.7
JC FB 61
NAME: ONOFFSTA
FCT : KF +2
TYPP: KH 0030
NRPO: FY 200
NRST: FY 218
TYPE: FY 210
ONOF: FY 210
SERI: FW 210
MAPA: FY 214
COPA: FY 215
PREC: FY 210
STAT: FY 206
L KH 0000
T FY 204
JU FB 71
NAME: GETBDPCE
FCT : KF +2
TYPP: KH 0030
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
NPC1: FY 210
NPC2: FY 210
ONOF: FY 210
BOMA: FY 204
CODE: FY 200
VIDA: FY 210
SERI: FW 210
STAT: FY 206
JU FB 73
NAME: POSA-CNT
FCT : KF +3
PBAS: KF +2
NPS1: FY 200
NPS2: FY 201
NRCT: FY 213
INCR: FY 213
VCNT: FW 210
STAT: FY 206
M003: AN F 221.3
S F 221.3
A F 220.7
S =FAUL
M001: ***
]
[10
A =FAUL
= F 220.7
S F 115.3
***
]
[11
A(
A F 221.0
AN F 202.0
O
AN F 221.0
A F 202.0
)
A F 202.7
A F 80.4
S =INSP
AN F 202.7
RB =INSP
***
]
[12
A =INSP
S F 115.3
***
]
[13
A(
AN =FAUL
AN =INSP
)
O F 120.7
O F 114.4
ON F 80.0
JC =M001
LW =CTRL
L KH 0FFF
AW
T FW 204
L FY 205
T FW 210
L KF +10
T FW 212
JU FB 242
NAME: MUL:16
Z1 : FW 210
Z2 : FW 212
Z3=0: F 217.0
Z32 : FW 216
Z31 : FW 214
L FY 204
L FW 214
+F
T FW 216
A =INSP
JC =M002
LW =NMES
T FY 210
LW =FAUL
JU =M003
M002: LW =NMEI
T FY 210
LW =INSP
M003: L KH 0FFF
AW
T FW 212
L FW 200
T FW 214
JU FB 21
NAME: DETDEF02
NMES: FY 210
REP : FW 212
STAT: FW 214
CAPT: FW 216
RES1: KF +0
TYPE: KY 1,3
FLAG: F 120.7
M001: ***
]
[14
L FY 220
T =STAT
***
]
[15
L FW 220
DO DW 18
T DW 0
***
]
[16
BE
]