DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦f7e86fc27⟧ TextFile

    Length: 1408 (0x580)
    Types: TextFile
    Names: »LINKCLAS.PAS«

Derivation

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

TextFile

(*****************************************************************************)
(*                                                                           *)
(*       class module table                                                  *)
(*                                                                           *)
(*****************************************************************************)


VAR
   object_file_table: ARRAY(.object_file_index_type.) OF object_file_type;
   module_table: ARRAY(.object_module_index_type.) OF module_table_entry_type;
   target_module: module_table_entry_type;
   object_module_count: object_module_index_type; (* count of modules registered sofar *)
   object_file_count: object_file_index_type; (*count of files registered sofar*)


PROCEDURE allocate_object_file_entry(VAR status: status_type;
                                     VAR index: object_file_index_type;
                                     VAR object_file: object_file_type
                                    );

  BEGIN (* allocate_object_file_entry *)
  END;  (* allocate_object_file_entry *)

PROCEDURE allocate_object_module_entry(VAR status: status_type;
                                       VAR index: object_module_index_type
                                      );

  BEGIN (* allocate_object_module_entry *)
  END;  (* allocate_object_module_entry *)
«eof»