         PROC                                                           PUB00010
PUBEQU   NAME  0                                                        PUB00020
         DO    0                                                        PUB00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  PUB00040
*                                                                    *  PUB00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  PUB00060
*                                                                    *  PUB00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  PUB00080
*                                                                    *  PUB00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  PUB00100
         ENDO                                                           PUB00110
         GBL   &IP$$GEN                                                 PUB00120
         DO    '&IP$$GEN'='1'=0                                         PUB00130
&IP$$GEN SET   '1'                                                      PUB00140
*                                                                       PUB00150
*        PHYSICAL UNIT BLOCK                                            PUB00160
*                                                                       PUB00170
         DS    0F                                                       PUB00180
IP$PUB   EQU   *                        BLOCK LABEL                     PUB00190
IP$ISU   EQU   *                                                        PUB00200
IP$CCA   DC    X'0'                     CO-CHANNEL ADDRESS              PUB00210
IP$CDA   DC    X'0'                     CO-DEVICE ADDRESS               PUB00220
IP$CA    DC    X'0'                     CHANNEL ADDRESS                 PUB00230
IP$DA    DC    X'0'                     DEVICE ADDRESS                  PUB00240
IP$ALC   DC    X'0'                     ALLOCATION                      PUB00250
IP$RESV  DC    X'0'                     JOB CONTROL RESERVE             PUB00260
IP$CONT1 DC    X'0'                     CONTROL 1                       PUB00270
IP$CT    EQU   IP$CONT1                                                 PUB00280
IP$CONT5 DC    X'0'                     CONTROL 5                       PUB00290
IP$CCB   DC    A(0)                     CCB ADRESS                      PUB00300
IP$DC    EQU   *                                                        PUB00310
IP$TYP   DC    X'0'                     DEVICE TYPE                     PUB00320
IP$SUB   DC    X'0'                     SUB-DEVICE TYPE                 PUB00330
IP$FEA   DC    H'0'                     FEATURES                        PUB00340
IP$QUE   DC    Y(0)                     QUEUE ADDRESS                   PUB00350
IP$TRL   DC    Y(0)                     PUB TRAILER ADDRESS             PUB00360
IP$EPS   DC    Y(0)                     ENTRY FOR CHAN SCHEDULER        PUB00370
IP$EPI   DC    Y(0)                     ENTRY FOR CHAN INTERRUPT        PUB00380
IP$CONT3 DC    X'0'                                                     PUB00390
IP$DNP   DC    X'0'                     DEFAULT NON-PRINTING CHAR.      PUB00400
IP$ALCNT DC    H'0'                     COUNT OF KEY 0 USERS (BITS 1-7) PUB00410
IP$CLK   EQU   IP$ALCNT+1               DEVICE CLOCK                    PUB00420
IP$CONT2 DC    X'0'                     CONTROL 2                       PUB00430
IP$CONT4 DC    X'0'                     CONTROL 4                       PUB00440
         DC    X'0'                     UNUSED                          PUB00450
IP$ACTID DC    X'0'                     PUB NO. FOR JOB ACCT.           PUB00460
*        NOTE: WHEN CHANGING PUB LENGTH A CHANGE MUST ALSO BE           PUB00470
*              MADE WITHIN THE PUB PROC TO SET SYMBOL 'PUBLNG'.         PUB00480
IP$LNGTH EQU   *-IP$PUB                 LENGTH OF PUB                   PUB00490
IP$LEN   EQU   IP$LNGTH                                                 PUB00500
*                                                                       PUB00510
*        PUB TRAILER                                                    PUB00520
*                                                                       PUB00530
IP$PUBT  EQU   *                        BLOCK LABEL                     PUB00540
IP$VSN   DC    XL6'0'                   ACTUAL VOL. SER. NO. SET BY AVR PUB00550
IP$VSNE  DC    XL6'0'                   EXPECTED VOL SER NO. BY JC&DM   PUB00560
IP$VTOC  DC    A(0)                     DISC AD (CCRH) OF VTOC BY AVR   PUB00570
IP$XPCT  EQU   IP$VTOC                            EXPECTED BLOCK NO.    PUB00575
IP$BCT   DC    Y(0)                               BLOCK COUNT (UNUSED)  PUB00580
IP$MDE   DC    Y(0)                     TAPE MODE                       PUB00590
*                                       EQU'S FOR PRINTER TRAILERS ONLY PUB00600
IP$ALCB  EQU   IP$VSN                   DISC AD ACTIVE LCB FOR SYSPRT   PUB00610
IP$AVFB  EQU   IP$ALCB+4                DISC AD ACTIVE VFB FOR SYSPRT   PUB00620
IP$DLCB  EQU   IP$AVFB+4                DISC AD DEFAULT LCB FOR SYSPRT  PUB00630
IP$DVFB  EQU   IP$DLCB+4                DISC AD DEFAULT VFB FOR SYSPRT  PUB00640
IP$LPUB  EQU   IP$BCT                   PUB AD. OF DISC WITH LCB        PUB00650
IP$VPUB  EQU   IP$MDE                   PUB AD. OF DISC WITH VFB        PUB00660
IP$IOC   DC    Y(0)                     COUNT OF I/O'S DONE SINCE ERROR PUB00670
IP$LCBCT DC    Y(0)                     BYTE CNT FOR LOADING PRINTR LCB PUB00680
*        NOTE: WHEN CHANGING THE LENGTH OF THE PUB TRAILER A CHANGE     PUB00690
*              MUST ALSO BE MADE TO GLOBAL SET SYMBOL &PUBTLNG IN       PUB00700
*                   PUB PROC.                                           PUB00710
IP$LENT EQU    *-IP$PUBT                LENGTH OF PUB TRAILER           PUB00720
IP$LCMD  DC    X'0'                               LAST MOVEMENT CMMD    PUB00725
IP$ACTL  DC    XL3'0'                             ACTUAL BLOCK NO.
*                                                                       PUB00730
*        PUB BITS                                                       PUB00740
*                                                                       PUB00750
BP$JOB7  EQU     (IP$ALC-IP$PUB)*256+X'80'        JOB 7                 PUB00760
BP$JOB6  EQU     (IP$ALC-IP$PUB)*256+X'40'        JOB 6                 PUB00770
BP$JOB5  EQU     (IP$ALC-IP$PUB)*256+X'20'        JOB 5                 PUB00780
BP$JOB4  EQU     (IP$ALC-IP$PUB)*256+X'10'        JOB 4                 PUB00790
BP$JOB3  EQU     (IP$ALC-IP$PUB)*256+X'08'        JOB 3                 PUB00800
BP$JOB2  EQU     (IP$ALC-IP$PUB)*256+X'04'        JOB 2                 PUB00810
BP$JOB1  EQU     (IP$ALC-IP$PUB)*256+X'02'        JOB 1                 PUB00820
BP$JOB0  EQU     (IP$ALC-IP$PUB)*256+X'01'        SUPERVISOR            PUB00830
BP$JOB7R EQU    (IP$RESV-IP$PUB)*256+X'80'        JOB 7 RESERVE         PUB00840
BP$JOB6R EQU    (IP$RESV-IP$PUB)*256+X'40'        JOB 6 RESERVE         PUB00850
BP$JOB5R EQU    (IP$RESV-IP$PUB)*256+X'20'        JOB 5 RESERVE         PUB00860
BP$JOB4R EQU    (IP$RESV-IP$PUB)*256+X'10'        JOB 4 RESERVE         PUB00870
BP$JOB3R EQU    (IP$RESV-IP$PUB)*256+X'08'        JOB 3 RESERVE         PUB00880
BP$JOB2R EQU    (IP$RESV-IP$PUB)*256+X'04'        JOB 2 RESERVE         PUB00890
BP$JOB1R EQU    (IP$RESV-IP$PUB)*256+X'02'        JOB 1 RESERVE         PUB00900
BP$JOB0R EQU    (IP$RESV-IP$PUB)*256+X'01'        SUPERVISOR RESERVE    PUB00910
BP$ATTN  EQU   (IP$CONT1-IP$PUB)*256+X'80'        ATTENTION             PUB00920
BP$STMOD EQU   (IP$CONT1-IP$PUB)*256+X'40'        STATUS MODIFIER       PUB00930
BP$CUEND EQU   (IP$CONT1-IP$PUB)*256+X'20'        CONTROL UNIT END      PUB00940
BP$BUSY  EQU   (IP$CONT1-IP$PUB)*256+X'10'        BUSY                  PUB00950
BP$CHEND EQU   (IP$CONT1-IP$PUB)*256+X'08'        CHANNEL END           PUB00960
BP$DVEND EQU   (IP$CONT1-IP$PUB)*256+X'04'        DEVICE END            PUB00970
BP$DVERR EQU   (IP$CONT1-IP$PUB)*256+X'02'        UNIT CHECK            PUB00980
BP$UNTEX EQU   (IP$CONT1-IP$PUB)*256+X'01'        UNIT EXCEPTION        PUB00990
BP$CHERR EQU   (IP$CONT5-IP$PUB)*256+X'FF'        COMPOSITE CHAN ERROR  PUB01000
BP$SHARE EQU   (IP$CONT2-IP$PUB)*256+X'80'        PUB SHARE             PUB01010
BP$NOAVL EQU   (IP$CONT2-IP$PUB)*256+X'40'   DEVICE NOT AVAIL.          PUB01020
BP$UPDWN EQU   (IP$CONT2-IP$PUB)*256+X'20'        UP/DOWN               PUB01030
BP$TEST  EQU   (IP$CONT2-IP$PUB)*256+X'10'        TEST                  PUB01040
BP$COCHN EQU   (IP$CONT2-IP$PUB)*256+X'08'        CO-CHANNEL            PUB01050
BP$IO4   EQU   (IP$CONT2-IP$PUB)*256+X'04'        IO4 CONTROL           PUB01060
BP$IO2   EQU   (IP$CONT2-IP$PUB)*256+X'02'        IO2 CONTROL           PUB01070
BP$IO1   EQU   (IP$CONT2-IP$PUB)*256+X'01'        IO1 CONTROL           PUB01080
BP$IOC   EQU   (IP$CONT2-IP$PUB)*256+X'07'        IO INCLUSIVE          PUB01090
BP$IO21  EQU   (IP$CONT2-IP$PUB)*256+X'03'                              PUB01100
BP$IO41  EQU   (IP$CONT2-IP$PUB)*256+X'05'                              PUB01110
BP$IO42  EQU   (IP$CONT2-IP$PUB)*256+X'06'                              PUB01120
BP$IOCL  EQU   (IP$CONT2-IP$PUB)*256+X'F8'                              PUB01130
BP$NOVOL EQU   (IP$CONT3-IP$PUB)*256+X'80'        JOB CONTROL NOVOL     PUB01140
BP$OPRSV EQU   (IP$CONT3-IP$PUB)*256+X'40'        OPR SAVED BY AVR      PUB01150
BP$IGCM  EQU   (IP$CONT3-IP$PUB)*256+X'20'        IGNORE CHAR MISMATCH  PUB01160
BP$REP   EQU   BP$IGCM                            TAPE ERR REC REP.     PUB01165
BP$MTMI  EQU   (IP$CONT3-IP$PUB)*256+X'10'        MOUNT MSG ISSUED.     PUB01170
BP$ELACT EQU   (IP$CONT3-IP$PUB)*256+X'08'        ERROR LOG ACTIVE      PUB01180
*                                                      (ASSUMED BY PUB  PUB01190
*                                                      PROC TO BE IN    PUB01200
*                                                      IP$CONT3)        PUB01210
BP$ELPND EQU   (IP$CONT3-IP$PUB)*256+X'04'        ERROR LOG PENDING     PUB01220
BP$SKSEP EQU   (IP$CONT3-IP$PUB)*256+X'02'        SEEK SEPERATED        PUB01230
BP$ECC   EQU   (IP$CONT3-IP$PUB)*256+X'01'        ECC RECOVERY ACTIVE   PUB01240
BP$POST  EQU   BP$ECC                   UNIT REC-POST STATUS-NON REPEAT PUB01245
BP$SIGN  EQU   (IP$CLK-1-IP$PUB)*256+X'80'   0 TO INSURE DEVICE CLK>0   PUB01250
BP$SMCHN EQU   (IP$CONT4-IP$PUB)*256+X'80'   SIM MUX CHAINING BUSY      PUB01260
BP$LCBIN EQU   (IP$CONT4-IP$PUB)*256+X'40'   LCB IS AFTER TRAILER       PUB01270
BP$RWAC  EQU   BP$LCBIN                      REWIND STILL ACTIVE        PUB01271
BP$LP    EQU   (IP$CONT4-IP$PUB)*256+X'20'        TAPE AT LOAD POINT    PUB01275
BP$BLNM  EQU   (IP$CONT4-IP$PUB)*256+X'10'        TAPE IS BLK NUMBERED
BP$IBN   EQU   (IP$CONT4-IP$PUB)*256+X'08'        IGNORE INPUT BLK NOS.
BP$ITPE  EQU   (IP$CONT4-IP$PUB)*256+X'04'        INPUT TAPE
BP$OTPE  EQU   (IP$CONT4-IP$PUB)*256+X'02'        OUTPUT TAPE
BP$JBLN  EQU   (IP$CONT4-IP$PUB)*256+X'01'        JCL SPEC'D BLK NOS.
BP$ACT   EQU     (IP$CCB-IP$PUB)*256+X'80'        SIO ACTIVE            PUB01280
BP$OPRIN EQU     (IP$CCB-IP$PUB)*256+X'40'        OPR INITIATED         PUB01290
BP$OPREX EQU     (IP$CCB-IP$PUB)*256+X'20'        OPR EXECUTED          PUB01300
BP$OPRAN EQU     (IP$CCB-IP$PUB)*256+X'10'        OPR ANSWERED          PUB01310
BP$OPRC  EQU     (IP$CCB-IP$PUB)*256+X'70'        OPR INCLUSIVE         PUB01320
BP$RETRY EQU     (IP$CCB-IP$PUB)*256+X'08'        COMMAND RETRY         PUB01330
BP$UNRCV EQU     (IP$CCB-IP$PUB)*256+X'04'        COMMAND UNRECOVERABLE PUB01340
BP$IGNRE EQU     (IP$CCB-IP$PUB)*256+X'02'        COMMAND IGNORE        PUB01350
BP$CANCL EQU     (IP$CCB-IP$PUB)*256+X'01'        COMMAND CANCEL        PUB01360
BP$COP   EQU   (IP$FEA+1-IP$PUB)*256+X'80'        CONSOLE OUTPUT PRINT  PUB01370
BP$DUB18 EQU   (IP$FEA+1-IP$PUB)*256+X'04'        808 CYL-8418          PUB01380
*                                                                       PUB01385
*    PUB TRAILER BITS
*
BP$COUNT EQU   (IP$LCMD-IP$PUBT)*256+X'80'        COUNT 1 BLOCK
BP$ADJ   EQU   (IP$LCMD-IP$PUBT)*256+X'40'        ADJ BYTE CNT (+BFR)
BP$INP   EQU   (IP$LCMD-IP$PUBT)*256+X'20'        INPUT COMMAND (READ)
BP$OUT   EQU   (IP$LCMD-IP$PUBT)*256+X'10'        OUTPUT CMMD (WRITE)
BP$FWD   EQU   (IP$LCMD-IP$PUBT)*256+X'08'        FORWARD MOVEMENT
BP$SPFL  EQU   (IP$LCMD-IP$PUBT)*256+X'04'        SPACE FILE CMMD
BP$CNTRL EQU   (IP$LCMD-IP$PUBT)*256+X'02'        ALL CONTROL COMMANDS
BP$RPOS  EQU   (IP$LCMD-IP$PUBT)*256+X'01'        REPOSITION
*                                                                       PUB01390
         ENDO                                                           PUB01400
         END                                                            PUB01410
