TITLE 'IFDMSG33 OPTION DECODE MESSAGE MODULE'                  00010000
         TITLE 'IEDMSG33 OPTIONS DECODE MESSAGE MODULE'                 00020000
         LCLA  &T,&SPN                                            0002  00030000
.@001    ANOP                                                     0002  00040000
IFDMSG33 CSECT ,                                                  0002  00050000
         DC    AL4(IFD104)                                              00060000
         DC    AL4(IFD107)                                              00070000
         DC    AL4(IFD115)                                              00080000
         DC    AL4(IFD161)                                              00090000
         DC    AL4(IFD176)                                        M4501 00100000
         DC    AL4(IFD327)                                              00110000
IFD104   DC    XL1'00'                                                  00120000
         DC    XL3'00'                                                  00130000
         DC    XL4'00'                                                  00140000
         WTO   'IFD104E TO FORCE COMMUNICATION WITH OLTEP EXECUTIVE, ENX00150000
               TER ANY CHAR',MF=L,ROUTCDE=10,DESC=7                     00160000
*                                                                 M1006 00170000
IFD107   WTO   'IFD107I OPTIONS ARE NFE,NMI,NPP,NTL,NEL,NCP,NEP,NPR,NREX00180000
               ,NTR',DESC=7,ROUTCDE=10,MF=L                     X01906  00190000
IFD327   WTO   'IFD327I EXT=                                           X00200000
                             ',DESC=7,ROUTCDE=10,MF=L                   00210000
IFD115   WTO   'IFD115I INVALID ENTRY IN OPT FLD-           ',MF=L,ROUTX00220000
               CDE=10,DESC=7                                      M4501 00230000
IFD161   WTO   'IFD161I FOR HELP ENTER PROMPT  OPT TO NEXT DEV/TEST/OPTX00240000
               / MESSAGE',MF=L,ROUTCDE=10,DESC=7                        00250000
IFD176   WTO   'IFD176I MUTUALLY EXCLUSIVE OPTIONS HAVE BEEN SELECTED',X00260000
               MF=L,ROUTCDE=10,DESC=7                             M4501 00270000
         DS    0H                                                       00280000
*         END;                                                          00290000
@EL01    BCR   15,@E                                              0004  00300000
@DATA1   EQU   *                                                        00310000
@0       EQU   00                  EQUATES FOR REGISTERS 0-15           00320000
@1       EQU   01                                                       00330000
@2       EQU   02                                                       00340000
@3       EQU   03                                                       00350000
@4       EQU   04                                                       00360000
@5       EQU   05                                                       00370000
@6       EQU   06                                                       00380000
@7       EQU   07                                                       00390000
@8       EQU   08                                                       00400000
@9       EQU   09                                                       00410000
@A       EQU   10                                                       00420000
@B       EQU   11                                                       00430000
@C       EQU   12                                                       00440000
@D       EQU   13                                                       00450000
@E       EQU   14                                                       00460000
@F       EQU   15                                                       00470000
         DS    0D                                                       00480000
@DATA    EQU   *                                                        00490000
         DS    00000000C                                                00500000
@TEMPS   DS    0F                                                       00510000
@DATEND  EQU   *                                                        00520000
         END                                                            00530000