-- BasicHeadsDicentra.pack, HGM, 14-Sep-83 20:44:14


-- TO BE FIXED:
--   The Resident code pack currently includes some pieces of SetGMTUsingEthernet and EthernetOneHeadDummy that should really be in ResidentCool, but cause warning messages (packager bug) if placed there

BasicHeads: SEGMENT =
BEGIN

BasicHeadsResident: CODE PACK =
  BEGIN
  ProcessorHeadDicentra EXCEPT BasicHeadsInitialization;
  EthernetHeadDicentra EXCEPT BasicHeadsInitialization;
  EthernetOneHeadDicentra EXCEPT BasicHeadsInitialization;
  TTYPortHeadDicentra[InitializeCleanup, ENTRY VECTOR];
  DisplayHeadDummy EXCEPT
    SwappableBasicHeads, BasicHeadsInitialization,
    SmoothScrollingScrolling, SmoothScrollingCreateDelete;
  SetGMTUsingEthernet[FixupClock, ENTRY VECTOR, CATCH];
  EERomDicentra;
  WatchdogDicentra;
  END;

BasicHeadsSpecialResident: CODE PACK =
  BEGIN
  RealMemoryImplDicentra[ENTRY VECTOR, SpecialResidentCodeHandle];
  TextBltImpl EXCEPT BasicHeadsInitialization;
  GMTUsingIntervalTimer EXCEPT BasicHeadsInitialization;
  END;

SwappableBasicHeads: CODE PACK = {
  DisplayHeadDummy[
    InitializeCleanup, BeepOff, BeepOn, Connect, Disconnect, GetBitBltTable,
    TurnOn, TurnOff, SetBackground, SetBorderPattern, SetCursorPattern,
    SetCursorPosition, SetPosition];
  SA4000HeadDummy[
    ENTRY VECTOR, DetermineDiskShape, GetControllerAttributes, GetDeviceAttributes,
    GetDeviceType, GetFormattingUnit, GetNextController, GetNextDevice, Reset,
    Recalibrate];
  SA800HeadDummy[ENTRY VECTOR, GetNextDevice] };

SmoothScrollingScrolling: CODE PACK = {
  DisplayHeadDummy[Scroll]};

SmoothScrollingCreateDelete: CODE PACK = {
  DisplayHeadDummy[CreateScrollWindow, DeleteScrollWindow]};

SwappableTTYHeads: CODE PACK =
  BEGIN
  TTYPortHeadDicentra[
    GetCommand, GetLineCount, GetStatus, On, Off, PutCommand, SendBreak,
    SetParameter, ReadyToGet, ReadyToPut];
  END;

BasicHeadsInitialization: CODE PACK =
  BEGIN
  ProcessorHeadDicentra[InitializeClocks, Start, MAIN];
  EthernetHeadDicentra[MAIN, Start];
  EthernetOneHeadDicentra[MAIN, Start];
  GMTUsingIntervalTimer[
    MAIN, ExternalEvent, SetAutomaticPowerOn, ResetAutomaticPowerOn];
  TextBltImpl[MAIN, Start];
  HeadStartChainPlug;
  SA4000HeadDummy[InitializeController, InitializeCleanup, Initiate, Poll, Start, MAIN];
  SA800HeadDummy[ErrorProc, Initialize, Start, MAIN];
  SetGMTUsingEthernet[MAIN, EthernetExists, GetNetworkGMT, SetGMT];
  TTYPortHeadDicentra[MAIN];
  DisplayHeadDummy[Initialize, Start, MAIN];
  RealMemoryImplDicentra[
    Count, FreeReservedMemory, Initialize, MoveIntervalToDisplayMemory, MAIN];
  END;

END;


BasicHeadsResidentFrames: FRAME PACK =
  BEGIN
  ProcessorHeadDicentra;
  RealMemoryImplDicentra;
  EthernetHeadDicentra;
  EthernetOneHeadDicentra;
  TTYPortHeadDicentra;
  GMTUsingIntervalTimer;
  SetGMTUsingEthernet;
  TextBltImpl;
  SA4000HeadDummy;
  SA800HeadDummy;
  DisplayHeadDummy;
  HeadStartChainPlug;
  EERomDicentra;
  WatchdogDicentra;
  END;