++USERMOD(M024001) /* EDM1102 - UPDATE USRDDT00, UTRKCALC */.
++VER(Z038) FMID(EDM1102) PRE(M023000).
++SRCUPD(USRDDT00).
./ CHANGE NAME=USRDDT00
         EJECT ,                                                        00625038
*---------------------------------------------------------------------- 00630038
*  UDDT3375     DDT ENTRY FOR 3375 DEVICES - SEE AMODGEN(IECDDT) MACRO  00640038
*---------------------------------------------------------------------- 00650038
         ENTRY UDDT3375                                                 00660038
UDDT3375 DC    C'DDT '       +00  DDTNAME   DDT EYECATCHER              00670038
         DC    X'00'         +04  DDTFL1    LPA INITIALIZED FLAG        00680038
         DC    X'00'         +05  DDTS1ID   DDTSUB1 FLAG                00690038
         DC    X'0000'       +06  DDTRSVD1  RESERVED                    00700038
         DC    X'C6000000'   +08  DDTVALBM  VALIDITY BIT MAP            00710038
*                80               SIO TRAP VALID (REQUIRED)             00720038
*                40               TRAP EXIT VALID (REQUIRED)            00730038
*                04               CCW TABLE ENTRY VALID (REQUIRED)      00740038
*                02               ERP MSG WRITE EXIT VALID (REQUIRED)   00750038
         DC    X'02000000'   +0C  DDTLPABM  LPA BIT MAP                 00760038
*                02               ERP MSG WRITER ENTRY CONTAINS         00770038
*                                 MODULE SUFFIX INSTEAD OF AN ADDRESS   00780038
         DC    C'IECL'       +10  DDTLPAPF                              00790038
*                                 FOUR CHAR PREFIX CONCATENATED WITH    00800038
*                                 FOUR CHAR SUFFIX TO BULID LPA         00810038
*                                 MODULE NAMES                          00820038
         DC    V(IECVXDAS)   +14  DDTSIO    SIO EXIT ADDRESS            00830038
         DC    V(IECVXDAT)   +18  DDTTRAP   TRAP CODE EXIT ADDRESS      00840038
         DC    V(IECVXDAU)   +1C  DDTUNIN   UNSOLICITED INTERRUPT       00850038
*                                           EXIT ADDRESS                00860038
         DC    A(0)          +20  DDTSENSE  SENSE ROUTINE EXIT ADDRESS  00870038
         DC    A(0)          +24  DDTEOS    END-OF-SENSE EXIT ADDRESS   00880038
         DC    V(IECVOPTD)   +28  DDTTCCW   IECVTCCW OP TABLE ADDRESS   00890038
         DC    C'MSGD'       +2C  DDTERPMS  ERP MSG WRITER EXIT ID      00900038
         DC    X'00000000'   +30  DDTMIH    MIH INDEX VALUE (REQUIRED)  00910038
         TITLE 'IECDDT'                                                 00920038
         IECDDT ,                                                       00930038
         END   ,                                                        00940038
++SRCUPD(UTRKCALC).
./ CHANGE NAME=UTRKCALC
         BO    DT3380                  3375 & 3380 use same code        01010038
