FB 100 continued:
0013 :
0014 :SLW 2 CPUN = CPUN * 4
0015 :T FY 245 Base address
0016 :
0017 :L KB 1
0018 :T FY 244 Link counter
0019 :
001A LOOP :L FY 245 Base address
001B :L FY 244 + counter
001C :+F
001D :T FW 240
001E :ADD BN+16 + offset
001F :T FW 242
0020 :
0021 :DO FW 242
0022 :L DR 0 Number of reserved
0023 :T FY 239 fields = 0 ?
0024 :L KB 0
0025 :!=F
0026 :JC =EMPT
0027 :
0028 :B FW 242
0029 :L DL 0 No. of the receiving CPU
002A :T FY 246
002B :L KB 246 SF OB:
002C
:JU OB 203 "Test sending capacity"
002D :L FY 248 Abort if error
002E :JC =OBER
002F :
0030 :L FY 249 Transmitting capacity >< no.
0031 :L FY 239 of reserved fields?
0032 :><F
0033 :JC =EMPT
0034 :
0035 :L KB 0 Field counter
0036 :T FY 249
0037 :
0038 :B FY 240
0039 :L DW 0 Type and number of
003A :T FW 247 the source DB
003B :
003C TRAN :L KB 246 SF OB:
003D
:JU OB 202 Send a data field
003E :L FY 250 Abort if error/warning
003F :JC =OBER
0040 :
0041 :L FY 249 Field no. = field no. + 1
0042 :I 1
0043 :T FY 249 All data fields transferred?
0044 :L FY 239
0045 :<F
0046 :JC =TRAN
0047 :
Continued on the next page
Applications
CPU 948 Programming Guide
C79000-G8576-C848-04
10 - 73