Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/dn20.mic
There is 1 other file named dn20.mic in the archive. Click here to see a list.
.SILENCE
.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=12
*SEQNGH=1
*.MACRO DHCNFG
*TINDX=0			;STARTING AT DZ #0, LINE #0
*.REPT 200
*	TDEF	TINDX,<<XS,9600.>,<RS,9600.>>
*.ENDR
*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
*S4-XO
*S5-XN
*S6-XL
*S8-XU
*S9-XM
*S10-XT
*S11-XC
*EBCN20.P11Y
*SOURNNM=GO
*SMNAME	GN
*SNLINES=GL
*SDUPN=GU
*SDMCN=GM
*SFT.CTY=GC
*STTYN=GT
*EX
HERE::
.ERROR
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW BUILDING MONITOR FOR DN20 USING INFORMATION FROM
;THE INFORMATION INPUT BY THE OPERATOR
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.PATH LIB:/SEARCH=KLAD:[10,70113],KLAD:[10,7]
.R MACDLX
DN20,DN20.CRF[,]/CRF=CN20,S,MACROS,DNCNFG,DNCOMM,DNNCL,DNDEV,DNNSP,DNNSP3,DNDCMP,DNDTE,DNCDDQ,DNCDDS,DNCDDP,DNCDUP,DNCDMC,DNDZ11,DNTTY,DNRDA,DNRDE,DN2741,DNCTAB,DNDN11,DNLPT,DNCRD,DNTSK,TSKTST,DNTRCE,DNDBG,DNLBLK,CHK11
*^C
.SILENCE
.ERROR
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW MAKING A DDT11 WITH THE RIGHT SYMBOLS
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.PATH /CLEAR
.R DDT11
DN20/S
.SAVE DN20
.SILENCE
;WHICH DTE20 IS THIS DN20 CONNECTED TO?
;LOOK AT DNCNFG.TXT.
.ERROR?
.R TECO
*ERDNCNFG.TXTY
*S3-1
*^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
*S3-2
*^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
*S3-3
*^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 DN20.MIC.  NOT CONTINUING.  RECHECK YOUR
;WORK AND CALL MFG. ENG. SOFTWARE PERSONNEL IF NECESSARY.
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
.SILENCE
DONE::
%FIN::