{

 History
 -------

 16/10/85 - new functions AlfaString, ArrayString.
 17/10/85 - History tidied. (agh)
 03/01/86 - Add MCgGetByte and MCAddress. (agh)

                                                                       }

function MCAddress(PtrValue: Pointer): integer;
  extern;

procedure MCSetBit(var Word: MCWordform; BitIndex: MCBitIndex);
  extern;

procedure MCGetBit(word: MCWordForm; BitIndex: MCBitIndex;
                   var ResultBit: MCBit);
  extern;

procedure MCSetByte(var Word: MCWordForm; ByteIndex: MCByteIndex;
                    DataByte: MCByte);
  extern;

procedure MCGetByte(Word: MCWordForm; ByteIndex: MCByteIndex;
                    var ResultByte: MCByte);
  extern;

procedure PredictedError(Code: Scalar);
  extern;

function AlfaString(Name: Alfa): integer;
  extern;

function ArrayString(Characters: packed array[l..u: integer] of char):
           integer;
  extern;