
  PROCEDURE [XREF] dup$display_data
    (    display_option_list_p: ^clt$data_value;
         cm_word_structure: boolean;
         radix: 8 .. 16;
         address: ost$segment_length;
         total_units: integer;
     VAR display_control: clt$display_control;
     VAR restart_file_seq_p: ^SEQ ( * );
     VAR end_of_input_file: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$data_value
*copyc clt$display_control
*copyc osd$virtual_address
*copyc ost$status
?? POP ??
