%externalintegermapspec Comreg%alias "S#COMREGMAP"(%integer N)
%externalroutinespec compile%alias "S#COMPILE"(%string(255) s, %string(31) entry,
%integername flag)
%externalstringfnspec failuremessage %alias"s#failuremessage" (%integer n)
%externalroutine orionimp %alias "C#ORIONIMP"
%integer flag
%string(255) s
s=""
compile(s,"ICL(CEZORIONIMP",flag)
printstring(failuremessage(flag)) %and %stop %unless flag=0
%end
%externalroutine DRSIMP %alias "C#DRSIMP"
%integer flag
%string(32) File
compile(file,"ICL9CEZDRSIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine UIMP %alias "C#UIMP"
%string(32)file
%integer flag
file=""
compile(File,"ICL9CEZUNISYSIMP",flag)
printstring(Failuremessage(flag)) %and %stop %unless flag=0
%end
%externalroutine PERQ3IMP%alias "C#PERQ3IMP"
%integer flag
%string(32) File
compile(File,"ICL9CEZPERQ3IMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine eamdimp %alias "C#EAMDIMP"
%integer flag
%string(32)s; s=""
compile (s,"ICL9CEZEAMDIMP",flag)
printstring(failuremessage(flag)) %and %stop %unless flag=0
%end
%externalroutine gouldIMP %alias "C#GOULDIMP"
%integer flag
%string(32) File
compile(File,"ICL9CEZGOULDIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine WWCIMP%alias "C#WWCIMP"
%integer flag
%string(32) File
compile(file,"ICL9CEZWWCIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine VNSIMP %alias "C#VNSIMP"
%integer flag
%String(32)s; s=""
compile(s,"ICL9CEZVNSIMP",flag)
printstring(failuremessage(flag)) %and %stop %unless flag=0
%end
%externalroutine PNXIMP %alias "C#PNXIMP" (%string(255) s)

%integer flag,ad
%dynamicroutinespec pnxgenerateobject(%string(255)%name s)
%string(255) objname
s->(",").objname
%while objname->objname.(",") %cycle; %repeat
compile (s,"ICL9CEZPNXIMP",flag)
printstring(failuremessage(flag)) %unless flag=0
%return %unless (flag=218 %or flag=0) %and comreg(24)=0
pnxgenerateobject(objname)
%end
%externalroutine vaxIMP%alias "C#vaxIMP"(%string(255) s)
%integer flag
!%dynamicroutinespec Pgenerateobject(%string(*)%name objfile)
%dynamicroutinespec Psetfiles(%string(*)%name f1,f2)
%string(255) sFile,Ofile
%if s->sfile.(",").ofile %Start
      %if ofile->Ofile.(",") %start; %finish
      %if ofile="" %then ofile="T#OBJECT"
      Psetfiles(sfile,ofile)
%finish
compile("private","ICL9CEZVAXIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0
!Pgenerateobject(Ofile)
%end
%externalroutine M88KIMP%alias "C#M88KIMP"(%string(255) s)
%integer flag
!%dynamicroutinespec Pgenerateobject(%string(*)%name objfile)
!%dynamicroutinespec Psetfiles(%string(*)%name f1,f2)
%string(255) sFile,Ofile
%if s->sfile.(",").ofile %Start
      %if ofile->Ofile.(",") %start; %finish
      %if ofile="" %then ofile="T#OBJECT"
!      Psetfiles(sfile,ofile)
%finish
compile("private","ICL9CEZM88KIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0
!Pgenerateobject(Ofile)
%end
%endoffile