Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_atpch16_bb-fr67f-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
;
.R LINK
*@L1PLNK.CCL
.IF (ERROR) .GOTO ERROR
;
.RUN LINK
*OVRLAY.REL/VALUE:%OVRLA
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; 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
LOAD::
.CHKPNT LOAD
.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
;*******************************************************************************
;
.COMPIL /COMP SCDSET.FOR,SCDEXE.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*SCDSET/SSAVE=/OTS:NONSHARE SCDSET,SCDEXE /SEG:LOW/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; 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::