         PROC  &P,0,&CALLER=                                            DM$00010
DM$DABS  NAME                                                           DM$00020
*                                                                       DM$00030
*                  PICK ADDRESSES IN DTF AND CALL ABSALUTIZING S/R      DM$00040
*                                                                       DM$00050
DS$TRT2  EQU   *                                                        DM$00060
         LA    3,DC$CCWA                                                DM$00070
         BAL   14,DS$ABS                                                DM$00080
         LA    3,DC$PIO                                                 DM$00090
         BAL   14,DS$ABS                                                DM$00100
         LA    3,DC$EXT                                                 DM$00110
         BAL   14,DS$ABS                                                DM$00120
         LA    3,DC$PCA1                                                DM$00130
         BAL   14,DS$ABS                                                DM$00140
         LA    3,DC$PCA2                                                DM$00150
         BAL   14,DS$ABS                                                DM$00160
         LA    3,DC$RELOC                                               DM$00170
         BAL   14,DS$ABS                                                DM$00180
         LA    3,DC$BUF2                                                DM$00190
         BAL   14,DS$ABS                                                DM$00200
         LA    3,DC$ADJ2                                                DM$00210
         BAL   14,DS$ABS                                                DM$00220
         LA    3,DC$EOD2-1                                              DM$00230
         BAL   14,DS$ABS                                                DM$00240
         LA    3,DH$IOA1                                                DM$00250
         BAL   14,DS$ABS                                                DM$00260
         LA    3,DH$IOA2                                                DM$00270
         BAL   14,DS$ABS                                                DM$00280
         LA    3,DH$INDA                                                DM$00290
         BAL   14,DS$ABS                                                DM$00300
         LA    3,DH$A1                                                  DM$00310
         BAL   14,DS$ABS                                                DM$00320
         LA    3,DH$LADJ                                                DM$00330
         BAL   14,DS$ABS                                                DM$00340
         LA    3,DH$EOD-1                                               DM$00350
         BAL   14,DS$ABS                                                DM$00360
         BR    5                                                        DM$00370
*                                                                       DM$00380
*                  ABSOLUTIZING S/R                                     DM$00390
*                                                                       DM$00400
DS$ABS   EQU   *                                                        DM$00410
         L     4,0(3)              R4 - OBTAIN ADDRESS TO ABSOLUTIZED   DM$00420
DS$ABSX  A     4,DS$BASE           ABSOLUTIZE IT                        DM$00430
         ST    4,0(3)              PUT IT BACK                          DM$00440
         BR    14                  * *  RETURN  * *                     DM$00450
*                                                                       DM$00460
*                        ERROR EXIT TO TO$EROVL                         DM$00470
*                                                                       DM$00480
DS$EROV  EQU   *                                                        DM$00490
         DO    '&CALLER'='SETFL'                                        DM$00500
         L     15,DH$LACR          RESTORE TRANSIENT COVER              DM$00510
         GOTO  .L01                                                     DM$00520
         ENDO                                                           DM$00530
         L     15,DH$MAXR          RESTORE TRANSIENT COVER              DM$00540
.L01     LABEL                                                          DM$00550
         MVC   DC$ERIOC(3),DS$ERIOX+1   RESTORE ERROR ADDRESS           DM$00560
         MVI   DS$ABSX,X'5B'    CHANGE ADD TO SUBTRACT                  DM$00570
         BAL   5,DS$TRT2           GO & RESTORE DTF ADDRESSES           DM$00580
         MVI   DS$ABSX,X'5A'       CHANGE SUBTRACT BACK TO ADD          DM$00590
         LM    11,14,DS$STRG       RESTORE REGS 11 THROUGH 14           DM$00600
         LR    9,1                                                      DM$00610
         TOVLY TO$EROVL,1                                               DM$00620
*                                                                       DM$00630
DS$R14   DS    F              { TEMP STORE FOR R14                      DM$00640
DS$BASE  DS    F                   SAVEAREA FOR RS$BAS                  DM$00650
DS$ERIOX DC    F'0'                TEMP SAVEAREA FOR ERROR ADDRESS      DM$00660
DS$EROVA DC    F'0'                ADDRESS OF TRANSIENT ERROR EXIT      DM$00670
DS$TPS   DC    2F'0'                                                    DM$00680
DS$STRG  DC    4F'00'                                                   DM$00690
         END  {                                                         DM$00700
