Google
 

Trailing-Edge - PDP-10 Archives - BB-H311D-RM - arpanet-sources/t20-an.ctl
There are 15 other files named t20-an.ctl in the archive. Click here to see a list.
! UPD ID= 3857, SNARK:<6.MONITOR>T20-AN.CTL.45,   5-Mar-84 17:52:05 by PURRETTA
!Remove CTSMON, AN-MONDCN
! UPD ID= 3759, SNARK:<6.MONITOR>T20-AN.CTL.44,  26-Feb-84 16:28:36 by PURRETTA
! UPD ID= 3746, SNARK:<6.MONITOR>T20-AN.CTL.43,  24-Feb-84 13:23:34 by PURRETTA
! UPD ID= 3738, SNARK:<6.MONITOR>T20-AN.CTL.42,  22-Feb-84 16:33:55 by PAETZOLD
;Add comments
;<6.MONITOR>T20-AN.CTL.40,  1-Feb-84 22:24:56, EDIT BY MURPHY
! UPD ID= 3554, SNARK:<6.MONITOR>T20-AN.CTL.39,  26-Jan-84 09:32:46 by PAETZOLD
!do not save the parameter files from POSTLD
! UPD ID= 3359, SNARK:<6.MONITOR>T20-AN.CTL.38,  22-Dec-83 12:56:02 by PURRETTA
!Remove DDT's from T20-AN.REL, they're linked separately now.
! Add defaults for compile.
! UPD ID= 3148, SNARK:<6.MONITOR>T20-AN.CTL.37,  15-Nov-83 00:38:24 by MOSER
;ADD PHYMVR
! UPD ID= 3130, SNARK:<6.MONITOR>T20-AN.CTL.36,   9-Nov-83 17:42:56 by PAETZOLD
!Add offsets for reasembling everything
! UPD ID= 2757, SNARK:<6.MONITOR>T20-AN.CTL.33,  23-Jul-83 22:36:43 by PAETZOLD
! UPD ID= 2733, SNARK:<6.MONITOR>T20-AN.CTL.32,  22-Jul-83 15:00:06 by PAETZOLD
!get rid of the T20AND.REL file.  TTYSDN is now a real module.
!<6.MONITOR>T20-AN.CTL.31,  8-Jun-83 11:20:54, Edit by HALL
!Add CFSSRV for Miller
!<6.MONITOR>T20-AN.CTL.30, 14-May-83 13:24:22, Edit by PURRETTA
!ASEMBL.CMD has been split into ASMBL1 and ASMBL2 - Reflect the change here
! UPD ID= 2312, SNARK:<6.MONITOR>T20-AN.CTL.30,  19-Apr-83 22:38:11 by PAETZOLD
!AN-MONDCN is the ARPANET monitor without DECNET on
!<6.MONITOR>T20-AN.CTL.29, 18-Apr-83 15:05:37, Edit by PAETZOLD
!<6.MONITOR>T20-AN.CTL.23, 28-Mar-83 14:15:26, Edit by PAETZOLD
!Fix file up for current realities

! NAME: T20-AN.CTL
! DATE: 21-Jul-83
!
!
! FUNCTION:	THIS CONTROL FILE BUILDS THE TOPS20-AN
!		MONITORS FROM SOURCES.
!
!TO ASSEMBLE AND BUILD ALL STANDARD TOPS20-AN MONITORS:
!SUBMIT T20-AN/TIME:2:0:0
!
!TO FORCE ASSEMBLE OF ALL MODULES AND BUILD ALL STANDARD TOPS-20AN
!MONITORS:
!SUBMIT T20-AN/TAG:FORCE/TIME:2:0:0

!TO LOAD JUST ONE T20-AN MONITOR USING PARAN AND T20AN.REL:
!SUBMIT T20-AN/TAG:SINGLE/TIME:1:0:0
!
!Before  doing  anything,  see  if  we  are connected to a reasonable
!directory.  A  reasonable  directory  will  have  SYSFLG.MAC   which
!determines processor conditionals. Also, you will see what processor
!you are assembling for.
!

@GOTO BEGIN

!Here to force complete compilation

FORCE::
@SET DEFAULT COMPILE MAC /COMPILE
@GOTO BEGIN

!Here to force CREF listing files

CREF::
@SET DEFAULT COMPILE MAC /CREF
@GOTO BEGIN

!Here to begin.  Define logical names and insure that we are in a 
!reasonable directory environment.

BEGIN::
@TAKE BATCH
@COPY SYSFLG.MAC NUL:
@IF (ERROR) @GOTO ZZZ
@NOERROR
@INFORMATION LOGICAL-NAMES ALL

! TAKE A CHECKSUMMED DIRECTORY OF ALL THE INPUT FILES

@VDIRECT SYS:LINK.EXE.0,SYS:CREF.EXE.0,SYS:MACRO.EXE.0,
@CHECKSUM SEQ
@
@VDIRECT SYS:MONSYM.UNV.0,SYS:MACSYM.UNV.0,SYS:MACREL.REL.0,SYS:PA1050.EXE.0,
@CHECKSUM SEQ
@
@GET SYS:MACRO
@INFORMATION VERSION
@GET SYS:LINK
@INFORMATION VERSION
@GET SYS:CREF
@INFORMATION VERSION

@DEL AMON.*
@DEL STGAN.REL,VERSIO.REL

!COMPILE THE SOURCE MODULES
@TAKE MON:ASEMBL.CMD

APPEN::
!MAKE THE LIBRARY FILE

@DELETE T20AN.REL
@APPEND R:APRSRV.REL,R:SCHED.REL,R:PAGEM.REL,R:PAGUTL.REL T20AN.REL
@APPEND R:FORK.REL,R:MEXEC.REL,R:GETSAV.REL,R:SYSERR.REL T20AN.REL
@APPEND R:COMND.REL,R:DEVICE.REL,R:DIRECT.REL,R:ENQ.REL T20AN.REL
@APPEND R:FREE.REL,R:FUTILI.REL,R:GTJFN.REL,R:IO.REL T20AN.REL
@APPEND R:IPCF.REL,R:JSYSA.REL,R:JSYSF.REL,R:LOGNAM.REL T20AN.REL
@APPEND R:LOOKUP.REL,R:MSTR.REL,R:SWPALC.REL,R:DISC.REL T20AN.REL
@APPEND R:FILINI.REL,R:FILMSC.REL,R:MFLIN.REL,R:MFLOUT.REL T20AN.REL
@APPEND R:DATIME.REL,R:PHYSIO.REL,R:DIAG.REL,R:DSKALC.REL T20AN.REL
@APPEND R:PHYH2.REL,R:PHYP4.REL,R:PHYP2.REL,R:TTYSDN.REL T20AN.REL
@APPEND R:FESRV.REL,R:MAGTAP.REL,R:TAPE.REL,R:TIMER.REL T20AN.REL
@APPEND R:PHYM2.REL,R:PHYX2.REL,R:DTESRV.REL,R:LINEPR.REL T20AN.REL
@APPEND R:CDRSRV.REL,R:CDPSRV.REL,R:IPIPIP.REL,R:PHYKLP.REL T20AN.REL
@APPEND R:SCSJSY.REL,R:SCAMPI.REL,R:PHYMSC.REL,R:CRYPT.REL T20AN.REL
@APPEND R:PHYM78.REL,R:IPFREE.REL,R:TCPTCP.REL,R:TCPCRC.REL T20AN.REL
@APPEND R:TCPBBN.REL,R:TCPJFN.REL,R:MNETDV.REL,R:IMPANX.REL T20AN.REL
@APPEND R:IMPDV.REL,R:NSPSRV.REL,R:NTMAN.REL,R:FILNFT.REL T20AN.REL
@APPEND R:TTYSNV.REL,R:CFSSRV.REL,R:PHYMVR.REL,R:POSTLD.REL T20AN.REL
@DELETE MONDDT.REL
@APPEND R:KDDT.REL,R:MDDT.REL MONDDT.REL
ARPBIG::
!Build a "big" Arpanet monitor without DECNET.

@NOERROR
@DEL STGAN.REL,VERSIO.REL
@EXP
@COMPIL /COMP MON:ANNBIG.MAC+MON:VERSIO.MAC VERSIO
@COMPIL /COMP MON:ANPBIG.MAC+MON:PARAMS.MAC+MON:STG.MAC STGAN
@ERROR
@R LINK
*@MON:LNKANS.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@EXP
@GET AMON
@IF (ERROR) @GOTO ARPMAX
@START 142
=BUGHLT<HLTADR12B
=BUGCHK<CHKADR11B
*DDTIBP^[10B
*^[10B+2/2
=G
@IF (NOERROR) @GOTO BIGOK
@NOERROR
@COMPIL /COMP MON:ANPBIG.MAC+PARNEW.MAC+MON:PARAMS.MAC+MON:STG.MAC STGAN
@ERROR
@R LINK
*@LNKNEW.CCL
*@MON:LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@EXP
@GET AMON
@IF (ERROR) @GOTO ARPMAX
@START 142
=BUGHLT<HLTADR12B
=BUGCHK<CHKADR11B
*DDTIBP^[10B
*^[10B+2/2
=G
BIGOK::
@RENAME AMONITR.EXE.0 AN-MONBIG.EXE
ARPMAX::
!Build a "maximum" Arpanet monitor without DECNET

@NOERROR
@DEL STGAN.REL,VERSIO.REL
@EXP
@COMPIL /COMP MON:ANNMAX.MAC+MON:VERSIO.MAC VERSIO
@COMPIL /COMP MON:ANPMAX.MAC+MON:PARAMS.MAC+MON:STG.MAC STGAN
@ERROR
@R LINK
*@MON:LNKANS.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@EXP
@GET AMON
@IF (ERROR) @GOTO DIRMON
@START 142
=BUGHLT<HLTADR12B
=BUGCHK<CHKADR11B
*DDTIBP^[10B
*^[10B+2/2
=G
@IF (NOERROR) @GOTO MAXOK
@NOERROR
@COMPIL /COMP MON:ANPMAX.MAC+PARNEW.MAC+MON:PARAMS.MAC+MON:STG.MAC STGAN
@ERROR
@R LINK
*@LNKNEW.CCL
*@MON:LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@EXP
@GET AMON
@IF (ERROR) @GOTO DIRMON
@START 142
=BUGHLT<HLTADR12B
=BUGCHK<CHKADR11B
*DDTIBP^[10B
*^[10B+2/2
=G
MAXOK::
@RENAME AMONITR.EXE.0 AN-MONMAX.EXE



DIRMON::
@VDIRECT AN-MON*.EXE.0,
@CHECKSUM SEQ
@
@GOTO E
SINGLE::
!BUILD AMONITR.EXE USING PARAN, NAMAN AND T20AN.REL

@TAKE BATCH
@COPY SYSFLG.MAC NUL:
@IF (ERROR) @GOTO ZZZ
@NOERROR

@INFORMATION LOGICAL-NAMES ALL

! TAKE A CHECKSUMMED DIRECTORY OF ALL THE INPUT FILES

@VDIRECT SYS:LINK.EXE.0,SYS:CREF.EXE.0,SYS:MACRO.EXE.0,
@CHECKSUM SEQ
@
@VDIRECT SYS:MONSYM.UNV.0,SYS:MACSYM.UNV.0,SYS:MACREL.REL.0,SYS:PA1050.EXE.0,
@CHECKSUM SEQ
@
@GET SYS:MACRO
@INFORMATION VERSION
@GET SYS:LINK
@INFORMATION VERSION
@GET SYS:CREF
@INFORMATION VERSION

@DEL AMON.*
@DEL STGAN.REL,VERSIO.REL
@EXPUNGE
@COMPIL /COMP MON:NAMAN.MAC+MON:VERSIO.MAC VERSIO
@COMPIL /COMP MON:PARAN.MAC+MON:PARAMS.MAC+MON:STG.MAC STGAN
@ERROR
@R LINK
*@MON:LNKANS.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@EXP
@GET AMON
@IF (ERROR) GOTO ZZZ
@START 142
=BUGHLT<HLTADR12B
=BUGCHK<CHKADR11B
*DDTIBP^[10B
*^[10B+2/2
=G
@IF (NOERROR) GOTO SINOK
@NOERROR
@COMPIL /COMP MON:PARAN.MAC+PARNEW.MAC+MON:PARAMS.MAC+MON:STG.MAC STGAN
@ERROR
@R LINK
*@LNKNEW.CCL
*@MON:LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@EXP
@GET AMON
@IF (ERROR) @GOTO ZZZ
@START 142
=BUGHLT<HLTADR12B
=BUGCHK<CHKADR11B
*DDTIBP^[10B
*^[10B+2/2
=G
SINOK::
@VDIR AMONITR.EXE.0,
@CHECKSUM SEQ
@

E::
@DELETE AMON.*
ZZZ::
!END OF T20-AN.CTL