         PROC  &P,1                                                     GEN00010
GENTRAN  NAME  0                                                        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
.*       GENERATE TRANSIENT AREAS (BUT NOT SOA)                         GEN00120
         LCL   &N,&L                                                    GEN00130
&C       DO    &P(1)                                                    GEN00140
&N       SET   1+&C*(&C=&P(1)=0)        NEXT                            GEN00150
&L       SET   &C-1+&P(1)*(&C=1)        LAST                            GEN00160
                                                                 EJECT  GEN00170
**************************  TRANSIENT AREA  *************************** GEN00180
*                                                                       GEN00190
         DS    0F                                                       GEN00200
         CNOP  0,8                                                      GEN00210
TA$&C      DC    X'4000'                SET TRAN AREA TO NOT REUSEABLE  GEN00220
         DS    CL1022                   TRANSIENT AREA                  GEN00230
         DC    X'47F0'                  * TOVLY BRANCHES TO             GEN00240
         DC    Y(TR$OVLY)                    THIS INSTRUCTION           GEN00250
         DC    X'47F0'                  * TRLSE BRANCHES TO             GEN00260
         DC    Y(TR$RLSE)                    THIS INSTRUCTION           GEN00270
*                                                                       GEN00280
*        TRANSIENT TASK CONTROL BLOCK                                   GEN00290
*                                                                       GEN00300
TA$TCB&C   DC    XL(JT$TRLNG)'0'                                        GEN00310
         ORG   TA$TCB&C+JT$LNK-JT$TCB                                   GEN00320
         DC    A(TA$TCB&N)              FORWARD LINK                    GEN00330
         ORG   TA$TCB&C+JT$RLNK-JT$TCB                                  GEN00340
         DC    A(TA$TCB&L)              REVERSE LINK                    GEN00350
         ORG   TA$TCB&C+JT$QID-JT$TCB                                   GEN00360
         DC    YL1(SW$QIDTR)            QID                             GEN00370
         ORG   TA$TCB&C+JT$PSW-JT$TCB                                   GEN00380
         SYSPSW 0                                                       GEN00390
         ORG   TA$TCB&C+BT$WTTRN/256                                    GEN00400
         DC    YL1(BT$WTTRN**255)                                       GEN00410
         ORG   TA$TCB&C+JT$TRLNG                                        GEN00420
*                                                                       GEN00430
TA$BCW&C  BCW   2,TA$&C,,4,,,1024                                       GEN00440
TA$CCB&C  CCB  SB$RES-14,TA$BCW&C,0,BC$XCPTR+BC$SYS**255                GEN00450
         ENDO                                                           GEN00460
         END                                                            GEN00470
