NSS 
.PROC,NSS*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMIN 
*CALL COMOUT
*CALL COMD3 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
  
.*
.*  START NSS VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,NSS,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        NSS. 
EXIT. 
REVERT(ABORT)  NSS. 
  
  
.DATA,ZZZPROC 
.PROC,NSS.
*CALL     PSRLEV
* STATION - THIS JOB BUILDS THE NOS STATION FOR SCOPE2. 
.*
BEGIN(PRDIN,INSTALL,PRDNAME=NSS1,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=NSS) 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(NOSOPL=AUXPL)
  
NOTE(UPIN);*C TEXT
  
UPDATE,Q,P=NEWER,I=UPIN,L=1.
COMPASS,A,I,L=LIST,B=TEXT. (LOCAL FILE *TEXT* CREATED)
RETURN,UPIN,BIN,DIR.
  
NOTE(UPIN,NR);*C,MFSTAT.WEOR3 
NOTE(UPIN,NR);*C,STATSUB,KDRIVER,SYMPCOM,SYSCOM,WEOR6 
NOTE(UPIN,NR);*C,STADIR.WEOR8 
PACK,UPIN.
UPDATE,Q,P=NEWER,I=UPIN,L=1.
RETURN,UPIN.
RFL,100000. 
SYMPL,I,B=BIN,L=LIST.   MFSTAT
COMPASS,A,I,B=BIN,S=NOSTEXT,S=PSSTEXT,G=TEXT,L=LIST.   STATSUB
COMPASS,A,I,L=LIST,B=DIR.   STADIR
REWIND,DIR,BIN. 
COPYLM,DIR,BIN,STAT.
BEGIN(GETULIB,INSTALL,FORTRAN,SYMLIB,SYSLIB)
RETURN,DIR,BIN. 
  
LDSET(EPT=MFSTAT/$SSJ=$)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD,STAT.
NOGO,LGO.              MFSTAT.
RETURN,STAT.
  
NOTE(UPIN,NR);*C,SOTPGM.WEOR5 
NOTE(UPIN,NR);*C,SYMPCOM.WEOR6
NOTE(UPIN,NR);*C,SOTLCC.WEOR7 
PACK,UPIN.
UPDATE,Q,P=NEWER,I=UPIN,L=1.
RETURN,UPIN.
RFL,160000. 
SYMPL,I,B=BIN,L=LIST.   SOT 
COMPASS,A,I,B=BIN,S=NOSTEXT,G=TEXT,L=LIST.   SOTCOM 
COMPASS,A,I,L=LIST,B=DIR.   SOTLCC
REWIND,DIR,BIN. 
COPYLM,DIR,BIN,SOT. 
RETURN,DIR,BIN. 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(SOT) 
NOGO(LGO,$SSJ=$) (SOTOVL FILE GENERATED)
RETURN,SOT. 
  
  
NOTE(UPIN,NR);*C,QUEUE7 
PACK,UPIN.
UPDATE,Q,P=NEWER,I=UPIN,L=1.
RETURN,UPIN.
COMPASS,A,I,B=BIN,S=NOSTEXT,S=PSSTEXT,L=LIST. ASSEMBLE QUEUE7 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD,BIN. 
NOGO,LGO,QUEUE7,$RFL=$. 
RETURN,BIN. 
  
NOTE(UPIN,NR);*C,HELLO7 
PACK,UPIN.
UPDATE,Q,P=NEWER,I=UPIN,L=1.
RETURN,UPIN.
COMPASS,A,I,B=BIN,L=LIST. ASSEMBLE HELLO7 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD,BIN. 
NOGO,LGO,HELLO7,$RFL=$. 
RETURN,BIN. 
  
NOTE(UPIN,NR);*C,T76,LIF,SSH
PACK,UPIN.
UPDATE,Q,P=NEWER,I=UPIN,L=1.
RETURN,UPIN.
COMPASS,A,I,S=NOSTEXT,B=LGO,L=LIST. T76,LIF,SSH 
  
NOTE(UPIN,NR);*C,STD,1ML
PACK,UPIN.
UPDATE,Q,P=NEWER,I=UPIN,L=0.
RETURN,UPIN.
COMPASS,A,I,S=NOSTEXT,B=LGO,L=LIST. STD, 1ML
RETURN(TEXT)
BEGIN(PFGOUT,INSTALL,PRDNAME=NSS1,LFN=SSFPROC)
REPLACE(SSFPROC=SSF)
BEGIN(PRDOUT,INSTALL,PRDNAME=NSS1,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=41)
BEGIN(SAVELGO,INSTALL,PRDNAME=NSS1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  NSS
EXIT. 
REVERT(ABORT)  NSS
#.DATA,SSFPROC
.PROC,SSF.
RETURN(SSF) 
MFSTAT. 
REVERT. SSF 
EXIT. SSF 
REVERT(ABORT) SSF 
*WEOR 
