{

 History
 -------

 06/11/85 - Added spec for SizeOperation. (agh)
 04/12/85 - Add specs for SizeOfCAP, SizeOfWCAP, and SizeOfUCAP. (agh)

                                                                   }

procedure SelectFile(FType: TypEntry);
  extern;

procedure RstoreFile(IOFile: IOFileEntry);
  extern;

procedure DiscardFile;
  extern;

procedure InitIO;
  extern;

procedure LoadFCBAddress;
  extern;

procedure FileOperation(Which: StdProcFuncs; Form: IOFormat);
  extern;

procedure ReadBuffer;
  extern;

procedure WriteBuffer;
  extern;

procedure ReadNumeric(ReadMode: InputKind);
  extern;

procedure WriteScalars(WriteMode: OutputKind; Format: FormatKind);
  extern;

procedure WriteString(ActualLength: ObjectValue; Format: FormatKind);
  extern;

procedure WriteCAPString(HighBound: CAPBound; Format: FormatKind);
  extern;

procedure ReadLayout;
  extern;

procedure WriteLayout;
  extern;

procedure FileFunction(WhichFunc: StdProcFuncs);
  extern;

procedure LoadCAPSize(BounPairBlock: RuntimeAddress);
  extern;

procedure ArrayArrayOp(Which: StdProcFuncs;
                       UpLowBound, UpHighBound: ObjectValue;
                       UnpackedRep, PackedRep: TypeRepresentation;
                       PkLowBound, PkHighBound: ObjectValue);
  extern;

procedure ArrayCAPOp(Which: StdProcFuncs;
                     UpLowBound, UpHighBound: ObjectValue;
                     UnpackedRep, PackedRep: TypeRepresentation;
                     PkLowBound, PkHighBound: CAPBound);
  extern;

procedure CAPArrayOp(Which: StdProcFuncs;
                     UpLowBound, UpHighBound: CAPBound;
                     InnerMost: Boolean;
                     UnpackedRep, PackedRep: TypeRepresentation;
                     PkLowBound, PkHighBound: ObjectValue);
  extern;

procedure CAPCAPOp(Which: StdProcFuncs;
                   UpLowBound, UpHighBound: CAPBound;
                   InnerMost: Boolean;
                   UnpackedRep, PackedRep: TypeRepresentation;
                   PkLowBound, PkHighBound: CAPBound);
  extern;

procedure HeapRequest(Requested: TypeRepresentation);
  extern;

procedure TailorRequest(SelectorOffset: FieldOffset;
                        SelectedRep: TypeRepresentation);
  extern;

procedure HeapOperation(WhichPf: StdProcFuncs);
  extern;

procedure SizeOfCAP(PackedSchema, InnerMost: Boolean;
                    LowBound, HighBound: CAPBound;
                    Component: TypeRepresentation);
  extern;

procedure SizeOfWCAP(PackedSchema, InnerMost: Boolean;
                     LowBound, HighBound: CAPBound;
                     Component: TypeRepresentation);
  extern;

procedure SizeOfUCAP(PackedSchema, InnerMost: Boolean;
                     LowBound, HighBound: CAPBound;
                     Component: TypeRepresentation);
  extern;

procedure SizeRequest(Requested: TypeRepresentation);
  extern;

procedure SizeOperation;
  extern;

procedure StampProcedure(WhichPf: StdProcFuncs);
  extern;