-- File: AltoPRStrings.mesa Edit: HGM  September 14, 1980  4:21 AM

DIRECTORY
  AltoPRDefs,
  StatsDefs USING [StatCounterIndex, StatsStringToIndex];

AltoPRStrings: MONITOR IMPORTS StatsDefs, AltoPRDefs EXPORTS AltoPRDefs =
  BEGIN OPEN StatsDefs, AltoPRDefs;

  SetupPRThings: PUBLIC PROCEDURE =
    BEGIN

    statPRPacketsReceived ← StatsStringToIndex["PR Packets Received"];
    statPRImAliveReceived ← StatsStringToIndex["PR ImAlive Received"];
    statPROneFragRcvd ← StatsStringToIndex["PR One Fragment Packets Rcvd"];
    statPRTwoFragsRcvd ← StatsStringToIndex["PR Two Fragment Packets Rcvd"];
    statPRThreeFragsRcvd ← StatsStringToIndex["PR Three Fragment Packets Rcvd"];
    statPRWordsReceived ← StatsStringToIndex["PR Words Received"];

    statPRPacketsSent ← StatsStringToIndex["PR Packets Sent"];
    statPRImAliveSent ← StatsStringToIndex["PR I'm Alive Packet Sent"];
    statPROneFragSent ← StatsStringToIndex["PR One Fragment Packets Sent"];
    statPRTwoFragsSent ← StatsStringToIndex["PR Two Fragment Packets Sent"];
    statPRThreeFragsSent ← StatsStringToIndex["PR Three Fragment Packets Sent"];
    statPRWordsSent ← StatsStringToIndex["PR Words Sent"];

    statPRDuplicateFragment ← StatsStringToIndex["PR Duplicate Fragments"];
    statPRAssemblyTimeout ← StatsStringToIndex["PR Assembly Timeout"];
    statPRAssemblyQOvf ← StatsStringToIndex["PR Assembly Queue Overflow"];
    statPRInputBufferOvf ← StatsStringToIndex["PR Input Buffer Overflow"];

    statPRBadMagic ← StatsStringToIndex["PR Secret Number Wrong"];
    statPRNotForMe ← StatsStringToIndex["PR Wrong Destination"];
    statPRTooManyFragments ← StatsStringToIndex["PR Too Many Fragments"];
    statPRTotalTooBig ← StatsStringToIndex["PR Pup Buffer Overflow"];
    statPREmptyFreeQueue ← StatsStringToIndex["PR Empty Free Queue"];

    statPROldPackets ← StatsStringToIndex["PR Old Packets"];
    statPRPacketsSkipped ← StatsStringToIndex["PR Packets Skipped"];
    statPRSequenceReset ← StatsStringToIndex["PR Sequencer Reset"];

    statPRLengthOvf ← StatsStringToIndex[
      "PR Packets Discarded -- Length Overflow"];
    statPRInvalidAddress ← StatsStringToIndex[
      "PR Packets Discarded -- Invalid Address"];
    statPRDestinationDown ← StatsStringToIndex[
      "PR Packets Discarded -- Destination Down"];
    statPROutputQOvf ← StatsStringToIndex[
      "PR Packets Discarded -- Output Queue Overflow"];
    statPRConnectionLimit ← StatsStringToIndex[
      "PR Packets Discarded -- Connection limit"];
    statPROutPacketsDiscarded ← StatsStringToIndex["PR Output Packets Discarded"];

    stat1822MissingInterrupt ← StatsStringToIndex["PR No Input Interrupt"];
    statPRTransferTimeout ← StatsStringToIndex["PR Transfer Timeout"];
    statPRROPsReceived ← StatsStringToIndex["PR ROPs Received"];
    statPRTOPsSent ← StatsStringToIndex["PR TOPs Sent"];
    statPRImpWasDown ← StatsStringToIndex["PR IMP Was Down"];

    END;

  END.