
  PROCEDURE [XREF] clp$open_display_reference
    (    file: fst$file_reference;
         new_page_procedure: clt$new_display_page_procedure;
         default_file_contents: amt$file_contents;
*IF NOT $true(osv$unix)
         default_ring_attributes: amt$ring_attributes;
*IFEND
     VAR display_control: clt$display_control;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_contents
*IF NOT $true(osv$unix)
*copyc amt$ring_attributes
*IFEND
*copyc clt$display_control
*IF NOT $true(osv$unix)
*copyc fsc$file_contents
*IFEND
*copyc fst$file_reference
*copyc ost$status
?? POP ??
