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