&LBL     PROC  &P,1,                                                   @00000000
               &LOW=,                                                  @00000100
               &MEDIUM=,                                               @00000200
               &HIGH=                                                   00000300
XPRCS    NAME  X                                                        00000400
PRCS     NAME 0   9700 ICAM - PROCESS FILE                     73/03/29 00000500
.* .                                                                    00000600
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000700
.* .                                                                  * 00000800
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000900
.* .                                                                  * 00001000
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00001100
.* .                                                                  * 00001200
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001300
         GBL   &TN#LSTP            . LABEL OF LAST ENTRY                00001400
         GBL   &TN#PNDX            . INDEX OF CURRENT ENTRY             00001500
         GBL   &TN#NUMQ                 NUMBER OF QUEUES                00001600
         GBL   &TN#DSCQ            . DISC QUEUING IN CCA (1)            00001700
         GBL   &TS#PRCS            . TOTAL NUMBER OF PROCESS FILES      00001800
         GBL   &CTCI               . TCI NETWORK FLAG                   00001900
         GBL   &CRJE                                                    00002000
         DO    '&TN#PNDX'=''                                            00002100
&TN#PNDX SET   0                                                        00002200
         ENDO                                                           00002300
         DO    '&TS#PRCS'=''                                            00002400
&TS#PRCS SET   0                                                        00002500
         ENDO                                                           00002600
         DO    &CRJE                                                    00002700
         PNOTE *,'RBP DOES NOT REQUIRE PRCS TABLES'                     00002800
         GOTO  .ZZZZ                                                    00002900
         ENDO                                                           00003000
&TS#PRCS SET   &TS#PRCS+1                                               00003100
*              VERSION 16-00 -- 73/08/15                                00003200
&TN#PNDX SET   &TN#PNDX+1          . PRCS FILE INDEX #                  00003300
TN#P&TN#PNDX EQU *                                                      00003400
&LBL     DC    CL4'&LBL'                PRCS FILE NAME                  00003500
         DO    '&LBL'='&TN#LSTP'                                        00003600
TN#NUMP  EQU   &TN#PNDX            . NUMBER OF PRCS FILE ENTRIES        00003700
         DC    H'0'                                                     00003800
         GOTO  .AAAA                                                    00003900
         ENDO                                                           00004000
&TN#PNDX SET   &TN#PNDX+1                                               00004100
         DC    Y(TN#P&TN#PNDX-&LBL) . DISPL TO NEXT PRCS FILE ENTRY     00004200
&TN#PNDX SET   &TN#PNDX-1                                               00004300
.AAAA    LABEL                                                          00004400
         DC    2XL1'0'                                                  00004500
         DO    '&LOW&MEDIUM&HIGH'=''                                    00004600
         PNOTE '*','NO QUEUES SPECIFIED - &LBL UNUSABLE'                00004700
         GOTO  .ZZZZ                                                    00004800
         ENDO                                                           00004900
         DC    Y(TN#FLNGH)              LOW DISPLACEMENT                00005000
         DO    ('&LOW'='')++('&MEDIUM'='')                              00005100
         DC    Y(TN#FLNGH)              MEDIUM DISPLACEMENT             00005200
         GOTO  .AA10                                                    00005300
         ENDO                                                           00005400
         DO    (('&LOW'='MAIN')++('&LOW'=''))=0                         00005500
         DC    Y(TN#FLNGH+TN#QCSZ+TN#QDSZ)  . MEDIUM DISPL.             00005600
         GOTO  .AA10                                                    00005700
         ENDO                                                           00005800
         DC    Y(TN#FLNGH+TN#QCSZ) . MEDIUM DISPL.                      00005900
.AA10    LABEL                          COMPUTE HIGH DISPLACEMENT       00006000
         DO    (('&LOW'='')++('&MEDIUM'='')+('&HIGH'=''))=2             00006100
         DC    Y(TN#FLNGH)              HIGH DISPLACEMENT               00006200
         GOTO  .CCCC                                                    00006300
         ENDO                                                           00006400
         DO    '&LOW'=''                                                00006500
         DO    (('MEDIUM'='MAIN')++('&MEDIUM'=''))=0                    00006600
         DC    Y(TN#FLNGH+TN#QCSZ+TN#QDSZ)  . HIGH DISPL.               00006700
         GOTO  .AA20                                                    00006800
         ENDO                                                           00006900
         DC    Y(TN#FLNGH+TN#QCSZ)                                      00007000
.AA20    LABEL                                                          00007100
         GOTO  .CCCC                                                    00007200
         ENDO                                                           00007300
         DO    ('&MEDIUM'=''=0)**('&HIGH'=''=0)                         00007400
         DO    (('&LOW'='MAIN')++('&LOW'=''))=0                         00007500
         DO    (('&MEDIUM'='MAIN')++('&MEDIUM'=''))=0                   00007600
         DC    Y(TN#FLNGH+2*TN#QCSZ+TN#QDSZ*2)  . HIGH DISPL.           00007700
         GOTO  .AA30                                                    00007800
         ENDO                                                           00007900
         DC    Y(TN#FLNGH+2*TN#QCSZ+TN#QDSZ)  . HIGH DISPL.             00008000
         GOTO  .AA30                                                    00008100
         ENDO                                                           00008200
         DO    (('&MEDIUM'='MAIN')++('&MEDIUM'=''))=0                   00008300
         DC    Y(TN#FLNGH+2*TN#QCSZ+TN#QDSZ)  . HIGH DISPL.             00008400
         GOTO  .AA30                                                    00008500
         ENDO                                                           00008600
         DC    Y(TN#FLNGH+2*TN#QCSZ)  . HIGH DISPL.                     00008700
.AA30    LABEL                                                          00008800
         GOTO  .CCCC                                                    00008900
         ENDO                                                           00009000
         DO    (('&LOW'='MAIN')++('&LOW'=''))=0                         00009100
         DC    Y(TN#FLNGH+TN#QCSZ+TN#QDSZ)  . HIGH DISPL.               00009200
         GOTO  .AA40                                                    00009300
         ENDO                                                           00009400
         DC    Y(TN#FLNGH+TN#QCSZ)  . HIGH DISPL.                       00009500
.AA40    LABEL                                                          00009600
.CCCC    LABEL                                                          00009700
         DS    H                        (UNUSED)                        00009800
         DC    A(0)                     DEFERRED ARP ADDRESS            00009900
         DC    3F'0'               . MUST GETCP WORK AREA               00010000
         DC    3F'0'               . MUST PUTCP WORK AREA               00010100
         TN#PQ PFQ=(&LBL,&LOW,&MEDIUM,&HIGH) GENERATE QUEUE CONTROLS    00010200
&TN#NUMQ SET   &TN#NUMQ+1+('&MEDIUM'=''=0)+('&HIGH'=''=0)               00010300
         DO    '&TN#LSTP'='&LBL'   . LAST PRCS IN PRSTB                 00010400
TN#FNQ   EQU   &TN#NUMQ                 TOTAL # Q'S ALL PRCS            00010500
         ENDO                                                           00010600
&LBL     TN#ENTRY FILE                  DESTINATION TABLE ENTRY         00010700
.ZZZZ    LABEL                                                          00010800
         END                                                            00010900
