BAM 
.PROC,BAM*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMX1 
*CALL COMPROC 
. 
  
* BAM - BASIC ACCESS MODULE        (CRM 1)
*CALL     PSRLEV
* 
  
.*
.*  START BAM VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,BAM,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        BAM. 
EXIT. 
REVERT(ABORT)  BAM. 
  
  
.DATA,ZZZPROC 
.PROC,BAM.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=BAM1,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=SW1) 
RFL(67000)
BEGIN(PRDAUX,INSTALL,PRDNAME=TEXT,#PNO=PN1,#PRO=PR1)
NOTE(IN);*COMPILE,CPCTEXT 
UPDATE(P=AUXPL,Q,N=RANPL,C=0,I=IN)
COMPASS(A,I,X=RANPL,S=NOSTEXT,S=IPTEXT,S=CPUTEXT,L=LIST)
GTR(LGO,TXTS)OVL/IOTEXT,OVL/TXTCRM
COMPASS(A,I,S=LDRTEXT,G=TXTS/TXTCRM,G=TXTS/IOTEXT,B=LIB,L=LIST) 
COMPASS(A,I,S=0,B=CAPDIR,L=LIST)
COMPASS(A,I,G=TXTS/TXTCRM,S=PSSTEXT,B=CRMBIN,L=LIST)
SYMPL(ET=T,I,F,B=REL,L=LIST)
COMPASS(A,I,S=PSSTEXT,G=TXTS/TXTCRM,G=TXTS/IOTEXT,B=REL,L=LIST) 
COMPASS(A,I,G=TXTS/IOTEXT,G=TXTS/TXTCRM,B=BLIB,L=LIST)
RETURN(COMPILE) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(OMIT=$CMM.FRF$/$SYS=$/$MSG=$) 
LOAD(CAPDIR)
LOAD(CRMBIN)
NOGO(BLIB)
GTR(BLIB,LIB)REL/FILE$XX-FILE$AA
GTR(BLIB,BAM)REL/FIT$COM-FITDMP 
GTR(BLIB,BAM)REL/PLG$RM 
GTR(BLIB,BAM)CAP/CHEK$SQ-RM$XFIT
RENAME(BLIB=BAM)
BEGIN(GETULIB,INSTALL,SYSLIB,SYMLIB,FORTRAN)
BEGIN(GENLIB,INSTALL,LIBRARY=SYSLIB,LIB=LIB)
BEGIN(GENLIB,INSTALL,LIBRARY=BAMLIB,LIB=BLIB) 
RETURN(LGO) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=SYSLIB/BAMLIB)
LOAD(REL) 
NOGO(LGO,CRMEP,FILE)
REWIND(TXTS)
COPYBF(TXTS,LGO)
RETURN(TXTS)
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
BEGIN(SAVELIB,INSTALL,LIB=BLIB,LIBNAME=BAMLIB)
BEGIN(PRDOUT,INSTALL,PRDNAME=BAM1,#PNO=PNO,#PRO=PRO)
GTR(LGO,GLOBLGO)OVL/IOTEXT,TXTCRM,ABS/FILE
BEGIN(GENDIR,INSTALL,LIB=9) 
BEGIN(SAVELGO,INSTALL,PRDNAME=BAM1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  BAM. 
EXIT. 
REVERT(ABORT)  BAM. 
*WEOR 
