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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  TexTypes;

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

LoMemMax: Halfword;

HiMemMin: Halfword;

VarUsed: PascalInteger;

DynUsed: PascalInteger;

Avail: Halfword;

MemEnd: Halfword;

Rover: Halfword;

 GetAvail: PROCEDURE RETURNS[GetAvailResult: Halfword];

 FlushList: PROCEDURE[P: Halfword];

 GetNode: PROCEDURE[S: PascalInteger] RETURNS[GetNodeResult: Halfword];

 FreeNode: PROCEDURE[P: Halfword,S: Halfword];

 SortAvail: PROCEDURE;

--:131----136:-- NewNullBox: PROCEDURE RETURNS[NewNullBoxResult: Halfword];

 NewRule: PROCEDURE RETURNS[NewRuleResult: Halfword];

 NewLigature: PROCEDURE[F,C: Quarterword,Q: Halfword] RETURNS[NewLigatureResult: Halfword]
;

 NewDisc: PROCEDURE RETURNS[NewDiscResult: Halfword];

 NewMath: PROCEDURE[W: Scaled,S: SmallNumber] RETURNS[NewMathResult: Halfword];

 NewSpec: PROCEDURE[P: Halfword] RETURNS[NewSpecResult: Halfword]
;

 NewParamGlue: PROCEDURE[N: SmallNumber] RETURNS[NewParamGlueResult: Halfword];

 NewGlue: PROCEDURE[Q: Halfword] RETURNS[NewGlueResult: Halfword];

--154:-- NewSkipParam: PROCEDURE[N: SmallNumber] RETURNS[NewSkipParamResult: Halfword];

 NewKern: PROCEDURE[W: Scaled] RETURNS[NewKernResult: Halfword]
;

 NewPenalty: PROCEDURE[M: PascalInteger] RETURNS[NewPenaltyResult: Halfword];

 CheckMem: PROCEDURE[PrintLocs: PascalBoolean]
;

--:167----172:-- SearchMem: PROCEDURE[P: Halfword];

 ShortDisplay: PROCEDURE[P: PascalInteger];

 PrintFontAndChar: PROCEDURE[P: PascalInteger]
;

 PrintMark: PROCEDURE[P: PascalInteger]
;

 PrintRuleDimen: PROCEDURE[D: Scaled]
;

--:176----177:-- PrintGlue: PROCEDURE[D: Scaled,Order: PascalInteger,S: StrNumber]
;

 PrintSpec: PROCEDURE[P: PascalInteger,S: StrNumber]
;

 PrintSkipParam: PROCEDURE[N: PascalInteger]
;

 ShowNodeList: PROCEDURE[P: Halfword];

 ShowBox: PROCEDURE[P: Halfword];

 DeleteTokenRef: PROCEDURE[P: Halfword]
;

 DeleteGlueRef: PROCEDURE[P: Halfword]
;

 FlushNodeList: PROCEDURE[P: Halfword];

 CopyNodeList: PROCEDURE[P: Halfword] RETURNS[CopyNodeListResult: Halfword];

 PrintMode: PROCEDURE[M: PascalInteger]
;

 PushNest: PROCEDURE
;

 PopNest: PROCEDURE;

 ShowActivities: PROCEDURE
;

 PrintParam: PROCEDURE[N: PascalInteger];

 FixDateAndTime: PROCEDURE
;

 BeginDiagnostic: PROCEDURE
;

 EndDiagnostic: PROCEDURE[BlankLine: PascalBoolean];

END.