&DL      PROC  &P,40,&TYPE=,&TCI=,&USERS=,&DFILES=,&TRANSNT=,&AUTHOR=, X00000000
               &CCAID=,&PASSWORD=,&INIT=,&MPPS=,&JRNFILE=(0,0),        X00000100
               &FEAT01ES=,&FEAT02ES=,&FEAT03ES=,&FEAT04ES=,&FEAT05ES=, X00000200
               &FEAT06ES=,&FEAT07ES=,&FEAT08ES=,&FEAT09ES=,&FEAT10ES=, X00000300
               &FEAT11ES=,&FEAT12ES=,&FEAT13ES=,&FEAT14ES=,&FEAT15ES=, X00000301
               &FEATURES=                                               00000302
XCCA     NAME  X                                                        00000400
CCA      NAME  0       . GENERATE CCA CONTROL SECTION                   00000500
*                                                                       00000600
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00000700
*                                                                     * 00000800
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY            * 00000900
*                                                                     * 00001000
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION         * 00001100
*                                                                     * 00001200
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00001300
         GBL   &TN#CNME                                                 00001400
         GBL   &TN#STRT                                                 00001500
         GBL   &TN#CUSR                                                 00001600
         GBL   &GGGGG                                                   00001700
         GBL   &HHHHH                                                   00001800
         GBL   &LLLLL              . LINKS LCT TABLES BY CONCATENTATIO  00001900
         GBL   &TTTTT,&XXXXX       . USED TO LINK TCT'S                 00002000
         GBL   &MMMMM              . USED TO GENERATE DISPLACEMENTS     00002100
         GBL   &PPPPP              . USED FOR PHONE NR LENGTHS          00002200
         GBL   &TS#LINS            . TOTAL NR OF LINES                  00002300
         GBL   &TS#TRMS            . TOTAL NR OF TERMINALS              00002400
         GBL   &TS#QUEU            . TOTAL NR OF QUEUES                 00002500
         GBL   &TS#PRCS            . TOTAL NUMBER OF  PROCESS FILES     00002600
         GBL   &CRJE,&CDDI,&CMINI,&CMIDI,&CMAXI,&CIMS                   00002700
         GBL   &VMINI,&VMIDI,&VMAXI,&VDDI,&VIMS,&VRJE                   00002800
         GBL   &CTCI,&VTCI                                              00002900
         GBL   &CTCIYES,&CTCIPUT   . USED BY CCA                        00003000
         GBL   &TCITRNS,&TCIRES,&TCIDOUT . USED BY DISCFILE PROC        00003100
         GBL   &TRANS                                                   00003200
         GBL   &CNTR,&VNTR              NTR NETWORK                     00003300
         GBL   &VS9                                                     00003400
         GBLA  &DQFCNT                                                  00003450
         LCL   &INOPT1,&INOPT2                                          00003500
.* .                                                                    00003600
         DO    '&DL'='PIOCS'                                            00003700
         PNOTE *,'PHYSICAL USER, NO CCA GENERATED'                      00003800
         GOTO  .CEXIT                                                   00003900
         ENDO                                                           00004000
         SYSTEM                                                         00004100
.*                                                                      00004200
.*                                 . FOR NETWORK SUMMARY INFO           00004300
.*                                                                      00004400
&TN#CNME SET   '&DL'               . NETWORK CCA NAME                   00004500
&TN#STRT SET   '&SYSECT'           . START CARD LABEL                   00004600
.*                                                                      00004700
&TN#CUSR SET   '&CCAID'                                                 00004800
         DO    '&CCAID'=''                                              00004900
&TN#CUSR SET   '&TN#CNME'                                               00005000
         ENDO                                                           00005100
         TITLE ' &TN#CUSR - COMMUNICATIONS CONTROL AREA'                00005101
.*                                                                      00005200
.*       GENERATE THE CONTROL SECTION FOR A NETWORK COMMUNICATIONS      00005300
.*       CONTROL AREA (CCA).  THIS SECTION IS COVERED BY DSECT TN#CNTRL 00005400
.*                                                                      00005500
.* T                                                                    00005600
.*       WHICH MAY BE REQUIRED OF THE MCP.  THE TYPE ENTRIES RJE AND    00005700
.*       DDI ARE NOT COMPATIBLE WITH 9700 ICAM.                         00005800
.*       PARAMETERS = RJE,DDI,MINI,MIDI,MAXI                            00005900
.*       PARAMETER = YES                                                00006000
.* PASSWORD=  A LABEL UP TO 8 CHARACTERS BOUNDED BY APOSTROPHES WHICH   00006100
.*       IS SUBMITTED WITH THE NETREQ MACRO INSTRUCTION TO PERMIT       00006200
.*       INITIALIZATION.  IF OMITTED, NO PASSWORD IS REQUIRED.          00006300
.*       PARAMETER = 'XXXXXXXX'                                         00006400
.* INIT= OPTIONALLY SPECIFIES THE INITIALIZATION PROCEDURE FOR THE      00006500
.*       NETWORK LINES AND QUEUES.  IF OMITTED, NO INITIALIZATION IS    00006600
.*       PERFORMED.                                                     00006700
.*       PARAMETERS = LNEREQ,QHOLD,RPG                                  00006800
.* M     PARAMETERS = LNEREQ,QHOLD,RPG                                  00006900
.*       PARAMETER = SEPASMB                                            00007000
.*                                                                      00007100
.*  TRANSIENT CHECK MUST BE MADE BEFORE DSECT CALL                      00007200
.* .                                                                    00007300
&TRANS   SET   0                                                        00007400
         DO    '&TCI'='TRANS'                                           00007500
&TRANS   SET   1                                                        00007600
         ENDO                                                           00007700
         DO    '&TRANSNT'='YES'                                         00007800
&TRANS   SET   1                   . TRANSIENT ICAM DESIRED             00007900
         ENDO                                                           00008000
         TN#DSECT CCAGRP           . NETWORK GENERATION DSECT GROUP     00008100
.*                                                                      00008200
.*                                                                      00008300
.*       FOLLOWING SYMBOLS USED TO GEN LINKAGE AND DISPLACEMENTS        00008400
.*                                                                      00008500
&GGGGG   SET   1                                                        00008600
&HHHHH   SET   1                                                        00008700
&LLLLL   SET   1                                                        00008800
&TTTTT   SET   0                                                        00008900
&XXXXX   SET   0                                                        00009000
&MMMMM   SET   0                                                        00009100
&PPPPP   SET   0                                                        00009200
.*                                                                      00009300
.*       FOLLOWING USED FOR GENERATING A NETWORK SUMMARY                00009400
.*                                                                      00009500
&TS#LINS SET   0                                                        00009600
&TS#TRMS SET   0                                                        00009700
&TS#QUEU SET   0                                                        00009800
&TS#PRCS  SET  0                                                        00009900
.*                                                                      00010000
.*       SET TYPE VALUES BY SCANNING KEYWORD ENTRIES                    00010100
.*                                                                      00010200
.*                                                                      00010300
&CTCI    SET   0                   .                                    00010400
&CTCIYES SET   0                                                        00010500
&CTCIPUT SET   0                                                        00010600
&TCITRNS SET   0                                                        00010700
&TCIRES  SET   0                                                        00010800
&TCIDOUT SET   0                                                        00010900
.*                                                                      00011000
         DO    '&TCI'='TRANS'                                           00011100
&CTCIYES SET   1                                                        00011200
&TCITRNS SET   1                                                        00011300
         ENDO                                                           00011400
.*                                                                      00011500
         DO    '&TCI'='COREQUE'                                         00011600
&CTCIYES SET   1                                                        00011700
&CTCIPUT SET   1                                                        00011800
&TCIRES  SET   1                                                        00011900
         ENDO                                                           00012000
.*                                                                      00012100
         DO    '&TCI'='DISCQUE'                                         00012200
&CTCIYES SET   1                                                        00012300
&CTCIPUT SET   1                                                        00012400
&TCIRES  SET   1                                                        00012500
         ENDO                                                           00012600
.*                                                                      00012700
         DO    '&TCI'='DISCBUF'                                         00012800
&CTCIYES SET   1                                                        00012900
&TCIDOUT SET   1                                                        00013000
         ENDO                                                           00013100
         DO    '&TYPE(1)'='TCI'                                         00013200
&CTCIYES SET   1                   . TCI DESIRED                        00013300
&TCIRES  SET   1                   . RESIDENT ICAM DESIRED WITH TCI     00013400
         DO    &TRANS                                                   00013500
&TCITRNS SET   1                   . TRANSIENT TCI DESIRED              00013600
&TCIRES  SET   0                   . TRANSIENT TCI DESIRED              00013700
         ENDO                                                           00013800
         DO    &TCIRES                                                  00013900
&CTCIPUT SET   1                   . TCI WITH QUEUED OUTPUT             00014000
&TCIDOUT SET   0                   . TCI WITH QUEUED OUTPUT             00014100
         ENDO                                                           00014200
         ENDO                                                           00014300
.*                                                                      00014400
&CDDI    SET   0                                                        00014500
&CRJE    SET   0                                                        00014600
&CMINI   SET   0                                                        00014700
&CMIDI   SET   0                                                        00014800
&CMAXI   SET   0                                                        00014900
&CIMS    SET   0                                                        00015000
&CNTR    SET   0                                                        00015100
&VNTR    SET   0                                                        00015200
&VMINI   SET   0                   . TYPE SET                           00015300
&VMIDI   SET   0                   . TYPE SET                           00015400
&VMAXI   SET   0                   . TYPE SET                           00015500
&VDDI    SET   0                   . TYPE SET                           00015600
&VIMS    SET   0                   . TYPE SET                           00015700
&VRJE    SET   0                   . TYPE SET                           00015800
&VTCI    SET   0                   . TYPE SET                           00015900
         DO    '&TYPE(1)'=''                                            00016000
&VMINI   SET   'TN#CMINI'          . MINI MCP                           00016100
&CMINI   SET   1                                                        00016200
         PNOTE *,'DEFAULT NETWORK TYPE IS STDMCP.'                      00016300
         ENDO                                                           00016400
&CRJE    SET   0                                                        00016500
         DO    '&TYPE(1)'='RBP'                                         00016600
&VRJE    SET   'TN#CRJE'                                                00016700
&CRJE    SET   1                                                        00016800
&VDDI    SET   'TN#CDDI'                                                00016900
&CDDI    SET   1                                                        00017000
         ENDO                                                           00017100
         DO    '&TYPE(1)'='RBP1'                                        00017200
&VRJE    SET   'TN#CRJE'                                                00017300
&CRJE    SET   1                                                        00017400
&VDDI    SET   'TN#CDDI'                                                00017500
&CDDI    SET   1                                                        00017600
         ENDO                                                           00017700
         DO    '&TYPE(1)'='RBP2'                                        00017800
&VRJE    SET   'TN#CRJE'                                                00017900
&CRJE    SET   1                                                        00018000
&VDDI    SET   'TN#CDDI'                                                00018100
&CDDI    SET   1                                                        00018200
         ENDO                                                           00018300
         DO    '&TYPE(1)'='DDI'                                         00018400
&VDDI    SET   'TN#CDDI'           . DDI MCP                            00018500
&CDDI    SET   1                                                        00018600
         ENDO                                                           00018700
         DO    '&TYPE(1)'='NTR'                                         00018800
&CNTR    SET   1                                                        00018900
&VNTR    SET   'TN#CNTR'                                                00019000
&CDDI    SET   1                                                        00019100
&VDDI    SET   'TN#CDDI'                                                00019200
         ENDO                                                           00019300
         DO    '&TYPE(1)'='STDMCP'                                      00019400
&VMINI   SET   'TN#CMINI'                                               00019500
&CMINI   SET   1                                                        00019600
         ENDO                                                           00019700
         DO    &CTCIYES                                                 00019800
&VTCI    SET   'TN#CTCI'           . TCI NETWORK                        00019900
&CTCI    SET   1                                                        00020000
         ENDO                                                           00020100
         DO    (&CRJE++&CDDI++&CMINI++&CTCI++&CNTR)=0                   00020200
         PNOTE 'E','INVALID NETWORK TYPE SPECIFIED - ASM ABORTED.'      00020300
         GOTO  .CEXIT                                                   00020400
         ENDO                                                           00020500
.*                                                                      00020600
         CNOP  0,4                                                      00020700
.*                                                                      00020800
         DO    '&DL'=''=0                                               00020900
         ENTRY CCA#&DL                                                  00021000
CCA#&DL  EQU   *                   . USED FOR EXTERNAL REFERENCE        00021100
         ENDO                                                           00021200
.*                                                                      00021300
         DC    CL4'&DL '           . NETWORK NAME                       00021400
         DC    CL8'&PASSWORD '     . NETWORK PASSWORD                   00021500
         DC    F'0'                . USER TCB ADDRESS                   00021600
         DC    A(TN#LC&LLLLL)      . FIRST LINE CONTROL TABLE ADDRESS   00021700
         DC    A(TN#CARP)          . ARP BUFFER POOL CONTROL TABLE      00021800
         DO    '&TYPE(1)'='DDI'=0                                       00021900
         DC    A(TN#CDATA)         . DATA BUFFER POOL CONTROL TABLE     00022000
         ENDO                                                           00022100
         DO    (&CDDI++&CRJE)=0                                         00022200
         DC    A(TN#PRCST)         . LINK TO FIRST PROCESS FILE         00022300
         ENDO                                                           00022400
         DO    '&TYPE(1)'='DDI'                                         00022500
         DC    A(0)                . NO NETWORK BUFFER POOL             00022600
         ENDO                                                           00022700
         DO    &CDDI++&CRJE                                             00022800
         DC    A(0)                . NO PROCESS FILE                    00022900
         ENDO                                                           00023000
         DO    (&TRANS++&CRJE)=0                                        00023100
         DC    A(TN#CDTB)          . DESTINATION TABLE ADDRESS          00023200
         ENDO                                                           00023300
         DO    &TRANS                                                   00023400
         DC    A(0)                . NO DESTINATION TABLE IN TRANS      00023500
         ENDO                                                           00023600
         DO    &CRJE                                                    00023700
         DC    A(0)                     . NO DESTINATION TABLE FOR RBP  00023800
         ENDO                                                           00023900
         DC    A(0)                . USER PROGRAM LOWER OFFSET          00024000
         DC    XL4'00FFFFFF'       . USER PROGRAM UPPER OFFSET          00024100
         DC    A(0)                . USER ERROR RETURN ADDRESS          00024200
         DC    AL1(&VRJE++&VDDI++&VTCI++&VNTR++&VMINI) . NETWORK TYPE   00024300
.*                                                                      00024400
.*       SET INITIALIZATION OPTIONS IN FLAG BYTE TN#CFLG1               00024500
.*                                                                      00024600
&INOPT1  SET   X'00'                                                    00024700
         DO    '&INIT'='LNEREQ'                                         00024800
&INOPT1  SET   'TN#CLREQ'          . AUTO LINE REQUEST OPTION           00024900
         ENDO                                                           00025000
&INOPT2  SET   X'00'                                                    00025100
         DO    '&INIT'='QHOLD'                                          00025200
&INOPT2  SET   'TN#CQHLD'          . QUEUE HOLD OPTION                  00025300
         ENDO                                                           00025400
         DC    AL1(&INOPT1++&INOPT2) TN#CFLGS                           00025500
         DC    AL2(0)              . NOT USED                           00025600
         DC    H'0'                CCA/SLOT INDEX                       00025700
         DC    H'0'                OPEN                                 00025800
         DC    A(DQF#&DQFCNT)      . A(FIRST-DISC-QUEUE-DTF)            00025850
         DC    A(&JRNFILE(1))             ADD OF FIRST JRN TABLE
         DC    A(&JRNFILE(1))             ADD OF CURR  JRN TABLE
         DC    A(&JRNFILE(2))             ADD OF LAST  JRN TABLE
         DC    F'0'                       LAST JRN REC NO
         DC    F'-1'                      JRN ENTRY CONTROL MAP
.* .                                                                    00025900
.* .     FOLLOWING LOCATIONS GENERATE IF AND ONLY IF TYPE =RBP          00026000
.* .                                                                    00026100
         DO    &CRJE                                                    00026200
         DC    A(TC#RBSEH)              . BSET HEADER ADDRESS           00026300
         DC    A(TC#RBPA)               . ARP POOL & REG SAVE AREA      00026400
         DC    A(TC#RBPS)               . STATUS MESSAGE POOL           00026500
         DC    A(TC#RCCB)              . ADDRESS OF CCB POOL            00026600
         DC    A(TC#RFCB)              . ADDRESS OF SPOOLER FCB POOL    00026700
         DC    A(TC#RFSCT)             . ADDRESS OF SPOOLER FSCT POOL   00026800
         DC    2F'0'               . RBP ACTIVITY QUEUE                 00026900
         DC    A(0)                . ADDRESS OF RBP SUBTASK TCB         00027000
         ECB                       . RBP SUBTASK ECB                    00027100
         DC    A(TR#B&DL)          . ADDRESS OF USERID TABLE            00027200
         ENDO                                                           00027300
.*                                                                      00027400
.*       FOLLOWING LOCATIONS GENERATED IF AND ONLY IF TCI NETWORK       00027500
.*                                                                      00027600
         DO    &CTCI                                                    00027700
         DC    A(0)                . ADDRESS USER TCS TABLE             00027800
         DC    A(0)                . TOTAL INPUT TRANSACTION COUNT      00027900
         DC    A(TN#SDTF)          . SAT DTF ADDRESS                    00028000
         DC    A(TN#SWA)           . ADDRESS SAT INPUT WORK AREA        00028100
         DC    H'0'                . SECTORS PER NETBUF                 00028200
         ENDO                                                           00028300
         DO    &CTCIPUT                                                 00028400
         DC    H'0'                     . UNUSED                        00028500
         ENDO                                                           00028600
         DO    (&CTCIPUT=0)*&CTCI                                       00028700
         DC    H'0'                . MAXIMUM UWA OUTPUT BUFFER SIZE     00028800
         ENDO                                                           00028900
         DO    &CTCI                                                    00029000
         ECB                       . TCI I/O TASK ECB                   00029100
         DC    F'0'                . TCI I/O TASK ADDRESS               00029200
         DC    F'0'                . TCI I/O QUEUE HEAD                 00029300
         DC    F'0'                . TCI I/O QUEUE TAIL                 00029400
         DC    A(TM#MWORK)         . TCI - SAT REG SAVE AREA ADDRESS    00029500
         ENDO                                                           00029600
         DO    &CRJE                                                    00029700
&DL      TN#BSEH                                                        00029800
         ENDO                                                           00029900
.CEXIT   LABEL                                                          00030000
         END                                                            00030100
