&NAM     PROC  &P,0,&VER=                                               TRN00010
TRNHDR   NAME  1                                                        TRN00020
TRANHDAR NAME  2                                                        TRN00030
*********************************************************************** TRN00040
*                                                                     * TRN00050
*                        TRANSIENT HEADER                             * TRN00060
*                                                                     * TRN00070
*********************************************************************** TRN00080
*                                                                     * TRN00090
*                        FIRST TWO BYTES OF TRANSIENT                 * TRN00100
*                                                                     * TRN00110
*                   BYTE 0, BIT 4 THRU BYTE 1, BIT 7                  * TRN00120
*                   CONTAINS TRANSIENT OR OVERLAY ID                  * TRN00130
*                                                                     * TRN00140
*********************************************************************** TRN00150
*                                                                     * TRN00160
*                        SVC CODES                                    * TRN00170
*                                                                     * TRN00180
*                   0 THRU 255          TRANSIENT ROOTS               * TRN00190
*                   256 THRU 4095       TRANSIENT OVERLAYS            * TRN00200
*                                                                     * TRN00210
*********************************************************************** TRN00220
*                                                                     * TRN00230
*                        REGISTER CONVENTIONS                         * TRN00240
*                                                                     * TRN00250
*                   REGISTER 0          CALLER VALUE                  * TRN00260
*                   REGISTER 1          CALLER VALUE                  * TRN00270
*                   REGISTER 2          USED BY TRANSIENT MANAGEMENT  * TRN00280
*                   REGISTER 3          USED BY TRANSIENT MANAGEMENT  * TRN00290
*                   REGISTER 4          USED BY TRANSIENT MANAGEMENT  * TRN00300
*                   REGISTER 5          USED BY TRANSIENT MANAGEMENT  * TRN00310
*                   REGISTER 6                                        * TRN00320
*                   REGISTER 7                                        * TRN00330
*                   REGISTER 8                                        * TRN00340
*                   REGISTER 9          NUMBER OF PRIORITY LEVELS     * TRN00350
*                   REGISTER 10         ADDRESS OF SWITCH LIST        * TRN00360
*                   REGISTER 11         ADDRESS OF SIB                * TRN00370
*                   REGISTER 12         CALLER BASE ADDRESS           * TRN00380
*                   REGISTER 13         CALLER PREAMBLE ADDRESS       * TRN00390
*                   REGISTER 14         CALLER TCB ADDRESS            * TRN00400
*                   REGISTER 15         TRANSIENT BASE ADDRESS        * TRN00410
*                                                                     * TRN00420
*********************************************************************** TRN00430
         USING *,15                                                     TRN00440
         DC    Y(0)                                                     TRN00450
&NAM     DS    0Y                                                       TRN00460
         DO    ('&VER'='')                                              TRN00470
         PNOTE '*','VERSION NUMBER OMITTED'                             TRN00480
         LA    6,1(,0)                                                  TRN00490
         GOTO  .A                                                       TRN00500
         ENDO                                                           TRN00510
         LA    6,&VER.(,0)                                              TRN00520
.A       LABEL                                                          TRN00530
         END                                                            TRN00540
