         PROC                                                           GEN00010
GENSOA   NAME                                                           GEN00020
         DO    0                                                        GEN00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  GEN00040
*                                                                    *  GEN00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  GEN00060
*                                                                    *  GEN00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  GEN00080
*                                                                    *  GEN00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  GEN00100
         ENDO                                                           GEN00110
                                                                 EJECT  GEN00120
*********************  SUPERVISOR OVERLAY AREA  *********************** GEN00130
*                                                                       GEN00140
         ENTRY SO$A                     *** TEMP - FOR SM$TM DEBUG OPT. GEN00150
         DS    0F                                                       GEN00160
         CNOP  0,8                                                      GEN00170
SO$A     DS    CL512                    SOA                             GEN00180
         DC    X'47F0'                  * SOVLY BRANCHES TO             GEN00190
         DC    Y(SO$OVLY)                    THIS INSTRUCTION           GEN00200
         DC    X'47F0'                  * SRLSE BRANCHES TO             GEN00210
         DC    Y(SO$RLSE)                    THIS INSTRUCTION           GEN00220
*                                                                       GEN00230
*        SOA TASK CONTROL BLOCK                                         GEN00240
*                                                                       GEN00250
SO$TCB   DC    XL(JT$TRLNG)'0'                                          GEN00260
         ORG   SO$TCB+JT$LNK+1-JT$TCB                                   GEN00270
         DC    AL3(SO$TCB)              FORWARD LINK                    GEN00280
         ORG   SO$TCB+JT$RLNK+1-JT$TCB                                  GEN00290
         DC    AL3(SO$TCB)              REVERSE LINK                    GEN00300
         ORG   SO$TCB+JT$QID-JT$TCB                                     GEN00310
         DC    YL1(0)                   QID                             GEN00320
         ORG   SO$TCB+JT$PSW-JT$TCB                                     GEN00330
         EXTRN SO$SCHDL                                                 GEN00340
         SYSPSW SO$SCHDL                                                GEN00350
         ORG   SO$TCB+JT$SA+60-JT$TCB                                   GEN00360
         DC    A(SO$A)                  R15=AD. OF SOA                  GEN00370
         ORG   SO$TCB+BT$YIELD/256                                      GEN00380
         DC    YL1(BT$YIELD-BT$YIELD/256*256)                           GEN00390
         ORG   SO$TCB+JT$TRLNG                                          GEN00400
*                                                                       GEN00410
SO$BCW   BCW   2,SO$A,,2,,,512                                          GEN00420
SO$CCB   CCB   SB$RES-14,SO$BCW,0,BC$OWN+BC$SYS+BC$CRIT**255            GEN00430
         END                                                            GEN00440
