TYPE
  RDB_type	= array [1..8] of integer;
  WDB_type	= array [1..8] of integer;

  M_array_type 	= record
    rdb			: rdb_type;	{ Region descriptor block }
    wdb			: wdb_type;	{ Window descriptor block }
    apr_to_use		: integer;	{ APR number of window }
    window_status_word	: integer;	{ Status word in WBD }
    max_elements	: integer;	{ Number of elements in array }
    element_size	: integer;	{ Size of an element in bytes }
    elements_per_window	: integer;	{ Number of elements in a window }
    number_of_windows	: integer;	{ Number of windows in region }
    blocks_per_window	: integer;	{ Number of 64 byte blocks per window }
    buffer_address	: integer;	{ Address of buffer }
    use_pointer		: boolean;	{ True if buffer is of pointer type }
    current_window	: integer;	{ Number of current window mapped }
  end;