
  PROCEDURE [XREF] stp$get_unused_entry_in_jast
    (VAR jast_index: integer;
     VAR status: ost$status);

?? psuh (LISTEXT := ON) ??
*copyc ost$status
?? POP ??
