.SILENCE
;THIS FILE IS USED TO BUILD A DUMMY FILE FOR
;A NETWORK CONFIGURATION. THE TYPE OF NETWORK, AND
;THE NUMBER OF NETWORK NODES TO BE BUILT MUST BE
;DETERMINED BEFORE THE DUMMY FILE CAN BE BUILT.
;AFTER THE DUMMY FILE IS BUILT, THE APPROPRIATE
;MIC FILE IS CALLED AND EXECUTED.
;THESE FILES ARE:
; DN87D.MIC FOR A DN87 ON A DL10
; DN87S.MIC FOR A DN87S ON A 1090/1091
; DN20.MIC FOR A DN20
START::
.REVIVE
.R PIP
*DSK:DNCNFG.TXT=TTY:
;????????????????????????????????????????????????????????
;1.HOW MANY MORE DN87/DN20 NETWORKS ARE THERE LEFT TO
;BUILD? COUNT THE NUMBER OF DTE20'S WITH DN87S/DN20,
;AND/OR DL10 PORTS IN USE. ANSWER WITH THAT NUMBER
;FOLLOWED BY <CR> CNTRL P. NOTE-IF YOUR ANSWER IS
;MORE THAN ONE FOR THIS QUESTION, ONLY ANSWER
;THE FOLLOWING QUESTIONS FOR ONE NETWORK AT A TIME.
;????????????????????????????????????????????????????????
1-^B
;????????????????????????????????????????????????????????
;2.WHAT KIND OF NETWORK DO YOU HAVE? ANSWER WITH
;T (FOR DN20), S (FOR DN87S), OR L (FOR DN87/DL10).
;FOLLOWED BY A CARRIAGE RETURN AND CNTRL P
;????????????????????????????????????????????????????????
2-^B
;????????????????????????????????????????????????????????
;3.TO WHICH DTE20/DL10 PORT IS THE DN20/DN87 CONNECTED.
;TYPE NUMBER FOLLOWED BY <CR> CNTRL P
;????????????????????????????????????????????????????????
3-^B
;????????????????????????????????????????????????????????
;4.TYPE A UNIQUE 2 DIGIT OCTAL NUMBER AS THE NODE NUMBER
;OF THIS NETWORK. THIS NUMBER CANNOT BE USED FOR ANY
;OTHER NETWORK ON THE SYSTEM. NOTE THAT THE CPU ALREADY
;HAS 10 AS ITS NUMBER AND THEREFORE CANNOT BE USED.
;TYPE THE NUMBER FOLLOWED BY <CR> CNTRL P
;????????????????????????????????????????????????????????
4-^B
;????????????????????????????????????????????????????????
;5.TYPE A UNIQUE FOUR LETTER ABBREVIATON OF THE CUSTOMER
;NAME ENCLOSED IN "<>" FOLLOWED BY <CR> CNRTL P
;????????????????????????????????????????????????????????
5-^B
;????????????????????????????????????????????????????????
;6.TYPE THE TOTAL NUMBER OF SYNCHRONOUS LINES ON THIS
;NETWORK FOLLOWED BY <CR> CNTRL P
;NOTE-SYNCHRONOUS LINES INCLUDE DQ11, DUP11, DMC11
;????????????????????????????????????????????????????????
6-^B
;????????????????????????????????????????????????????????
;7.TYPE THE NUMBER OF DQ11S ON THIS NETWORK
;FOLLOWED BY <CR> CNTRL P
;????????????????????????????????????????????????????????
7-^B
;????????????????????????????????????????????????????????
;8.TYPE THE NUMBER OF DUP11S ON THIS NETWORK
;FOLLOWED BY <CR> CNTRL P
;????????????????????????????????????????????????????????
8-^B
;????????????????????????????????????????????????????????
;9.TYPE THE NUMBER OF DMC11S ON THIS NETWORK
;FOLLOWED BY <CR> CNTRL P
;????????????????????????????????????????????????????????
9-^B
;????????????????????????????????????????????????????????
;10.HOW MANY TTY LINES ON THIS DN87/DN20. ANSWER THIS
;QUESTION WITH AN OCTAL NUMBER. COUNT THE NUMBER OF
;DH11S AND MULTIPLY BY 20(8). COUNT THE NUMBER OF DZ11S
;AND MULTIPLY BY 10(8).
;TYPE THIS OCTAL NUMBER FOLLOWED BY <CR> CNRTL P
;????????????????????????????????????????????????????????
10-^B
;????????????????????????????????????????????????????????
;11.DOES THIS DN87/DN20 HAVE A CTY. ANSWER WITH
;1 (FOR YES) OF 0 (FOR NO), FOLLOWED BY <CR> CNTRL P
;????????????????????????????????????????????????????????
11-^B
^Z
^C
.SILENCE
;WHAT KIND OF FRONT END ARE WE DOING
.ERROR ?
.R TECO
*ERDNCNFG.TXTY
*N2-T
*^C
.IF (ERROR) .GOTO DN87S
;
;
;
DN20::
;
;
.DO DN20.MIC[35,1414]
;
.GOTO AGAIN
;
;
DN87S::
;
;
;****MAKE SURE THIS IS FOR A DN87S
;
.ERROR ?
.R TECO
*ERDNCNFG.TXTY
*N2-S
*^C
.IF (ERROR) .GOTO DL10
;
;
;***IF HERE MUST BE DN87S
;
;
;
.DO DN87S[35,1414]
;
.GOTO AGAIN
;
;
DL10::
;
;
;****CHECK FOR DL10
;
.ERROR ?
.R TECO
*ERDNCNFG.TXTY
*N2-L
*^C
.IF (ERROR) .GOTO ERR1
;
;****IF HERE MUST BE DN87D
;
;
.DO DN87D[35,1414]
;
;
.GOTO AGAIN
ERR1::
;
.REVIVE
;??????????????????????????????????????????????????????????
;??????????????????????????????????????????????????????????
;
;YOU HAVE MADE AN ERROR IN THE DIALOGUE. RESTARTING
;NETWRK.MIC AGAIN. PAY PARTICULAR ATTENTION
;TO QUESTION 2.
;
;??????????????????????????????????????????????????????????
;??????????????????????????????????????????????????????????
.SILENCE
.BACKTO START
;
;
%ERR::
%CERR::
.REVIVE
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
;ERROR IN NETWRK.MIC. NOT CONTINUING. RECHECK YOUR
;WORK AND CALL MFG. ENG. SOFTWARE PERSONNEL IF NECESSARY.
;???????????????????????????????????????????????????????????????
;???????????????????????????????????????????????????????????????
.SILENCE
.GOTO END
AGAIN::
;DO WE HAVE TO BUILD ANOTHER NET FOR THIS SYSTEM.
;CHECK DNCNFG.TXT. IF NOT GOTO END.
.ERROR ?
.R TECO
*ERDNCNFG.TXTY
*S1-1
*S2-
*^C
.IF (NOERROR) .GOTO DONE
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;THIS FILE HAS FINISHED FOR THIS NETWRK.
;NOW RESTARTING NETWRK.MIC. ANSWER QUESTION NUMBER 1
;WITH THE TOTAL NETWRKS LEFT TO BE BUILT.
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.SILENCE
.BACKTO START
DONE::
.REVIVE
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;
;NETWRK.MIC COMPLETED.
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
.SILENCE
END::
%FIN::