-- file: TexSymbols.mesa
-- Pascal-to-Mesa translator output, translated at September 27, 1985 10:21:36 am PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

TexSymbols: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, TexTypes;

FontInShortDisplay: PascalInteger;

DepthThreshold: PascalInteger;

BreadthMax: PascalInteger;
Nest: LONG POINTER TO ARRAY PascalInteger[0..NestSize] OF  ListStateRecord;

NestPtr: PascalInteger[0..NestSize];

MaxNestStack: PascalInteger[0..NestSize];

CurList: ListStateRecord;

ShownMode: PascalInteger[-201..201];

OldSetting: PascalInteger[0..21];
Eqtb: LONG POINTER TO ARRAY PascalInteger[1..5476] OF  MemoryWord;
XeqLevel: LONG POINTER TO ARRAY PascalInteger[4767..5476] OF  Quarterword;
Hash: LONG POINTER TO ARRAY PascalInteger[258..3024] OF  TwoHalves;

HashUsed: Halfword;

NoNewControlSequence: PascalBoolean;

CsCount: PascalInteger;
SaveStack: LONG POINTER TO ARRAY PascalInteger[0..SaveSize] OF  MemoryWord;

SavePtr: PascalInteger[0..SaveSize];

MaxSaveStack: PascalInteger[0..SaveSize];

CurLevel: Quarterword;

CurGroup: GroupCode;

CurBoundary: PascalInteger[0..SaveSize];

MagSet: PascalInteger;

UsePressFormat: PascalBoolean;

CurCmd: EightBits;

CurChr: Halfword;

CurCs: Halfword;

CurTok: Halfword;
InputStack: LONG POINTER TO ARRAY PascalInteger[0..StackSize] OF  InStateRecord;

InputPtr: PascalInteger[0..StackSize];

MaxInStack: PascalInteger[0..StackSize];

CurInput: InStateRecord;

InOpen: PascalInteger[0..MaxInOpen];
InputFile: LONG POINTER TO ARRAY PascalInteger[1..MaxInOpen] OF  AlphaFile;

Line: PascalInteger;
LineStack: LONG POINTER TO ARRAY PascalInteger[1..MaxInOpen] OF  PascalInteger;

ScannerStatus: PascalInteger[0..5];

WarningIndex: Halfword;

DefRef: Halfword;
ParamStack: LONG POINTER TO ARRAY PascalInteger[0..ParamSize] OF  Halfword;

ParamPtr: PascalInteger[0..ParamSize];

MaxParamStack: PascalInteger;

AlignState: PascalInteger;

BasePtr: PascalInteger[0..StackSize];

ParLoc: Halfword;

ParToken: Halfword;
CurMark: LONG POINTER TO ARRAY PascalInteger[0..4] OF  Halfword;

LongState: PascalInteger[110..113];
Pstack: LONG POINTER TO ARRAY PascalInteger[0..8] OF  Halfword;

CurVal: PascalInteger;

CurValLevel: PascalInteger[0..5];

Radix: SmallNumber;

CurOrder: GlueOrd;
ReadFile: LONG POINTER TO ARRAY PascalInteger[0..15] OF  AlphaFile;
ReadOpen: LONG POINTER TO ARRAY PascalInteger[0..16] OF  PascalInteger[0..2];

CondPtr: Halfword;

IfLimit: PascalInteger[0..4];

CurIf: SmallNumber;

SkipLine: PascalInteger;

CurName: StrNumber;

CurArea: StrNumber;

CurExt: StrNumber;

AreaDelimiter: PoolPointer;

ExtDelimiter: PoolPointer;

 PrintCs: PROCEDURE[P: PascalInteger]
;

 SprintCs: PROCEDURE[P: Halfword]
;

--119:----292:-- ShowTokenList: PROCEDURE[P,Q: PascalInteger,L: PascalInteger];

--306:-- Runaway: PROCEDURE;

 PrintLengthParam: PROCEDURE[N: PascalInteger]
;

 PrintCmdChr: PROCEDURE[Cmd: Quarterword,ChrCode: Halfword]
;

 ShowEqtb: PROCEDURE[N: Halfword]
;

 IdLookup: PROCEDURE[J,L: PascalInteger] RETURNS[IdLookupResult: Halfword];

 Primitive: PROCEDURE[S: StrNumber,C: Quarterword,O: Halfword]
;

 NewSaveLevel: PROCEDURE[C: GroupCode]
;

--275:-- EqDestroy: PROCEDURE[W: MemoryWord];

 EqSave: PROCEDURE[P: Halfword,L: Quarterword]
;

 EqDefine: PROCEDURE[P: Halfword,
T: Quarterword,E: Halfword]
;

 EqWordDefine: PROCEDURE[P: Halfword,W: PascalInteger]
;

 GeqDefine: PROCEDURE[P: Halfword,T: Quarterword,E: Halfword]
;

 GeqWordDefine: PROCEDURE[P: Halfword,W: PascalInteger]
;

 SaveForAfter: PROCEDURE[T: Halfword]
;

--284:-- RestoreTrace: PROCEDURE[P: Halfword,S: StrNumber]
;

 Unsave: PROCEDURE;

 PrepareMag: PROCEDURE;

 TokenShow: PROCEDURE[P: Halfword]
;

 PrintMeaning: PROCEDURE;

 ShowCurCmdChr: PROCEDURE;

 ShowContext: PROCEDURE;

 BeginTokenList: PROCEDURE[P: Halfword,T: Quarterword]
;

--324:-- EndTokenList: PROCEDURE
;

 BackInput: PROCEDURE;

 BackError: PROCEDURE;

 InsError: PROCEDURE
;


 BeginFileReading: PROCEDURE;

 EndFileReading: PROCEDURE
;


 ClearForErrorPrompt: PROCEDURE;

 CheckOuterValidity: PROCEDURE;

--:340----341:-- GetNext: PROCEDURE
;

 FirmUpTheLine: PROCEDURE;

 InsertRelax: PROCEDURE;

 GetXToken: PROCEDURE;

 XToken: PROCEDURE
;

END.