User Tools

Site Tools


ibm:vm370-lib:macro:dmsabw.macro_src

DMSABW Source

References

Source Listing

DMSABW.MACRO.txt
  1. MACRO 00001000
  2. DMSABW &CSECT 00002000
  3. AIF ('&CSECT' NE 'CSECT' AND '&CSECT' NE 'TEST').D 00003000
  4. .C ANOP 00004000
  5. ENTRY DMSABW 00005000
  6. DMSABW DS 0D 00006000
  7. AIF ('&CSECT' EQ 'CSECT').CE 00007000
  8. ABWSECT EQU * 00008000
  9. AGO .CE 00009000
  10. .D ANOP 00010000
  11. ABWSECT DSECT 00011000
  12. .CE ANOP 00012000
  13. SPACE 00013000
  14. * DMSABN (ABEND RECOVERY ROUTINE) WORKSPACE. 00014000
  15. SPACE 00015000
  16. ABNREGS DS 16F REGISTERS AT TIME OF ABEND 00016000
  17. ABNPSW DS D PSW AT TIME OF ABEND 00017000
  18. ABNRR DS F TEMP SAVE AREA 00018000
  19. ABNPAS13 DS 18F AREA PASSED TO NUCLEUS ROUTINES 00019000
  20. SPACE 00020000
  21. * SPACE FOR DMSERR PLISTS 00021000
  22. ORG ABNPAS13 00022000
  23. ABNERLST DMSERR MAXSUBS=5,MF=L 00023000
  24. ORG 00024000
  25. EJECT 00025000
  26. MEND 00026000
ibm/vm370-lib/macro/dmsabw.macro_src.txt ยท Last modified: 2023/08/06 13:38 by Site Administrator