         PROC  &P,0                                                     SIB00010
SIB      NAME  0                                                        SIB00020
         DO    0                                                        SIB00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SIB00040
*                                                                    *  SIB00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  SIB00060
*                                                                    *  SIB00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  SIB00080
*                                                                    *  SIB00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SIB00100
         ENDO                                                           SIB00110
         GBL   &SB$$GEN                                                 SIB00120
         DO    '&SB$$GEN'='1'=0                                         SIB00130
&SB$$GEN SET   '1'                                                      SIB00140
*                                                                       SIB00150
*        SYSTEM INFORMATION BLOCK                                       SIB00160
*                                                                       SIB00170
SB$SIB   DS    0F                       BLOCK LABEL                     SIB00180
SB$      EQU   SB$SIB                                                   SIB00190
SB$VER   DC    CL2' '                   VERSION NO. (EBCDIC)            SIB00200
SB$REV   DC    CL2' '                   REVISION NO. (EBCDIC)           SIB00210
*                                                                       SIB00220
SB$TRF   DC    A(0)                     DISC AD. OF TRANSIENT FILE      SIB00230
SB$OVT   DC    A(0)                     DISC AD. OF OVERLAY TRANSIENTS  SIB00240
SB$ALTCL DC    Y(0)                     CYL OFFSET TO ALT. TRANS. FILE  SIB00250
SB$AVC   DC    Y(0)                     COUNT OF AVAIL. TRANS. AREAS    SIB00260
SB$R1024 DC    A(0)                     # 1024-BYTE RECS/TRK ON SYSRES  SIB00270
SB$RT256 DC    A(0)                     # 256-BYTE RECS/TRK ON SYSRES   SIB00280
SB$TCYL  DC    A(0)                     # TRACKS/CYL ON SYSRES          SIB00290
SB$RN256 DC    A(0)                     # 256-BYTE RECS/TRK ON SYSRUN   SIB00300
SB$RNTCY DC    A(0)                     # TRACKS/CYL ON SYSRUN          SIB00310
*                                                                       SIB00320
SB$LL2   DC    A(0)                     LOAD LIB. FORMAT 2 AD. (BY IPL) SIB00330
SB$RES   DC    Y(0)                     ADDRESS OF PUB FOR SYSRES       SIB00340
SB$RDR   DC    Y(0)                     ADDRESS OF PUB FOR SYSRDR       SIB00350
SB$PRT   DC    Y(0)                     ADDRESS OF PUB FOR SYSPRT       SIB00360
SB$RUN   DC    Y(0)                     ADDRESS OF PUB FOR SYSRUN       SIB00370
SB$CNL   DC    Y(0)                     ADDRESS OF PUB FOR SYSCNL       SIB00380
SB$LOGDV DC    Y(0)                     ADDRESS OF PUB FOR SYSLOG       SIB00390
*                                                                       SIB00400
SB$CHR   DC    AL2(0)                   SUPERVISOR CHARACTERISTICS      SIB00410
SB$ERFLG DC    AL1(0)                   RESIDENT MODULE ERROR FLAFS     SIB00420
SB$ELFLG DC    AL1(0)                   ERROR LOGGING FLAGS             SIB00430
SB$FLG   DC    AL2(0)                   SUPERVISOR FLAG BITS            SIB00440
SB$CFG   DC    AL2(0)                   HARDWARE CONFIGURATION          SIB00450
SB$CHR1  DC    AL2(0)                   SUPERVISOR CHARACTERISTICS      SIB00460
SB$SUBRV DC    CL2' '                   SUB-REVISION NO. (EBCDIC)       SIB00470
*                                                                       SIB00480
SB$REGAD EQU   *                        SUP. REG. SAVE AREA             SIB00490
SB$ATA   DC    A(0)                          R5=AD. OF 1ST TRANS. AREA  SIB00500
SB$TRC   DC    A(0)                          R6=NO. OF TRANS. AREAS     SIB00510
SB$PBC   DC    A(0)                          R7=NO. OF PUB'S            SIB00520
SB$PBA   DC    A(0)                          R8=AD. OF 1ST PUB          SIB00530
SB$SOS   DC    A(0)                          R9=AD. OF SOS TCB          SIB00540
         DC    A(0)                          R10=UNUSED                 SIB00550
SB$SBA   DC    A(0)                          R11=AD. OF SIB             SIB00560
SB$REGNO EQU   (*-SB$REGAD)/4           NO. OF SUP. REGS. SAVED         SIB00570
*                                                                       SIB00580
         DS    0F                       SYSTEM DATES                    SIB00590
SB$DAT   DC    XL4'0'                        PACKED DECIMAL: 0YYMMDD+   SIB00600
         DC    XL4'0'                                                   SIB00610
         DC    CL6' '                                                   SIB00620
SB$DTEJ  EQU   SB$DAT+4,4                    JULIAN- DISC. BINARY: 0YDD SIB00630
SB$DTE   EQU   SB$DAT+8,6                    JULIAN- EBCDIC: C' YYDDD'  SIB00640
*                                                                       SIB00650
SB$IOQ   DC    Y(0)                                                     SIB00660
*                                                                       SIB00670
SB$ALLOW DS    0H                                                       SIB00680
         DC    X'C0'                    'ALLOW INTERRUPTS' MASK         SIB00690
SB$KEYS  DC    YL1(0)                   BITS SET TO AVAIL. KEYS         SIB00700
SB$INHIB DS    0H                                                       SIB00710
         DC    X'00'                    'INHIBIT INTERRUPTS' MASK       SIB00720
SB$SLOTS DC    YL1(0)                   COUNT OF AVAIL. JOB SLOTS       SIB00730
*                                                                       SIB00740
SB$SVC   DC    Y(0)                     COUNT OF ENTRIES IN SVC TABLE   SIB00750
SB$SVCTB DC    Y(0)                     AD. OF SVC TABLE                SIB00760
*                                                                       SIB00770
SB$SOI   DS    0F                       SUP. OVERLAY INDICATOR FULLWORD SIB00780
SB$SOI1  DC    X'0'                          1ST BYTE OF SOI            SIB00790
SB$SOI2  DC    X'0'                          2ND BYTE OF SOI            SIB00800
SB$SOI3  DC    X'0'                          3RD BYTE OF SOI            SIB00810
SB$SOI4  DC    X'0'                          4TH BYTE OF SOI            SIB00820
*                                                                       SIB00830
SB$JOB   DC    A(0)                     JOB CONTROL                     SIB00840
SB$JCCUR EQU   SB$JOB                        CURRENT QUEUE              SIB00850
SB$JCDIS EQU   SB$JOB+1                      CURRENT JOB NO.            SIB00860
SB$JCROL EQU   SB$JOB+2                      COUNT OF JOBS ROLLED OUT   SIB00870
SB$JCFLG EQU   SB$JOB+3                      FLAGS                      SIB00880
SB$JCJID DC    Y(0)                     INTERNAL JOB NUMBER COUNTER     SIB00890
SB$DEBUG DC    X'0'                     DEBUG FLAGS                     SIB00900
SB$NOPRI DC    YL1(0)                   NO. OF PRIORITY LEVELS          SIB00910
*                                                                       SIB00920
SB$AVL   DC    Y(0)                     MEM SIZE, NOT INCL SUP (BLKS)   SIB00930
         DC    Y(0)                     UNUSED                          SIB00940
SB$MLO   DC    Y(0)                     FIRST MEMORY REGION (BLK AD.)   SIB00950
SB$MHI   DC    Y(0)                     LAST MEMORY REGION (BLK AD.)    SIB00960
*                                                                       SIB00970
SB$SLA   DC    Y(0)                     SWITCH LIST ADDRESS             SIB00980
SB$MCSAV DC    Y(0)                     AD. OF MEMCON SAVE AREA         SIB00990
SB$LKTAB DC    Y(0)                     AD OF TABLE FOR LOCK COUNTERS   SIB01000
         DC    Y(0)                     UNUSED - FORMERLY SB$DMC        SIB01010
SB$SPE   DC    Y(0)                     ADDR OF SOFTWARE PROG EXCEPTION SIB01020
SB$OCT   DC    Y(0)                     AD. OF OPCOMM CONTROL TABLE     SIB01030
SB$TCB   DC    F'0'                     AD. OF CURRENT TCB              SIB01040
         DS    0F                                                       SIB01050
SB$0KEY  DC    X'FF0F1FFF'              CLEAR KEY & MODE MASK           SIB01060
SB$RELOC DC    Y(0)                     AD. OF "FIND RELOC. REG" SUBR.  SIB01070
SB$JTLNG DC    Y(0)                     LENGTH OF TCB'S {               SIB01080
*               {                                                       SIB01090
SB$USER  DC    2A(0)                    SYSTEM USER FLAG BITS AND       SIB01100
SB$LOCK  EQU   SB$USER+4                     LOCK FLAG BITS             SIB01110
*                                                                       SIB01120
*                                       TIMER SERVICES INFO {           SIB01130
SB$CLK   DC    A(0)                          SIMULATED DAY CLOCK        SIB01140
SB$OTV   DC    Y(0)                          ORIGINAL TIMER VALUE       SIB01150
SB$TIMSB DC    Y(0)                          TIME-OF-DAY SUBRTN AD.     SIB01160
SB$BSY92 DC    Y(0)                     9200 PUB BEING CLOCKED-MSEC INT SIB01170
SB$MXINT DC    Y(0)                          MAX MSECS BETWEEN INTS.    SIB01180
*                                                                       SIB01190
*                                       SOFTWARE PERFORMANCE MONITOR    SIB01200
*                                       (HAS ALT USES IF NO SPM)        SIB01205
SB$SMPCW DC    2F'0'                         PROBE CONTROL WORD         SIB01210
SB$SMDBA DC    F'0'                          SPM MODULE BASE AD.        SIB01220
SB$SMRSA DC    F'0'                          SPM REG. SAVE AREA AD.     SIB01230
SB$SMSVC DC    F'0'                          SPM SVC ENTRY              SIB01240
*                                                                       SIB01250
SB$TATCB DC    Y(0)                     DISPL FROM TRANS BASE TO TCB    SIB01260
SB$ELTA  DC    Y(0)                     ERROR LOG TABLE AD.             SIB01270
*                                                                       SIB01280
SB$SYPUB DC    A(0)                     SAVED ERROR CCB ON SYSRES       SIB01290
SB$SYCH1 DC    Y(0)                     SYSTEM CHAIN FOR SELECTOR 1     SIB01300
SB$SYCH2 DC    Y(0)                     SYSTEM CHAIN FOR SELECTOR 2     SIB01310
SB$SAT   DC    A(0)                     SAT ENTRY PT. AD.               SIB01320
*                                                                       SIB01330
SB$LOG   DC    A(0)                     DISC AD. OF NEXT LOG ENTRY      SIB01340
*                                                                       SIB01350
SB$CSVCD DC    A(0)                     MCP SVC ENTRY ADDR              SIB01360
SB$CHINT DC    A(0)                     MCP CPIOCS ENTRY ADDR           SIB01370
*                                                                       SIB01380
*                                       SYMB. REQUEST QUEUE POINTERS    SIB01390
SB$TSRQ  DC    A(0)                          TEMP SYMB REQ. QUEUE AD.   SIB01400
SB$SRQUP DC    X'0'                          "NEXT UP" SLOT NO.         SIB01410
SB$SRQNA DC    X'0'                          "NEXT AVAIL" SLOT NO.      SIB01420
SB$SRQNO DC    Y(0)                          TOTAL NO. OF SLOTS         SIB01430
SB$SRQNR EQU   SB$SRQNO+1                    NO. OF AVAIL. SLOTS        SIB01440
*                                                                       SIB01450
SB$MIX   DS    0F                                                       SIB01460
SB$INTJQ EQU   SB$MIX                   # JOBS ON Q AT INT (2 BYTES)    SIB01470
SB$MIX1  DC    X'00'                   DEV CNT IN VI AND DA OF MIX      SIB01480
SB$MIX2  DC    X'00'                   PROG RETURN ADDRESS OF MI        SIB01490
SB$MIX3  DC    X'00'                   * ADDRESS OF NEXT STORAGE        SIB01500
SB$MIX4  DC    X'00'                   *   AREA                         SIB01510
SB$SQMAP DC    Y(0)                     AD. OF OSRQ BIT MAP             SIB01520
         DC    X'0'                     UNUSED                          SIB01530
SB$SRQRU DC    X'0'                     SLOTS-#RU/FI REQS (ODD BYTE)    SIB01540
SB$IOCLK DC    A(0)                     I/O CLOCK ENTRY AD.             SIB01550
         DC    A(0)                     UNUSED                          SIB01560
SB$BLNM  DC    Y(0)                     TAPE BLOCK NO. ENTRY PT.        SIB01570
SB$SYM   DC    Y(0)                     AD OF SGL-COPY-SYMB. RES. TABLE SIB01580
SB$SPTAB DC    Y(0)                     SPOOLING CONTROL TABLE AD.      SIB01590
SB$SLTNO DC    X'0'                     TOTAL CONFIGURED NO. OF SLOTS   SIB01600
         DC    X'0'                     UNUSED                          SIB01610
*                                                                       SIB01620
SB$NXBJB DC    H'0'                     BINARY JOB NO. TO ASSIGN        SIB01630
SB$TLKTB DC    Y(0)                     TRACK LOCK TABLE AD.            SIB01640
SB$TLOCK DC    Y(0)                                                     SIB01650
SB$UNLCK DC    Y(0)                     TRACK UNLOCK                    SIB01660
SB$ECOV  DC    Y(0)                     EXCP PROCESSOR COVER            SIB01670
SB$HCOV  DC    Y(0)                     INTERRUPT PROCESSOR COVER       SIB01680
SB$MCOV  DC    Y(0)                     COMMON ERROR PROCESSOR COVER    SIB01690
SB$PCOV  DC    Y(0)                     PUB CONTROL COVER               SIB01700
*                                       SHARED CODE POINTERS            SIB01705
SB$SHARE DC    A(0)                          AD OF SC INTERFACE ROUTINE
SB$SCDAD DC    A(0)                          AD OF SC DIRECTORY
SB$SSCT  DC    A(0)                     SPOOL CONTROL TABLE AD.         SIB01710
SB$LNGTH EQU   *-SB$SIB                 LENGTH OF SIB                   SIB01720
*                                                                       SIB01730
*        SIB BITS                                                       SIB01740
*                                                                       SIB01750
BB$PRMOD EQU   (SB$CFG-SB$SIB)*256+X'03'  MEM. PROT. MOD. (LOW 2 BITS)  SIB01760
BB$FPTGN EQU   (SB$CFG-SB$SIB)*256+X'80'     SOFTWARE CAN HANDLE FPT    SIB01770
BB$FPT   EQU   (SB$CFG-SB$SIB)*256+X'40'     HARDWARE HAS FPT(SAYS IPL) SIB01780
BB$COMAD EQU   (SB$CFG-SB$SIB)*256+X'20'     COMMUNICATIONS ADAPTERS    SIB01790
BB$2CAS  EQU   (SB$CFG-SB$SIB)*256+X'10'     2 COMMUNICATION ADAPTERS   SIB01800
*                                                                       SIB01810
BB$MIN   EQU   (SB$CHR-SB$SIB)*256+X'80'     MINIMUM SUPERVISOR         SIB01820
BB$SPM   EQU   (SB$CHR-SB$SIB)*256+X'40' SOFTWARE PERFORMANCE MONITOR   SIB01822
BB$DIAG  EQU   (SB$CHR-SB$SIB)*256+X'20'     ON-LINE DIAGNOSTICS        SIB01825
BB$TIMER EQU   (SB$CHR-SB$SIB)*256+X'10'     TIMER                      SIB01830
BB$TDR   EQU   (SB$CHR-SB$SIB)*256+X'08'     TRANSIENT DISC ERR RECOVER SIB01840
BB$TTR   EQU   (SB$CHR-SB$SIB)*256+X'04'     TRANSIENT TAPE ERR RECOVER SIB01850
BB$TPR   EQU   (SB$CHR-SB$SIB)*256+X'02'     TRANSIENT PRNT ERR RECOVER SIB01860
BB$MCON  EQU   (SB$CHR-SB$SIB)*256+X'01'     MEMORY CONSOLIDATION       SIB01870
BB$ERLG  EQU   (SB$CHR+1-SB$SIB)*256+X'80'   ERROR LOGGING              SIB01880
BB$ULCK  EQU   (SB$CHR+1-SB$SIB)*256+X'40'   USER FILES LOCKED          SIB01890
BB$ACCT  EQU   (SB$CHR+1-SB$SIB)*256+X'20'   JOB ACCOUNTING             SIB01900
BB$SPOOL EQU   (SB$CHR+1-SB$SIB)*256+X'10'   SPOOLING                   SIB01910
BB$ROLL  EQU   (SB$CHR+1-SB$SIB)*256+X'08'   ROLL-OUT / ROLL-IN         SIB01920
BB$INPS  EQU   (SB$CHR+1-SB$SIB)*256+X'04'   INPUT SPOOLING             SIB01930
BB$SHARE EQU   (SB$CHR+1-SB$SIB)*256+X'02'   SHARED CODE                SIB01935
BB$BLNM  EQU   (SB$CHR+1-SB$SIB)*256+X'01'   TAPE BLOCK NOS.
*
BB$CNLG  EQU   (SB$CHR1-SB$SIB)*256+X'80'    CONSOLE LOG
BB$CLGR  EQU   (SB$CHR1-SB$SIB)*256+X'40'    RETAIN CONSOLE LOG
*                                                                       SIB01940
BB$IO    EQU   (SB$ERFLG-SB$SIB)*256+X'80'        PIOCS IN CONTROL      SIB01950
BB$CCB?  EQU   (SB$ERFLG-SB$SIB)*256+X'40'        CCB QUESTIONABLE      SIB01960
BB$TCB?  EQU   (SB$ERFLG-SB$SIB)*256+X'20'        TCB QUESTIONABLE      SIB01970
BB$RES   EQU   (SB$ERFLG-SB$SIB)*256+X'10'   IN RESIDENT SVC PROCESSING SIB01980
BB$TIO   EQU   (SB$ERFLG-SB$SIB)*256+X'08'   TRANSIENT I/O IN CONTROL   SIB01985
*                                                                       SIB01990
BB$ELOG  EQU   (SB$ELFLG-SB$SIB)*256+X'80'   ERROR LOG EFFECTIVE        SIB02000
BB$ELACT EQU   (SB$ELFLG-SB$SIB)*256+X'40'   ERROR LOG ACTIVE           SIB02010
*                                                                       SIB02020
BB$SVC   EQU   (SB$FLG-SB$SIB)*256+X'80'     FOR SWITCHER/SVC COMM.     SIB02030
BB$MEMLK EQU   (SB$FLG-SB$SIB)*256+X'40'     MEMORY MANAGEMENT LOCK     SIB02040
BB$WARMQ EQU   (SB$FLG-SB$SIB)*256+X'20'     AT IPL- HOLD JOB QUEUE     SIB02045
BB$NORDY EQU   (SB$FLG-SB$SIB)*256+X'10'     SYSTEM NOT READY YET       SIB02050
BB$DEJBQ EQU   (SB$FLG-SB$SIB)*256+X'08'     AT IPL- RECOVER JOB QUEUE  SIB02060
*                                       NOTE: BB$NOATN MUST BE IN SAME  SIB02070
*                                            BYTE AS BB$NORDY           SIB02080
BB$NOATN EQU   (SB$FLG-SB$SIB)*256+X'04'     SUP INT IN - NO ATTN INTS. SIB02090
BB$HOLDQ EQU   (SB$FLG-SB$SIB)*256+X'02'     DO NOT LOAD SCHEDULER      SIB02100
BB$SCHIN EQU   (SB$FLG-SB$SIB)*256+X'01'     JOB SCHEDULER IS IN        SIB02110
BB$RCVEL EQU   (SB$FLG+1-SB$SIB)*256+X'80'   AT IPL- RECOVER ERR LOG    SIB02120
BB$MCNIN EQU   (SB$FLG+1-SB$SIB)*256+X'10'   MEMCON IS ACTIVE           SIB02130
BB$DOMCN EQU   (SB$FLG+1-SB$SIB)*256+X'08'   GETJOB SHOULD DO MEMCON    SIB02140
BB$IDLE  EQU   (SB$FLG+1-SB$SIB)*256+X'04'   ACCT. SYSTEM IS IDLE       SIB02145
*                                                                       SIB02150
BB$JCDEB EQU   (SB$DEBUG-SB$SIB)*256+X'80'   JC DEBUG OPTION            SIB02160
BB$SYDEB EQU   (SB$DEBUG-SB$SIB)*256+X'40'   JC SYMBIONT DEBUG OPTION   SIB02170
BB$TRDEB EQU   (SB$DEBUG-SB$SIB)*256+X'20'   TRANSIENT DEBUG OPTION     SIB02180
BB$DMDEB EQU   (SB$DEBUG-SB$SIB)*256+X'10'   DATA MNGT DEBUG OPTION     SIB02190
BB$ICDEB EQU   (SB$DEBUG-SB$SIB)*256+X'08'   ICAM DEBUG OPTION          SIB02200
BB$IOD   EQU   (SB$DEBUG-SB$SIB)*256+X'04'   PIOCS DEBUG OPTION         SIB02205
BB$SPDEB EQU   (SB$DEBUG-SB$SIB)*256+X'02'   SPOOLING DEBUG OPTION
*                                                                       SIB02210
BB$ERJB  EQU   (SB$JCFLG-SB$SIB)*256+X'80'   ERASE JOB LINE             SIB02220
BB$INIPL EQU   (SB$JCFLG-SB$SIB)*256+X'40'   IN IPL SEQUENCE            SIB02230
BB$SUSP  EQU   (SB$JCFLG-SB$SIB)*256+X'20'   SUSPEND USER               SIB02240
BB$PRI0  EQU   (SB$JCFLG-SB$SIB)*256+X'10'   PRIORITY 0 OCCUPIED        SIB02250
BB$PRI1  EQU   (SB$JCFLG-SB$SIB)*256+X'08'   PRIORITY 1 OCCUPIED        SIB02260
BB$PRI2  EQU   (SB$JCFLG-SB$SIB)*256+X'04'   PRIORITY 2 OCCUPIED        SIB02270
*                                                                       SIB02280
BB$SOCAI EQU   (SB$SOI1-SB$SIB)*256+X'80'   CONSOLE ATTN INTERRUPT      SIB02290
BB$SOIO1 EQU   (SB$SOI1-SB$SIB)*256+X'40'   I/O ERR EDIT                SIB02300
BB$SORPS EQU   (SB$SOI1-SB$SIB)*256+X'20'    BLOCK NO. REPOSITIONING    SIB02310
BB$SOIO3 EQU   (SB$SOI1-SB$SIB)*256+X'10'   I/O ERROR TAPE              SIB02320
BB$SOIO4 EQU   (SB$SOI1-SB$SIB)*256+X'08'   I/O ERROR NON SYSRES DISK   SIB02330
*                                            X'04' CAN'T BE USED        SIB02340
BB$SOIO5 EQU   (SB$SOI1-SB$SIB)*256+X'02'   I/O ATTN AVR                SIB02350
BB$SOOPR EQU   (SB$SOI1-SB$SIB)*256+X'01'   OPR COMMUN. SVC             SIB02360
BB$SOMC  EQU   (SB$SOI2-SB$SIB)*256+X'80'   EARLY WARNING MACH. CHECK   SIB02370
BB$SOIEL EQU   (SB$SOI2-SB$SIB)*256+X'40'    ERROR LOG                  SIB02380
*              (SB$SOI2-SB$SIB)*256+X'20'    RESERVED SOS (OVL #276)    SIB02390
BB$ERSPL EQU   (SB$SOI2-SB$SIB)*256+X'10'    SPOOL ERROR (SOS - #278)   SIB02400
*              (SB$SOI2-SB$SIB)*256+X'08'    RESERVED SOS (OVL #280)    SIB02410
BB$SOMID EQU   (SB$SOI2-SB$SIB)*256+X'04'    MIDNIGHT PROCESSING        SIB02420
BB$SOLCK EQU   (SB$SOI2-SB$SIB)*256+X'02'    LOCK FUNCTION REQUEST IND  SIB02430
BB$SOMIX EQU   (SB$SOI2-SB$SIB)*256+X'01'  RE-ENTER MIX PROGRAM BIT     SIB02440
*              (SB$SOI3-SB$SIB)*256+X'80'    RESERVED SOS (OVL #916)    SIB02450
*              (SB$SOI3-SB$SIB)*256+X'40'    RESERVED SOS (OVL #918)    SIB02460
*              (SB$SOI3-SB$SIB)*256+X'20'    RESERVED SOS (OVL #920)    SIB02470
*              (SB$SOI3-SB$SIB)*256+X'10'    RESERVED SOS (OVL #922)    SIB02480
*              (SB$SOI3-SB$SIB)*256+X'08'    RESERVED SOS (OVL #924)    SIB02490
*                                            X'04' CAN'T BE USED        SIB02500
*              (SB$SOI3-SB$SIB)*256+X'02'    RESERVED SOS (OVL #928)    SIB02510
*              (SB$SOI3-SB$SIB)*256+X'01'    RESERVED SOS (OVL #930)    SIB02520
*              (SB$SOI4-SB$SIB)*256+X'80'    RESERVED SOS (OVL #932)    SIB02530
*              (SB$SOI4-SB$SIB)*256+X'40'    RESERVED SOS (OVL #934)    SIB02540
*              (SB$SOI4-SB$SIB)*256+X'20'    RESERVED SOS (OVL #936)    SIB02550
*              (SB$SOI4-SB$SIB)*256+X'10'    RESERVED SOS (OVL #938)    SIB02560
*              (SB$SOI4-SB$SIB)*256+X'08'    RESERVED SOS (OVL #940)    SIB02570
*              (SB$SOI4-SB$SIB)*256+X'04'    RESERVED SOS (OVL #942)    SIB02580
*              (SB$SOI4-SB$SIB)*256+X'02'    RESERVED SOS (OVL #944)    SIB02590
*              (SB$SOI4-SB$SIB)*256+X'01'    RESERVED SOS (OVL #946)    SIB02600
*                                                                       SIB02610
BB$VTOC  EQU   (SB$LOCK-SB$SIB)*256+X'80'   VTOC LOCK FLAG              SIB02620
BB$VTOCU EQU   (SB$USER-SB$SIB)*256+X'80'   VTOC USER FLAG              SIB02630
         ENDO                                                           SIB02640
         END                                                            SIB02650
