User Tools

Site Tools


ibm:vm370-lib:rscs:tarea.copy_src

TAREA Source

References

Source Listing

TAREA.COPY.txt
  1. *COPY TAREA 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').TAR01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .TAR01 ANOP 00001800
  6. TAREA DSECT 00002000
  7. SPACE 1 00003000
  8. *** TAREA - TASK SAVE AREA 00004000
  9. * 00005000
  10. * 0 +-----------------------------------------------+ 00006000
  11. * | TPSW | 00007000
  12. * 8 +-----------------------+-----------------------+ 00008000
  13. * | TGREG0 | TGREG1 | 00009000
  14. * 10 +-----------------------+-----------------------+ 00010000
  15. * | TGREG2 | TGREG3 | 00011000
  16. * 18 +-----------------------+-----------------------+ 00012000
  17. * | TGREG4 | TGREG5 | 00013000
  18. * 20 +-----------------------+-----------------------+ 00014000
  19. * | TGREG6 | TGREG7 | 00015000
  20. * 28 +-----------------------+-----------------------+ 00016000
  21. * | TGREG8 | TGREG9 | 00017000
  22. * 30 +-----------------------+-----------------------+ 00018000
  23. * | TGREG10 | TGREG11 | 00019000
  24. * 38 +-----------------------+-----------------------+ 00020000
  25. * | TGREG12 | TGREG13 | 00021000
  26. * 40 +-----------------------+-----------------------+ 00022000
  27. * | TGREG14 | TGERG15 | 00023000
  28. * 48 +-----------------------+-----------------------+ 00024000
  29. * | TREQLOCK | 00025000
  30. * 50 +-----------------------+ 00026000
  31. * 00027000
  32. *** TAREA - TASK SAVE AREA 00028000
  33. SPACE 1 00029000
  34. TPSW DS D RESUME PSW FOR THIS TASK 00030000
  35. SPACE 00031000
  36. TGREG0 DS F REG.0 SAVE AREA 00032000
  37. TGREG1 DS F REG.1 SAVE AREA 00033000
  38. TGREG2 DS F REG.2 SAVE AREA 00034000
  39. TGREG3 DS F REG.3 SAVE AREA 00035000
  40. TGREG4 DS F REG.4 SAVE AREA 00036000
  41. TGREG5 DS F REG.5 SAVE AREA 00037000
  42. TGREG6 DS F REG.6 SAVE AREA 00038000
  43. TGREG7 DS F REG.7 SAVE AREA 00039000
  44. TGREG8 DS F REG.8 SAVE AREA 00040000
  45. TGREG9 DS F REG.9 SAVE AREA 00041000
  46. TGREG10 DS F REG.10 SAVE AREA 00042000
  47. TGREG11 DS F REG.11 SAVE AREA 00043000
  48. TGREG12 DS F REG.12 SAVE AREA 00044000
  49. TGREG13 DS F REG.13 SAVE AREA 00045000
  50. TGREG14 DS F REG.14 SAVE AREA 00046000
  51. TGREG15 DS F REG.15 SAVE AREA 00047000
  52. SPACE 00048000
  53. TREQLOCK DS F (GIVE/TAKE) TASK REQUEST SYNCH LOCK FIELD 00049000
  54. EJECT 00050000
  55. POP PRINT 00051000
  56. SPACE 00052000
ibm/vm370-lib/rscs/tarea.copy_src.txt ยท Last modified: 2023/08/06 13:39 by Site Administrator