BGBG    #MAC  JNRGROP   
 BGW6     MODD LDX   0  JPSTATE,%A,CPPTR(2)  
 BH*Q          ANDN  0  512  
 BHTB          BZE   0  %B   
 BJ*2    #NOR