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