
  PROCEDURE [XREF] cmp$assign_pp_r1
    (    assigned: boolean;
         assigned_pp: iot$pp_number);

?? PUSH (LISTEXT := ON) ??
*copyc iot$pp_number
?? POP ??
