*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