$PROD BLDKER,,,,NONE $NOP $IFN %1=HELP,P/$GOTO NOHELP $GOTO HELP $TAG ARGERR $NOP ** MISSING A REQUIRED ARGUMENT ** $TAG HELP $NOP $NOP ***** PROCEDURE TO COMPLETELY BUILD MODCOMP KERMIT ***** $NOP $NOP *** ARG 1 = NAME OF SOURCE LIBRARY (NO DEFAULT) $NOP *** ARG 2 = NAME OF OBJECT LIBRARY (NO DEFAULT) $NOP *** ARG 3 = NAME OF LOAD MODULE FILE (NO DEFAULT) $NOP *** ARG 4 = LIST OPTION; IF <> NONE, FORTRAN LISTINGS $NOP *** AND A LINK MAP ARE PRODUCED (DEFAULT = %4) $NOP $NOP *** EXAMPLE --> $BLDKER USL,UL,LM,LO $NOP $ENDDO $NOP $TAG NOHELP $IFM %1,P/$GOTO ARGERR $IFM %2,P/$GOTO ARGERR $IFM %3,P/$GOTO ARGERR $DOFR5 BUFEMP,%1,%4,,%2 $DOFR5 BUFILL,%1,%4,,%2 $DOFR5 CTL,%1,%4,,%2 $DOFR5 CTOI,%1,%4,,%2 $DOFR5 DGETCH,%1,%4,,%2 $DOFR5 DGETLI,%1,%4,,%2 $DOFR5 DPUTCH,%1,%4,,%2 $DOFR5 DPUTLI,%1,%4,,%2 $DOFR5 FINDLN,%1,%4,,%2 $DOFR5 FXFILE,%1,%4,,%2 $DOFR5 GETLIN,%1,%4,,%2 $DOFR5 PACK,%1,%4,,%2 $DOFR5 PARSER,%1,%4,,%2 $IF %4=NONE,P/$DOM5A POSUSL,%1,NOLO,%2 $IFN %4=NONE,P/$DOM5A POSUSL,%1,LO,%2 $DOFR5 RDATA,%1,%4,,%2 $DOFR5 RECSW,%1,%4,,%2 $DOFR5 RFILE,%1,%4,,%2 $DOFR5 RINIT,%1,%4,,%2 $DOFR5 RPACK,%1,%4,,%2 $DOFR5 RPAR,%1,%4,,%2 $DOFR5 RSTORE,%1,%4,,%2 $DOFR5 SBREAK,%1,%4,,%2 $DOFR5 SCONNE,%1,%4,,%2 $DOFR5 SCOPY,%1,%4,,%2 $DOFR5 SDATA,%1,%4,,%2 $DOFR5 SENDSW,%1,%4,,%2 $DOFR5 SEOF,%1,%4,,%2 $DOFR5 SFILE,%1,%4,,%2 $DOFR5 SHELP,%1,%4,,%2 $DOFR5 SINIT,%1,%4,,%2 $DOFR5 SKIPBL,%1,%4,,%2 $DOFR5 SPACK,%1,%4,,%2 $DOFR5 SPAR,%1,%4,,%2 $DOFR5 SQUIT,%1,%4,,%2 $DOFR5 SRECEI,%1,%4,,%2 $DOFR5 SSEND,%1,%4,,%2 $DOFR5 SSET,%1,%4,,%2 $DOFR5 SSTATU,%1,%4,,%2 $DOFR5 TOCHAR,%1,%4,,%2 $DOFR5 TPUTCH,%1,%4,,%2 $DOFR5 UFTINI,%1,%4,,%2 $DOFR5 UNCHAR,%1,%4,,%2 $DOFR5 UPPER,%1,%4,,%2 $DOFR5 KERMIT,%1,%4,,%2,,BLKD $ASSIGN BI=%2,BO=BO,UL=%2 $REWIND BO $EXECUTE LIB POSITION KERMIT GET KERMIT POSITION B:KERMIT COPY WEOF BO EXIT $REWIND BO $ASSIGN BI=BO $EXECUTE M4EDIT LIB UL EDIT MAIN BI WEOF BO EXIT $REWIND BO $ASSIGN BI=BO $EXECUTE TOC FILE %3 OVERLAY KERMIT CATALOG EXIT $ENDDO