CP 523
Using the ”SEND” and ”Receive” Function Blocks
STL FB 200
Explanations
0185 :T FW 240
and store
0186 :
0187 :L KB 0
Is the message block to be transferred
0188 :!=F
the last subframe?
0189 :JC =LBLO
”LAST MESSAGE BLOCK”
018A :
018B :L FW 244
Increment QANF register by 3
018C :ADD KF +3
018E :T FW 244
and store
018F :
0190 :T FW 246
QANF register to DWINDEX register
0191 :
0192 :L FW 242
Set pointer to base
0193 :ADD KF +6
a6 (byte 6)
0195 :T FW 250
and store
0196 :
0197 :JU =JUM1
0198 :
0199 LBLO :
019A :L FW 244
Calculate data word index register
019B :L FW 248
019C :D 1
019D :+F
019E :T FW 246
and store
019F :
01A0 :L FW 248
Compute corresponding
01A1 :SLW 1
byte address
01A2 :D 2
01A3 :L FW 242
01A4 :+F
01A5 :T FW 250
and store
01A6 :
01A7 JUM1 :
01A8 :DO =Q-DB
Open source DB
01A9 NWOR :
01AA :DO FW 246
Load data byte to be transferred
01AB :L DL 0
into ACCUM
01AC :DO FW 250
01AD :T PY 0
and transfer to CP
01AE :L FW 250
Increment pointer
01AF :I 1
01B0 :T FW 250
01B1 :DO FW 246
Load data byte to
01B2 :L DR 0
into ACCUM
01B3 :DO FW 250
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 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-19