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

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