NOS2B 
.PROC,NOS2B*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* NOS2B 
*CALL     PSRLEV
* 
  
.*****  NOS2B 
.*
.*      THIS JOB BUILDS MOST OF THE NON-COMPASS PORTIONS OF NOS.
.*
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,NOS2B,INSTALL.
  
.***    INPUT.
.*         THE COMPOSITE OPL, OPL_PSROUT, IS ATTACHED AS
.*         LOCAL FILE OPL.
  
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
  
.***    DEPENDENCIES: 
.*         FCL5 AND FTN5 MUST BE BUILT FIRST. 
  
  
  
.*
.*  START NOS2B VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,NOS2B,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        NOS2B. 
EXIT. 
REVERT(ABORT)  NOS2B. 
  
  
.DATA,ZZZPROC 
.PROC,NOS2B.
*CALL     PSRLEV
BEGIN(MODIFYX,INSTALL)    MAKE PROPER MODIFY1 PROC LOCAL
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
  
BEGIN(GETULIB,INSTALL,SRVLIB,FTN5LIB,SFLIB,SYMLIB,SYSLIB) 
  
NOTE(MODIR,NR);*EDIT PANEL,EOR1,PANSUBS 
BEGIN(,MODIFY1) 
FTN5(I,ET,EL,CS,OPT=2,E=ERRS,LO=S,B=PANEL,L=LIST) 
COMPASS(A,I,S=NOSTEXT,S=PSSTEXT,B=PANEL,L=LIST) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(PANEL) 
NOGO(LGO,PANEL,$RFL=$)
  
NOTE(MODIR,NR)+*EDIT QGET 
BEGIN(,MODIFY1) 
SYMPL(EL=T,I,B=QGETB,L=LIST)
COMPASS(A,I,S=NOSTEXT,S=PSSTEXT,B=QGETB,L=LIST) 
GTR(QGETB,QGETBIN)REL/* 
LDSET(LIB=SRVLIB,ERR=ALL,PRESET=ZERO) 
LOAD(QGETBIN) 
NOGO(LGO,QGET,DROP,$RFL=$)
UNLOAD(QGETB1,QGETBIN,QGETMAP)
  
NOTE(MODIR,NR);*EDIT VDTSUBS
BEGIN(,MODIFY1) 
COMPASS(A,I,S=NOSTEXT,S=PSSTEXT,L=LIST,B=SCRB1) 
REWIND(SCRB1) 
LIBGEN(F=SCRB1,P=SCRLIB)
NOTE(MODIR,NR);*EDIT SCREX
BEGIN(,MODIFY1) 
SYMPL(I,ET=T,LXR=LIST,S=SYMLIB,B=SCRB2) 
REWIND,SCRB2. 
LDSET(LIB=SCRLIB/SFLIB,ERR=ALL,PRESET=ZERO) 
LOAD,SCRB2. 
NOGO(LGO,SCREEN,LINE) 
  
RETURN(KEYBIN,PANELIB,KEYLIST,PANEL)
NOTE(MODIR,NR);*EDIT KEYPAN,KEY,PDU,ULIB,SHOW 
BEGIN(,MODIFY1) 
SET,R1=1. 
SET,R2=8. 
GTR(LGO,PANEL)ABS/PANEL 
GTR(LGO,GLOBLGO)ABS/PANEL 
GTR(COMPILE,LGO)PROC/KEY,PDU,ULIB,SHOW
GTR(COMPILE,PDU)PROC/PDU
RETURN(EI)
NOTE(EI)+RS:/$PANEL/,/PANEL/;*+RS:/$ULIB/,/ULIB/;*+END
EDIT(PDU,,EI,L=0) 
RETURN(EI)
GTR(COMPILE,ULIB)PROC/ULIB
GTR(COMPILE,GLOBLGO)PROC/PDU,ULIB 
SKIPEI(LGO) 
WHILE,R1.LE.R2,DOLOOP.
DOPANL(R1+D)
SET,R1=R1+1.
ENDW,DOLOOP.
RFL,0.
RETURN(OLDPL,KEYLIST,PANEL) 
NOTE(MODIR,NR);*EDIT KEYEX
BEGIN(,MODIFY1) 
FTN5(I,L=LIST,EL=W,LO=R/A/M/S,OPT=2,B=KEYBIN) 
LDSET(LIB=SFLIB/PANELIB,ERR=ALL,PRESET=ZERO)
LOAD(KEYBIN)
NOGO(LGO,KEYEX,$RFL=$)
NOTE(MODIR,NR);*EDIT SHOWEX 
BEGIN(,MODIFY1) 
FTN5(I,L=LIST,EL=W,LO=R/A/M/S,OPT=2,B=SHOWBIN)
LDSET(LIB=SFLIB,ERR=ALL,PRESET=ZERO)
LOAD(SHOWBIN) 
NOGO(LGO) 
NOTE(MODIR,NR);*EDIT HELPLIB
BEGIN(,MODIFY1) 
GTR(COMPILE,LGO)PROC/HELP,HELPME
SKIPEI(LGO) 
REWIND(COMPILE) 
PURGE(HELPLIB/NA) 
RETURN(HELPLIB) 
DEFINE(HELPLIB) 
LIBGEN(F=COMPILE,P=HELPLIB) 
BEGIN(PFGOUT,INSTALL,PRDNAME=NOSB,LFN=HELPLIB)
  
* GENERATE LIBEDIT DIRECTIVES FOR LIBRARY 3 
  
BEGIN(GENDIR,INSTALL,LIB=3) 
BEGIN(SAVELGO,INSTALL,PRDNAME=NOSB) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        NOS2B ********************************** 
EXIT. 
REVERT(ABORT)  NOS2B ********************************** 
#.DATA,DOPANL 
.PROC,DOPANL,P1.
  
.* PUT CAPSULE ON FILE *PANELIB*
  
RETURN,KEYPAN###_P1.
GTR,COMPILE,KEYPAN###_P1.TEXT/KEYPAN###_P1
PDU,I=KEYPAN###_P1,L=KEYLIST. 
RETURN,KEYPAN###_P1.
  
REVERT(NOLIST) DOPANL 
EXIT. DOPANL
REVERT(ABORT) DOPANL - FAILED 
*WEOR 
