JCT2    #MAC  SETBGROP  
 JD#L          LDN   0  32   
 JDS=     MODD ORS   0  JPSTATE,%A,CPPTR(2)  
 JF?W    #NOR