Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99o-bb - cbl12c.ctl
There are 11 other files named cbl12c.ctl in the archive. Click here to see a list.
;	16-JUN-88 HAH ADD BRANCH FOR NO UPDATE
;COPYRIGHT (c) 1986 BY
;	    Digital Equipment Corporation, Maynard, MA.
;
;   This software is furnished under a license and may be  used
;   and  copied  only  in  accordance  with  the  terms of such
;   license and with  the  inclusion  of  the  above  copyright
;   notice.   This software or any other copies thereof may not
;   be provided  or  otherwise	made  available  to  any  other
;   person.   No  title  to  and  ownership  of the software is
;   hereby transferred.
;
;   The information in	this  software	is  subject  to  change
;   without  notice and should not be construed as a commitment
;   by Digital Equipment Corporation.
;
;   Digital  assumes  no  responsibility   for	 the   use   or
;   reliability  of  its  software  on	equipment  which is not
;   supplied by Digital.
;

;
;   This .CTL file applies the  patches  to  the  libraries  of
;   COBOL-10-V12C and rebuilds all of the components.
;
!
!	INITIALIZE PRODUCT STATE WITH PEPB
!
.R PEPB
*INITIALIZE COBOL-10-V12C
*EXIT
!
.PATH ASL:/SEARCH
!
!
!	DELETE ANY SOURCE MODULES LEFT IN PAT:
!
.DELETE PAT:COPYRT.MAC
.DELETE PAT:COBASM.MAC,PAT:COBTST.MAC,PAT:ASCEBC.MAC,PAT:ASCSIX.MAC
.DELETE PAT:BISGEN.MAC,PAT:BTREE.MAC,PAT:CHREQV.MAC,PAT:CLEANC.MAC
.DELETE PAT:CLEAND.MAC,PAT:CLEANT.MAC,PAT:CLRNAM.MAC,PAT:CMNGEN.MAC
.DELETE PAT:COBCOM.MAC,PAT:COBVER.MAC,PAT:COBOLA.MAC,PAT:COBOLB.MAC
.DELETE PAT:COBOLC.MAC,PAT:COBOLD.MAC,PAT:COBOLE.MAC,PAT:COBOLF.MAC
.DELETE PAT:COBOLG.MAC,PAT:COBOLK.MAC,PAT:COBOLO.MAC,PAT:COMUNI.MAC
.DELETE PAT:CTREE.MAC,PAT:DIAGS.MAC,PAT:DTREE.MAC,PAT:EBCASC.MAC
.DELETE PAT:EXPGEN.MAC,PAT:FNDPOP.MAC,PAT:FTDEFS.MAC,PAT:GETASY.MAC
.DELETE PAT:GETCPY.MAC,PAT:GETGEN.MAC,PAT:GETITM.MAC,PAT:GETTAG.MAC
.DELETE PAT:HANDAN.MAC,PAT:IFGEN.MAC,PAT:IMPURE.MAC,PAT:INTERM.MAC
.DELETE PAT:IOGEN.MAC,PAT:IPCGEN.MAC,PAT:LBLPRM.MAC,PAT:MATGEN.MAC
.DELETE PAT:MESGEN.MAC,PAT:MOVGEN.MAC,PAT:MSCGEN.MAC,PAT:OPCTAB.MAC
.DELETE PAT:P.MAC,PAT:PMATCH.MAC,PAT:PSCAN.MAC,PAT:PURE.MAC,PAT:PURAB.MAC
.DELETE PAT:PUREC.MAC,PAT:PURED.MAC,PAT:PUREE.MAC,PAT:PUREO.MAC,PAT:PURFG.MAC
.DELETE PAT:PUTAS1.MAC,PAT:PUTAS2.MAC,PAT:PUTAS3.MAC,PAT:PUTBIN.MAC
.DELETE PAT:PUTCPY.MAC,PAT:PUTERA.MAC,PAT:PUTGEN.MAC,PAT:PUTLST.MAC
.DELETE PAT:RPWGEN.MAC,PAT:SQUIRL.MAC,PAT:SRTCRF.MAC,PAT:SRTGEN.MAC
.DELETE PAT:STINFL.MAC,PAT:STRGEN.MAC,PAT:TABLES.MAC,PAT:TRACER.MAC
.DELETE PAT:TRYNAM.MAC,PAT:XFRGEN.MAC,PAT:XPAND.MAC,PAT:XPNPPL.MAC
.DELETE PAT:ACCEPT.MAC,PAT:ALBSTB.MAC,PAT:ALF.MAC,PAT:ARGS.MAC
.DELETE PAT:CANCEL.MAC,PAT:CBLIO.MAC,PAT:CDD.MAC,PAT:CMP.MAC,PAT:COBFUN.MAC
.DELETE PAT:COBST.MAC,PAT:COMPD.MAC,PAT:COVRLY.MAC,PAT:DEBSTB.MAC
.DELETE PAT:DIV11.MAC,PAT:DPADD.MAC,PAT:DPDIV.MAC,PAT:DPMUL.MAC,PAT:DPSUB.MAC
.DELETE PAT:DSORT.MAC,PAT:DSPFP.MAC,PAT:EASTBL.MAC,PAT:EDITC.MAC,PAT:EDITB.MAC
.DELETE PAT:EXAM.MAC,PAT:EXPON.MAC,PAT:FIX.MAC,PAT:FLGDF.MAC,PAT:FLOAT.MAC
.DELETE PAT:GC.MAC,PAT:GD.MAC,PAT:INSPEC.MAC,PAT:KEY.MAC,PAT:KPROG.MAC
.DELETE PAT:LBLERR.MAC,PAT:LCM10.MAC,PAT:LCMIPC.MAC,PAT:LIBREL.MAC
.DELETE PAT:LIBSHR.MAC,PAT:LILOWS.MAC,PAT:LINE.MAC,PAT:LSU.MAC
.DELETE PAT:MAGNEG.MAC,PAT:METIO.MAC,PAT:METUNV.MAC,PAT:MOVE.MAC
.DELETE PAT:NSTRNG.MAC,PAT:NTBSTB.MAC,PAT:NUBSTB.MAC,PAT:NUM.MAC
.DELETE PAT:NUMEQV.MAC,PAT:OSTRNG.MAC,PAT:PC.MAC,PAT:PD.MAC,PAT:PERF.MAC
.DELETE PAT:PNZ.MAC,PAT:PUTRES.MAC,PAT:REMOVL.MAC,PAT:RESOLV.MAC
.DELETE PAT:RMSIO.MAC,PAT:SETRET.MAC,PAT:SIZ23.MAC,PAT:SIZE1.MAC
.DELETE PAT:SPAC.MAC,PAT:SUBSCR.MAC,PAT:TODAY.MAC,PAT:TRACED.MAC
.DELETE PAT:USRDSP.MAC,PAT:ZERC.MAC,PAT:COBDDT.MAC,PAT:ISAM.MAC
.DELETE PAT:LIBARY.MAC,PAT:CPYLIB.MAC,PAT:IOTMPU.MAC,PAT:IOTMP.MAC
.DELETE PAT:MMANGU.MAC,PAT:MMANGR.MAC,PAT:RERUN.MAC,PAT:CMLSYM.MAC
.DELETE PAT:GENDCL.MAC,PAT:DBSDCL.MAC,PAT:STRUNV.MAC,PAT:STRDCL.MAC
.DELETE PAT:DBDML.MAC,PAT:DBGETF.MAC,PAT:DMLVOK.MAC,PAT:DMLIO.MAC
!
!	UPDATE COBOL SOURCES
!
.ERROR %
.DIR PAT:CBL12C.SUP
.IF (ERROR) .GOTO NOUPD
.R ASL:UPDATE
*@PAT:CBL12C.SUP
NOUPD::
.ERROR
!
!	BUILD CBL74.EXE/68274.EXE
!
!
!
!ASSEMBLE SOURCES
!
!ASSEMBLE THE UNIVERSALS FIRST.
!
CMP::
!
.R ASL:MACRO
*COPYRT=ASL:COPYRT
*COBASM=ASL:COBASM
*INTERM=ASL:INTERM
*COBVER=ASL:COBVER
*COMUNI=ASL:COMUNI
*FTDEFS=ASL:FTDEFS
*LBLPRM=ASL:LBLPRM
*P=ASL:P
*CHREQV=ASL:CHREQV
*TABLES=ASL:TABLES
*OPCTAB=ASL:OPCTAB
*COBTST=ASL:COBTST
.R ASL:LINK
*COBTST/GO
.SAVE COBTST
.IF (ERROR) .GOTO TRUBLE
!
!
!NOW WE CAN ASSEMBLE THE REST OF THE MODULES.
.R ASL:MACRO
*ASCEBC=ASL:ASCEBC
*ASCSIX=ASL:ASCSIX
*BISGEN=ASL:BISGEN
*BTREE=ASL:BTREE
*CLEANC=ASL:CLEANC
*CLEAND=ASL:CLEAND
*CLEANT=ASL:CLEANT
*CLRNAM=ASL:CLRNAM
*CMNGEN=ASL:CMNGEN
*COBCOM=ASL:COBCOM
*COBOLA=ASL:COBOLA
*COBOLB=ASL:COBOLB
*COBOLC=ASL:COBOLC
*COBOLD=ASL:COBOLD
*COBOLE=ASL:COBOLE
*COBOLF=ASL:COBOLF
*COBOLG=ASL:COBOLG
*COBOLK=ASL:COBOLK
*COBOLO=ASL:COBOLO
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:MACRO
*CTREE=ASL:CTREE
*DIAGS=ASL:DIAGS
*DTREE=ASL:DTREE
*EBCASC=ASL:EBCASC
*EXPGEN=ASL:EXPGEN
*FNDPOP=ASL:FNDPOP
*GETASY=ASL:GETASY
*GETCPY=ASL:GETCPY
*GETGEN=ASL:GETGEN
*GETITM=ASL:GETITM
*GETTAG=ASL:GETTAG
*IFGEN=ASL:IFGEN
*IMPURE=ASL:IMPURE
*IOGEN=ASL:IOGEN
*IPCGEN=ASL:IPCGEN
*MATGEN=ASL:MATGEN
*MESGEN=ASL:MESGEN
*MOVGEN=ASL:MOVGEN
*MSCGEN=ASL:MSCGEN
*PMATCH=ASL:PMATCH
*PSCAN=ASL:PSCAN
.RUN COBTST
*ONESEG
.IF (ERROR) .GOTO MSEG
.R ASL:MACRO
*PURE=ASL:PURE
.GOTO NEXT
MSEG::
.R ASL:MACRO
*PURAB=ASL:PURAB,ASL:PURE
*PUREC=ASL:PUREC,ASL:PURE
*PURED=ASL:PURED,ASL:PURE
*PUREE=ASL:PUREE,ASL:PURE
*PUREO=ASL:PUREO,ASL:PURE
*PURFG=ASL:PURFG,ASL:PURE
NEXT::
!
.R ASL:MACRO
*PUTAS1=ASL:PUTAS1
*PUTAS2=ASL:PUTAS2
*PUTAS3=ASL:PUTAS3
*PUTBIN=ASL:PUTBIN
*PUTCPY=ASL:PUTCPY
*PUTERA=ASL:PUTERA
*PUTGEN=ASL:PUTGEN
*PUTLST=ASL:PUTLST
*RPWGEN=ASL:RPWGEN
*SQUIRL=ASL:SQUIRL
*SRTCRF=ASL:SRTCRF
*SRTGEN=ASL:SRTGEN
*STINFL=ASL:STINFL
*STRGEN=ASL:STRGEN
*TRYNAM=ASL:TRYNAM
*XFRGEN=ASL:XFRGEN
*XPAND=ASL:XPAND
*XPNPPL=ASL:XPNPPL
!
!NOW ASSEMBLE THE DEBUG MODULES
!
.RUN COBTST
*DEBUG
.IF (ERROR) .GOTO NODEB
.R ASL:MACRO
*HANDAN=ASL:HANDAN
*TRACER=ASL:TRACER
!
!
NODEB::
!ASSEMBLE THE DBMS MODULES.
!
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO DONCRF
!
!ASSEMBLE THE UNIVERSALS FIRST.
.R ASL:MACRO
*CMLSYM=ASL:CMLSYM
*GENDCL=ASL:GENDCL
*DBSDCL=ASL:DBSDCL
*STRUNV=ASL:STRUNV
*STRDCL=ASL:STRDCL
!
!NOW ASSEMBLE THE REST OF THE MODULES.
.R ASL:MACRO
*DBDML=ASL:DBDML
*DBGETF=ASL:DBGETF
*CMLVOK=ASL:DMLVOK
*CMLERR=ASL:DMLERR
*CMLIO=ASL:DMLIO
.IF (ERROR) .GOTO TRUBLE
.GOTO DONCRF
DONCRF:: !NOW START TO LOAD
!
PV20::	!COBOL-74
!SEE WHAT FLAVOUR OF COMPILER TO LOAD
!
.RUN COBTST
*ONESEG
.IF (ERROR) .GOTO PV24	!MULTI-SEG
.RUN COBTST
*DEBUG
.IF (ERROR) .GOTO PV21	!ONESEG, NOT DEBUG
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PV32	!ONESEG, DEBUG, NOT DBMS
.GOTO PV31		!ONESEG, DEBUG, DBMS
!
PV21::
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PV34	!ONESEG, NOT DEBUG, NOT DBMS
.GOTO PV33		!ONESEG, NOT DEBUG, DBMS
!
PV24::
.RUN COBTST
*DEBUG
.IF (ERROR) .GOTO PV25	!MULTI-SEG, NOT DEBUG
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PV36	!MULTI-SEG, DEBUG, NOT DBMS
.GOTO PV35		!MULTI-SEG, DEBUG, DBMS
!
PV25::
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PV38	!MULTI-SEG, NOT DEBUG, NOT DBMS
.GOTO PV37		!MULTI-SEG, NOT DEBUG, DBMS
!
!
PV31::			!ONESEG, DEBUG, DBMS
!
.R ASL:LINK
*CBL74/MAP=
@ASL:ALLDB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PV32::			!ONESEG, DEBUG, NOT DBMS
!
.R ASL:LINK
*CBL74/MAP=
*@ASL:ALLD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PV33::			!ONESEG, NOT DEBUG, DBMS
!
.R ASL:LINK
*CBL74/MAP=
*@ASL:ALLB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PV34::			!ONESEG, NOT DEBUG, NOT DBMS
!
.R ASL:LINK
*CBL74/MAP=
*@ALL
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PV35::			!MULTI-SEG, DEBUG, DBMS
!
.R ASL:LINK
*CBL74/MAP=
*@ASL:PABDB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74C/MAP=
*@ASL:PCDB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74C
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74D/MAP=
*@ASL:PDDB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74D
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74E/MAP=
*@ASL:PED
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74E
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74O/MAP=
*@ASL:POD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74O
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74F/MAP=
*@ASL:PFGD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74F
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74K/MAP=
*@ASL:PKD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PV36::			!MULTI-SEG, DEBUG, NOT DBMS
!
.R ASL:LINK
*CBL74/MAP=
*@ASL:PABD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74C/MAP=
*@ASL:PCB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74C
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74D/MAP=
*@ASL:PDD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74D
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74E/MAP=
*@ASL:PED
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74E
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74O/MAP=
*@ASL:POD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74O
.IF (ERROR) .GOTO TRUBLE
.R ASL:INK
*CBL74F/MAP=
*@ASL:PFGD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74F
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74K/MAP=
*@ASL:PKD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PV37::		!MULTI-SEGMENT, NOT DEBUG, DBMS
!
.R ASL:LINK
*CBL74/MAP=
*@ASL:PABB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74C/MAP=
*@ASL:PCB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74C
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74D/MAP=
*@ASL:PDB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74D
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74E/MAP=
*@ASL:PE
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74E
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74O/MAP=
*@ASL:PO
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74O
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74F/MAP=
*@ASL:PFG
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74F
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*CBL74K/MAP=
*@ASL:PK
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PV38::		!MULTI-SEG, NOT DEBUG, NOT DBMS
!
.R ASL:LINK
*CBL74/MAP=
*@ASL:PAB
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74C/MAP=
*@ASL:PC
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74C
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74D/MAP=
*@ASL:PD
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74D
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74E/MAP=
*@ASL:PE
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74E
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74O/MAP=
*@ASL:PO
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74O
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74F/MAP=
*@ASL:PFG
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74F
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*CBL74K/MAP=
*@ASL:PK
.IF (ERROR) .GOTO TRUBLE
.SSAVE CBL74K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
LODON::!LOADING DONE OF CBL74
!
!CLEAN UP AFTER BUILD
!
!
.DELETE PURE.REL,PURAB.REL,PUREC.REL,PURED.REL,PUREE.REL,PUREO.REL,PURFG.REL
.DELETE ASCEBC.REL,ASCSIX.REL,IMPURE.REL,SQUIRL.REL,BTREE.REL
.DELETE XPNPPL.REL,XPAND.REL,GETITM.REL,STINFL.REL,CLRNAM.REL
.DELETE TRYNAM.REL,PUTGEN.REL,PUTCPY.REL,PUTERA.REL,COBCOM.REL
.DELETE PUTLST.REL,COBOLB.REL,COBOLA.REL,CLEANC.REL,CTREE.REL
.DELETE FNDPOP.REL,GETTAG.REL,PSCAN.REL,PUTAS1.REL,PUTAS2.REL
.DELETE COBOLC.REL,CLEAND.REL,CLEANT.REL,DTREE.REL,COBOLD.REL
.DELETE BISGEN.REL,CMNGEN.REL,EXPGEN.REL,GETGEN.REL,IFGEN.REL
.DELETE IOGEN.REL,IPCGEN.REL,MATGEN.REL,MESGEN.REL,MOVGEN.REL
.DELETE MSCGEN.REL,PUTAS3.REL,RPWGEN.REL,SRTGEN.REL,STRGEN.REL
.DELETE XFRGEN.REL,COBOLE.REL,DIAGS.REL,GETASY.REL
.DELETE GETCPY.REL,PUTBIN.REL,SRTCRF.REL
.DELETE COBOLG.REL,COBOLF.REL,EBCASC.REL,COBOLK.REL
.DELETE COBOLO.REL,PMATCH.REL,HANDAN.REL,TRACER.REL,COBTST.REL
.DELETE GENDCL.REL,DBSDCL.REL,STRUNV.REL,STRDCL.REL
.DELETE CMLERR.REL,CMLIO.REL,CMLSYM.REL,CMLVOK.REL,DBDML.REL,DBGETF.REL
.IF (ERROR) .!NOT DBMS MOST LIKELY
!
DONE::
!
!
!
OK::!END OF COBOL.CTL OF 74 BUILD

!	BUILD 68274.EXE - CONVERTER
!
!
!HOW ABOUT THE CONVERTER?
!
B68274::
!
.TYPE ASL:TRNASM.MAC
.IF (ERROR) .GOTO LIBOL
.COPY COBASM.MAC=ASL:TRNASM.MAC
!
!
!ASSEMBLE SOURCES
!
!ASSEMBLE THE UNIVERSALS FIRST.
!
CMPCVT::
!
.R ASL:MACRO
*COPYRT=ASL:COPYRT
*COBASM=ASL:COBASM
*INTERM=ASL:INTERM
*COBVER=ASL:COBVER
*COMUNI=ASL:COMUNI
*FTDEFS=ASL:FTDEFS
*LBLPRM=ASL:LBLPRM
*P=ASL:P
*CHREQV=ASL:CHREQV
*TABLES=ASL:TABLES
*OPCTAB=ASL:OPCTAB
*COBTST=ASL:COBTST
.R ASL:LINK
*COBTST/GO
.SAVE COBTST
.IF (ERROR) .GOTO TRUBLE
!
!
!NOW WE CAN ASSEMBLE THE REST OF THE MODULES.
.R ASL:MACRO
*ASCEBC=ASL:ASCEBC
*ASCSIX=ASL:ASCSIX
*BISGEN=ASL:BISGEN
*BTREE=ASL:BTREE
*CLEANC=ASL:CLEANC
*CLEAND=ASL:CLEAND
*CLEANT=ASL:CLEANT
*CLRNAM=ASL:CLRNAM
*CMNGEN=ASL:CMNGEN
*COBCOM=ASL:COBCOM
*COBOLA=ASL:COBOLA
*COBOLB=ASL:COBOLB
*COBOLC=ASL:COBOLC
*COBOLD=ASL:COBOLD
*COBOLE=ASL:COBOLE
*COBOLF=ASL:COBOLF
*COBOLG=ASL:COBOLG
*COBOLK=ASL:COBOLK
*COBOLO=ASL:COBOLO
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:MACRO
*CTREE=ASL:CTREE
*DIAGS=ASL:DIAGS
*DTREE=ASL:DTREE
*EBCASC=ASL:EBCASC
*EXPGEN=ASL:EXPGEN
*FNDPOP=ASL:FNDPOP
*GETASY=ASL:GETASY
*GETCPY=ASL:GETCPY
*GETGEN=ASL:GETGEN
*GETITM=ASL:GETITM
*GETTAG=ASL:GETTAG
*IFGEN=ASL:IFGEN
*IMPURE=ASL:IMPURE
*IOGEN=ASL:IOGEN
*IPCGEN=ASL:IPCGEN
*MATGEN=ASL:MATGEN
*MESGEN=ASL:MESGEN
*MOVGEN=ASL:MOVGEN
*MSCGEN=ASL:MSCGEN
*PMATCH=ASL:PMATCH
*PSCAN=ASL:PSCAN
.RUN COBTST
*ONESEG
.IF (ERROR) .GOTO MSEG
.R ASL:MACRO
*PURE=ASL:PURE
.GOTO NEXT
MSEG::
.R ASL:MACRO
*PURAB=ASL:PURAB,ASL:PURE
*PUREC=ASL:PUREC,ASL:PURE
*PURED=ASL:PURED,ASL:PURE
*PUREE=ASL:PUREE,ASL:PURE
*PUREO=ASL:PUREO,ASL:PURE
*PURFG=ASL:PURFG,ASL:PURE
NEXT::.IF (ERROR) .GOTO TRUBLE
!
.R ASL:MACRO
*PUTAS1=ASL:PUTAS1
*PUTAS2=ASL:PUTAS2
*PUTAS3=ASL:PUTAS3
*PUTBIN=ASL:PUTBIN
*PUTCPY=ASL:PUTCPY
*PUTERA=ASL:PUTERA
*PUTGEN=ASL:PUTGEN
*PUTLST=ASL:PUTLST
*RPWGEN=ASL:RPWGEN
*SQUIRL=ASL:SQUIRL
*SRTCRF=ASL:SRTCRF
*SRTGEN=ASL:SRTGEN
*STINFL=ASL:STINFL
*STRGEN=ASL:STRGEN
*TRYNAM=ASL:TRYNAM
*XFRGEN=ASL:XFRGEN
*XPAND=ASL:XPAND
*XPNPPL=ASL:XPNPPL
!
!NOW ASSEMBLE THE DEBUG MODULES
!
.RUN COBTST
*DEBUG
.IF (ERROR) .GOTO NODEB
.R ASL:MACRO
*HANDAN=ASL:HANDAN
*TRACER=ASL:TRACER
.IF (ERROR) .GOTO TRUBLE
!
NODEB::
!ASSEMBLE THE DBMS MODULES.
!
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO DONCRF
!
!ASSEMBLE THE UNIVERSALS FIRST.
.R ASL:MACRO
*CMLSYM=ASL:CMLSYM
*GENDCL=ASL:GENDCL
*DBSDCL=ASL:DBSDCL
*STRUNV=ASL:STRUNV
*STRDCL=ASL:STRDCL
!
!NOW ASSEMBLE THE REST OF THE MODULES.
.R ASL:MACRO
*DBDML=ASL:DBDML
*DBGETF=ASL:DBGETF
*CMLVOK=ASL:DMLVOK
*CMLERR=ASL:DMLERR
*CMLIO=ASL:DMLIO
.IF (ERROR) .GOTO TRUBLE
.GOTO DONCRF
DONCRF:: !NOW START TO LOAD OF 68274 
!
!
!
PT20::
!SEE WHAT FLAVOUR OF COMPILER TO LOAD
!
.RUN COBTST
*ONESEG
.IF (ERROR) .GOTO PT24	!MULTI-SEG
.RUN COBTST
*DEBUG
.IF (ERROR) .GOTO PT21	!ONESEG, NOT DEBUG
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PT32	!ONESEG, DEBUG, NOT DBMS
.GOTO PT31		!ONESEG, DEBUG, DBMS
!
PT21::
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PT34	!ONESEG, NOT DEBUG, NOT DBMS
.GOTO PT33		!ONESEG, NOT DEBUG, DBMS
!
PT24::
.RUN COBTST
*DEBUG
.IF (ERROR) .GOTO PT25	!MULTI-SEG, NOT DEBUG
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PT36	!MULTI-SEG, DEBUG, NOT DBMS
.GOTO PT35		!MULTI-SEG, DEBUG, DBMS
!
PT25::
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO PT38	!MULTI-SEG, NOT DEBUG, NOT DBMS
.GOTO PT37		!MULTI-SEG, NOT DEBUG, DBMS
!
!
PT31::			!ONESEG, DEBUG, DBMS
!
.R ASL:LINK
*68274/MAP=
*/SYMSEG:HIGH /NOLOCAL /TEST /HASHSIZE:7352 -
IMPURE/LOCALS,PURE,ASL:HELPER, -
COBOLA/LOCALS ,/NOSTART DBGETF,DBDML, -
CMLVOK,CMLIO,CMLERR,ASL:SCHIO1,ASL:STRHI/SEARCH,-
SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,COBCOM,PUTLST,COBOLB, -
ASCEBC,CLEANC/LOC,CTREE,FNDPOP,GETTAG,PSCAN,PUTAS1,PUTAS2,-
COBOLC/LOC,CLEANT,DTREE,COBOLD/LOC,CLEAND/LOCAL, -
ASCSIX,EBCASC,COBOLE,CMNGEN/LOCAL,IFGEN/LOCALS,IOGEN/LOCALS,IPCGEN/LOCALS,MATGEN/LOC,-
MOVGEN/LOCAL,BISGEN,MSCGEN/LOCALS,PUTAS3,RPWGEN/LOC,-
PMATCH,SRTGEN,STRGEN,XFRGEN/LOC,-
COBOLO,COBOLF,COBOLG/LOC,-
EXPGEN,GETGEN,MESGEN,DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,-
HANDAN,TRACER,COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PT32::			!ONESEG, DEBUG, NOT DBMS
!
.R ASL:LINK
*68274/MAP=
*/SYMSEG:HIGH /NOLOCAL /TEST /HASHSIZE:7352 -
IMPURE/LOCALS,PURE,ASL:HELPER, -
COBOLA/LOCALS ,/NOSTART DBGETF,DBDML, -
CMLVOK,CMLIO,CMLERR,ASL:SCHIO1,ASL:STRHI/SEARCH,-
SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,COBCOM,PUTLST,COBOLB, -
ASCEBC,CLEANC/LOC,CTREE,FNDPOP,GETTAG,PSCAN,PUTAS1,PUTAS2,-
COBOLC/LOC,CLEANT,DTREE,COBOLD/LOC,CLEAND/LOCAL, -
ASCSIX,EBCASC,COBOLE,CMNGEN/LOCAL,IFGEN/LOCALS,IOGEN/LOCALS,IPCGEN/LOCALS,MATGEN/LOC,-
MOVGEN/LOCAL,BISGEN,MSCGEN/LOCALS,PUTAS3,RPWGEN/LOC,-
PMATCH,SRTGEN,STRGEN,XFRGEN/LOC,-
COBOLO,COBOLF,COBOLG/LOC,-
EXPGEN,GETGEN,MESGEN,DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,-
HANDAN,TRACER,COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PT33::			!ONESEG, NOT DEBUG, DBMS
!
.R ASL:LINK
*68274/MAP=
*/SYMSEG:LOW /HASHSIZE:7352 -
/NOLOCALS IMPURE,PURE,ASL:HELPER, -
DBGETF,DBDML, -
CMLVOK,CMLIO,CMLERR,ASL:SCHIO1,ASL:STRHI/SEARCH,-
SQUIRL,BTREE,XPNPPL,XPAND,GETITM/LOCAL,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,COBCOM,PUTLST,COBOLB/LOCAL,COBOLA ,/NOSTART -
ASCEBC,CLEANC,CTREE/LOCAL,FNDPOP,GETTAG,PSCAN,PUTAS1,PUTAS2,-
COBOLC/LOCAL,CLEANT,DTREE/LOCAL,COBOLD/LOCAL,CLEAND/LOCAL, -
ASCSIX,EBCASC,/LOCAL COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN,IOGEN,IPCGEN,MATGEN,-
MESGEN,MOVGEN,BISGEN,MSCGEN,PUTAS3,RPWGEN,-
SRTGEN,STRGEN,XFRGEN,-
COBOLO,PMATCH,COBOLF,COBOLG,-
/NOLOCAL DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,-
/NOLOCALS COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PT34::			!ONESEG, NOT DEBUG, NOT DBMS
!
.R ASL:LINK
*68274/MAP=
*/SYMSEG:HIGH /HASHSIZE:7352 -
IMPURE,PURE,ASL:HELPER, -
SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,COBCOM,PUTLST,COBOLB,COBOLA ,/NOSTART -
ASCEBC,CLEANC,CTREE,FNDPOP,GETTAG,PSCAN,PUTAS1,PUTAS2,-
COBOLC,CLEANT,DTREE,COBOLD,CLEAND, -
ASCSIX,EBCASC,COBOLE,CMNGEN,EXPGEN,GETGEN,IFGEN,IOGEN,IPCGEN,MATGEN,-
MESGEN,MOVGEN,BISGEN,MSCGEN,PUTAS3,RPWGEN,-
SRTGEN,STRGEN,XFRGEN,-
COBOLO,PMATCH,COBOLF,COBOLG,-
DIAGS,GETASY,GETCPY,PUTBIN,SRTCRF,-
COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PT35::			!MULTI-SEG, DEBUG, DBMS
!
.R ASL:LINK
*68274/MAP=
*/TEST /SYMSEG:HIGH  /HASHSIZE:2041 -
COBCOM,HANDAN,IMPURE,PURAB,ASL:HELPER, -
/SEGMENT:HIGH TRACER,-
SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,PUTLST,COBOLB,COBOLA,ASCEBC,EBCASC -
/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*COBOLC/MAP=
*/HASHSIZE:2523 /SYMSEG:HIGH /TEST -
COBCOM,HANDAN,IMPURE,/SEGMENT:HIGH PUREC,-
DBGETF,DBDML,-
CMLVOK,CMLIO,CMLERR,ASL:SCHIO1,ASL:STRHI/SEARCH,-
TRACER,-
ASCEBC,-
CLEANC,CLRNAM,CTREE,FNDPOP,GETITM,GETTAG,PSCAN,PUTAS1,-
PUTAS2,PUTCPY,PUTERA,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLC/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274C
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274D/MAP=
*/HASHSIZE:3811 /SYMSEG:HIGH /TEST -
COBCOM,HANDAN,IMPURE,/SEGMENT:HIGH PURED,TRACER,-
DBGETF,ASL:STRHI/SEARCH,-
CLEAND,CLEANT,DTREE,GETITM,GETTAG,PUTAS1,PUTAS2,PUTCPY,PUTERA,-
PUTGEN,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLD/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274D
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274E/MAP=
*/HASHSIZE:1823 /SYMSEG:HIGH /TEST -
COBCOM,HANDAN,IMPURE,PUREE,-
ASCEBC,ASCSIX,EBCASC,BISGEN,-
CMNGEN,EXPGEN,FNDPOP,GETGEN,GETTAG,IFGEN,IOGEN,IPCGEN,MATGEN,-
MESGEN,MOVGEN,MSCGEN,PUTAS1,PUTAS2,PUTAS3,PUTERA,PUTLST,RPWGEN,-
SRTGEN,STRGEN,XFRGEN,XPAND,XPNPPL,-
COBOLE/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274E
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274F/MAP=
*/HASHSIZE:1111 /SYMSEG:HIGH /TEST -
COBCOM,XPAND,HANDAN,IMPURE,PURFG,-
CLEANT,DIAGS,EBCASC,GETASY,GETCPY,PUTBIN,PUTLST,SRTCRF,XPNPPL,-
COBOLG,COBOLF/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274F
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274K/MAP=
*/HASHSIZE:1186 /SYMSEG:HIGH /TEST -
COBCOM,XPAND,HANDAN,IMPURE,PUREC,DIAGS,PUTLST,COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PT36::			!MULTI-SEG, DEBUG, NOT DBMS
!
.R ASL:LINK
*68274/MAP=
*/TEST /SYMSEG:HIGH  /HASHSIZE:2041 -
COBCOM,HANDAN,IMPURE,PURAB,ASL:HELPER, -
/SEGMENT:HIGH TRACER,-
SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,PUTLST,COBOLB,COBOLA,ASCEBC,EBCASC -
/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274C/MAP=
*/HASHSIZE:2523 /SYMSEG:HIGH /TEST -
COBCOM,HANDAN,IMPURE,/SEGMENT:HIGH PUREC,-
TRACER,-
ASCEBC,-
CLEANC,CLRNAM,CTREE,FNDPOP,GETITM,GETTAG,PSCAN,PUTAS1,-
PUTAS2,PUTCPY,PUTERA,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLC/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274C
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274D/MAP=
*/HASHSIZE:3811 /SYMSEG:HIGH /TEST -
COBCOM,HANDAN,IMPURE,/SEGMENT:HIGH PURED,TRACER,-
CLEAND,CLEANT,DTREE,GETITM,GETTAG,PUTAS1,PUTAS2,PUTCPY,PUTERA,-
PUTGEN,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLD/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274D
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274E/MAP=
*/HASHSIZE:1823 /SYMSEG:HIGH /TEST -
COBCOM,HANDAN,IMPURE,PUREE,-
ASCEBC,ASCSIX,EBCASC,BISGEN,-
CMNGEN,EXPGEN,FNDPOP,GETGEN,GETTAG,IFGEN,IOGEN,IPCGEN,MATGEN,-
MESGEN,MOVGEN,MSCGEN,PUTAS1,PUTAS2,PUTAS3,PUTERA,PUTLST,RPWGEN,-
SRTGEN,STRGEN,XFRGEN,XPAND,XPNPPL,-
COBOLE/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274E
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274F/MAP=
*/HASHSIZE:1111 /SYMSEG:HIGH /TEST -
COBCOM,XPAND,HANDAN,IMPURE,PURFG,-
CLEANT,DIAGS,EBCASC,GETASY,GETCPY,PUTBIN,PUTLST,SRTCRF,XPNPPL,-
COBOLG,COBOLF/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274F
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274K/MAP=
*/HASHSIZE:1186 /SYMSEG:HIGH /TEST -
COBCOM,XPAND,HANDAN,IMPURE,PUREC,DIAGS,PUTLST,COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PT37::		!MULTI-SEGMENT, NOT DEBUG, DBMS
!
.R ASL:LINK
*68274/MAP=
*/HASHSIZE:2041 -
COBCOM,IMPURE,PURAB,ASL:HELPER,-
SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,PUTLST,COBOLB,COBOLA,ASCEBC,EBCASC -
/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274C/MAP=
/HASHSIZE:2523 -
COBCOM,IMPURE,/SEGMENT:HIGH PUREC,-
DBGETF,DBDML,-
CMLVOK,CMLIO,CMLERR,ASL:SCHIO1,ASL:STRHI/SEARCH,-
ASCEBC,-
CLEANC,CLRNAM,CTREE,FNDPOP,GETITM,GETTAG,PSCAN,PUTAS1,-
PUTAS2,PUTCPY,PUTERA,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLC/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274C
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274D/MAP=
*/HASHSIZE:3811 -
IMPURE,COBCOM,/SEGMENT:HIGH PURED,-
DBGETF,ASL:STRHI/SEARCH,-
CLEAND,CLEANT,DTREE,GETITM,GETTAG,PUTAS1,PUTAS2,PUTCPY,PUTERA,-
PUTGEN,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLD/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274D
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274E/MAP=
*/HASHSIZE:1823 -
IMPURE,COBCOM,PUREE,-
ASCEBC,ASCSIX,EBCASC,BISGEN,-
CMNGEN,EXPGEN,FNDPOP,GETGEN,GETTAG,IFGEN,IOGEN,IPCGEN,MATGEN,-
MESGEN,MOVGEN,MSCGEN,PUTAS1,PUTAS2,PUTAS3,PUTERA,PUTLST,RPWGEN,-
SRTGEN,STRGEN,XFRGEN,XPAND,XPNPPL,-
COBOLE/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274E
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274F/MAP=
*/HASHSIZE:1111 -
IMPURE,COBCOM,XPAND,PURFG,-
CLEANT,DIAGS,EBCASC,GETASY,GETCPY,PUTBIN,PUTLST,SRTCRF,XPNPPL,-
COBOLG,COBOLF/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274F
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:LINK
*68274K/MAP=
*/HASHSIZE:1186 -
IMPURE,COBCOM,XPAND,PUREC,DIAGS,PUTLST,COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
!
!
PT38::		!MULTI-SEG, NOT DEBUG, NOT DBMS
!
.R ASL:LINK
*68274/MAP=
*/HASHSIZE:2041 COBCOM,IMPURE,PURAB,ASL:HELPER, -
SQUIRL,BTREE,XPNPPL,XPAND,GETITM,STINFL,CLRNAM,TRYNAM,PUTGEN,PUTCPY, -
PUTERA,PUTLST,COBOLB,COBOLA,ASCEBC,EBCASC -
/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274C/MAP=
*/HASHSIZE:2523 -
COBCOM,IMPURE,/SEGMENT:HIGH PUREC,-
ASCEBC,-
CLEANC,CLRNAM,CTREE,FNDPOP,GETITM,GETTAG,PSCAN,PUTAS1,-
PUTAS2,PUTCPY,PUTERA,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLC/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274C
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274D/MAP=
*/HASHSIZE:3811 -
IMPURE,COBCOM,/SEGMENT:HIGH PURED,-
CLEAND,CLEANT,DTREE,GETITM,GETTAG,PUTAS1,PUTAS2,PUTCPY,PUTERA,-
PUTGEN,PUTLST,SQUIRL,STINFL,TRYNAM,XPAND,XPNPPL,-
COBOLD/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274D
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274E/MAP=
*/HASHSIZE:1823 -
IMPURE,COBCOM,PUREE,-
ASCEBC,ASCSIX,EBCASC,BISGEN,-
CMNGEN,EXPGEN,FNDPOP,GETGEN,GETTAG,IFGEN,IOGEN,IPCGEN,MATGEN,-
MESGEN,MOVGEN,MSCGEN,PUTAS1,PUTAS2,PUTAS3,PUTERA,PUTLST,RPWGEN,-
SRTGEN,STRGEN,XFRGEN,XPAND,XPNPPL,-
COBOLE/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274E
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274F/MAP=
*/HASHSIZE:1111 -
IMPURE,COBCOM,XPAND,PURFG,-
CLEANT,DIAGS,EBCASC,GETASY,GETCPY,PUTBIN,PUTLST,SRTCRF,XPNPPL,-
COBOLG,COBOLF/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274F
.IF (ERROR) .GOTO TRUBLE
.R ASL:LINK
*68274K/MAP=
*/HASHSIZE:1186 -
IMPURE,COBCOM,XPAND,PUREC,DIAGS,PUTLST,COBOLK/G
.IF (ERROR) .GOTO TRUBLE
.SSAVE 68274K
.IF (ERROR) .GOTO TRUBLE
.GOTO LODON
LODON::!LOADING DONE
!
!
!
!
CLNUP::
!	CLEAN UP AFTER BUILD
!
.DELETE CHREQV.REL,COPYRT.REL,COBASM.REL,COMUNI.REL,FTDEFS.REL,INTERM.REL
.DELETE LBLPRM.REL,P.REL,TABLES.REL,OPCTAB.REL
.DELETE PURE.REL,PURAB.REL,PUREC.REL,PURED.REL,PUREE.REL,PUREO.REL,PURFG.REL
.DELETE ASCEBC.REL,ASCSIX.REL,IMPURE.REL,SQUIRL.REL,BTREE.REL
.DELETE XPNPPL.REL,XPAND.REL,GETITM.REL,STINFL.REL,CLRNAM.REL
.DELETE TRYNAM.REL,PUTGEN.REL,PUTCPY.REL,PUTERA.REL,COBCOM.REL
.DELETE PUTLST.REL,COBOLB.REL,COBOLA.REL,CLEANC.REL,CTREE.REL
.DELETE FNDPOP.REL,GETTAG.REL,PSCAN.REL,PUTAS1.REL,PUTAS2.REL
.DELETE COBOLC.REL,CLEAND.REL,CLEANT.REL,DTREE.REL,COBOLD.REL
.DELETE BISGEN.REL,CMNGEN.REL,EXPGEN.REL,GETGEN.REL,IFGEN.REL
.DELETE IOGEN.REL,IPCGEN.REL,MATGEN.REL,MESGEN.REL,MOVGEN.REL
.DELETE MSCGEN.REL,PUTAS3.REL,RPWGEN.REL,SRTGEN.REL,STRGEN.REL
.DELETE XFRGEN.REL,COBOLE.REL,DIAGS.REL,GETASY.REL
.DELETE GETCPY.REL,PUTBIN.REL,SRTCRF.REL
.DELETE COBOLG.REL,COBOLF.REL,EBCASC.REL,COBOLK.REL
.DELETE COBOLO.REL,PMATCH.REL,HANDAN.REL,TRACER.REL,COBTST.REL
.DELETE GENDCL.REL,DBSDCL.REL,STRUNV.REL,STRDCL.REL
.DELETE CMLERR.REL,CMLIO.REL,CMLSYM.REL,CMLVOK.REL,DBDML.REL,DBGETF.REL
.IF (ERROR) .!NOT DBMS MOST LIKELY
!
DONE::
!
!
OK::!END OF COBOL.CTL

LIBOL::
!
!	
!	BUILD C74LIB.REL, C74O12.EXE
!
!
!
!
!
!
!ASSEMBLE THE SOURCES
!
CMP::
!	COPY THE RIGHT COBASM... DON'T WANT -68
.COPY COBASM.MAC = C74ASM.MAC
.IF (ERROR)
!
.R ASL:MACRO
*COPYRT=ASL:COPYRT
*COBASM=ASL:COBASM
*INTERM=ASL:INTERM
*COBVER=ASL:COBVER
*COMUNI=ASL:COMUNI
*FTDEFS=ASL:FTDEFS
*LBLPRM=ASL:LBLPRM
*CHREQV=ASL:CHREQV
*NUMEQV=ASL:NUMEQV
*FLGDF=ASL:FLGDF
*METUNV=ASL:METUNV
!GET MACRO AGAIN OR TOO MANY UNIVERSALS MESSAGE
.R ASL:MACRO
*COBTST=ASL:COBTST
!
! LOAD THE FEATURE TEST SWITCH TESTER
!
.R ASL:LINK
*COBTST/GO
.SAVE COBTST
.IF (ERROR) .GOTO TRUBLE
!
.R ASL:MACRO
*ACCEPT=ASL:ACCEPT
*ALBSTB=ASL:ALBSTB
*ALF=ASL:ALF
*ARGS=ASL:ARGS
*CANCEL=ASL:CANCEL
*CBLIO=ASL:CBLIO
*CDD=ASL:CDD
*CMP=ASL:CMP
*COBFUN=ASL:COBFUN
*COBST=ASL:COBST
*COMPD=ASL:COMPD
*COVRLY=ASL:COVRLY
*DSORT=ASL:DSORT
*DEBSTB=ASL:DEBSTB
*DIV11=ASL:DIV11
*DPADD=ASL:DPADD
*DPDIV=ASL:DPDIV
*DPMUL=ASL:DPMUL
*DPSUB=ASL:DPSUB
*DSPFP=ASL:DSPFP
*EASTBL=ASL:EASTBL
*EDITC=ASL:EDITC
*EDITB=ASL:EDITB
*EXAM=ASL:EXAM
*EXPON=ASL:EXPON
*FIX=ASL:FIX
*FLOAT=ASL:FLOAT
*GC=ASL:GC
*GD=ASL:GD
*INSPEC=ASL:INSPEC
*KEY=ASL:KEY
*KPROG=ASL:KPROG
.R ASL:MACRO !TOO MANY UNIVERSALS OTHERWISE
*LBLERR=ASL:LBLERR
*LCM10=ASL:LCM10
*LCMIPC=ASL:LCMIPC
*LIBREL=ASL:LIBREL
!
L74CNT::
.COPY =ASL:RMSINT.UNV
.R ASL:MACRO
*C74SHR=ASL:LIBSHR
*LILOWS=ASL:LILOWS
*LINE=ASL:LINE
*LSU=ASL:LSU
*MAGNEG=ASL:MAGNEG
*METIO=ASL:METIO
*MOVE=ASL:MOVE
*NUM=ASL:NUM
*NTBSTB=ASL:NTBSTB
*NUBSTB=ASL:NUBSTB
*PC=ASL:PC
*PD=ASL:PD
*PERF=ASL:PERF
*PNZ=ASL:PNZ
*PUTRES=ASL:PUTRES
*REMOVL=ASL:REMOVL
*RESOLV=ASL:RESOLV
*RMSIO=ASL:RMSIO
*SETRET=ASL:SETRET
*SIZ23=ASL:SIZ23
*SIZE1=ASL:SIZE1
*SPAC=ASL:SPAC
*OSTRNG=ASL:OSTRNG
*NSTRNG=ASL:NSTRNG
*SUBSCR=ASL:SUBSCR
*TODAY=ASL:TODAY
*TRACED=ASL:TRACED
*USRDSH=TTY:,ASL:USRDSP
*SHR==1
=

=

*USRDSL=ASL:USRDSP
*ZERC=ASL:ZERC
.IF (ERROR) .GOTO TRUBLE
!
L74::	!COBOL-74 BUILD
!CREATE C74LIB.REL & C74OTS
!
.R ASL:PIP
*C74LIB.REL/B=COBST.REL,LILOWS.REL,CBLIO.REL,RMSIO.REL,LBLERR.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,OSTRNG.REL,NSTRNG.REL,LSU.REL
*C74LIB.REL/B=C74LIB.REL,ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL
*C74LIB.REL/B=C74LIB.REL,FIX.REL,CDD.REL,MOVE.REL,EXPON.REL,COMPD.REL
*C74LIB.REL/B=C74LIB.REL,CMP.REL,SPAC.REL,ZERC.REL,ALF.REL,PNZ.REL,NUM.REL,DSPFP.REL,DIV11.REL
*C74LIB.REL/B=C74LIB.REL,DPDIV.REL,DPADD.REL,DPSUB.REL,DPMUL.REL,MAGNEG.REL,SUBSCR.REL,TODAY.REL
*C74LIB.REL/B=C74LIB.REL,SIZE1.REL,SIZ23.REL,INSPEC.REL,EDITC.REL,PERF.REL,COVRLY.REL,METIO.REL
*C74LIB.REL/B=C74LIB.REL,KEY.REL,KPROG.REL,DSORT.REL,SETRET.REL,COBFUN.REL,EASTBL.REL,ALBSTB.REL,DEBSTB.REL
*C74LIB.REL/B=C74LIB.REL,EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM10.REL,LCMIPC.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL
.IF (ERROR) .GOTO TRUBLE
!
!SEE IF WE NEED TO INCLUDE REAL SORT
.PROT<777>CBLSRT.FLG
.IF (ERROR) .GOTO NOSORT
!
.R ASL:MACRO
*SRTCBL.REL=ASL:SRTPRM,ASL:SRTCBL,ASL:SRTCER,ASL:SRTUUO,ASL:SORT
.R ASL:MAKLIB
*C74LIB.REL=C74LIB.REL/MAST:SORT,ASL:SRTCBL.REL/REP:SORT
.IF (ERROR) .GOTO TRUBLE
!
NOSORT::
!
!DO WE NEED DBMS?
!
.RUN COBTST
*DBMS
.IF (ERROR) .GOTO NODBMS
!
.PROT<777>CBLDBM.FLG
.IF (ERROR) .GOTO NODBMS
!
.R ASL:MAKLIB
*C74LIB=C74LIB/DELETE:RSVGAT
*C74LIB=C74LIB/DELETE:RESOLV
*COBFUN.TMP=C74LIB/EXTR:COBFUN
*C74LIB=C74LIB,ASL:DBSCOB/APPEND,ASL:DBS10/APPEND,COBFUN.TMP/APPEND,ASL:DBSANY/APPEND,ASL:SCHIO1/APPEND
.DEL COBFUN.TMP
!
NODBMS::
!
!INDEX C74LIB.REL
!
.R ASL:MAKLIB
*C74LIB.REL=C74LIB.REL/INDEX
.IF (ERROR) .GOTO TRUBLE
!
!
!CREATE C74O12.EXE
!
.R ASL:LINK
*C74OTS.MAP/MAP=C74SHR,C74LIB/SEARCH/GO
.IF (ERROR) .GOTO TRUBLE
.SSAVE C74O12
.IF (ERROR) .GOTO TRUBLE
!
!
.GOTO DONE
DONE::	!ALL DONE
DEL74::
!
!
!DELETE LIBOL REL FILES NO LONGER NEEDED
!
.R ASL:PIP
*DSK:/D=COPYRT.REL,COBASM.REL,COMUNI.REL,INTERM.REL,LBLPRM.REL,CHREQV.REL,NUMEQV.REL,FTDEFS.REL,FLGDF.REL,METUNV.REL
*DSK:/D=LILOWS.REL,COBST.REL,CBLIO.REL,LIBREL.REL,REMOVL.REL,TRACED.REL,LINE.REL,OSTRNG.REL,NSTRNG.REL,LSU.REL
*DSK:/D=ACCEPT.REL,ARGS.REL,PUTRES.REL,CANCEL.REL,GD.REL,GC.REL,PD.REL,PC.REL,FLOAT.REL
*DSK:/D=FIX.REL,CDD.REL,MOVE.REL,EXPON.REL,COMPD.REL
*DSK:/D=CMP.REL,SPAC.REL,ZERC.REL,ALF.REL,PNZ.REL,NUM.REL,DSPFP.REL,DIV11.REL
*DSK:/D=DPDIV.REL,DPADD.REL,DPSUB.REL,DPMUL.REL,MAGNEG.REL,SUBSCR.REL,TODAY.REL
*DSK:/D=SIZE1.REL,SIZ23.REL,EXAM.REL,INSPEC.REL,EDITC.REL,PERF.REL,COVRLY.REL,METIO.REL
*DSK:/D=KEY.REL,KPROG.REL,LBLERR.REL,DSORT.REL,SETRET.REL,COBFUN.REL,EASTBL.REL,ALBSTB.REL,DEBSTB.REL
*DSK:/D=EDITB.REL,NUBSTB.REL,NTBSTB.REL,LCM10.REL,LCMIPC.REL,USRDSL.REL,USRDSH.REL,RESOLV.REL
*DSK:/D=RMSIO.REL
.IF (ERROR)	. !TOO BAD
!
!
!
!
OK::!END OF LIBOL.CTL
!
!
!	BUILD ISAM.EXE
!
!
!
!ASSEMBLE THE SOURCES:
!
CMP::
!
.R ASL:MACRO
*ISAM=ASL:ISAM
!
!
!CREATE ISAM.EXE
!
ANS74::
.R ASL:LINK
*ISAM.MAP/MAP=ISAM,C74LIB/SEARCH/GO
.IF (ERROR) .GOTO TRUBLE
!
.SSAVE ISAM
.IF (ERROR) .GOTO TRUBLE
!
!
!
OK::!END OF ISAM.CTL
!
!	BUILD LIBARY.EXE
!
!
!ASSEMBLE THE SOURCES:
!
CMP::
!
.R ASL:MACRO
*LIBARY=ASL:LIBARY
!
!
!CREATE LIBARY.EXE
!
.R ASL:LINK
*LIBARY.MAP/MAP=LIBARY,ASL:HELPER /GO
.IF (ERROR) .GOTO TRUBLE
!
.SSAVE LIBARY
.IF (ERROR) .GOTO TRUBLE
!
!
.DELETE LIBARY.REL
!
!
.GOTO OK
!
!
OK::!END OF LIBARY.CTL
!
!
!	BUILD CPYLIB.EXE
!
CMP::
!
.R ASL:MACRO
*MMANGU=TTY:,ASL:MMANGU
TOPS20==0




*IOTMPU=TTY:,ASL:IOTMPU
TOPS20==0




*MMANGR=ASL:MMANGR
*IOTMP=ASL:IOTMP
*CPYLIB=ASL:CPYLIB
!
!
!CREATE CPYLIB.EXE
!
.R ASL:LINK
*CPYLIB.MAP/MAP=CPYLIB,IOTMP,MMANGR/GO
.IF (ERROR) .GOTO TRUBLE
!
.SSAVE CPYLIB
.IF (ERROR) .GOTO TRUBLE
!
!
.GOTO OK
!
!
OK::!END OF CPYLIB.CTL
!
!
!	BUILD RERUN.EXE
!
!
!ASSEMBLE THE SOURCES
!
CMP::
!
.R ASL:MACRO
*RERUN=ASL:RERUN
!
!LOAD IT:
.R ASL:LINK
*RERUN.MAP/MAP=RERUN/GO
.IF (ERROR) .GOTO TRUBLE
!
.SAVE RERUN
.IF (ERROR) .GOTO TRUBLE
!
!
!TRY IT JUST TO MAKE SURE IT WORKS
.RUN RERUN
!
!
!DELETE UNNEEDED FILES
.DELETE RERUN.REL
.IF (ERROR) .!IGNORE ANY ERRORS
!
.GOTO OK
!
!
OK::!END OF RERUN.CTL.
!
!
!	BUILD COBDDT.REL
!
!
!ASSEMBLE THE SOURCES:
!
CMP::
!
.R ASL:MACRO
*COBDDT=ASL:COBDDT
!
.GOTO OK
!
!
OK::!END OF COBDDT.CTL
!
!ALL BUILDS COMPLETED
!
.R PEPB
*SIGNAL-SUCCESS COBOL-10-V12C
*EXIT
.GOTO EXIT
!
TRUBLE::
.GOTO ERROR
%ERR::
.GOTO ERROR
%CERR::
.GOTO ERROR
%TERR::
ERROR::
.R PEPB
*SIGNAL-FAILURE COBOL-10-V12C
*EXIT
.GOTO EXIT
!
EXIT::
%FIN::