                                                                                                              
  PROCEDURE [XDCL] dup$display_memory                                                                         
    (VAR display_control: clt$display_control;                                                                
         memory_p: ^SEQ ( * );                                                                                
         byte_count: 1 .. 8;                                                                                  
         repeat_count: integer;                                                                               
         start_address: ost$segment_offset;                                                                   
     VAR status: ost$status);                                                                                 
                                                                                                              
?? PUSH (LISTEXT := ON) ??                                                                                    
*copyc clt$display_control                                                                                    
*copyc osd$virtual_address                                                                                    
*copyc ost$status                                                                                             
?? POP ??                                                                                                     
