
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 address +6
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
EWA 4NEB 811 6044-02a
8-17
Komentáře k této Příručce