-- file: TangleProcArrayImpl.mesa
-- Last Edited by: Ramshaw, September 22, 1983 4:22 pm
-- Written by hand by Lyle Ramshaw
-- Allocates the arrays for Tangle.

DIRECTORY
PascalBasic,
PascalWizardFiles,
TanglePrivate,
TangleProcArray;

TangleProcArrayImpl: PROGRAM IMPORTS PascalBasic EXPORTS TangleProcArray = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, TanglePrivate, TangleProcArray;


ByteMemA: LONG POINTER TO ARRAY PascalInteger[0..MaxBytes] OF AsciiCode ←
PascalStaticZone.NEW[ARRAY PascalInteger[0..MaxBytes] OF AsciiCode];
ByteMemB: LONG POINTER TO ARRAY PascalInteger[0..MaxBytes] OF AsciiCode ←
PascalStaticZone.NEW[ARRAY PascalInteger[0..MaxBytes] OF AsciiCode];
TokMemA: LONG POINTER TO ARRAY PascalInteger[0..MaxToks] OF EightBits ←
PascalStaticZone.NEW[ARRAY PascalInteger[0..MaxToks] OF EightBits];
TokMemB: LONG POINTER TO ARRAY PascalInteger[0..MaxToks] OF EightBits ←
PascalStaticZone.NEW[ARRAY PascalInteger[0..MaxToks] OF EightBits];
TokMemC: LONG POINTER TO ARRAY PascalInteger[0..MaxToks] OF EightBits ←
PascalStaticZone.NEW[ARRAY PascalInteger[0..MaxToks] OF EightBits];

END.