DataMuseum.dk

top - metrics - download

    Length: 2944 (0xb80)
    Types: TextFile
    Names: »KERNEL.BAK«

└─⟦08e5746f0⟧ Bits:30009789/_.ft.Ibm2.50007359.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »KERNEL.BAK« 

TextFile

(*
***********************************************************************
*                       Copyright 1984 by                             *
*                       NCR Corporation                               *
*                       Dayton, Ohio  U.S.A.                          *
*                       All Rights Reserved                           *
***********************************************************************
*                       EOS Software produced by:                     *
*                       NCR Systems Engineering - Copenhagen          *
*                       Copenhagen                                    *
*                       DENMARK                                       *
***********************************************************************
*                       EOS Software rewritten by:                    *
*                       Metanic Aps.                                  *
*                       DK-3660 Stenloese                             *
*                       DENMARK                                       *
*                                                                     *
*                       Copyright 1986 by Metanic Aps.                *
***********************************************************************
*)
PROGRAM EosKernel;

(*$I B:COMDEF.PAS *)
(*$I B:COMDEF2.PAS *)
(*$I B:KNELVAR.PAS *)

   (* Miscellaneous procedures *)

   PROCEDURE Error(ErrorCode: integer); (* comdef *)

     BEGIN
      REPEAT
         (* *** Enable system mode and set interrrupt level to 7 *** *)
      UNTIL false;
     END;

   (* Memory management procedures *)
   (* Scheduling procedures *)
   (* Kernel Operations procedures *)

   (*EXPORTED*) PROCEDURE SystemCall;

     BEGIN (* SystemCall *)
      (* Do this and that and call knelop *)
     END;  (* SystemCall *)

(*$I B:IPREFACE.PAS *)
(*$I B:IMMUPROC.PAS *)

   PROCEDURE InitSC;

      VAR
         Dummy: integer;

     BEGIN (* InitSC *)

      (**** The scheduler initialization gets control after
            mmproc has initiAlized .

            The following steps are carried out:

            (1) Initialize simple global variables.
            (2) Initialize initial objects.
            (3) Initialize stub object.
            (4) Initialize trap#8 = interrup_end. *)

      (**** Initialize simple variables *)
      InitHead(Timer,   Dummy);  (* Queues := empty *)
      InitHead(Running, Dummy);
      InitHead(Driving, Dummy);
      WITH RtCnt DO
        BEGIN
         msl := 0;
         lsl := 0
        END;

      (**** Initialize interrupt context and scheduler objects *)





     END;  (* InitSC *)




  BEGIN (* EosKernel *)
   InitPreface;
   InitMMU;
   InitSc;
   InitKnelOp;
   InitEnter;
  END.  (* EosKernel *)
«eof»