Trailing-Edge
-
PDP-10 Archives
-
k20v7c
-
mfg/src/dn200.b20
There are no other files named dn200.b20 in the archive.
00100 print "DN200 DECNET V2.1"
00110 OPEN "DN200.BLD1" FOR OUTPUT AS FILE #1
00120 print #1: "@ENA"
00130 print #1: "@ERROR"
00140 print #1: "@BUILD <DN200-1>"
00150 print #1: "@PERM 750"
00160 print #1: "@WORKING 750"
00170 print #1: "@USER 4747"
00180 print #1: "@PASS F-S"
00190 print #1: "@"
00200 print #1: "@DELETE <DN200-1>*.*,"
00210 print #1: "@EXP"
00220 print #1: "@"
00230 print #1: "@DEFINE *"
00240 print #1: "@"
00250 print #1: "DEFINE GEN: PS:<DNGEN>,PS:<DNGEN.CMDS>"
00260 print #1: "DEFINE DN200: PS:<DN200-1>"
00270 print #1: "DEFINE DSK: DSK:,GEN:"
00280 print #1: "CONN DN200:"
00290 print #1: "ACCESS DN200:"
00300 print #1: "@TAKE GEN:DN200BLD.CMD,"
00310 PRINT #1: "@ECHO"
00320 PRINT #1: "@"
00330 print #1: "@NETGEN"
00340 print #1: ";FIRST EXCLUDE THE DEFAULTS"
00350 print #1: ";EXCLUDE KDP 0"
00360 print #1: ";EXCLUDE DTE 1"
00370 print #1: ";NOW CONFIGURE"
00380 print #1: "NODE NAME DN200"
00390 print #1: "NODE NUMBER 62"
00400 print #1: "NODE TYPE DN200"
00410 PRINT #1: ";EXCLUDE CARD-READER"
00420 PRINT #1: ";EXCLUDE LINE-PRINTER"
00430 print #1: ";INCLUDE DMC 0" !DEFAULT
00440 PRINT #1: ";INCLUDE DMC1" !ETC.
00450 PRINT #1: ";INCLUDE KDP 0" !KMC11
00460 PRINT #1: ";1" !DUP-11 ON KMC11
00470 PRINT #1: ";INCLUDE KDP 1"
00480 PRINT #1: ";1"
00490 PRINT #1: ";INCLUDE DUP 0" !DUP-11 NOT ON KMC11
00500 print #1: "INFO" !NOTE ONE DUP11 ON 32K
00510 print #1: "SAVE "
00520 print #1: "FINISH"
00530 print #1: "EXIT"
00540 print #1: "@SUBMIT BUILD-ALL.CTL/TIME:15/OUTPUT:NOLOG/NOTIFY:YES"
00550 print #1: "@DEFINE *"
00560 print #1: "@"
00570 print #1: "@INF BATCH"
00580 print #1: ";*******************************************"
00590 print #1: ";WAIT 'TIL THE BATCH JOB FINISHES EXECUTION"
00600 print #1: ";THEN TYPE:"
00610 print #1: ";DO <MFG>DN200.BLD2"
00620 print #1: ";*******************************************"
00630 print #1: "%FIN::"
00640 REM
00650 OPEN "DN200.BLD2" FOR OUTPUT AS FILE #2
00660 print #2: "@ENA"
00670 print #2: "@ERROR"
00680 print #2: "@DEFINE *"
00690 print #2: "@"
00700 print #2: "DEFINE GEN: PS:<DNGEN>,PS:<DNGEN.CMDS>"
00710 print #2: "DEFINE DN200: PS:<DN200-1>"
00720 print #2: "DEFINE DSK: DSK:,GEN:"
00730 print #2: "CONN DN200:"
00740 print #2: "ACCESS DN200:"
00750 print #2: ";TAKES A COUPLE MINUTES TO RUN VNP20"
00760 print #2: "@R VNP20"
00770 print #2: "@COPY PS:<DN200-1>DN200.SYS <SUBSYS>DN200.SYS"
00780 PRINT #2: "@COPY GEN:SECDMC.SYS <SUBSYS>SECDMC.SYS"
00790 PRINT #2: "@COPY GEN:TERDMC.SYS <SUBSYS>TERDMC.SYS"
00800 print #2: "@DEFINE *"
00810 print #2: "@"
00820 print #2: ";DONE"
00830 print #2: "%FIN::"
00840 REM
00850 OPEN "DN200.CMD" FOR OUTPUT AS FILE #4
00860 print #4: "ENTER NCP"
00870 print #4: "SET EXECUTOR tops20"
00880 print #4: "SET SECONDARY-LOAD-FILE DMC PDP-11 PS:<SUBSYS>SECDMC.SYS"
00890 print #4: "SET TERTIARY-LOAD-FILE DMC PDP-11 PS:<SUBSYS>TERDMC.SYS"
00900 print #4: "SET NODE DN200 SERVER DN20N1 DMC_0"
00910 print #4: "!SET NODE DN200 SERVER DN20N1 KDP_0_0"
00920 print #4: "SET NODE DN200 LOAD-FILE PS:<SUBSYS>DN200.SYS"
00930 print #4: "SET NODE DN200 DUMP-FILE PS:<SUBSYS>DN200.DMP"
00940 print #4: "SET NODE DN200 PROTOCOL-TYPE NETWORK-SERVICES-PROTOCOL"
00950 print #4: "LOAD NODE DN200"
00960 print #4: "SHOW QUEUE NCP-REQUESTS"
00970 print #4: "RETURN"
00980 REM
00990 OPEN "DN200.TST1" FOR OUTPUT AS FILE #5
01000 print #5: "OPR"
01010 print #5: "ENTER NCP"
01020 print #5: "SET EXECUTOR DN20N1"
01030 print #5: "SET NODE DN20N1:: AUTO-LOAD DISABLED"
01040 print #5: "SET NODE DN20N1:: AUTO-DUMP DISABLED"
01050 print #5: "SET STATE LINE DMC11_0 MAINTENANCE"
01060 PRINT #5: "!SET STATE LINE KDP_0_0 MAINTENANCE"
01070 print #5: "PUSH"
01080 print #5: "ENA"
01090 print #5: "PAUSE"
01100 print #5: "POP"
01110 print #5: "PUSH"
01120 print #5: "ENA"
01130 print #5: "PAUSE"
01140 print #5: "POP"
01150 print #5: "SHOW Q NCP"
01160 print #5: "SHOW STATUS KNOWN LINES"
01170 print #5: "RETURN"
01180 print #5: "EXIT"
01190 print #5: ";"
01200 print #5: ";Attach the loopback connectors to the DMC's and type"
01210 print #5: ";DO <MFG>DN20N1.TST2"
01220 print #5: ";"
01230 REM
01240 OPEN "DN200.TST2" FOR OUTPUT AS FILE #6
01250 print #6: "OPR"
01260 print #6: "ENTER NCP"
01270 print #6: "SET EXECUTOR DN20N1"
01280 print #6: "LOOP LINE DMC11_0 COUNT 2000 LENGTH 255 WITH MIXED"
01290 print #6: "PUSH"
01300 print #6: "ENA"
01310 print #6: "PAUSE"
01320 print #6: "POP"
01330 print #6: "SHOW Q NCP"
01340 print #6: ";"
01350 print #6: ";to determine if the lines are still looping type:"
01360 print #6: ";SHOW Q NCP"
01370 print #6: ";"
01380 print #6: ";to see how many blocks have been transfered thus far type:"
01390 print #6: ";SHOW COUNTS LINE DMC11_n to examine the the blocks transfered"
01400 print #6: ";where n is the DMC number (0-3)"
01410 CLOSE #1
01420 CLOSE #2
01430!CLOSE #3
01440 CLOSE #4
01450 CLOSE #5
01460 CLOSE #6
01470 END