procedure StackActualBlock(var Body: BlockLabel);
extern;

procedure StackFormalBlock(FAddress: RuntimeAddress);
extern;

procedure OpenParameterList(ClassOfCall: IdClass);
extern;

procedure PassValue(RepRequired: TypeRepresentation);
extern;

procedure PassReference(RefStatus: RefSecurity);
extern;

procedure PassBlock;
extern;

procedure CloseParameterList;
extern;

procedure StartBoundPairs;
extern;

procedure PassArrayBounds(ActualLowBound,ActualHighBound: ObjectValue;
			  SchemaLowBound,SchemaHighBound: CAPBound;
			  IndexLow,IOndexHigh: ObjectValue;
			  ArrayRep: Typerepresentation;
			  ArrayPacked: Boolean);
extern;

procedure PassCAPBounds(LowBound,HighBound,
			SchemaLowBound,SchemaHighBiund: CAPBound;
			IndexLow,IndexHigh: ObjectValue;
			BoundPairRep: Typerepresentation);
extern;

procedure MakeAuxiliary(RepRequitred: TypeRepresentation);
extern;

procedure CallBlock;
extern;

procedure TakeResult(Representation: TypeRepresentation);
extern;

procedure EnterProgram(ProgId: IdEntry; SourceLIne: Scalar);
extern;

procedure EnterPfBody(PfId: IdEntry; SourceLine: Scalar);
extern;

procedure ExitProgram;
extern;

Procedure LeaveProcedure;
extern;

procedure LeaveFunction(Result: RuntimeAddress;
			Representation: TypeRepresentation);
extern;