Using the ”SEND” and ”Receive” Function Blocks
CP 523
STL FB 200
Explanation
009F :L KB 128
00A0 :>F
00A1 :JC =FE03
" E R R O R "
00A2 :
00A3 :
Check to make sure that
00A4 :LW =QANF
QANF+QLAE not > Q-DB length
00A5 :LW =QLAE
00A6 :+F
00A7 :L FW 254
Load calculated Q-DB length
00A8 :>F
00A9 :JC =FE03
" E R R O R "
00AA :TAK
QANF+QLAE<=255?
00AB :L KF +255
00AD :<=F
00AE :JC =PAOK
Then OK
00AF FE03 :
00B0 :L KH 0038
Output "FB PARAMETER
00B2 :T =STAT
ERROR"
00B3 :
00B4 :BEU
Program "END"
00B5 PAOK :
00B6 :***
Segment 4 00B7
00B7 :
00B8 :***
Segment 5 00B9
00B9 :
00BA :L FW 242
Increment pointer to
00BB :I 2
base a2 (byte 2)
00BC :T FW 242
00BD :
00BE :L =QLAE
Write length (bytes) of the
00BF :SLW 1
frame to be transferred
00C0 :DO FW 242
to bytes 2 and 3
00C1 :T PW 0
of the CP 523
00C2 :
00C3 :L FW 242
Set pointer to base
00C4 :I 2
a 4 (byte 4)
00C5 :T FW 242
and store
00C6 :
00C7 :LW =ENDZ
Write end-of-text characters 1 and 2
00C8 :DO FW 242
to bytes 4 and 5
00C9 :T PW 0
of the CP 523
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 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-14
EWA 4NEB 811 6044-02a