Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/smp8nt.mic
There is 1 other file named smp8nt.mic in the archive. Click here to see a list.
.SILENCE
.R SETSRC
*C /LIB:[10,713]
*^C
.MIC SET NO PARAMETERS
;MAKE A CONFIG FILE FOR A DN87S WITH THE
;STANDARD SWITCHES SET
.MAKE CN87S.P11
*IOURNNM=.MACRO	NODE	MNAME
*	MNAME	.ENDM
*FT.87S=1
*SCBMAX=25
*FTHOST=1
*FTDM11=1
*FTDH11=1
*FT.RNN=0
*FT2741	=0
*DEFBCD	=963.	;DEFAULT TYPEBALL
*NGHMAX=6
*FT.CTY=CTYRNN=26
*DQN=DMCN=NLINES=DQN+DMCN
TTYN=	.MACRO	L	LN,R,X
*	T'LN'RS=R'.
*	T'LN'XS=X'.
*	.ENDM	L
*
*L	0,9600,9600	;THESE LINES
*L	1,9600,9600	;ARE SET
*L	2,9600,9600	;FOR 9600
*L	3,9600,9600	;BAUD
*
*.MACRO DHCNFG
*DHUSE(TTYN,0,0,0,0,0)
*.ENDM
*
*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;7.5LXL
*S;9.5LXM
*S;10.8LXT
*S;11.5LXC
*EBCN87S.P11Y
*SOURNNM=GO
*SMNAME	GN
*SFT.CTY=GC
*SDQN=GL
*SDMCN=GM
*STTYN=GT
*EX
;
;
;LETS MAKE SURE THAT THE FTDM11 SWITCH DOES NOT
;HAVE TO BE RESET.  IF TTYN=0 IS TRUE
;CHANGE FTDM11 SWITCH TO 0
.ERROR ?
.TE CN87S.P11
*STTYN=0

*BJ
*SFTDM11=1-DI0
*SFTDH11=1-DI0
*EX
.IF (ERROR) .GOTO HERE
;
;CHECK FOR A CTY ON DN87S
;IF NONE USE A DIFFERENT GENERATION UNDER MACDLX
;
.ERROR ?
.TE CN87S.P11
*SFT.CTY=0
*BJ
*SFTHOST=DI0
*^C
.IF (NOERROR) .GOTO NOTTY
;
;
HERE::
.ERROR
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW BUILDING MONITOR FOR DN87S USING INFORMATION FROM
;THE INFORMATION INPUT BY THE OPERATOR
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.R MACDLX
*DN87S,DN87S.CRF[,]/CRF=CN87S,S,MACROS,DNCNFG,DNCOMM,DNNCL,DNNSP,DNDEV,DNDCMP,DNDTE,DNCDDQ,DNCDMC,DNCDDH,DNDM11,DNDH11,DNTTY,DN2741,DNCTAB,DNDN11,DNRDA,DNRDE,DNTRCE,DNDBG,DNLBLK,CHK11
^C
.SILENCE
;
.GOTO DDT
;
NOTTY::
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW BUILDING MONITOR FOR DN87S USING INFORMATION FROM
;THE INFORMATION INPUT BY THE OPERATOR
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.R MACDLX
*DN87S,DN87S.CRF[,]/CRF=CN87S,S,MACROS,DNCNFG,DNCOMM,DNNCL,DNDCMP,DNCDMC,DNCDDQ,DNDTE,DNLBLK,CHK11
^C
.SILENCE
;
DDT::
.ERROR
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW MAKING A DDT11 WITH THE RIGHT SYMBOLS
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.R DDT11
*DN87S.CRF/S
*^Z
.SSAVE DN87S
.SILENCE
;WHICH DTE20 IS THIS DN87S 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 ?N87S1.*
.ERROR
.REN DN87S1.BIN=DN87S.BIN
.REN DN87S1.CRF=DN87S.CRF
.REN DN87S1.EXE=DN87S.EXE
.REN CN87S1.P11=CN87S.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN87S1.BIN IS NOW BUILT FOR THE DN87S AND DTE NUMBER 1
;USE DTELDR TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN87S.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN87S1.P11
.SILENCE
.GOTO DONE
DTE2::
;WHICH DTE20 IS THIS DN87S 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 ?N87S2.*
.ERROR
.REN DN87S2.BIN=DN87S.BIN
.REN DN87S2.CRF=DN87S.CRF
.REN DN87S2.EXE=DN87S.EXE
.REN CN87S2.P11=CN87S.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN87S2.BIN IS NOW BUILT FOR THE DN87S AND DTE NUMBER 2
;USE DTELDR TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN87S.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN87S2.P11
.SILENCE
.GOTO DONE
DTE3::
;WHICH DTE20 IS THIS DN87S CONNECTED TO?
;LOOK AT DNCNFG.TXT.
.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
.NOERROR
.DELETE ?N87S3.*
.ERROR
.REN DN87S3.BIN=DN87S.BIN
.REN DN87S3.CRF=DN87S.CRF
.REN DN87S3.EXE=DN87S.EXE
.REN CN87S3.P11=CN87S.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN87S3.BIN IS NOW BUILT FOR THE DN87S AND DTE NUMBER 3
;USE DTELDR TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN87S.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN87S3.P11
.SILENCE
.GOTO DONE
PROB::
.REVIVE
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
;THIS DN87S HAS A PROBLEM. RECHECK YOUR ANSWER TO QUESTION
;NUMBER 3.  THE ONLY DTES THAT CONTAIN DN87S ARE 1, 2, OR 3.
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
.SILENCE
.GOTO DONE
;
%ERR::
%CERR::
.REVIVE
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
;ERROR IN SMP8NT.MIC.  NOT CONTINUING.  RECHECK YOUR
;WORK AND CALL MFG. ENG. SOFTWARE PERSONNEL IF NECESSARY.
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
.SILENCE
DONE::
%FIN::