170 
.PROC,170*I,\ 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMOUT
*CALL COMDISK 
*CALL COMD3 
*CALL COMPROC 
. 
  
* 170 - FIRMWARE FOR 380-170 NETWORK ACCESS DEVICE
*CALL     PSRLEV
* 
  
.*
.*  START 170 VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,A170,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        170. 
EXIT. 
REVERT(ABORT)  170. 
  
  
.DATA,ZZZPROC 
.PROC,A170. 
*CALL     PSRLEV
IFE(.NOT.FILE(IN,AS),L) 
IFE,$DISKINS$.EQ.$NO$,ERROR.
  REVERT,ABORT.  CONTROLWARE MUST BE DISK RESIDENT. 
ENDIF,ERROR.
ATTACH,CW=Z170_PSROUT/#PN=PN,R=PR,UN=UN2,NA.
IFE(.NOT.FILE(CW,AS),INDIR) 
  GET,CW=Z170_PSROUT/#PN=PN,R=PR,UN=UN2.
ENDIF(INDIR)
RETURN,IN,INHOLD. 
COPYBR,CW,IN. 
COPYBF,CW,INHOLD. 
ENDIF(L)
IFE(.NOT.FILE(INHOLD,AS),L00001)
REVERT(ABORT)   170.  YOU DID NOT DO THE COPY.
ENDIF(L00001) 
IFE(.NOT.FILE(IN,AS),L00002)
REVERT(ABORT)   170.  YOU DID NOT DO THE COPY.
ENDIF(L00002) 
REWIND(INHOLD)
RFL(50000)
SETCORE.
RBR(INHOLD,170) 
WBR(LGO)
REWIND(IN)
LIBEDIT(P=LGO,B=0,I=IN,L=0,C) 
BEGIN(GENDIR,INSTALL,LIB=5) 
BEGIN(SAVELGO,INSTALL,PRDNAME=Z170) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.       170 ******************************
EXIT. 
REVERT(ABORT) 170 ******************************
*WEOR 
