DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »GLOBAL.PAS«

└─⟦5e7f516ab⟧ Bits:30009789/_.ft.Ibm2.50007345.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »GLOBAL.PAS« 
└─⟦66c279d1a⟧ Bits:30009789/_.ft.Ibm2.50007355.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »GLOBAL.PAS« 

TextFile

(*****************************************************************************)
(*                                                                           *)
(*       GLOBAL CONSTANTS                                                    *)
(*                                                                           *)
(*****************************************************************************)


CONST
   object_format_version: byte = 0;
   obj_pos_hdr_size = 22;
   obj_siz_hdr = 54;
   max_object_file_number = 5;
   max_object_module_number = 10;
   max_segment_number = 2;
   file_name_length = 14;
   symbol_name_length = 8;
   max_global_section_number = 20;
   max_obj_rec_base = 127;


(*****************************************************************************)
(*                                                                           *)
(*       GLOBAL TYPES                                                        *)
(*                                                                           *)
(*****************************************************************************)

TYPE
   obj_rec_base_type = 0..max_obj_rec_base;
   object_record = ARRAY (.obj_rec_base_type.) OF byte;
   object_file_type = RECORD
                         buffer: object_record;
                         position: byte;
                         external_file: file
                      END;
   section_kind_type = (loader_sect, text_sect, data_sect, bss_sect);
   object_module_index_type = 1..max_object_module_number;
   object_file_index_type = 1..max_object_file_number;
   long_base = (RX0, RX1, RX2, RX3);
   long_integer = ARRAY(.long_base.) OF byte;
   address_type = long_integer;
   segment_number_type = 0..max_segment_number;
   symbol_kind = (segmented, abs32, abs16, abs8);
   status_type = (succes, failure, temporary, fatal, nomore, eof, eoln);
   output_kind_type = (load_module,object_module);
   file_name_type = string(.file_name_length.);
   symbol_name_type = string(.symbol_name_length.);
   symbol_kind_type = (rel_sgm_pas,rel_sgm_act);

   section_descriptor_type = RECORD
      size: long_integer;
      relocation_constant: long_integer;
      segment_number: segment_number_type;
   END;

   module_table_entry_type = RECORD
      object_file_index: object_file_index_type;
      start_position: long_integer;
      section: ARRAY(.section_kind_type.) OF section_descriptor_type;
      rld_start,
      export_start,
      import_start: long_integer
   END;




(*****************************************************************************)
(*                                                                           *)
(*       GLOBAL STRRUCTURED CONSTANTS                                        *)
(*                                                                           *)
(*****************************************************************************)

CONST
   long_null: long_integer = (0,0,0,0);


«eof»