{

 History
 -------

 17/10/85 - new proc. elinestart	
 21/10/85 - add eprocref.
 21/10/85 - in paseprc, change type of Stacklen from WordRange
            to ByteRange. (agh)
 23/10/85 - additional parameters to paseprc
 28/10/85 - new procedure writename
 28/11/85 - modify params to einitialise, eterminate, eprocend
	  - remove param to pasenpr
 17/12/85 - modify parameters of einitialise and eterminate to 
            integer. (agh)
 03/01/86 - simplify parameters to estkconst to make address
            integer. (agh)
 --------------------------------------------------------------------
 10/01/86 - simplify parameters to einitialise and eterminate to
            make all parameters integer. (agh)
 11/01/86 - add spec for eproclevel. (agh)
 ---------------------------------------------------------------------
 06/02/86 - add specs for ecasejump,ecaseentry,eprestore,epdiscard &
	    etkrconst
                                                                     }

function setname(Id: ImpStr): integer;
  extern;

procedure writename(Adid: integer);
  extern;

procedure paseprc(Adid, Level, Prop, NumPars, ParamSize: integer;
   		  var Stacklen: ByteRange;var ImpId: integer);
  extern;

function pasexnm(Typ, Adid: integer): integer;
  extern;

function pasenpr: integer;
  extern;

procedure initimp;
  extern;

procedure pasdent(area: DataArea; offset, length, adid: integer);
  extern;

procedure pasdref(area: DataArea; offset, length, adid: integer);
  extern;

procedure einitialise(lang, aver, stackca, glaca, options: integer);
  extern;

procedure eterminate(areasizes: integer);
  extern;

procedure estkconst(len, addr: integer);
  extern;

procedure estkrconst(len, addr: integer);
  extern;

procedure estkglobal(level, offset, adid, bytes: integer);
  extern;

procedure estkgind(level, offset, adid, bytes: integer);
  extern;

procedure estkparam(level, offset, adid, bytes: integer);
  extern;

procedure estkpind(level, offset, adid, bytes: integer);
  extern;

procedure estkresult(class, typ, bytes: integer);
  extern;

procedure estkaddr(area: DataArea; offset, adid, bytes: integer);
  extern;

procedure estkgaddr(level, offset, adid, bytes: integer);
  extern;

procedure estkpaddr(level, offset, adid, bytes: integer);
  extern;

procedure elinestart(line: integer);
  extern;

procedure eprecall(id: integer);
  extern;

procedure eprocend(localsize, diagdisp: integer;var stacklen: ByteRange);
  extern;

procedure eprocref(id, level: integer);
  extern;

procedure eproclevel(level: integer);
  extern;

procedure ecasejump(lower,upper,errlabid,wflag:integer);
 extern;

procedure ecaseentry(index,labelid:integer);
 extern;

procedure eprestore(descriptor:integer);
 extern;

procedure epdiscard(descriptor:integer);
 extern;