
  PROCEDURE [XREF] pmp$find_stack_segment (ring: ost$ring;
    VAR stack_segment: ^pmt$stack_segment);
?? PUSH (LISTEXT := ON) ??
*copyc OSD$VIRTUAL_ADDRESS
*copyc PMT$STACK_SEGMENT
?? POP ??
