LOADER
.PROC,LOADER*I,\
PRESET  ' PRESET VALUE                         '=(*N=1,NONE=0,ZERO=1, 
          ONES=2,INDEF=3,INF=4,NGINDEF=5,NGINF=6,ALTZERO=7,ALTONES=10B, 
          DEBUG=11B,0,1,2,3,4,5,6,7,10B,11B), 
MAP     ' MAP VALUE                            '=(*N=0,OFF=0,PART=3,
          ON=13B,FULL=17B,0,3,13B,17B), 
FLMSG   ' ISSUE FIELD LENGTH MESSAGE (YES/NO)  '=(*N=1,NO=0,YES=1,0,1), 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* LOADER - CYBER LOADER 1.5 
*CALL     PSRLEV
* 
  
.*
.*  START LOADER VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,LOADER,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        LOADER.
EXIT. 
REVERT(ABORT)  LOADER.
  
  
.DATA,ZZZPROC 
.PROC,LOADER. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=LDR1,#PN=PN,#PR=PR,DISK=0)
RETURN(UMOD)
NOTE(UMOD,NR)+*IDENT,DEFLDR 
NOTE(UMOD,NR)+*I,LDRCOM.13
NOTE(UMOD,NR)+ IP.PSET  EQU    PRESET 
NOTE(UMOD,NR)+ IP.#MAP   EQU    MAP 
NOTE(UMOD,NR)+ IP.#FLMSG  EQU FLMSG 
PACK(UMOD)
SKIPEI(USER)
COPYEI(UMOD,USER) 
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=LDR) 
RFL(77000)
COMPASS(A,I,S=0,L=LIST) 
COMPASS(A,I,S=IPTEXT,S=SPPTEXT,S=CPUTEXT,L=LIST)
COMPASS(A,I,S=IPTEXT,S=SPPTEXT,S=NOSTEXT,S=PSSTEXT,L=LIST)
COMPASS(A,I,S=CPUTEXT,S=IPTEXT,S=SPPTEXT,L=LIST)
RETURN(COMPILE) 
GTR(LGO,LIB)REL/* 
GTR(LGO,BIN)ABS/*,OVL/* 
RENAME(LGO=BIN) 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=32)
BEGIN(SAVELGO,INSTALL,PRDNAME=LDR1) 
BEGIN(PRDOUT,INSTALL,PRDNAME=LDR1,#PNO=PNO,#PRO=PRO)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  LOADER.
EXIT. 
REVERT(ABORT)  LOADER.
*WEOR 
