Trailing-Edge
-
PDP-10 Archives
-
k20v7c
-
mfg/src/dn20bld.b20
There are no other files named dn20bld.b20 in the archive.
1000 LET DEB = 1
1010 DIM R$(60)
1020 LET P1 = 1
1030 LET FLB = 0
2000 PRINT 'DECNET II DN20BLD'
08410 ![DECNET-PHASE II]
08470 ![FIND OUT ABOUT DN20'S]
08480 INPUT 'How many DN20 front ends (0-3)' n
08490 LET NN = N
08500 if n = 0 goto 99999 !exit to sysjob
08505 input 'Enable IBMCON (Y,N) 'BM$
08506 BM$=EDIT$(BM$,32%)
08510 input 'How many DUPs in DN20 #1' u1
08520 input "How many DMcs in DN20 #1" m1
08530 if n = 1 goto 8590 !do 1
08540 input 'How many DUPs in DN20 #2' U2
08550 INPUT 'How many DMcs in DN20 #2' M2
08560 IF N = 2 goto 8590 !DO 2
08570 INPUT 'How many DUPs in DN20 #3' U3
08580 INPUT 'How many DMCs in DN20 #3' m3
08590 ![begin]
08600 rem [DNLOAD-ATO]
8605 IF BL$ <> 'Y' THEN GOTO 8780
08610 open "<SYSTEM>DNLOAD.ato" for output as file #6,access write UNLESS DEB = 1
08620 open "<UETP.RUN>DNLOAD.ato" for output as file #6,access write UNLESS DEB = 0
08630 PRINT #6: ""
08640 PRINT #6: "CONN UETP"
08650 PRINT #6: ""
08660 PRINT #6: "PUSH"
08670 PRINT #6: "ENA"
08680 PRINT #6: "DNLOAD"
08690 PRINT #6: "LOAD DTE 1 <DN64-BINARIES>D6TK3.BIN DL1:" unless u1 = 0
08700 PRINT #6: "LOAD DTE 2 <DN64-BINARIES>D6TK3.BIN DL2:" unless u2 = 0
08710 PRINT #6: "LOAD DTE 3 <DN64-BINARIES>D6TK3.BIN DL3:" unless u3 = 0
08720 PRINT #6: ""
08730 PRINT #6: "EXIT"
08740 PRINT #6: "POP"
08750 PRINT #6: "^X"
08760 rem [END-MOD]
08770 close #6
08780 REM let a = 65-1 !dec a - 1
08790 LET U = U1
08800 if n = 0 goto 11160 !exit networks
08810 for i = 1 to n !n # of dn20s
08820 let a = 65-1 !dec a - 1
08830 if U = 0 goto 9090 !try dmc
08835 IF LEFT$(BM$,1) <> 'Y' THEN GOTO 9090
08840 if U = 8 then let n1 = 4 \goto 8910 !dup
08850 if U = 6 then let n1 = 3 \goto 8910 !dup
08860 if U = 4 then let n1 = 2 \goto 8910 !dup
08870 if U = 2 then let n1 = 1 \goto 8910 !dup
08880 INPUT 'Must be even DUP (0-8) ARE YOU SURE' ANS$ unless ans$ = 'Y'
08890 ANS$ = EDIT$(ANS$,32%)
08900 IF LEFT$(ANS$,1) <> 'Y' THEN goto 8470 ELSE GOTO 9090 !AND SKIP DUP
08910 ![dup]
08920 for i1 = 1 to n1 !set up pairs of dups
08930 let d1 = i
08940 let d1 = d1 + 48
08950 LET d1$ = CHR$(D1) !dte #
08960 t$ = 'DN1' + d1$ !test
08970 let a = a + 1
08980 LET A$ = CHR$(A)
08990 let p$ = a$ !pair a - d
09000 let r1$ = "1" + d1$ !port
09010 LET I2 = (I1*2) - 2
09020 REM CAL LINES
09030 let w = 48 + I2 !receive line
09040 let w1 = 48 +(i2 + 1) !send line
09050 LET l1$ = CHR$(W) !rec line
09060 LET l2$ = CHR$(W1) !send line
09070 gosub 9280 ![DN64X]
09080 next i1 !up to 4 times for dups
09090 IF I = 1 THEN LET U = U2 ELSE LET U = U3
09100 next i !up to 3 times for dn20s
09110 ![dmc]
09120 let uu = 0
09130 for i = 1 to NN !#of dn20s
09140 IF U <= 4 THEN LET UU = 0
09150 let d = i
09160 let d = d + 48
09170 LET d$ = CHR$(D) !DTE #
09180 s$ = 'tops20' !servername
09190 x$ = '6' + d$ !nodename
09200 p$ = 'DN20N' + d$
09210 if i = 1 then let u = u1\ let m = m1
09220 if i = 2 then let u = u2\ let m = m2
09230 if i = 3 then let u = u3\ let m = m3
09240 if u > 4 then let uu = (u - 4)\ let u = 4
09250 gosub 11980 ![node]
09260 next i
09270 goto 11160 !exit
09280 O$ = '<UETP.LIB>' + T$ + P$ + '.VER' UNLESS DEB = 1
09290 O$ = '<UETP.RUN>' + T$ + P$ + '.VER' UNLESS DEB = 0
09300 open O$ for output as file #11,access write
09310 MARGIN #11: 120
09320 PRINT #11: "!THIS FILE WAS CREATED BY THE ACCEPTANCE CONFIGURATION PROGRAM CONFIG.EXE"
09330 PRINT #11: "! FROM A MODEL OF THE DN64X TESTS"
09340 PRINT #11: ""
09350 PRINT #11: "!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED"
09360 PRINT #11: "! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE."
09370 PRINT #11: "!"
09380 PRINT #11: "!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS."
09390 PRINT #11: "!CONVERTED FROM THE EXERCISER ON NOVEMBER 14, 1977"
09400 PRINT #11: "!"
09410 PRINT #11: "!VERSION 2 11/7/77"
09420 PRINT #11: "@DEF DSK: DSK:,<UETP.LIB>"
09430 PRINT #11: "@I LOG ALL"
09440 PRINT #11: "COM0::"
09450 PRINT #11: "@RUN <UETP.LIB>SENDER"
09460 PRINT #11: "*TYPE START"
09470 PRINT #11: "*BLABEL COM00::"
09480 PRINT #11: "*TEST ";T$;P$![TEST][PAIR]
09490 PRINT #11: "*SEND START OF ";T$;P$![TEST][PAIR]
09500 PRINT #11: "*EXIT"
09510 PRINT #11: "!"
09520 PRINT #11: "!"
09530 PRINT #11: "@DELETE ";T$;"S";P$;".LOG"![TEST]S[PAIR].LOG
09540 PRINT #11: "@SUBMIT <UETP.LIB>";T$;"S";P$;".SEND /OUTPUT:NOLOG /UN2IQUE:0/TIME:00:01:00/AFTER:+00:01:00/PRIO:11"
09550 PRINT #11: "@IF (NOERROR) @GOTO DOTST::"
09560 PRINT #11: "@RUN <UETP.LIB>SENDER"
09570 PRINT #11: "*TYPE ERROR"
09580 PRINT #11: "*BLABEL COM00::"
09590 PRINT #11: "*TEST ";T$;P$![TEST][PAIR]
09600 PRINT #11: "*SEND ERROR SUBMIT'ING THE SENDER SIDE"
09610 PRINT #11: "*EXIT"
09620 PRINT #11: "@GOTO DONE::"
09630 PRINT #11: "!"
09640 PRINT #11: "DOTST::"
09650 PRINT #11: ""
09660 PRINT #11: "!INITIATE RECEIVE PROGRAM"
09670 PRINT #11: "!"
09680 PRINT #11: "!NOW RUN D60SPD TO APPEAR TO BE A LINE PRINTER. IT WILL EXPECT"
09690 PRINT #11: "! TO RECEIVE CARRIAGE CONTROL SEQUENCES. THE DATA RECEIVED WILL"
09700 PRINT #11: "! BE WRITTEN TO THE FILE ";T$;P$;".DAT, TO BE COMPARED AGAINST A CONTROL"
09710 PRINT #11: "! FILE."
09720 PRINT #11: "@ENABLE"
09730 PRINT #11: "@DELETE ";T$;P$;".DAT"![TEST][PAIR].DAT
09740 PRINT #11: "@RUN <UETP.LIB>D60SPD.EXE"
09750 PRINT #11: "*SET SIMULATE/PORT:";R1$;"/LINE:";L1$;"/DEV:0/3780"
09760 PRINT #11: "*NOTYPEAHEAD"
09770 PRINT #11: "*STATUS ALL"
09780 PRINT #11: "*INPUT ";T$;P$;".DAT/TIME:60"![TEST][PAIR].DAT/TIME:60
09790 PRINT #11: "*STATUS ALL"
09800 PRINT #11: "@IF (NOERROR) @GOTO COM7::"
09810 PRINT #11: "@RUN <UETP.LIB>SENDER"
09820 PRINT #11: "*TYPE ERROR"
09830 PRINT #11: "*BLABEL DOTST::"
09840 PRINT #11: "*TEST ";T$;P$![TEST][PAIR]
09850 PRINT #11: "*SEND ERRORS RECEIVING DATA"
09860 PRINT #11: "*EXIT"
09870 PRINT #11: "@GOTO DONE::"
09880 PRINT #11: ""
09890 PRINT #11: "COM7::"
09900 PRINT #11: ""
09910 PRINT #11: "@DISABLE"
09920 PRINT #11: "!NOW RUN A PROGRAM WHICH WILL COMPARE THE RECEIVED DATA "
09930 PRINT #11: "@RUN <UETP.LIB>UETCMP"
09940 PRINT #11: "*COMPARE"
09950 PRINT #11: "*";T$;P$;".DAT"![TEST][PAIR].DAT
09960 PRINT #11: "*SND";R1$;P$;".DAT"![PORT][PAIR].DAT
09970 PRINT #11: "*exit"
09980 PRINT #11: "@IF (NOERROR) @GOTO DONE::"
09990 PRINT #11: "!"
10000 PRINT #11: "@RUN <UETP.LIB>SENDER"
10010 PRINT #11: "*TYPE ERROR"
10020 PRINT #11: "*BLABEL DONE::"
10030 PRINT #11: "*TEST ";T$;P$ ![TEST][PAIR]
10040 PRINT #11: "*SEND ERRORS IN THE RECEIVED FILE ";T$;P$;".DAT"![TEST][PAIR].DAT
10050 PRINT #11: "*EXIT"
10060 PRINT #11: "%ERR::"
10070 PRINT #11: "@RUN <UETP.LIB>SENDER"
10080 PRINT #11: "*TYPE ERROR"
10090 PRINT #11: "*BLABEL DONE::"
10100 PRINT #11: "*TEST ";T$;P$ ![TEST][PAIR]
10110 PRINT #11: "*SEND UNKNOWN ERRORS IN RECEIVE SIDE"
10120 PRINT #11: "*EXIT"
10130 PRINT #11: "!"
10140 PRINT #11: "DONE::"
10150 PRINT #11: "!"
10160 PRINT #11: "%FIN::"
10170 PRINT #11: "@DELETE SND";R1$;P$;".DAT"![PORT][PAIR].DAT
10180 PRINT #11: "@EXPUNGE"
10190 PRINT #11: "@CA BATCH ";T$;"S";P$![TEST]S[PAIR]
10200 PRINT #11: "@CHKPNT ADSF::"
10210 PRINT #11: "@RUN <UETP.LIB>SENDER"
10220 PRINT #11: "*TYPE END"
10230 PRINT #11: "*BLABEL DONE::"
10240 PRINT #11: "*TEST ";T$;P$ ![TEST][PAIR]
10250 PRINT #11: "*SEND END OF TEST"
10260 PRINT #11: "*EXIT"
10270 rem [END-MOD]
10280 PRINT O$, 'FINISHED'
10290 close #11
10300 rem
10310 TS$ = 'ENA ' + T$ + P$
10320 LET P1 = P1 + 1
10330 LET R$(P1) = TS$
10340 rem [DN64SX]
10350 O$ = '<UETP.LIB>' + T$ + 'S' + P$ + '.SEND' UNLESS DEB = 1
10360 O$ = '<UETP.RUN>' + T$ + 'S' + P$ + '.SEND' UNLESS DEB = 0
10370 open O$ for output as file #12,access write
10380 MARGIN #12, 120
10390 PRINT #12: "!THIS FILE WAS CREATED BY THE ACCEPTANCE CONFIGURATION PROGRAM CONFIG.EXE"
10400 PRINT #12: "! FROM A MODEL OF THE DN64SX.SEND FILE"
10410 PRINT #12: "!"
10420 PRINT #12: "!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED"
10430 PRINT #12: "! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE."
10440 PRINT #12: ";"
10450 PRINT #12: "!"
10460 PRINT #12: "!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS."
10470 PRINT #12: "!THIS TEST WAS TAKEN FROM THE EXERCISER ON NOVEMBER 14,1977"
10480 PRINT #12: "!"
10490 PRINT #12: "!VERSION 2 11/7/77"
10500 PRINT #12: "!COMUN1.BAT"
10510 PRINT #12: "!"
10520 PRINT #12: "!BATCH CONTROL FILE"
10530 PRINT #12: "!TO PERFORM COMMUNICATION SEND FUNCTION."
10540 PRINT #12: ""
10550 PRINT #12: "COM00::"
10560 PRINT #12: ""
10570 PRINT #12: "@RUN <UETP.LIB>SENDER"
10580 PRINT #12: "*TYPE MINOR"
10590 PRINT #12: "*BLABEL COM00::"
10600 PRINT #12: "*TEST ";T$;P$ ![TEST][PAIR]
10610 PRINT #12: "*SEND START OF ";T$;"S";P$;" SEND"![TEST]S[PAIR] SEND"
10620 PRINT #12: "*EXIT"
10630 PRINT #12: "!"
10640 PRINT #12: "@ENABLE"
10650 PRINT #12: "!"
10660 PRINT #12: "! NOW SEND THE DATA "
10670 PRINT #12: "!"
10680 PRINT #12: "@COPY <UETP.LIB>DN64.DAT (TO) SND";R1$;P$;".DAT" ![PORT][PAIR].DAT
10690 PRINT #12: "@IF (NOERROR) @GOTO GOSND::"
10700 PRINT #12: "@RUN <UETP.LIB>SENDER"
10710 PRINT #12: "*TYPE ERROR"
10720 PRINT #12: "*BLABEL COM00::"
10730 PRINT #12: "*TEST ";T$;P$ ![TEST][PAIR]
10740 PRINT #12: "*SEND ERROR COPYING DN64.DAT FILE"
10750 PRINT #12: "*EXIT"
10760 PRINT #12: "@GOTO DONE::"
10770 PRINT #12: "!"
10780 PRINT #12: "GOSND::"
10790 PRINT #12: ""
10800 PRINT #12: "@RUN <UETP.LIB>D60SPD.EXE"
10810 PRINT #12: "*SET SUPPORT/PORT:";R1$;"/LINE:";L2$;"/DEV:0/3780"
10820 PRINT #12: "*NOTYPEAHEAD"
10830 PRINT #12: "*STATUS ALL"
10840 PRINT #12: "*OUTPUT SND";R1$;P$;".DAT/TIME:60"
10850 PRINT #12: "*STATUS ALL"
10860 PRINT #12: "@IF (NOERROR) @GOTO DONE::"
10870 PRINT #12: "@RUN <UETP.LIB>SENDER"
10880 PRINT #12: "*TYPE ERROR"
10890 PRINT #12: "*BLABEL DONE::"
10900 PRINT #12: "*TEST ";T$;P$ ![TEST][PAIR]
10910 PRINT #12: "*SEND ERRORS IN SENDING FILE DN64.DAT FROM ";T$;"S";P$ ![TEST]S[PAIR]
10920 PRINT #12: "*EXIT"
10930 PRINT #12: "%ERR::"
10940 PRINT #12: "@RUN <UETP.LIB>SENDER"
10950 PRINT #12: "*TYPE ERROR"
10960 PRINT #12: "*BLABEL DONE::"
10970 PRINT #12: "*TEST ";T$;P$ ! [TEST][PAIR]
10980 PRINT #12: "*SEND UNKNOWN ERRORS IN SEND FROM ";T$;"S";P$ ![TEST]S[PAIR]
10990 PRINT #12: ""
11000 PRINT #12: "*EXIT"
11010 PRINT #12: ""
11020 PRINT #12: "DONE::"
11030 PRINT #12: ""
11040 PRINT #12: "%FIN::"
11050 PRINT #12: "@RUN <UETP.LIB>SENDER"
11060 PRINT #12: "*TYPE MINOR"
11070 PRINT #12: "*BLABEL DONE::"
11080 PRINT #12: "*TEST ";T$;P$ ![TEST][PAIR]
11090 PRINT #12: "*SEND END OF SEND FROM ";T$;"S";P$ ![TEST]S[PAIR]"
11100 PRINT #12: "*EXIT"
11110 rem [END-MOD]
11120 PRINT O$, 'FINISHED'
11130 close #12
11140 RETURN
11150 !STOP
11160 rem [SYSJOB-RUN]
11170 open "<SYSTEM>sysjob.run" for output as file #13,access write UNLESS DEB = 1
11180 open "<UETP.RUN>sysjob.run" for output as file #13,access write UNLESS DEB = 0
11190 PRINT #13: "RUN SYS:MAPPER"
11200 PRINT #13: "RUN SYS:ORION"
11210 PRINT #13: "RUN SYS:NETSER" UNLESS FL$ <> 'Y'
11220! PRINT #13: "RUN SYS:QUASAR"
11230 PRINT #13: "RUN SYS:MOUNTR"
11240 PRINT #13: "RUN SYS:MAILER"
11250 PRINT #13: "RUN SYS:LPTSPL"
11260 PRINT #13: "RUN SYS:LPTSPL"
11270 PRINT #13: "RUN SYS:CDRIVE"
11280 PRINT #13: "RUN SYS:SPRINT"
11290 PRINT #13: "RUN SYS:INFO"
11300 PRINT #13: "JOB 0 /LOG OPERATOR XX OPERATOR"
11310 PRINT #13: "ENA"
11320 PRINT #13: "SET LOGIN PSEUDO"
11330 PRINT #13: "SET LOGIN CONSOLE"
11340 PRINT #13: "SET OPERATOR"
11350 PRINT #13: "PTYCON"
11360 PRINT #13: "GET SYSTEM:PTYCON.ATO"
11370 PRINT # 13: "GET SYSTEM:DNLOAD.ATO" UNLESS BM$ <> 'Y'
11380 PRINT #13: "GET SYSTEM:UETP.ATO" !UNLESS FLB = 1
11390 PRINT #13: "/"
11400 PRINT #13: "JOB 1 /LOG OPERATOR XX OPERATOR"
11410 PRINT #13: "ENA"
11420 PRINT #13: "RUN SYS:BATCON"
11430 PRINT #13: "/"
11440 ![SYSJOB-DECNET]
11450 PRINT #13: "JOB 2 /LOG OPERATOR XX OPERATOR" UNLESS N = 0
11460 PRINT #13: "ENA" UNLESS N = 0
11470 PRINT #13: "RUN SYS:FAL" UNLESS N = 0
11480 PRINT #13: "/" UNLESS N = 0
11490 PRINT #13: "JOB 3 /LOG OPERATOR XX OPERATOR" UNLESS N = 0
11500 PRINT #13: "ENA" UNLESS N = 0
11510 PRINT #13: "RUN SYS:NETCON" UNLESS N = 0
11520 PRINT #13: "/" UNLESS N = 0
11530 ![END-MOD]
11540 PRINT #13: "JOB 4 /LOG OPERATOR XX OPERATOR" !UNLESS S1 < 768
11550 PRINT #13: "ENA" !UNLESS S1 < 768
11560 PRINT #13: "RUN SYS:BATCON" !UNLESS S1 < 768
11570 PRINT #13: "/" !UNLESS S1 < 768
11580 ![END-MOD]
11590 PRINT #13: "JOB 5 /LOG OPERATOR XX OPERATOR"
11600 PRINT #13: "ENA"
11610 PRINT #13: "RUN <MFG>UPTIME"
11620 PRINT #13: "/"
11630 ![END-MOD]
11640 close #13
11650 GOTO 99999
11980 rem [NODE-BLD1]
11990 rem @ENA
12000 O$ = '<MFG>' + P$ + '.BLD1' UNLESS DEB = 1
12010 O$ = '<UETP.RUN>' + P$ + '.BLD1' UNLESS DEB = 0
12020 open O$ for output as file #15,access write
12030 PRINT #15: "@ENA"
12040 PRINT #15: "@BUILD <DN20-";D$;">"
12050 PRINT #15: "@PERM 750"
12060 PRINT #15: "@WORKING 750"
12070 PRINT #15: "@USER 4747"
12080 PRINT #15: "@PASS F-S"
12090 PRINT #15: "@"
12100 PRINT #15: "@DELETE <DN20-";D$;">*.*,"
12110 PRINT #15: "@EXP"
12120 PRINT #15: "@"
12130 PRINT #15: "@DEFINE *"
12140 PRINT #15: "@"
12150 PRINT #15: "DEFINE GEN: PS:<DNGEN>,PS:<DNGEN.CMDS>"
12160 PRINT #15: "DEFINE DN20: PS:<DN20-";D$;">"
12170 PRINT #15: "DEFINE DSK: DSK:,GEN:"
12180 PRINT #15: "CONN DN20:"
12190 PRINT #15: "ACCESS DN20:"
12200 PRINT #15: "@TAKE GEN:DN20BLD.CMD"
12210 PRINT #15: "@NETGEN"
12220 PRINT #15: ";FIRST EXCLUDE THE DEFAULTS"
12230 PRINT #15: "EXCLUDE KDP 0"
12240 PRINT #15: "EXCLUDE DTE 1"
12250 PRINT #15: ";NOW CONFIGURE"
12260 PRINT #15: "NODE NAME ";P$![NODENAME]"
12270 PRINT #15: "NODE NUMBER ";X$![NODENUMBER]"
12280 PRINT #15: "NODE TYPE DN20"
12290 REM ")INCLUSIONS INSERTED HERE"
12300 LET DUP$ = STR$(U)
12310 LET DUU$ = STR$(UU)
12320 PRINT #15: "INCLUDE DTE ";D$ UNLESS M = 0
12330 PRINT #15: "INCLUDE DMC 0" UNLESS M < 1
12340 PRINT #15: "INCLUDE DMC 1" UNLESS M < 2
12350 PRINT #15: "INCLUDE DMC 2" UNLESS M < 3
12360 PRINT #15: "INCLUDE DMC 3" UNLESS M < 4
12370 PRINT #15: "INCLUDE KDP 0" UNLESS U = 0
12380 PRINT #15: DUP$ UNLESS U = 0
12390 PRINT #15: "INCLUDE KDP 1" UNLESS UU = 0
12400 PRINT #15: DUU$ UNLESS UU = 0
12410 REM
12420 PRINT #15: "INFO"
12430 PRINT #15: "SAVE "
12440 PRINT #15: "FINISH"
12450 PRINT #15: "EXIT"
12460 PRINT #15: "@SUBMIT BUILD-ALL.CTL/TIME:15/OUTPUT:NOLOG/NOTIFY:YES"
12470 PRINT #15: "@DEFINE *"
12480 PRINT #15: "@"
12490 PRINT #15: "@INF BATCH"
12500 PRINT #15: ";*******************************************"
12510 PRINT #15: ";WAIT 'TIL THE BATCH JOB FINISHES EXECUTION"
12520 PRINT #15: ";THEN TYPE:"
12530 PRINT #15: ";DO <MFG>DN20N";D$;".BLD2"
12540 PRINT #15: ";*******************************************"
12550 ![END-MOD]
12560 PRINT O$, 'FINISHED'
12570 CLOSE #15
12580 ![NODE-BLD2]
12590 O$ = '<MFG>' + P$ + '.BLD2' UNLESS DEB = 1
12600 O$ = '<UETP.RUN>' + P$ + '.BLD2' UNLESS DEB = 0
12610 OPEN O$ FOR OUTPUT AS FILE #4, ACCESS WRITE
12620 PRINT #4: "@ENA"
12630 PRINT #4: "@DEFINE *"
12640 PRINT #4: "@"
12650 PRINT #4: "DEFINE GEN: PS:<DNGEN>,PS:<DNGEN.CMDS>"
12660 PRINT #4: "DEFINE DN20: PS:<DN20-";D$;">"
12670 PRINT #4: "DEFINE DSK: DSK:,GEN:"
12680 PRINT #4: "CONN DN20:"
12690 PRINT #4: "ACCESS DN20:"
12700 PRINT #4: ";TAKES A COUPLE MINUTES TO RUN VNP20"
12710 PRINT #4: "@R VNP20"
12720 PRINT #4: "@COPY PS:<DN20-";D$;">";P$;".SYS <SUBSYS>";P$;".SYS"
12730 PRINT #4: "@DEFINE *"
12740 PRINT #4: "@"
12750 PRINT #4: ";DONE"
12760 PRINT O$, 'FINISHED'
12770 CLOSE #4
12780 rem [END-MOD]
12790 rem [NCP-CMD]
12800 O$ = '<MFG>' + P$ + '.CMD' UNLESS DEB = 1
12810 O$ = '<UETP.RUN>' + P$ + '.CMD' UNLESS DEB = 0
12820 open O$ for output as file #16,access write
12830 PRINT #16: "ENTER NCP"
12840 PRINT #16: "SET EXECUTOR ";S$! [SERVERNAME]"
12850 PRINT #16: "SET SECONDARY-LOAD-FILE DTE20 PDP-11 PS:<SUBSYS>DTEMPS.BIN"
12860 PRINT #16: "SET TERTIARY-LOAD-FILE DTE20 PDP-11 PS:<SUBSYS>DTEMPT.BIN"
12870 PRINT #16: "SET NODE ";P$;" SERVER ";S$;" DTE20_";D$
12880 PRINT #16: "SET NODE ";P$;" LOAD-FILE PS:<SUBSYS>";P$;".SYS"
12890 PRINT #16: "SET NODE ";P$;" DUMP-FILE PS:<SUBSYS>";P$;".DMP"
12900 PRINT #16: "SET NODE ";P$;" PROTOCOL-TYPE NETWORK-SERVICES-PROTOCOL"
12910 PRINT #16: "LOAD NODE ";P$ ![NODENAME]
12920 PRINT #16: "SHOW QUEUE NCP-REQUESTS"
12930 PRINT #16: "RETURN"
12940 ![END-MOD]
12950 PRINT O$, 'FINISHED'
12960 close #16
12970 rem
12980 rem [NODE-TST1]
12990 O$ = '<MFG>' + P$ + '.TST1' UNLESS DEB = 1
13000 O$ = '<UETP.RUN>' + P$ + '.TST1' UNLESS DEB = 0
13010 open O$ for output as file #17,access write
13020 PRINT #17: "OPR"
13030 PRINT #17: "ENTER NCP"
13040 PRINT #17: "SET EXECUTOR ";P$;""
13050 PRINT #17: "SET NODE ";P$;":: AUTO-LOAD DISABLED"
13060 PRINT #17: "SET NODE ";P$;":: AUTO-DUMP DISABLED"
13070 PRINT #17: "SET STATE LINE DMC11_0 MAINTENANCE" UNLESS M<1
13080 PRINT #17: "SET STATE LINE DMC11_1 MAINTENANCE" UNLESS M<2
13090 PRINT #17: "PUSH"
13100 PRINT #17: "ENA"
13110 PRINT #17: "PAUSE"
13120 PRINT #17: "POP"
13130 PRINT #17: "SET STATE LINE DMC11_2 MAINTENANCE" UNLESS M<3
13140 PRINT #17: "SET STATE LINE DMC11_3 MAINTENANCE" UNLESS M<4
13150 PRINT #17: "PUSH"
13160 PRINT #17: "ENA"
13170 PRINT #17: "PAUSE"
13180 PRINT #17: "POP"
13190 PRINT #17: "SHOW Q NCP"
13200 PRINT #17: "SHOW STATUS KNOWN LINES"
13210 PRINT #17: "RETURN"
13220 PRINT #17: "EXIT"
13230 PRINT #17: ";"
13240 PRINT #17: ";Attach the loopback connectors to the DMC's and type"
13250 PRINT #17: ";DO <MFG>";P$;".TST2"
13260 PRINT #17: ";"
13270 rem [END-MOD]
13280 close #17
13290 rem
13300 rem [NODE-TST2]
13310 O$ = '<MFG>' + P$ + '.TST2' UNLESS DEB =1
13320 O$ = '<UETP.RUN>' + P$ + '.TST2' UNLESS DEB = 0
13330 open O$ for output as file #18,access write
13340 PRINT #18: "OPR"
13350 PRINT #18: "ENTER NCP"
13360 PRINT #18: "SET EXECUTOR ";P$;""
13370 PRINT #18: "LOOP LINE DMC11_0 COUNT 2000 LENGTH 255 WITH MIXED" UNLESS M<1
13380 PRINT #18: "LOOP LINE DMC11_1 COUNT 2000 LENGTH 255 WITH MIXED" UNLESS M<2
13390 PRINT #18: "PUSH"
13400 PRINT #18: "ENA"
13410 PRINT #18: "PAUSE"
13420 PRINT #18: "POP"
13430 PRINT #18: "LOOP LINE DMC11_2 COUNT 2000 LENGTH 255 WITH MIXED" UNLESS M<3
13440 PRINT #18: "LOOP LINE DMC11_3 COUNT 2000 LENGTH 255 WITH MIXED" UNLESS M<4
13450 PRINT #18: "SHOW Q NCP"
13460 PRINT #18: ";"
13470 PRINT #18: ";to determine if the lines are still looping type:"
13480 PRINT #18: ";SHOW Q NCP"
13490 PRINT #18: ";"
13500 PRINT #18: ";to see how many blocks have been transfered thus far type:"
13510 PRINT #18: ";SHOW COUNTS LINE DMC11_n to examine the the blocks transfered"
13520 PRINT #18: ";where n is the DMC number (0-3)"
13530 rem [END-MOD]
13540 PRINT O$, 'FINISHED'
13550 close #18
13560 rem
13570 RETURN
99999 END