         PROC                                                           P$D00010
D3$4AB   NAME                                                           P$D00020
****                ABSOLUTIZING AND DEABSOLUTIZING SUBROUTINE          P$D00030
D3$4ABSX EQU   *       ENTRANCE ON TRANSIENT EXIT OR ERROR              P$D00040
         MVC   DC$REQS(1),DC$FCS    SAVE FUNCTION CODE FOR SEQ          P$D00045
         LM    12,14,D3$4STB            RESTORE REG 12 THRU 14          P$D00050
         XR    9,9                                                      P$D00060
         SR    9,12                     SET R9 TO NEG RELOCATION        P$D00070
         MVC   DC$ERIOC(3),D3$4SVER RESTORE PROCESSOR ERR EXIT          P$D00080
D3$4ABSR EQU   *                   ENTRANCE ON TRANSIENT ENTRANCE       P$D00090
         LA    5,9(0,0)                 SET ADDR COUNTER TO 9           P$D00100
         LA    8,D3$4ABTB          SET TBL ADDR POINTER TO START        P$D00110
D3$4ABS2 MVC   D3$4ABS4+2(2),0(8)  MODIFY INST FROM TABLE               P$D00120
D3$4ABS4 LA    6,0(0,0)                                                 P$D00130
         L     7,0(6)                                                   P$D00140
         AR    7,9                      ADD OR SUB BASE                 P$D00150
         ST    7,0(6)                                                   P$D00160
         LA    8,2(,8)             INCR TBL POINTER                     P$D00170
         BCT   5,D3$4ABS2          ALL ADDRESSES DONE?  NO,D3$4ABS2     P$D00180
         BR    11                  RETURN                               P$D00200
D3$4ABTB DC    S(D3$SATA)                                               P$D00210
         DC    S(DC$EXT)                                                P$D00220
         DC    S(DC$CCWA)                                               P$D00230
         DC    S(D3$XBUF)                                               P$D00240
         DC    S(D3$XADJ)                                               P$D00250
         DC    S(D3$XKARG)                                              P$D00260
         DC    S(DC$PCA2)                                               P$D00270
         DC    S(D3$XKSEQ)                                              P$D00280
         DC    S(DC$PIO)                                                P$D00290
         END                                                            P$D00320
