DGPMX63.m

DGPMX63 ; ;10/15/12

 S X=DE(16),DIC=DIE

 S DGPMDDF=8,DGPMDDT=0 D ^DGPMDDCN

DGPMX63   ; ;10/15/12

 +1        SET X=DE(16)

           SET DIC=DIE

 +2        SET DGPMDDF=8

           SET DGPMDDT=0

           DO ^DGPMDDCN