
MachineParms: DEFINITIONS = {


BitOrder: TYPE = {msBit, lsBit};
WordOrder: TYPE = {msWord, lsWord};
bitOrder: BitOrder = msBit;

wordOrder: WordOrder = lsWord;

bitsPerAU: NAT = 16;	-- AU = "addressing unit"
logBitsPerAU: NAT = BITS[[0..bitsPerAU)];

bitsPerByte: NAT = 8;
maxByte: NAT = 0FFh;
logBitsPerByte: NAT = BITS[[0..bitsPerByte)];
bitsPerChar: NAT = 8;
maxChar: CARD = 0FFh;
logBitsPerChar: NAT = BITS[[0..bitsPerChar)];

newLineChar: CHAR = 015C;

bitsPerWord: NAT = 16;	-- bits per word (native arithmetic)
maxWord: CARD = 0FFFFh;
logBitsPerWord: NAT = BITS[[0..bitsPerWord)];

bitsPerLongWord: NAT = 32;
maxLongWord: CARD = 0FFFFFFFFh;
logBitsPerLongWord: NAT = BITS[[0..bitsPerLongWord)];

bitsPerReal:	NAT = 32;

bitsPerPtr:	NAT = 16;
bitsPerLongPtr:	NAT = 32;

bitsPerPort:	NAT = bitsPerWord;
bitsPerProc:	NAT = bitsPerWord;
bitsPerProcess:	NAT = bitsPerWord;
bitsPerProgram:	NAT = bitsPerWord;
bitsPerRef:	NAT = bitsPerLongWord;
bitsPerSignal:	NAT = bitsPerProc;

wordsPerProcess: NAT = 1;
processNil: ARRAY [0..wordsPerProcess) OF CARD16 = ALL[0];

wordsPerCondVar: NAT = 1;
bitsPerCondVar: NAT = bitsPerWord;
condVarInit: CARD16 = 0;

wordsPerMonLock: NAT = 1;
bitsPerMonLock: NAT = bitsPerWord;
monLockInit: ARRAY [0..wordsPerMonLock) OF CARD16 = ALL[100000b];

bitsPerStringBound: NAT = 16;
bitsPerLink: NAT = bitsPerPtr;

fastBytes: BOOL = FALSE;
packedFields: BOOL = TRUE;
PackedBitCount: TYPE = [1..bitsPerLongWord];
packedFieldSize: ARRAY PackedBitCount OF NAT = [
01, 02, 04, 04, 08, 08, 08, 08,
16, 16, 16, 16, 16, 16, 16, 16,
32, 32, 32, 32, 32, 32, 32, 32,
32, 32, 32, 32, 32, 32, 32, 32];

Alignments: ARRAY AlignmentIndex OF NAT = [16];
AlignmentIndex: TYPE = [0..0];

}.

     
PrincOpsParms.mesa
Copyright Ó 1986, 1987, 1991 by Xerox Corporation.  All rights reserved.
Russ Atkinson (RRA) January 29, 1988 2:54:06 pm PST
These definitions cover the variant of PrincOps used by Cedar/Mesa, which is not the same as the PrincOps used in product land.
msBit => bit N is more significant than bit N+1 in a word
(PrincOps, Dragon, Motorola 680x0, IBM 360, Sparc)
lsBit => bit N+1 is more significant than bit N in a word
(PDP-11, VAX, Intel 80x86)

msWord => word N is more significant than word N+1 in multi-word arithmetic
lsWord => word N+1 is more significant than word N in multi-word arithmetic

For pointers into local and global frames.
For all other pointers.
StringBody has fields length & maxlength which must be unsigned[bitsPerStringBound].  STRING = POINTER TO StringBody.
TEXT has fields length & maxlength which must be of type [0..2**bitsPerStringBound-1), and the fields must occupy bitsPerStringBound bits each.

This length is used for imports/exports links.
TRUE iff there is fast random access to bytes

 Ê¢  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ
Ïeœ=™HK™3—K˜ šÏnœÏkœ˜K˜ K™K˜ šœ
Ÿœ˜ šœ9™9K™2—šœ9™9K™—K™ —šœŸœ˜#KšœK™KKšœK™KK™ —šœ˜K˜ —šœ˜K˜ —šœŸœÏc˜.KšœŸœŸœ˜)K˜ —šœŸœ˜Kšœ	Ÿœ˜KšœŸœŸœ˜-—šœŸœ˜Kšœ	Ÿœ˜KšœŸœŸœ˜-K˜ KšœŸœ˜—K˜ šœŸœ $˜;Kšœ	Ÿœ
˜KšœŸœŸœ˜-K˜ —šœŸœ˜KšœŸœ˜KšœŸœŸœ˜5—K˜ K–1.5 in tabStopsšœŸœ˜K–1.5 in tabStops˜ –1.5 in tabStopsšœŸœ˜K–1.5 in tabStops™*—–1.5 in tabStopsšœŸœ˜K–1.5 in tabStops™—K–1.5 in tabStops˜ K–1.5 in tabStopsšœŸœ˜K–1.5 in tabStopsšœŸœ˜K–1.5 in tabStopsšœŸœ˜"K–1.5 in tabStopsšœŸœ˜"K–1.5 in tabStopsšœŸœ˜"K–1.5 in tabStopsšœŸœ˜!K˜ –1.5 in tabStopsšœŸœ˜K–1.5 in tabStopsš	œŸœŸœŸœŸœ˜:K–1.5 in tabStops˜ —K–1.5 in tabStopsšœŸœ˜šœŸœ˜"KšœŸœ˜K˜ —K–1.5 in tabStopsšœŸœ˜šœŸœ˜"Kš	œŸœŸœŸœŸœ
˜AK˜ —šœŸœ˜Kšœ7Ïzœ6™uKšœ™K™ —šœŸœ˜Kšœ.™.K˜ —šœŸœŸœ˜K™-K™ —KšœŸœŸœ˜KšœŸœ˜,šœŸœŸœŸœ˜0Kšœ˜Kšœ˜Kšœ˜Kšœ ˜ —K˜ šž
œŸœŸœŸœ˜/KšœŸœ
˜K˜ —Kšœ˜K˜ —— …—    ª  h  