SUPNAM   PROC  P,0,SUP,SUP1,SUP2,IOG,IOG1                               SG$00010
SG$SPMAK NAME                                                           SG$00020
//       NOP   SUP=(SPM,TMR,SYD,TRN,PMN,DMP,RES)                        SG$00030
//       NOP   SUP1=(OLD,ERL,SCP,SLT,PRI,TLK,SPL,JAC,SIC)               SG$00040
//       NOP   SUP2=(BLN,SHR,COM,MID)                                   SG$00050
// NOP   IOG=(IMD,COP,ISC,ISD,IDA,PBN,IST,IMX)                          SG$00060
// NOP   IOG1=(IS2,IPC,IT6)                                             SG$00070
//                                                              NOP     SG$00080
//TMR    JSET  &SUP(2)                                                  SG$00090
//MID    JSET  1                        SET MIDNIGHT DAY CHANGE ON      SG$00100
//       IF    ('&SUP2(4)' NE '0').LAB1                                 SG$00110
//MID    JSET  0                        RESET                           SG$00120
//.LAB1  NOP                                                            SG$00130
//       IF    (&SUP2(1)&IOG(7) LT 11).LAB2                             SG$00140
//TBN    JSET  1                                                        SG$00150
//.LAB2  NOP                                                            SG$00160
//                                                              NOP     SG$00170
//       WORK1                                                          SG$00180
//       WORK2                                                          SG$00190
// OPTION      SCAN,SUB                                                 SG$00200
// OPTION      JOBDUMP                                                  SG$00210
// EXEC  ASM,NEWLOD                                                     SG$00220
// PARAM COPY=NEWSRC/(N)                                                SG$00230
// PARAM LIN=NEWMAC/(N)                                                 SG$00240
// PARAM LST=(NC)                                                       SG$00250
//       NOP                                                            SG$00260
//R1     JSET  &SUP(7)**1                                               SG$00270
//R2     JSET  &SUP(7)**2                                               SG$00280
//R3     JSET  &SUP(7)**4                                               SG$00290
//R4     JSET  &SUP(7)**8                                               SG$00300
//R5     JSET  &SUP(7)**16                                              SG$00310
//R6     JSET  &SUP(7)**32                                              SG$00320
//LAB0   NOP                                                            SG$00330
/$                                                                      SG$00340
&SUPNAM   START                                                         SG$00350
         PRINT NOGEN                                                    SG$00360
         SUPEQU    SIB=NO,TRN=NO                                        SG$00370
//       NOP                            DELETE ASSEMBLE PRINT OUT       SG$00380
         COPY  C$SUPGBL                                                 SG$00390
//       IF    ('&SUP1(3)' EQ '')LAB2   USE DEFAULT SUPGBL              SG$00400
//       IF    ('&SUP(1)'  EQ  '')LAB1            USE GENERATED SUPGBL  SG$00410
         COPY  S$&SUP(1)                                                SG$00420
//       GO    LAB2                                                     SG$00430
//LAB1   NOP                                                            SG$00440
         COPY  S$&SUPNAM                                                SG$00450
//LAB2   NOP                                                            SG$00460
//                                                              NOP     SG$00470
//P      JSET  B                        BASIC HANDLERS BY DEFAULT       SG$00480
//DSEL   JSET  &IOG(3).+&IOG1(1)       SEL1 AND SEL2                    SG$00490
//       IF    ('&IOG(8)' NE '')IDAMUX  MUX CHANNEL TOO                 SG$00500
//       IF    (&DSEL GT 0)NOTMIN       SELECTORS                       SG$00510
//       IF    (&SUP1(5) GT 1)NOTMIN    PRIORITY                        SG$00520
//       IF    (&SUP(4) GT 1)NOTMIN     TRANS                           SG$00530
//       IF    (&SUP1(4) GT 1)NOTMIN    JOBSLOTS                        SG$00540
//       IF    (&TMR NE 0)NOTMIN        TIMERS                          SG$00550
//       IF    ('&SUP1(1)' NE '0')NOTMIN DIAGNOSTICS                    SG$00560
//       IF    (&SUP(5) NE 0)NOTMIN     PMN                             SG$00570
//       IF    (&SUP1(7) NE 0)NOTMIN   SPOOLING                         SG$00580
//       IF    (&SUP1(6) NE 0)NOTMIN    TRACK LOCK                      SG$00590
//P      JSET  M                       MINIMUM SUPERVVISOR              SG$00600
&&GS$MIN SET   1                                                        SG$00610
//       GO    NOTMIN                                                   SG$00620
//IDAMUX NOP                                                            SG$00630
&&GS$MUX SET   1                                                        SG$00640
//                                                              NOP     SG$00650
//NOTMIN NOP                                                            SG$00660
//D      JSET  #                        DEFAULT - YES DIAGNOSTICS       SG$00670
//       IF    ('&SUP1(1)' NE '0')DONE2 SKIP IF DIAGNOSTICS             SG$00680
//D      JSET  $                        DIAGNOSTICS CONFIGURED OUT      SG$00690
//DONE2  NOP                                                            SG$00700
//       IF    ('&IOG1(3)' EQ '')NEXT  ANY VIC TAPES                    SG$00710
&&GS$6AVR  SET 1                                                        SG$00720
//NEXT   NOP                           NO                               SG$00730
         DO    &&GS$COMM=0                                              SG$00740
&&GS$IPCM  SET 0                                                        SG$00750
&&GS$CMLS  SET 0                                                        SG$00760
         ENDO                                                           SG$00770
//       IF    (&SUP(5) EQ 0).LAB90     CHECK FOR PERFORM MONIT         SG$00780
//TMR    JSET  3                        FORCE PERFORM MONITORS TIMER    SG$00790
//MID    JSET  3                        PERMONIT VERSION OF TIMER       SG$00800
//.LAB90 NOP                                                            SG$00810
//       IF    (&SUP1(7) EQ 0)NOSPOOL   NO SPOOLING                     SG$00820
&&GP$SPOL      SET  1                   SET SYMBOL FOR SPOOLING         SG$00830
&&GS$RES SET   1                        SPOOLING NEEDS SM$TASK          SG$00840
//R1     JSET  1                        FORCE RESMOD=SM$TASK            SG$00850
//       IF    (&SUP1(8) EQ 0)NEXT      NO JOB ACCT                     SG$00860
//       IF    (&TMR NE 0)NEXT          ANY TIMER O K                   SG$00870
//TMR    JSET  1                        OVERRIDE NO TIMER               SG$00880
//NEXT   NOP                                                            SG$00890
//       IF    (&SUP1(7) EQ 1)NOSPOOL   OUTPUT SPOOLER ONLY             SG$00900
&&GP$INPS      SET  1                   SET SYMBOL FOR INPUT SPOOLER    SG$00910
//       IF    (&SUP1(7) NE 3)NOSPOOL   INPUT  SPOOLER ONLY             SG$00920
&&GP$RBP       SET  1                   SET SYMBOL FOR REMOTE BATCH     SG$00930
//                                                              NOP     SG$00940
//       IF    (&SUP2(3) EQ 0).LABN0    COMM CONFIG?                    SG$00950
//       IF    (&SUP1(7) NE 3).LABN0    SPOOLING=REMOTE                 SG$00960
//ICNM   JSET  C1                                                       SG$00970
//       IF    (&SUP1(9) EQ 0).LABNXT                                   SG$00980
//ICNM   JSET  C&SUP1(9)                                                SG$00990
//       IF    (&SUP1(9) LE 9).LABNXT                                   SG$01000
//ICNM   JSET  &SUP1(9)-9                                               SG$01010
//ICNM   JSET  M&ICNM                                                   SG$01020
//.LABNXT NOP                                                           SG$01030
&&GP$ICAM  SET     '&ICNM'                                              SG$01040
//.LABN0 NOP                                                            SG$01050
//                                                              NOP     SG$01060
//NOSPOOL      NOP                                                      SG$01070
//       IF    (&SUP2(3) EQ 0).LABN3    COMMUNICATIONS CONFIG'D         SG$01080
//TMR    JSET  3                        FORCE MAX TIMER                 SG$01090
//.LABN3 NOP                                                            SG$01100
&&GS$TIME SET  0&TMR                                                    SG$01110
&&GS$BLNM SET      0&TBN                                                SG$01120
//                                                              NOP     SG$01130
         SUPROOT   &VERS                                                SG$01140
//PUBNO  JSET  &IOG(6).+1                                               SG$01150
         PUBCNT    &PUBNO                                               SG$01160
//       IF    ('&IOG(2)' EQ '')LAB2A                                   SG$01170
SCOPE    PUB   X'0120',X'0080',0,0                                      SG$01180
//       GO    LAB2B                                                    SG$01190
//LAB2A  NOP                                                            SG$01200
SCOPE    PUB   X'0120',0,0,0                                            SG$01210
//LAB2B  NOP                                                            SG$01220
//       IF    ('&IOG(1)' EQ '')LAB3                                    SG$01230
         COPY  I$&IOG(1)                                                SG$01240
//       GO    LAB4                                                     SG$01250
//LAB3   NOP                                                            SG$01260
         COPY  I$&SUPNAM                                                SG$01270
//LAB4   NOP                                                            SG$01280
         &DHOLT.END                                                     SG$01290
/*                                                                      SG$01300
// WORK1                                                                SG$01310
// OPTION      SCAN,SUB                                                 SG$01320
// OPTION      JOBDUMP                                                  SG$01330
//       EXEC  LNKEDT,NEWLOD                                            SG$01340
// PARAM OUT=&OUTLOD                                                    SG$01350
//                                                              NOP     SG$01360
//       IF    ('&P' EQ 'M').LAB6E      BRANCH IF MIN SUP               SG$01370
//CONFIG JSET  1                                                        SG$01380
//CONFGA JSET  1                                                        SG$01390
//CONFGB JSET  1                                                        SG$01400
//       IF    (&SUP(5) EQ 0).LAB6A                                     SG$01410
//CONFIG JSET  &CONFIG+1                1 - PMN                         SG$01420
//.LAB6A NOP                                                            SG$01430
//CONFGB JSET  &CONFIG                                                  SG$01440
//       IF    (&SUP1(8) EQ 0).LAB6B                                    SG$01450
//CONFIG JSET  &CONFIG+2                2 - JAC                         SG$01460
//.LAB6B IF    (&SUP(4) LE 1).LAB6C                                     SG$01470
//CONFGB JSET  &CONFGB+2                2 - MULTIPLE TRANSIENT AREAS    SG$01480
//.LAB6C NOP                                                            SG$01490
//CONFGA JSET  &CONFIG                                                  SG$01500
//       IF    (&SUP1(7) EQ 0).LAB6D                                    SG$01510
//CONFIG JSET  &CONFIG+4                4 - SPL                         SG$01520
//.LAB6D IF    (&SUP2(2) EQ 0).LAB6E                                    SG$01530
//CONFGA JSET  &CONFGA+4                4 - SHR                         SG$01540
//.LAB6E NOP                                                            SG$01550
//                                                              NOP     SG$01560
//VTMM   SG$GTVER  &CONFGB,(MIN,,M1,M,M1)         TRN>1, PMN            SG$01570
//VSWT   SG$GTVER  &CONFGA,(,,3,2,1,4,3,5,1)      SHR, JAC, PMN         SG$01580
//VERR   SG$GTVER  &CONFIG,(2,,1,,1,,1,,1)        SPL, JAC, PMN         SG$01590
//VSVC   SG$GTVER  &CONFIG,(4,,5,,5,2,6,3,1)      SPL, JAC, PMN         SG$01600
//                                                              NOP     SG$01610
/$                                                                      SG$01620
         LOADM &SUPNAM                                                  SG$01630
         LINKOP    RLIB=NEWOBJ,NOAUTO,NOV                               SG$01640
         INCLUDE   &SUPNAM.(&SUPNAM)                                    SG$01650
         INCLUDE   SM$SOS,NEWOBJ                                        SG$01660
         INCLUDE   SM$TM&VTMM,NEWOBJ                                    SG$01670
         INCLUDE   &SUPNAM.(SM$PUBS)                                    SG$01680
         INCLUDE   SM$SVC&VSVC,NEWOBJ                                   SG$01690
         INCLUDE   SM$SWT&VSWT,NEWOBJ                                   SG$01700
         INCLUDE   SM$ERR&VERR,NEWOBJ                                   SG$01710
         INCLUDE   SM$YMW,NEWOBJ                                        SG$01720
//                                                              NOP     SG$01730
//       IF    (&R3 EQ 0)LAB8A                                          SG$01740
         INCLUDE   SM$LOCK,NEWOBJ                                       SG$01750
SL$LOCK  EQU   SM$LOCK                                                  SG$01760
//       GO    LAB8E                                                    SG$01770
//LAB8A  IF    (&SUP1(6) EQ 0)LAB8B    NO TRACK LOCK                    SG$01780
         INCLUDE   SM$MLCK1,NEWOBJ                                      SG$01790
//       GO    LAB8E                                                    SG$01800
//LAB8B  NOP                                                            SG$01810
         INCLUDE   SM$MLOCK,NEWOBJ                                      SG$01820
//LAB8E  IF    (&TMR EQ 0)LAB9                                          SG$01830
         INCLUDE   SM$TIM&TMR&MID,NEWOBJ                                SG$01840
//LAB9   IF    (&SUP1(7) EQ 0)LAB10              NO SPOOLING            SG$01850
         INCLUDE   SM$VDCRT,NEWOBJ                                      SG$01860
//LAB10  IF    (&SUP2(2) EQ 0)LAB11     SHARED CODE?                    SG$01870
         INCLUDE   SM$SHARE,NEWOBJ                                      SG$01880
//LAB11  NOP                                                            SG$01890
//       IF    ('&IOG1(3)' EQ '')NEXT            NO VIC TAPES           SG$01900
         INCLUDE   SM$6CAVR,NEWOBJ                                      SG$01910
//NEXT   NOP                                                            SG$01920
//       IF    (&SUP1(6) EQ 0)NEXT               NO TRACK LOCK          SG$01930
         INCLUDE   IO$LOCK,NEWOBJ                                       SG$01940
//NEXT   NOP                                                            SG$01950
//       IF    (&TBN EQ 0).LAB12                                        SG$01960
         INCLUDE   IN$TB,NEWOBJ                                         SG$01970
//.LAB12 NOP                                                            SG$01980
//                                                              NOP     SG$01990
         INCLUDE   I&P.$IPC,NEWOBJ                                      SG$02000
         INCLUDE   I&P.&D.IPCN,NEWOBJ                                   SG$02010
//                                                              NOP     SG$02020
//       IF    ('&P' EQ 'M')NEXT                                        SG$02030
//P      JSET  C                                                        SG$02040
//NEXT   NOP                                                            SG$02050
         INCLUDE   I&P.$LOC,NEWOBJ                                      SG$02060
//       IF    (&TMR EQ 0)NEXT          SKIP IF NO TIMER                SG$02070
         INCLUDE   I&P.$CLK,NEWOBJ                                      SG$02080
//                                                              NOP     SG$02090
//NEXT   IF    ('&IOG(8)' EQ '')NOMUX                                   SG$02100
//P      JSET  D                        NO 0604 OR 0768                 SG$02110
//       IF    (&IOG(8) EQ 1).MUX                                       SG$02120
//P      JSET  L                        0768 PRINTER                    SG$02130
//       IF    (&IOG(8) EQ 3).MUX                                       SG$02140
//P      JSET  K                        0768 PRINTER AND 0604           SG$02150
//.MUX   NOP                                                            SG$02160
         INCLUDE   I&P.$MUX,NEWOBJ                                      SG$02170
         INCLUDE   I&P.&D.MUXN,NEWOBJ                                   SG$02180
//                                                              NOP     SG$02190
//NOMUX  IF    ('&IOG(5)' EQ '')NOIDA  NO IDA                           SG$02200
//       IF    ('&P' EQ 'M')NEXT       MINIMUM                          SG$02210
//P      JSET  I                       IDA MODULES                      SG$02220
//NEXT   NOP                                                            SG$02230
         INCLUDE   I&P.&D.IDA,NEWOBJ                                    SG$02240
         INCLUDE   I&P.&D.IDAN,NEWOBJ                                   SG$02250
//                                                              NOP     SG$02260
//NOIDA  IF    (&DSEL GT 0)SEL1        OMLY ONE SELECTOR                SG$02270
//       IF    ('&P' EQ 'M').SETP6                                      SG$02280
//P      JSET  H                                                        SG$02290
//.SETP6 NOP                                                            SG$02300
//P6     JSET  &P                                                       SG$02310
//       GO    SELEND                                                   SG$02320
//SEL1   NOP                                                            SG$02330
//       IF    (&DSEL GT 1)SEL2                                         SG$02340
//                                                              NOP     SG$02350
// NOP         HANDLERS FOR ONLY ONE SELECTOR CHANNEL                   SG$02360
//P1     JSET  Z                        TAPE ERROR HANDLER              SG$02370
//P2     JSET  Y                        DISC ERROR HANDLER              SG$02380
//P3     JSET  F                        TAPE ONLY SELECTOR HANDLER      SG$02390
//P4     JSET  G                        DISC ONLY SELECTOR HANDLER      SG$02400
//P5     JSET  E                        TAPE - DISC SEL HANDLER         SG$02410
//P6     JSET  S                        NON CO-CHANNEL HANDLERS         SG$02420
//       GO    SEL                                                      SG$02430
//                                                              NOP     SG$02440
//SEL2   NOP   HANDLERS FOR MULTIPLE SELECTOR CHANNELS                  SG$02450
//P1     JSET  W                        TAPE ERROR HANDLER              SG$02460
//P2     JSET  V                        DISC ERROR HANDLER              SG$02470
//P3     JSET  A                        TAPE ONLY SELECTOR HANDLER      SG$02480
//P4     JSET  R                        DISC ONLY SELECTOR HANDLER      SG$02490
//P5     JSET  Q                        TAPE - DISC SEL HANDLER         SG$02500
//P6     JSET  U                        NON CO-CHANNEL HANDLERS         SG$02510
//       IF    (&IOG(3) LE 1)SEL        SKIP IF NO CO-CHANNELING        SG$02520
//P6     JSET  T                        COCHANNELING HANDLER            SG$02530
//                                                              NOP     SG$02540
//SEL    NOP                                                            SG$02550
//       IF    (&IOG(7) EQ 0).DISC      SKIP IF NO TAPES                SG$02560
//SELVER JSET  &P3                      SELECTOR - ONLY TAPES           SG$02570
         INCLUDE   I&P1.$ERT,NEWOBJ                                     SG$02580
//                                                              NOP     SG$02590
//.DISC  IF    (&IOG(4) EQ 0).SELHAND   SKIP IF NO DISCS                SG$02600
//P      JSET  &P2                                                      SG$02610
//SELVER JSET  &P4                      SELECTOR - ONLY DISCS           SG$02620
//       IF    (&IOG(7) EQ 0).ONLYDISC  SKIP IF ONLY DISCS              SG$02630
//SELVER JSET  &P5                      TAPE, DISC - SELECTOR           SG$02640
//.ONLYDISC IF (&IOG(4) NE 3).NO8430    SKIP IF NO 8430 DISCS CONFIG    SG$02650
//P      JSET  X                        8430 DISC ERROR HANDLER         SG$02660
//.NO8430 NOP                                                           SG$02670
         INCLUDE   I&P.$ERD,NEWOBJ                                      SG$02680
//                                                              NOP     SG$02690
//.SELHAND NOP                                                          SG$02700
         INCLUDE   I&SELVER&D.SEL,NEWOBJ                                SG$02710
         INCLUDE   I&SELVER&D.SELN,NEWOBJ                               SG$02720
         INCLUDE   IJ$ADJ,NEWOBJ                                        SG$02730
//P      JSET  J                                                        SG$02740
//                                                              NOP     SG$02750
//SELEND NOP                                                            SG$02760
         INCLUDE   I&P.$PUBS,NEWOBJ                                     SG$02770
         INCLUDE   I&P.$IOST,NEWOBJ                                     SG$02780
         INCLUDE   I&P.$IOSTE,NEWOBJ                                    SG$02790
//P      JSET  &P6                                                      SG$02800
         INCLUDE   I&P.$MAPE,NEWOBJ                                     SG$02810
         INCLUDE   I&P.$QUE,NEWOBJ                                      SG$02820
//                                                              NOP     SG$02830
//IOEND1 IF    (&SUP(5) EQ 0)IOEND2     NO PMN                          SG$02840
//P      JSET  X                                                        SG$02850
//       IF    ('&SUP2(3)&P6' EQ '1T')IOEND2      COMM AND COCHAN?      SG$02860
//S      JSET  S                                                        SG$02870
//B      JSET  S                                                        SG$02880
//       IF    (&SUP2(3) EQ 1)IOEND2    COMM?                           SG$02890
//B      JSET  B                                                        SG$02900
//IOEND2 NOP                                                            SG$02910
//                                                              NOP     SG$02920
         INCLUDE   I&P&D.EXCP&S,NEWOBJ                                  SG$02930
         INCLUDE   I&P&D.HINT&B,NEWOBJ                                  SG$02940
//                                                              NOP     SG$02950
//       IF    ('&SUP(3)' EQ '0')LAB13                                  SG$02960
//       NOP                                                            SG$02970
//       NOP                                                            SG$02980
         INCLUDE   SU$CWALL,NEWOBJ                                      SG$02990
DMP$ENT  EQU       SU$CWALL                                             SG$03000
//       GO    LAB14                                                    SG$03010
//LAB13  NOP                                                            SG$03020
DMP$ENT  EQU       0                                                    SG$03030
//       NOP                                                            SG$03040
//LAB14  IF    (&SUP(6) EQ 0)LAB15      SKIP IF NO IDUMP                SG$03050
         INCLUDE SM$IDUMP,NEWOBJ                                        SG$03060
//LAB15  NOP                                                            SG$03070
         INCLUDE   SAT93,NEWOBJ                                         SG$03080
//                                                              NOP     SG$03090
//       IF    ('&P' EQ 'M').LAB21                                      SG$03100
//XR1    JSET  SM$TYLD                  DEFAULT - TYLD ADDR             SG$03110
//XR2    JSET  TS$SCHDL                 DEFAULT - TRANSIENT SCHED ADDR  SG$03120
//XR4    JSET  TS$SCHDL                 DEFAULT - TRANSIENT SCHED ADDR  SG$03130
//XR5    JSET  TS$SCHDL                 DEFAULT - TRANSIENT SCHED ADDR  SG$03140
//                                                              NOP     SG$03150
//       IF    (&R1 EQ 0).LAB16                                         SG$03160
//XR1    JSET  SM$TASK                                                  SG$03170
//.LAB16 NOP                                                            SG$03180
//       IF    (&R2 EQ 0).LAB18                                         SG$03190
         INCLUDE   SM$STXIT,NEWOBJ                                      SG$03200
//XR2    JSET  SM$STXIT                                                 SG$03210
//.LAB18 NOP                                                            SG$03220
//       IF    (&R4 EQ 0).LAB19                                         SG$03230
         INCLUDE   SM$GTPUT,NEWOBJ                                      SG$03240
//XR4    JSET  SM$GTPUT                                                 SG$03250
//.LAB19 NOP                                                            SG$03260
//       IF    (&R5 EQ 0).LAB20                                         SG$03270
         INCLUDE   SM$ATACH,NEWOBJ                                      SG$03280
//XR5    JSET  SM$ATACH                                                 SG$03290
//.LAB20 NOP                                                            SG$03300
//                                                              NOP     SG$03310
         INCLUDE   &XR1,NEWOBJ                                          SG$03320
TK$TASK  EQU       &XR1                                                 SG$03330
SX$STXIT EQU       &XR2                                                 SG$03340
GT$GTPUT EQU       &XR4                                                 SG$03350
TK$ATCH  EQU       &XR5                                                 SG$03360
TK$DTCH  EQU       TS$SCHDL             TRANSIENT SCHEDULER ADDRESS     SG$03370
IN$SWAP  EQU       TS$SCHDL             TRANSIENT SCHEDULER ADDRESS     SG$03380
//.LAB21 NOP                                                            SG$03390
//                                                              NOP     SG$03400
         INCLUDE   &SUPNAM.(SM$TAB)                                     SG$03410
         INCLUDE   &SUPNAM.(SM$INIT)                                    SG$03420
IO$SYS1  EQU       0                                                    SG$03430
IO$SYS2  EQU       0                                                    SG$03440
IO$ADJ   EQU       0                                                    SG$03450
IN$EDISC EQU       0                                                    SG$03460
IN$ETAPE EQU       0                                                    SG$03470
/*                                                                      SG$03480
//LAB50  NOP                                                            SG$03490
         END                                                            SG$03500
