J=F6    #MAC  SETALLOC  
 J=YQ          LDN   0  1
 J?DB     MODD ORS   0  JPSTATE,%A,CPPTR(2)  
 J?Y2    #NOR