
{* ZCYTFCB cyt$file_control_block *}

  TYPE
    halfword = - 80000000(16) .. 7fffffff(16),
    ring = 0 .. 15,
    segment = 0 .. 4095,
    ptr_control_kind = (official, unofficial),

    seg_ptr_template = packed record
      casebyte: char,
      ring_num: ring,
      segment_number: segment,
      sequence_base: halfword,
      sequence_limit: halfword,
      sequence_avail: halfword,
    recend,


    cyt$segment_info= record
      case kind: ptr_control_kind of
      = official =
        object: amt$segment_pointer,
      = unofficial =
        template: seg_ptr_template,
      casend,
    recend;

  TYPE
    cyt$cybilio_string = record
      size: 0 .. cyc$max_page_width,
      value: string (cyc$max_page_width),
    recend;

  TYPE
    cyt$file_control_block = record
      file_name: string (31),
{     file_name: string (cyc$max_file_name_size),
      file_id: amt$file_identifier,
      last_access_partial: boolean,
      file_kind: cyt$file_kind,
      file_access: cyt$file_access,
      close_disposition: cyt$close_file_disposition,
      data_in_line: boolean,
      new_line_started: boolean,
      line: cyt$cybilio_string,
      column_number: cyt$page_width,
      line_number: 0 .. cyc$page_limit,
      page_number: 0 .. cyc$page_limit,
      include_format_effectors: boolean,
      new_page_procedure: cyt$new_page_procedure,
      new_page_proc_called: boolean,
      page_format: cyt$page_format,
      page_length: 1 .. cyc$page_limit,
      page_width: 1 .. cyc$max_page_width,
      file_position: cyt$current_file_position,
      current_file_length: amt$file_byte_address,
      device_class: rmt$device_class,
      segment_info: cyt$segment_info,
      max_extent: halfword,
    recend;

?? PUSH (LIST := OFF) ??
*copyc cyt$current_file_position
*copyc cyt$file_name
*copyc cyt$close_file_disposition
*copyc cyt$file_access
*copyc cyt$file_kind
*copyc cyt$new_page_procedure
*copyc cyt$page_format
*copyc cyt$page_length
*copyc cyt$page_width
*copyc amt$file_identifier
*copyc amt$segment_pointer
*copyc amt$file_byte_address
*copyc rmt$device_class
?? POP ??
