Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;RPG10.CTL		Control file to create standard RPGII-10 compiler
;
;Copyright (C) 1976 Bob Currier and Cerritos College
;
;
;
;Set up standard things for assembly
;
.SET WATCH VERSION
.R SETSRC
*NOSYS
*LIB:[1,4]
;
;Set up standard parameters
;
.TECO RPGASM.MAC
=NDEBUG==DI0JSONESEG==DI1
=EX
;
;If listings are desired, include empty file LISTEM.MAC in users area
;
.TYPE LISTEM.MAC
.IF (NOERROR) .GOTO LISTEM
;
;Assemble sources with no listings
;
.R MACRO
*RPGASM=RPGASM
*INTERM=INTERM
*RPGUNV=RPGUNV
*CLEANT=RPGIIP,CLEANT
*DIAGS=RPGIIP,RPGERR,DIAGS
*GENCOM=RPGIIP,GENCOM
*GETASY=RPGIIP,GETASY
*GETCPY=RPGIIP,GETCPY
*GETERA=RPGIIP,GETERA
*GETGEN=RPGIIP,GETGEN
*GETSRC=RPGIIP,GETSRC
*IMPURE=RPGIIP,IMPURE
*LOOKUP=RPGIIP,LOOKUP
*PREDIT=RPGIIP,PREDIT
*PURAB=RPGIIP,PURAB,PURE
*PUREC=RPGIIP,PUREC,PURE
*PURED=RPGIIP,PURED,PURE
*PUREE=RPGIIP,PUREE,PURE
*PURFG=RPGIIP,PURFG,PURE
*PUTAS1=RPGIIP,PUTAS1
*PUTAS2=RPGIIP,PUTAS2
*PUTAS3=RPGIIP,PUTAS3
*PUTBIN=RPGIIP,PUTBIN
*PUTERA=RPGIIP,PUTERA
*PUTGEN=RPGIIP,PUTGEN
*PUTLST=RPGIIP,PUTLST
*RPGCOM=RPGIIP,RPGCOM
*RPGIIA=RPGIIP,RPGIIA
*RPGIIB=RPGIIP,RPGIIB
*RPGIIC=RPGIIP,RPGIIC
*RPGIID=RPGIIP,RPGIID
*RPGIIE=RPGIIP,RPGIIE
*RPGIIF=RPGIIP,RPGIIF
*RPGIIG=RPGIIP,RPGIIG
*RPGIIK=RPGIIP,RPGIIK
*SRTTAB=RPGIIP,SRTTAB
*STINFL=RPGIIP,STINFL
*TRYNAM=RPGIIP,TRYNAM
*XPAND=RPGIIP,XPAND
*XPNPPL=RPGIIP,XPNPPL
.GOTO LIBA

LISTEM::
;
;Assemble sources with listings
;
.R MACRO
*RPGASM,RPGASM/C=RPGASM
*INTERM,INTERM/C=INTERM
*RPGUNV,RPGUNV/C=RPGUNV
*CLEANT,CLEANT/C=RPGIIP,CLEANT
*DIAGS,DIAGS/C=RPGIIP,RPGERR,DIAGS
*GENCOM,GENCOM/C=RPGIIP,GENCOM
*GETASY,GETASY/C=RPGIIP,GETASY
*GETCPY,GETCPY/C=RPGIIP,GETCPY
*GETERA,GETERA/C=RPGIIP,GETERA
*GETGEN,GETGEN/C=RPGIIP,GETGEN
*GETSRC,GETSRC/C=RPGIIP,GETSRC
*IMPURE,IMPURE/C=RPGIIP,IMPURE
*LOOKUP,LOOKUP/C_RPGIIP,LOOKUP
*PREDIT,PREDIT/C_RPGIIP,PREDIT
*PURAB,PURAB/C=RPGIIP,PURAB,PURE
*PUREC,PUREC/C=RPGIIP,PUREC,PURE
*PURED,PURED/C=RPGIIP,PURED,PURE
*PUREE,PUREE/C=RPGIIP,PUREE,PURE
*PURFG,PURFG/C=RPGIIP,PURFG,PURE
*PUTAS1,PUTAS1/C=RPGIIP,PUTAS1
*PUTAS2,PUTAS2/C=RPGIIP,PUTAS2
*PUTAS3,PUTAS3/C=RPGIIP,PUTAS3
*PUTBIN,PUTBIN/C=RPGIIP,PUTBIN
*PUTERA,PUTERA/C=RPGIIP,PUTERA
*PUTGEN,PUTGEN/C=RPGIIP,PUTGEN
*PUTLST,PUTLST/C=RPGIIP,PUTLST
*RPGCOM,RPGCOM/C=RPGIIP,RPGCOM
*RPGIIA,RPGIIA/C=RPGIIP,RPGIIA
*RPGIIB,RPGIIB/C=RPGIIP,RPGIIB
*RPGIIC,RPGIIC/C=RPGIIP,RPGIIC
*RPGIID,RPGIID/C=RPGIIP,RPGIID
*RPGIIE,RPGIIE/C=RPGIIP,RPGIIE
*RPGIIF,RPGIIF/C=RPGIIP,RPGIIF
*RPGIIG,RPGIIG/C=RPGIIP,RPGIIG
*RPGIIK,RPGIIK/C=RPGIIP,RPGIIK
*SRTTAB,SRTTAB/C=RPGIIP,SRTTAB
*STINFL,STINFL/C=RPGIIP,STINFL
*TRYNAM,TRYNAM/C=RPGIIP,TRYNAM
*XPAND,XPAND/C=RPGIIP,XPAND
*XPNPPL,XPNPPL/C=RPGIIP,XPNPPL
.IF (ERROR) GOTO TRUBLE

;
;Produce the CREFed listings
;
.R CREF
*CLEANT.LST=CLEANT
*DIAGS.LST=DIAGS
*GENCOM.LST=GENCOM
*GETASY.LST=GETASY
*GETCPY.LST=GETCPY
*GETERA.LST=GETERA
*GETGEN.LST=GETGEN
*GETSRC.LST=GETSRC
*IMPURE.LST=IMPURE
*INTERM.LST=INTERM
*LOOKUP.LST=LOOKUP
*PREDIT.LST=PREDIT
*PURAB.LST=PURAB
*PUREC.LST=PUREC
*PURED.LST=PURED
*PUREE.LST=PUREE
*PURFG.LST=PURFG
*PUTAS1.LST=PUTAS1
*PUTAS2.LST=PUTAS2
*PUTAS3.LST=PUTAS3
*PUTBIN.LST=PUTBIN
*PUTERA.LST=PUTERA
*PUTGEN.LST=PUTGEN
*PUTLST.LST=PUTLST
*RPGASM.LST=RPGASM
*RPGCOM.LST=RPGCOM
*RPGIIA.LST=RPGIIA
*RPGIIB.LST=RPGIIB
*RPGIIC.LST=RPGIIC
*RPGIID.LST=RPGIID
*RPGIIE.LST=RPGIIE
*RPGIIF.LST=RPGIIF
*RPGIIG.LST=RPGIIG
*RPGIIK.LST=RPGIIK
*RPGUNV.LST=RPGUNV
*SRTTAB.LST=SRTTAB
*STINFL.LST=STINFL
*TRYNAM.LST=TRYNAM
*XPAND.LST=XPAND
*XPNPPL.LST=XPNPPL
.IF (ERROR) .GOTO TRUBLE

;
;Continue here after assembly and/or listings
;
;Create library file LIBA.REX
;
LIBA::;
.COPY LIBA.REX/B=LOOKUP.REL,GENCOM.REL,CLEANT.REL,SRTTAB.REL,GETCPY.REL,PREDIT.REL,PUTAS1.REL,PUTAS2.REL,PUTAS3.REL
.COPY LIBA.REX/B=LIBA.REX,PUTGEN.REL,PUTBIN.REL,GETASY.REL,GETERA.REL,GETGEN.REL,GETSRC.REL,DIAGS.REL
.COPY LIBA.REX/B=LIBA.REX,TRYNAM.REL,STINFL.REL,XPNPPL.REL,IMPURE.REL,RPGCOM.REL,PUTLST.REL
.COPY LIBA.REX/B=LIBA.REX,PURAB.REL,PUREC.REL,PURED.REL,PUREE.REL
.COPY LIBA.REX/B=LIBA.REX,PURFG.REL,PUTERA.REL,XPAND.REL
.IF (ERROR) .GOTO TRUBLE
;
;Throw away local symbols and write an index
;
.R MAKLIB
*LIBA.REX=LIBA.REX/NOLOCAL/INDEX
.IF (ERROR) .GOTO TRUBLE

;
;Load the compiler
;
.R LINK
*/CORE:55K/HASHSIZE:1531
*RPGII.MAP/MAP=RPGIIA,RPGIIB,RPGIIC,RPGIID,RPGIIE,RPGIIF,RPGIIG,RPGIIK
*PURAB,LIBA.REX/SEARCH/START:RPGIIA/GO
.NSSAVE RPGII
.IF (ERROR) .GOTO TRUBLE

CONT::;CONTINUE
;
;Delete all unnecessary files
;
.DELETE GENCOM.REL,CLEANT.REL,SRTTAB.REL,GETCPY.REL,LOOKUP.REL,PREDIT.REL,PUTAS1.REL,PUTAS2.REL,PUTAS3.REL,INTERM.REL,RPGASM.REL
.DELETE PUTGEN.REL,PUTBIN.REL,GETASY.REL,GETERA.REL,GETGEN.REL,GETSRC.REL,DIAGS.REL
.DELETE TRYNAM.REL,STINFL.REL,XPNPPL.REL,IMPURE.REL,RPGCOM.REL,PUTLST.REL
.DELETE PUREC.REL,PURED.REL,PUREE.REL,PURFG.REL,PUTERA.REL,XPAND.REL
.DELETE RPGASM.MAC
.RENAME RPGASM.MAC=RPGASM.BAK
.GOTO OK
TRUBLE:
OK::.;END OF RPGII.CTL