Copyright © 1985 by Xerox Corporation. All rights reserved.

Sweet on Feb 15, 1979 12:46 PM

Satterthwaite 15-Apr-81 16:20:24

Maxwell, August 11, 1983 8:59 am

Russ Atkinson (RRA) March 6, 1985 11:04:13 pm PST

Basics USING [BYTE],

PrincOps USING [globalbase, localbase, zEFC0, zJ2, zJEQ2, zJNE2, zLFC1, zLG0, zLI0, zLL0, zPL0, zR0, zRIL0, zSG0, zSL0, zW0];

BYTE: TYPE = Basics.BYTE;

GlobalBase: CARDINAL = PrincOps.globalbase;

GlobalHB: TYPE = [GlobalBase..GlobalBase+16);

GlobalLoadSlots: TYPE = [GlobalBase..GlobalBase+8);

GlobalStoreSlots: TYPE = [GlobalBase..GlobalBase+4);

LocalBase: CARDINAL = PrincOps.localbase;

LocalHB: TYPE = [LocalBase..LocalBase+16);

LocalLoadSlots: TYPE = [LocalBase..LocalBase+8);

LocalStoreSlots: TYPE = [LocalBase..LocalBase+8);

LocalPutSlots: TYPE = [LocalBase..LocalBase+4);

HB: TYPE = [0..16);

LoadImmediateSlots: TYPE = [0..7);

ReadSlots: TYPE = [0..5);

WriteSlots: TYPE = [0..3);

RILSlots: TYPE = [0..1);

MaxFIAJumps: INTEGER = 8;

MaxFICJumps: INTEGER = 8;

MaxFBJumps: INTEGER = 121;

MaxBBJumps: INTEGER = 127;

ExternalProcBase: CARDINAL = 0;

LocalProcBase: CARDINAL = 1;

ExternalProcSlots: TYPE = [ExternalProcBase..ExternalProcBase+16);

LocalProcSlots: TYPE = [LocalProcBase..LocalProcBase+8);

DstarLocalProcSlots: TYPE = [LocalProcBase..LocalProcBase+16);

zRILn: BYTE = zRIL0;

zEFCn: BYTE = zEFC0;

zLFCn: BYTE = zLFC1;

zLIn: BYTE = zLI0;

zLLn: BYTE = zLL0;

zSLn: BYTE = zSL0;

zLGn: BYTE = zLG0;

zSGn: BYTE = zSG0;

zPLn: BYTE = zPL0;

zRn: BYTE = zR0;

zWn: BYTE = zW0;

zJn: BYTE = zJ2;

zJEQn: BYTE = zJEQ2;

zJNEn: BYTE = zJNE2;

END.