
  PROCEDURE [XREF] pmp$outward_call (callee: ^ost$external_code_base_pointer;
    ring: ost$ring;
    parameter_list: ^cell;
    preceding_sfsa: ^ost$stack_frame_save_area;
    VAR stack_segment: ^pmt$stack_segment);
?? PUSH (LISTEXT := ON) ??
*copyc OSD$CODE_BASE_POINTER
*copyc OSD$VIRTUAL_ADDRESS
*copyc OST$STACK_FRAME_SAVE_AREA
*copyc PMT$STACK_SEGMENT
?? POP ??
