{17/10/85 - new proc ForwardBlockLabel				}

procedure FutureBlockLabel( BlockId: IdEntry );
  extern;

procedure ExternalBlockLabel( BlockId: IdEntry );
  extern;

procedure ForwardBlockLabel( BlockId: IdEntry );
  extern;

procedure OpenCodeSpace(var L : BlockLabel);
  extern;

procedure CloseCodeSpace;
  extern;

procedure InitEmitter;
  extern;

procedure InitRtSystem;
  extern;

procedure EndEmitter;
  extern;

procedure OpenPresetSpace(Rep: TypeRepresentation);
  extern;

procedure InxPreset(PackedArray: Boolean;
		    LowIndex,HighIndex,LowBound: ObjectValue;
		    Rep: TypeRepresentation);
  extern;

procedure FiledPreset(Field: FieldOffset);
  extern;

procedure PresetSelector(VarPartRep,VariantRep: TypeRepresentation);
  extern;

procedure AssignPreset;
  extern;

procedure CopyPreset;
  extern;

procedure StackPreset;
  extern;

procedure ClsPresetSpace;
  extern;