TITLE ' SUBSTITUTE FOR IFDOLT55 IN SYSTEM WITHOUT REI. IFDOLT5X00010000
               9'                                                       00020000
* GEN(TITLE ' IFDOLT59-REI MODULE REPLACEMENT');                        00030000
         TITLE ' IFDOLT59-REI MODULE REPLACEMENT'                       00040000
* /******************************************************************** 00050000
* /*  MODULE IFDOLT59 IS A REPLACEMENT FOR IFDOLT55 IN A SYSTEM       * 00060000
* /*  WITHOUT REI. IFDOLT59 IS NEVER ENTERED AND IS ONLY USED TO      * 00070000
* /*  RESOLVE UNRESOLVED SYMBOLS DURING LINKEDIT TIME.                * 00080000
* /******************************************************************** 00090000
* IFDOLT59: PROC OPTIONS(NOSAVEAREA,DONTSAVE,CODEREG(0),DATAREG(0));    00100000
         LCLA  &T,&SPN                                            0002  00110000
.@001    ANOP                                                     0002  00120000
IFDOLT59 CSECT ,                                                  0002  00130000
*  GEN(ENTRY IFDOLT55);                                                 00140000
         ENTRY IFDOLT55                                                 00150000
         DS    0H                                                       00160000
*  GEN(ENTRY DEDBUF);                                                   00170000
         ENTRY DEDBUF                                                   00180000
         DS    0H                                                       00190000
*  GEN(ENTRY REMINBUF);                                                 00200000
         ENTRY REMINBUF                                                 00210000
         DS    0H                                                       00220000
*  GEN(ENTRY REIDCB);                                                   00230000
         ENTRY REIDCB                                                   00240000
         DS    0H                                                       00250000
*  GEN(ENTRY REIOB);                                                    00260000
         ENTRY REIOB                                                    00270000
         DS    0H                                                       00280000
* IFDOLT55:                                                             00290000
* DEDBUF:                                                               00300000
* REMINBUF:                                                             00310000
* REIDCB:                                                               00320000
* REIOB:                                                                00330000
* END;                                                                  00340000
IFDOLT55 EQU   *                                                  0008  00350000
DEDBUF   EQU   *                                                  0008  00360000
REMINBUF EQU   *                                                  0008  00370000
REIDCB   EQU   *                                                  0008  00380000
REIOB    EQU   *                                                  0008  00390000
@EL01    BCR   15,@E                                              0008  00400000
@DATA1   EQU   *                                                        00410000
@0       EQU   00                  EQUATES FOR REGISTERS 0-15           00420000
@1       EQU   01                                                       00430000
@2       EQU   02                                                       00440000
@3       EQU   03                                                       00450000
@4       EQU   04                                                       00460000
@5       EQU   05                                                       00470000
@6       EQU   06                                                       00480000
@7       EQU   07                                                       00490000
@8       EQU   08                                                       00500000
@9       EQU   09                                                       00510000
@A       EQU   10                                                       00520000
@B       EQU   11                                                       00530000
@C       EQU   12                                                       00540000
@D       EQU   13                                                       00550000
@E       EQU   14                                                       00560000
@F       EQU   15                                                       00570000
         DS    0D                                                       00580000
@DATA    EQU   *                                                        00590000
         DS    00000000C                                                00600000
@TEMPS   DS    0F                                                       00610000
@DATEND  EQU   *                                                        00620000
         END                                                            00630000