DGPMX64.m

DGPMX64 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 S DGPMDDF=8,DGPMDDT=1 D ^DGPMDDCN

DGPMX64   ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        SET DGPMDDF=8

           SET DGPMDDT=1

           DO ^DGPMDDCN