!* modified 19/08/85
!*
%externalroutinespec Egenerate Object(%stringname Name)
%externalroutinespec Einitialise(%integer Lang, Avertext, Astackca,
                                                    Aglaca, Options)
%externalroutinespec Eterminate(%integer adareasizes)
%externalroutinespec Ecommon(%integer area, %stringname Name)
%externalroutinespec Eendcommon(%integer area, Length)
%externalroutinespec Elinestart(%integer lineno)
%externalroutinespec Elinedecode
%externalroutinespec Emonon
%externalroutinespec Emonoff
%externalroutinespec Efaulty
%externalintegerfnspec Estkmarker
%externalroutinespec Esetmarker(%integer Markerid, New Value)
%externalintegerfnspec Eswapmode
!*
%externalroutinespec Estklit(%integer Val)
%externalroutinespec Estkconst(%integer Len, Ad)
%externalroutinespec Estkdir(%integer Area, Offset, Adid, Bytes)
%externalroutinespec Estkind(%integer Area, Offset, Adid, Bytes)
%externalroutinespec Estkglobal(%integer Level, Offset, Adid, Bytes)
%externalroutinespec Estkglobalind(%integer Level, Offset, Adid, Bytes)
%externalroutinespec Estkpar(%integer Level, Offset, Adid, Bytes)
%externalroutinespec Estkparind(%integer Level, Offset, Adid, Bytes)
%externalroutinespec Estkresult(%integer Class, Type, Bytes)
%externalroutinespec Erefer(%integer Offset, Bytes)
%externalroutinespec Epromote(%integer Level)
%externalroutinespec Edemote(%integer Level)
%externalroutinespec Estkaddr(%integer Area, Offset, Adid, Bytes)
%externalroutinespec Estkgaddr(%integer Level,Offset,Adid,Bytes)
%externalroutinespec Estkpaddr(%integer Level,Offset,Adid,Bytes)
!*
%externalroutinespec Elabel(%integer id)
%externalroutinespec Ediscardlabel(%integer id)
%externalroutinespec Euchecklab(%integer Labid)
%externalroutinespec Eboundlab(%integer Labid)
%externalroutinespec Ejump(%integer Opcode, Labelid)
%externalroutinespec Etwjump(%integer Opcode, Lab1, Lab2, Lab3)
%externalroutinespec Eswitch(%integer Lower, Upper, Switchid, Errlabid,
                                                     %integername SSTad)
%externalroutinespec EswitchJump(%integer Switchid)
%externalroutinespec EfswitchJump(%integer Switchid)
%externalroutinespec Eswitchentry(%integer Switchid, Entry)
%externalroutinespec Eswitchdef(%integer Switchid)
%externalroutinespec EswitchLabel(%integer Switchid, Entry, Labelid)
!*
%externalroutinespec Ed1(%integer area, Disp, Val)
%externalroutinespec Ed2(%integer area, Disp, Val)
%externalroutinespec Ed4(%integer area, Disp, Val)
%externalroutinespec Edbytes(%integer area, Disp, len, ad)
%externalroutinespec Edpattern(%integer area, Disp, ncopies, len, ad)
%externalroutinespec Efix(%integer area, disp, tgtarea, tgtdisp)
!*
%externalintegerfnspec EXname(%integer type, %string(255)%name Xref)
%externalroutinespec Eprecall(%integer Id)
%externalroutinespec Ecall(%integer Id, Numpars, Paramsize)
%externalroutinespec Eprocref(%integer Id, Level)
%externalroutinespec Esave(%integer Asave, %integername Key)
%externalroutinespec Erestore(%integer Asave, Key, Existing)
!*
%externalintegerfnspec Enextproc
%externalroutinespec Eproc(%stringname Name, %integer Props,
                           Numpars, Paramsize, Astacklen, %integername Id)
%externalroutinespec Eprocend(%integer Localsize, Diagdisp, Astacklen)
%externalroutinespec Eentry(%integer Index, Numpars, Paramsize,
                                    Localsize, Diagdisp,%stringname Name)
!*
%externalroutinespec Edataentry(%integer Area, Offset, Length,
                                                       %stringname Name)
%externalroutinespec Edataref(%integer Area, Offset, Length,
                                                       %stringname Name)
!*
%externalroutinespec Eop(%integer Opcode)
%externalroutinespec Ef77op(%integer Opcode)
%externalroutinespec Epasop(%integer Opcode)
%externalroutinespec Eccop(%integer Opcode)
!*