-- file: PLtoTFVars2.mesa
-- Pascal-to-Mesa translator output, translated at October 23, 1985 11:00:04 am PDT
-- Pavel, October 23, 1985 11:04:08 am PDT


DIRECTORY
  PascalBasic, PascalWizardFiles, 
  PLtoTFPrivate;

PLtoTFVars2: PROGRAM IMPORTS PascalBasic EXPORTS PLtoTFPrivate = PUBLIC
BEGIN OPEN PascalBasic,  PascalWizardFiles, PLtoTFPrivate;
--:21----23:

LeftLn: PascalBoolean;

RightLn: PascalBoolean;

Limit: PascalInteger[0..BufSize];

Loc: PascalInteger[0..BufSize];

Buffer: LONG POINTER TO ARRAY PascalInteger[1..60] OF PascalChar ← PascalStaticZone.NEW[ARRAY PascalInteger[1..60] OF PascalChar];

InputHasEnded: PascalBoolean;
--:23----25:

CharsOnLine: PascalInteger[0..8];
--:25----30:--
CurChar: AsciiCode;
--:30----36:
Start: LONG POINTER TO ARRAY PascalInteger[1..66] OF PascalInteger[0..500] ← PascalStaticZone.NEW[ARRAY PascalInteger[1..66] OF PascalInteger[0..500]];
Dictionary: LONG POINTER TO ARRAY PascalInteger[0..500] OF AsciiCode ← PascalStaticZone.NEW[ARRAY PascalInteger[0..500] OF AsciiCode];


StartPtr: PascalInteger[0..66];

DictPtr: PascalInteger[0..500];
--:36----38:
CurName: LONG POINTER TO ARRAY PascalInteger[1..20] OF AsciiCode ← PascalStaticZone.NEW[ARRAY PascalInteger[1..20] OF AsciiCode];

NameLength: PascalInteger[0..20];

NamePtr: PascalInteger[0..66];

--:38----39:--Hash: LONG POINTER TO ARRAY PascalInteger[0..100] OF PascalInteger[0..66] ← PascalStaticZone.NEW[ARRAY PascalInteger[0..100] OF PascalInteger[0..66]];

CurHash: PascalInteger[0..100];
--:39----44:
Equiv: LONG POINTER TO ARRAY PascalInteger[0..66] OF Byte ← PascalStaticZone.NEW[ARRAY PascalInteger[0..66] OF Byte];

CurCode: Byte;
--:44----58:--
CurBytes: FourBytes;

--:58----65:--FractionDigits: LONG POINTER TO ARRAY PascalInteger[1..7] OF PascalInteger ← PascalStaticZone.NEW[ARRAY PascalInteger[1..7] OF PascalInteger];
--:65----67:
HeaderBytes: LONG POINTER TO ARRAY HeaderIndex OF Byte ← PascalStaticZone.NEW[ARRAY HeaderIndex OF Byte];

HeaderPtr: HeaderIndex;


DesignSize: FixWord;

DesignUnits: FixWord;

SevenBitSafeFlag: PascalBoolean;

LigKern: LONG POINTER TO ARRAY PascalInteger[0..511] OF FourBytes ← PascalStaticZone.NEW[ARRAY PascalInteger[0..511] OF FourBytes];

Nl: PascalInteger[0..511];

UnusedLabel: PascalBoolean;

Kern: LONG POINTER TO ARRAY PascalInteger[0..256] OF FixWord ← PascalStaticZone.NEW[ARRAY PascalInteger[0..256] OF FixWord];

Nk: PascalInteger[0..256];

Exten: LONG POINTER TO ARRAY PascalInteger[0..255] OF FourBytes ← PascalStaticZone.NEW[ARRAY PascalInteger[0..255] OF FourBytes];

Ne: PascalInteger[0..256];

Param: LONG POINTER TO ARRAY PascalInteger[1..30] OF FixWord ← PascalStaticZone.NEW[ARRAY PascalInteger[1..30] OF FixWord];

Np: PascalInteger[0..MaxParamWords];


CheckSumSpecified: PascalBoolean;
--:67----72:--Memory: LONG POINTER TO ARRAY Pointer OF FixWord ← PascalStaticZone.NEW[ARRAY Pointer OF FixWord];


MemPtr: Pointer;
Link: LONG POINTER TO ARRAY Pointer OF Pointer ← PascalStaticZone.NEW[ARRAY Pointer OF Pointer];

CharWd: LONG POINTER TO ARRAY Byte OF Pointer ← PascalStaticZone.NEW[ARRAY Byte OF Pointer];
CharHt: LONG POINTER TO ARRAY Byte OF Pointer ← PascalStaticZone.NEW[ARRAY Byte OF Pointer];

CharDp: LONG POINTER TO ARRAY Byte OF Pointer ← PascalStaticZone.NEW[ARRAY Byte OF Pointer];
CharIc: LONG POINTER TO ARRAY Byte OF Pointer ← PascalStaticZone.NEW[ARRAY Byte OF Pointer];

CharTag: LONG POINTER TO ARRAY Byte OF PascalInteger[0..3] ← PascalStaticZone.NEW[ARRAY Byte OF PascalInteger[0..3]];
CharRemainder: LONG POINTER TO ARRAY Byte OF PascalInteger[0..255] ← PascalStaticZone.NEW[ARRAY Byte OF PascalInteger[0..255]];
--:72
--76:--
NextD: FixWord;
--:76----79:--Index: LONG POINTER TO ARRAY Pointer OF Byte ← PascalStaticZone.NEW[ARRAY Pointer OF Byte];
--:79----81:

C: Byte;
--:81----99:--
KrnPtr: PascalInteger[0..256];
--:99----108:--
SevenUnsafe: PascalBoolean;
--:108
--112:--
LigPtr: PascalInteger[0..511];
--:112----117:--
Delta: FixWord;
--:117----121:--
Bc: Byte;


Ec: Byte;

Lh: Byte;

Lf: PascalInteger[0..32767];

NotFound: PascalBoolean;

TempWidth: FixWord;
--:121
--124:--
J: PascalInteger[0..MaxHeaderBytes];

P: Pointer;

Q: PascalInteger[1..4];

ParPtr: PascalInteger[0..MaxParamWords];

--:124----138:--
Output: Text;

END.