-- File: PupTypes.Mesa,  Last Edit: HGM  June 7, 1979  12:46 AM

-- Copyright  Xerox Corporation 1979, 1980

PupTypes: DEFINITIONS = BEGIN

Byte: TYPE = [0..377B];
Pair: TYPE = MACHINE DEPENDENT RECORD [a, b: CARDINAL];

PupHostID: TYPE = RECORD [Byte];
PupNetID: TYPE = RECORD [Byte];
PupSocketID: TYPE = RECORD [ a, b: WORD ];

PupAddress: TYPE = MACHINE DEPENDENT RECORD [
  net: PupNetID, host: PupHostID, socket: PupSocketID ];


RppAddress: TYPE = MACHINE DEPENDENT RECORD [
  net: PupNetID, host: PupHostID, socket: WORD, connectionID: WORD ];

-- Addressing Constants
fillInNetID: PupNetID = [377B];
fillInHostID: PupHostID = [377B];
fillInSocketID: PupSocketID = [0,0];
fillInPupAddress: PupAddress = [fillInNetID,fillInHostID,fillInSocketID];
allNets: PupNetID = [0];  -- host must be allHosts too
allHosts: PupHostID = [0];  -- can be directed to a specific network

-- Buffer size Constants
maxDataWordsPerGatewayPup: CARDINAL = 266;
maxDataBytesPerGatewayPup: CARDINAL = 2*maxDataWordsPerGatewayPup;


-- Well Known Sockets:  See [MAXC]<System>Pup-Network.txt
  telnetSoc: PupSocketID = [0,1];
  gatewaySoc: PupSocketID = [0,2];
  ftpSoc: PupSocketID = [0,3];
  miscSrvSoc: PupSocketID = [0,4];
  echoSoc: PupSocketID = [0,5];
  bspTestSoc: PupSocketID = [0,6];
  mailSoc: PupSocketID = [0,7];
  eftpReceiveSoc: PupSocketID = [0,20B];
  earsStatusSoc: PupSocketID = [0,21B];
  statSoc: PupSocketID = [0,22B];
  oldCopyDiskSoc: PupSocketID = [0,24B];
  copyDiskSoc: PupSocketID = [0,25B];
  eventReportSoc: PupSocketID = [0,30B];
  printerReportSoc: PupSocketID = [0,31B];
  juniperpackConversionSoc: PupSocketID = [0,34B];
  juniperEventSoc: PupSocketID = [0,35B];
  rpcpSoc: PupSocketID = [0,36B];
  clearinghouseSoc: PupSocketID = [0,37B];
  librarianSoc: PupSocketID = [0,41B];
  pineSoc: PupSocketID = [0,100B];

PupErrorCode: TYPE = RECORD [ WORD ];
  -- Pup got to the destination machine, but wasn't processed
  badChecksumPupErrorCode: PupErrorCode = [1B];
  noProcessPupErrorCode: PupErrorCode = [2B];
  resourceLimitsPupErrorCode: PupErrorCode = [3B];
  -- Pup didn't get to the destination machine
  inconsistentPupErrorCode: PupErrorCode = [1001B];
  cantGetTherePupErrorCode: PupErrorCode = [1002B];
  hostDownPupErrorCode: PupErrorCode = [1003B];
  eightHopsPupErrorCode: PupErrorCode = [1004B];
  tooBigPupErrorCode: PupErrorCode = [1005B];
  iAmNotAGatewayPupErrorCode: PupErrorCode = [518];
  gatewayResourceLimitsPupErrorCode: PupErrorCode = [519];

  -- used by ForwardBuffer for various hacks
  noErrorPupErrorCode: PupTypes.PupErrorCode = [10000];
  connectionLimitPupErrorCode: PupTypes.PupErrorCode = [10001];

-- This is an attempt to get the TYPE checker to help us.
-- Unfortunately, the values are a bit sparce.
-- Be sure to have enough values to make it an 8 bit field.

PupType: TYPE = {

-- 000-077 OCTAL!	Registered Pup Types
pt000,	echoMe,	iAmEcho,	badEcho,	error,	pt005,	pt006,	pt007,
rfc,	abort,	end,	endRep,	pt014,	pt015,	pt016,	pt017,
data,	aData,	ack,	mark,	int,	intRep,	aMark,	pt027,
eData,	eAck,	eEnd,	eAbort,	pt034,	pt035,	pt036,	pt037,
rpp,	pt041,	pt042,	pt043,	pt044,	pt045,	pt046,	pt047,
pt050,	pt051,	pt052,	pt053,	pt054,	pt055,	pt056,	pt057,
pt060,	pt061,	pt062,	pt063,	pt064,	pt065,	pt066,	pt067,
pt070,	pt071,	pt072,	pt073,	pt074,	pt075,	pt076,	pt077,

-- 100-177
pt100,	pt101,	pt102,	pt103,	pt104,	pt105,	pt106,	pt107,
pt110,	pt111,	pt112,	pt113,	pt114,	pt115,	pt116,	pt117,
pt120,	pt121,	pt122,	pt123,	pt124,	pt125,	pt126,	pt127,
pt130,	pt131,	pt132,	pt133,	pt134,	pt135,	pt136,	pt137,
pt140,	pt141,	pt142,	pt143,	pt144,	pt145,	pt146,	pt147,
pt150,	pt151,	pt152,	pt153,	pt154,	pt155,	pt156,	pt157,
pt160,	pt161,	pt162,	pt163,	pt164,	pt165,	pt166,	pt167,
pt170,	pt171,	pt172,	pt173,	pt174,	pt175,	pt176,	pt177,

-- 200+		Unregistered Pup Types
-- Socket 2 - Gateway info
gatewayRequest,	gatewayInfo,

-- Socket 4 - Misc services
dateTenexRequest,	dateTenexIs,
pt204,	pt205,  -- old format Alto date
dateAltoRequest,	dateAltoIs,

mailCheck,	mailIsNew,	mailNotNew,	mailError,	mailCheckLaurel,
					pt215,	pt216,	pt217,
nameLookup,	nameIs,	nameError,
			addressLookup,	addressIs,	pt225,	pt226,	pt227,
whereIsUser,	userIs,	userError,
			pt233,	pt234,	pt235,	pt236,	pt237,
netDirVersion,	sendNetDir,
		pt242,	pt243,
				bootFileSend,	pt245,	pt246,	kissOfDeath,

-- Pine  (save a few spares too)
request,	result,	unsolicited,	custodian,	sync,	pineAck,	noop,	bootDirReq,
bootDirReply,	ptp261,	ptp262,	ptp263,	ptp264,	ptp265,	ptp266,	ptp267

};



-- see <PUP>Servers.EARS (Taft)

-- Socket 4 Misc Services - these overlap with Gateway info
dateTextRequest: PupType = gatewayRequest;
dateTextIs: PupType = gatewayInfo;

-- Socket 4 Misc Services - these overlap with Pine
userAuthReq: PupType = request;  -- 250
userAuthOk: PupType = result;  -- 251
userAuthBad: PupType = unsolicited;  -- 252

-- Socket 22 Statistics - more overlap
statisticsRequest: PupType = gatewayRequest;
statisticsAre: PupType = gatewayInfo;

-- Socket 30 Event Report - more overlap
eventReport: PupType = netDirVersion;
eventReportReply: PupType = sendNetDir;

END.(2048)