          IDENT  DSMTRM
          ENTRY  DSMTRM

*
*         THIS PROGRAM PROVIDES THE ENTRY POINT AND PROGRAM NAME FOR
*         *DSMTRM*, IT BRANCHES TO THE ENTRY POINT IN *DSM$TERMINATE-NOS-VE*.
*         THE REASON FOR THIS IS THAT SOME ASSEMBLY LANGUAGE K DISPLAY
*         INTERFACES MUST BE LOADED BELOW 10000(8) FOR NOS/BE.
*         *DSM$TERMINATE-NOS-VE* EXCEEDED 10000(8) WORDS WHICH CAUSED
*         THIS PROBLEM.
*

 DSMTRM   BSS    0           ENTRY.
          EQ     =XDSPTNVE   BRANCH TO *DSM$TERMINATE-NOS-VE*.
          END    DSMTRM
