{
  History
  -------

 17/10/85 - new proc ecall					
 21/10 85 - new proc epasop
 06/02/86 - new procedures egjump, estkpf, eprefer, epsave, etrap

                                                                    }

procedure estklit(Val:integer);
extern;

procedure estkdir(Area:DataArea; Offset,Adid,Bytes:integer);
extern;

procedure estkind(Area:DataArea; Offset,Adid,Bytes:integer);
extern;

procedure erefer(Offset,Bytes:integer);
extern;

procedure eop(Opcode:integer);
extern;

procedure epasop(Opcode:integer);
extern;

procedure elabel(LabelId:integer);
extern;

procedure ejump(OpCode,LabelId:integer);
extern;

procedure ecall(Id,Numpars,Paramsize:integer);
extern;

procedure egjump(Opcode,Leveloffset,Labelid:integer);
extern;

procedure estkpf(Bitoffset,Bitsize:integer);
extern;

procedure eprefer(Bitoffset,Bitsize:integer);
extern;

procedure epsave(var Descriptor:integer);
extern;

procedure etrap(Relop,Error:integer);
extern;