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