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, IndexHigh: ObjectValue;
                          LastLevel: Boolean;
                          ArrayRep: Typerepresentation;
                          ArrayPacked: Boolean);
  extern;

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

procedure CheckCAPBounds(LowBound, HighBound: CAPBound;
                         IndexLow, IndexHigh: ObjectValue);
  extern;

procedure CheckArrayBounds(ActualLowBound, ActualHighBound,
                           IndexLow, IndexHigh: ObjectValue);
  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;