*J5Q    #MAC  JMT   
 *JKB          LDN   0  #2000
 *K52     MODD ANDX  0  JK52F,%A,CPPTR(2)
 *KJL          BNZ   0  %B   
 *L4=    #NOR