TITLE ' OLTEP COMMON AREA.  IFDOLT23'                          00010000
         TITLE ' OLTEP COMMON AREA.  IFDOLT23'                          00020000
         LCLA  &T,&SPN                                            0002  00030000
.@001    ANOP                                                     0002  00040000
IFDOLT23 CSECT ,                                                  0002  00050000
* GEN(COMCOM);                                                          00060000
         COMCOM                                                         00070000
         DS    0H                                                       00080000
* END;                                                                  00090000
@EL01    BCR   15,@E                                              0004  00100000
@DATA1   EQU   *                                                        00110000
@0       EQU   00                  EQUATES FOR REGISTERS 0-15           00120000
@1       EQU   01                                                       00130000
@2       EQU   02                                                       00140000
@3       EQU   03                                                       00150000
@4       EQU   04                                                       00160000
@5       EQU   05                                                       00170000
@6       EQU   06                                                       00180000
@7       EQU   07                                                       00190000
@8       EQU   08                                                       00200000
@9       EQU   09                                                       00210000
@A       EQU   10                                                       00220000
@B       EQU   11                                                       00230000
@C       EQU   12                                                       00240000
@D       EQU   13                                                       00250000
@E       EQU   14                                                       00260000
@F       EQU   15                                                       00270000
         DS    0D                                                       00280000
@DATA    EQU   *                                                        00290000
         DS    00000000C                                                00300000
@TEMPS   DS    0F                                                       00310000
@DATEND  EQU   *                                                        00320000
         END                                                            00330000