Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99l-bb - utl703.ctl
There are 3 other files named utl703.ctl in the archive. Click here to see a list.
.R PEPB
*INITIALIZE UTILITIES-10-V703
*EXIT

.PATH ASL:/SEARCH

.PATH SYS:=ASL:
.PATH REL:=ASL:
.PATH UNV:=ASL:

;*******************************************************************************
;                               ACCT
;*******************************************************************************
;
.COMPILE /COMP/MACRO ACTLIB,ACTCUS,REACT,ACTDAE,ACTRCD,NEWACT
.IF (ERROR) .GOTO ERROR
;
.R LINK
*ACTDAE/SSAVE=/LOC/SYMSEG:LOW/SEGMENT:LOW -
*ACTLIB/SEARCH/INCLUDE:ACTPRM, -
*ACTDAE,ACTLIB/SEARCH,ACTCUS/SEARCH, -
*OPRPAR/SEARCH,SYS:RMS,SYS:B361LB/SEARCH/GO
.IF (ERROR) .GOTO ERROR
.R LINK
*REACT/SSAVE=/LOC/SYMSEG:LOW/SEGMENT:LOW -
*ACTLIB/SEARCH/INCLUDE:ACTPRM, -
*REACT,ACTLIB/SEARCH,ACTCUS/SEARCH, -
*OPRPAR/SEARCH,SYS:RMS,SYS:B361LB/SEARCH/GO
.IF (ERROR) .GOTO ERROR
.R LINK
*NEWACT/SSAVE=/LOC/SYMSEG:LOW/SEGMENT:LOW -
*GLXLIB/EXCLUD:(GLXINI,GLXOTS),-
*ACTLIB/SEARCH/INCLUDE:ACTPRM, -
*NEWACT,ACTLIB/SEARCH,ACTCUS/SEARCH, -
*OPRPAR/SEARCH,SYS:RMS,SYS:B361LB/SEARCH/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				JOBDAT
;*******************************************************************************
;
.COMPILE /COMP JOBDAT.MAC
.IF (ERROR)  .GOTO ERROR
;
;MAKE TEMP FILE TO FORCE UNIVERSALS
.COPY UNV.MAC=TTY:
	%..UNV==0

;
;COMPILE AGAIN TO GET JOBDAT.UNV
.R MACRO
*JOBDAT=UNV.MAC,JOBDAT.MAC
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;                               LINK
;*******************************************************************************
;
; Compile the source files.
;
.TYPE C1PLNK.CMD
;
.COMPILE/COMPILE @C1PLNK.CMD
.IF (ERROR)  .GOTO ERROR
.compile/compile @c1povl.cmd
.IF (ERROR)  .GOTO ERROR
;
; Load multi-segment LINK, using the LNK??? chain of LINK command files.
;
.TYPE L1PLNK.CCL
;.TYPE ASL:LNK*.CCL
;
.path sys:=
.R LINK
*@L1PLNK.CCL
.IF (ERROR)  .GOTO ERROR
;
.RUN LINK
*OVRLAY.REL/VALUE:%OVRLA
.IF (ERROR)  .GOTO ERROR
.path sys:=asl:
;
;*******************************************************************************
;				LCP
;*******************************************************************************
;
.COMPIL /COMP LCPTAB.MAC
.IF (ERROR)  .GOTO ERROR
.COMPIL /COMP LCPORN.MAC
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				UUOSYM
;*******************************************************************************
;
.COMPIL /COMP UUOSYM
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				MACTEN
;*******************************************************************************
;
.COMPIL /COMPIL MACTEN.MAC
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				HELPER
;*******************************************************************************
;
.COMPIL /COMPIL HELPER.MAC
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				SCAN
;*******************************************************************************
;
.COMP /COMP TTY:+DSK:SCNMAC.MAC(P,,),SCAN.MAC(P,,)
*%.C==-3
=
=
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				NCPTAB
;*******************************************************************************
;
.COMP /COMPIL NCPTAB.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				D60JSY
;*******************************************************************************
;
.COMPIL /COMP D60JSY.MAC
.IF (ERROR)  .GOTO ERROR
.COMPIL /COMP D60UNV.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				WILD
;*******************************************************************************
;
.COMPIL /COMPIL WILD.MAC
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				SWIL
;*******************************************************************************
;
.R MACRO
SWIL=SWIL
SWIFIL=SWIFIL
SWIWLD=SWIWLD
SWILIO=SWILIO
SWINET=SWINET
SWISCN=SWISCN
SWIHLP=SWIHLP
SWIQUE=SWIQUE
SWIERM=SWIERM
SWITOU=SWITOU
SWIMEM=SWIMEM
SWIMSC=SWIMSC
.IF (ERROR) .GOTO ERROR
;COMBINE INTO SWIL.REL
.R PIP
SWIL.REL/I = SWIFIL.REL, SWIWLD.REL, SWILIO.REL, SWINET.REL, SWISCN.REL, SWIHLP.REL, SWIQUE.REL, SWIERM.REL, SWITOU.REL, SWIMEM.REL, SWIMSC.REL
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				ACTSYM
;*******************************************************************************
;
.COMP /COMPIL ACTSYM.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;                               BOOT
;*******************************************************************************
;
.delete ksboot.exe
.COMPILE/COMPILE TTY:+DSK:BOOT.MAC
*FTKL10==0
*FTKS10==-1
=^Z
=^Z
.R LINK
*KSONCE/SAVE = BOOT/LOCALS/SYMSEG:LOW, REL:EDDT /GO
.RUN KSONCE
*N	;WRITE BINARY FILES
*N	;EDDT
.RENAME KSBOOT.EXE=BOOT.EXE
.COMPILE/COMPILE BOOT.MAC
.R LINK
*BTONCE/SAVE = BOOT/LOCALS/SYMSEG:LOW, REL:EDDT /GO
.RUN BTONCE
*N	;WRITE BINARY FILES
*N	;EDDT
*Y	;DX10/TX01
*Y	;DX20/TX02
*Y	;DX20/RP20
*Y	;KLIPA/CI
*N	;KLNI/NI
.RUN BTONCE
*Y	;WRITE BINARY FILES
*N	;DX10/TX01
*N	;DX20/TX02
*N	;DX20/RP20
*N	;KLIPA/CI
*Y	;KLNI/NI
.R FILDDT
*BTONCE/S
*/M
=111U
=1U
=-BTSVEC8U
=^Z
.SAVE BTDDT
;
;******************************************************************************
;				UFDSET
;*******************************************************************************
;
.COMPIL /COMP UFDSET.MAC
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				CATLOG
;*******************************************************************************
;
.COMPILE /COMP CATPRM, CATLOG, CATDEV, CATTAB
.IF (ERROR) .GOTO ERROR
.R LINK
*CATLOG/SAVE=/LOCALS/SYMSEG:LOW CATLOG,CATDEV/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				BACKUP
;*******************************************************************************
;
.COMPIL /COMP ENDECR.MAC
.IF (ERROR)  .GOTO ERROR
.COMPIL /COMP USGSUB.MAC
.IF (ERROR)  .GOTO ERROR
.COMPIL /COMP BACKUP.MAC,BACKRS.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*BACKUP/SSAVE=BACKUP,BACKRS/GO
.IF (ERROR) .GOTO ERROR
;
;+
;+BLKX:[7,1,BOOT]BOOT.CTL
;+
;*******************************************************************************
;				DDT11
;*******************************************************************************
;
.COMPIL/COM MONSYM
.IF (ERROR) .GOTO ERROR
.COMPIL/COMP DDTSYM
.IF (ERROR) .GOTO ERROR
.COMPIL/COMP DDTGP
.IF (ERROR) .GOTO ERROR
.COMPIL/COMP DDTFIL
.IF (ERROR) .GOTO ERROR
.COMPIL/COMP DDTSIM
.IF (ERROR) .GOTO ERROR
.COMP/COMP DDT11
.IF (ERROR) .GOTO ERROR
.R LINK
*DDT11/SAVE
*DDTFIL,DDTGP,DDTSIM,DDT11
*/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				MACSYM
;*******************************************************************************
;
.R MACRO
*MACSYM,MACSYM/C=MACSYM
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				RSXT10
;*******************************************************************************
;
.COMPILE/COMPILE/CREF RSXTTL.MAC+RSXT10.MAC+RSXCMN.MAC
.IF (ERROR)  .GOTO ERROR
;
.LOAD RSXCMN
.IF (ERROR)  .GOTO ERROR
;
.SAVE RSXT10.EXE
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				BOOTM
;*******************************************************************************
;
.COMPIL /COMP DXLD
.COMPIL /COMP TTY:+DSK:BOOTM.MAC
*MAGRIM==0	;NOT IN MAGRIM FORMAT
=
=
;
;WE NOW HAVE BOOTM.REL FOR USE WITH DXLD AND FOR LOADING ALONE TO
;PRODUCE THE KS10 BOOTM.
;
.R LINK
*DXLD/SAVE=DXLD.REL,BOOTM.REL/NOSTART/GO
.IF (ERROR) .GOTO ERROR
.GET DSK:DXLD
.VERSION
.IF (ERROR) .GOTO ERROR
;
;NOW MAKE BOOTMI.RDI FOR USE WITH TU70 READ-IN
.ASSIGN DSK:OUT
.RUN DXLD
.SAVE BOOTM
.COPY BOOTMI.RDI=BOOTM.RDI
;
;NOW CONVERT THE .EXE FILE TO A .SAVE FILE TO FEED INTO RSXT10
;
.R FILEX
*BOOTM.SAV=BOOTM.EXE
.IF (ERROR) .GOTO ERROR
;
;NOW CONVERT THE .SAV FILE TO AN .EXB FILE FOR LOADING BY RSX20F
;
.R RSXT10
*CONVERT BOOTM.SAV BOOTML.EXB
.IF (ERROR) .GOTO ERROR
;
;NOW LOAD BOOTM ALONE TO PRODUCE INPUT TO SMFILE FOR THE KS10
;
.R LINK
*BOOTMS/SAVE=BOOTM/GO
.IF (ERROR) .GOTO ERROR
;
;FINALLY, CREATE BOOTMS.RDI WITH SMFILE
;WE CAN'T DO THIS UNDER BATCH BECAUSE SMFILE DOESN'T GO INTO INPUT
;WAIT SO BATCON CAN'T TELL IT WANTS ANOTHER LINE.
;
;.RUN SMFILE
;*OUTPUT MTBOOT BOOTMS.EXE BOOTMS.RDI
;*EXIT
;.IF (ERROR) .GOTO ERROR
;
;NOW MAKE THE PAPER TAPE OF BOOTM IF NEEDED
;
;.COMPIL /COMP TTY:+DSK:BOOTM.MAC
;*MAGRIM==0	;NOT IN MAGRIM FORMAT
;=
;=
;.R MACRO
;*PTP:BOOTM=FTBTM,BOOTM
;THIS OBJECT PROGRAM BEING AN EXEC MODE BOOTSTRAP, THERE IS
; NO WAY TO TEST IT UNDER BATCH, SO WE LET THAT PASS.
;
;*******************************************************************************
;				COMPIL
;*******************************************************************************
;
.COMPIL /COMP COMPIL.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*COMPIL/SSAVE=COMPIL/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				CONV10
;*******************************************************************************
;
.COMP /COMP CONV10.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*CONV10/SAVE=CONV10/GO
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				CREDIR
;*******************************************************************************
;
.COMPIL /COMPIL CREDIR.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*CREDIR/SSAVE=CREDIR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				CREF
;*******************************************************************************
;
.COMPIL /COMP CREF.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*CREF/SSAVE=CREF,REL:HELPER/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				CRSCPY
;*******************************************************************************
;
.COMPIL /COMP CRSCPY.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*CRSCPY/SSAVE=CRSCPY/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				DAEMON
;*******************************************************************************
;
.COMPIL /COMP DAEMON.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*DAEMON/SSAVE=DAEMON/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				DECLAR
;*******************************************************************************
;
.COMPIL /COMP DECLAR.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DECLAR/SSAVE=DECLAR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				DELFIL
;*******************************************************************************
;
.COMPILE /COMPIL DELFIL.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DELFIL/SSAVE=DELFIL/GO
.IF (ERROR) .GOTO ERROR
;
;+
;+BLKX:[7,1,?]DIL.CTL
;+
;*******************************************************************************
;				DIRECT
;*******************************************************************************
;
.COMPIL /COMP DIRECT.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DIRECT/SSAVE=DIRECT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				DDT
;*******************************************************************************
;
;Make DDT.REL
.COMPILE /COMP DDT.REL=F1UDDT.MAC+DDT.MAC
.IF (ERROR)  .GOTO ERROR
;
;Make EDDT.REL
.COMPILE /COMP EDDT.REL=F1EDDT.MAC+DDT.MAC
.IF (ERROR)  .GOTO ERROR
;
;Make FILDDT.REL
.COMPILE /COMP FILDDT.REL=F1FDDT.MAC+DDT.MAC
.IF (ERROR)  .GOTO ERROR
;
;Make VMDDT.REL
.COMPILE /COMP VMDDT.REL=F1VDDT.MAC+DDT.MAC
.IF (ERROR)  .GOTO ERROR
;
;HERE TO MAKE THE NEW .EXE FILES REPLETE WITH SYMBOLS
.ERROR ?
;
;Make DDT.EXE
.R LINK
*/NOINITIAL/LOCALS/SYMSEG:LOW/PATCHS:2K DDT.REL/NOLOCALS, -
*REL:JOBDAT.REL, REL:MACTEN.REL, REL:UUOSYM.REL/GO
.IF (ERROR)  .GOTO ERROR
.DDT
=HRLZ 1,.JBSYM^[X
=HRR 1,.JBSYM^[X
=MOVE 2,.JBFF^[X
=SUB 2,.JBREL^[X
=ADDI 2,1777^[X
=SUBI 1,(2)^[X
=MOVE 2,.JBREL^[X
=SUBI 2,2000^[X
=HRRM 1,.JBUSY^[X
=HRRM 1,.JBSYM^[X
=BLT 1,(2)^[X
=MOVSI 3,1(2)^[X
=IORI 3,DDT^[X
=HRLM 2,.JBCOR^[X
=CORE 2,^[X
=MOVEM 3,.JBSA^[X
=HLRM 3,.JBFF^[X
=HRRM 3,.JBREN^[X
=.JBVER/
*%%DDT
=PAT../
*D:
=0<17>0^[Z
=05M
*^C
.SAVE DDT
;
;Make FILDDT.EXE
.R LINK
*FILDDT/SAVE=FILDDT.REL/GO
.IF (ERROR)  .GOTO ERROR
;
;Make VMDDT.EXE
.R LINK
*VMDDT/SAVE=VMDDT.REL/GO
.IF (ERROR)  .GOTO ERROR
;
;*******************************************************************************
;				DSKLST
;*******************************************************************************
;
.LOAD /COMPIL DSKLST.MAC
.IF (ERROR) .GOTO ERROR
.SSAVE
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				DSKRAT
;*******************************************************************************
;
.COMPIL /COMPIL DSKRAT.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DSKRAT/SSAVE=DSKRAT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				DTELDR
;*******************************************************************************
;
.COMPIL /COMP DTELDR.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*DTELDR/SSAVE=DTELDR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				FE
;*******************************************************************************
;
.COMP /COMPIL FE.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FE/SSAVE=FE/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				FEFILE
;*******************************************************************************
;
.COMP /COMPIL FEFILE.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FEFILE/SSAVE=FEFILE/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				FILCOM
;*******************************************************************************
;
.COMPIL /COMP FILCOM.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*FILCOM/SSAVE=FILCOM/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				FILDAE
;*******************************************************************************
;
.COMP /COMPIL FILDAE.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FILDAE/SAVE =/SEGMENT:LOW FILDAE,REL:SCAN/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				GLOB
;*******************************************************************************
;
.COMPIL /COMPIL GLOB.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*GLOB/SSAVE=GLOB,REL:HELPER/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				HELP
;*******************************************************************************
;
.COMPIL /COMP HELP.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*HELP/SSAVE=HELP/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				INITIA
;*******************************************************************************
;
.COMPIL /COMP INITIA.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*INITIA/SSAVE=INITIA/GO
.IF (ERROR) .GOTO ERROR
;
;***********************************************************************
;		KDPLDR
;****************************************************************************
;
.COMPILE /COMP KDPLDR
.IF (ERROR) .GOTO ERROR
.R LINK
*KDPLDR/SAVE=KDPLDR/GO
.IF (ERROR) .GOTO ERROR
;
;***********************************************************************
;		KNILDR
;****************************************************************************
;
.COMPILE /COMP KNILDR
.IF (ERROR) .GOTO ERROR
.R LINK
*KNILDR/SAVE=KNILDR/GO
.IF (ERROR) .GOTO ERROR
;
;+
;+BLKX:[7,1,LINK]LINK.CTL
;+
;*******************************************************************************
;				LOGIN
;*******************************************************************************
;
.COMPIL /COMP LOGIN.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*LOGIN/SSAVE=LOGIN/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				LOGOUT
;*******************************************************************************
;
.COMPIL /COMP LOGOUT.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*LOGOUT/SSAVE=LOGOUT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				MACRO
;*******************************************************************************
;
.COMPIL /COMP MACRO.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*MACRO/SSAVE=MACRO/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				MAKLIB
;*******************************************************************************
;
.COMPIL /COMP MAKLIB.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*MAKLIB/SSAVE=MAKLIB/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				MAKVFU
;*******************************************************************************
;
.COMPIL /COMPIL MACROS.MAC/NOBIN, MAKVFU.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*MAKVFU/SSAVE=MAKVFU/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				NETLDR
;*******************************************************************************
;
.COMPIL /COMP NETLDR.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*NETLDR/SSAVE=NETLDR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				NETWOR
;*******************************************************************************
;
.COMPILE /CREF/COMP NETWOR
.IF (ERROR)  .GOTO ERROR
.R LINK
*NETWOR/SSAVE=NETWOR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				OPSER
;*******************************************************************************
;
.COMPIL /COMP OPSER.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*OPSER/SSAVE=OPSER/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				PIP
;*******************************************************************************
;
.COMPIL /COMP PIP.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*PIP/SSAVE=PIP/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				PROJCT
;*******************************************************************************
;
.COMPIL /COMP PROJCT.MAC
.IF (ERROR) .GOTO ERROR
;
.LOAD PROJCT.REL
.IF (ERROR) .GOTO ERROR
.SAVE PROJCT.EXE
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				QUOLST
;*******************************************************************************
;
.COMPIL /COMP QUOLST.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*QUOLST/SSAVE=QUOLST/GO
.IF (ERROR) .GOTO ERROR
;
;+
;+BLKK:[7,1,RMS10]RMS10B.CTL
;+
;*******************************************************************************
;				RUNOFF
;*******************************************************************************
;
.COMPIL /COMPIL RUNOFF.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*RUNOFF/SSAVE=RUNOFF/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				SETSRC
;*******************************************************************************
;
.COMPIL /COMP SETSRC.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*SETSRC/SSAVE=SETSRC/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				SCDSET
;*******************************************************************************
;
.copy =asl:scdset.exe
.COMPIL /COMP SCDSET.FOR,SCDEXE.MAC
.IF (ERROR)  .GOTO NOF10
.R LINK
*SCDSET/SSAVE=/OTS:NONSHARE SCDSET,SCDEXE /SEG:LOW/GO
.IF (ERROR) .GOTO ERROR
NOF10::
;
;*******************************************************************************
;				SOUP
;*******************************************************************************
;
.COMPIL /COMPIL CAMCTL.MAC,CAMIO.MAC,CAMLOW.MAC,COMERG.MAC,COMPAR.MAC,CORFIH.MAC,FEDCTL.MAC,FEDIT.MAC,FITRAK.MAC,SERVIS.MAC,10KIMP.MAC,10K.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*CAM/SSAVE=CAMLOW,CAMCTL,CAMIO,COMERG,COMPAR,CORFIH,FITRAK,SERVIS/GO
.IF (ERROR) .GOTO ERROR
.COMPIL /COMPIL TTY:+DSK:CAMLOW.MAC
*CMPRSW=1
=
=
.IF (ERROR) .GOTO ERROR
.R LINK
*FED/SSAVE=CAMLOW,FEDCTL,FEDIT,CAMIO,CORFIH,SERVIS/GO
.COMPIL /COMPIL TTY:+DSK:CAMIO.MAC
*BIGSW=1
=
=
.IF (ERROR) .GOTO ERROR
.R LINK
*COMP10/SSAVE=10KIMP,10K,COMPAR,CAMIO/GO
.IF (ERROR) .GOTO ERROR
;
;+
;+BLKX:[7,1,SPEAR]SPEAR.CTL
;+
;*******************************************************************************
;				SYSDPY
;*******************************************************************************
;
;MAKE A KL F.MAC SINCE WE DON'T SHIP IT ANYMORE WITH 7.03
.R MONGEN
*PROMPT
*F
*FKL.MAC
*KLFULL
*YES
.R MACRO
*NUL:=FKL/U
*NUL:=S/U
*NUL:=NETPRM/U
*NUL:=MACSYM/U
*NUL:=D36PAR/U
*NUL:=SYSDPU/U
.IF (ERROR) .GOTO SYSDP2
*SYSDPY=TTY:,DSK:SYSDPY
*V.DISP==0			;VT06 terminal
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSDPA=TTY:,DSK:SYSDPY
*V.DISP==1			;VT05A terminal
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSDPB=TTY:,DSK:SYSDPY
*V.DISP==2			;VT05B terminal
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSVBX=TTY:,DSK:SYSDPY
*V.DISP==3			;VB10C display
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSV50=TTY:,DSK:SYSDPY
*V.DISP==5			;VT50 DECscope
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSV52=TTY:,DSK:SYSDPY
*V.DISP==6			;VT52 DECscope
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSV61=TTY:,DSK:SYSDPY
*V.DISP==4			;VT61 DECscope
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSHZL=TTY:,DSK:SYSDPY
*V.DISP==20			;Hazeltine 2000 terminal
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSDLT=TTY:,DSK:SYSDPY
*V.DISP==21			;Delta Data Telterm terminal
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
*SYSANS=TTY:,DSK:SYSDPY
*V.DISP==7			;VT100 or other ANSI terminal
=^Z
=^Z
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSDPY/SSAVE=SYSDPY/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSDPA/SSAVE=SYSDPA/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSDPB/SSAVE=SYSDPB/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSVBX/SSAVE=SYSVBX/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSV50/SSAVE=SYSV50/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSV52/SSAVE=SYSV52/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSV61/SSAVE=SYSV61/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSHZL/SSAVE=SYSHZL/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSDLT/SSAVE=SYSDLT/GO
.IF (ERROR) .GOTO SYSDP2
.R LINK
*SYSANS/SSAVE=SYSANS/GO
.IF (ERROR) .GOTO SYSDP2
;
.GOTO NEXT
SYSDP2::
.DELETE FKL.MAC
.GOTO ERROR
NEXT::
;
;*******************************************************************************
;				SYSTAT
;*******************************************************************************
;
.COMPIL /COMP SYSTAT
.IF (ERROR)  .GOTO ERROR
.R LINK
*SYSTAT/SSAVE=SYSTAT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
;				TECO
;*******************************************************************************
;
.COMPIL /COMP TECO.MAC
.IF (ERROR)  .GOTO ERROR
.R LINK
*TECO/SSAVE=TECO/GO
.IF (ERROR) .GOTO ERROR
;
.PATH SYS:=
.R PEPB
*SIGNAL-SUCCESS UTILITIES-10-V703
*EXIT

.GOTO FIN
%ERR::
.GOTO ERROR
%CERR::
.GOTO ERROR
%TERR::
ERROR::

.PATH SYS:=
.R PEPB
*SIGNAL-FAILURE UTILITIES-10-V703
*EXIT

FIN::
%FIN::