         PROC  &P,0,&REGS=,&TCB=,&PRE=,&SIB=,&IO=,&TRN=                 SUP00010
SUPEQU   NAME                                                           SUP00020
         LCL   &ALL                                                     SUP00025
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SUP00030
*                                                                    *  SUP00040
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  SUP00050
*                                                                    *  SUP00060
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  SUP00070
*                                                                    *  SUP00080
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SUP00090
         DO    0                                                        SUP00100
*                                                                       SUP00110
.*       SUPEQU REGS=YES,TCB=YES,PRE=YES,SIB=YES,IO=YES,TRN=YES         SUP00120
.*   OR  SUPEQU REGS=NO,TCB=NO,PRE=NO,SIB=NO,IO=NO,TRN=NO
*                                                                       SUP00130
         ENDO                                                           SUP00140
&ALL     SET   (('&REGS'='YES')+('&TCB'='YES')+('&PRE'='YES')+('&SIB'='CSUP00145
               YES')+('&IO'='YES')+('&TRN'='YES'))=0
***      STANDARD EQUATES                                               SUP00150
         DO    ('&REGS'='YES')++(&ALL**('&REGS'='NO'=0))                SUP00155
*                                                                       SUP00160
*        PROBLEM REGISTERS                                              SUP00170
*                                                                       SUP00180
R0       EQU   0                        REGISTER 0                      SUP00190
R1       EQU   1                        REGISTER 1                      SUP00200
R2       EQU   2                        REGISTER 2                      SUP00210
R3       EQU   3                        REGISTER 3                      SUP00220
R4       EQU   4                        REGISTER 4                      SUP00230
R5       EQU   5                        REGISTER 5                      SUP00240
R6       EQU   6                        REGISTER 6                      SUP00250
R7       EQU   7                        REGISTER 7                      SUP00260
R8       EQU   8                        REGISTER 8                      SUP00270
R9       EQU   9                        REGISTER 9                      SUP00280
R10      EQU   10                       REGISTER 10                     SUP00290
R11      EQU   11                       REGISTER 11                     SUP00300
R12      EQU   12                       REGISTER 12                     SUP00310
R13      EQU   13                       REGISTER 13                     SUP00320
R14      EQU   14                       REGISTER 14                     SUP00330
R15      EQU   15                       REGISTER 15                     SUP00340
*                                                                       SUP00350
*        SUPERVISOR REGISTERS                                           SUP00360
*                                                                       SUP00370
RS$R0    EQU   R0                       INTERRUPTED JOB'S R0            SUP00380
RS$R1    EQU   R1                       INTERRUPTED JOB'S R1            SUP00390
RS$SCOV  EQU   R2                       SUP. RESIDENT ROUTINE COVER     SUP00400
RS$SVT   EQU   R3                       AD. OF SVC TABLE                SUP00410
RS$LSVC  EQU   R4                       UPPER LIMIT SVC CODES           SUP00420
RS$TAN   EQU   R5                       AD. OF 1ST NON-CRIT TRANS. AREA SUP00430
RS$TRC   EQU   R6                       NO. OF NON-CRIT. TRANS. AREAS   SUP00440
RS$SPBAS EQU   R6                       SPM BUFFER POINTER              SUP00450
RS$PBC   EQU   R7                       NO. OF PUB'S                    SUP00460
RS$PUB   EQU   R8                       AD. OF 1ST PUB                  SUP00470
RS$SOS   EQU   R9                       AD. OF SOS TCB                  SUP00480
RS$SWL   EQU   R10                      SCRATCH REGISTER                SUP00490
RS$SPCVR EQU   R10                      SPM PROGRAM COVER               SUP00500
RS$SBA   EQU   R11                      AD. OF SIB                      SUP00510
RS$BAS   EQU   R12                      ACTIVE JOB'S BASE AD.           SUP00520
RS$PRE   EQU   R13                      ACTIVE JOB'S PREAMBLE AD.       SUP00530
RS$TCB   EQU   R14                      ACTIVE JOB'S TCB AD.            SUP00540
RS$SWT   EQU   R15                      AD. OF SWITCHER                 SUP00550
RS$COV   EQU   R15                      TRANSIENT COVER                 SUP00560
         ENDO                                                           SUP00565
         DO    &ALL
*                                                                       SUP00570
*        OLD PSW'S                                                      SUP00580
*                                                                       SUP00590
HP$OIO   EQU   X'20'                    I/O                             SUP00600
HP$OMC   EQU   X'30'                    MACHINE CHECK                   SUP00610
HP$OPE   EQU   X'40'                    PROGRAM EXCEPTION               SUP00620
HP$OSV   EQU   X'50'                    SUPERVISOR CALL                 SUP00630
HP$OIT   EQU   X'60'                    INTERVAL TIMER                  SUP00640
HP$OMN   EQU   X'80'                    MONITOR                         SUP00650
*                                                                       SUP00660
*        NEW PSW'S                                                      SUP00670
*                                                                       SUP00680
HP$NIO   EQU   X'28'                    I/O                             SUP00690
HP$NMC   EQU   X'38'                    MACHINE CHECK                   SUP00700
HP$NPE   EQU   X'48'                    PROGRAM EXCEPTION               SUP00710
HP$NSV   EQU   X'58'                    SUPERVISOR CALL                 SUP00720
HP$NIT   EQU   X'68'                    INTERVAL TIMER                  SUP00730
HP$NMN   EQU   X'88'                    MONITOR                         SUP00740
*                                                                       SUP00750
*        EQUATES GIVING DISPLACEMENTS TO TABLES STORED IN TRANSIENT FIL SUP00760
*                                                                       SUP00770
TF$SWLS  EQU   1                        DISP. TO SWLS MICRO CODE        SUP00780
TF$1STLN EQU   11                       FIRST LINE OF DISPLAY WRITTEN B SUP00790
TF$SVUT  EQU   12                       DISP. TO SYSTEM VOLUME USE TABL SUP00800
TF$PREQ  EQU   19                       DISP. TO PREMPTIVE JOB QUEUE    SUP00810
TF$HIQUE EQU   23                       DISP. TO HI PRI JOB QUEUE       SUP00820
TF$LOQUE EQU   27                       DISP. TO LO PRI JOB QUEUE       SUP00830
*                                       31-40 UNUSED                    SUP00840
TF$LUT   EQU   41                       DISP. TO LOGICAL UNIT TABLE     SUP00850
*                                                                       SUP00855
TF$OSRQL EQU   24                       NO OF SECTORS IN OSRQ (SO$OSRQ)
*                                                                       SUP00860
*                                                                       SUP00870
*         SYSTEM FILE AND TABLE LOCK FLAGS                   *********  SUP00880
*         BIT NAMES TO BE USED WITH THE SETLOCK, SETUSER, CLRLOCK, AND  SUP00890
*         CLRUSER MACROS.                                               SUP00900
*                                                                       SUP00910
BL$VTOC  EQU   X'8000'                  VTOC LOCK MASK                  SUP00920
BL$PUBS  EQU   X'4000'                  PUB ALLOCATION LOCK MASK        SUP00930
BL$QTAB  EQU   X'2000'                  JOB QUEUE LOCK MASK             SUP00940
BL$SVUT  EQU   X'1000'                  SYS. VOLUME USE TABLE LOCK MASK SUP00950
BL$OSRQ  EQU   X'800'                   SYMB. REQUEST QUEUE LOCK MASK   SUP00960
BL$JCSL  EQU   X'80'                    SYSTEM JCS LIBRARY LOCK MASK    SUP00970
BL$SRCL  EQU   X'40'                    SYSTEM SOURCE LIBRARY LOCK MASK SUP00980
BL$MACL  EQU   X'20'                    SYSTEM MACRO LIBRARY LOCK MASK  SUP00990
BL$OBJL  EQU   X'10'                    SYSTEM OBJECT LIBRARY LOCK MASK SUP01000
BL$LODL  EQU   X'8'                     SYSTEM LOAD LIBRARY LOCK MASK   SUP01010
BL$CATL  EQU   X'4'                     SYSTEM CATALOGUE FILE LOCK MASK SUP01020
*                                                                       SUP01030
*                                                                       SUP01040
HA$BDMP  EQU   0                        PERM. BRANCH TO DUMP            SUP01050
HA$SIB   EQU   6                        STORAGE FOR SIB ADDRESS         SUP01060
HA$SWT   EQU   8                        STORAGE FOR SWITCHER ADDRESS    SUP01070
HA$DMP   EQU   10                       STORAGE FOR IDUMP ENTRY ADDRESS SUP01080
HA$TRHLT EQU   12                       TRANSIENT HALT ID               SUP01090
HR$REL   EQU   X'B0'                    RELOCATION REGISTERS            SUP01100
*                                                                       SUP01110
*        LOW MEMORY BUFFER CONTROL WORDS                                SUP01120
*                                                                       SUP01130
HB$STCW  EQU   X'10'                    STATUS TABLE CONTROL WORD       SUP01140
HB$STCW0 EQU   X'10'                    STATUS TABLE CONTROL WORD 0     SUP01150
HB$STCW1 EQU   X'14'                    STATUS TABLE CONTROL WORD 1     SUP01160
HB$STCW2 EQU   X'18'                    STATUS TABLE CONTROL WORD 2     SUP01170
HB$CAW   EQU   X'A0'                    COMMAND ADDRESS WORD            SUP01180
HB$BCSW0 EQU   X'E0'                    BUFFERED CHANNEL STATUS WORD 0  SUP01190
HB$BCSW1 EQU   X'E4'                    BUFFERED CHANNEL STATUS WORD 1  SUP01200
HB$BCSW2 EQU   X'E8'                    BUFFERED CHANNEL STATUS WORD 2  SUP01210
HB$BCSW3 EQU   X'EC'                    BUFFERED CHANNEL STATUS WORD 3  SUP01220
HB$IDA   EQU   X'F0'                    INTEGRATED DISK ADAPTER BCW     SUP01230
HB$IDA0  EQU   X'F0'                    INTEGRATED DISK ADAPTER BCW0    SUP01240
HB$IDA1  EQU   X'F4'                    INTEGRATED DISK ADAPTER BCW1    SUP01250
HB$IDA2  EQU   X'F8'                    INTEGRATED DISK ADAPTER BCW2    SUP01260
HB$IDA3  EQU   X'FC'                    INTEGRATED DISK ADAPTER BCW3    SUP01270
HB$IPC0  EQU   X'100'                   CONSOLE BCW                     SUP01280
HB$IPC00 EQU   X'100'                   CONSOLE BCW0                    SUP01290
HB$IPC01 EQU   X'104'                   CONSOLE BCW1                    SUP01300
HB$IPC02 EQU   X'108'                   CONSOLE BCW2                    SUP01310
HB$IPC03 EQU   X'10C'                   CONSOLE BCW3                    SUP01320
HB$IPC1  EQU   X'110'                   INTEGRATED CARD READER BCW      SUP01330
HB$IPC10 EQU   X'110'                   INTEGRATED CARD READER BCW0     SUP01340
HB$IPC11 EQU   X'114'                   INTEGRATED CARD READER BCW1     SUP01350
HB$IPC12 EQU   X'118'                   INTEGRATED CARD READER BCW2     SUP01360
HB$IPC13 EQU   X'11C'                   INTEGRATED CARD READER BCW3     SUP01370
HB$IPC2  EQU   X'120'                   INTEGRATED PRINTER BCW          SUP01380
HB$IPC20 EQU   X'120'                   INTEGRATED PRINTER BCW0         SUP01390
HB$IPC21 EQU   X'124'                   INTEGRATED PRINTER BCW1         SUP01400
HB$IPC22 EQU   X'128'                   INTEGRATED PRINTER BCW2         SUP01410
HB$IPC23 EQU   X'12C'                   INTEGRATED PRINTER BCW3         SUP01420
HB$IPC3  EQU   X'130'                   INTEGRATED PUNCH BCW            SUP01430
HB$IPC30 EQU   X'130'                   INTEGRATED PUNCH BCW0           SUP01440
HB$IPC31 EQU   X'134'                   INTEGRATED PUNCH BCW1           SUP01450
HB$IPC32 EQU   X'138'                   INTEGRATED PUNCH BCW2           SUP01460
HB$IPC33 EQU   X'13C'                   INTEGRATED PUNCH BCW3           SUP01470
HB$MUX   EQU   X'200'                   MULTIPLEXER BUFFER CONTROL WORD SUP01480
*                                                                       SUP01490
*        SWITCH LIST EQUATES                                            SUP01500
*              DISPLACEMENTS TO QUEUE HEADS                             SUP01510
*                                                                       SUP01520
SW$QIDSO EQU   0                        SOA                             SUP01530
SW$QIDIC EQU   4                        ICAM                            SUP01540
SW$QIDSP EQU   8                        SPOOLER                         SUP01550
SW$QIDTR EQU   12                       TRANSIENTS & SYMBIONTS          SUP01560
SW$QIDUS EQU   16                       1ST USER PRIORITY               SUP01570
*                                                                       SUP01580
         ENDO                                                           SUP01590
         DO    ('&SIB'='YES')++(&ALL**('&SIB'='NO'=0))
SB$DSECT DSECT                                                          SUP01600
         SIB                                                            SUP01610
*                                                                       SUP01620
         ENDO                                                           SUP01630
*                                                                       SUP01640
         DO    ('&TCB'='YES')++(&ALL**('&TCB'='NO'=0))                  SUP01650
JT$DSECT DSECT                                                          SUP01660
         TCB                                                            SUP01670
         ENDO                                                           SUP01680
*                                                                       SUP01690
         DO    ('&PRE'='YES')++(&ALL**('&PRE'='NO'=0))                  SUP01700
JP$DSECT DSECT                                                          SUP01710
         JBPRE                                                          SUP01720
         ENDO                                                           SUP01730
         DO    &ALL                                                     SUP01735
* {     {                                                               SUP01740
EC$DSECT DSECT                                                          SUP01750
*                                                                       SUP01760
*        EVENT CONTROL BLOCK                                            SUP01770
*                                                                       SUP01780
         DS    0F                                                       SUP01790
EC$ECB   EQU   *                        BLOCK LABEL                     SUP01800
EC$CTL   DS    C                        CONTROL BYTE                    SUP01810
EC$IDAT  DS    C                        ID # OF ATTACHING TASK          SUP01820
EC$ACTIV DS    C                        ACTIVITY BYTE                   SUP01830
         DS    C                        UNUSED                          SUP01840
EC$WTCB  DS    F                        TCB ADDR OF WAITING TASK        SUP01850
EC$LNGTH EQU   *-EC$ECB                 ECB LENGTH                      SUP01860
*                                                                       SUP01870
*                                                                       SUP01880
*        ECB   BITS                                                     SUP01890
*                                                                       SUP01900
BE$ECB   EQU   (EC$CTL-EC$ECB)*256+X'80'     ECB INDICATOR              SUP01910
BE$WAIT  EQU   (EC$CTL-EC$ECB)*256+X'04'     WAIT                       SUP01920
BE$ACT   EQU   (EC$ACTIV-EC$ECB)*256+X'80'   =0 INDICATES TASK IS ACTIV SUP01930
BE$ERR   EQU   (EC$ACTIV-EC$ECB)*256+X'01'   TASK HAS ABNORMALLY TERMIN SUP01940
*                                                                       SUP01950
*                                                                       SUP01960
QS$SRB   DSECT                                                          SUP01970
*                                                                       SUP01980
*        SYMBIONT REQUEST BLOCK DSECT                                   SUP01990
*                                                                       SUP02000
QS$LNK   DS    F                        LINK AD. ON TSRQ                SUP02010
QS$QNO   EQU   QS$LNK                   QUEUE NO. ON OSRQ               SUP02020
*                                                                       SUP02030
QS$SYTAB DS    0H                       SYMBIONT TABLE (SUBSET OF SRB)  SUP02040
QS$SYID  DS    CL2                      SYMBIONT ID                     SUP02050
QS$SYNAM DS    CL6                      SYMBIONT NAME                   SUP02060
QS$SYDEV DS    H                        DEVICE TYPE                     SUP02070
QS$SYSGL DS    X                        DISP. INTO SGL-COPY-SYMB TABLE  SUP02080
QS$SYTCB DS    X                        NO. OF SECONDARY TCB'S          SUP02090
QS$SYFLG DS    X                        FLAGS                           SUP02100
QS$SYFIL DS    X                        NO. OF SAT FILES                SUP02110
QS$SYADD DS    X                        ADDL BLKS TO GET IF AVL         SUP02120
QS$SYPAT DS    X                        # SLOTS IN PUB ALLOCATION TABLE SUP02130
QS$SYSIZ DS    H                        NO. OF BLKS(NOT INCL. PROLOGUE) SUP02140
         DS    X                        UNUSED                          SUP02150
QS$SYSSP DS    XL3                      START SEARCH POINTER FOR SYMB
QS$SYTBL EQU   *-QS$SYTAB               LENGTH OF SYMBIONT TABLE ENTRY  SUP02160
*                                                                       SUP02170
QS$PUBAD DS    H                        PUB AD. (0 UNLESS AVR CALL)     SUP02180
QS$TCBWT DS    F                        TCB WAITING FOR SYMB. LOAD      SUP02200
         DS    0F                                                       SUP02210
QS$MSG   DS    CL28                     MESSAGE                         SUP02220
         DS    0F                                                       SUP02230
QS$SRBL  EQU   *-QS$SRB                 LENGTH OF SRB                   SUP02240
*                                                                       SUP02250
*        SRB BITS                                                       SUP02260
*                                                                       SUP02270
BQ$SYSEQ EQU   (QS$SYFLG-QS$SRB)*256+X'80'   SEQUENTIAL SYMBIONT        SUP02280
BQ$SYSGL EQU   (QS$SYFLG-QS$SRB)*256+X'40'   SINGLE SYMBIONT            SUP02290
BQ$SYOSQ EQU   (QS$SYFLG-QS$SRB)*256+X'20'   "SRB ON OSRQ" FLAG         SUP02300
BQ$SYRDR EQU   (QS$SYFLG-QS$SRB)*256+X'10'   "USING SYSRDR" FLAG        SUP02310
BQ$BYSEQ EQU   (QS$SYFLG-QS$SRB)*256+X'08'   HAVE PASSED SEQ ON OSRQ    SUP02320
BQ$SYTSQ EQU   (QS$SYFLG-QS$SRB)*256+X'04'   "SRB ON TSRQ" FLAG         SUP02330
BQ$SYCOM EQU   (QS$SYFLG-QS$SRB)*256+X'02'   COMMUNICATIONS SYMBIONT    SUP02340
BQ$SYSPL EQU   (QS$SYFLG-QS$SRB)*256+X'01'   SPOOLING SYMBIONT          SUP02350
*                                                                       SUP02360
DJ$LOD   DSECT                                                          SUP02370
*                                                                       SUP02380
*        POINTERS TO LOADER SEARCH TABLE (JP$LOD) IN PREAMBLE           SUP02390
*                                                                       SUP02400
DJ$LODPB DS    H                        LIB. PUB AD.                    SUP02410
         DS    X                        FOR JP$LLFLG,JP$RLFLG OR UNUSED SUP02420
DJ$LODSP DS    X                        REC DISP. IN "START SRCH" BLOCK SUP02430
DJ$LODST DS    F                        LIB. "START SEARCH" BLK. NO.    SUP02440
DJ$LODF2 DS    F                        LIB. FORMAT 2 AD.               SUP02450
DJ$LODL  EQU   *-DJ$LOD                                                 SUP02460
*                                                                       SUP02470
JA$ACCTB DSECT                                                          SUP02480
*                                                                       SUP02490
*        JOB ACCOUNTING TABLE                                           SUP02500
*                                                                       SUP02510
JA$SVCS  DS    F                        # OF SVCS EXECUTED(STEP)        SUP02520
JA$JSVCS DS    F                        # OF SVCS EXECUTED(JOB)         SUP02530
JA$TRANS DS    F                        # OF TRANSIENTS CALLED(STEP)    SUP02540
JA$JTRAN DS    F                        # OF TRANSIENTS CALLED(JOB)     SUP02550
JA$CPU   DS    F                        ACCUMULATED CPU TIME(STEP)      SUP02560
JA$JCPU  DS    F                        ACCUMULATED CPU TIME(JOB)       SUP02570
JA$MXJSE DS    F                        MAX MEM USED BY A STEP          SUP02580
JA$STIME DS    F                        WALL CLOCK TIME(STEP)           SUP02590
JA$JTIME DS    F                        WALL CLOCK TIME(JOB)            SUP02600
JA$ASTIM DS    F                        ACCUMULATED STEP WALL CLK TIM   SUP02610
JA$JEXCP DS    F                        TOTAL JOB EXCP'S                SUP02620
JA$LFTOV DS    F                        CNT OF EXCPS NOT FND IN PUB TBL SUP02630
JA$PBTBL DS    0F                       BEGIN OF PUB TABLE              SUP02640
JA$ACCTL EQU   *-JA$ACCTB               LENGTH MINUS PUB TABLE          SUP02650
         ENDO                                                           SUP02655
         DO    ('&IO'='YES')++(&ALL**('&IO'='NO'=0))
*                                                                       SUP02660
IC$DSECT DSECT                                                          SUP02670
*                                                                       SUP02680
*        COMMAND CONTROL BLOCK                                          SUP02690
*                                                                       SUP02700
         DS    0F                                                       SUP02710
IC$CCB   EQU   *                        BLOCK LABEL                     SUP02720
IC$CTL   DS    C                        CONTROL 1                       SUP02730
IC$EC    DS    C                        I/O ERROR COUNT                 SUP02740
IC$T     DS    H                        TRANSMISSION BYTE               SUP02750
IC$BCW   DS    F                        NEXT CAW                        SUP02760
IC$RBC   DS    F                        RESIDUAL BYTE COUNT             SUP02770
IC$CCW   DS    F                        COMMAND ADDRESS WORD            SUP02780
IC$PIO   DS    F                        PIOCB POINTER                   SUP02790
IC$SB    DS    6C                       SENSE BYTES                     SUP02800
IC$SF    DS    H                        STATUS BYTES                    SUP02810
IC$LNGTH EQU   *-IC$CCB                 CCB LENGTH                      SUP02820
*                                                                       SUP02830
*                                                                       SUP02840
*        CCB   BITS                                                     SUP02850
*                                                                       SUP02860
BC$ECB   EQU     (IC$CTL-IC$CCB)*256+X'80'        ECB INDICATOR         SUP02870
BC$TRLCK EQU   (IC$CTL-IC$CCB)*256+X'40'     TRACK LOCK                 SUP02880
BC$UNLCK EQU     (IC$CTL-IC$CCB)*256+X'20'        UNLOCK OR LOCK FUNC   SUP02890
BC$IBN   EQU   (IC$CTL-IC$CCB)*256+X'10'          IGNORE BLOCK NOS.     SUP02895
BC$CYLCK EQU   (IC$CTL-IC$CCB)*256+X'08'     CYLINDER LOCK              SUP02900
BC$WAIT  EQU     (IC$CTL-IC$CCB)*256+X'04'        WAIT                  SUP02910
BC$BKSCT EQU   (IC$CTL-IC$CCB)*256+X'02'     SPECIAL SPOOL OPERATION    SUP02920
BC$LKSCT EQU   (IC$CTL-IC$CCB)*256+X'01'     LINK IS TO SCT             SUP02930
*                                                                       SUP02940
BC$TRAFF EQU       (IC$T-IC$CCB)*256+X'80'        TRAFFIC               SUP02950
BC$UNERR EQU       (IC$T-IC$CCB)*256+X'40'        UNRECOVERABLE ERROR   SUP02960
BC$UQERR EQU       (IC$T-IC$CCB)*256+X'20'        UNIQUE ERROR          SUP02970
BC$NOREC EQU       (IC$T-IC$CCB)*256+X'10'        NO RECORD FOUND       SUP02980
BC$UNTEX EQU       (IC$T-IC$CCB)*256+X'08'        UNIT EXCEPTION        SUP02990
BC$BNNE  EQU   (IC$T-IC$CCB)*256+X'04'            BLOCK NOS. NOT EQ     SUP02995
BC$TKEND EQU       (IC$T-IC$CCB)*256+X'02'        TRACK END             SUP03000
BC$CYEND EQU       (IC$T-IC$CCB)*256+X'01'        CYLINDER END          SUP03010
BC$OWN   EQU     (IC$T+1-IC$CCB)*256+X'80'        OWN ERROR CODE        SUP03020
BC$XCPTR EQU     (IC$T+1-IC$CCB)*256+X'40'        ACCEPT UNRECOVERABLE  SUP03030
BC$XCPTQ EQU     (IC$T+1-IC$CCB)*256+X'20'        ACCEPT UNIQUE         SUP03040
BC$DIAG  EQU     (IC$T+1-IC$CCB)*256+X'10'        DIAGNOSTIC CCB        SUP03050
BC$SYS   EQU     (IC$T+1-IC$CCB)*256+X'08'        SYSTEM CCB            SUP03060
BC$CRIT  EQU     (IC$T+1-IC$CCB)*256+X'04'        CRITICAL USER         SUP03070
BC$PREP  EQU     (IC$T+1-IC$CCB)*256+X'02'        PREP RTN IND          SUP03080
BC$BLNM  EQU   (IC$T+1-IC$CCB)*256+X'01'          BLK NO. SPACE RSVD    SUP03090
*                                                                       SUP03110
IB$DSECT DSECT                                                          SUP03120
*                                                                       SUP03130
*        BCW AND CCW                                                    SUP03140
*                                                                       SUP03150
         DS    0F                                                       SUP03160
IB$BCW   EQU   *                                                        SUP03170
IB$CCW   EQU   *                                                        SUP03180
IB$COM   EQU   *                        BCW + CCW COMMAND CODE          SUP03190
IB$DATA  EQU   *                        CCW DATA ADDRESS                SUP03200
IB$DATAV DS    1F                       BCW ACTIVE DATA ADDRESS         SUP03210
IB$SYS   EQU   *                        SYSTEM LOGICAL RECORD BYTE CNT  SUP03220
IB$FLAGR EQU   *                        BCW REPLACEMENT FLAG            SUP03230
IB$FLAG  EQU   *                        CCW FLAG                        SUP03240
IB$BYTER DS    1H                       BCW REPLACEMENT BYTE COUNT      SUP03250
IB$FLAGV EQU   *                        BCW ACTIVE FLAG                 SUP03260
IB$COUNT EQU   *                        CCW BYTE COUNT                  SUP03270
IB$SRCH  EQU   *                        BCW 8416/8418 SEARCH ARGUMENT   SUP03280
IB$BYTEV DS    1H                       BCW ACTIVE BYTE COUNT           SUP03290
IB$FLAGF EQU   *                        BCW DATA CHAINING CONTROL FLAG  SUP03300
IB$DATAR DS    1H                       BCW REPLACEMENT DATA ADDRESS    SUP03310
IB$HEAD  DC    X'0'                     BCW 8416/8418 HEAD ADDRESS      SUP03320
IB$TRACK DC    X'0'                     BCW 8416/8418 TRACK CONDITION   SUP03330
IB$CYL   DS    1H                       BCW 8416/8418 CYLINDER ADDRESS  SUP03340
IB$RECRD DC    X'0'                     BCW 8416/8418 RECORD NUMBER     SUP03350
IB$ZONE  DC    X'0'                     BCW 8416/8418 ZONE + OFFSET     SUP03360
IB$LNGTH EQU   *-IB$COM                                                 SUP03370
*                                                                       SUP03380
IP$DSECT DSECT                                                          SUP03390
         PUBEQU                                                         SUP03400
*                                                                       SUP03410
IS$DSECT DSECT                                                          SUP03420
*                                                                       SUP03430
*        SYSTEM COMMAND CHAIN                                           SUP03440
*                                                                       SUP03450
         DS    0F                                                       SUP03460
IS$SYS   EQU   *                                                        SUP03470
IS$SEEK  DS    2F                  SEEK                                 SUP03480
IS$SID   DS    2F                  SEARCH ID EQ                         SUP03490
IS$TIC   DS    2F                  TIC                                  SUP03500
IS$RW1   DS    2F                  READ/WRITE                           SUP03510
IS$RW2   DS    2F                  READ/WRITE                           SUP03520
IS$TMS   EQU   *                                                        SUP03530
IS$RW3   DS    2F                  READ/WRITE                           SUP03540
IS$TAPE  EQU   *                                                        SUP03550
IS$RW4   DS    2F                  READ/WRITE                           SUP03560
IS$SEEK1 DS    2F                  SEEK                                 SUP03570
IS$VAL   DS    4F                                                       SUP03580
IS$RID   DS    2F                  READ ID                              SUP03590
IS$KEY   DS    2F                  SEARCH KEY EQ OR EQ/HI               SUP03600
IS$TIC1  DS    2F                  TIC                                  SUP03610
IS$RW5   DS    2F                  READ/WRITE                           SUP03620
IS$CHR   DS    2F                  SEEK ADDR + SEARCH ARGUMENT FIELD    SUP03630
IS$CCB   DS    1F                                                       SUP03640
IS$BCW   DS    2F                  SYSTEM BCW SAVE AREA                 SUP03650
IS$PUB   DS    1H                                                       SUP03660
IS$CC    EQU   0                   CCW COMMAND CODE                     SUP03670
IS$DATA  EQU   0                   CCW DATA ADDRESS                     SUP03680
IS$FLAG  EQU   4                   CCW FLAG BYTE                        SUP03690
IS$COUNT EQU   6                   CCW BYTE COUNT                       SUP03700
IS$LNGTH EQU   *-IS$SYS                                                 SUP03710
*                                                                       SUP03720
*        ERROR LOG RESIDENT CONTROL TABLE                               SUP03730
*                                                                       SUP03740
IE$ELTB  DSECT                                                          SUP03750
IE$ST    DC    A(0)                     START ADDRESS ( CCRH )          SUP03760
IE$END   DC    A(0)                     END   ADDRESS ( CCRH )          SUP03770
IE$CWA   DC    A(0)                     CURRENT WRITE ADDRESS ( CCRH )  SUP03780
IE$CRA   DC    A(0)                     CURRENT READ ADDRESS            SUP03790
IE$AC    DC    Y(0)                     AVAILABLE COUNT                 SUP03800
IE$RSN   DC    X'0'                     RESTART SEQUENCE NUMBER         SUP03810
IE$FLAG  DC    X'0'                     LOGGING FLAG                    SUP03820
IE$TLR   DC    Y(0)                     TOTAL LOST RECORD COUNT         SUP03830
IE$TEC   DC    Y(0)                     TOTAL ERROR COUNT               SUP03840
IE$SB    DC    XL8'0'                   SENSE + STATUS BYTES            SUP03850
IE$LGTH  EQU   *-IE$ELTB                                                SUP03860
*                                                                       SUP03870
*        RCT BITS                                                       SUP03880
*                                                                       SUP03890
BE$ROUN  EQU      (IE$FLAG-IE$ELTB)*256+X'C0'          RST OR UNR       SUP03900
BE$RST   EQU      (IE$FLAG-IE$ELTB)*256+X'80'          SYSTEM RESTART   SUP03910
BE$UNR   EQU      (IE$FLAG-IE$ELTB)*256+X'40'          UNREC IO ERR     SUP03920
BE$WHR   EQU      (IE$FLAG-IE$ELTB)*256+X'20'          WR HISTORY RCD   SUP03930
BE$LGET  EQU   (IE$FLAG-IE$ELTB)*256+X'10'             LOGET PROCESSING SUP03940
BE$FULL  EQU      (IE$FLAG-IE$ELTB)*256+X'08'          FULL LOG FILE    SUP03950
BE$NF    EQU      (IE$FLAG-IE$ELTB)*256+X'04'          NEARLY FULL      SUP03960
BE$ELOF  EQU   (IE$FLAG-IE$ELTB)*256+X'02'             ERR LOG DISABLED SUP03970
BE$NREC  EQU   (IE$FLAG-IE$ELTB)*256+X'01'             INIT, NOT RECVRD SUP03980
         ENDO                                                           SUP03985
         DO    &ALL
*                                                                       SUP03990
*                                                                       SUP04000
*        MEMORY MANAGEMENT CONTROL BLOCK DSECT                          SUP04010
*                                                                       SUP04020
MM$MCB   DSECT                                                          SUP04030
MM$SCNAM DS    2F                       SHARED CODE MODULE NAME         SUP04040
MM$LO    DS    AL2                      BLOCK NUMBER OF PREVIOUS REGION SUP04060
MM$HI    DS    AL2                      BLOCK NUMBER OF NEXT REGION     SUP04070
MM$TYP   DS    X                        TYPE CODE                       SUP04080
MM$FREE  EQU   X'80'                    FREE                            SUP04090
MM$SYMB  EQU   X'40'                    ALLOCATED TO SYMBIONT           SUP04100
MM$JSCH  EQU   X'20'                    ALLOCATED TO JOB SCHEDULER      SUP04110
MM$TSRQ  EQU   X'10'                    ALLOCATED TO DUMMY TSRQ SYMB.   SUP04120
MM$SHARE EQU   X'08'                    SHARED CODE REGION              SUP04125
MM$JOB   EQU   X'00'                    ALLOCATED TO JOB                SUP04130
         ORG   *-1                                                      SUP04140
MM$SIZ   DS    F                        (BYTES 1-3) SIZE OF REGION      SUP04150
MM$SCDB  DS    F                        SCDB AD. FOR SHARED CODE ONLY   SUP04155
MM$SCFLG DS    X                        SHARED CODE REGION FLAGS
         DS    XL3                      UNUSED
         CNOP  0,8
MM$MCBL  EQU   *-MM$MCB
*
*        MMCB FLAGS FOR SHARED CODE REGIONS
*
BM$SCIDL EQU   (MM$SCFLG-MM$MCB)*256+X'80'   SHARED CODE REGION IDLE
BM$DLETE EQU   (MM$SCFLG-MM$MCB)*256+X'40'   EMF SAYS DELETE REGION
BM$EMFCK EQU   (MM$SCFLG-MM$MCB)*256+X'20'   EMF SCRATCH BIT
*
*        RESIDENT SHARED CODE DIRECTORY DSECT
*              CONTAINS 2 TYPES OF SCDB'S:
*                   1) RESOURCE SCDB - 1 PER SHARED CODE REGION
*                   2) ENTRY PT. SCDB - 1 PER ENTRY PT.
*
MS$SCDB  DSECT
*                                  FORMAT OF RESOURCE SCDB
MS$FLGS  DS    X                        FLAGS
MS$MDKEY DS    X                        JOB KEY BITS (7-0)
MS$MDEPS DS    X                        NO. OF ENTRY PTS.
MS$MDCNT DS    X                        COUNT OF USERS
MS$MDBLK DS    H                        REGION AD. (BLK. NO.)
MS$MDSIZ DS    H                        REGION SIZE (BLKS)
MS$MDNAM DS    2F                       RESOURCE NAME
MS$SCDBL EQU   *-MS$SCDB                LENGTH OF SCDB
*
*                                  FORMAT OF ENTRY PT. SCDB
MS$EPMOD EQU   MS$SCDB+2,2              RESOURCE SCD NO.
MS$EPAD  EQU   MS$SCDB+4,4              ENTRY PT. AD.
MS$EPNAM EQU   MS$SCDB+8,8              ENTRY PT. NAME
*
*        SCDB BITS
*
BS$EPBLK EQU   (MS$FLGS-MS$SCDB)*256+X'80'   THIS IS ENTRY PT. SCDB
BS$MDBLK EQU   (MS$FLGS-MS$SCDB)*256+X'40'   THIS IS RESOURCE SCDB
BS$EMF   EQU   (MS$FLGS-MS$SCDB)*256+X'20'   SCDB USED BY EMF/SCHED.
BS$EMFDN EQU   (MS$FLGS-MS$SCDB)*256+X'10'   EMF DONE FITTING THIS SCDB
BS$DLETE EQU   (MS$FLGS-MS$SCDB)*256+X'08'   EMF SAYS TO DELETE
BS$LODNG EQU   (MS$FLGS-MS$SCDB)*256+X'04'   MODULE BEING LOADED
BS$READY EQU   (MS$FLGS-MS$SCDB)*256+X'02'   MODULE READY FOR USE
BS$EPREL EQU   (MS$FLGS-MS$SCDB)*256+X'01'   ENTRY ADDRESS RELOCATED
*
*        LENGTH OF SHARED CODE EXTERNAL LINKAGE SUBROUTINE IN PROLOGUE
*
MS$SCLNK EQU   48
*                                                                       SUP04160
*                                                                       SUP04170
*        JOB MEMORY REQUIREMENT TABLE DSECT                             SUP04180
*              (FORMAT MUST MATCH SHARED CODE DIRECTORY BLOCK)          SUP04185
*                                                                       SUP04190
MM$MRT   DSECT                                                          SUP04200
         DS    H                        UNUSED                          SUP04210
MM$MRGRP DS    H                        EMF SCRATCH (MCON GROUP BLK AD)
MM$MRBLK DS    H                        EMF-ASSIGNED AD. (BLK NO.)
MM$MRSIZ DS    H                        EMF-ASSIGNED LENGTH (BLKS)
MM$MRMIN DS    H                        MIN LENGTH (BLKS)
MM$MRMAX DS    H                        MAX LENGTH (BLKS)
MM$MRSCD DS    F                        SCD AD. IF SHARED CODE NEEDED
*                                                                       SUP04290
         ENDO                                                           SUP04295
&SYSECT  CSECT                                                          SUP04300
         DO    &ALL                                                     SUP04305
*                                                                       SUP04310
*                                                                       SUP04320
*        TRANSIENT AREA                                                 SUP04330
*                                                                       SUP04340
TA$OVLY  EQU   1024                     B TR$OVLY                       SUP04350
TA$RLSE  EQU   TA$OVLY+4                B TR$RLSE                       SUP04360
TA$TCB   EQU   TA$RLSE+4                TRANSIENT AREA                  SUP04370
TA$BCW   EQU   TA$TCB+JT$TRLNG          8416/18 BCW                     SUP04380
TA$CCB   EQU   TA$BCW+16                CCB FOR SYSRES                  SUP04390
*                                                                       SUP04400
*        SUPERVISOR OVERLAY AREA                                        SUP04410
*                                                                       SUP04420
TC$OVLY  EQU   512                      B TR$OVLY                       SUP04430
TC$RLSE  EQU   TC$OVLY+4                B TR$RLSE                       SUP04440
TC$TCB   EQU   TC$RLSE+4                TRANSIENT AREA TCB              SUP04450
TC$BCW   EQU   TC$TCB+JT$TRLNG          8416/18 BCW                     SUP04460
TC$CCB   EQU   TC$BCW+16                CCB FOR SYSRES                  SUP04470
TC$ANS   EQU   TC$OVLY-60               OPCOMM - MSG ANSWER             SUP04480
TC$MSG   EQU   TC$ANS-64                OPCOMM - MSG QUESTION           SUP04490
*                                                                       SUP04500
         ENDO                                                           SUP04505
         DO    ('&TRN'='YES')++(&ALL**('&TRN'='NO'=0))
         TRNEQU                                                         SUP04510
         ENDO                                                           SUP04515
         END                                                            SUP04520
