procedure StartAncillaries(var List: AncillaryList);
extern;
procedure AppendEntry(var List: AncillaryList;
                      NewEntry: AncillaryEntry);
extern;

function CheckCount(List: AncillaryList): Scalar;
extern;

procedure GetEntry(var Entry: StackEntry);
extern;
 
procedure FreeEntry(Entry: StackEntry);
extern;

procedure Push(Entry: StackEntry);
extern;

procedure Pop(var Entry: StackEntry);
extern;

procedure InitStack;
extern;

procedure GetReference(var NewEntry: StackEntry);
extern;

procedure PushNewAccess(var Entry: StackEntry; ForAPartWord: Boolean);
extern;

procedure StackReference(Indirect: Boolean; Location: RunTimeAddress);
extern;

procedure InxReference(PackedArray: Boolean;
                       LowBound,HighBound: ObjectValue;
                       Elemnet: TypeRepresentation);
extern;

procedure InxCAPReference(PackedSchema: Boolean;
                          LowBoundAddress,HighBoundAddress:CAPBound;
                          BoundPairRepresentation,Component:
                          TypeRepresentation);
extern;

procedure DoVariantChecks(VarPart: TypEntry; FieldId: IdEntry);
extern;

procedure FieldReference(Filed:FieldOffset; TagField: Boolean);
extern;

procedure IndirectReference(APointer: Boolean);
extern;

procedure PnterReference;
extern;

procedure BufferReference(PackedFile,TextFile: Boolean;
                         Element: TypeRepresentation);
extern;

function SimpleReference(Entry: StackEntry): Boolean;
extern;