DGPMX64 ; ;11/22/06
 S X=DG(DQ),DIC=DIE
 S DGPMDDF=8,DGPMDDT=1 D ^DGPMDDCN