TITLE ' IEAVADFM - USER FORMAT CSECT                          *00001000
                        '                                               00002000
IEAVADFM CSECT ,                                                   0001 00003000
@PROLOG  DS    0H                                                  0002 00004000
        DC    XL4'00000000'                                             00005000
        DC    XL4'00000000'                                             00006000
        DC    XL4'00000000'                                             00007000
        DC    XL4'00000000'                                             00008000
        DC    XL4'00000000'                                             00009000
        DC    XL4'00000000'                                             00010000
        DC    XL4'00000000'                                             00011000
        DC    XL4'00000000'                                             00012000
        DC    XL4'00000000'                                             00013000
*   END IEAVADFM;                                                  0003 00014000
@EL00001 DS    0H                                                  0003 00015000
@EF00001 DS    0H                                                  0003 00016000
@ER00001 BR    @14                                                 0003 00017000
@DATA    DS    0H                                                       00018000
@DATD    DSECT                                                          00019000
         DS    0F                                                       00020000
IEAVADFM CSECT                                                          00021000
         DS    0F                                                       00022000
@DATD    DSECT                                                          00023000
         DS    0D                                                       00024000
         ORG   *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA                00025000
@ENDDATD EQU   *                                                        00026000
IEAVADFM CSECT                                                          00027000
         DS    0F                                                       00028000
@SIZDATD DC    AL1(0)                                                   00029000
         DC    AL3(@ENDDATD-@DATD)                                      00030000
         DS    0D                                                       00031000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00032000
@01      EQU   01                                                       00033000
@02      EQU   02                                                       00034000
@03      EQU   03                                                       00035000
@04      EQU   04                                                       00036000
@05      EQU   05                                                       00037000
@06      EQU   06                                                       00038000
@07      EQU   07                                                       00039000
@08      EQU   08                                                       00040000
@09      EQU   09                                                       00041000
@10      EQU   10                                                       00042000
@11      EQU   11                                                       00043000
@12      EQU   12                                                       00044000
@13      EQU   13                                                       00045000
@14      EQU   14                                                       00046000
@15      EQU   15                                                       00047000
@ENDDATA EQU   *                                                        00048000
         END   IEAVADFM,(C'PLS0034',0701,77005)                         00049000