DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »LNK.PIS«

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

TextFile

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

PROGRAM Link;

(*$I B:lnkDC0.pas   Declarations of global constants, types, and commons *)

   VAR   (*LINK*)

      (* Misc. Variables *)

      Status: StatusType;
      TargetFile: FileType;
      LogFile: LogFileType;

(*$I A:PrTstExt.pas External Decl. of standard test procedures           *)
(*$I B:LnkDC1.pas   External Decl. of global test output primitives      *)
(* $I B:LnkDC2.pas   External Decl. of global access primitives           *)
(*$I B:LnkDF2.pas   Global access primitives                             *)

(*
   PROCEDURE Init(VAR Status: StatusType
                 );        EXTERNAL;
*)

   PROCEDURE SetUp(VAR Status: StatusType
                  ;VAR TargetFile: FileType
                  ;VAR LogFile: LogFileType
                  ;VAR Output: text
                  );       EXTERNAL;

(*
   PROCEDURE Pass1(VAR Status: StatusType
                  );       EXTERNAL;
   PROCEDURE Pass2(VAR Status: StatusType
                  );       EXTERNAL;
   PROCEDURE Term(VAR Status: StatusType
                 );        EXTERNAL;
*)
(*$I B:lnkinit.pas Procedures init and term *)
(* $I B:lnkp0.pas   Procedure setup          *)
(*$I B:lnkp1.pas   Procedure pass1          *)
(*$I B:lnkp2.pas   Procedure pass2          *)


  BEGIN  (*LINK*)
   TestInit(Input,Output);
   Status := Success;
   Init(Status);
   IF Status = Success THEN
      SetUp(Status, TargetFile, LogFile, Output);
   IF test((.0,16,17.)) THEN
     BEGIN
      write(TestOut, 'Link-MAIN-1   '); TSTstat(Status); TSTindt; TSTmem; TSTln
     END;
   IF Status = Success THEN
      Pass1(Status, TargetFile, LogFile);
   IF test((.0,16,17.)) THEN
     BEGIN
      write(TestOut, 'Link-MAIN-2   '); TSTstat(Status); TSTln
     END;
   IF Status = Success THEN
      Pass2(Status);
   IF test((.0,16,17.)) THEN
     BEGIN
      write(TestOut, 'Link-MAIN-3   '); TSTstat(Status); TSTln
     END;
   IF Status = Success THEN
      Term(Status);
   IF test((.0,16,17.)) THEN
     BEGIN
      write(TestOut, 'Link-MAIN-4   '); TSTstat(Status); TSTln
     END;
   CASE Status OF
   Success:
     BEGIN
      writeln(output, 'LINK -- Normal termination')
     END;
   OTHERWISE
      writeln(output, 'LINK -- Abnormal termination. #Error: ', ord(Status):3 )
   END (*CASE Status OF*)
  END.   (*LINK*)


«eof»