
  PROCEDURE [XREF] lop$establish_transfer_symbol (starting_procedure:
    pmt$program_name;
        starting_procedure_ring: ost$ring;
    VAR transfer_descriptor {input_output} : lot$external_descriptor;
    VAR reference_descriptor: lot$reference_descriptor;
    VAR user_program_cbp: ^ost$external_code_base_pointer);
?? PUSH (LISTEXT := ON) ??
*copyc LOT$LOADER_TYPE_DEFINITIONS
?? POP ??
