Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;SNARK:<6.1.MONITOR>T20-AN.CTL.53 18-Apr-85 10:50:42, Edit by MCCOLLUM
;Save LNKNEW and PARNEW if they are actually used so other builds don't
;trash needed versions.
! UPD ID= 1702, SNARK:<6.1.MONITOR>T20-AN.CTL.52,  30-Mar-85 12:55:13 by DMCDANIEL
!Remove NITEST and UID stuff.
! UPD ID= 1323, SNARK:<6.1.MONITOR>T20-AN.CTL.48,  12-Jan-85 14:44:16 by PAETZOLD
!Make sure UID gets compiled.
! UPD ID= 1321, SNARK:<6.1.MONITOR>T20-AN.CTL.47,  12-Jan-85 10:14:39 by PAETZOLD
!More for 6.1
! UPD ID= 974, SNARK:<6.1.MONITOR>T20-AN.CTL.46,   6-Nov-84 20:17:59 by PAETZOLD
!Convert from 6.0 to 6.1.  Add stuff for a decnet monitor.

! NAME: T20-AN.CTL
! DATE: 6-Nov-84
!
!
! 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::
@CHKPNT 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::
@CHKPNT APPEN
!MAKE THE LIBRARY FILE

@DELETE R:T20AN.REL
@APPEND R:SCAMPI.REL,R:SCSJSY.REL,R:PHYMSC.REL,R:PHYMVR.REL,R:PHYKLP.REL R:T20AN.REL
@APPEND R:CFSSRV.REL,R:APRSRV.REL,R:SCHED.REL,R:PAGEM.REL,R:PAGUTL.REL R:T20AN.REL
@APPEND R:FORK.REL,R:MEXEC.REL,R:GETSAV.REL,R:SYSERR.REL,R:COMND.REL R:T20AN.REL
@APPEND R:DEVICE.REL,R:DIRECT.REL,R:ENQ.REL,R:FREE.REL,R:FUTILI.REL R:T20AN.REL
@APPEND R:GTJFN.REL,R:IO.REL,R:IPCF.REL,R:JSYSA.REL,R:JSYSF.REL R:T20AN.REL
@APPEND R:LOGNAM.REL,R:LOOKUP.REL,R:MSTR.REL,R:SWPALC.REL,R:DISC.REL R:T20AN.REL
@APPEND R:FILINI.REL,R:FILMSC.REL,R:MFLIN.REL,R:MFLOUT.REL,R:DATIME.REL R:T20AN.REL
@APPEND R:PHYSIO.REL,R:DIAG.REL,R:DSKALC.REL,R:PHYH2.REL,R:PHYP4.REL R:T20AN.REL
@APPEND R:PHYP2.REL,R:PHYM78,R:TTYSRV.REL,R:NRTSRV.REL,R:RSXSRV.REL R:T20AN.REL
@APPEND R:FESRV.REL,R:MAGTAP.REL,R:TAPE.REL,R:TIMER.REL,R:PHYM2.REL R:T20AN.REL
@APPEND R:PHYX2.REL,R:DTESRV.REL,R:LINEPR.REL,R:CDPSRV.REL,R:PLT.REL R:T20AN.REL
@APPEND R:PTP.REL,R:PTR.REL,R:CDRSRV.REL,R:FILNFT.REL,R:CIDLL.REL R:T20AN.REL
@APPEND R:CTHSRV.REL,R:D36COM.REL,R:DNADLL.REL,R:DTESRV.REL,R:JNTMAN.REL R:T20AN.REL
@APPEND R:LLINKS.REL,R:LLMOP.REL,R:NISRV.REL,R:NIUSR.REL R:T20AN.REL
@APPEND R:NTMAN.REL,R:ROUTER.REL,R:SCJSYS.REL,R:SCLINK.REL,R:LATSRV.REL R:T20AN.REL
@APPEND R:IPIPIP.REL,R:IPFREE.REL,R:IMPANX.REL,R:IPCIDV.REL,R:IPNIDV.REL,R:IMPDV.REL R:T20AN.REL
@APPEND R:MNETDV.REL,R:TCPTCP.REL,R:TCPCRC.REL,R:TCPJFN.REL,R:TCPBBN.REL R:T20AN.REL
@APPEND R:TVTSRV.REL,R:CRYPT.REL,R:POSTLD.REL R:T20AN.REL
@DELETE R:MONDDT.REL
@APPEND R:KDDT.REL,R:MDDT.REL R:MONDDT.REL

ARPBIG::
@CHKPNT ARPBIG
!Build a "big" Arpanet monitor without DECNET.

@NOERROR
@DEL R:STGAN.REL,VERSIO.REL
@COMPIL /COMP MON:ANNBIG.MAC+MON:VERSIO.MAC R:VERSIO
@COMPIL /COMP MON:ANPBIG.MAC+MON:PARAMS.MAC+MON:STG.MAC R:STGAN
@ERROR
@R LINK
*@MON:LNKANS.CCL
*T20AN/S, -
*/SYSLIB, -
*/G
@GET AMON
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
@IF (NOERROR) @GOTO BIGOK
@NOERROR
@COPY LNKNEW.CCL.0 LNKBIG.CCL
@COPY PARNEW.MAC.0 PARBIG.MAC
@COMPIL /COMP MON:ANPBIG.MAC+PARNEW.MAC+MON:PARAMS.MAC+MON:STG.MAC R:STGAN
@ERROR
@R LINK
*@LNKNEW.CCL
*@MON:LNKANI.CCL
*T20AN/S, -
*/SYSLIB, -
*/G
@IF (ERROR) @GOTO ARPMAX
@NOERROR
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
BIGOK::
@RENAME AMONITR.EXE.0 AN-MONBIG.EXE

ARPMAX::
!Build a "maximum" Arpanet monitor without DECNET

@NOERROR
@DEL STGAN.REL,VERSIO.REL
@COMPIL /COMP MON:ANNMAX.MAC+MON:VERSIO.MAC R:VERSIO
@COMPIL /COMP MON:ANPMAX.MAC+MON:PARAMS.MAC+MON:STG.MAC R:STGAN
@ERROR
@R LINK
*@MON:LNKANS.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@GET AMON
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
@IF (NOERROR) @GOTO MAXOK
@NOERROR
@COPY LNKNEW.CCL.0 LNKMAX.CCL
@COPY PARNEW.MAC.0 PARMAX.MAC
@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
@IF (ERROR) @GOTO ARPDCN
@NOERROR
@GET AMON
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
MAXOK::
@RENAME AMONITR.EXE.0 AN-MONMAX.EXE
@CHKPNT ARPMAX

ARPDCN::
@CHKPNT ARPDCN

!Build an Arpanet monitor with DECNET

@NOERROR
@DEL STGAN.REL,VERSIO.REL
@COMPIL /COMP MON:ANNDCN.MAC+MON:VERSIO.MAC R:VERSIO
@COMPIL /COMP MON:ANPDCN.MAC+MON:PARAMS.MAC+MON:STG.MAC R:STGAN
@ERROR
@R LINK
*@MON:LNKAND.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@GET AMON
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
@IF (NOERROR) @GOTO DCNOK
@NOERROR
@COPY LNKNEW.CCL.0 LNKDCN.CCL
@COPY PARNEW.MAC.0 PARDCN.MAC
@COMPIL /COMP MON:ANPDCN.MAC+PARNEW.MAC+MON:PARAMS.MAC+MON:STG.MAC STGAN
@ERROR
@R LINK
*@LNKNEW.CCL
*@MON:LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@IF (ERROR) @GOTO DIRMON
@NOERROR
@GET AMON
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
DCNOK::
@RENAME AMONITR.EXE.0 AN-MONDCN.EXE
@COPY BUGSTRINGS.TXT.0 DSK:MONDCN-BUGSTRINGS.TXT.-1

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 R:VERSIO
@COMPIL /COMP MON:PARAN.MAC+MON:PARAMS.MAC+MON:STG.MAC R:STGAN
@ERROR
@R LINK
*@MON:LNKANS.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@IF (ERROR) GOTO ZZZ
@GET AMON
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
@IF (NOERROR) GOTO SINOK
@NOERROR
@COPY LNKNEW.CCL.0 LNKARP.CCL
@COPY PARNEW.MAC.0 PARARP.MAC
@COMPIL /COMP MON:PARAN.MAC+PARNEW.MAC+MON:PARAMS.MAC+MON:STG.MAC R:STGAN
@ERROR
@R LINK
*@LNKNEW.CCL
*@MON:LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G
@IF (ERROR) @GOTO ZZZ
@GET AMON
@START 142
*0^[6M
*BUGHLT<HLTADR^[12B
*BUGCHK<CHKADR^[11B
*^[G
SINOK::
@VDIR AMONITR.EXE.0,
@CHECKSUM SEQ
@

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