         PROC  &P,0                                                     LOW00010
LOWMEM   NAME                                                           LOW00020
         DO    0                                                        LOW00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  LOW00040
*                                                                    *  LOW00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  LOW00060
*                                                                    *  LOW00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  LOW00080
*                                                                    *  LOW00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  LOW00100
         ENDO                                                           LOW00110
         GBL   &GS$PRI,&GS$SLTS,&GS$TRAN,&GS$RES                        LOW00120
         GBL   &GS$ACCT,&GS$ERLG,&GS$SPM,&GS$COMM,&GS$CMDM              LOW00130
         GBL   &GS$TTR,&GS$TDR,&GS$TPR                                  LOW00140
         GBL   &GS$TIME,&GS$RLCK,&GS$ULCK,&GS$TLCK                      LOW00150
         GBL   &GS$PMOD,&GS$FPT,&GS$IPCM,&GS$MUX                        LOW00160
         EXTRN SE$PE,SE$MCE                                             LOW00170
         EXTRN IN$HINT                                                  LOW00180
         EXTRN SD$SVC                                                   LOW00190
         EXTRN SC$TIME&GS$TIME                                          LOW00200
         EXTRN SW$TCHER,DMP$ENT                                         LOW00210
*                                                                       LOW00220
***      LOW MEMORY                                                     LOW00230
*                                                                       LOW00240
         LH    R13,HA$DMP                                               LOW00250
         BR    R13                      BRANCH TO DUMP                  LOW00260
         DC    Y(SB$SIB)          SIB ADDR.                             LOW00270
         DC    Y(SW$TCHER)        SWITCHER ADDR.                        LOW00280
         DC    Y(DMP$ENT)         DUMP ADDR.                            LOW00290
         DC    Y(0)                     TRANSIENT HALT LOC.             LOW00300
         DC    Y(0)                     RESERVED
         DC    Y(IN$STLEN)                                              LOW00310
         DC    Y(IN$STLEN)                                              LOW00320
         DC    A(IN$STLO)               014                             LOW00330
         DC    Y(IN$STLO)               018                             LOW00340
         DC    Y(0)                     01A                             LOW00350
         DC    A(0)                                                     LOW00360
*                                                                       LOW00370
         ORG   SUPSTART+HP$OIO          * IO PSWS                       LOW00380
         NEWPSW IN$HINT                 * OLD                           LOW00390
         NEWPSW IN$HINT                 * NEW                           LOW00400
*                                                                       LOW00410
         ORG   SUPSTART+HP$OMC          * MACHINE CHECK                 LOW00420
         NEWPSW SE$MCE                  * OLD                           LOW00430
         NEWPSW SE$MCE                  * NEW                           LOW00440
*                                                                       LOW00450
         ORG   SUPSTART+HP$OPE          * PROGRAM EXCEPTION             LOW00460
         NEWPSW SE$PE                   * OLD                           LOW00470
         NEWPSW SE$PE                   * NEW                           LOW00480
*                                                                       LOW00490
         ORG   SUPSTART+HP$OSV          * SUPERVISOR CALL               LOW00500
         NEWPSW SD$SVC                  * OLD                           LOW00510
         NEWPSW SD$SVC                  * NEW                           LOW00520
*                                                                       LOW00530
         ORG   SUPSTART+HP$OIT          * INTERVAL TIMER                LOW00540
         NEWPSW SC$TIME&GS$TIME         * OLD                           LOW00550
         NEWPSW SC$TIME&GS$TIME         * NEW                           LOW00560
*                                                                       LOW00565
         ORG   SUPSTART+X'70'
         DC    XL6'0'                   SUP INIT STORES SUP NAME HERE
         DC    XL2'0'                   RESERVED
         DC    XL4'0'                   RESERVED
*                                       SYMBIONT HALT LOC. (4 BYTES)
         DC    XL2'0'                        SYMBIONT ID (EBCDIC)
         DC    XL2'0'                        SYMBIONT PHASE NO (EBCDIC)
*                                                                       LOW00570
         ORG   SUPSTART+HP$OMN          * MONITOR/TRACE                 LOW00580
         NEWPSW 0                       * OLD                           LOW00590
         NEWPSW 0                       * NEW                           LOW00600
*                                                                       LOW00610
         DC    XL(X'B0')'0'             BYTES 90-13F                    LOW00620
         DO    (&GS$IPCM>0)++(&GS$MUX>0)                                LOW00630
         DC    XL(X'C0')'0'                                             LOW00640
         ENDO                                                           LOW00650
         DO    (&GS$IPCM>1)++(&GS$MUX>0)                                LOW00660
         DC    XL(X'80')'0'                                             LOW00670
         ENDO                                                           LOW00680
         DO    &GS$IPCM>1                                               LOW00690
         DC    XL(X'80')'0'                                             LOW00700
         DC    XL(X'100')'0'                                            LOW00710
         ENDO                                                           LOW00720
*                                                                       LOW00730
               END                                                      LOW00740
