Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/smp87d.mic
There is 1 other file named smp87d.mic in the archive. Click here to see a list.
.SILENCE
.R SETSRC
*C /LIB:[10,713]
*^C
.MIC SET NO PARAMETERS
.MAKE CN87.P11
*IOURNNM=.MACRO	NODE	ARG
*	ARG	.ENDM
*FTDM11	=1
*FT.D87=1
*FT.CTY=FT.RNN=0
*SCBMAX	=25
*NLINES=FTHOST=1
*FT2741=0	;WANT 2741 CODE
*DEFBCD=963.	;DEFAULT 2741 ELEMENT
*TTYN=.MACRO	DHCNFG
*TINDX	=0
*TDEF	TINDX,<<RS,9600.>,<XS,9600.>>
*TDEF	TINDX,<<RS,9600.>,<XS,9600.>>
*TDEF	TINDX,<<RS,9600.>,<XS,9600.>>
*TDEF	TINDX,<<RS,9600.>,<XS,9600.>>	
*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;6.6LXL
*S;10.8LXT
*S;11.5LXC
*EBCN87.P11Y
*SOURNNM=GO
*SARG	GN
*SFT.CTY=GC
*SNLINES=GL
*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 CN87.P11
*STTYN=0

*BJ
*SFTDM11	=1-DI0
*EX
.IF (ERROR) .GOTO HERE
;CHECK FOR A CTY ON DN87
;IF NONE USE A DIFFERENT GENERATION UNDER MACDLX
;
.ERROR ?
.TE CN87.P11
*SFT.CTY=1
*^C
.IF (ERROR) .GOTO NOTTY
;
;
HERE::
.ERROR
.REVIVE
;***********************************************************
;
;NOW MAKING DN87 MONITOR WITH MACDLX USING 
;SOURCES AND CONFIGURATION INFO FORM OPERATOR
;
;***********************************************************
.R MACDLX
DN87,DN87.CRF[,]/CRF=CN87,S,MACROS,DNCNFG,DNCOMM,DNNCL,DNDEV,DNDCMP,DNDL10,DNCDDQ,DNCDDH,DNDM11,DNDH11,DNTTY,DN2741,DNCTAB,DNTRCE,DNDBG,DNLBLK,CHK11
.SILENCE
.GOTO DDT
;
NOTTY::
;
;HERE IF NO TTY OR CTY ON DN87
;
.ERROR
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NOW BUILDING MONITOR FOR DN87 USING INFORMATION FROM
;THE INFORMATION INPUT BY THE OPERATOR
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.R MACDLX
DN87,DN87.CRF[,]/CRF=CN87,S,MACROS,DNCNFG,DNCOMM,DNNCL,DNDCMP,DNDL10,DNCDDQ,DNTRCE,DNDBG,DNLBLK,CHK11
^C
.SILENCE
;
.GOTO DDT
;
;
DDT::
;
;
.ERROR
.REVIVE
;***********************************************************
;
;NOW MAKING A DDT11 WITH THE RIGHT SYMBOLS
;
;***********************************************************
.R DDT11
*DN87.CRF/S
*^Z
.SSAVE DN87
.SILENCE
;WHICH DL10 PORT IS THIS DN87 CONNECTED TO?
;LOOK AT DNCNFG.TXT.
.ERROR?
.R TECO
*ERDNCNFG.TXTY
*S;3.S
0

S;4.
*^C
.IF (ERROR) .GOTO DL1
;IF HERE MUST BE DL PORT 0. RENAME PERTINENT FILES
;TO REFLECT DN TYPE AND DL PORT NUMBER
.NOERROR
.DEL ?N870.*
.ERROR
.REN DN870.BIN=DN87.BIN
.REN DN870.CRF=DN87.CRF
.REN DN870.EXE=DN87.EXE
.REN CN870.P11=CN87.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN870.BIN IS NOW BUILT FOR THE DN87 ON DL10 PORT NUMBER 0
;USE BOOT11 TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN87.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN870.P11
.SILENCE
.GOTO DONE
DL1::
.ERROR?
.R TECO
*ERDNCNFG.TXTY
*S;3.S
1

S;4.
*^C
.IF (ERROR) .GOTO DL2
;IF HERE MUST BE DL PORT 1. RENAME PERTINENT FILES
;TO REFLECT DN TYPE AND DL PORT NUMBER
.NOERROR
.DELETE ?N871.*
.ERROR
.REN DN871.BIN=DN87.BIN
.REN DN871.CRF=DN87.CRF
.REN DN871.EXE=DN87.EXE
.REN CN871.P11=CN87.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN871.BIN IS NOW BUILT FOR THE DN87 ON DL10 PORT NUMBER 1
;USE BOOT11 TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN87.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN871.P11
.SILENCE
.GOTO DONE
DL2::
.ERROR?
.R TECO
*ERDNCNFG.TXTY
*S;3.S
2

S;4.
*^C
.IF (ERROR) .GOTO DL3
;IF HERE MUST BE DL PORT 2. RENAME PERTINENT FILES
;TO REFLECT DN TYPE AND DL PORT NUMBER
.NOERROR
.DEL ?N872.*
.ERROR
.REN DN872.BIN=DN87.BIN
.REN DN872.CRF=DN87.CRF
.REN DN872.EXE=DN87.EXE
.REN CN872.P11=CN87.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN872.BIN IS NOW BUILT FOR THE DN87 ON DL10 PORT NUMBER 2
;USE BOOT11 TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN87.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN872.P11
.SILENCE
.GOTO DONE
DL3::
.ERROR?
.R TECO
*ERDNCNFG.TXTY
*S;3.S
3

S;4.
*^C
.IF (ERROR) .GOTO PROB
;IF HERE MUST BE DL PORT 3. RENAME PERTINENT FILES
;TO REFLECT DN TYPE AND DL PORT NUMBER
.NOERROR
.DEL ?N873.*
.ERROR
.REN DN873.BIN=DN87.BIN
.REN DN873.CRF=DN87.CRF
.REN DN873.EXE=DN87.EXE
.REN CN873.P11=CN87.P11
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;DN873.BIN IS NOW BUILT FOR THE DN87 ON DL10 PORT NUMBER 3
;USE BOOT11 TO DOWN LINE LOAD THE NETWORK.
;THE FOLLOWING IS THE CONFIGURATION FILE OF THIS DN87.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.TYPE CN873.P11
.SILENCE
.GOTO DONE
PROB::
.REVIVE
;***************************************************************
;***************************************************************
;
;THERE IS A PROBLEM WITH THE ANSWER FOR QUESTION
;NUMBER 3.  PLEASE GO BACK AND DO NETWRK AGAIN.  PAY PARTICULAR
;ATTENTION TO QUESTION 3.
;
;***************************************************************
;***************************************************************
.SILENCE
;
%ERR::
%CERR::
.REVIVE
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
;ERROR IN SMP87D.MIC.  NOT CONTINUING.  RECHECK YOUR
;WORK AND CALL MFG. ENG. SOFTWARE PERSONNEL IF NECESSARY.
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
.SILENCE
DONE::
%FIN::