Using the ”SEND” and ”Receive” Function Blocks
CP 523
STL FB 200
Explanation
0156 :L FW 242
transferred?
0157 :><F
0158 :JC =VORB
”Preparations” for next message block
0159 :
015A :A F 237.0
Did this message block contain the end-
015B :JC =END
of-text character?->”END”
015C :
015D :L FW 244
Increment QANF register by 1
015E :ADD KF +1
0160 :T FW 244
and store
0161 :
0162 :JU =BLOC
”NEXT MESSAGE BLOCK”
0163 :
0164 VORB :
0165 :L FW 250
Decrement current CP 523
0166 :D 2
address by 2
0167 :T FW 250
and store
0168 :
0169 :L FW 246
Decrement data word index
016A :D 1
register by 1
016B :T FW 246
and store
016C :JU =WORT
”NEXT WORD”
016E :
016F :
****************************
0170 :
*
SEND WITH FIXED FRAME
*
0171 :
*
LENGTH
*
0172 :
****************************
0173 :
0174 TELE :
Compute frame remainder register:
0175 :
0176 :L FW 240
Number of message blocks * 4
0177 :SLW 2
(number in words)
0178 :L =QLAE
Buffer number of words
0179 :-F
Subtract message frame length from
017A :T FW 248
number of message frames (in words)
017B :
and store
017C :L KH 0004
017E :L FW 248
017F :-F
0180 :T FW 248
----------------------------
0181 :
0182 NBLO :
0183 :L FW 240
Decrement number of message blocks by 1
0184 :D 1
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
8-18
EWA 4NEB 811 6044-02a