CP 523
Using the ”SEND” and ”RECEIVE” Function Blocks
STL FB 201
Explanations
011E :
011F :JU =END
0120 :
0121 KEND :
0122 :L FW 230
Increment ZLAE register by 1
0123 :ADD KF +1
0125 :T FW 230
and store
0126 :
0127 :L FW 236
Increment ZANF register by 1
0128 :ADD KF +1
012A :T FW 236
and store
012B :
012C :L FW 232
ZANF register >DB length?
012D :D 1
012E :<=F
012F :JC =JUM1
”N O”
0130 :
0131 :L KH 0058
Buffer ”Z-DB too small for total
0133 :T FY 254
Receive data” error message
0134 :
0135 :
0136 ENTL :
0137 :L FW 238
Last message block?
0138 :L KB 0
0139 :!=F
013A :JC =END
”Y E S”-->END
013B :
013C :L KH 0000
Access word 0 on CP 523
013E :DO FW 242
for transferring a message block
013F :T PY 0
0140 :L FW 242
0141 :I 1
0142 :T FW 242
0143 :L KH 0000
0145 :DO FW 242
0146 :T PY 0
0147 :L FW 242
Set pointer to base address
0148 :D 1
0149 :T FW 242
014A :
014B :L FW 238
Decrement message block
014C :D 1
counter register by 1 and store
014D :T FW 238
014E :
014F :JU =ENTL
Empty Receive mailbox loop
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
EWA 4NEB 811 6044-02a
8-35