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

⟦91a377d63⟧ TextFile

    Length: 6400 (0x1900)
    Types: TextFile
    Names: »LNKDC2.BAK«

Derivation

└─⟦91467e717⟧ Bits:30009789/_.ft.Ibm2.50007348.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDC2.BAK« 

TextFile

(******************************************************************************)
(*                                                                            *)
(*   Copyright (1985) by Metanic Aps., Denmark                                *)
(*                                                                            *)
(*   Author: Lars Gregers Jakobsen.                                           *)
(*                                                                            *)
(******************************************************************************)


      (* This include file contains the EXTERNAL declarations for access
         procedures used throughout the entire program
      *)


      PROCEDURE FilAsg(VAR F: FileType
                      ;FN: FileNameType
                      ); EXTERNAL;

      PROCEDURE FilRst(VAR F: FileType
                      ); EXTERNAL;

      PROCEDURE FilRwt(VAR F: FileType
                      ); EXTERNAL;

      PROCEDURE FilCls(VAR F: FileType
                      ); EXTERNAL;

      PROCEDURE FGF(VAR Status: StatusType
                   ;VAR Fl: FileType
                   ;VAR R: ObjectRecordType
                   ;    Size: ObjectRecordIndexType
                   ); EXTERNAL;

      PROCEDURE FGFV(VAR Status: StatusType
                    ;VAR Fl: FileType
                    ;VAR R: ObjectRecordType
                    ;    Size: ObjectRecordIndexType
                    ); EXTERNAL;

      PROCEDURE FGV(VAR Status: StatusType
                   ;VAR Fl: FileType
                   ;VAR R: SymbolNameType
                   ); EXTERNAL;

         (* NOTE that if no errors occur FGV will NOT change the value
         of the parameter Status no matter what the vaue may be. *)

      PROCEDURE FPF(VAR Status: StatusType
                   ;VAR Fl: FileType
                   ;    R: ObjectRecordType
                   ;    Size: ObjectRecordIndexType
                   ); EXTERNAL;

      PROCEDURE FPV(VAR Status: StatusType
                   ;VAR Fl: FileType
                   ;    SymbolName: SymbolNameType
                   ); EXTERNAL;

      PROCEDURE LogInit(VAR LogFile: LogFileType
                       ;    FileName: FileNameType
                       ); EXTERNAL;

      PROCEDURE LogFF(VAR LogFile: LogFileType
                     ;    Delta: LineNoType
                     ); EXTERNAL;


(*
      PROCEDURE LogCom(VAR LogFile: LogFileType
                        ;    CommandLine: CommandLineType
                        ); EXTERNAL;

        BEGIN
        END;
*)

      PROCEDURE LogHsgd(VAR LogFile: LogFileType
                       ); EXTERNAL;

      PROCEDURE LogSGD(VAR LogFile: LogFileType
                      ;    SegmentNo: RelocationIndicatorType
                      ;    StartAddress: SizeType
                      ;    Size: SizeType
                      ;    ModuleName: SymbolNameType
                      ); EXTERNAL;

      PROCEDURE LogHurs(VAR LogFile: LogFileType
                       ); EXTERNAL;

      PROCEDURE LogHxpN(VAR LogFile: LogFileType
                       ); EXTERNAL;

      PROCEDURE LogHxpV(VAR LogFile: LogFileType
                       ); EXTERNAL;

      PROCEDURE LogHSxp(VAR LogFile: LogFileType
                       ); EXTERNAL;

      PROCEDURE LogHSurs(VAR LogFile: LogFileType
                        ); EXTERNAL;

      PROCEDURE LogXP(VAR LogFile: LogFileType
                     ;    SegmentNo: RelocationIndicatorType
                     ;    Value: i32
                     ;    SymbolName: SymbolNameType
                     ); EXTERNAL;

      PROCEDURE LogURS(VAR LogFile: LogFileType
                      ;    ModuleNo: ModuleTableIndexType
                      ;    SymbolName: SymbolNameType
                      ); EXTERNAL;

      PROCEDURE LogTerm(VAR LogFile: LogFileType
                       ); EXTERNAL;

      FUNCTION OPTLFK: LogFileKindType; EXTERNAL;

      PROCEDURE FNTP(VAR Status: StatusType
                    ;    FileName: FileNameType
                    ); EXTERNAL;

      PROCEDURE FNTG(VAR Status: StatusType
                    ;    Inx: FileNameTableIndexType
                    ;VAR FileName: FileNameType
                    ); EXTERNAL;

       PROCEDURE EITP(VAR Status: StatusType
                    ;    SymbolTableEntryNo: SymbolTableIndexType
                    ); EXTERNAL;

       PROCEDURE MDTP(VAR Status: StatusType
                     ;VAR ModuleNo: ModuleTableIndexType
                     ;    SymbolNo: SymbolTableIndexType
                     ;    FileNo: FileNameTableIndexType
                     ;    StartAddressOfNextModule: FileAddressType
                     ;    OMH_Record: ObjectRecordType
                     ); EXTERNAL;

      PROCEDURE MDTPLH(VAR Status: StatusType
                      ;    ModuleNo: ModuleTableIndexType
                      ;    LinkHead: SymbolTableIndexType
                      ); EXTERNAL;

      FUNCTION MDTGLH(    ModuleNo: ModuleTableIndexType
                     ): SymbolTableIndexType; EXTERNAL;

      PROCEDURE MDTPEI(VAR Status: StatusType
                      ;    ModuleNo: ModuleTableIndexType
                      ); EXTERNAL;

      PROCEDURE MDTGMN(VAR Status: StatusType
                      ;    ModuleNo: ModuleTableIndexType
                      ;VAR SBTInx: SymbolTableIndexType
                      ); EXTERNAL;

      PROCEDURE SCTP(VAR Status: StatusType
                    ;    P_ModuleNo: ModuleTableIndexType
                    ;    P_SegmentNo: SegmentNoType
                    ;    SGD_Record: ObjectRecordType
                    ); EXTERNAL;

      PROCEDURE SCTG(VAR Status: StatusType
                    ;VAR Section: SectionTableRecordType
                    ); EXTERNAL;

      PROCEDURE SCTWB(VAR Status: StatusType
                     ;    SectionNo: SectionTableIndexType
                     ;    Section: SectionTableRecordType
                     ); EXTERNAL;

      FUNCTION SCTGSG(    Section: SectionTableIndexType
                     ):RelocationIndicatorType; EXTERNAL;

      FUNCTION SCTGRC(    Section: SectionTableIndexType
                     ): SizeType; EXTERNAL;

«eof»