-- BasicHeadsDorado.pack
-- Last Edited by: Taft, February 27, 1983 3:16 pm

BasicHeadsDorado: SEGMENT =
  BEGIN

  HeadsResident: CODE PACK =
    BEGIN
    BasicHeadsDorado EXCEPT ColorDisplayHead, HeadsInitialization,
      [DESSoft, SA800HeadDorado];
    END;

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

  DESHead: CODE PACK =
    BEGIN
    DESSoft;
    END;

  HeadsInitialization: CODE PACK =
    BEGIN
    ColorDisplayHeadDorado[MAIN, Start];
    DiskHeadDorado[MAIN, Start];
    EthernetHeadDorado[MAIN, Start];
    EthernetOneHeadDorado[MAIN, Start];
    IntervalTimerHeadDorado[MAIN, Start];
    ProcessorHeadDorado[GetProcessorID, InitializeCVTimeouts, MAIN, Start];
    RealMemoryImplDorado[MAIN];
    SA800HeadDorado[MAIN, Start];
    SetGMTUsingEthernetOne[MAIN];
    TextBltImpl[MAIN];
    UserTerminalHeadDorado[MAIN, Start];
    END;

  END;

HeadsResidentFrames: FRAME PACK =
  BEGIN
  ColorDisplayHeadDorado;
  DESSoft;  -- Actually doesn't need to be resident, but it's pretty small
  DiskHeadDorado;
  EthernetHeadDorado;
  EthernetOneHeadDorado;
  IntervalTimerHeadDorado;
  ProcessorHeadDorado;
  RealMemoryImplDorado;
  SA800HeadDorado;
  SetGMTUsingEthernetOne;
  TextBltImpl;
  UserTerminalHeadDorado;
  END;