
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.
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
7-80
EWA 4NEB 811 6044-02a
Kommentare zu diesen Handbüchern