
  PROCEDURE [XREF] jmp$read_defined_classes
    (    class_kind: jmt$class_kind;
     VAR defined_classes: jmt$defined_classes;
     VAR number_of_classes: ost$non_negative_integers;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$class_kind
*copyc jmt$defined_classes
*copyc osd$integer_limits
*copyc ost$status
?? POP ??

