-- file: MFOps.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

MFOps: DEFINITIONS IMPORTS  =
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes;

Txx: Scaled;

Txy: Scaled;

Tyx: Scaled;

Tyy: Scaled;

Tx: Scaled;

Ty: Scaled;

StartSym: Halfword;

LongHelpSeen: PascalBoolean;

BocC: PascalInteger;

BocP: PascalInteger;

 DoNullary: PROCEDURE[C: Quarterword];

 NicePair: PROCEDURE[P: PascalInteger,T: Quarterword] RETURNS[NicePairResult: PascalBoolean];

 PrintKnownOrUnknownType: PROCEDURE[T: SmallNumber,V: PascalInteger]
;

 BadUnary: PROCEDURE[C: Quarterword];

 NegateDepList: PROCEDURE[P: Halfword];

 PairToPath: PROCEDURE;

--909:-- TakePart: PROCEDURE[C: Quarterword];

 StrToNum: PROCEDURE[C: Quarterword]
;

 PathLength: PROCEDURE RETURNS[PathLengthResult: Scaled]
;

 TestKnown: PROCEDURE[C: Quarterword];

 DoUnary: PROCEDURE[C: Quarterword]
;

--922:-- BadBinary: PROCEDURE[P: Halfword,C: Quarterword]
;

 Tarnished: PROCEDURE[P: Halfword] RETURNS[TarnishedResult: Halfword];

 DepFinish: PROCEDURE[V,Q: Halfword,
T: SmallNumber];

 AddOrSubtract: PROCEDURE[P,Q: Halfword,C: Quarterword];

 DepMult: PROCEDURE[P: Halfword,V: PascalInteger,VIsScaled: PascalBoolean];

 HardTimes: PROCEDURE[P: Halfword]
;

 DepDiv: PROCEDURE[P: Halfword,
V: Scaled];

 SetUpTrans: PROCEDURE[C: Quarterword];

 SetUpKnownTrans: PROCEDURE[C: Quarterword];

 Trans: PROCEDURE[P,Q: Halfword];

 PathTrans: PROCEDURE[P: Halfword,
C: Quarterword];

 EdgesTrans: PROCEDURE[P: Halfword,C: Quarterword]
;

 Bilin1: PROCEDURE[P: Halfword,
T: Scaled,Q: Halfword,U,Delta: Scaled];

 AddMultDep: PROCEDURE[P: Halfword,V: Scaled,R: Halfword]
;

 Bilin2: PROCEDURE[P,T: Halfword,V: Scaled,U,Q: Halfword];

 Bilin3: PROCEDURE[P: Halfword,T,V,U,Delta: Scaled]
;

 BigTrans: PROCEDURE[P: Halfword,C: Quarterword];

 Cat: PROCEDURE[P: Halfword]
;

 ChopString: PROCEDURE[P: Halfword];

 ChopPath: PROCEDURE[P: Halfword];

 PairValue: PROCEDURE[X,Y: Scaled];

 SetUpOffset: PROCEDURE[P: Halfword]
;

 SetUpDirectionTime: PROCEDURE[P: Halfword]
;

 FindPoint: PROCEDURE[V: Scaled,C: Quarterword]
;

 DoBinary: PROCEDURE[P: Halfword,C: Quarterword];

 FracMult: PROCEDURE[N,D: Scaled]
;

 ShipOut: PROCEDURE[C: EightBits];

--994:----1005:-- TryEq: PROCEDURE[L,R: Halfword];

 MakeEq: PROCEDURE[Lhs: Halfword];

 DoEquation: PROCEDURE;

 DoAssignment: PROCEDURE
;

 DoTypeDeclaration: PROCEDURE
;

 DoRandomSeed: PROCEDURE
;

 DoProtection: PROCEDURE;

 DefDelims: PROCEDURE
;

 DoInterim: PROCEDURE;

--:1033----1034:-- DoLet: PROCEDURE;

 DoNewInternal: PROCEDURE
;

 DoShow: PROCEDURE;

 DispToken: PROCEDURE;

 DoShowToken: PROCEDURE;

 DoShowStats: PROCEDURE;

--:1044----1045:-- DispVar: PROCEDURE[P: Halfword];

 DoShowVar: PROCEDURE;

 DoShowDependencies: PROCEDURE
;

 DoShowWhatever: PROCEDURE
;

 ScanWith: PROCEDURE RETURNS[ScanWithResult: PascalBoolean];

 FindEdgesVar: PROCEDURE[T: Halfword];

 DoAddTo: PROCEDURE;

 TfmCheck: PROCEDURE[M: SmallNumber] RETURNS[TfmCheckResult: Scaled]
;

 DoShipOut: PROCEDURE
;

--1070:-- DoDisplay: PROCEDURE;

 GetPair: PROCEDURE[C: CommandCode] RETURNS[GetPairResult: PascalBoolean]
;

 DoOpenWindow: PROCEDURE;

 DoCull: PROCEDURE;

 DoMessage: PROCEDURE
;

 GetCode: PROCEDURE RETURNS[GetCodeResult: EightBits];

 SetTag: PROCEDURE[C: EightBits,T: SmallNumber,R: EightBits]
;

 DoTfmCommand: PROCEDURE;

--:1105----1176:-- DoSpecial: PROCEDURE;

 StoreBaseFile: PROCEDURE
;

 DoStatement: PROCEDURE;

END.