MAPULIB 
.PROC,MAPULIB*I,\ 
CHMAP   ' SELECT CHANNEL COUPLED MAP IV-20/21  '=(*N=NO,YES,NO,*K=YES), 
*CALL COMLIST 
. 
.*
.* MAPULIB
.*
.*        BUILD A MAP MACRO CONTROL LIBRARY 
.*        FOR USE WITH THE MSSI SUBSYSTEM.
.*
.*        INVOCATION
.*        BEGIN,MAPULIB,INSTALL,CHMAP,FTN4. 
.*
.*        CHMAP = NO  - (DEFAULT) THE MMCL BINARIES ARE ASSEMBLED 
.*                      FOR USE WITH MAP III OR MAP IV-23/25 HARDWARE.
.*              = YES - THE MMCL BINARIES ARE ASSEMBLED FOR USE 
.*                      WITH MAP IV-20/21 HARDWARE. 
.*
.*        THE FOLLOWING FILES ARE REQUIRED -
.*        MMCL   - (REL14E) MAP III MACRO CONTROL LIBRARY PL
.*        CWUSER - MAP III MACRO CONTROL LIBRARY MACRO
.*                 DEFINTIONS.  THIS FILE MAY ALSO
.*                 CONTAIN LOCAL MODIFICATIONS TO DECK MAPLIB.
.*
.*        THE OUTPUT FILE - 
.*        MAPLIB - THIS FILE CONTAINS THE MMCL BINARIES.  IT IS 
.*                 A LOCAL FILE AND IT IS THE RESPONSIBILITY
.*                 OF THE CALLING PROCEDURE TO SAVE IT. 
.*
IFE, FILE(OLDPL, .NOT. AS) ,MAPULIB01.
REVERT(ABORT)  MAPULIB - FILE (OLDPL) NOT LOCAL.
ENDIF(MAPULIB01)
IFE, FILE(CWUSER, .NOT. AS) ,MAPULIB02. 
REVERT(ABORT)  MAPULIB - FILE (CWUSER) NO LOCAL.
ENDIF(MAPULIB02)
.*
.* MCATEXT
.*
REWIND(IN)
NOTE(IN,NR);*IDENT TEXTIN 
.IF, ($CHMAP$ .EQ. $YES$) ,MAPULIB03. 
NOTE(IN,NR);*DEFINE #CHMAP
.ENDIF(MAPULIB03) 
NOTE(IN,NR);*C,MCACOM,MCATEXT 
PACK(IN)
UPDATE(Q,O=0,I=IN)
RFL(77000)
COMPASS(A,I,S=0,L=0,B=MCATEXT)
REWIND(MCATEXT,IN)
.*
.*  MAPFORM 
.*
NOTE(IN,NR);*IDENT MFORM
NOTE(IN,NR);*C MAPFORM
PACK(IN)
UPDATE(Q,O=0,I=IN)
RFL(77000)
FTN5,LO=R/A/M,I,L=0,B=MAPFORM.
.*
.*  ASSEMBLE THE MACRO CONTROL LIBRARY
.*
REWIND(IN)
NOTE(IN,NR);*IDENT CWULIB 
NOTE(IN,NR);*READ CWUSER
NOTE(IN,NR);*C MAPLIB 
PACK(IN)
UPDATE(Q,I=IN)
RFL(77000)
COMPASS(A,I,G=MCATEXT,B=MTEMP,L=LIST) 
REWIND(MTEMP,MAPFORM) 
NOTE(IN);OPTIONS,MAP,,L,. 
LDSET(PRESET=ZERO)
LOAD(MTEMP) 
MAPFORM(IN,,,MINPUT)
RETURN(MTEMP) 
REWIND(MINPUT)
RFL(77000)
COMPASS(A,I=MINPUT,S=0,L=0,B=MAPLIB)
RETURN(MINPUT)
.*
.*  CREATION OF USER MACRO CONTROL LIBRARY COMPLETE 
.*
REVERT. MAPULIB COMPLETE
EXIT. 
REVERT,ABORT.  MAPULIB
*WEOR 
