Trailing-Edge
-
PDP-10 Archives
-
bb-bt99n-bb
-
utl704.ctl
There are 4 other files named utl704.ctl in the archive. Click here to see a list.
.R PEPB
*INITIALIZE UTILITIES-10-V704
*EXIT
.PATH ASL:/SEARCH
.PATH SYS:=ASL:
.PATH REL:=ASL:
.PATH UNV:=ASL:
;*******************************************************************************
; ACCT
;*******************************************************************************
;
.COMPIL /COMP/MACRO ACTLIB,ACTCUS,REACT,ACTDAE,ACTRCD
.IF (ERROR) .GOTO ERROR
;
.R LINK
*ACTDAE/SSAVE=/LOC/SYMSEG:LOW/SEGMENT:LOW -
*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
;
;*******************************************************************************
; ACTSYM
;*******************************************************************************
;
.COMPIL /COMP ACTSYM.MAC
.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
;*******************************************************************************
; BOOT
;*******************************************************************************
;
.COMPIL /COMP 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
.DELETE KSBOOT.EXE
.IF(ERROR)
.RENAME KSBOOT.EXE=BOOT.EXE
.COMPIL /COMP 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
*Y ;KLNI/NI
.R FILDDT
*BTONCE/S
*/M
=1^[11U
=1^[U
=-1,,-BTSVEC^[8U
=^Z
.SAVE BTDDT
;*******************************************************************************
; CTHNRT
;*******************************************************************************
;
.COMPIL /COMP CTHNRT.MAC
.IF (ERROR) .GOTO ERROR
;
.R LINK
*CTHNRT/SSAVE=CTHNRT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; COMPIL
;*******************************************************************************
;
.COMPIL /COMP COMPIL.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*COMPIL/SSAVE=COMPIL/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
;
;*******************************************************************************
; D60JSY
;*******************************************************************************
;
.COMPIL /COMP D60UNV.MAC
.IF (ERROR) .GOTO ERROR
.COMPIL /COMP D60JSY.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; DDT
;*******************************************************************************
;
;Make DDT.REL
.COMPIL /COMP DDT.REL=F1UDDT.MAC+DDT.MAC
.IF (ERROR) .GOTO ERROR
;
;Make EDDT.REL
.COMPIL /COMP EDDT.REL=F1EDDT.MAC+DDT.MAC
.IF (ERROR) .GOTO ERROR
;
;Make FILDDT.REL
.COMPIL /COMP FILDDT.REL=F1FDDT.MAC+DDT.MAC
.IF (ERROR) .GOTO ERROR
;
;Make VMDDT.REL
.COMPIL /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
;
;*******************************************************************************
; DDT11
;*******************************************************************************
;
.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
.COMPIL /COMP DDT11
.IF (ERROR) .GOTO ERROR
.R LINK
*DDT11/SAVE
*DDTFIL,DDTGP,DDTSIM,DDT11
*/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; DECLAR
;*******************************************************************************
;
.COMPIL /COMP DECLAR.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DECLAR/SSAVE=DECLAR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; DIRECT
;*******************************************************************************
;
.COMPIL /COMP DIRECT.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DIRECT/SSAVE=DIRECT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; DTELDR
;*******************************************************************************
;
.COMPIL /COMP DTELDR.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DTELDR/SSAVE=DTELDR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; F11
;*******************************************************************************
;
.COMPIL /COMP F11.MAC
.IF (ERROR) .GOTO ERROR
;
R LINK
*F11/SSAVE=F11/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; FAL
;*******************************************************************************
;
.COMPIL /COMP FAL.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FAL/SSAVE=/LOC/SYMSEG:LOW FAL/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; FILCOM
;*******************************************************************************
;
.COMPIL /COMP FILCOM.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FILCOM/SSAVE=FILCOM/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 INTPRM
.COMPIL /COMP INITIA.MAC,INTCUS.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*INITIA/SSAVE=INITIA,INTCUS/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; JOBDAT
;*******************************************************************************
;
.COMPIL /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
;
;***********************************************************************
; KDPLDR
;****************************************************************************
;
.COMPIL /COMP KDPLDR
.IF (ERROR) .GOTO ERROR
.R LINK
*KDPLDR/SAVE=KDPLDR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; LOGIN
;*******************************************************************************
;
.COMPIL /COMP LOGIN.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*LOGIN/SSAVE=LOGIN/GO
.IF (ERROR) .GOTO ERROR
.COPY LOGOUT.EXE=LOGIN.EXE
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; LP20
;*******************************************************************************
;
.COMPIL /COMP LP20.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*LP20/SSAVE=LP20/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; MACRO
;*******************************************************************************
;
.COMPIL /COMP MACRO.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*MACRO/SSAVE=MACRO/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; MACSYM
;*******************************************************************************
;
.R MACRO
*MACSYM,MACSYM/C=MACSYM
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; MAKLIB
;*******************************************************************************
;
.COMPIL /COMP MAKLIB.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*MAKLIB/SSAVE=MAKLIB/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; MIC
;*******************************************************************************
;
.COMPIL /COMP MIC.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*MIC/SSAVE=MIC/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; MONSYM
;*******************************************************************************
;
.R MACRO
*MONSYM,MONSYM=MONSYM
.IF (ERROR) .GOTO DIR
;
;*******************************************************************************
; NCPTAB
;*******************************************************************************
;
.R MACRO
*NCPTAB,NCPTAB=NCPTAB
.IF (ERROR) .GOTO DIR
;
.ERROR %
;CHECK FOR THE BLISSABLE PROGRAM. IF IT'S AVAILABLE, MAKE APPROPRIATE NCPTABS
.DIR SYS:MONINT.EXE
.IF (ERROR) .GO TO NEXT
.ERROR ?
.R MONINT
*NCPTAB
.IF (ERROR) .GOTO DIR
.R BLISS
*NCPTAB=NCPTAB/LIBRARY
.IF (ERROR) .GOTO DIR
NEXT::
;
;*******************************************************************************
; NFT
;*******************************************************************************
;
.COMPIL /COMP NFT.MAC , NIP.MAC , TSC.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
/LOCALS/SYMSEG:HIGH NFT/SAV=NFT/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
;*******************************************************************************
;
.COMPIL /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
;
;*******************************************************************************
; PATH
;*******************************************************************************
;
.COMPIL /COMP PATH.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*PATH/SSAVE=PATH/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
;
.R LINK
*PROJCT/SAVE=PROJCT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; QUOLST
;*******************************************************************************
;
.COMPIL /COMP QUOLST.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*QUOLST/SSAVE=QUOLST/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; RSXT10
;*******************************************************************************
;
.COMPIL /COMP RSXTTL.MAC+RSXT10.MAC+RSXCMN.MAC
.IF (ERROR) .GOTO ERROR
;
.R LINK
*RSXT10/SAVE=RSXCMN/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
;
;*******************************************************************************
; SETSRC
;*******************************************************************************
;
.COMPIL /COMP SETSRC.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*SETSRC/SSAVE=SETSRC/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; 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
;
;******************************************************************************
; UFDSET
;*******************************************************************************
;
.COMPIL /COMP UFDSET.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; UUOSYM
;*******************************************************************************
;
.R MACRO
*UUOSYM,UUOSYM=UUOSYM
.IF (ERROR) .GOTO ERROR
.ERROR %
;CHECK FOR THE BLISSABLE PROGRAM. IF IT'S AVAILABLE, MAKE APPROPRIATE UUOSYMS
.DIR SYS:MONINT.EXE
.IF (ERROR) .GO TO NEXT
.ERROR ?
.R MONINT
*UUOSYM
.IF (ERROR) .GOTO ERROR
.R BLISS
*UUOSYM=UUOSYM/LIBRARY
.IF (ERROR) .GOTO ERROR
NEXT::
;
;*******************************************************************************
; CREDIR
;*******************************************************************************
;
.COMPIL /COMP CREDIR.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*CREDIR/SSAVE=CREDIR/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; DELFIL
;*******************************************************************************
;
.COMPIL /COMP DELFIL.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DELFIL/SSAVE=DELFIL/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; DSKLST
;*******************************************************************************
;
.COMPIL /COMP DSKLST.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DSKLST/SSAVE=DSKLST/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; DSKRAT
;*******************************************************************************
;
.COMPIL /COMP DSKRAT.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*DSKRAT/SSAVE=DSKRAT/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; FE
;*******************************************************************************
;
.COMPIL /COMP FE.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FE/SSAVE=FE/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; FEFILE
;*******************************************************************************
;
.COMPIL /COMP FEFILE.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FEFILE/SSAVE=FEFILE/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; FILDAE
;*******************************************************************************
;
.COMPIL /COMP FILDAE.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*FILDAE/SAVE =/SEGMENT:LOW FILDAE,REL:SCAN/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; GLOB
;*******************************************************************************
;
.COMPIL /COMP GLOB.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*GLOB/SSAVE=GLOB/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; HELPER
;*******************************************************************************
;
.COMPIL /COMP HELPER.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; MACTEN
;*******************************************************************************
;
.COMPIL /COMP MACTEN.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; RUNOFF
;*******************************************************************************
;
.COMPIL /COMP RUNOFF.MAC
.IF (ERROR) .GOTO ERROR
.R LINK
*RUNOFF/SSAVE=RUNOFF/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; SCAN
;*******************************************************************************
;
.COMPIL /COMP TTY:+DSK:SCNMAC.MAC(P,,),SCAN.MAC(P,,)
*%.C==-3
=
=
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; SMFILE
;*******************************************************************************
;
.R MACRO
*GMAC,GMAC=GMAC
*SMFILE,SMFILE=SMFILE
*GSCN,GSCN=GSCN,GKBD,GCOM
*SMPREB,SMPREB=SMPREB
.IF (ERROR) .GOTO ERROR
;
.R LINK
*SMFILE.EXE/SAV=SMFILE,SMPREB,GSCN/GO
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; SOUPR
;*******************************************************************************
;
.COMPIL /COMP PRS,PARSE,COMPAR,MERGE,UPDATE
.IF (ERROR) .GOTO ERROR
.R LINK
*COMPAR/SSAVE=COMPAR,PARSE/SEARCH/GO
.IF (ERROR) .GOTO ERROR
.R LINK
*UPDATE/SSAVE=UPDATE,PARSE/SEARCH/GO
.IF (ERROR) .GOTO ERROR
.R LINK
*MERGE/SSAVE=MERGE,PARSE/SEARCH/GO
.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
;
;*******************************************************************************
; SYSDPY
;*******************************************************************************
;
;MAKE A KL F.MAC SINCE WE DON'T SHIP IT ANYMORE WITH 7.03
.R MONGEN
*NO
*PROMPT
*F
*FKL.MAC
*KL10
*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::
;
;*******************************************************************************
; WILD
;*******************************************************************************
;
.COMPIL /COMP WILD.MAC
.IF (ERROR) .GOTO ERROR
;
;*******************************************************************************
; LINK
;*******************************************************************************
;
; Compile the source files.
;
.TYPE C1PLNK.CMD
;
.COMPIL /COMP @C1PLNK.CMD
.IF (ERROR) .GOTO ERROR
.COMPIL /COMP @C1POVL.CMD
.IF (ERROR) .GOTO ERROR
;
; Load multi-segment LINK, using the LNK??? chain of LINK command files.
;
.TYPE L1PLNK.CCL
;
.PATH SYS:=
.R LINK
*@L1PLNK.CCL
.IF (ERROR) .GOTO ERROR
;
.RUN LINK
*OVRLAY.REL/VALUE:%OVRLA
.IF (ERROR) .GOTO ERROR
;
.PATH SYS:=
.R PEPB
*SIGNAL-SUCCESS UTILITIES-10-V704
*EXIT
.GOTO FIN
%ERR::
.GOTO ERROR
%CERR::
.GOTO ERROR
%TERR::
ERROR::
.PATH SYS:=
.R PEPB
*SIGNAL-FAILURE UTILITIES-10-V704
*EXIT
FIN::
%FIN::