DEFINITION MODULE CodeProcs;

EXPORT QUALIFIED next, next2, next4, ValueOfNextByte,
        ValueOfNextTwoBytes, NextInstruction, ignore, WipeOut,
        StepToNextInstruction, LabelRelativeJump,
        LabelRelativeJumpBack,
        LabelAbsoluteJump, ResetCodeAndLabelPtrs,
	MarkStartOfCaseLabelTable,
	FindStartOfProc, LoadingFormalProcedure,
        AtCaseLabelTable,
        NotAtEndOfTable, NotAtEndOfCode;

VAR NotAtEndOfTable, NotAtEndOfCode : BOOLEAN;

PROCEDURE next () : CARDINAL;
PROCEDURE next2 () : CARDINAL;
PROCEDURE next4 () : CARDINAL;
PROCEDURE ValueOfNextByte () : CARDINAL;
PROCEDURE ValueOfNextTwoBytes () : CARDINAL;
PROCEDURE NextInstruction (VAR length: CARDINAL): CARDINAL;
PROCEDURE ignore (value : CARDINAL);
PROCEDURE WipeOut (NoOfBytes : CARDINAL);
PROCEDURE StepToNextInstruction (NoOfBytes : CARDINAL);
PROCEDURE LabelRelativeJump (offset : CARDINAL);
PROCEDURE LabelRelativeJumpBack (offset : CARDINAL);
PROCEDURE LabelAbsoluteJump (ByteNo : CARDINAL);
PROCEDURE ResetCodeAndLabelPtrs ();
PROCEDURE MarkStartOfCaseLabelTable (); 
PROCEDURE FindStartOfProc (TableNo : CARDINAL);
PROCEDURE AtCaseLabelTable () : BOOLEAN;
PROCEDURE LoadingFormalProcedure () : BOOLEAN;
END CodeProcs.
