=B46    #MAC  JDRM  
 =BHQ     MODD LDX   0  JK52E,%A,CPPTR(2)
 =C3B          ANDN  0  4
 =CH2          BNZ   0  %B   
 =D2L    #NOR