&DL      PROC  &P,5,&DEFER=NO,&STATS=NO                                 00000000
XBUFFER  NAME  X                                                        00000010
BUFFER   NAME  0   . 03/23/73 ICAM BUFFER POOL AND CONTROL TABLE        00000020
VBUFFER  NAME  1                   . 04/30/76 ICAM/V                    00000021
.* .                                                                    00000030
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000040
.* .                                                                  * 00000050
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000060
.* .                                                                  * 00000070
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000080
.* .                                                                  * 00000090
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000100
         GBL   &VS9,&U93,&RESI                                          00000101
         LCL   &AAAAA,&BBBBB,&CCCCC                                     00000110
         LCL   &DDDDD,&EEEEE                                            00000120
         LCL   &DFR                                                     00000130
         LCL   &CALLR                                                   00000131
         LCLA  &FBA                . FIRST BUFFER ADDRESS DISPLACEMENT  00000135
         LCLA  &LBA                . LAST BUFFER ADDRESS DISPLACEMENT
         LCLA  &ST                 . STATISTICS INDICATOR
.* .                                                                    00000140
*                                                                       00000150
* GENERATE BUFFER POOL AND CONTROL TABLE                                00000160
*                                                                       00000170
*                                                                       00000180
         CNOP  0,4                                                      00000190
*                                                                       00000200
*                                                                       00000210
         SYSTEM                                                         00000211
&CALLR   SET   &P(0)                                                    00000212
&AAAAA   SET   '&P(1)'                  . NUMBER BUFFERS                00000220
&BBBBB   SET   '&P(2)'             . BUFFER SIZE IN WORDS               00000230
&CCCCC   SET   '&P(3)'             . THRESHOLD VALUE                    00000240
         DO    '&P(3)'=''                                               00000250
&CCCCC   SET   0                                                        00000260
         ENDO                                                           00000270
&DDDDD   SET   '&P(4)'                                                  00000280
&EEEEE   SET   '&P(5)'                                                  00000290
&DFR     SET   0                                                        00000300
         DO    '&DEFER'='YES'                                           00000310
&DFR     SET   1                                                        00000320
         ENDO                                                           00000330
         DO    '&STATS'='YES'                                           00000335
&ST      SETA  1
         ENDO
&FBA     SETA  24+4*(&DFR++&ST)+(&AAAAA//2)*4*&ST+4*&VS9
&LBA     SETA  20+4*(&DFR++&ST)+(&AAAAA//2)*4*&ST+4*&VS9
*                                                                       00000340
         DO    &U93++&RESI++(&P(0)=0)                                   00000341
&DL      DC    A(*+&FBA)           . HEAD BUFFER ADDRESS
         DC    A(*+&LBA+(&AAAAA-1)*(&BBBBB)*4) . LAST BUFFER ADDRESS
         GOTO  .SSB                                                     00000371
         ENDO                                                           00000372
         DO    &VS9**(&RESI=0)                                          00000373
&DL      DC    A(0)                                                     00000374
         DC    A(0)                                                     00000375
         ENDO                                                           00000376
.SSB     LABEL                                                          00000377
         DC    Y(&AAAAA)           . TOTAL IN POOL                      00000380
         DC    Y(&AAAAA)           . NUMBER AVAILABLE                   00000390
*                                                                       00000400
         DC    Y(&CCCCC)           . THRESHOLD VALUE                    00000410
         DC    Y(&BBBBB*4)         . BUFFER SIZE IN BYTES               00000420
         DO    '&P(4)'=''                                               00000430
&DDDDD   SET   0                                                        00000440
         ENDO                                                           00000450
         DC    Y(&DDDDD)           . HEADER OFFSET IN BYTES             00000460
         DO    '&P(5)'=''                                               00000470
&EEEEE   SET   0                                                        00000480
         ENDO                                                           00000490
         DC    Y(&EEEEE)           . CONTINUATION OFFSET IN BYTES       00000500
         DC    Y(0)                . THRESHOLD PENETRATION COUNTER      00000510
         DC    X'0'                . THRESHOLD CONTROL FLAGS            00000520
         DC    YL1(X'02'*&ST+X'01'*&DFR) . BUFFER POOL CONTROL FLAGS
         DO    &VS9
         DC    A(0)                . BUFFER POOL BASE ADDRESS
         ENDO
         DO    ('&DEFER'='YES')++('&STATS'='YES')
         DC    A(0)                . BUFFER POOL DEFERRAL QUEUE         00000550
         DO    '&STATS'='YES'                                           00000555
         DC    ((&AAAAA//2)*2)Y(0)     . STATISTICS AREA
         ENDO
         ENDO                                                           00000560
*                                                                       00000570
         DO    &CALLR=0                                                 00000571
         DO    &AAAAA-1                                                 00000580
         DC    A(*+(&BBBBB*4))     . LINK TO NEXT BUFFER                00000590
*                                                                       00000600
         DC    (&BBBBB-1)F'0'                                           00000610
         ENDO                                                           00000620
         DC    (&BBBBB)F'0'                                             00000630
         ENDO                      . ENDO &CALLR=0                      00000631
*                                                                       00000632
*  FOR VS9 AND NON-RESIDENT ICAM, NETWORK BUFFER ALLOCATED AT NETREQ.   00000633
*                                                                       00000634
         END                                                            00000640
