PSU 
.PROC,PSU*I,\ 
NOTRACE ' DISABLE AIP TRACE CODE     (NO/YES)  '=(*N=D,NO=D,YES=,*K=),
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMIN 
*CALL COMOUT
*CALL COMD2 
*CALL COMXOPL 
*CALL COMPROC 
. 
.*
.*       START PSU VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,PSU,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        PSU. 
EXIT. 
REVERT(ABORT)  PSU. 
  
  
.DATA,ZZZPROC 
.PROC,PSU.
* 
* PSU - PRINTER SUPPORT UTILITY 
* 
*CALL     PSRLEV
* 
  
.*****  PSU 
  
.***    NOTE - THIS PROCEDURE AS A DEFAULT PROVIDES A 
.*             TRACE USEFUL TO NHP DEVELOPMENT FOR
.*             ANALYZING PROBLEMS THAT MAY EXIST WITHIN 
.*             THIS PRODUCT. THIS PRODUCT MAY BE INSTALLED
.*             WITHOUT TRACE BY USING:  
.*
.*             BEGIN(PSU,INSTALL,NOTRACE) 
.*
  
BEGIN(PRDIN,INSTALL,PRDNAME=PSU1,#PN=PN,#PR=PR,DISK=0)
* 
BEGIN(UP,INSTALL,RANDOM,PCPL=CNSP,#PC=PC,#CC=CC,PCDECK=PS5) 
RETURN(COMPILE,UPDIN) 
* 
** DO BUILD OPTION MODS AND CREATE COMPILE FILE 
* 
NOTE(UPDIN)/*COMPILE PSU,PSUMAIN,DAYMSG,KDIS,MSG,PSUASM,PRESET
UPDATE(Q,P=NEWER,I=UPDIN,O=LIST,K)
* 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
* 
** ASSEMBLE AND LINK PSU
* 
RETURN(REL) 
FTN5(I,OPT=2,L=LIST,S=NOSTEXT,S=PSSTEXT,B=REL,X=OPL,ET=T,EC=0)
* 
RETURN(COMPILE) 
NOTE(IN);*C,JOBPSU
UPDATE(Q,P=NEWER,I=IN,C=COMP1,#D,8) 
REWIND(IN)
NOTE(IN);*C,EVFU
UPDATE(Q,P=NEWER,I=IN,C=COMP2,#D,8) 
REWIND(COMPILE,COMP1,COMP2,REL) 
COPYCF(COMP1,COMPILE) 
COPYCF(COMP2,COMPILE) 
BEGIN(PFGOUT,INSTALL,PRDNAME=PSU1,LFN=COMPILE)
BEGIN(ACCESS,INSTALL,PRODUCT,R) 
SYSGEN(UPSTRT,COMP1,$$$JOB(JOBPSU,#PR,SY,NS)$$$)
RETURN(COMPILE,IN,COMP1,COMP2,PRODUCT)
* 
BEGIN(GETULIB,INSTALL,NETIO_NOTRACE,FTN5LIB,SYMLIB,SYSLIB)
LDSET(PRESET=ZERO,LIB=NETIO_NOTRACE,ERR=ALL)
SLOAD(REL,PSU,PSUMAIN,DAYMSG,MSG,KDIS,PSUASM) 
SATISFY.
SLOAD(REL,PRESET) 
NOGO(LGO,PSU,$SSJ=$,$RFL=$) 
* 
BEGIN(PRDOUT,INSTALL,PRDNAME=PSU1,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=46)
BEGIN(SAVELGO,INSTALL,PRDNAME=PSU1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT. PSU 
EXIT. 
REVERT(ABORT) PSU 
*WEOR 
