CP 523
Using the ”SEND” and ”Receive” Function Blocks
STL FB 200
Explanation
0126 :L =QLAE
0127 :L KH 0000
0129 :>F
012A :JC =TELE
Jump to Send with fixed length
012B :
012C :
012D :
*****************************************
012E :
*
SEND WITH END-OF-TEXT CHARACTERS
*
012F :
*****************************************
0130 BLOC :
0131 :L FW 244
Increment QANF register by 3
0132 :ADD KF +3
0134 :T FW 244
and store
0135 :
0136 :T FW 246
QANF register to DWINDEX register
0137 :
0138 :L FW 242
Set pointer to base a6
0139 :ADD KF +6
(byte 6)
013B :T FW 250
and store
013C :
013D :DO =Q-DB
Open source DB
013E :
013F WORT :
0140 :DO FW 246
Load the data word to be transferred
0141 :L DW 0
into the ACCUM
0142 :T FW 238
and buffer
0143 :L FY 238
0144 :DO FW 250
Transfer 1st word to CP 523
0145 :T PY 0
0146 :L FW 250
0147 :I 1
0148 :T FW 250
0149 :L FY 239
014A :DO FW 250
014B :T PY 0
014C :L FW 250
014D :D 1
014E :T FW 250
014F :
0150 :L FW 238
Check whether
0151 :LW =ENDZ
word transferred is
0152 :!=F
EOT char.
0153 :S F 237.0
Set aux. flag for EOT char.
0154 :
recognition
0155 :L FW 250
Last word of message block
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 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-17