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


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes;

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

CurCmd: EightBits;

CurMod: PascalInteger;

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

InputPtr: PascalInteger[0..StackSize];

MaxInStack: PascalInteger[0..StackSize];

CurInput: InStateRecord;

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

Line: PascalInteger;
LineStack: LONG POINTER TO ARRAY PascalInteger[1..6] OF  PascalInteger;
ParamStack: LONG POINTER TO ARRAY PascalInteger[0..150] OF  Halfword;

ParamPtr: PascalInteger[0..150];

MaxParamStack: PascalInteger;

FilePtr: PascalInteger[0..StackSize];

ScannerStatus: PascalInteger[0..6];

WarningInfo: PascalInteger;

ForceEof: PascalBoolean;

CondPtr: Halfword;

IfLimit: PascalInteger[0..4];

CurIf: SmallNumber;

IfLine: PascalInteger;

LoopPtr: Halfword;

--:27----30:
 InputLn: PROCEDURE[ F: LONG POINTER TO AlphaFile,BypassEoln: PascalBoolean] RETURNS[InputLnResult: PascalBoolean]
;

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

 EndTokenList: PROCEDURE;

 CurTok: PROCEDURE RETURNS[CurTokResult: Halfword]
;

--:650----651:-- BackInput: PROCEDURE;

 BackError: PROCEDURE;

 InsError: PROCEDURE
;

 BeginFileReading: PROCEDURE;

 EndFileReading: PROCEDURE;

 ClearForErrorPrompt: PROCEDURE;

 CheckOuterValidity: PROCEDURE RETURNS[CheckOuterValidityResult: PascalBoolean];


 GetNext: PROCEDURE;

 FirmUpTheLine: PROCEDURE;

--:681----684:-- ScanToks: PROCEDURE[Terminator: CommandCode,
SubstList,TailEnd: Halfword,SuffixCount: SmallNumber] RETURNS[ScanToksResult: Halfword]
;

 GetSymbol: PROCEDURE;

 GetClearSymbol: PROCEDURE
;

 CheckEquals: PROCEDURE
;

 MakeOpDef: PROCEDURE;

--696:----1031:-- CheckDelimiter: PROCEDURE[LDelim,RDelim: Halfword]
;

 ScanDeclaredVariable: PROCEDURE RETURNS[ScanDeclaredVariableResult: Halfword];

 ScanDef: PROCEDURE;


--719:----721:-- PrintMacroName: PROCEDURE[A,N: Halfword];

 PrintArg: PROCEDURE[Q: Halfword,
N: PascalInteger,B: Halfword]
;

 ScanTextArg: PROCEDURE[LDelim,RDelim: Halfword]
;

 MacroCall: PROCEDURE[DefRef,ArgList,MacroName: Halfword];

--:705----706:-- Expand: PROCEDURE
;


 GetXNext: PROCEDURE;

--736:-- StackArgument: PROCEDURE[P: Halfword]
;

 PassText: PROCEDURE;

 ChangeIfLimit: PROCEDURE[L: SmallNumber,P: Halfword];

 CheckColon: PROCEDURE
;


 Conditional: PROCEDURE;

 BadFor: PROCEDURE[S: StrNumber];


 BeginIteration: PROCEDURE;

 ResumeIteration: PROCEDURE;


 StopIteration: PROCEDURE;

 StartInput: PROCEDURE;

END.