Using the ”SEND” and ”Receive” Function Blocks
CP 523
STL FB 200
Explanation
003F :AN =RKPL
no computer link
0040 :JC =NORK
0041 :L FW 242
Set pointer to base
0042 :I 1
a 2 (byte 2 = CBS
0043 :T FW 242
for computer link)
0044 :
0045 :DO FW 242
Read CBS (when computer link)
0046 :L PY 0
0047 :T =KBS
output and
0048 :T FY 238
buffer
0049 :
004A :L FW 242
Set pointer back to module
004B :D 1
base a 1
004C :T FW 242
004D NORK :
004E :L FW 242
Set pointer back to
004F :D 1
module base address
0050 :T FW 242
0051 :
0052 :A F 254.0
Does CP523 report ”send in progress”?
0053 :JC =NEIN
”NO”
0054 :
0055 :L KH 0002
Load STAT bit ”Send in progress ”
0057 :JU =STAT
jump to STAT
0058 NEIN :
0059 :L KH 0000
STAT bit ”Send mailbox empty”
005B STAT :
005C :T =STAT
Output STAT flag
005D :
005E :L FY 238
Error code in CBS
005F :L KH 007F
(when computer link)?
0061 :AW
0062 :L KB 0
0063 :!=F
0064 :JC =KBOK
CBS ok
0065 :L KH 0088
Output error code for
0067 :T =STAT
”CBS error / computer link”
0068 :
0069 KBOK :
006A :AN F 255.0
RLO = ”0” on jump?
006B :ON F 254.0
or Send mailbox occupied?
006C :BEC
”End” of program
006D :
006E :***
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 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-12
EWA 4NEB 811 6044-02a