
  PROCEDURE [INLINE] dfp$initialize_block_header
    (    operation: dft$image_source;
     VAR block_header: dft$image_block_header);

    block_header.file_count := 0;
    block_header.page_count := 0;
    block_header.next_block_header_offset := 0;
    block_header.page_source := operation;
    block_header.block_header_string := dfc$block_header_string;
  PROCEND dfp$initialize_block_header;
?? PUSH (LISTEXT := ON) ??
*copyc dft$image_file
?? POP ??
