         PROC  &P,3                                                     SUP00010
SUPROOT  NAME                                                           SUP00020
         GBL   &X,&Y                                                    SUP00025
         GBL   &GS$PRI,&GS$SLTS,&GS$TRAN,&GS$RES                        SUP00030
         GBL   &GS$ACCT,&GS$ERLG,&GS$SPM,&GS$COMM,&GS$CMDM              SUP00040
         GBL   &GS$TTR,&GS$TDR,&GS$TPR                                  SUP00050
         GBL   &GS$TIME,&GS$RLCK,&GS$ULCK,&GS$TLCK                      SUP00060
         GBL   &GS$FPT,&GS$IPCM,&GS$MUX                                 SUP00070
         GBL   &GS$MCON                                                 SUP00080
         GBL   &GS$MIN                                                  SUP00090
         GBL   &GS$6AVR                                                 SUP00100
         GBL   &GS$73LC,&GS$70LC,&GS$68LC,&GS$76LC                      SUP00110
         GBL   &GS$73VF,&GS$70VF,&GS$68VF,&GS$76VF                      SUP00120
         GBL   &GS$93VF                                                 SUP00130
         GBL   &GS$ROLL                                                 SUP00140
         GBL   &GS$DIAG,&GS$SHAR                                        SUP00145
         GBL   &GS$BLNM
         GBL   &GP$SPOL,&GP$INPS,&GP$RBP,&GP$LGTP,&GP$BRST              SUP00150
         GBL   &GP$OWCR,&GP$CRID,&GP$BTMP,&GP$VSN                       SUP00160
         GBL   &GP$CYL,&GP$BPSZ                                         SUP00170
         GBL   &GP$ICAM                                                 SUP00180
         GBL   &GP$PRLG,&GP$PRSP                                        SUP00185
         GBL   &GP$CNLG,&GP$CLGR
         GBL   &GP$VOLS
         GBL   &GP$VSN2,&GP$VSN3,&GP$VSN4
         GBL   &GP$VSN5,&GP$VSN6,&GP$VSN7,&GP$VSN8
         GBL   &GP$CYL2,&GP$CYL3,&GP$CYL4
         GBL   &GP$CYL5,&GP$CYL6,&GP$CYL7,&GP$CYL8
         DO    &GP$SPOL                                                 SUP00190
         SPACE 6                                                        SUP00200
         SPLEQU SSCT=YES,FSCT=YES                                       SUP00210
         EJECT                                                          SUP00220
         ENDO                                                           SUP00230
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *     SUP00240
*                                                                 *     SUP00250
*        THIS AND ALL RELATED PROGRAMS ARE THE PROPERTY OF        *     SUP00260
*                                                                 *     SUP00270
*        UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION.          *     SUP00280
*                                                                 *     SUP00290
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *     SUP00300
.*                                                                      SUP00310
.*       SUPROOT VERSION,REVISION,SUB-REVISION                          SUP00320
.*                                                                      SUP00330
*                                                                       SUP00340
         ENTRY SB$X                                                     SUP00350
         ENTRY SK$CTBL,SK$OPRWT                                         SUP00360
         ENTRY IO$SLOTS                                                 SUP00370
         ENTRY IO$QHD                                                   SUP00380
*                                                                       SUP00390
         EXTRN SO$OVLY,SO$RLSE,TR$OVLY,TR$RLSE                          SUP00400
         EXTRN SE$SPE                                                   SUP00410
         EXTRN SV$NUM                                                   SUP00420
         EXTRN SV$SVC                                                   SUP00430
         EXTRN SW$LIST                                                  SUP00440
         EXTRN TL$LOAD                                                  SUP00450
         EXTRN IO$LOC                                                   SUP00460
         EXTRN IO$QUE                                                   SUP00470
         DO    &GS$TIME>0                                               SUP00480
         EXTRN SC$TIME&GS$TIME                                          SUP00490
         EXTRN SC$TOD&GS$TIME                                           SUP00500
         ENDO                                                           SUP00510
         DO    &GS$TIME=0                                               SUP00520
SC$TIME0 EQU   HA$BDMP                  B TO DUMP IF TIMER INTERRUPTS   SUP00530
SC$TOD0  EQU   HA$BDMP                  NO TOD SUBR. IF NO TIMER        SUP00540
         ENDO                                                           SUP00550
         EXTRN IO$SYS1                                                  SUP00560
         EXTRN IO$SYS2                                                  SUP00570
         EXTRN ST$0111                                                  SUP00575
*                                                                       SUP00580
IO$SLOTS EQU   (&GS$SLTS+1)*4                                           SUP00590
IO$QHD   EQU   &GS$SLTS+2                                               SUP00600
         TITLE 'SUPERVISOR - ROOT PHASE'                                SUP00610
SUPSTART EQU   *                                                        SUP00620
         LOWMEM                                                         SUP00630
                                                                 EJECT  SUP00640
         SIB                                                            SUP00650
*                                                                       SUP00660
SB$X     EQU   SB$SIB                   EXTERNAL SIB LABEL              SUP00670
*                                                                       SUP00680
SBCFG1A  EQU   (BB$COMAD**255)*&GS$COMM+(BB$FPTGN**255)*&GS$FPT         SUP00690
SBCFG1B  EQU   (BB$2CAS**255)*(&GS$IPCM=2)                              SUP00700
SBCFG1   EQU   SBCFG1A+SBCFG1B                                          SUP00710
SBCFG2   EQU   0                                                        SUP00720
SBCHR1A  EQU   (&GS$TIME>0)*(BB$TIMER**255)+&GS$TTR*(BB$TTR**255)       SUP00730
SBCHR1B  EQU   &GS$TDR*(BB$TDR**255)+&GS$TPR*(BB$TPR**255)              SUP00740
SBCHR1C  EQU   &GS$MCON*(BB$MCON**255)+&GS$MIN*(BB$MIN**255)            SUP00750
SBCHR1D  EQU   &GS$DIAG*(BB$DIAG**255)+&GS$SPM*(BB$SPM**255)            SUP00760
SBCHR1   EQU   SBCHR1A+SBCHR1B+SBCHR1C+SBCHR1D
SBCHR2A  EQU   &GS$ERLG*(BB$ERLG**255)+&GS$ULCK*(BB$ULCK**255)          SUP00770
SBCHR2B  EQU   &GS$ACCT*(BB$ACCT**255)+&GP$SPOL*(BB$SPOOL**255)         SUP00780
SBCHR2C  EQU   &GS$ROLL*(BB$ROLL**255)+&GP$INPS*(BB$INPS**255)          SUP00790
SBCHR2D  EQU   (&GS$SHAR>0)*(BB$SHARE**255)+&GS$BLNM*(BB$BLNM**255)     SUP00800
SBCHR2   EQU   SBCHR2A+SBCHR2B+SBCHR2C+SBCHR2D
SBCHR3A  EQU   (&GP$CNLG>0)*(BB$CNLG**255)+&GP$CLGR*(BB$CLGR**255)
SBCHR3B  EQU   0
SBCHR3C  EQU   0
SBCHR3D  EQU   0
SBCHR3   EQU   SBCHR3A+SBCHR3B+SBCHR3C+SBCHR3D
SBFLG1   EQU   (BB$NOATN++BB$NORDY)**255                                SUP00810
SBFLG2   EQU   (BB$IDLE)**255
*                                       TOTAL NO. OF SRB SLOTS IN OSRQ  SUP00820
*                                       (ASSUMED 32 BY SR$SQMAP IF MIN) SUP00825
SBSRQNO  EQU   32*&GS$MIN+TF$OSRQL*(256/QS$SRBL)*(&GS$MIN=0)            SUP00830
*                                                                       SUP00840
*        ORG'S TO FILL IN SIB                                           SUP00850
*                                                                       SUP00860
         ORG   SB$VER                                                   SUP00870
         DO    '&P(1)'(1,2)=''                                          SUP00880
         DC    CL2' &P(1)'                                              SUP00890
         ENDO                                                           SUP00900
         DO    '&P(1)'(1,2)=''=0                                        SUP00910
         DC    CL2'&P(1)'                                               SUP00920
         ENDO                                                           SUP00930
         ORG   SB$REV                                                   SUP00940
         DC    CL2'&P(2)'                                               SUP00950
         DO    '&P(3)'=''=0                                             SUP00960
         ORG   SB$SUBRV                                                 SUP00970
         DC    CL2'&P(3)'                                               SUP00980
         ENDO                                                           SUP00990
         ORG   SB$CFG                                                   SUP01000
         DC    YL1(SBCFG1)              HARDWARE CONFIGURATION          SUP01010
         DC    YL1(SBCFG2)                                              SUP01020
         ORG   SB$AVC                                                   SUP01030
         DC    Y(&GS$TRAN)              COUNT OF AVAIL. TRANS. AREAS    SUP01040
         ORG   SB$RDR                                                   SUP01050
         DC    Y(IP$PBRDR)              ADDRESS OF PUB FOR SYSRDR       SUP01060
         ORG   SB$PRT                                                   SUP01070
         DC    Y(IP$PBPRT)              ADDRESS OF PUB FOR SYSPRT       SUP01080
         ORG   SB$ATA                                                   SUP01090
         DC    A(TA$1)                  AD. OF FIRST TRANSIENT AREA     SUP01100
         ORG   SB$TRC                                                   SUP01110
         DC    A(&GS$TRAN)              NO. OF TRANSIENT AREAS          SUP01120
         ORG   SB$PBC                                                   SUP01130
         DC    A(IP$NUM)                NO. OF PUB'S                    SUP01140
         ORG   SB$PBA                                                   SUP01150
         DC    A(IP$PUBS)               AD. OF FIRST PUB                SUP01160
         ORG   SB$SOS                                                   SUP01170
         DC    A(SO$TCB)                AD. OF SOS TCB                  SUP01180
         ORG   SB$SBA                                                   SUP01190
         DC    A(SB$SIB)                ADDRESS OF SIB                  SUP01200
         ORG   SB$CHR                                                   SUP01210
         DC    YL1(SBCHR1)              SUPERVISOR CHARACTERISTICS      SUP01220
         DC    YL1(SBCHR2)                                              SUP01230
         ORG   SB$CHR1                                                  SUP01235
         DC    YL1(SBCHR3)              SUP. CHARACTERISTICS
         DC    YL1(0)
         ORG   SB$FLG                                                   SUP01240
         DC    YL1(SBFLG1)              FLAG BITS                       SUP01250
         DC    YL1(SBFLG2)
         ORG   SB$KEYS                                                  SUP01260
         DC    X'01'                    KEY BITS (0=AVAIL. KEY)         SUP01270
         ORG   SB$SLOTS                                                 SUP01280
         DC    YL1(&GS$SLTS)            COUNT OF AVAIL. JOB SLOTS       SUP01290
         ORG   SB$NOPRI                                                 SUP01300
         DC    YL1(&GS$PRI)             NO. OF PRIORITY LEVELS          SUP01310
         ORG   SB$SVC                                                   SUP01320
         DC    Y(SV$NUM)                COUNT OF ENTRIES IN SVC TABLE   SUP01330
         ORG   SB$SVCTB                                                 SUP01340
         DC    Y(SV$SVC)                AD. OF SVC TABLE                SUP01350
         ORG   SB$SLA                                                   SUP01360
         DC    Y(SW$LIST)               SWITCH LIST ADDRESS             SUP01370
         DO    &GS$MCON                                                 SUP01380
         ORG   SB$MCSAV                                                 SUP01390
         DC    Y(MC$SAVE)               AD. OF GETJOB/MEMCON SAVE AREA  SUP01400
         ENDO                                                           SUP01410
         ORG   SB$LKTAB                                                 SUP01420
         DC    Y(SL$TABL)               AD OF TABLE FOR LOCK COUNTERS   SUP01430
         ORG   SB$SPE                                                   SUP01460
         DC    Y(SE$SPE)                ADDR OF SOFTWARE PROG EXCEPTION SUP01470
         ORG   SB$OCT                                                   SUP01480
         DC    Y(SK$CTBL)               AD. OF OPCOMM CONTROL TABLE     SUP01490
         ORG   SB$CNL                                                   SUP01500
         DC    Y(IP$PBCNL)              ADDRESS OF PUB FOR SYSCNL       SUP01510
         ORG   SB$RELOC                                                 SUP01520
         DC    Y(IO$LOC)                AD. OF "FIND RELOC. REG" SUBR.  SUP01530
         ORG   SB$TIMSB                                                 SUP01540
         DC    Y(SC$TOD&GS$TIME)        AD. OF TIME-OF-DAY SUBRTN.      SUP01550
         DO    &GS$TIME>0                                               SUP01560
         ORG   SB$IOCLK                                                 SUP01570
         EXTRN IO$CLK                                                   SUP01580
         DC    A(IO$CLK)                AD. OF I/O CLOCK MODULE         SUP01590
         ENDO                                                           SUP01600
         DO    &GS$SHAR>0                                               SUP01605
         ORG   SB$SHARE
         EXTRN SR$SHARE
         DC    A(SR$SHARE)              AD. OF SC INTERFACE ROUTINE
         ORG   SB$SCDAD
         DC    A(SR$SCD)                AD. OF SHARED CODE DIRECTORY
         ENDO
         DO    &GS$BLNM
         ORG   SB$BLNM
         EXTRN IN$TB
         DC    Y(IN$TB)                 TAPE BLOCK NO. ENTRY PT.
         ENDO
         ORG   SB$MXINT                                                 SUP01610
         DC    Y(10*1000)               MAX MSECS BETWEEN INTERRUPTS    SUP01620
         ORG   SB$TATCB                                                 SUP01630
         DC    Y(TA$TCB)                                                SUP01640
         DO    &GS$ERLG                                                 SUP01650
         ORG   SB$ELTA                                                  SUP01660
         DC    Y(IE$ELTAB)              AD. OF ERR LOG TABLE            SUP01670
         ENDO                                                           SUP01680
         ORG   SB$SYCH1                                                 SUP01690
         DC    Y(IO$SYS1)               SYSTEM CHAIN FOR SELECTOR 1     SUP01700
         ORG   SB$SYCH2                                                 SUP01710
         DC    Y(IO$SYS2)               SYSTEM CHAIN FOR SELECTOR 2     SUP01720
         ORG   SB$SAT                                                   SUP01725
         DC    A(ST$0111)               SAT ENTRY PT.
         ORG   SB$JTLNG                                                 SUP01730
         DC    Y(JT$NOFPT+(JT$LNGTH-JT$NOFPT)*&GS$FPT)      TCB LENGTH  SUP01740
         ORG   SB$IOQ                                                   SUP01750
         DC    Y(IO$QUE)                                                SUP01760
         ORG   SB$SRQNO                                                 SUP01770
         DC    YL1(SBSRQNO)             TOTAL NO. OF SLOTS              SUP01780
         ORG   SB$SRQNR                                                 SUP01790
         DC    YL1(SBSRQNO)             NO. OF AVAIL. SLOTS             SUP01800
         ORG   SB$SQMAP                                                 SUP01810
         DC    Y(SR$SQMAP)              AD. OF OSRQ BIT MAP             SUP01820
         ORG   SB$SRQRU                                                 SUP01830
         DC    YL1(SBSRQNO)             TOTAL SLOTS - #RU/FI REQUESTS   SUP01840
         ORG   SB$SYM                                                   SUP01850
         DC    Y(SY$SMTAB)              AD OF SGL-COPY-SYMB. RES. TABLE SUP01860
         DO    &GP$SPOL                                                 SUP01870
         ORG   SB$SPTAB                                                 SUP01880
         DC    Y(SR$SSCT)               AD. OF SPOOLING CONTROL TABLE   SUP01890
         ORG   SB$SSCT                                                  SUP01895
         DC    A(SR$SSCT)               AD. OF SPOOL CONTROL TABLE
         ENDO                                                           SUP01900
         ORG   SB$SLTNO                                                 SUP01910
         DC    YL1(&GS$SLTS)            TOTAL CONFIGURED JOB SLOTS      SUP01920
         ORG   SB$NXBJB                                                 SUP01930
         DC    H'1'                     BINARY JOB NO. (OF NEXT JOB)    SUP01940
*                                                                       SUP01950
         DO    (&GS$MIN=0)**(&GS$TLCK>0)                                SUP01960
         EXTRN IO$LOCK,IO$LOCKS                                         SUP01970
         ORG   SB$TLKTB                                                 SUP01980
         DC    Y(IO$LOCKS)              TRACK LOCK TABLE AD.            SUP01990
         ORG   SB$TLOCK                                                 SUP02000
         DC    Y(IO$LOCK)                                               SUP02010
         EXTRN IO$UNLCK                                                 SUP02020
         ORG   SB$UNLCK                                                 SUP02030
         DC    Y(IO$UNLCK)                                              SUP02040
*                                                                       SUP02050
         ENDO                                                           SUP02060
         EXTRN IO$ECOV,IN$HCOV,IN$MAPE,IO$PUB                           SUP02070
         ORG   SB$ECOV                                                  SUP02080
         DC    Y(IO$ECOV)                                               SUP02090
         ORG   SB$HCOV                                                  SUP02100
         DC    Y(IN$HCOV)                                               SUP02110
         ORG   SB$MCOV                                                  SUP02120
         DC    Y(IN$MAPE)                                               SUP02130
         ORG   SB$PCOV                                                  SUP02140
         DC    Y(IO$PUB)                                                SUP02150
         ORG   SB$SIB+SB$LNGTH                                          SUP02160
         SPACE 6                                                        SUP02170
*                                                                       SUP02180
         DO    &GS$MIN=0                                                SUP02190
         DC    XL40'0'                  ***** PATCH AREA *****          SUP02200
         ENDO                                                           SUP02210
                                                                 EJECT  SUP02220
*                                                                       SUP02230
***      OPCOMM RESIDENT CONTROL TABLE - MUST BE IN LOW 4K              SUP02240
*                                                                       SUP02250
SK$CTBL  DS    0F                                                       SUP02260
         DC    XL60'0'                  TCB TABLE                       SUP02270
         DC    X'0'                     OPCOM SUPERVISOR MSG. COUNTER   SUP02280
         DC    X'0'                     OPCOM USER MSG. COUNTER         SUP02290
SK$OPRWT DC    H'0'                     WAITING FOR LINE ON SCOPE CNTR. SUP02300
                                                                 EJECT  SUP02310
***      SWITCH LIST - MUST BE IN LOW 4K                                SUP02320
*                                                                       SUP02330
         ENTRY SW$LIST                                                  SUP02340
         DS    0F                                                       SUP02350
SW$LIST  EQU   *                                                        SUP02360
         ORG   SW$LIST+SW$QIDSO                                         SUP02370
         DC    A(SO$TCB)                SOA                             SUP02380
         ORG   SW$LIST+SW$QIDIC                                         SUP02390
         DC    A(0)                     ICAM                            SUP02400
         ORG   SW$LIST+SW$QIDSP                                         SUP02410
         DO    &GP$SPOL=0                                               SUP02420
         DC    A(0)                     SPOOLER (NOT CONFIGURED)        SUP02430
         ENDO                                                           SUP02440
         DO    (&GP$SPOL=0)=0                                           SUP02450
         EXTRN SM$VDTCB                                                 SUP02460
         DC    A(SM$VDTCB)              SPOOLER                         SUP02470
         ENDO                                                           SUP02480
         ORG   SW$LIST+SW$QIDTR                                         SUP02490
         DC    A(TA$TCB1)               TRANSIENTS & SYMBIONTS          SUP02500
         ORG   SW$LIST+SW$QIDUS                                         SUP02510
         DC    A(SR$INTCB)              1ST USER (SUP INIT TO START)    SUP02520
         DO    &GS$PRI-1                                                SUP02530
         DC    A(0)                                                     SUP02540
         ENDO                                                           SUP02550
         DC    X'FFFF'                  TERMINATION SENTINEL            SUP02560
         SPACE 3                                                        SUP02570
*                                                                       SUP02580
***      "SAVE/RESTORE REGISTERS" SUBROUTINES - MUST BE IN LOW 4K       SUP02590
*              R5=RETURN AD.                                            SUP02600
*              RS$TCB=TCB TO SAVE REGS IN                               SUP02610
*              R3=TCB TO RESTORE REGS FROM                              SUP02620
*                                                                       SUP02630
         ENTRY SW$SAVE,SW$RESTR                                         SUP02640
         USING JT$TCB,RS$TCB                                            SUP02650
SW$SAVE  DS    0H                                                       SUP02660
         SSTM  R0,R15,JT$SA                                             SUP02670
         DO    &GS$FPT                                                  SUP02680
         TSTBIT BB$FPT,(SB$SIB-SUPSTART),0   FLOATING PT?               SUP02690
         BNOR  R5                            NO                         SUP02700
         NC JT$PRE+1(3),JT$PRE+1             YES - TRANSIENT?           SUP02710
         BZR   R5                                 YES - DON'T SAVE FPT  SUP02720
*                                                 NO - SAVE FPT REGS.   SUP02730
         STD   0,JT$FPT                                                 SUP02740
         STD   2,JT$FPT+8                                               SUP02750
         STD   4,JT$FPT+16                                              SUP02760
         STD   6,JT$FPT+24                                              SUP02770
         ENDO                                                           SUP02780
         BR    R5                                                       SUP02790
         DROP  RS$TCB                                                   SUP02800
*                                                                       SUP02810
*                                                                       SUP02820
         USING JT$TCB,R3                                                SUP02830
SW$RESTR DS    0H                                                       SUP02840
         SLM   R0,R15,JT$SA                                             SUP02850
         DO    &GS$FPT                                                  SUP02860
         TSTBIT BB$FPT,(SB$SIB-SUPSTART),0   FLOATING PT?               SUP02870
         BNOR  R5                            NO                         SUP02880
*                                            YES - RESTORE FPT REGS.    SUP02890
         LD    0,JT$FPT                                                 SUP02900
         LD    2,JT$FPT+8                                               SUP02910
         LD    4,JT$FPT+16                                              SUP02920
         LD    6,JT$FPT+24                                              SUP02930
         ENDO                                                           SUP02940
         BR    R5                                                       SUP02950
         DROP  R3                                                       SUP02960
                                                                 EJECT  SUP02970
***      SVC RESIDENT TABLE                                             SUP02980
*                                                                       SUP02990
         EXTRN SW$TCHER                                                 SUP03000
         ENTRY SV$NUM                                                   SUP03010
*                                                                       SUP03020
         EXTRN IO$EXCP,IN$REXCP                                         SUP03030
         EXTRN SR$WAIT,SR$WAITA,SR$YIELD                                SUP03040
         EXTRN SO$OPRFX                                                 SUP03050
         EXTRN SL$LOCK,TS$INVAL                                         SUP03060
         EXTRN SA$6CAVR                                                 SUP03070
*                                                                       SUP03080
SV$SVC   EQU   *                                                        SUP03090
         DC    Y(IO$EXCP)               EXCP                            SUP03100
         DC    Y(SR$WAIT)               WAIT                            SUP03110
         DC    Y(SR$WAITA)              WAIT ALL                        SUP03120
         DC    Y(IN$REXCP)              REXCP                           SUP03130
         DC    Y(SR$YIELD)              YIELD                           SUP03140
         DC    Y(SO$OPRFX)              OPR                             SUP03150
         DO    &GS$TIME<3                                               SUP03160
         DC    Y(TS$INVAL)              INVALID SVC                     SUP03170
         ENDO                                                           SUP03180
         DO    &GS$TIME>2                                               SUP03190
         EXTRN SC$SET                                                   SUP03200
         DC    Y(SC$SET)                SETIME                          SUP03210
         ENDO                                                           SUP03220
         DO    &GS$TIME>1                                               SUP03230
         EXTRN SC$GET&GS$TIME                                           SUP03240
         ENDO                                                           SUP03250
         DC    Y(SC$GET&GS$TIME)        GETIME                          SUP03260
         DC    Y(SL$LOCK)               SET OR CLEAR LOCKS              SUP03270
         DO    &GS$COMM=1                                               SUP03280
         DC    Y(SM$COMM)               COMMUNICATIONS SVC              SUP03290
         ENDO                                                           SUP03300
         DO    &GS$COMM=0                                               SUP03310
         DC    Y(TS$INVAL)              INVALID SVC                     SUP03320
         ENDO                                                           SUP03330
         DO    &GS$SPM=1                                                SUP03340
         DC    Y(SM$SPM)                SPM PROBE SVC                   SUP03350
         ENDO                                                           SUP03360
         DO    &GS$SPM=0                                                SUP03370
         DC    Y(TS$INVAL)              INVALID SVC                     SUP03380
         ENDO                                                           SUP03390
         DO    &GS$6AVR=1                                               SUP03400
         DC    Y(SA$6CAVR)              ATTN - VIC AVR                  SUP03410
         ENDO                                                           SUP03420
         DO    &GS$6AVR=0                                               SUP03430
         DC    Y(TS$INVAL)              INVALID SVC                     SUP03440
         ENDO                                                           SUP03450
         DO    (&GS$MIN=0)**(&GS$RES=0)                                 SUP03455
         EXTRN SR$TASK
         DC    Y(SR$TASK)               AWAKE,TYIELD,WAITM,CHAP,POST
         ENDO
         DO    &GS$RES>0                                                SUP03460
*                                                                       SUP03470
         EXTRN TK$TASK,SX$STXIT,IN$SWAP,GT$GTPUT                        SUP03480
         EXTRN TK$ATCH,TK$DTCH                                          SUP03490
         EXTRN TS$SCHDL                                                 SUP03500
         DC    Y(TK$TASK)               AWAKE                           SUP03510
         DC    Y(TS$INVAL)              INVALID SVC                     SUP03520
         DC    Y(TS$INVAL)              INVALID SVC                     SUP03530
         DC    Y(SX$STXIT)              STXIT                           SUP03540
         DC    Y(TS$SCHDL)              SWAP                            SUP03550
         DC    Y(GT$GTPUT)              GETCOM / PUTCOM                 SUP03560
         DC    Y(TS$SCHDL)              ASCKE                           SUP03570
         DC    Y(TK$ATCH)               ATTACH                          SUP03580
         ENDO                                                           SUP03590
*                                                                       SUP03600
SV$NUM   EQU   (*-SV$SVC)/2                                             SUP03610
                                                                EJECT   SUP03760
*                                                                       SUP03770
***      TABLE OF COUNTERS ASSOCIATED WITH FILE AND TABLE LOCK FUNCTION SUP03780
*                                                                       SUP03790
SL$LNGTH EQU   16+16*&GS$ULCK                                           SUP03800
         DS    0F                                                       SUP03810
         DO    &GS$RLCK=0                                               SUP03820
         ENTRY SL$CTLCK                                                 SUP03830
SL$CTLCK DC    Y(0)                                                     SUP03840
         ENDO                                                           SUP03850
SL$TABL  DC    XL(SL$LNGTH*4)'0'        TABLE OF COUNTS                 SUP03860
         DO    &GS$TIME<2                                               SUP03870
         SPACE 10                                                       SUP03880
*                                                                       SUP03890
***      GETIME PROCESSING FOR SUPERVISORS CONFIGURED WITH BASIC ONLY   SUP03900
*              OR NO TIMER SERVICES. RETURNS DATE IN USER R0.           SUP03910
*              RS$PRE=AD. OF CALLING JOB'S PREAMBLE                     SUP03920
*              RS$TCB=AD. OF CALLING TCB                                SUP03930
*                                                                       SUP03940
         USING JP$PRE,RS$PRE                                            SUP03950
         USING JT$TCB,RS$TCB                                            SUP03960
*                                                                       SUP03970
SC$GET&GS$TIME  DS    0H                                                SUP03980
         MVC   JT$SA(4),JP$DAT                                          SUP03990
         BR    RS$SWT                                                   SUP04000
         DROP  RS$PRE,RS$TCB                                            SUP04010
         ENDO                                                           SUP04020
                                                              EJECT     SUP04030
*                                                                       SUP04040
***      SVC ENTRY MODULES FOR NON-RESIDENT SVC CALLABLE ROUTINES WHICH SUP04050
*        ARE NOT INTERFACED VIA TRANSIENT MANAGEMENT                    SUP04060
         DO    &GS$COMM=1                                               SUP04070
SM$COMM  DS    0H                                                       SUP04080
         USING SB$SIB,RS$SBA                                            SUP04090
         USING *,RS$SCOV                                                SUP04100
         L     R3,SB$CSVCD              ENTRY TO COMM SVC DECODE        SUP04110
         LTR   R3,R3                                                    SUP04120
         BNZR  R3                                                       SUP04130
         LH    R3,SL$INVAL                                              SUP04140
         BR    R3                                                       SUP04150
         DROP  RS$SCOV                                                  SUP04160
         DROP  RS$SBA                                                   SUP04170
         ENDO                                                           SUP04180
         DO    &GS$SPM=1                                                SUP04190
SM$SPM   DS    0H                                                       SUP04200
         USING SB$SIB,RS$SBA                                            SUP04210
         USING *,RS$SCOV                                                SUP04220
         L     R3,SB$SMSVC              ENTRY TO SPM SVC                SUP04230
         LTR   R3,R3                                                    SUP04240
         BNZR  R3                                                       SUP04250
         LH    R3,SL$INVAL                                              SUP04260
         BR    R3                                                       SUP04270
         DROP  RS$SCOV                                                  SUP04280
         DROP  RS$SBA                                                   SUP04290
         ENDO                                                           SUP04300
         DO    (&GS$COMM=1)++(&GS$SPM=1)                                SUP04310
         EXTRN TS$INVAL                                                 SUP04320
SL$INVAL DC    Y(TS$INVAL)                                              SUP04330
         ENDO                                                           SUP04340
         EJECT                                                          SUP04350
*                                                                       SUP04360
*        SYMBIONT REQUEST QUEUE BIT MAP (USED ONLY BY SIT TRANSIENTS)   SUP04370
*              1 BIT PER SRB SLOT IN OSRQ ON SYSRES.                    SUP04380
*              WORD 0=SLOTS 31-0, WORD 1=SLOTS 63-32, ETC.              SUP04390
*              1=SLOT IS BUSY,  0=SLOT IS FREE                          SUP04400
*                                                                       SUP04410
         DO    (&GS$MIN)**(&GS$SPM=0)                                   SUP04415
SS$SQMAP EQU   *                        NO SPM - USE LAST WORD OF
         ORG   SB$SMPCW+16                   5-WORD AREA IN SIB
         ENDO
SR$SQMAP DS    0F                                                       SUP04420
         DC    XL((SBSRQNO+31)/32*4)'0'                                 SUP04430
         DO    (&GS$MIN)**(&GS$SPM=0)                                   SUP04435
         ORG   SS$SQMAP
         ENDO
*                                                                       SUP04440
*        SINGLE-COPY-SYMBIONT RESIDENT TABLE                            SUP04450
*              4-BYTE ENTRIES AS FOLLOWS:                               SUP04460
*                   BYTE 0=COUNT OF JOBS REQUIRING SYMBIONT             SUP04470
*                   BYTES 1-3=PREAMBLE AD. OF SYMBIONT                  SUP04480
*                                                                       SUP04490
         DO    &GS$SPM=0                                                SUP04495
SS$SMTAB EQU   *                        NO SPM - USE FIRST 4 WDS OF
         ORG   SB$SMPCW                      5-WD PARAM AREA IN SIB
         ENDO
SY$SMTAB DS    0F                                                       SUP04500
         DC    F'0'                     ICAM COUNT / PREAMBLE AD.       SUP04510
         DC    F'0'                     MONITOR COUNT / PREAMBLE AD.    SUP04520
         DC    F'0'                     SPOOLER COUNT / PREAMBLE AD.    SUP04530
         DC    F'0'                     TEST SYMB. COUNT / PREAMBLE AD. SUP04540
         DO    &GS$SPM=0                                                SUP04545
         ORG   SS$SMTAB
         ENDO
         DO    &GS$ERLG                                                 SUP04550
*                                                                       SUP04560
*        ERROR LOG RESIDENT CONTROL TABLE                               SUP04570
*              CORRESPONDS TO DSECT IE$ELTB                             SUP04580
*                                                                       SUP04590
IE$ELTAB DS    0F                                                       SUP04600
         DC    XL(IE$LGTH)'0'                                           SUP04610
         ENDO                                                           SUP04620
         DO    &GS$MCON                                                 SUP04630
*                                                                       SUP04640
*        MEMORY CONSOLIDATION SAVE AREA                                 SUP04650
*              USED BY GETJOB TRANSIENT WHILE MEMCON OPERATES           SUP04660
*                                                                       SUP04670
MC$SAVE  DS    0F                                                       SUP04680
         DC    XL36'0'                                                  SUP04690
         ENDO                                                           SUP04700
                                                                 EJECT  SUP04710
*                                                                       SUP04720
*        GENERATE SOA AND TRANSIENT AREAS IN ANOTHER CSECT              SUP04730
*              ALSO SPOOLING CONTROL TABLE, IF CONFIGURED               SUP04740
*                                                                       SUP04750
SM$TAB   CSECT                                                          SUP04760
         DO    &GP$SPOL                                                 SUP04770
*                                                                       SUP04780
*        SPOOLING CONTROL TABLE                                         SUP04790
*                                                                       SUP04800
         ENTRY SR$SSCT                                                  SUP04810
         DS    0F                                                       SUP04820
         CNOP  0,8                                                      SUP04830
SR$SSCT  EQU   *                                                        SUP04840
         DC    4XL(SP$LNGTH/4)'0'                                       SUP04850
*                                                                       SUP04860
         ORG   SR$SSCT+(SP$LOGTK-SP$SSCT)                               SUP04870
         DC    A(40)                                                    SUP04880
         ORG   SR$SSCT+(SP$BTMAP-SP$SSCT)                               SUP04930
         DC    A(SR$BTMAP)                                              SUP04940
         ORG   SR$SSCT+(SP$BTMND-SP$SSCT)                               SUP04950
         DC    A(SR$BTMAP+&GP$BTMP*4)                                   SUP04960
*                                                                       SUP04970
         EXTRN SM$VDSLB,SM$VDSUB,SM$VDSLK,SM$VDSUL,SM$VDSGB             SUP04980
         ORG   SR$SSCT+(SP$LKBIT-SP$SSCT)                               SUP04990
         DC    A(SM$VDSLB)                                              SUP05000
         ORG   SR$SSCT+(SP$ULBIT-SP$SSCT)                               SUP05010
         DC    A(SM$VDSUB)                                              SUP05020
         ORG   SR$SSCT+(SP$LOCK-SP$SSCT)                                SUP05030
         DC    A(SM$VDSLK)                                              SUP05040
         ORG   SR$SSCT+(SP$ULOCK-SP$SSCT)                               SUP05050
         DC    A(SM$VDSUL)                                              SUP05060
         ORG   SR$SSCT+(SP$GETBT-SP$SSCT)                               SUP05070
         DC    A(SM$VDSGB)                                              SUP05080
         ORG   SR$SSCT+(SP$SUBDI-SP$SSCT)                               SUP05090
         DC    Y(3+4*&GP$RBP+2*&GP$INPS*(&GP$RBP=0))                    SUP05100
*                                                                       SUP05110
         ORG   SR$SSCT+(SP$VOLMX-SP$SSCT)                               SUP05120
         DC    Y(&GP$VOLS)
         ORG   SR$SSCT+(SP$PUBTB-SP$SSCT)
         DC    A(SR$PUBTB)
         ORG   SR$SSCT+(SP$LISTB-SP$SSCT)
         DC    A(SR$LISTB)
         ORG   SR$SSCT+(SP$EXTAD-SP$SSCT)
         DC    A(SR$EXTAD)
*                                                                       SUP05230
         ORG   SR$SSCT+(SP$PCA-SP$SSCT)                                 SUP05240
SR$SPPCA PCA   BLKSIZE=256,IOAREA1=SR$SPPCA,SIZE=100                    SUP05250
*                                                                       SUP05260
         ORG   SR$SSCT+(SP$ECB-SP$SSCT)                                 SUP05270
         ENTRY SR$ECB                                                   SUP05280
SR$ECB   DC    XL4'84000000'            (WAIT BIT ON)                   SUP05290
         DC    A(SM$VDTCB)                                              SUP05300
         ORG   SR$SSCT+(SP$Q-SP$SSCT)                                   SUP05310
         DC    A(0)                                                     SUP05320
         ORG   SR$SSCT+(SP$QT-SP$SSCT)                                  SUP05330
         DC    A(SR$SSCT+(SP$Q-SP$SSCT)-(IC$RBC-IC$CCB))                SUP05340
         ORG   SR$SSCT+(SP$CCBQN-SP$SSCT)                               SUP05350
         DC    H'-1'                                                    SUP05360
*                                                                       SUP05370
         ORG   SR$SSCT+(SP$ECBBT-SP$SSCT)                               SUP05380
         ENTRY SR$ECBBT                                                 SUP05390
SR$ECBBT ECB                                                            SUP05400
         ORG   SR$SSCT+(SP$BTFST-SP$SSCT)                               SUP05410
         DC    A(0)                                                     SUP05420
         ORG   SR$SSCT+(SP$BTLST-SP$SSCT)                               SUP05430
         DC    A(SR$SSCT+(SP$BTFST-SP$SSCT)-(FS$NXSCT-FS$FSCT))         SUP05440
         ORG   SR$SSCT+(SP$BTNO-SP$SSCT)                                SUP05450
         DC    H'-1'                                                    SUP05460
*                                                                       SUP05470
         ORG   SR$SSCT+(SP$ECBDR-SP$SSCT)                               SUP05480
         ENTRY SR$ECBDR                                                 SUP05490
SR$ECBDR ECB                                                            SUP05500
         ORG   SR$SSCT+(SP$DRFST-SP$SSCT)                               SUP05510
         DC    A(0)                                                     SUP05520
         ORG   SR$SSCT+(SP$DRLST-SP$SSCT)                               SUP05530
         DC    A(SR$SSCT+(SP$DRFST-SP$SSCT)-(FS$NXSCT-FS$FSCT))         SUP05540
         ORG   SR$SSCT+(SP$DRNO-SP$SSCT)                                SUP05550
         DC    H'-1'                                                    SUP05560
*                                                                       SUP05570
         ORG   SR$SSCT+(SP$ECBER-SP$SSCT)                               SUP05580
         ENTRY SR$ECBER                                                 SUP05590
SR$ECBER ECB                                                            SUP05600
         ORG   SR$SSCT+(SP$ERLST-SP$SSCT)                               SUP05610
         DC    A(SR$SSCT+(SP$ERFST-SP$SSCT)-(FS$NXSCT-FS$FSCT))         SUP05620
         ORG   SR$SSCT+(SP$ERNO-SP$SSCT)                                SUP05630
         DC    Y(-1)                                                    SUP05640
*                                                                       SUP05720
         EXTRN SPTKISU4,SPTKGNRQ,SPTKUP30,SPTKBKCP                      SUP05730
         EXTRN SPTKQBF0                                                 SUP05740
         ORG   SR$SSCT+(SP$CONT1-SP$SSCT)                               SUP05750
         DC    A(SPTKISU4)                                              SUP05760
         ORG   SR$SSCT+(SP$CONT2-SP$SSCT)                               SUP05770
         DC    A(SPTKGNRQ)                                              SUP05780
         ORG   SR$SSCT+(SP$CONT3-SP$SSCT)                               SUP05790
         DC    A(SPTKUP30)                                              SUP05800
         ORG   SR$SSCT+(SP$CONT4-SP$SSCT)                               SUP05810
         DC    A(SPTKBKCP)                                              SUP05820
         ORG   SR$SSCT+(SP$CONT5-SP$SSCT)                               SUP05830
         DC    A(SPTKQBF0)                                              SUP05840
*                                                                       SUP05850
         ORG   SR$SSCT+BL$LOGTP/256                                     SUP05860
         DC    YL1((BL$LOGTP**255)*(&GP$LGTP>0)+(BL$LOGTC**255)*(&GP$LG;SUP05870
               TP=2)+(BL$NOLOG**255)*(&GP$PRLG>1)+(BL$NOACT**255)*(&GP$;SUP05880
               PRLG**1))
         ORG   SR$SSCT+(SP$BPSZ-SP$SSCT)                                SUP05910
         DC    YL1(&GP$BPSZ)                                            SUP05920
         ORG   SR$SSCT+(SP$BHLST-SP$SSCT)                               SUP05930
         DC    A(SR$SSCT+(SP$BHFST-SP$SSCT)-(SM$ECNXT-SM$VDECB))        SUP05940
         ORG   SR$SSCT+(SP$BHLOC-SP$SSCT)                               SUP05950
         DC    X'FFFF'                                                  SUP05960
*                                                                       SUP05970
         ORG   SR$SSCT+(SP$ICAM-SP$SSCT)                                SUP05980
         DO    '&GP$ICAM'='0'                                           SUP05990
         DC    CL2'  '                                                  SUP06000
         ENDO                                                           SUP06010
         DO    ('&GP$ICAM'='0')=0                                       SUP06020
         DC    CL2'&GP$ICAM'                                            SUP06030
         ENDO                                                           SUP06040
*                                                                       SUP06045
         DO    &GP$CNLG>0
         ORG   SR$SSCT+(SP$CNLGA-SP$SSCT)
         DC    A(SR$CNLG)
         ORG   SR$SSCT+(SP$CNLGL-SP$SSCT)
SR$CNLGL EQU   304+256*(&GP$CNLG>1)+512*(&GP$CNLG>2)
         DC    Y(SR$CNLGL)
         ORG   SR$SSCT+(SP$CLGFT-SP$SSCT)
         DC    A(SR$CLGFT)
         ENDO
*                                                                       SUP06050
         DO    &GP$BRST=1                                               SUP06060
         ORG   SR$SSCT+(SP$CRID-SP$SSCT)                                SUP06070
         DC    YL1(&GP$CRID)                                            SUP06080
         ORG   SR$SSCT+(SP$OWCRI-SP$SSCT)                               SUP06090
         DO    &GP$CRID=6=0                                             SUP06100
         DC    CL8'&GP$OWCR'                                            SUP06110
         ENDO                                                           SUP06120
*                                                                       SUP06130
         DO    &GP$CRID=6               CONVERT TO TYPE CODE            SUP06140
         DO    '&GP$OWCR'='0770'                                        SUP06150
         DC    X'0480'                  770                             SUP06160
         ENDO                                                           SUP06170
         DO    '&GP$OWCR'='0773'                                        SUP06180
         DC    X'0440'                  773                             SUP06190
         ENDO                                                           SUP06200
         DO    '&GP$OWCR'='0768'                                        SUP06210
         DC    X'0420'                  768                             SUP06220
         ENDO                                                           SUP06230
         DO    '&GP$OWCR'='0776'                                        SUP06240
         DC    X'0410'                  776                             SUP06250
         ENDO                                                           SUP06260
         DO    ('&GP$OWCR'='9200')++('&GP$OWCR'='9300')                 SUP06270
         DC    X'0408'                  92/9300                         SUP06280
         ENDO                                                           SUP06290
         ENDO                                                           SUP06300
         ENDO                                                           SUP06305
*                                                                       SUP06310
         ORG   SR$SSCT+BL$BURST/256                                     SUP06320
         DC    YL1((BL$BURST**255)*(&GP$BRST)+(BL$NOSEP**255)*(&GP$PRSP;SUP06330
               =0))                                                     SUP06340
         ORG   SR$SSCT+SP$LNGTH                                         SUP06350
         SPACE 10                                                       SUP06360
*        SPOOLING SUB-DIRECTORIES                                       SUP06370
*              1=LOG                                                    SUP06380
*              2=PRT                                                    SUP06390
*              3=PNCH                                                   SUP06400
*              4=RDR (IF INPUT SPOOLING OR RBP)                         SUP06410
*              5=JCS (IF INPUT SPOOLING OR RBP)                         SUP06420
*              6=RPR (IF RBP)                                           SUP06430
*              7=RPU (IF RBP)                                           SUP06440
*                                                                       SUP06450
         DS    0F                                                       SUP06460
&C       DO    3+4*&GP$RBP+2*&GP$INPS*(&GP$RBP=0)                       SUP06470
*                                                                       SUP06480
DE$&C    DC    XL(DE$LNGTH)'0'                                          SUP06490
         ORG   DE$&C+DE$DHLST-DE$DIREN                                  SUP06500
         DC    A(DE$&C-(SM$ECNXT-SM$VDECB))                             SUP06510
         ORG   DE$&C+DE$ID-DE$DIREN                                     SUP06520
         DC    YL1(&C)                                                  SUP06530
         ORG   DE$&C+DE$DHLOC-DE$DIREN                                  SUP06540
         DC    X'FFFF'                                                  SUP06550
         ORG   DE$&C+DE$LNGTH                                           SUP06560
         ENDO                                                           SUP06570
         SPACE 10                                                       SUP06575
*        SPOOL PUB CONTROL TABLE
*
SR$PUBTB DS    0D
&A       DO    &GP$VOLS
SR$PBTB&A DS    0D
         DC    2XL(SP$PBTBL/2)'0'
&X       SET   &A*2-1
&Y       SET   &X+1
         ORG   SR$PBTB&A+(SP$DTF1-SP$PBTB)
SR$SPDF&X DTFPF ERROR=CTSPDERR,PCA1=SR$SPPCA
         ORG   SR$SPDF&X+(SP$DTNXT-ST$DTF)
         DC    A(SR$SPDF&Y)
*
         ORG   SR$PBTB&A+(SP$DTF2-SP$PBTB)
SR$SPDF&Y DTFPF ERROR=CTSPDERR,PCA1=SR$SPPCA
         ORG   SR$SPDF&Y+(SP$DTNXT-ST$DTF)
&Y       SET   &Y*(&A=&GP$VOLS=0)+1
         DC    A(SR$SPDF&Y)
*
         ORG   SR$PBTB&A+(SP$VSN-SP$PBTB)
         DO    &A=1
         DC    CL6'&GP$VSN'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL)
         ENDO
         DO    &A=2
         DC    CL6'&GP$VSN2'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL2)
         ENDO
         DO    &A=3
         DC    CL6'&GP$VSN3'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL3)
         ENDO
         DO    &A=4
         DC    CL6'&GP$VSN4'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL4)
         ENDO
         DO    &A=5
         DC    CL6'&GP$VSN5'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL5)
         ENDO
         DO    &A=6
         DC    CL6'&GP$VSN6'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL6)
         ENDO
         DO    &A=7
         DC    CL6'&GP$VSN7'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL7)
         ENDO
         DO    &A=8
         DC    CL6'&GP$VSN8'
         ORG   SR$PBTB&A+(SP$CYL-SP$PBTB)
         DC    Y(&GP$CYL8)
         ENDO
         ORG   SR$PBTB&A+SP$PBTBL
*
         ENDO
         SPACE 10
*        SPOOL WAIT LIST
*
SR$LISTB DS    0F
         DC    XL(24*&GP$VOLS)'0'
*
*        SPOOL EXTENT REQUEST BLOCK (ERB)
*
SR$EXTAD DS    0F
         DC    2XL((56+32*&GP$VOLS)/2)'0'
         SPACE 10                                                       SUP06580
*        SPOOLING BIT MAP                                               SUP06590
*              (INITIALIZED DYNAMICALLY BY SPOOLING INIT. SYMBIONT)     SUP06600
*                                                                       SUP06610
SR$BTMAP DS    0F                                                       SUP06620
         DS    XL(&GP$BTMP*4)                                           SUP06630
         ENDO                                                           SUP06650
         DO    &GP$CNLG>0                                               SUP06652
         SPACE 10
*        CONSOLE LOG BUFFER
*
SR$CNLG  DS    0F
         DC    8XL(SR$CNLGL/8)'0'
*
SR$CLGFT DS    0F
         DC    2XL(FS$LNGTH/2)'0'
         ENDO
         DO    &GS$SHAR>0                                               SUP06655
         EJECT
***      SHARED CODE DIRECTORY
*              CONFIGURABLE NO. OF ENTRIES.
*              EACH SLOT HOLDS ONE SCDB (DSECT MS$SCDB)
*
SR$SCD   DS    0F
         DO    &GS$SHAR
         DC    XL(MS$SCDBL)'0'
         ENDO
         DC    XL2'FFFF'                TERMINATION FLAG
         ENDO
         ENTRY SO$TCB,TA$TCB1                                           SUP06660
         GENSOA                                                         SUP06670
         GENTRAN &GS$TRAN                                               SUP06680
         EJECT                                                          SUP06690
**********************************************************************  SUP06700
**********************************************************************  SUP06710
*                                                                       SUP06720
SM$INIT  CSECT                                                          SUP06730
*                                                                       SUP06740
***      LOAD SUPERVISOR INITIALIZATION                                 SUP06750
*              THIS CSECT MUST BE LINKED AT THE END OF THE SUPERVISOR.  SUP06760
*              RUNS AS A SYMBIONT - NEEDS PREAMBLE AND TCB.             SUP06770
*              THIS CODE WILL BE CLEARED AT THE END OF SL$INT (SUP.     SUP06780
*              INITIALIZATION LOAD MODULE).                             SUP06790
*                                                                       SUP06800
*                                                                       SUP06810
*        PREAMBLE FOR SUPERVISOR INITIALIZATION                         SUP06820
*                                                                       SUP06830
SR$INPRE DS    0F                                                       SUP06840
         DC    XL(JP$LNGTH)'0'                                          SUP06850
         ORG   SR$INPRE+MM$TYP-MM$MCB                                   SUP06855
         DC    YL1(MM$SYMB)
         ORG   SR$INPRE+JP$RLFLG-JP$PRE                                 SUP06860
         DC    X'0C'                    RUN LIB IS SEARCHED 2ND         SUP06870
         ORG   SR$INPRE+JP$LLFLG-JP$PRE                                 SUP06880
         DC    X'0'                     LOAD LIB. IS SEARCHED 1ST       SUP06890
         ORG   SR$INPRE+(JP$LOD-JP$PRE)+(DJ$LODST-DJ$LOD)               SUP06900
         DC    A(1)                     START SEARCH AT LIB. START      SUP06910
         ORG   SR$INPRE+JP$JOB-JP$PRE                                   SUP06920
         DC    XL4'3000'                ALLOW 12K FOR SUP. INIT.        SUP06930
         ORG   SR$INPRE+JP$JSB-JP$PRE                                   SUP06940
         DC    A(SR$INIT2)              AD. OF SUP. INIT. LOAD AREA     SUP06950
         ORG   SR$INPRE+JP$LNGTH                                        SUP06960
*                                                                       SUP06970
*        TCB FOR SUPERVISOR INITIALIZATION                              SUP06980
*                                                                       SUP06990
         CNOP  0,8                                                      SUP07000
SR$INTCB DS    0F                                                       SUP07010
         DC    XL(JT$LNGTH)'0'                                          SUP07020
         ORG   SR$INTCB+JT$LNK-JT$TCB                                   SUP07030
         DC    A(SR$INTCB)              FORWARD LINK                    SUP07040
         ORG   SR$INTCB+JT$RLNK-JT$TCB                                  SUP07050
         DC    A(SR$INTCB)              REVERSE LINK                    SUP07060
         ORG   SR$INTCB+JT$PRE-JT$TCB                                   SUP07070
         DC    A(SR$INPRE)              PREAMBLE AD.                    SUP07080
         ORG   SR$INTCB+JT$QID-JT$TCB                                   SUP07090
         DC    YL1(SW$QIDUS)            QID                             SUP07100
         ORG   SR$INTCB+JT$PSW-JT$TCB                                   SUP07110
         SYSPSW SR$INIT                                                 SUP07120
         ORG   SR$INTCB+JT$SA+52-JT$TCB                                 SUP07130
         DC    A(SR$INPRE)              R13=PREAMBLE AD.                SUP07140
         DC    A(SR$INTCB)              R14=TCB AD.                     SUP07150
         DC    A(SR$INIT)               R15=COVER                       SUP07160
         ORG   SR$INTCB+JT$LNGTH                                        SUP07170
*                                                                       SUP07180
*        CHANGES TO LOGICAL UNIT TABLE                                  SUP07190
*              UP TO 127 5-BYTE "CHANGE" RECORDS, AS FOLLOWS:           SUP07200
*                   BYTE 0=LOGICAL UNIT NO. TO CHANGE (1-127)           SUP07210
*                   BYTES 1-4=NEW VALUE FOR THAT LOGICAL UNIT NO.       SUP07220
*              OPTIONALLY FILLED IN BY SYSGEN WITH BACKWARD ORG.        SUP07230
*              MUST IMMEDIATELY FOLLOW SUP. INIT. TCB.                  SUP07240
*                                                                       SUP07250
SR$LUTC  DS    0F                                                       SUP07260
         DC    XL200'0'                                                 SUP07270
         DC    XL200'0'                                                 SUP07280
         DC    XL235'0'                                                 SUP07290
         DC    XL1'0'                   SUP. INIT. TERMINATES ON 0      SUP07300
SR$LUTCL EQU   640                      SUP. INIT. ASSUMES LENGTH=640   SUP07310
*                                                                       SUP07320
*        DEFAULT PRINTER LOAD CODE & VERTICAL FORMAT BUFFERS.           SUP07330
*              THESE LCB/VFB'S ARE USED WHEN THOSE SPECIFIED IN THE     SUP07340
*                   PUB TRAILER HAVE NOT BEEN SET UP BY USER.           SUP07350
*              10-BYTE ENTRIES, AS FOLLOWS:                             SUP07360
*                   CHAR. 0=PRINTER TYPE CODE                           SUP07370
*                   CHAR. 1=PRINTER BUFFER TYPE (L OR V)                SUP07380
*                   CHARS. 2-9=DEFAULT BUFFER NAME                      SUP07390
*              THIS TABLE MUST IMMEDIATELY FOLLOW LUT CHANGE TABLE.     SUP07400
*                                                                       SUP07410
         ORG   SR$LUTC+SR$LUTCL                                         SUP07420
SR$LCVF  EQU   *                                                        SUP07430
         DC    CL10'3L&GS$73LC'         773 DEFAULT LCB                 SUP07440
         DC    CL10'3V&GS$73VF'         773 DEFAULT VFB                 SUP07450
         DC    CL10'0L&GS$70LC'         770 DEFAULT LCB                 SUP07460
         DC    CL10'0V&GS$70VF'         770 DEFAULT VFB                 SUP07470
         DC    CL10'8L&GS$68LC'         768 DEFAULT LCB                 SUP07480
         DC    CL10'8V&GS$68VF'         768 DEFAULT VFB                 SUP07490
         DC    CL10'6L&GS$76LC'         776 DEFAULT LCB                 SUP07500
         DC    CL10'6V&GS$76VF'         776 DEFAULT VFB                 SUP07510
         DC    CL10'9L'                 9300 DEFAULT LCB (NOT NEEDED)   SUP07520
         DC    CL10'9V&GS$93VF'         9300 DEFAULT VFB                SUP07530
SR$LCVFL EQU   100                      SUP INIT. ASSUMES LENGTH=100    SUP07540
         EJECT                                                          SUP07550
*                                                                       SUP07560
*        SET UP AND LOAD SUPERVISOR INITIALIZATION                      SUP07570
*                                                                       SUP07580
         DS    0H                                                       SUP07590
         USING JP$PRE,RS$PRE                                            SUP07600
         USING JT$TCB,RS$TCB                                            SUP07610
         USING *,R15                                                    SUP07620
*                                                                       SUP07630
SR$INIT  EQU   *                        SWITCHER GIVES CONTROL HERE     SUP07640
         NOP   *                        (FOR PATCHING HPR)              SUP07650
         LH    RS$SBA,HA$SIB                                            SUP07660
         USING SB$SIB,RS$SBA                                            SUP07670
*                                       SET UP TCB LENGTH (BASED ON     SUP07680
*                                            WHETHER FLOATING PT.)      SUP07690
         LA    R1,JT$NOFPT                                              SUP07700
         TSTBIT BB$FPT,SB$SIB                                           SUP07710
         BNO   SR$INIT0                                                 SUP07720
         LA    R1,JT$LNGTH                                              SUP07730
SR$INIT0 STH   R1,SB$JTLNG                                              SUP07740
*                                                                       SUP07750
         MVC   JP$LOD+DJ$LODPB-DJ$LOD(2),SB$RES   LOAD LIB PUB AD.      SUP07760
         MVC   JP$LOD+DJ$LODF2-DJ$LOD(4),SB$LL2   LOAD LIB FORMAT 2 AD. SUP07770
*                                       ALLOCATE SYSRES FOR LOADER      SUP07780
         LH    R1,SB$RES                                                SUP07790
         USING IP$PUB,R1                                                SUP07800
         OI    IP$ALC,1                                                 SUP07810
         DROP  R1                                                       SUP07820
*                                       LOAD SL$INT AT SR$INIT2         SUP07830
         LOAD  SL$INT00,,SR$INIT1                                       SUP07840
         B     SR$INIT2                                                 SUP07850
*                                       ERROR LOADING SUP. INIT.        SUP07860
SR$INIT1 EQU   *                                                        SUP07870
         STC   R0,*+7                                                   SUP07880
         HPR   X'200',X'02'             *** HALT ON LOAD ERROR ***      SUP07890
         B     *-4                                                      SUP07900
*                                                                       SUP07910
         CNOP  0,8                                                      SUP07920
SR$INIT2 EQU   *                                                        SUP07930
         END                                                            SUP07940
