-- file: WeaveVars.mesa
-- Pascal-to-Mesa translator output, translated at September 15, 1985 4:11:16 pm PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles;

WeaveVars: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles;
--8:
MaxBytes: PascalInteger =45000;
MaxNames: PascalInteger =5000;
MaxModules: PascalInteger =2000;
HashSize: PascalInteger =353;

BufSize: PascalInteger =5000;
LongestName: PascalInteger =400;
LongBufSize: PascalInteger =5400;
LineLength: PascalInteger =80;

MaxRefs: PascalInteger =25000;
MaxToks: PascalInteger =20000;
MaxTexts: PascalInteger =2000;
MaxScraps: PascalInteger =1000;

StackSize: PascalInteger =200;
--:8----11:--AsciiCode: TYPE =PascalInteger[0..127];
--:11----12:
TextFile: TYPE =   PascalTextFile;
--:12----36:--EightBits: TYPE =PascalInteger[0..255];

SixteenBits: TYPE =PascalInteger[0..65535];
--:36----38:--NamePointer: TYPE =PascalInteger[0..MaxNames];
--:38----47:
XrefNumber: TYPE =PascalInteger[0..MaxRefs];
--:47----48:
XmemRecord: TYPE =  -- PACKED -- RECORD [ NumField:SixteenBits,
XlinkField:SixteenBits];
--:48----53:--TextPointer: TYPE =PascalInteger[0..MaxTexts];
--:53
--202:--Mode: TYPE =PascalInteger[0..1];
OutputState: TYPE =RECORD [ EndField:SixteenBits,
TokField:SixteenBits,ModeField:Mode];

History: PascalInteger[0..3];
Xord: LONG POINTER TO ARRAY PascalChar OF  AsciiCode;
Xchr: LONG POINTER TO ARRAY AsciiCode OF  PascalChar;

TermOut: TextFile;

WebFile: TextFile;

ChangeFile: TextFile;

TexFile: TextFile;
Buffer: LONG POINTER TO ARRAY PascalInteger[0..LongBufSize] OF  AsciiCode;

PhaseOne: PascalBoolean;

PhaseThree: PascalBoolean;
ByteStart: LONG POINTER TO ARRAY PascalInteger[0..MaxNames] OF  SixteenBits;
Link: LONG POINTER TO ARRAY PascalInteger[0..MaxNames] OF  SixteenBits;
Ilk: LONG POINTER TO ARRAY PascalInteger[0..MaxNames] OF  SixteenBits;
Xref: LONG POINTER TO ARRAY PascalInteger[0..MaxNames] OF  SixteenBits;

NamePtr: NamePointer;
BytePtr: LONG POINTER TO ARRAY PascalInteger[0..1] OF  PascalInteger[0..MaxBytes];

ModuleCount: PascalInteger[0..MaxModules];
ChangedModule: LONG POINTER TO  PACKED ARRAY PascalInteger[0..MaxModules] OF  PascalBoolean;

ChangeExists: PascalBoolean;
Xmem: LONG POINTER TO ARRAY XrefNumber OF  XmemRecord;

XrefPtr: XrefNumber;

XrefSwitch: PascalInteger[0..10240];

ModXrefSwitch: PascalInteger[0..10240];
TokMem: LONG POINTER TO  PACKED ARRAY PascalInteger[0..MaxToks] OF  SixteenBits;
TokStart: LONG POINTER TO ARRAY TextPointer OF  SixteenBits;

TextPtr: TextPointer;

TokPtr: PascalInteger[0..MaxToks];

IdFirst: PascalInteger[0..LongBufSize];

IdLoc: PascalInteger[0..LongBufSize];
Hash: LONG POINTER TO ARRAY PascalInteger[0..HashSize] OF  SixteenBits;

CurName: NamePointer;
ModText: LONG POINTER TO ARRAY PascalInteger[0..LongestName] OF  AsciiCode;

Line: PascalInteger;

OtherLine: PascalInteger;

TempLine: PascalInteger;

Limit: PascalInteger[0..LongBufSize];

Loc: PascalInteger[0..LongBufSize];

InputHasEnded: PascalBoolean;

Changing: PascalBoolean;
ChangeBuffer: LONG POINTER TO ARRAY PascalInteger[0..BufSize] OF  AsciiCode;

ChangeLimit: PascalInteger[0..BufSize];

CurModule: NamePointer;

ScanningHex: PascalBoolean;

NextControl: EightBits;

Lhs: NamePointer;

Rhs: NamePointer;

CurXref: XrefNumber;
OutBuf: LONG POINTER TO ARRAY PascalInteger[0..LineLength] OF  AsciiCode;

OutPtr: PascalInteger[0..LineLength];

OutLine: PascalInteger;
Dig: LONG POINTER TO ARRAY PascalInteger[0..4] OF  PascalInteger[0..9];
Cat: LONG POINTER TO ARRAY PascalInteger[0..MaxScraps] OF  EightBits;
Trans: LONG POINTER TO ARRAY PascalInteger[0..MaxScraps] OF  PascalInteger[0..10239];

Pp: PascalInteger[0..MaxScraps];

ScrapBase: PascalInteger[0..MaxScraps];

ScrapPtr: PascalInteger[0..MaxScraps];

LoPtr: PascalInteger[0..MaxScraps];

HiPtr: PascalInteger[0..MaxScraps];

CurState: OutputState;
Stack: LONG POINTER TO ARRAY PascalInteger[1..StackSize] OF  OutputState;

StackPtr: PascalInteger[0..StackSize];

SaveLine: PascalInteger;

SavePlace: SixteenBits;

ThisModule: NamePointer;

NextXref: XrefNumber;

ThisXref: XrefNumber;

FirstXref: XrefNumber;

MidXref: XrefNumber;

KModule: PascalInteger[0..MaxModules];
Bucket: LONG POINTER TO ARRAY AsciiCode OF  NamePointer;

NextName: NamePointer;

C: AsciiCode;

H: PascalInteger[0..HashSize];
Blink: LONG POINTER TO ARRAY PascalInteger[0..MaxNames] OF  SixteenBits;

CurDepth: EightBits;

CurByte: PascalInteger[0..MaxBytes];

CurBank: PascalInteger[0..1];

CurVal: SixteenBits;
Collate: LONG POINTER TO ARRAY PascalInteger[0..100] OF  AsciiCode;

END.