Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/smp2nt.mic
There is 1 other file named smp2nt.mic in the archive. Click here to see a list.
.SILENCE
.R SETSRC
*C /LIB:[10,713]
*^C
.MIC SET NO PARAMETERS
.r teco
*ewCN20.P11
*IOURNNM=.MACRO NODE MNAME
*	MNAME	.ENDM
*SCBMAX=25.
*FT.RNN=1
*TTYRNN=65 ; KEEP OUT TTY'S TO OURSELF, AT LEASE TILL BEAT UPON
*NLINES=DUPN=DMCN=FT.SLB=0
*FT.D20=1
*FTHOST=1
*FT.CTY=FT2741=0
*DEFBCD=987.
*TTYN=NGHMAX=7
*SEQNGH=1
*.MACRO DHCNFG
*TINDZ=	0
*	TDEF	TINDZ,<<RS,9600.>,<XS,9600.>>
*	TDEF	TINDZ,<<RS,9600.>,<XS,9600.>>
*	TDEF	TINDZ,<<RS,9600.>,<XS,9600.>>
*	TDEF	TINDZ,<<RS,9600.>,<XS,9600.>>
*DHUSE TTYN,0,0,0,0,0
*.ENDM
*.LIST MEB
*^L
EX
;NOW GET THE VARIABLE INFO FROM THE DNCNFG.TXT FILE
;AS MADE UP BY THE OPERATOR AND INSTALL THAT INFO INTO
;THE CONFIG FILE
.R TECO
*ERDNCNFG.TXTY
*S;4.8LXO
*S;5.5LXN
*S;6.6LXL
*S;8.5LXU
*S;9.5LXM
*S;10.8LXT
*S;11.5LXC
*EBCN20.P11Y
*SOURNNM=GO
*SMNAME	GN
*SNLINES=GL
*SDUPN=GU
*SDMCN=GM
*SFT.CTY=GC
*STTYN=GT
*EX
;
;CHECK TO SEE IF THER ARE ANY TTYS
;
.ERROR ?
.TE CN20.P11
*SCTY=0
*STTYN=0
*^C
.IF (ERROR) .GOTO HERE
;
;IF NONE USE A DIFFERENT GENERATION UNDER MACDLX
;
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW BUILDING MONITOR FOR DN20 USING INFORMATION FROM
;THE INFORMATION INPUT BY THE OPERATOR
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.R MACDLX
*DN20,DN20.CRF[,]/CRF=CN20,S,MACROS,DNCNFG,DNCOMM,DNNCL,DNDCMP,DNCDMC,DNCDUP,DNDTE,DNLBLK,CHK11
^C
.SILENCE
;
.GOTO DDT
.ERROR
HERE::
.ERROR
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW BUILDING MONITOR FOR DN20 USING INFORMATION FROM
;THE INFORMATION INPUT BY THE OPERATOR
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.R MACDLX
DN20,DN20.CRF[,]/CRF=CN20,S,MACROS,DNCNFG,DNCOMM,DNNCL,DNDCMP,DNNSP,DNDEV,DNDTE,DNCDUP,DNCDMC,DNDZ11,DNTTY,DN2741,DNCTAB,DNDN11,DNRDE,DNTRCE,DNDBG,DNRDA,DNLBLK,CHK11
*^C
.SILENCE
DDT::
.ERROR
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW MAKING A DDT11 WITH THE RIGHT SYMBOLS
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.R DDT11
DN20/S
.SAVE DN20
.SILENCE
;WHICH DTE20 IS THIS DN20 CONNECTED TO?
;LOOK AT DNCNFG.TXT.
.ERROR?
.R TECO
*ERDNCNFG.TXTY
*S;3.S
1

*S;4.
*^C
.IF (ERROR) .GOTO DTE2
;IF HERE MUST BE DTE 1. RENAME PERTINENT FILES
;TO REFLECT DN TYPE AND DTE NUMBER
.NOERROR
.DELETE ?N201.*
.ERROR
.REN DN201.BIN=DN20.BIN
.REN DN201.CRF=DN20.CRF
.REN DN201.EXE=DN20.EXE
.REN CN201.P11=CN20.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN201.BIN IS NOW BUILT FOR THE DN20 AND DTE NUMBER 1
;USE DTELDR TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN20.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN201.P11
.SILENCE
.GOTO DONE
DTE2::
;WHICH DTE20 IS THIS DN20 CONNECTED TO?
;LOOK AT DNCNFG.TXT.
.ERROR ?
.R TECO
*ERDNCNFG.TXTY
*S;3.S
2

*S;4.
*^C
.IF (ERROR) .GOTO DTE3
;IF HERE MUST BE DTE 2. RENAME PERTINENT FILES
;TO REFLECT DN TYPE AND DTE NUMBER
.NOERROR
.DELETE ?N202.*
.ERROR
.REN DN202.BIN=DN20.BIN
.REN DN202.CRF=DN20.CRF
.REN DN202.EXE=DN20.EXE
.REN CN202.P11=CN20.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN202.BIN IS NOW BUILT FOR THE DN20 AND DTE NUMBER 2
;USE DTELDR TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN20.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN202.P11
.SILENCE
.GOTO DONE
DTE3::
;WHICH DTE20 IS THIS DN20 CONNECTED TO?
;LOOK AT DNCNFG.TXT.
.NOERROR
.DELETE ?N203.*
.ERROR ?
.R TECO
*ERDNCNFG.TXTY
*S;3.S
3

*S;4.
*^C
.IF (ERROR) .GOTO PROB
;IF HERE MUST BE DTE 3. RENAME PERTINENT FILES
;TO REFLECT DN TYPE AND DTE NUMBER
.ERROR
.REN DN203.BIN=DN20.BIN
.REN DN203.CRF=DN20.CRF
.REN DN203.EXE=DN20.EXE
.REN CN203.P11=CN20.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN203.BIN IS NOW BUILT FOR THE DN20 AND DTE NUMBER 3
;USE DTELDR TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN20.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN203.P11
.SILENCE
.GOTO DONE
PROB::
.REVIVE
;***************************************************************
;***************************************************************
;THIS DN20 HAS A PROBLEM. RECHECK YOUR ANSWER TO QUESTION
;NUMBER 3.  THE ONLY DTES THAT CONTAIN DN20 ARE 1, 2, OR 3.
;***************************************************************
;***************************************************************
.SILENCE
;
%ERR::
%CERR::
.REVIVE
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
;ERROR IN SMP2NT.MIC.  NOT CONTINUING.  RECHECK YOUR
;WORK AND CALL MFG. ENG. SOFTWARE PERSONNEL IF NECESSARY.
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
.SILENCE
DONE::
%FIN::