NAM5D 
.PROC,NAM5D*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMIN 
*CALL COMOUT
*CALL COMD2 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
  
.*
.*  START NAM5D VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,NAM5D,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        NAM5D. 
EXIT. 
REVERT(ABORT)  NAM5D. 
  
  
.DATA,ZZZPROC 
.PROC,NAM5D.
*CALL     PSRLEV
* NAM5D - NETWORK ACCESS METHODS 1.6  (DEBUG VERSION) 
*CALL PSRLEV
* 
BEGIN(PRDIN,INSTALL,PRDNAME=NAM5,#PN=PN,#PR=PR,DISK=0)
SKIPEI(USER)
NOTE(USER,NR);*IDENT DEBUG
NOTE(USER,NR);*DEFINE DEBUG 
NOTE(USER,NR);*DEFINE LIBRES
NOTE(USER,NR);*DEFINE STAT
NOTE(USER,NR);*DEFINE ZZDN
PACK(USER)
BEGIN(UP,INSTALL,RANDOM,PCPL=CNSP,#PC=PC,#CC=CC,PCDECK=NA5) 
RFL(75000)
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
BEGIN(GETULIB,INSTALL,FORTRAN,SYMLIB,SYSLIB,AAMLIB,BAMLIB)
SYMPL(ET=T,I,E,B=EXECBIN,L=LIST)
COMPASS(A,I,B=EXECBIN,L=LIST) 
COMPASS(A,I,S=CPUTEXT,S=NOSTEXT,S=PSSTEXT,S=IPTEXT,B=MACBIN,L=LIST) 
SYMPL(ET=T,I,B=NIPDEF,L=LIST) 
SYMPL(ET=T,I,Y=NIPDEF,B=NIPTEXT,L=LIST) 
SYMPL(ET=T,I,Y=NIPDEF,Y=NIPTEXT,B=L,L=LIST) 
COMPASS(A,I,S=CPUTEXT,S=IPTEXT,S=NOSTEXT,S=SSYTEXT,S=PSSTEXT,B=L,L=LIST)
RENAME(NIPBIN=L)
COMPASS(A,I,B=SKENIP,L=LIST)
SYMPL(ET=T,I,B=DAIPDEF,L=LIST)
SYMPL(ET=T,I,Y=DAIPDEF,B=DAIPTXT,L=LIST)
SYMPL(ET=T,I,Y=DAIPDEF,Y=DAIPTXT,B=DAIPBIN,L=LIST)
COMPASS(A,I,S=CPUTEXT,S=NOSTEXT,S=IPTEXT,B=DAIPBIN,L=LIST)
SYMPL(ET=T,I,B=DLFPDEF,L=LIST)
SYMPL(ET=T,I,Y=DLFPDEF,B=DLFPTXT,L=LIST)
SYMPL(ET=T,I,Y=DLFPDEF,Y=DLFPTXT,B=DLFPBIN,L=LIST)
COMPASS(A,I,S=CPUTEXT,S=NOSTEXT,B=DLFPBIN,L=LIST) 
COMPASS(A,I,S=IPTEXT,S=PPTEXT,B=LGO,L=LIST) 
COMPASS(A,I,S=CPUTEXT,S=NOSTEXT,B=LPPMBIN,L=LIST) 
COMPASS(A,I,B=NETTEXT,L=LIST) 
SYMPL(ET=T,E,I,B=NSTEXT,L=LIST) 
SYMPL(ET=T,E,I,Y=NSTEXT,B=NSBIN,L=LIST) 
COMPASS(A,I,S=PSSTEXT,B=NSBIN,L=LIST) 
COMPASS(A,I,B=SKENS,L=LIST) 
SYMPL(ET=T,E,I,B=TVFBIN,L=LIST) 
COMPASS(A,I,S=NOSTEXT,S=PSSTEXT,G=NETTEXT,B=TVFBIN,L=LIST)
SYMPL(ET=T,I,B=SYNBIN,L=LIST) 
COMPASS(A,I,S=CPUTEXT,S=IPTEXT,S=IOTEXT,B=SYNBIN,L=LIST)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(SYNBIN)
NOGO(SYNGEN)
RFL(150000) 
REDUCE(-) 
SYNGEN(I=COMPILE,O=SYNOUT,T=1,L=LIST) 
SYMPL(ET=T,I=SYNOUT,B=NDLPBIN,L=LIST) 
SYMPL(ET=T,I,B=NDLPTXT,L=LIST)
SYMPL(ET=T,I,Y=NDLPTXT,B=NDLPBIN,L=LIST)
COMPASS(A,I,S=CPUTEXT,S=IPTEXT,B=NDLPBIN,L=LIST)
COMPASS(A,I,B=SKENDLP,L=LIST) 
SYMPL(ET=T,I,B=LFGTEXT,L=LIST)
SYMPL(ET=T,I,Y=LFGTEXT,B=LFGBIN,L=LIST) 
COMPASS(A,I,S=CPUTEXT,S=NOSTEXT,B=LFGBIN,L=LIST)
COMPASS(A,I,B=SKELFG,L=LIST)
SYMPL(ET=T,I,B=NDABIN,L=LIST) 
COMPASS(A,I,S=NOSTEXT,S=IPTEXT,B=SKENDA,L=LIST) 
COMPASS(A,I,S=IPTEXT,S=CPUTEXT,S=PSSTEXT,S=NOSTEXT,B=LIBBIN,L=LIST) 
SYMPL(ET=T,E,I,B=NAMIBIN,L=LIST)
COMPASS(A,I,S=PSSTEXT,S=NOSTEXT,B=NAMIBIN,L=LIST) 
SYMPL(ET=T,E,I,B=COLLBIN,L=LIST)
COMPASS(A,I,S=PSSTEXT,S=NOSTEXT,B=COLLBIN,L=LIST) 
COPYCF(COMPILE,NAMSTRT,1,1,72)
COPYCF(COMPILE,NAM,1,1,72)
COPYCF(COMPILE,NAMNOGO,1,1,72)
REPLACE(NAMSTRT,NAM,NAMNOGO)
REWIND(PFGFILE) 
COPYBF(NAMSTRT,PFGFILE) 
COPYBF(NAM,PFGFILE) 
COPYBF(NAMNOGO,PFGFILE) 
SYMPL(ET=T,I,E,B=SSTEXT,L=LIST) 
SYMPL(ET=T,I,E,Y=SSTEXT,B=SSBIN,L=LIST) 
COMPASS(A,I,S=NOSTEXT,S=PSSTEXT,G=NETTEXT,B=SSBIN,L=LIST) 
SYMPL(ET=T,I,E,B=CSTEXT,L=LIST) 
SYMPL(ET=T,I,E,Y=SSTEXT,Y=CSTEXT,B=CSBIN,L=LIST)
SYMPL(ET=T,I,E,Y=SSTEXT,Y=CSTEXT,B=SKECS,L=LIST)
SYMPL(ET=T,I,E,B=NVFTEXT,L=LIST)
SYMPL(ET=T,I,E,Y=SSTEXT,Y=NVFTEXT,B=NVFBIN,L=LIST)
SYMPL(ET=T,I,E,Y=SSTEXT,Y=NVFTEXT,B=SKENVF,L=LIST)
RETURN(IN)
NOTE(IN,NR);*P DEBUG
NOTE(IN,NR);*C CWEOR140.CWEOR180
PACK(IN)
UPDATE(P=NEWER,Q,I=IN)
SYMPL(ET=T,I,B=AIPDEF,L=LIST) 
SYMPL(ET=T,I,Y=AIPDEF,B=AIPTXT,L=LIST)
SYMPL(ET=T,I,Y=AIPDEF,Y=AIPTXT,B=AIPBIN,L=LIST) 
COMPASS(A,I,S=CPUTEXT,S=NOSTEXT,S=IPTEXT,B=AIPBIN,L=LIST) 
RETURN(IN,COMPILE)
NOTE(IN,NR);*ID NDBGXFR 
NOTE(IN,NR);*PURGE DEBUG
NOTE(IN,NR);*DEFINE XFR 
NOTE(IN,NR);*C CWEOR140.CWEOR180
PACK(IN)
UPDATE(Q,P=NEWER,I=IN)
SYMPL(I,ET=T,B=AIPDEFX,L=LIST)
SYMPL(I,ET=T,B=AIPTXTX,Y=AIPDEFX,L=LIST)
SYMPL(I,ET=T,B=AIPBINX,Y=AIPDEFX,Y=AIPTXTX,L=LIST)
COMPASS(I,A,S=CPUTEXT,S=NOSTEXT,S=IPTEXT,B=AIPBINX,L=LIST)
RETURN(IN,COMPILE)
NOTE(IN,NR);*ID DBGXFR
NOTE(IN,NR);*DEFINE XFR 
NOTE(IN,NR);*DEFINE DEBUG 
NOTE(IN,NR);*DEFINE STAT
NOTE(IN,NR);*C CWEOR140.CWEOR180
PACK(IN)
UPDATE(Q,P=NEWER,I=IN)
SYMPL(I,ET=T,B=DAIPDFX,L=LIST)
SYMPL(I,ET=T,B=DAIPTXX,Y=DAIPDFX,L=LIST)
SYMPL(I,ET=T,B=DAIPBNX,Y=DAIPTXX,Y=DAIPDFX,L=LIST)
COMPASS(I,A,S=CPUTEXT,S=NOSTEXT,S=IPTEXT,B=DAIPBNX,L=LIST)
REWIND(SKENIP,NIPBIN,NIPREL)
COPYLM(SKENIP,NIPBIN,NIPREL)
REWIND(AIPBIN,DAIPBIN)
RETURN(IN,COMPILE)
NOTE(IN,NR);*ID IPPSOC
NOTE(IN,NR);*DEFINE DEBUG 
NOTE(IN,NR);*DEFINE STAT
NOTE(IN,NR);*C TEXTIPL.IMNS 
PACK(IN)
UPDATE(Q,P=NEWER,I=IN)
SYMPL,I,B=IPPTXT,L=LIST.
SYMPL,I,B=IPPBIN,Y=IPPTXT,L=LIST. 
COMPASS,I,B=IPPBIN,S=PSSTEXT,S=NOSTEXT,L=LIST.
REPLACE(IPPTXT,IPPBIN)
REDUCE. 
LIBGEN(F=AIPBIN,P=NETIO)
LIBGEN(F=DAIPBIN,P=NETIOD)
LIBGEN(F=AIPBINX,P=NETXIO)
LIBGEN(F=DAIPBNX,P=NETXIOD) 
LIBGEN(F=EXECBIN,P=EXECLIB) 
LIBGEN(F=MACBIN,P=MACLIB) 
LIBGEN(F=NDLPBIN,P=NDLPLIB) 
LIBGEN(F=LFGBIN,P=LFGLIB) 
LIBGEN(F=NDABIN,P=NDALIB) 
LIBGEN(F=NSBIN,P=NSLIB) 
LIBGEN(F=LIBBIN,P=NAMILIB)
LIBGEN(F=SSBIN,P=SSLIB) 
LIBGEN(F=CSBIN,P=CSLIB) 
LIBGEN(F=NVFBIN,P=NVFLIB) 
LIBGEN(F=IPPBIN,P=IPPLIB) 
REWIND(NETTEXT) 
COPYBR(NETTEXT,LGO) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(NIPREL)
NOGO(LGO,NIP) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(DLFPBIN) 
NOGO(LGO,DLFP)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(LPPMBIN) 
NOGO(LGO,LISTPPM) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET (LIB=NDLPLIB/LFGLIB/MACLIB/SSLIB) 
LOAD(SKENDLP) 
NOGO(LGO,NDLP)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=LFGLIB/MACLIB)
LOAD(SKELFG)
NOGO(LGO,LFG) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=NDALIB/MACLIB)
LOAD(SKENDA)
NOGO(LGO,NDA) 
LDSET(LIB=NSLIB/EXECLIB/MACLIB/NDLPLIB/LFGLIB)
LDSET(LIB=NETIOD) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(SKENS) 
NOGO(LGO,NS)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=MACLIB) 
LDSET(LIB=NETIOD) 
LOAD(TVFBIN)
NOGO(LGO,TVF1)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=NAMILIB/MACLIB) 
LOAD(NAMIBIN) 
NOGO(LGO,NAMI,$RFL=$,$SSJ=$,$SDM=$) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=NAMILIB/MACLIB) 
LOAD(COLLBIN) 
NOGO(LGO,COLLECT) 
LDSET(LIB=SSLIB/MACLIB/CSLIB) 
LDSET(LIB=NETIOD) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(SKECS) 
NOGO(LGO,CS)
LDSET(LIB=SSLIB/MACLIB/NVFLIB)
LDSET(LIB=NETIOD) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(SKENVF)
NOGO(LGO,NVF,$SSJ=$)
RENAME(LIB=DAIPBIN) 
RENAME(LIB2=AIPBIN) 
RENAME(LIBX=AIPBINX)
RENAME(LIBX2=DAIPBNX) 
RENAME(LIB3=EXECBIN)
RENAME(LIB4=MACBIN) 
RENAME(LIB5=NDLPBIN)
RENAME(LIB6=LFGBIN) 
RENAME(LIB7=IPPBIN) 
REWIND(LGO,LIB,LIB2,LIB7) 
REWIND(LIB3,LIB4,LIB5,LIB6) 
BEGIN(PFGOUT,INSTALL,PRDNAME=NAM5,LFN=PFGFILE)
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=NETIOD) 
BEGIN(SAVELIB,INSTALL,LIB=LIB2,LIBNAME=NETIO) 
BEGIN(SAVELIB,INSTALL,LIB=LIBX,LIBNAME=NETXIO)
BEGIN(SAVELIB,INSTALL,LIB=LIBX2,LIBNAME=NETXIOD)
BEGIN(SAVELIB,INSTALL,LIB=LIB3,LIBNAME=EXECLIB) 
BEGIN(SAVELIB,INSTALL,LIB=LIB4,LIBNAME=MACLIB)
BEGIN(SAVELIB,INSTALL,LIB=LIB5,LIBNAME=NDLPLIB) 
BEGIN(SAVELIB,INSTALL,LIB=LIB6,LIBNAME=LFGLIB)
BEGIN(SAVELIB,INSTALL,LIB=LIB7,LIBNAME=IPPLIB)
GTR(LGO,GLOBLGO)ABS/NDLP,LFG,OVL/NETTEXT,INITOVL-LISTOVL
.IF, (R1G .EQ. 0) ,NAM5D1.
  BEGIN(PRDOUT,INSTALL,PRDNAME=NAM5,#PNO=PNO,#PRO=PRO)
  BEGIN(GENDIR,INSTALL,LIB=39)
  BEGIN(SAVELGO,INSTALL,PRDNAME=NAM5) 
  BEGIN(END,INSTALL,MFT=R1G+) 
.ELSE(NAM5D1) 
  .* SAVE NAM5 TRACE/DEBUG BINARIES ON *PFG* FILE. PRDNAME=NAMD 
  REWIND(SMDPFG,ZZIN) 
  NOTE(ZZIN,NR)+*FILE,NETIO 
  NOTE(ZZIN,NR)+*FILE,NETIOD
  NOTE(ZZIN,NR)+*FILE,NETXIO
  NOTE(ZZIN,NR)+*FILE,NETXIOD 
  PACK(ZZIN)
  LIBEDIT(P=LGO,B=0,I=ZZIN,N=SMDPFG,L=0)
  RETURN(ZZIN)
.ENDIF(NAM5D1)
REVERT.  NAM5D. 
EXIT. 
REVERT(ABORT)  NAM5D. 
*WEOR 
