MACRO 00001000
DMSABW &CSECT 00002000
AIF ('&CSECT' NE 'CSECT' AND '&CSECT' NE 'TEST').D 00003000
.C ANOP 00004000
ENTRY DMSABW 00005000
DMSABW DS 0D 00006000
AIF ('&CSECT' EQ 'CSECT').CE 00007000
ABWSECT EQU * 00008000
AGO .CE 00009000
.D ANOP 00010000
ABWSECT DSECT 00011000
.CE ANOP 00012000
SPACE 00013000
* DMSABN (ABEND RECOVERY ROUTINE) WORKSPACE. 00014000
SPACE 00015000
ABNREGS DS 16F REGISTERS AT TIME OF ABEND 00016000
ABNPSW DS D PSW AT TIME OF ABEND 00017000
ABNRR DS F TEMP SAVE AREA 00018000
ABNPAS13 DS 18F AREA PASSED TO NUCLEUS ROUTINES 00019000
SPACE 00020000
* SPACE FOR DMSERR PLISTS 00021000
ORG ABNPAS13 00022000
ABNERLST DMSERR MAXSUBS=5,MF=L 00023000
ORG 00024000
EJECT 00025000
MEND 00026000