*COPY TAREA                                                             00001000
         PUSH  PRINT                                                    00001200
         AIF   ('&SYSPARM' NE 'SUP').TAR01                              00001400
         PRINT OFF,NOGEN                                                00001600
.TAR01   ANOP                                                           00001800
TAREA    DSECT                                                          00002000
         SPACE 1                                                        00003000
***                        TAREA  -  TASK SAVE AREA                     00004000
*                                                                       00005000
*          0   +-----------------------------------------------+        00006000
*              |                     TPSW                      |        00007000
*          8   +-----------------------+-----------------------+        00008000
*              |        TGREG0         |        TGREG1         |        00009000
*         10   +-----------------------+-----------------------+        00010000
*              |        TGREG2         |        TGREG3         |        00011000
*         18   +-----------------------+-----------------------+        00012000
*              |        TGREG4         |        TGREG5         |        00013000
*         20   +-----------------------+-----------------------+        00014000
*              |        TGREG6         |        TGREG7         |        00015000
*         28   +-----------------------+-----------------------+        00016000
*              |        TGREG8         |        TGREG9         |        00017000
*         30   +-----------------------+-----------------------+        00018000
*              |        TGREG10        |        TGREG11        |        00019000
*         38   +-----------------------+-----------------------+        00020000
*              |        TGREG12        |        TGREG13        |        00021000
*         40   +-----------------------+-----------------------+        00022000
*              |        TGREG14        |        TGERG15        |        00023000
*         48   +-----------------------+-----------------------+        00024000
*              |        TREQLOCK       |                                00025000
*         50   +-----------------------+                                00026000
*                                                                       00027000
***                        TAREA  -  TASK SAVE AREA                     00028000
         SPACE 1                                                        00029000
TPSW     DS    D                   RESUME PSW FOR THIS TASK             00030000
         SPACE                                                          00031000
TGREG0   DS    F                   REG.0 SAVE AREA                      00032000
TGREG1   DS    F                   REG.1 SAVE AREA                      00033000
TGREG2   DS    F                   REG.2 SAVE AREA                      00034000
TGREG3   DS    F                   REG.3 SAVE AREA                      00035000
TGREG4   DS    F                   REG.4 SAVE AREA                      00036000
TGREG5   DS    F                   REG.5 SAVE AREA                      00037000
TGREG6   DS    F                   REG.6 SAVE AREA                      00038000
TGREG7   DS    F                   REG.7 SAVE AREA                      00039000
TGREG8   DS    F                   REG.8 SAVE AREA                      00040000
TGREG9   DS    F                   REG.9 SAVE AREA                      00041000
TGREG10  DS    F                   REG.10 SAVE AREA                     00042000
TGREG11  DS    F                   REG.11 SAVE AREA                     00043000
TGREG12  DS    F                   REG.12 SAVE AREA                     00044000
TGREG13  DS    F                   REG.13 SAVE AREA                     00045000
TGREG14  DS    F                   REG.14 SAVE AREA                     00046000
TGREG15  DS    F                   REG.15 SAVE AREA                     00047000
         SPACE                                                          00048000
TREQLOCK DS    F              (GIVE/TAKE) TASK REQUEST SYNCH LOCK FIELD 00049000
         EJECT                                                          00050000
         POP   PRINT                                                    00051000
         SPACE                                                          00052000