&DL      PROC  &P,10,                                                  X00000000
               &CACH04=,&CACH05=,&CACH06=,&CACH07=,&CACH08=,&CACH09=,  ;00000100
               &CACH10=,&CACH11=,&CACH12=,&CACH13=,&CACH14=,&CACH15=,  ;00000200
               &CACH20=,&CACH21=,&CACH22=,&CACH23=,&CACH24=,&CACH25=,  ;00000300
               &CACH26=,&CACH27=,&CACH28=,&CACH29=,&CACH30=,&CACH31=,  ;00000400
               &DCSCH0=,&DCSCH2=,&DCSCH4=,&DCSCH6=,&DCSCH8=,&DCSCH10=, ;00000500
               &PORT00=,&PORT01=,&PORT02=,&PORT03=,&PORT04=,&PORT05=,  $00000600
               &PORT06=,&PORT07=,&PORT08=,&PORT09=,&PORT10=,&PORT11=,  $00000700
               &PORT12=,&PORT13=,&PORT14=,&PORT15=,&PORT16=,&PORT17=,  $00000800
               &PORT18=,&PORT19=,&PORT20=,&PORT21=,&PORT22=,&PORT23=,  $00000900
               &CCAS=,&SYSTEM=1,&CPIOCS=,&FEATURES=0,&GETCP=,          X00001000
               &PUTCP=,&INQUE=,&OUTQUE=,&MPPS=,&BSC=,&DCT500=,         X00001100
               &DCT2000=,&U100=,&U1004=,&CKPT=,&JOURNAL=,&LOG=,        X00001200
               &HANDLERS=,                                             X00001300
               &DPRINT=NO,&LOADM=MCP$01,                               X00001400
               &COMPUTER=U93,                                          X00001500
               &VCCAS=10,                                              X00001600
               &MCPID=,&GENOUT=1,&NCCAUSR=1,&MCP=RES                    00001700
XMCPGEN  NAME  X    . MCP SYSTEM GENERATION                             00001800
MCPGEN   NAME  0         . 09/17/75 ICAM SYSTEM GENERATION              00001900
MCPG     NAME  1                                                        00002000
*                                                                       00002100
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00002200
*                                                                     * 00002300
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY            * 00002400
*                                                                     * 00002500
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION         * 00002600
*                                                                     * 00002700
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00002800
         GBL   &TN#MPID,&TS#STS                                         00002900
         GBL   &GLINES,&GUSERS,&TS#DEFEN                                00003000
         GBL   &FSTPORT,&LSTPORT,&NRPORTS,&LLTDSP,&NRFIRST              00003100
         GBL   &U93,&DUALCAS                                            00003200
         GBL   &TN#NET1,&TN#NET2,&TN#NET3,&TN#NET4                      00003300
         GBL   &TS#TYPE            . TYPE OF MCP INTERFACE              00003400
         GBL   &TS#STMD            . TRANSIENT OR RESIDENT              00003500
         GBL   &TS#SYS             . COMPUTER SYSTEM                    00003600
         GBL   &TS#SUBS            . SUBSYSTEM TYPE                     00003700
         GBL   &TS#DEFN            . DEFENSIVE CODE GENERATED           00003800
         GBL   &U9700,&DDI,&STDMCP                                      00003900
         GBL   &TCI,&RJE                                                00004000
         GBL   &CPI,&DVCEML,&RPG                                        00004100
         GBL   &U9400                                                   00004200
         GBL   &TRANS                                                   00004300
         GBL   &VS9                                                     00004400
         GBL   &CA                                                      00004500
         LCL   &CCAID,&NOCCA,&SCCA                                      00004600
         LCL   &AA,&BB,&CC,&DD,&EE,&FF,&GG                              00004700
         LCL   &PARAM              . USED FOR CONCATENATION             00004800
         LCL   &TS#BSC,&TS#U100,&TS#DCT5,&TS#DCT2,&TS#1004              00004900
         LCL   &TS#BSCL,&TS#U10L,&TS#DT5L,&TS#DT2L,&TS#104L             00005000
         LCL   &P1,&P2,&S1                                              00005100
         LCL   &ADFPN                                                   00005200
         LCL   &PT                                                      00005300
         LCL   &FDX,&P3,&P4                                             00005400
         LCL   &FSTSET1,&FSTSET2,&FSTSET3,&FSTSET4                      00005500
         LCL   &LSTSET1,&LSTSET2,&LSTSET3,&LSTSET4                      00005600
         LCL   &I                      INDEX TO 1ST PORT OPERAND        00005700
         LCL   &TEMP                   DETERMINE ODD/EVEN PORT NUMBER   00005800
         LCL   &LARP                   L'ARP                            00005900
.*                                     INDEX TO 1ST USER DEFINED PORT   00006000
.* .                                                                    00006100
.*                                                                      00006200
.* ACTIVATE THESE CARDS AND  CHANGE DO 23 TO DO 128 FOR VS/9            00006300
.*                                                                      00006400
.*             &PORT24=,                                                00006500
.*             &PORT25=,&PORT26=,&PORT27=,&PORT28=,&PORT29=,            00006600
.*             &PORT30=,&PORT31=,&PORT32=,&PORT33=,&PORT34=,            00006700
.*             &PORT35=,&PORT36=,&PORT37=,&PORT38=,&PORT39=,            00006800
.*             &PORT40=,&PORT41=,&PORT42=,&PORT43=,&PORT44=,            00006900
.*             &PORT45=,&PORT46=,&PORT47=,&PORT48=,&PORT49=,            00007000
.*             &PORT50=,&PORT51=,&PORT52=,&PORT53=,&PORT54=,            00007100
.*             &PORT55=,&PORT56=,&PORT57=,&PORT58=,&PORT59=,            00007200
.*             &PORT60=,&PORT61=,&PORT62=,&PORT63=,&PORT64=,            00007300
.*             &PORT65=,&PORT66=,&PORT67=,&PORT68=,&PORT69=,            00007400
.*             &PORT70=,&PORT71=,&PORT72=,&PORT73=,&PORT74=,            00007500
.*             &PORT75=,&PORT76=,&PORT77=,&PORT78=,&PORT79=,            00007600
.*             &PORT80=,&PORT81=,&PORT82=,&PORT83=,&PORT84=,            00007700
.*             &PORT85=,&PORT86=,&PORT87=,&PORT88=,&PORT89=,            00007800
.*             &PORT90=,&PORT91=,&PORT92=,&PORT93=,&PORT94=,            00007900
.*             &PORT95=,&PORT96=,&PORT97=,&PORT98=,&PORT99=,            00008000
.*             &PORT100=,&PORT101=,&PORT102=,&PORT103=,&PORT104=,       00008100
.*             &PORT105=,&PORT106=,&PORT107=,&PORT108=,&PORT109=,       00008200
.*             &PORT110=,&PORT111=,&PORT112=,&PORT113=,&PORT114=,       00008300
.*             &PORT115=,&PORT116=,&PORT117=,&PORT118=,&PORT119=,       00008400
.*             &PORT120=,&PORT121=,&PORT122=,&PORT123=,&PORT124=,       00008500
.*             &PORT125=,&PORT126=,&PORT127=,&PORT128=,                 00008600
.*                                                                      00008700
.*                                                                      00008800
.*       REPLACES PRINT OFF                                             00008900
         SYSTEM                                                         00009000
         DO    &VS9                                                     00009100
ML$$C1   CSECT ,                                                        00009200
         ENDO  &VS9                                                     00009300
         TN#DSECT   BACTGRP,CPIOCP,LINEL4                               00009400
         PRINT ON                                                       00009500
&NOCCA   SET   0                                                        00009600
.* .                                                                    00009700
.*  SET TYPE OF MCP - TRANSIENT OR RESIDENT                             00009800
.* .                                                                    00009900
         DO    '&MCP'='RES'                                             00010000
&TRANS   SET   0                                                        00010100
         ENDO                                                           00010200
         DO    '&MCP'='TRANS'                                           00010300
&TRANS   SET   1                                                        00010400
         ENDO                                                           00010500
.* .                                                                    00010600
.* .                                                                    00010700
         DO    ('&COMPUTER'='U93')**(&VS9=0)                            00010800
&U93     SET   1                                                        00010900
         ENDO                                                           00011000
         DO    '&COMPUTER'='U9400'  . 9400 TEST FACILITY                00011100
&U9400   SET   1                                                        00011200
&U9700   SET   1                                                        00011300
         ENDO                                                           00011400
         DO    '&COMPUTER'='U9700'  . 9700 TEST FACILITY                00011500
&U9700   SET   1                                                        00011600
         ENDO                                                           00011700
&TS#SYS  SET   '&COMPUTER'         . FOR SUMMARY REPORT                 00011800
&GUSERS  SET   1                                                        00011900
&TS#SUBS SET   'CA'                                                     00012000
&GLINES  SET   0                                                        00012100
&TN#MPID SET   '&MCPID'                                                 00012200
&DUALCAS SET   0                                                        00012300
&FSTPORT SET   100                                                      00012400
&LSTPORT SET   0                                                        00012500
&NRPORTS SET   0                                                        00012600
&LARP    SET   10                      L'ARP IN FULL WORDS              00012700
         DO    &VS9                                                     00012800
&TS#SYS  SET   'VS/9'                                                   00012900
&TS#SUBS SET   'CCM'                                                    00013000
         ENDO  &VS9                                                     00013100
         DO    &U93                . DO IF 90/30                        00013200
&S       DO    12                  . CHECK IF ANY PORTS SPEC. IN 2ND CA 00013300
         DO    '&P(22+&S)'=''=0                                         00013400
&DUALCAS SET   1                                                        00013500
         ENDO                                                           00013600
         ENDO                                                           00013700
&S       DO    24                                                       00013800
         DO    '&P(&S+10)'=''=0    . DO FOR ALL CACH CALLS              00013900
&GLINES  SET   &GLINES+1                                                00014000
         DO    &S<13                                                    00014100
&P1      SET   &S+3                                                     00014200
         ENDO                                                           00014300
         DO    &S>12                                                    00014400
&P1      SET   &S+7                                                     00014500
         ENDO                                                           00014600
         DO    &FSTPORT>&P1                                             00014700
&FSTPORT SET   &P1                 . SET NR OF FIRST PORT               00014800
         ENDO                                                           00014900
         DO    &LSTPORT<&P1                                             00015000
&LSTPORT SET   &P1                 . SET NR OF LAST PORT                00015100
         ENDO                                                           00015200
         ENDO                                                           00015300
         ENDO                                                           00015400
         DO    &FSTPORT=100                                             00015500
         PNOTE 'P','NO SUBCHANNELS SPECIFIED - FATAL ERROR'             00015600
         GOTO  .FEXIT                                                   00015700
         ENDO                                                           00015800
.* .                                                                    00015900
.*  CHECK IF FIRST PORT IS FULL DUPLEX PORT,                            00016000
.*  IF SO, CHECK IF FIRST PORT IS ODD PORT,                             00016100
.*  IF SO, DECREMENT FSTPORT TO INDICATE ONE MORE PORT                  00016200
.* .                                                                    00016300
&FDX     SET   0                                                        00016400
&P3      SET   &FSTPORT-3          . &P3 POINTS TO CACH KEYWORD         00016500
         DO    &FSTPORT>15         . DO IF FSTPORT IN 2ND CA            00016600
&P3      SET   &FSTPORT-7                                               00016700
         ENDO                      . ENDO 2ND CA                        00016800
&P4      SET   2                   . &P4 POINTS TO PARAMETER STRING     00016900
         DO    10                  . CHECK 10 PARAMETERS FOR 'FULL'     00017000
         DO    '&P(&P3+10,&P4)'='FULL'                                  00017100
&FDX     SET   1                   . FIRST PORT IS FULL DUX PORT        00017200
         ENDO                      . ENDO CHK ON FULL                   00017300
&P4      SET   &P4+1               . INC TO NEXT PARAMETER              00017400
         ENDO                      . ENDO PARAMETERS                    00017500
.*                                     IF 1ST PORT FULL+ODD SUB 1       00017600
&FSTPORT SET   &FSTPORT-((&FSTPORT**1)**(&FDX))                         00017700
.* .                                                                    00017800
.*  CHECK IF LAST PORT IS FULL DUPLEX PORT,                             00017900
.*  IF SO, CHECK IF LSTPORT IS EVEN PORT                                00018000
.*  IF SO, CHECK IF LSTPORT IS EVEN PORT                                00018100
.* .                                                                    00018200
&FDX     SET   0                                                        00018300
&P3      SET   &LSTPORT-3          . &P3 POINTS TO CACH KEYWORD         00018400
         DO    &LSTPORT>15         . DO IF LAST PORT IN 2ND CA          00018500
&P3      SET   &LSTPORT-7                                               00018600
         ENDO                      . ENDO 2ND CA                        00018700
&P4      SET   2                   . &P4 POINTS TO PARAMETER STRING     00018800
         DO    10                  . CHECK 10 PARAMETERS FOR 'FULL'     00018900
         DO    '&P(&P3+10,&P4)'='FULL'                                  00019000
&FDX     SET   1                   . LAST PORT IS FULL DX               00019100
         ENDO                      . ENDO CHK FOR FULL                  00019200
&P4      SET   &P4+1               . INCREMENT TO NEXT PARAMETER        00019300
         ENDO                      . ENDO 6 PARAMETERS                  00019400
.*                                     UF LST PORT ODD+FULL ADD 1       00019500
&LSTPORT SET   &LSTPORT+(((&LSTPORT+1)**1)**&FDX)                       00019600
.* .                                                                    00019700
.* CALCULATE NUMBER LLT'S TO BE GENERATED                               00019800
.* .                                                                    00019900
&NRPORTS SET   &LSTPORT-&FSTPORT+1                                      00020000
         DO    ((&FSTPORT<20)**(&LSTPORT>15))                           00020100
&NRPORTS SET   &LSTPORT-&FSTPORT+1-4                                    00020200
         ENDO                                                           00020300
         ENDO  &U93                                                     00020400
.* .                                                                    00020500
.* CALCULATE   FIRST AND LAST SUBCHANNELS FOR DCS SUBSYSTEM             00020600
.* .                                                                    00020700
&S1      SET   0                                                        00020800
         DO    (&U93=0)**(&VS9=0)                                       00020900
&S       DO    6                   . 6 DCS TEST FACILITY SUBCHANNELS    00021000
         DO    '&P(34+&S)'=''=0                                         00021100
         DO    &FSTPORT>&S1                                             00021200
&FSTPORT SET   &S1                 . SET FIRST MUX NR                   00021300
         ENDO                                                           00021400
         DO    &LSTPORT<&S1                                             00021500
&LSTPORT SET   &S1                 . SET LAST MUX NR                    00021600
         ENDO                                                           00021700
         ENDO                                                           00021800
&S1      SET   &S1+2                                                    00021900
         ENDO                                                           00022000
         DO    &FSTPORT=100                                             00022100
         PNOTE 'P','NO SUBCHANNELS SPECIFIED - FATAL ERROR'             00022200
         GOTO  .FEXIT                                                   00022300
         ENDO                                                           00022400
&NRPORTS SET   1                                                        00022500
         DO    &LSTPORT>0                                               00022600
&NRPORTS SET   (&LSTPORT-&FSTPORT)/2+1                                  00022700
         ENDO                                                           00022800
         ENDO  (&U93=0)**(&VS9=0       END DCS                          00022900
&ADFPN   SET   &FSTPORT                                                 00023000
         DO    &DUALCAS**(&FSTPORT>15)  . SET ADJUSTED 1ST PORT IF DUAL 00023100
&ADFPN   SET   &FSTPORT-4                                               00023200
         ENDO                                                           00023300
         DO  &VS9                                                       00023400
&I       SET 41-1                      INDEX FOR 1ST PORT OPERAND       00023500
&FSTPORT SET 1000                                                       00023600
&LSTPORT SET 0                                                          00023700
&S           DO  23  128 FOR VS9          COMPUTE LOWEST AND HIGHEST    00023800
                 DO  '&P(&S+&I)'=''=0     PHYSICAL PORT NUMBER          00023900
                     DO  &FSTPORT=1000    SPECIFIED                     00024000
&FSTPORT                 SET &S-1                                       00024100
                     ENDO &FSTPORT=1000                                 00024200
&LSTPORT             SET  &S-1                                          00024300
                 ENDO '&P(&S+&I)'=''=0                                  00024400
             ENDO 128                                                   00024500
             DO  &FSTPORT=1000                                          00024600
                 PNOTE 'P','NO PORT SPECIFIED - FATAL ERROR'            00024700
                 GOTO  .FEXIT                                           00024800
             ENDO &FSTPORT=1000                                         00024900
&S           DO  10                                                     00025000
                 DO  '&P(&I+&FSTPORT+1,&S+1)'='FULL'   IF 1ST PORT FULL 00025100
&TEMP                SET &FSTPORT                      DUP AND ODD,SET  00025200
                     DO  (&TEMP**1)=1                  1ST PORT EVEN    00025300
&FSTPORT                 SET &FSTPORT-1                                 00025400
                     ENDO (&TEMP**+1)=1                                 00025500
                 ENDO '&P(&I+&FSTPORT+1,&S+1)'='FULL'                   00025600
                 DO  '&P(&I+&LSTPORT+1,&S+1)'='FULL'   IF LST PORT FULL 00025700
&TEMP                SET &LSTPORT                      DUP AND EVEN,SET 00025800
                     DO  (&TEMP**1)=0                  LST PORT ODD     00025900
&LSTPORT                 SET &LSTPORT+1                                 00026000
                     ENDO (&TEMP**1)=0                                  00026100
                 ENDO '&P(&SI+&LSTPORT+1,&S+1)'='FULL'                  00026200
             ENDO 10                                                    00026300
&NRPORTS     SET &LSTPORT-&FSTPORT+1                                    00026400
&ADFPN       SET &FSTPORT                                               00026500
         ENDO  &VS9                                                     00026600
.*                                                                      00026700
.* GENERATE GENERAL TABLE                                               00026800
.*                                                                      00026900
         ENTRY TN#GENTB                                                 00027000
         CNOP  0,8                                                      00027100
TN#GENTB EQU   *                                                        00027200
*                                                                       00027300
         DC    XL1'00'             . 1 CCR OSW BYTE 0                   00027400
         DC    XL1'0'              . 1 CCR OSW BYTE 1                   00027500
         DC    XL1'0'              . 1 CCR OSW BYTE 2                   00027600
         DO &TRANS=0               . DO IF TRANSIENT NOT CONFIGURED     00027700
         DC    XL1'0'              . 1 CCR OSW BYTE 3                   00027800
         ENDO                      . ENDO &TRANS=0                      00027900
         DO    &TRANS              . DO IF TRANSIENT CONFIGURED         00028000
         DC    XL1'04'             . 1 CCR OSW BYTE 3                   00028100
*                                  . INDICATE DUST CPIOCS ACTIVE        00028200
         ENDO                      . ENDO &TRANS                        00028300
*                                                                       00028400
         EXTRN TZ$PAT                                                   00028500
         DC    A(TZ$PAT)           . 4 ADDRESS OF OBJ MODULE PATCH AREA 00028600
*                                                                       00028700
         DC    F'0'                . 4 ZEROS (FULL WD)                  00028800
*                                                                       00028900
         DC    XL1'0'              . 1 OPEN                             00029000
         DC    AL3(0)              . 3 MCP TCB ADDR                     00029100
*                                                                       00029200
         DC    XL1'0'              . 1 OPEN                             00029300
         EXTRN TC#BPAS                                                  00029400
         DC    AL3(TC#BPAS)        . 3 ENTRY--BUFFER POOL ALLOCATE      00029500
*                                                                       00029600
         DC    XL1'0'              . 1 OPEN                             00029700
         EXTRN TC#RELS                                                  00029800
         DC    AL3(TC#RELS)        . 3 ENTRY--BUFFER POOL RELEASE       00029900
*                                                                       00030000
         DC    XL1'0'              . 1 OPEN                             00030100
         EXTRN TC#MCBAE                                                 00030200
         DC    AL3(TC#MCBAE)       . 3 ENTRY--MCT DATA BUFFER ALLOCATE  00030300
*                                                                       00030400
         DC    XL2'C000'           . 2 MASK FOR RELEASE INTERRUPT LOCK  00030500
         DC    H'0'                . 2 PIOCS MILLISECOND TIMEOUT VALUE  00030600
         DC    F'0'                . 4 ADDRESS OF PIOCS TIMEOUT LOGIC   00030700
*                                                                       00030800
         DC    XL1'0'              . 1 OPEN                             00030900
         EXTRN RDHTAB                                                   00031000
         DC    AL3(RDHTAB)         . 3 ADDR--RDH INFORMATION TABLE      00031100
*                                                                       00031200
         EXTRN TG#RDHEN                                                 00031300
         DC    V(TG#RDHEN)         . 4 ENTRY--RDH COMMON ROUTINES       00031400
*                                                                       00031500
         DO    &TRANS=0                                                 00031600
         DC    XL1'0'              . 1 OPEN                             00031700
         EXTRN TC#QPRE                                                  00031800
         DC    AL3(TC#QPRE)        . 3 ENTRY--PRE-QUEUE                 00031900
         ENDO                                                           00032000
         DO    &TRANS                                                   00032100
         DC    V(TN#MCTIE)         . 4 HANDLER INPUT ENTRY TO CNC       00032200
         ENDO                                                           00032300
*                                                                       00032400
         DO    &TRANS=0                                                 00032500
         DC    XL1'0'              . 1 OPEN                             00032600
         EXTRN TC#QNQH                                                  00032700
         DC    AL3(TC#QNQH)        . 3 ENTRY--EN-QUEUE HEADER           00032800
         ENDO                                                           00032900
         DO    &TRANS                                                   00033000
         DC    V(TH#COMPL)         . 4 HANDLER RETURN FROM CCR CALL     00033100
         ENDO                                                           00033200
*                                                                       00033300
         DO    &TRANS=0                                                 00033400
         DC    XL1'0'              . 1 OPEN                             00033500
         EXTRN TC#QPOST                                                 00033600
         DC    AL3(TC#QPOST)       . 3 ENTRY--POST-QUEUE SEGMENT        00033700
         ENDO                                                           00033800
         DO    &TRANS                                                   00033900
         DC    A(TN#INTBL-4)       .   ADDRESS OF LAST INTR PROCESSED   00034000
         ENDO                                                           00034100
*                                                                       00034200
         EXTRN TU#QMCP                                                  00034300
         DC    V(TU#QMCP)          . 4 ENTRY--OVERLAY CONTROL           00034400
*                                                                       00034500
         DC    XL1'0'              . 1 OPEN                             00034600
         DC    AL3(0)              . 3 HEAD--CPIOCS ACTIVITY QUEUE      00034700
*                                                                       00034800
         DC    XL1'00'             . 1 OPEN                             00034900
         DC    AL3(0)              . 3 TAIL--CPIOCS ACTIVITY QUEUE      00035000
*                                                                       00035100
         ENTRY TN#GBUFF                                                 00035200
TN#GBUFF DC    2F'0'               . CPIOCS TRUNCATION INPUT BUFFER     00035300
*                                                                       00035400
         EXTRN TS#CDSIO                                                 00035500
         DC    A(TS#CDSIO)         . CPIOCS ENTRANCE FOR ICAM CCRCALL   00035600
*                                                                       00035700
         EXTRN TS#SUB1                                                  00035800
         DC    A(TS#SUB1)          . CPIOCS SUBROUTINE FOR LLT AND BCW  00035900
*                                                                       00036000
         DO    &TRANS=0            . DO IF TRANSIENT NOT CONFIGURED     00036100
         EXTRN TS#SUB3                                                  00036200
         DC    A(TS#SUB3)          . CPIOCS SUBROUTINE FOR SCHEDULING   00036300
*                                                                       00036400
         EXTRN TS#SUB8                                                  00036500
         DC    A(TS#SUB8)          . CPIOCS SUBROUTINE FOR TRACE        00036600
*                                                                       00036700
         EXTRN TS#SUBB                                                  00036800
         DC    A(TS#SUBB)          . CPIOCS SUBROUTINE FOR CMD CODE     00036900
         DC    H'0'                . 2 ALWAYS EQUAL TO 0                00037000
         DC    H'0'                . 2 DISPLACEMENT TO 2ND LINE IN LLT  00037100
         DC    H'0'                . 2 DISPLACEMENT TO 3RD LINE IN LLT  00037200
         DC    H'0'                . 2 DISPLACEMENT TO 4TH LINE IN LLT  00037300
         ENDO                      . ENDO &TRANS=0                      00037400
*                                                                       00037500
         DO    &TRANS              . DO IF TRANSIENT CONFIGURED         00037600
         DC    A(TN#INTBL-4)       . 4 ADDRESS OF LAST INTERRUPT SAVED  00037700
TN#INTBL DC    4XL4'80000000'      . 16 TABLE FOR CPIOCS INTERRUPTS     00037800
         ENDO  . ENDO &TRANS                                            00037900
*                                                                       00038000
*                                                                       00038100
         DC    XL1'0'              . 1 OPEN                             00038200
         EXTRN TS#AMSVC                                                 00038300
         DC    AL3(TS#AMSVC)       . 3 ENTRY--ACTIVITY CONTROL BALR     00038400
*                                                                       00038500
         DC    2F'0'               . 8 SAVE AREA--ACT CONT BALR         00038600
*                                                                       00038700
         DC    XL1'0'              . 1 LINE LINK TABLE/TIMER ACTIVITY   00038800
         DC    AL3(TS#LINEA)       . 3 ADDR--LINE LINK TABLE            00038900
*                                                                       00039000
         DC    AL2(&ADFPN)         . 2 ADJUSTED FIRST PORT NUMBER       00039100
         DC    H'0'                . 2 OPEN                             00039200
*                                                                       00039300
         DC    AL1(&FSTPORT)       . 1 FIRST PORT NR OF LINE LINK TBL   00039400
         DC    AL1(&LSTPORT)       . 1 LAST PORT NR OF 1ST LINE IN LLT  00039500
         DC    XL1'00'             . 1 FIRST PORT NR OF 2ND LINE        00039600
         DC    XL1'00'             . 1 LAST PORT NR OF 2ND LINE         00039700
         DC    XL1'00'             . 1 FIRST PORT NR OF 3RD LINE        00039800
         DC    XL1'00'             . 1 LAST PORT NR OF 3RD LINE         00039900
         DC    XL1'00'             . 1 FIRST PORT NR OF 4TH LINE        00040000
         DC    XL1'00'             . 1 LAST PORT NR OF 4TH LINE         00040100
*                                                                       00040200
         DC    8XL1'FF'            . 8 CHANNEL INDEX TABLE              00040300
*                                                                       00040400
         DC    A(TN#ACTAB)         . 4 ACTIVITY CONTROL TABLE ADDRESS   00040500
*                                                                       00040600
         DC    AL4(TN#PLING)           L'LINE LINK TABLE                00040700
*                                                                       00040800
         DC    XL1'00'             . 1 OPEN                             00040900
         DC    XL3'000000'         . 3 SIB ADDRESS                      00041000
*                                                                       00041100
         DC    H'0'                . 2 COUNTER OF ACTIVE MCP'S          00041200
*                                                                       00041300
         DC    H'0'                . 2 OPEN                             00041400
*                                                                       00041500
         DC    F'0'                . 4 PARAMETERS FOR INIT OF CA        00041600
         DC    F'0'                . 4 NEW PCW/PCW WORK AREA TO INIT CA 00041700
*                                                                       00041800
         DC    H'0'                . 2 DUST PHASE # 1                   00041900
         DC    H'0'                . 2 DUST PHASE # 2                   00042000
*                                                                       00042100
         DC    F'0'                . 4 DUST SAVE REG 0                  00042200
         DC    F'0'                . 4 DUST SAVE REG 1                  00042300
         DC    F'0'                . 4 DUST SAVE REG 8                  00042400
         DC    F'0'                . 4 DUST SAVE REG 9                  00042500
         DC    F'0'                . 4 DUST SAVE REG 10                 00042600
*                                                                       00042700
         DC    XL1'00'             . 1 DUST PIO ERROR ID                00042800
         DC    XL3'000000'         . 3 DUST RESERVED                    00042900
         DC    F'0'                . 4 DUST RESERVED                    00043000
*                                                                       00043100
         DC    H'0'                . 2 DUST RETURN ADDRESS 1            00043200
         DC    H'0'                . 2 DUST PHASE # FOR RETURN ADDR 1   00043300
         DC    H'0'                . 2 DUST RETURN ADDRESS 2            00043400
         DC    H'0'                . 2 DUST PHASE # FOR RETURN ADDR 2   00043500
         DC    H'0'                . 2 DUST RETURN ADDRESS 3            00043600
         DC    H'0'                . 2 DUST PHASE # FOR RETURN ADDR 3   00043700
         DC    H'0'                . 2 DUST RETURN ADDRESS 4            00043800
         DC    H'0'                . 2 DUST PHASE # FOR RETURN ADDR 4   00043900
*                                                                       00044000
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #1,CA 1 00044100
*                                                                       00044200
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #2,CA 1 00044300
*                                                                       00044400
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #3,CA 1 00044500
*                                                                       00044600
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #4,CA 1 00044700
*                                                                       00044800
         DO    &TRANS=0            . DO IF TRANSIENT NOT CONFIGURED     00044900
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #1,CA 2 00045000
*                                                                       00045100
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #2,CA 2 00045200
*                                                                       00045300
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #3,CA 2 00045400
*                                                                       00045500
         DC    H'0'                . 2 TYPE, # USERS, CC/CI TBL #4,CA 2 00045600
         ENDO                      . ENDO &TRANS=0                      00045700
         DO    &TRANS                                                   00045800
         DC    A(TN#INTBL+16)      . 4 ADDRESS BEYOND TRAN INTR TABLE   00045900
         DC    F'0'                . 4 CPIOCP ADDRESS FOR TRAN CCRCALL  00046000
         ENDO                      . ENDO &TRANS                        00046100
         DC    6F'0'                   EXPANSION                        00046200
         DO    &VS9                                                     00046300
         DC    V(EXVTBASE)             A(EXECUTIVE VECTOR TABLE)        00046400
         DC    A(0)                    A(2NDARY TASK TCB)               00046500
         DC    6F'0'                   2 WORD SAVE PER 2NDARY TASK      00046600
         DC    CL8'ICAMV4.0'                                            00046700
         ENDO  &VS9                                                     00046800
*                                                                       00046900
.*  .                                                                   00047000
.*       GENERATE TCB DIRECTORY AND USER ACTIVITY QUEUE                 00047100
.*  .                                                                   00047200
&CCAID   SET   1                                                        00047300
.*  .                                                                   00047400
&SCCA    SET   0                                                        00047500
         DO    ('&CCAS'='')**(&SYSTEM(1)=4)                             00047600
         GOTO  .NCCAD                                                   00047700
         ENDO                                                           00047800
         DO    ('&CCAS'='')**(&VS9=0)                                   00047900
.*                                     IF &VS9 THEN '&CCAS' = ''        00048000
         PNOTE '*','NO CCAS SPECIFIED IN MCPGEN PROC'                   00048100
         GOTO  .NCCAD                                                   00048200
         ENDO                                                           00048300
.* .                                                                    00048400
&SCCA    SET   1                                                        00048500
         DO    N'&CCAS            . BUILD CCA'S PART OF DIRECTORY       00048600
         DO    '&CCAS(&SCCA)'=''=0                                      00048700
         DC    3F'0'                                                    00048800
         DO    &TRANS                                                   00048900
         ORG   *-8                                                      00049000
         EXTRN TM#MBLD                                                  00049100
         DC    A(TM#MBLD)          . TRANSIENT SAT BUILD ADDRESS        00049200
         ORG   *+4                                                      00049300
         ENDO                                                           00049400
         EXTRN CCA#&CCAS(&SCCA)                                         00049500
         DC    AL4(CCA#&CCAS(&SCCA))  . CCA ADDRESS                     00049600
         DC    AL1(&CCAID++TN#GNQIP)    . CCA ID + NETREQ IN PROG       00049700
         DC    AL3(0)                                                   00049800
         ENDO                                                           00049900
&CCAID   SET   &CCAID+1                                                 00050000
&SCCA    SET   &SCCA+1                                                  00050100
         ENDO                      . ENDO BUILD CCA'S PART OF DIR.      00050200
         DO    &VS9                                                     00050300
&L          DO    &VCCAS               GENERATE SLOTS/NET,DEFAULT=10    00050400
         SPACE 2                                                        00050500
         DC    A(0)                    USER ACTIVITY QUE (HEAD)         00050600
         DC    A(0)                    USER ACTIVITY QUE (TAIL)         00050700
         DC    A(0)                    A(TCB)                           00050800
         DC    XL1'00'                 FLAGS                            00050900
         DC    AL3(0)                  A(CCA)                           00051000
         DC    AL1((TN#GNQIP)++(&L))   CNETREQ IN PROGRESS, SLOT ID     00051100
         DC    AL3(0)                  OPEN                             00051200
         DC    &LARP.F'0'              ISLAND SVC ARP                   00051300
         DC    &LARP.F'0'              NON ISLAND SVC ARP               00051400
         DC    A(0)                    HEAD FNA QUEUE                   00051500
         DC    A(0)                    TAIL FNA QUE                     00051600
            ENDO  &VCCAS                                                00051700
         ENDO  &VS9                                                     00051800
&SCCA    SET   &SCCA-1                                                  00051900
.* .                                                                    00052000
         DO    ((&SCCA>0)**(&NCCAUSR=0))++(&VS9=1)                      00052100
         ORG   (*-TN#GULEN)+(TN#GTFLG-TN#GTCBS)                         00052200
         DC    AL1(TN#GTEND)           SET END BIT FOR SLOTS            00052300
         ORG                                                            00052400
         ENDO                           . ENDO # CCA'S>0, NON-ETC=0     00052500
.* .                                                                    00052600
.NCCAD   LABEL                                                          00052700
         DO    ((&SCCA=0)**(&NCCAUSR=0))**(&VS9=0)                      00052800
         DC    3F'0'               . DUMMY NON-CCA USER ENTRY           00052900
         DC    AL1(TN#GTEND)       .                                    00053000
         DC    AL3(0)              .                                    00053100
         DC    F'0'                                                     00053200
         ENDO                           . ENDO # CCA'S=0, # NON-ETC=0   00053300
.* .                                                                    00053400
         DO    (&NCCAUSR>0)**(&VS9=0)                                   00053500
&NOCCA   SET   &NCCAUSR                                                 00053600
         DO    (&NOCCA+&SCCA)>6                                         00053700
&NOCCA   SET   6-&SCCA                                                  00053800
         ENDO                                                           00053900
         DO    &NOCCA              . BUILD NON-CCA USERS PART OF DIR.   00054000
         DC    5F'0'                                                    00054100
         ENDO                                                           00054200
         ORG   *-8                                                      00054300
         DC    AL1(TN#GTEND)                                            00054400
         ORG   *+7                                                      00054500
         ENDO                           . ENDO # CCAS>0, # NON-ETC>0    00054600
         DO    ((&SCCA+&NOCCA)>1)**(&VS9=0)                             00054700
&GUSERS  SET   &SCCA+&NOCCA                                             00054800
         ENDO                                                           00054900
.* .                                                                    00055000
         EJECT                                                          00055100
*                                                                       00055200
* ACTIVITY CONTROL TABLE                                                00055300
*                                                                       00055400
         ENTRY TN#ACTAB                                                 00055500
         CNOP  0,8                                                      00055600
TN#ACTAB EQU   *                                                        00055700
*                                  .   MCP FLAGS                        00055800
         DC    X'00'               . 1 MCP FLAG 1 (BYTE 0)              00055900
         DO    &VS9                                                     00056000
         DC    XL3'000000'         . LAST ARP FROM MCP QUE              00056100
         ENDO                                                           00056200
         DO    &VS9=0                                                   00056300
         EXTRN TS#ACTDI                                                 00056400
         DC    AL3(TS#ACTDI)       . ADDRESS OF ACT CONT DEBUG INFO     00056500
         ENDO                                                           00056600
*                                                                       00056700
*                                                                       00056800
         DO    &TRANS=0                                                 00056900
         DC    V(TS#CCRU)              A(CCRU,CPI ENTRY)                00057000
         ENDO  &TRANS=0                                                 00057100
         DO    &VS9=0                                                   00057200
*                                                                       00057300
*                                  .   MCP QUEUE                        00057400
         DC    A(0)                . 4 QUEUE HEAD                       00057500
         DC    A(0)                . 4 QUEUE TAIL                       00057600
         DO    &GUSERS>1                                                00057700
         DS    8F                      ADDITIONAL QUEUES                00057800
         ENDO  &GUSERS>1                                                00057900
         ENDO  &VS9=0                                                   00058000
         DO    &VS9                    VS9 MCP SLOT                     00058100
         DC    A(0)                    SAVE INTERUPT MASK               00058200
         DC    &LARP.F'0'              NETREQ ARP                       00058300
         DC    10A(0)                  5 MCP QUEUES (HEAD,TAIL)         00058400
         DC    H'1'                    COUNT OF 2NDARY TASKS            00058500
         DC    H'0'                    UNUSED                           00058600
*                                                                       00058700
* SECONDARY TASK SLOTS                                                  00058800
*                                                                       00058900
           DO    1                     FOR EACH 2NDARY SLOT             00059000
         DC    A(0)                    QUEUE HEADER                     00059100
         DC    A(0)                    QUEUE TAIL                       00059200
         DC    A(0)                    TSK#/A(TCB)                      00059300
           ENDO  1                                                      00059400
         ENDO  &VS9=0                                                   00059500
         EJECT                                                          00059600
*                                                                       00059700
* GROUP A SVC ADDRESS TABLE                                             00059800
*                                                                       00059900
         ENTRY TN#ACATB                                                 00060000
TN#ACATB DC    A(TN#ACANR)         . NR OF TABLE ENTRIES                00060100
*                                                                       00060200
         EXTRN TS#ACREL                                                 00060300
         DC    A(TS#ACREL)         . RELEASE--1                         00060400
*                                                                       00060500
         EXTRN TS#TRACE                                                 00060600
TN#GIOTR DC    A(TS#TRACE)         . CPIOCS TRACE ADR                   00060700
*              SUB FUNCTION 2, RTNUSER, DOES NOT USE THIS TABLE         00060800
*                                                                       00060900
         EXTRN TS#AQUE                                                  00061000
         DC    A(TS#AQUE)          . SCHEDULE--3                        00061100
*                                                                       00061200
         EXTRN TS#ETPQE                                                 00061300
         DC    A(TS#ETPQE)         . ETPTG--4                           00061400
*                                                                       00061500
         DO    &TRANS=0            . DO IF TRANSIENT NOT CONFIGURED     00061600
         EXTRN TS#CDSIO                                                 00061700
         DC    A(TS#CDSIO)         . CCRCALL--5                         00061800
         ENDO                      . ENDO &TRANS=0                      00061900
         DO    &TRANS              . DO  IF TRANSIENT CONFIGURED        00062000
         DC    V(TS#PIOTE)         . TRANSIENT CCRCALL--5               00062100
         ENDO                      . ENDO &TRANS                        00062200
*                                                                       00062300
*                                                                       00062400
TN#ACANR EQU   ((*-TN#ACATB-4)/4)                                       00062500
         EJECT                                                          00062600
*                                                                       00062700
* GROUP B SVC ADDRESS TABLE                                             00062800
*                                                                       00062900
         ENTRY TN#ACBTB                                                 00063000
         EXTRN TU#QSVC                                                  00063100
TN#ACBTB DC    V(TU#QSVC)          . OVERLAY ENTRY                      00063200
*                                                                       00063300
         DC    A(TN#ACBNR)         . NUM OF TABLE ENTRIES               00063400
*                                                                       00063500
         EXTRN T3#DDIME                                                 00063600
         DC    V(T3#DDIME)         . MCPCALL--1                         00063700
         EXTRN TM#SVCCE                                                 00063800
         DC    V(TM#SVCCE)         . GETCP/PUTCP--2                     00063900
         EXTRN TM#MSVCE                                                 00064000
         DC    V(TM#MSVCE)         . M-FUNCTIONS(TCI)--3                00064100
         EXTRN TR#BSUP                                                  00064200
         DC    A(TR#BSUP)          . RBP -- 4                           00064300
*                                                                       00064400
TN#ACBNR EQU   ((*-TN#ACBTB-8)/4)                                       00064500
         EJECT                                                          00064600
*                                                                       00064700
* OSW DEDICATED ARP TABLE                                               00064800
*                                                                       00064900
         ENTRY TN#ACARP                                                 00065000
         EXTRN TG#POLLA                                                 00065100
TN#ACARP DC    A(TG#POLLA)         . TN#GPOLL--POLL TIMER ARP           00065200
*                                                                       00065300
*                                                                       00065400
* CCR OSW ENTRY TABLE                                                   00065500
*                                                                       00065600
         ENTRY TN#ACENT                                                 00065700
         EXTRN TS#ETAPE                                                 00065800
TN#ACENT DC    A(TS#ETAPE)         . TN#GOTIM--TIMER SERVICES           00065900
         EXTRN TC#QSCAN                                                 00066000
         DC    V(TC#QSCAN)         . CNC QUEUE SCAN ENTRY               00066100
         EJECT                                                          00066200
*                                                                       00066300
****                                                                    00066400
*              LINE LINK TABLE                                        * 00066500
****           LINE LINK TABLE                                        * 00066600
****           LINE LINK TABLE                                        * 00066700
         CNOP  0,8                                                      00066800
&PT      SET   &FSTPORT                                                 00066900
TS#LINEA EQU   *                                                        00067000
         DO    &NRPORTS                                                 00067100
*                                                                       00067200
*                                                                       00067300
         DC    F'0'                . HEAD OR CURRENT PACKET ADDR        00067400
         DC    F'0'                . TAIL PACKET ADDR                   00067500
         DC    F'0'                . USER ABSOLUTE PROGRAM BASE         00067600
         DC    XL1'00'                 CHANNEL                          00067700
         DC    AL1(&PT)           PORT                                  00067800
         DC    Y(TN#PLING-(2*((&PT**1)*TN#PLING))) . OFFSET TO COMPAN   00067900
         DC    F'0'                . HEAD PIOCP OF MSG                  00068000
         DC    F'0'                . LAST AUTO BUFFER ADR,  CA          00068100
         DC    H'0'                . INPUT CHARACTER COUNT, CA/DCS      00068200
         DC    H'0'                . PIOCP TIME SAVE AREA               00068300
         DC    XL1'00'             . ZEROABLE FLAG BYTE                 00068400
         DC    XL1'00'             . BUSY COUNTER FOR SECONDARY CMNDS   00068500
         DC    XL1'00'             . SPECIAL PURPOSE PORT ID            00068600
         DC    XL1'00'             . RESERVED                           00068700
         DC    XL1'00'             . FIXED FLAG BYTE                    00068800
         DC    XL3'000000'         . JCB/TCB ADDRESS                    00068900
         DC    XL1'00'             . PORT ADDRESS OF DIALER             00069000
         DC    XL1'00'             . CA TABLES DIRECTORY INDEX          00069100
         DC    XL2'0000'           . RESERVED                           00069200
         DC    XL1'00'             . LINE TYPE                          00069300
         DC    XL1'00'                 DEVICE TYPE                      00069400
         DC    XL1'00'             . LINE SPEED AND CONFIG FLAGS        00069500
.*       TABLE GENNED AS NOT ASSIGNED SO GAPS ARE GENERATED             00069600
.*       (LLKCA INNER MACRO) WILL GEN STORAGE TO OVERLAY(RESET) BIT     00069700
         DC    XL1'02'             . LINE FLAG FIELD - SET NEP BIT      00069800
         DC    F'0'                . CA PORT CONTROL WORD               00069900
         DO    (&PT<16)                                                 00070000
         DC    A((&PT*16)+256)         BCW ADDRESS                      00070100
         ENDO                                                           00070200
         DO    (&PT>16)                                                 00070300
         DC    A((&PT*16)+512)         BCW ADDRESS                      00070400
         ENDO                                                           00070500
         DC    H'0'                     OPEN                            00070600
         DC    H'0'                     OFFSET TO UNDER RUN CHARS       00070700
         DO    &U93=0                                                   00070800
         DC    F'0'                . BCW1/CCW1                          00070900
         DC    F'0'                . BCW2                               00071000
         DC    F'0'                . BCW3/CCW2                          00071100
         DC    F'0'                . BCW4                               00071200
         DO    &U9700++&VS9                                             00071300
         DC    F'0'                . CCW3                               00071400
         DC    F'0'                . SPARE                              00071500
         ENDO                      . ENDO 9700 LOGIC                    00071600
         ENDO                      . ENDO &U93=0 LOGIC                  00071700
&PT      SET   &PT+1                                                    00071800
         DO    &PT=16                                                   00071900
&PT      SET   20                                                       00072000
         ENDO                                                           00072100
         ENDO                      . ENDO &NRPORTS LOGIC                00072200
         DC    X'FFFFFFFF'         . END SENTINEL CONSTANT              00072300
****     DC    X'FFFFFFFF'         . END SENTINEL CONSTANT              00072400
         EJECT                                                          00072500
*                                                                       00072600
* ENTRY FROM SYSTEM LOADER                                              00072700
*                                                                       00072800
         ENTRY MCPINITL                                                 00072900
MCPINITL BALR  15,0                . ENTER FROM LOADER                  00073000
         USING *,15                . SET BASE                           00073100
*                                                                       00073200
         EXTRN TU#INIT                                                  00073300
         L     15,=V(TU#INIT)      . GET ADDR OF INIT                   00073400
         BR    15                  . TO INITIALIZATION                  00073500
         LTORG                                                          00073600
         EJECT                                                          00073700
         DO    &U93                . DO IF CA SUBSYSTEM                 00073800
.* .                                                                    00073900
.*  SET UP LLT'S ACCORDING TO INFORMATION IN CACHXX CALLS               00074000
.* .                                                                    00074100
&S       DO    24                  . DO FOR MAX POSSIBLE 24 PORTS       00074200
         DO    '&P(&S+10)'=''=0    . DO SPECIFIC CACHXX CALL            00074300
         DO    &S<13               . DO FOR 1ST CA                      00074400
&S1      SET   &S+3                . &S1 = CURRENT PORT NR              00074500
&P1      SET   &S1-&FSTPORT        . &P1 = DISPLACEMENT INTO LLT'S      00074600
         ENDO                      . ENDO 1ST CA LOGIC                  00074700
         DO    &S>12               . DO FOR 2-ND CA                     00074800
&S1      SET   &S+7                . &S1 = CURRENT PORT NR              00074900
&P2      SET   &FSTPORT            . &P2 = 1ST PORT NR                  00075000
         DO    &FSTPORT<16         . DO IF 2-ND CA AND 1ST PN IN 1ST CA 00075100
&P2      SET   &FSTPORT+4          . BIAS &P2 TO BYPASS 4 UNUSED LLTS   00075200
         ENDO                      . ENDO                               00075300
&P1      SET   &S1-&P2             . &P1 = DISPLACEMENT INTO LLT'S      00075400
         ENDO                      . ENDO 2-ND CA LOGIC                 00075500
         LLKCA &P(&S+10,1),&S1,&P(&S+10,2),&P(&S+10,3),&P(&S+10,4),    X00075600
               &P(&S+10,5),&P(&S+10,6),&P(&S+10,7),&P(&S+10,8),        ;00075700
               &P(&S+10,9),&P(&S+10,10),&P1                             00075800
         ENDO                      . ENDO SPECIFIC CACHXX CALL          00075900
         ENDO                      . ENDO 24 PORT LOGIC                 00076000
         ENDO                      . ENDO CA LOGIC                      00076100
         DO    (&U93=0)**(&VS9=0)      DO IF DCS AND NOT VS9            00076200
.* .                                                                    00076300
.*  SET UP LLT'S ACCORDING TO INFORMATION IN DCSCHXX CALLS              00076400
.* .                                                                    00076500
&S1      SET   0                                                        00076600
&S       DO    6                   . 6 DCS TEST FACILITY LINES          00076700
         DO    '&P(34+&S)'=''=0                                         00076800
&P1      SET   &S1-&FSTPORT        . DISPLACEMENT INTO LLT'S            00076900
         DO    &P1>0                                                    00077000
&P1      SET   &P1/2                                                    00077100
         ENDO                                                           00077200
         LLKCA &P(34+&S,1),&S1,&P(34+&S,2),&P(34+&S,3),&P(34+&S,4),    X00077300
               &P(34+&S,5),&P(34+&S,6),&P(34+&S,7),&P1                  00077400
         ENDO                      . ENDO SPECIFIC SUBCHN LOGIC         00077500
&S1      SET   &S1+2               . SUBCHANNEL NUMBER                  00077600
         ENDO                      . ENDO 16 SUBCHN LOGIC               00077700
         ENDO                      . ENDO DCS LOGIC                     00077800
.*                                                                      00077900
.* SET UP LLT'S FOR VS9 ACCORDING TO INFORMATION IN PORTNN OPERAND      00078000
.* GENERATE INNER CALL FOR EACH NON-NULL PORT#                          00078100
.*                                                                      00078200
         DO    &VS9                                                     00078300
&S           DO  &NRPORTS                       FOR EACH                00078400
                 DO  '&P(&S+&I+&FSTPORT)'=''=0  NON-NULL PORT           00078500
&TEMP            SET &S+&I+&FSTPORT             INDEX TO SYMBOLIC PARAM 00078600
&S1              SET &FSTPORT+(&S-1)            ACTUAL PORT NO          00078700
&P1              SET &S1-&FSTPORT               REL PORT#               00078800
                 LLKCA &P(&TEMP,1),&S1,&P(&TEMP,2),&P(&TEMP,3),        X00078900
               &P(&TEMP,4),&P(&TEMP,5),&P(&TEMP,6),&P(&TEMP,7),        X00079000
               &P(&TEMP,8),&P(&TEMP,9),&P(&TEMP,10),&P1                 00079100
.*                                                                      00079200
.*                     ARGUMENTS TO INNER CALL ARE :                    00079300
.*                       1ST POS(LINESPEED) OF PORTNN, ACTUAL PORT#,    00079400
.*                       2ND POS, 3RD POS,...,10TH POSITIONAL,OFFSET    00079500
.*                       (I.E PORT NUMBER RELATIVE TO 1ST PORT)         00079600
.*                                                                      00079700
                 ENDO '&P(&S+&I+&FSTPORT)'=''=0                         00079800
             ENDO &NRPORTS                                              00079900
             ETPND  ML$$C1,PATCHES=32,VER=001,                         $00080000
               DATE=013176,                                            $00080100
               P=J.SCHWALB,                                            $00080200
               D=CSD,HDWR=ALL,SFTWR=ALL,                               $00080300
               SOFTSYS=CP,                                             $00080400
               PROD=(ICAM,VS9)                                          00080500
         ENDO &VS9                                                      00080600
.FEXIT   LABEL                                                          00080700
         DO    &VS9=0                                                   00080800
         EJECT                                                          00080900
*                                                                       00081000
         TITLE 'MCP GENERATION AND CONFIGURATION SUMMARY'               00081100
.*  .                                                                   00081200
.*  .                                                                   00081300
         PNOTE *,'                                                    ' 00081400
         PNOTE *,'                                                    ' 00081500
         PNOTE *,'MCP IDENTIFIER:     &TN#MPID                        ' 00081600
         PNOTE *,'                                                    ' 00081700
         PNOTE *,'** GENERAL STATISTICS ***                           ' 00081800
         PNOTE *,'                                                    ' 00081900
         PNOTE *,'  COMMUNICATIONS SUBSYSTEM:            &TS#SUBS     ' 00082000
         PNOTE *,'  LOAD MODULE NAME:                    &SYSECT      ' 00082100
         PNOTE *,'  MCP INTERFACE TYPE:                  &TS#TYPE     ' 00082200
         PNOTE *,'  MODE:                                &TS#STMD     ' 00082300
         PNOTE *,'  NUMBER OF LINES:                     &GLINES      ' 00082400
         PNOTE *,'  NUMBER OF USER PROGRAMS:             &GUSERS      ' 00082500
         PNOTE *,'  DEFENSIVE CODE:                      &TS#DEFN     ' 00082600
         PNOTE *,'                                                    ' 00082700
         PNOTE *,'                                                    ' 00082800
         PNOTE *,'** USER NETWORK SUMMARY ***                         ' 00082900
         PNOTE *,'                                                    ' 00083000
         PNOTE *,'  NUMBER OF CCAS:                      &SCCA        ' 00083100
         PNOTE *,'                                                    ' 00083200
         DO    '&CCAS'=''                                               00083300
         GOTO  .SKPCCA                                                  00083400
         ENDO                                                           00083500
&SCCA    SET   1                                                        00083600
         DO    N'&CCAS                                                  00083700
         PNOTE *,'  CCA NUMBER &SCCA                     &CCAS(&SCCA) ' 00083800
&SCCA    SET   &SCCA+1                                                  00083900
         ENDO                                                           00084000
         ENDO  &VS9=0                                                   00084100
.SKPCCA  LABEL                                                          00084200
         END                                                            00084300
