CP 523
Using the ”SEND” and ”Receive” Function Blocks
STL FB 200
Explanation
00CA :
00CB :L FW 242
Set pointer to base address
00CC :D 4
of the CP 523
00CD :T FW 242
and store
00CE :
00CF :
00D0 :L KH 00A0
Write KOOR ID "SEND"
00D2 :DO FW 242
to word 0
00D3 :T PY 0
of the CP 523
00D4 :L FW 242
00D5 :I 1
00D6 :T FW 242
00D7 :L KH 0001
00D9 :DO FW 242
00DA :T PY 0
00DB :
00DC :L FW 242
Set pointer back
00DD :D 1
to base address
00DE :T FW 242
00DF :***
Segment 6 00E0
00E0 :DO FW 242
Read status byte 0 from CP 523
00E1 :L PY 0
00E2 :SLW 4
Isolate error bits
00E3 :T FY 254
and buffer
00E4 :
00E5 :L KF +0
Reset aux. flag byte
00E7 :T FY 238
00E8 :
00E9 :AN =RKPL
No computer link
00EA :JC =NORK
00EB :
00EC :L FW 242
Increment pointer to base a 2
00ED :I 2
(byte 2 = CBS when
00EE :T FW 242
computer link)
00EF :
00F0 :DO FW 242
Read CBS,
00F1 :L PY 0
00F2 :T =KBS
output
00F3 :T FY 238
and buffer
00F4 :
00F5 :L FW 242
Set pointer back to
00F6 :D 2
base address
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 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-15