Using the ”SEND” and ”RECEIVE” Function Blocks
CP 523
STL FB 201
Explanations
0039 :JC =NEIN
003A :
Load STAT bit ”Data available” and
003B :L KH 0001
jump to 'output STAT'
003D :JU =STAT
003E NEIN :
STAT bit ”No data”
003F :L KH 0000
0041 STAT :
Output STAT bit
0042 :T =STAT
0043 :
0044 :L =KBE
Reset KBE.7 (Request
0045 :L KH 007F
accepted) but do not
0047 :AW
reset error flags
0048 :T =KBE
0049 :
RLO ”0” at jump?
004A :AN F 255.0
or no data available?
004B :ON F 254.7
Program ”End”
004C :BEC
004D :
004E :***
NETWORK 3 004F
004F :
Check whether Z-DB is available
0050 :LW =Z-DB
Load Z-DB parameter
0051 :SLW 8
Isolate the DB number from
0052 :SRW 7
the Z-DB parameter specification
0053 :
0054 :L KH E400
Calculate the start address
0056 :+F
of the Z DB using the
0057 :LIR 0
block address list
0058 :
0059 :L KB 0
Z-DB available?
005A :!=F
005B :JC =FE04
”E R R O R”
005C :
005D :TAK
Calculate length of the Z-DB
005E :ADD KF -2
0060 :LIR 0
Gross length in words
0061 :ADD KF -5
Subtract length of block header
0063 :T FW 232
and store
0064 :
0065 :LW =ZANF
Check ZANF information
0066 :L KB 0
ZANF less than 0?
0067 :<F
0068 :JC =FE04
”E R R O R”
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 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-30
EWA 4NEB 811 6044-02a