FB 101 continued:
FB 101 LEN=88
SEGMENT 1 0000
NAME:RECV-DAT
DECL :CPUN I/Q/D/B/T/C: D KM/KH/KY/KS/KF/KT/KC/KG: KF
DECL :ERWA I/Q/D/B/T/C: Q BI/BY/W/D: BY
000B :LW =CPUN Error if:
000C :L KB 1
000D :<F
000E :JC =ERWA CPU no. <1
000F :LW =CPUN
0010 :L KB 4
0011 :>F
0012 :JC =ERWA CPU no. >4
0013 :
0014 :L KB 1 Link counter
0015 :T FY 242
0016 :
0017 :L KB 16
0018 :T FW 244 Pointer to sub-list 2
0019 :
001A SRCH :L FW 244 Search sub-list 2 until
001B :I 1 the next entry for the
001C :T FW 244 receiving CPU with the
001D :DO FW 244 number ’CPUN’ is found.
001E :L DL 0
001F :LW =CPUN
0020 :><F
0021 :JC =SRCH
0022 :
0023 :DO FW 244
0024 :L DR 0 Number of reserved
0025 :T FY 243 memory fields = 0 ?
0026 :L KB 0
0027 :!=F
0028 :JC =EMPT
0029 :
002A :L FW 244 Determine the number of the
002B :L KM 00000000 00001100 transmitting CPU from the
002D :AW pointer to sub-list 2.
002E :SRW 2
002F :I 1
0030 :T FY 246
0031 :
0032 :L KB 246 SF OB:
0033
:JU OB 205 "Test receiving capacity"
0034 :L FY 248
0035 :JC = OBER Abort if error
0036 :
Continued on the next page
Applications
CPU 948 Programming Guide
C79000-G8576-C848-04
10 - 75