*COMDECK BEGIN
         NAM   BEGINX 
         ENT BEGINX 
         EXT   DSTKFW 
         EXT   DSTKLW 
         EXT   DVARFW 
         EXT   DVARLW 
BEGINX   LR1   =XDSTKLW  DYNAMIC STACK LAST WORD ADDRESS
         LR2   =XDVARLW  DYNAMIC VAR AREA LAST WORD ADDRESS 
         LR3   =XDSTKFW  DYNAMIC STACK FIRST WORD ADDRESS 
         LR4   =XDVARFW  DYNAMIC VAR AREA FIRST WORD ADDRESS
         JMP+  0         JUMP TO INITILAIZATION - VALUE SET BY MPEDIT 
         END
