DGPMX63 ; ;11/06/06
 S X=DE(16),DIC=DIE
 S DGPMDDF=8,DGPMDDT=0 D ^DGPMDDCN
