Communications Mode
CP 523
STL FB 126
Explanation
:C DB 3
Open target data block.
M001
:A F 101.1
Message frame in DB?
:JC =M001
If yes, then Block End.
:LW =BADR
Load and store
:T FW 222
module start address.
:L KH A080
Load Receive request
:DO FW 222
:T PW 0
and transfer to CP.
:L KH 0080
Message frame
:DO FW 222
:L PW 0
in Receive mailbox?
:AW
:><F
If no,
:JC =M001
then Block End.
:S F 101.1
Set message frame flag.
:LW =BADR
Load module address,
:ADD KF +6
set byte 6 address
:T FW 222
and store.
:LW =ENZE
Load end-of-text character
:T FW 224
and store.
:L KH 0000
Preset data word pointer.
:T FW 232
:L KH 0003
Preset auxiliary data word pointer.
:T FW 234
M003
:
:LW =BADR
Load module address
:T FW 220
and store.
:L KH 0000
Request next message block
:DO FW 220
by writing byte 0.
:T PW 0
M004 :L FW 224
Is the next data byte equal to
:DO FW 220
the end-of-text character?
:L PW 0
:!=F
If yes,
:S F 101.2
set End flag.
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
FB 126
LEN=85
NETWORK 1 0000
NAME :RECEIVE4
DES :BADR I/Q/D/B/T/C: D KM/KH/KY/KC/KF/KT/KZ/KG: KF
DES :ENZE I/Q/D/B/T/C: D KM/KH/KY/KC/KF/KT/KZ/KG: KH
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
7-80
EWA 4NEB 811 6044-02a