Using the ”SEND” and ”Receive” Function Blocks
CP 523
STL FB 200
Explanations
01B4 :T PY 0
and forward to CP
01B5 :L FW 250
Decrement pointer
01B6 :D 1
01B7 :T FW 250
01B8 :
01B9 :L FW 250
Last word of message block
01BA :L FW 242
forwarded?
01BB :><F
01BC :JC =NADR
”NEXT ADDRESS”
01BD :
01BE :L FW 240
Is message block
01BF :L KB 0
to be transferred
01C0 :!=F
the last message block?
01C1 :JC =END
”END”
01C2 :
01C3 :L FW 244
Increment QANF register by 1
01C4 :ADD KF + 1
01C6 :T FW 244
and store
01C7 :
01C8 :JU =NBLO
”NEXT MESSAGE BLOCK”
01C9 NADR :
01CA :L FW 250
Decrement pointer for byte
01CB :D 2
address by 2
01CC :T FW 250
and store
01CD :
01CE :L FW 246
Decrement data word
01CF :D 1
index register by 1
01D0 :T FW 246
and store
01D1 :
01D2 :JU =NWOR
”NEXT WORD”
01D3 END :
01D4 :L KH 0002
Load STAT bit ”SEND in progress”
01D6 :T =STAT
Output STAT bit
01D7 :
01D8 :A F 237.0
Reset auxiliary flag
01D9 :R F 237.0
for end-of-text character
01DA :
01DB :BE
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 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-20
EWA 4NEB 811 6044-02a