*X*6 #MAC JNBGROP *XSQ MODD LDX 0 JPSTATE,%A,CPPTR(2) *Y#B ANDN 0 32 *YS2 BZE 0 %B *^?L #NOR