-- BasicHeadsD0.pack
-- Last Edited by: Taft, February 27, 1983 3:17 pm

BasicHeadsD0: SEGMENT =
  BEGIN

  HeadsResident: CODE PACK =
    BEGIN
    BasicHeadsD0 EXCEPT ColorDisplayHead, HeadsInitialization, SA800Head,
      [DESSoft];
    END;

  ColorDisplayHead: CODE PACK =
    BEGIN
    ColorDisplayHeadD0 EXCEPT [ErrorHalt, Initialize, InitializeCleanup, MAIN, Start];
    END;

  DESHead: CODE PACK =
    BEGIN
    DESSoft;
    END;

  SA800Head: CODE PACK =
    BEGIN
    SA800HeadD0 EXCEPT [InitializeCleanup, MAIN, Start];
    END;

  HeadsInitialization: CODE PACK =
    BEGIN
    ColorDisplayHeadD0[MAIN, Start];
    EthernetHeadD0[MAIN, Start];
    EthernetOneHeadD0[MAIN, Start];
    GMTUsingIntervalTimer[MAIN, Start];
    IntervalTimerHeadDummy[MAIN, Start];
    ProcessorHeadD0[GetProcessorID, InitializeClockRate, InitializeCVTimeouts,
      InitializeD0InputOutput, MAIN, Start];
    RealMemoryImplD0[MAIN];
    SA4000HeadD0[MAIN, Start];
    SA800HeadD0[MAIN, Start];
    SetGMTUsingEthernetOne[MAIN];
    UserTerminalHeadD0[MAIN, Start];
    END;
  END;

HeadsResidentFrames: FRAME PACK =
  BEGIN
  ColorDisplayHeadD0;
  DESSoft;
  EthernetHeadD0;
  EthernetOneHeadD0;
  GMTUsingIntervalTimer;
  IntervalTimerHeadDummy;
  ProcessorHeadD0;
  RealMemoryImplD0;
  SA4000HeadD0;
  SA800HeadD0;
  SetGMTUsingEthernetOne;
  UserTerminalHeadD0;
  END;

-- January 31, 1981  12:16 PM PM	McJones	StartChainPlug => HeadStartChainPlug

-- January 27, 1981  2:19 PM	Jose	SetGMTUsingEthernet => SetGMTUsingEthernetOne

-- January 16, 1981  4:01 PM	Gobbel	Added RealMemoryImplD0

-- 10-Jul-81 14:33:30		Wyatt	Added ColorDisplayHeadD0
-- 19-Jul-81 15:00:20		Taft	Added TrapSupportImpl
-- 30-Mar-82 18:15:12		Taft	Added DESSoft, renamed code packs
-- February 24, 1983 1:43 pm  Taft  Add IntervalTimerHeadDummy
-- February 27, 1983 3:17 pm  Taft  Remove HeadStartChainPlug and TrapSupportImpl