Cœ7$ ?BOOT-U-No boot on volume €ß‹tÿý€”vÿú€ÿðÿÿÿSŽBA-JC38C-BC UP RX02 - 3 DECRT11A „\Xîe%P„â–,%A„ –,%„­–,%„ãL–,%„ƒ…–,%1„\Xƒ:%D„»Wƒ^„»W“ƒ^„¼WHX^„¼WKX^„ê'Þ<„ßfê'<„ó`%^a„èf€\^„èfÐ\^„èf$^„èfÀ{^„iw s^„*y}ü)„m+<„m+ó`^‡„úŠÍ€^„»zÄ…^„€pkQ„úŠkQ„é`^„ó`×3kQÕ9gô&.; .; N E T P L N . C O M .; .; DECnet-RT Network Planning Procedure. .; .; Copyright (C) 1986 by .; Digital Equipment Corporation, Maynard, Mass. .; .; .; This software is furnished under a license and may be used and copied .; only in accordance with the terms of such license and with the .; inclusion of the above copyright notice. This software or any other .; copies thereof may not be provided or otherwise made available to any .; other person. No title to and ownership of the software is hereby .; transferred. .; .; The information in this software is subject to change without notice .; and should not be construed as a commitment by Digital Equipment .; Corporation. .; .; Digital assumes no responsibility for the use or reliability of its .; software on equipment which is not supplied by Digital. .; .; .; MODULE DESCRIPTION: .; .; NETPLN Command File .; .; .; Distributed Systems Software Engineering .; .; IDENT HISTORY: .; .; 1.00 20-Jan-82 .; DECnet-RT V2.0 Release .; .; 2.10 20-May-83 .; DECnet-RT V2.1 Maintenance Release .; .ENABLE SUBSTITUTION .ENABLE ESCAPE .ENABLE GLOBAL .DISABLE LOWERCASE .SETS SYSTEM "RT-11 V5" .SETS VER "2.1" .SETS BL "1.0" .SETF EIS .SETN LINES 1 .; ONLY ONE LINE AT A TIME .SETN PATHS 1 .; ONLY ONE PATH .GOTO 00 .; ****************************************************************** .; .; SUBROUTINE TO CHECK PROCESSOR TYPE .; .; ****************************************************************** .CHKTYP: .IF MTYP EQ "11/150" .GOTO CK20 .IF MTYP EQ "LSI-11" .GOTO CK20 .IF MTYP EQ "11/03" .GOTO CK20 .IF MTYP EQ "11/04" .GOTO CK30 .IF MTYP EQ "11/05" .GOTO CK30 .IF MTYP EQ "11/10" .GOTO CK30 .IF MTYP EQ "11/20" .GOTO CK30 .IF MTYP EQ "11/23" .GOTO CK40 .IF MTYP EQ "MICRO/PDP-11" .GOTO CK40 .IF MTYP EQ "11/24" .GOTO CK45 .IF MTYP EQ "11/34" .GOTO CK45 .IF MTYP EQ "11/35" .GOTO CK10 .IF MTYP EQ "11/40" .GOTO CK10 .IF MTYP EQ "11/44" .GOTO CK45 .IF MTYP EQ "11/45" .GOTO CK45 .IF MTYP EQ "11/50" .GOTO CK45 .IF MTYP EQ "11/55" .GOTO CK45 .IF MTYP EQ "11/60" .GOTO CK45 .SETT ERR ; ; Error - 'MTYP' is an invalid processor type .CK10: .RETURN .CK20: .SETT $03 .CK30: .SETF MAP .IF MTYP EQ "LSI-11" .RETURN .SETF EIS .RETURN .CK40: .SETT $23 .CK45: .SETT EIS .RETURN .00: ; ; ====================================================================== ; * 'SYSTEM' Network Generation Planning Aid * ; Version 'VER' Base Level 'BL' ; ====================================================================== ; ; Copyright (C) 1986 by ; Digital Equipment Corporation, Maynard, Mass. ; ; .ASKN [30.:255.:80.] W Enter your terminal width .ENABLE QUIET SET TT WIDTH='W' .DISABLE QUIET ; .ASK $EXP Do you want the expanded form of dialog .IFT $EXP .GOTO 220 ; ; Explanatory text for each question is available by hitting the ; key followed by a carriage return (). ; .GOTO 230 .220: ; ; The notes/cautions describe the prerequisite conditions for starting ; the NETPLN/NETGEN procedure. ; .230: .ASK Q Do you want to see the NETPLN notes/cautions .IFT .GOTO 220 .IFF Q .GOTO 315 ; ; Note the following: ; ------------------- ; ; . DECnet-RT requires the RT-11 foreground/background (FB) monitor. The ; DECnet software also requires that the monitor have device timeout ; support and does not have Error Logging generated. ; ; . For questions that can be answered YES or NO, NO is the default. ; For questions with defaults, the default is produced by pressing ; a carriage return () in response to the question. ; .300: .IFF $EXP .GOTO 310 .305: ; ; If you are not ready to continue, answer E. NETPLN will exit. When ; you are ready, restart the NETPLN procedure. ; .310: ; Do you want to - .ASKS EOS -continue, E-exit .IFT .GOTO 305 .IF EOS EQ "" .GOTO 315 .IF EOS EQ "E" .GOTO FINISH ; ; Error - Invalid response ; .GOTO 305 .315: .IFT $EXP .SETT EXPLN .IFF $EXP .SETF EXPLN ; ; ====================================================================== ; ; Target Node Parameters - ; ---------------------- .IFF EXPLN .GOTO Q1120 .Q1110: ; Enter the target processor type. Valid types are: ; ; 11/150 (PDT) ; ; LSI-11, 11/03, 11/23 (Q-BUS) ; MICRO/PDP-11 ; ; 11/04, 11/05, (UNIBUS) ; 11/10, ; 11/20, 11/24*, ; 11/34, 11/35, ; 11/40, 11/44*, 11/45, ; 11/50, 11/55, ; 11/60 ; ; * Note that only 18-bit addressing is supported for ; The 11/44 and 11/24 processors. ; ; What is the - .Q1120: .ASKS [5.:12.] MTYP 1. Processor type? .IFT .GOTO Q1110 .SETF ERR .GOSUB CHKTYP .IFT ERR .GOTO Q1110 .; .IFF EXPLN .GOTO Q1212 .Q1211: ; ; Enter the base address of the monitor on which you intend to install ; your DECnet-RT software. This address is found in location 54 and ; can be read using the E KMON command. The base address for the ; monitor on which you are now running is shown below: ; E 54 ; ; Enter the - .Q1212: .ASKN [100000:160000:135000] MONBAS 1A. Target monitor base address .IFT .GOTO Q1211 .; .SETF MAP .; Do not allow mapped systems .IFDF MAP .GOTO Q1300 .IFF EXPLN .GOTO Q1220 .Q1210: ; ; A Mapped system is an RT-11 system which has the KT-11 memory ; management support included during SYSGEN. If in the SYSGEN for the ; target system you specified the extended memory (XM) monitor, answer ; YES to the following question. ; ; Do you want support for the - .Q1220: .ASK MAP 2. Extended memory (XM) monitor .IFT .GOTO Q1210 .; .Q1300: .IFF EXPLN .GOTO Q1320 .Q1310: ; ; This is the name for the node being generated. This name, ; (1 - 6 characters long), should be unique within the network. ; ; What is the - .Q1320: .ASKS [1:6] NODE 3. Target node name? .IFT .GOTO Q1310 .TEST NODE .IFF .GOTO Q1310 .; .IFF EXPLN .GOTO Q1420 .Q1410: ; ; Enter the target node address. This number MUST be unique within the ; network. ; ; What is the - .Q1420: .ASKN [1.:32.] NODADR 4. Target node address? .IFT .GOTO Q1410 .; ; ; Line Parameters - ; --------------- .; .IFF EXPLN .GOTO Q1880 .Q1840: ; ; Enter the total number of lines on the target node. For example, if ; you have 2 DMCs and 1 DUP, then you would have 3 lines. ; ; What are the - .Q1880: .ASKN [1.:12.:1.] MLINES 1. Total number of physical lines on node .IFT .GOTO Q1840 .; .IFF EXPLN .GOTO Q1960 .Q1920: ; ; A high-speed communication device operates at speeds of either 56Kbps ; or 1 Mbps. At such speeds, the device driver will allocate more ; buffers to the device for receiving data. ; .Q1960: .ASK HSDEV 2. Are any lines high speed devices .IFT .GOTO Q1920 ; ; Node Parameters - ; --------------- .IFF EXPLN .GOTO Q2120 .Q2080: ; ; The answer to this question will limit the number of logical links ; that can be active simultaneously. This includes logical links for ; user-written programs and the supplied utilities. ; ; What is the - .Q2120: .ASKN [1.:255.:4.] LINKS 1. Max # of logical links active at once? .IFT .GOTO Q2080 .; .IFF EXPLN .GOTO Q2200 .Q2160: ; ; The Large Buffer (LDB) size determines the largest segment that can ; be transmitted/received by the physical line protocol (DDCMP). The LDB ; size does not affect the size of the largest user Data Transfer ; Request, but it can affect performance. Choosing the LDB size involves ; a tradeoff between file transfer performance and interactive ; performance. The LDB size is subject to the following constraints: ; ; * Memory Availability - Large LDBs are good for bulk transfers, ; but you may not have the space. ; ; * Line Noise - A large LDB size means longer retransmission ; times when there are errors. On high speed lines, this may not ; be significant. ; ; * Network Traffic - If you choose to have large LDBs for File ; Transfer, you may be able to have only have a small number of ; LDBs due to memory constraints. This means that other programs ; will have to wait for buffers. ; ; If you want good file transfer performance, the large buffer size is ; better. For interactive traffic, the smallest size (164.) is better. ; NETPLN will add an overhead value for NSP overhead. ; ; What is the - .Q2200: .ASKN [164.:550.:256.] RDBSZ 2. Large Data Buffer (LDB) size? .IFT .GOTO Q2160 .; .IFF EXPLN .GOTO Q2280 .Q2240: ; ; The Direct Line Access Controller is required to support the Direct ; Line Access Program Interface and NCP LINE LOOP tests. ; .Q2280: .ASK DLXIN 3. Do you want the Direct Line Access Controller .IFT .GOTO Q2240 .; .IFF EXPLN .GOTO Q2400 .Q2360: ; ; If any line is connected to a modem for a DDS (DataPhone Digital ; Service) switched circuit, that line will require modem control ; support. Modem control support monitors: ; ; o Dataset Ready (DSR) for synchronous lines ; ; o Carrier (CAR) for asynchronous lines ; ; If these signals are missing for two consecutive samples (at ; one-second intervals), the line will be declared as down without ; waiting for DDCMP to detect the failure. ; .Q2400: .ASK MDCIN 4. Do any lines require modem control .IFT .GOTO Q2360 ; ; Component Options - ; ----------------- .; .IFF EXPLN .GOTO Q2410 .Q2405: ; ; The node being generated can have one of three levels of counter ; support: ; * NONE - There are no counters in the system at all ; ; * LINE - There are only DDCMP line counters in the system ; ; * NODE - There are both DDCMP line counters and transport ; level counters in the system ; ; It is recommended that you always have DDCMP line counters in your ; system. Node counters should be used if you are experiencing ; difficulties with system performance and you wish to fine-tune your ; system. Refer to the DECnet-RT System Manager's Guide for a complete ; description of the line and node counters. ; ; What is the - .Q2410: .ASKS [4:4] C 1. Counter support desired("NONE","LINE",or"NODE")? .IFT .GOTO Q2405 .IF C NE "NONE" .GOTO C5 .SETF $NSCOU .SETF $CPCOU .GOTO C10 .C5: .SETT $NSCOU .SETT $CPCOU .IF C NE "LINE" .GOTO C7 .SETF $NSCOU .GOTO C10 .C7: .IF C NE "NODE" .GOTO Q2405 .C10: .; .SETN NODCNT 0. .IFF $NSCOU .GOTO Q2435 .IFF EXPLN .GOTO Q2430 .Q2420: ; ; The network software maintains counters on the traffic to all other ; nodes in the network. Enter the maximum number of nodes to which this ; node may have logical links at any one time. If this value is ; exceeded, the connection request will be rejected with a resource ; allocation failure. ; ; What is the - .Q2430: .ASKN [2.:32.:5.] NODCNT 2. Number of node counters NSP should keep? .IFT .GOTO Q2420 .; .Q2435: .IFF EXPLN .GOTO Q2450 .Q2440: ; ; The overlaid version of NETACP requires less memory but is slower at ; performing connections and disconnections as well as interrupt ; message processing. It is recommended that you choose the overlaid ; version because of size constraints. The default is the overlaid ; version. ; .Q2450: .ASK ACPNON 3. Do you want the non-overlaid version of the NETACP .IFT .GOTO Q2440 .; .IFF EXPLN .GOTO Q2560 .Q2520: ; ; An overlaid version of FAL is approximately 9.5K, the nonoverlaid ; version is approximately 11K. The default is the overlaid version. ; .Q2560: .ASK FALNON 4. Do you want the non-overlaid version of FAL .IFT .GOTO Q2520 .; .IFF EXPLN .GOTO Q2680 .Q2640: ; ; This determines how many simultaneous files FAL can have open. ; Each file requires a separate logical link, therefore, the number of ; files open simultaneously is also the number of links. ; .Q2680: .ASKN [1.:4.:2.] FALLNK 5. How many logical links should FAL support? .IFT .GOTO Q2640 .; .IFF EXPLN .GOTO Q2760 .Q2720: ; ; Enter the number of buffers that FAL should use. More buffers need ; more memory but processing is faster. Double buffering (the default) ; will probably provide the maximum increase in throughput relative to ; the increases in buffer space. ; .Q2760: .ASKN [1.:4.:2.] FALNBF 6. What level of buffering should FAL use? .IFT .GOTO Q2720 .SETN FALNBR FALNBF .SETN FALNBT FALNBF .; .IFF EXPLN .GOTO Q2840 .Q2800: ; ; The FAL buffer must be large enough to hold the largest record that ; FAL will ever have to transfer. For image format files a buffer size ; of 512. is required. The size you choose will be modified by addition ; of a fixed protocol overhead value. ; .Q2840: .ASKN [256.:1024.:512.] FALBFS 7. What size buffer should FAL use? .IFT .GOTO Q2800 .; .; ****************************************************************** .; .; BUFFER CALCULATIONS .; .; ****************************************************************** .; .SETD RDBNM .SETD SDBNM .SETD CCBNM .SETD RDBTH .; .; ******** TRANSMIT BUFFERING LEVEL ********* .; .SETN XMTBF 2. .; .; .; ******** RECEIVE DATA BUFFER (RDB) CALCULATION ******** .; .SETN RDBNM (LINES*4)+XMTBF .; 4 RDB''S / LINE PLUS 2 FOR XMIT BUFFERS .IFT HSDEV .SETN RDBNM RDBNM+3 .; PLUS 3 EXTRA RDB''S FOR HIGH SPEED .; .; .; ******** SMALL DATA BUFFER (SDB) CALCULATION ******** .; .SETN SDBNM LINKS+LINES .; 1 SDB / LINK PLUS 1 SDB / LINE .; .; .; ******** COMMUNICATIONS CONTROL BLOCK (CCB) CALCULATION ******** .; .SETN CCBNM SDBNM+RDBNM .; 1 CCB / SDB + 1 CCB / LDB .SETN CCBNM CCBNM+(LINES*2) .; 2 CCB''S / LINE (SOFTWARE DDCMP) .SETN CCBNM CCBNM+(1+(LINKS/5)) .; 1 CCB / 5 LINKS PLUS 1 .; .; .; ******** RECIEVE DATA BUFFER THRESHOLD ******** .; .SETN RDBTH LINES+1 .; .; .; ******** SYSTEM TYPE ******** .; .SETS SYS "RT-11 V5" .; .SETS FILE "1" .; ******************************************************************* .; .; WORKSHEET #1 - GENERAL INFORMATION .; .; ******************************************************************* .; .OPEN #1 'NODE'.NWS .ENABLE DATA #1 N E T G E N W O R K S H E E T # 1 TARGET NODE PARAMETERS Processor Type: 'MTYP' System Type: 'SYS' Node Name: 'NODE' Node Address: 'NODADR' Node Identification String: ________________________________ Node Verification Transmit Password: __________ Node Verification Receive Password: __________ LOGICAL LINKS: --------------- Maximum Number of Logical Links That May Be Active Simultaneously: 'LINKS' NETWORK BUFFERS: ----------------- Number of Large Data Buffers (LDBs): 'RDBNM' Size of Large Data Buffers: 'RDBSZ' Number of Small Data Buffers (SDBs): 'SDBNM' Number of Communication Control Buffers (CCBs): 'CCBNM' Number of Large Data Buffers Reserved For Receives: 'RDBTH' PHYSICAL LINES: ---------------- Total Number of Physical Lines On Node: 'MLINES' Maximum Number of Physical Lines That May Be Active Simultaneously: 'LINES' .DISABLE DATA #1 .GOSUB TOP .; ******************************************************************* .; .; WORKSHEET #2 - COMMUNICATIONS DEVICE SUMMARY SHEET .; .; ******************************************************************* .; .SETS FILE "1" .ENABLE DATA #1 N E T G E N W O R K S H E E T # 2 COMMUNICATIONS DEVICE SUMMARY Node: 'NODE' DEVICE CONTROLLER UNIT PRI LINE FDX/ VECTOR CSR MODE TRIBUTARY (DDM) # # SPEED HDX ADDRESS --------------------------------------------------------------------------------------------------------- .DISABLE DATA #1 .SETN Z 0 .SETS DDMLST "<" .SETN DDMLN 0 .SETN W MLINES .SETN NMPRO 0 .SETT NDM .SETN KMCCNT 0 .SETF SLAVE .SETF PTP .IFF EXPLN .GOTO D10 .D05: ; ; The Device Driver (DDM) process names correspond to the two or three ; character device process name. Enter a carriage return when there are ; no more devices. Legal DDM device names are: ; ; Device Process Name RT-11 Handler Name Type DMA? ; ------------------ ------------------ ---- ---- ; DL XL Async No ; *DMC XM Sync Yes ; DMP XN Sync Yes ; DU XU Sync No ; DUP XP Sync No ; DLV (11/03/23) VL Async No ; (MICRO/PDP-11) ; DMV (11/03/23) VN Sync Yes ; (MICRO/PDP-11) ; DUV (11/03/23) VU Sync No ; (MICRO/PDP-11) ; DPV (11/03/23) VP Sync No ; (MICRO/PDP-11) ; ; * The DMC process is also used to handle DMRs in DMC compatiblity ; mode ; .D10: .ASKS [0:3] DDM 8. Enter DDM process name .IFT .GOTO D05 .IF DDM EQ "" .GOTO D200 .SETF KMC .GOSUB DDMNM .IFT ERR .GOTO D10 .SETS DDMLST "'DDMLST','DDM'" .INC NMPRO .SETN X 1 .IF MLINES EQ 1 .OR .IF W EQ 1 .GOTO D25 .ENABLE LOWERCASE .DISABLE LOWERCASE .IFF EXPLN .GOTO D20 .D15: ; ; Give the number of lines for the device you specified in question #8 ; on the node you are generating. ; .; .D20: .ASKN [1.:'W'.] X 9. What is the total number of 'DDM' lines? .IFT .GOTO D15 .; .D25: .IFT SWDCP .SETN DDMLN DDMLN+X .SETN W W-X .; .IFT KMC .SETN KMCCNT KMCCNT+X .SETN Z Z+X .SETN CTRL 0 .SETN UNIT 0 .D100: .SETS NAME "'DDM'-'CTRL'" .GOSUB BLANK .D105: .ENABLE LOWERCASE .SETS LNMODE "Point-to-Point" .SETS STRNG1 "______ ____" .DISABLE LOWERCASE .SETF M .SETN STA 0 .IF DDM EQ "DMC" .GOTO D150 .IFF EXPLN .GOTO D115 .D110: ; ; A multipoint line allows more than one remote system to be connected ; to a single line. If line 'NAME' is to be a multipoint ; tributary answer YES to the following question. ; .D115: .ASK M 10. Is line 'NAME' a multipoint tributary line .IFT .GOTO D110 .D120: .IFF M .GOTO D130 .ENABLE LOWERCASE .SETS LNMODE "Multipoint Tributary ______" .DISABLE LOWERCASE .SETT SLAVE .GOTO D150 .D130: .SETT PTP .D150: .IF UNIT NE 0 .GOTO D160 .DATA #1 'DDM' 'CTRL' 'UNIT' __ 'STRNG1' ____ ______ 'LNMODE' .GOTO D165 .D160: .DATA #1 'UNIT' ____ ______ 'LNMODE' .D165: .GOSUB BLANK .D185: .INC UNIT .IF UNIT NE UNITS .GOTO D190 .INC CTRL .SETN UNIT 0 .D190: .SETN X X-1 .IF X GT 0 .GOTO D100 .GOSUB BLANK .GOSUB BLANK .IF Z LT MLINES .GOTO D10 .; .D200: .SETS DDMLST "'DDMLST'>" .GOSUB TOP .; .D250: .; ******************************************************************** .; .; WORKSHEET #3 - NETWORK PROCESSES / TASKS .; .; ******************************************************************** .; .SETS FILE "1" .ENABLE DATA #1 N E T G E N W O R K S H E E T # 3 NETWORK PROCESSES / TASKS Node: 'NODE' NETWORK SERVICES PROTOCOL MODULE (NSP): ---------------------------------------- General Delivery Queue Timeout: ___________ .DISABLE DATA #1 .IFT $NSCOU .GOSUB BLANK .IFT $NSCOU .DATA #1 Number of Node Counters 'NODCNT' .ENABLE DATA #1 FILE ACCESS LISTENER (FAL): ---------------------------- Number of Links Supported: 'FALLNK' Buffering Level: 'FALNBF' Buffer Size: 'FALBFS' .DISABLE DATA #1 .GOSUB TOP .CLOSE #1 'NODE'.NWS .; ******************************************************************* .; .; CEX AND POOL SIZE CALCULATIONS .; .; ******************************************************************* .; .SETN CCBSZ 36 .SETN SDBSZ 62 .; .; RT-11 CEX AND NETWORK POOL MEMORY BREAK-DOWN .; .; .; CEX EXEC CODE -- .; .IFF MAP .SETN ZA 7600 .; BASIC CEX UNMAPPED .IFT MAP .SETN ZA 10100 .; BASIC CEX MAPPED .IFF MAP .SETN ZB 400 .; CEX SOFTWARE DDCMP SUPPORT UNMAPPED .IFT MAP .SETN ZB 400 .; CEX SOFTWARE DDCMP SUPPORT MAPPED .SETN ZO ZA .; TOTAL CEX SIZE CALC. .IFF NDM .SETN ZO ZO+ZB .SETN CEX ZO .SETN CEX ((CEX+77)/100)*100 .; .; CEX DATABASE -- .; .IFF MAP .SETN ZF 14 .; PER PROCESS DATA BASE UNMAPPED .IFT MAP .SETN ZF 14 .; PER PROCESS DATA BASE MAPPED .IFF MAP .SETN ZG 20 .; PER LINE DATA BASE UNMAPPED .IFT MAP .SETN ZG 20 .; PER LINE DATA BASE MAPPED .; .; NUMBER OF PROCESSES .INC NMPRO .; NUMBER OF DDMS + NSP .IFT DLXIN .INC NMPRO .; PLUS DLX IF IT''S IN SYSTEM .IFF NDM .INC NMPRO .; PLUS DCP IF NEEDED .IFF NDM .IFT MDCIN .INC NMPRO .; PLUS AUX IF NEEDED .SETN ZM (NMPRO*ZF)+2 .; TOTAL PROCESS DATA BASE .SETN DEC MLINES .GOSUB DTOO .SETN ZG1 OCT .SETN ZN ZG1*ZG .; TOTAL LINE DATA BASE .SETN ZNN 4*ZG1 .; LINE MAPPING TABLES .SETN ZMM 2*NMPRO .; PROCESS DESCRIPTOR VECTOR .SETN ZNSP (2*ZG1)+2 .; NSP LINE MAPPING TABLE .SETN ZDLX 0 .IFT DLXIN .SETN ZDLX (2*ZG1)+2 .; DLX LINE MAPPING TABLE .SETN CTB ZM+ZN+ZMM+ZNN+ZNSP+ZDLX .; TOTAL CEX DATA BASE .; .; CEX POOL -- .; .SETN DEC CCBNM .GOSUB DTOO .SETN ZR OCT .SETN ZQ ZR*CCBSZ .; TOTAL CCB SPACE .IFF MAP .SETN ZH 150 .; PER ACTIVE LINE TABLE DATA BASE UNMAPPED .IFT MAP .SETN ZH 154 .; PER ACTIVE LINE TABLE DATA BASE MAPPED .SETN DDMLTB LINES*ZH .; TOTAL LINE TABLE DATABASE SPACE .SETN DLCLTB 0 .; DEFAULT TO NO DDCMP .SETN ZI 0 .; MUST DEFINE THESE(STUPID INDIRECT PROCESSOR) .SETN ZIS 0 .SETN DLCLTB 0 .IFT NDM .GOTO NSP1 .; GO DO NSP STUFF .IFF MAP .SETN ZI 66 .; PER ACTIVE LINE SOFTWARE DDCMP DATA BASE UNMAPPED .IFT MAP .SETN ZI 70 .; PER ACTIVE LINE SOFTWARE DDCMP DATA BASE MAPPED .SETN DLCLTB LINES*ZI .IFF MAP .SETN ZIS 104 .; PER ACTIVE TRIBUTARY DDCMP DATA BASE UNMAPPED .IFT MAP .SETN ZIS 104 .; PER ACTIVE TRIBUTARY DDCMP DATA BASE MAPPED .SETN DLCLTB DLCLTB+(LINES*ZIS) .NSP1: .IFF MAP .SETN ZJ 20 .; PER ACTIVE TASK USING THE NETWORK (MAILBOXES) .IFT MAP .SETN ZJ 20 .; PER ACTIVE TASK USING THE NETWORK (MAILBOXES) .SETN NSPTSK ZJ*6 .; MAXIMUM OF 6 USER JOBS POSSIBLE IN RT .SETN TMP 62 .; NSP.DAT .SETN TMP TMP+26 .; NSP VCB .SETN TMP TMP+22 .; NSP PASSWORD BLOCK .SETN NSPFIX TMP .; NSP FIXED DATA BASE .SETN DEC LINKS .; CALCULATE NSP PER LINK DATA BASE .GOSUB DTOO .; .SETN TMP OCT .; .SETN ZZ3 TMP*62 .; NSP LLT ENTRY .SETN ZZ4 TMP*40 .; WINDOW BLOCK .SETN NSPLNK (TMP*4)+ZZ3+ZZ4 .; NSP PER ACTIVE LINK DATA BASE SIZE .SETN DEC MLINES .; CALCULATE NSP PER LINE DATA BASE .GOSUB DTOO .; .SETN NSPLIN (OCT+1)*22 .; PHYSICAL LINE DATA BASE .SETN ZY 100 .; NET LOADER CONTROL BLOCKS .IF LINES < KMCCNT .SETN KMCCNT LINES .SETN DEC KMCCNT .; DMC BASE TABLES .SETN ZX 200 .; DMC BASE TABLE SIZE .GOSUB DTOO .SETN DMCBTB OCT*200 .; TOTAL DMC BASE TABLE SIZE .SETN CEPOOL CTB+ZQ+DDMLTB+DLCLTB+DMCBTB .; SLT .SETN CEPOOL CEPOOL+NSPFIX+NSPLIN+NSPLNK+NSPTSK .; NSP STUFF .IFF NDM .SETN CEPOOL CEPOOL+500 .; ADD LIBRARY SIZE .SETN CEPOOL CEPOOL+ZY+200 .; ADD FUDGE FACTOR .SETN CEPOOL ((CEPOOL+77)/100)*100 .SETN DCEPOL (CEPOOL+0.)/2. .; .; NETWORK POOL -- .; .SETN DEC RDBNM .GOSUB DTOO .SETN ZS OCT .SETN LDBOV 32+14 .SETN DEC RDBSZ .GOSUB DTOO .SETN ZT OCT .SETN ZU (ZT+LDBOV)*ZS .; TOTAL LDB SPACE .SETN DEC SDBNM .GOSUB DTOO .SETN ZV OCT .SETN ZW ZV*SDBSZ .; TOTAL SDB SPACE .SETN POOL ZU+ZW .; TOTAL NETWORK POOL SIZE .SETN POOL ((POOL+77)/100)*100 .SETN DPOOL (POOL+0.)/2. .; ****************************************************************** .; .; MEMORY REQUIREMENTS WORKSHEET #1 - CEX AND NETWORK POOL .; .; ****************************************************************** .; ; ; Working ... ; .SETS FILE "3" .OPEN #3 'NODE'.NMR .ENABLE DATA #3 M E M O R Y R E Q U I R E M E N T S B R E A K D O W N # 1 COMMUNICATIONS EXECUTIVE (CEX) & NETWORK BUFFER POOL Node: 'NODE' LENGTH (OCTAL BYTES) COMMUNICATIONS EXECUTIVE CODE: ------------------------------- Basic 'ZA' .DISABLE DATA #3 .IFF NDM .DATA #3 Software DDCMP Support +'ZB' .ENABLE DATA #3 ---------- TOTAL 'ZO' COMMUNICATIONS EXECUTIVE DATA BASE (CETAB.SYS): ------------------------------------------------ Process Data Base ('NMPRO' @ 'ZF')+2 'ZM' Line Data Base ('ZG1' @ 'ZG') 'ZN' Line Mapping Tables (4 bytes/line) 'ZNN' Process Descriptor Vector (2 bytes/process) 'ZMM' NSP Channel Mapping Table (2 bytes/line)+2 'ZNSP' .DISABLE DATA #3 .IFT DLXIN .DATA #3 DLX Channel Mapping Table (2 bytes/line)+2 'ZDLX' .ENABLE DATA #3 -------- TOTAL 'CTB' COMMUNICATIONS EXECUTIVE FREE SPACE: ------------------------------------- Communications Executive Data Base - CETAB.SYS 'CTB' Communications Control Blocks (CCBs) ('CCBNM' @ 'CCBSZ') 'ZQ' DDM Device Line Table per Active Line ('LINES' @ 'ZH') 'DDMLTB' .DISABLE DATA #3 .IF KMCCNT GT 0 .DATA #3 DMC Base Table per Active Line ('KMCCNT' @ 'ZX') 'DMCBTB' .IFF NDM .DATA #3 Software DDCMP Library Routines 500 .IFF NDM .DATA #3 Software DDCMP Line Table per Active Line ('LINES' @ 'ZI'+'ZIS') 'DLCLTB' .ENABLE DATA #3 NSP Static Data Bases 'NSPFIX' NSP Data Base per Physical Channel ('MLINES' @ 22)+22 'NSPLIN' NSP Data Base per Active Logical Link ('LINKS' @ 126) 'NSPLNK' NSP Mailbox per Active Network Program (6 @ 20) 'NSPTSK' Network Loader Control Blocks 'ZY' Fudge Factor 200 ------------ TOTAL (Rounded to 32 Word Boundary) 'CEPOOL' ('DCEPOL'. WORDS) NETWORK BUFFER POOL: --------------------- Large Data Buffers (LDBs) (w/overhead) ('RDBNM' @ ('ZT'+'LDBOV')) 'ZU' Small Data Buffers (SDBs) ('SDBNM' @ 'SDBSZ') 'ZW' ----------- TOTAL (Rounded to 32 Word Boundary) 'POOL' ('DPOOL'. WORDS) .DISABLE DATA #3 .GOSUB TOP .; ******************************************************************* .; .; COMMUNICATIONS PROCESSES SIZE CALCULATIONS .; .; ******************************************************************* .; .; .; AUX .; .IFF MAP .SETN ZB 1300 .; MODEM CONTROLLER UNMAPPED .IFT MAP .SETN ZB 1300 .; MODEM CONTROLLER MAPPED .; .; NSP .; .IFF MAP .IFF $NSCOU .SETN ZC 12646 .; BASIC NSP DRIVER UNMAPPED/NC .IFF MAP .IFT $NSCOU .SETN ZC 14614 .; BASIC NSP DRIVER UNMAPPED/C .IFT MAP .IFF $NSCOU .SETN ZC 13062 .; BASIC NSP DRIVER MAPPED/NC .IFT MAP .IFT $NSCOU .SETN ZC 14732 .; BASIC NSP DRIVER MAPPED/C .SETN DEC MLINES .; TRANSPORT LINE COUNTERS .GOSUB DTOO .SETN ZCA 30*OCT .SETN DEC MLINES .; TRANSPORT NODE COUNTERS .GOSUB DTOO .SETN ZCC 10*OCT .SETN DEC NODCNT .; ECL NODE COUNTERS .GOSUB DTOO .SETN ZCB OCT*50 .IFF ACPNON .GOTO 1 .IFF MAP .IFF $NSCOU .SETN ZE 22200 .; BASIC NETWORK ACP UNMAPPED/NC .IFF MAP .IFT $NSCOU .SETN ZE 22200 .; BASIC NETWORK ACP UNMAPPED/C .IFF MAP .IFF $NSCOU .SETN ZE 22200 .; BASIC NETWORK ACP MAPPED/NC .IFT MAP .IFT $NSCOU .SETN ZE 22200 .; BASIC NETWORK ACP MAPPED/C .GOTO 2 .1: .IFF MAP .IFF $NSCOU .SETN ZE 14112 .; OVERLAID ACP UNMAPPED/NC .IFF MAP .IFT $NSCOU .SETN ZE 14644 .; OVERLAID ACP UNMAPPED/C .IFT MAP .IFF $NSCOU .SETN ZE 14516 .; OVERLAID ACP MAPPED/NC .IFT MAP .IFT $NSCOU .SETN ZE 15252 .; OVERLAID ACP MAPPED/C .2: .; .; DLX .; .IFF MAP .SETN ZG 10272 .; DLX UNMAPPED .IFT MAP .SETN ZG 10472 .; DLX MAPPED .; .; DCP AND DCS .; .SETN ZHP 0 .SETN ZHS 0 .IFF PTP .GOTO 10 .IFF MAP .IFF $CPCOU .SETN ZHP 5234 .; DDCMP UNMAPPED PT-TO-PT/NC .IFF MAP .IFT $CPCOU .SETN ZHP 6060 .; DDCMP UNMAPPED PT-TO-PT/C .IFT MAP .IFF $CPCOU .SETN ZHP 5302 .; DDCMP MAPPED PT-TO-PT/NC .IFT MAP .IFT $CPCOU .SETN ZHP 6126 .; DDCMP MAPPED PT-TO-PT/C .10: .IFF SLAVE .GOTO 15 .IFF MAP .IFF $CPCOU .SETN ZHS 4426 .; DDCMP UNMAPPED SLAVE/NC .IFF MAP .IFT $CPCOU .SETN ZHS 5150 .; DDCMP UNMAPPED SLAVE/C .IFT MAP .IFF $CPCOU .SETN ZHS 4474 .; DDCMP MAPPED SLAVE/NC .IFT MAP .IFT $CPCOU .SETN ZHS 5216 .; DDCMP MAPPED SLAVE/C .15: .SETN AUX 0 .; TOTAL AUX PROCESS SIZE .IFT MDCIN .SETN AUX ZB .SETN AUX ((AUX+77)/100)*100 .SETN NSP ZC .; BASIC NSP SPACE .IFT $NSCOU .SETN NSP NSP+ZCA+ZCB+ZCC .; TOTAL NSP DRIVER PROCESS SIZE .SETN NSP ((NSP+77)/100)*100 .SETN ACP ((ZE+77)/100)*100 .; TOTAL NETACP PROCESS SIZE .SETN DLX ((ZG+77)/100)*100 .; TOTAL DLX PROCESS SIZE .SETN DCP ((ZHP+77)/100)*100 .; TOTAL DCP PROCESS SIZE .SETN DCS ((ZHS+77)/100)*100 .; TOTAL DCS PROCESS SIZE .; ******************************************************************* .; .; MEMORY REQUIREMENTS WORKSHEET #2 - NETWORK PROCESSES .; .; ******************************************************************* .SETS FILE "3" .ENABLE DATA #3 M E M O R Y R E Q U I R E M E N T S B R E A K D O W N # 2 NETWORK PROCESSES Node: 'NODE' (OCTAL BYTES) AUXILARY PROCESS (AUX): ------------------------- .DISABLE DATA #3 .IFF MDCIN .DATA #3 No MODEM control specified .IFT MDCIN .DATA #3 MODEM Controller 'ZB' .ENABLE DATA #3 NETWORK SERVICES PROTOCOL DRIVER (NSP): ----------------------------------------- Basic NSP 'ZC' .DISABLE DATA #3 .IFF $NSCOU .GOTO MR2A .DATA #3 Transport Line Counters ('MLINES' @ 30) +'ZCA' .DATA #3 Transport Node Counters ('MLINES' @ 10) +'ZCC' .DATA #3 NSP Node Counters ('NODCNT' @ 50) +'ZCB' .MR2A: .ENABLE DATA #3 --------- TOTAL (Rounded to 32 word boundary) 'NSP' NETWORK SERVICES PROTOCOL ACP (NETACP): ----------------------------------------- .DISABLE DATA #3 .IFT ACPNON .DATA #3 Basic ACP 'ACP' .IFF ACPNON .DATA #3 Overlaid ACP 'ACP' .ENABLE DATA #3 DIRECT LINE CONTROLLER (DLX): 'DLX' ------------------------------- DIGITAL DATA COMMUNICATIONS PROTOCOL MODULE (DCP): ---------------------------------------------------- .DISABLE DATA #3 .IFT NDM .DATA #3 No Software DDCMP Needed .IFT SLAVE .DATA #3 Slave Only DDCMP 'DCS' .IFT PTP .DATA #3 Point-to-Point DDCMP 'DCP' .ENABLE DATA #3 DEVICE DRIVER MODULES (DDM''S): -------------------------------- .DISABLE DATA #3 .TEST DDMLST .SETN LGDDM 0 .SETN LGNDM 0 .SETN K .SETN I 2 .IF K EQ 2 .GOTO MR30 .MR20: .GOSUB DDMGET .ENABLE DATA #3 'DDM' 'DDMSZ' .DISABLE DATA #3 .IF I LT K .GOTO MR20 .MR30: .GOSUB TOP .; ******************************************************************* .; .; NETWORK TASKS SIZE CALCULATIONS .; .; ******************************************************************* .; .SETN NTL 36400 .; NTL .SETN NCP 41410 .; NCP .SETN TLK 10600 .; TLK .SETN NFT 45400 .; NFT .SETN F 27026 .; OVERLAYED FAL .IFT FALNON .SETN F 33674 .; NON-OVERLAID FAL .SETN DEC FALBFS .GOSUB DTOO .SETN FBSZ OCT .; FAL DAP BUFFER SIZE .; .SETN DEC FALLNK .GOSUB DTOO .SETN FLNK OCT .; FAL NUMBER OF SUPPORTED LINKS .; .SETN DEC FALNBT .GOSUB DTOO .SETN FNBT OCT .; FAL NUMBER OF BUFS/LINK(XMIT) .; .SETN DEC FALNBR .GOSUB DTOO .SETN FNBR OCT .; FAL NUMBER OF BUFS/LINK(RCV) .; .SETN FFIX 1144 .; FAL FIXED IMPURE .SETN FLOV (FLNK*1242) .; FIXED OVERHEAD PER LINK .SETN FTIMP ((FNBT*(44+FBSZ))*FLNK) .; TRANSMIT BUFFER OVERHEAD .SETN FRIMP ((FNBR*(FBSZ+2))*FLNK) .; RECEIVE BUFFER OVERHEAD .SETN FQ1 (((FNBR+10)*12)*FLNK) .; FAL INTERNALS QELS .SETN FQ2 (((FNBR+FNBT+FLNK+1)*74)*FLNK) .; FAL RTQELS,NTQELS .SETN FQ3 (((FNBR+FNBT)*14)*FLNK) .; FAL IOSB POOL .; .SETN FIMP FFIX+FLOV+FTIMP+FRIMP+FQ1+FQ2+FQ3 .SETN FAL F+FIMP .SETN FAL ((FAL+77)/100)*100 .; .; .SETN NML 16600 .; NML .SETN LOO 16100 .; LOOPER .; ******************************************************************** .; .; MEMORY REQUIREMENTS WORKSHEET #3 - NETWORK TASKS .; .; ******************************************************************** .; .SETS FILE "3" .ENABLE DATA #3 M E M O R Y R E Q U I R E M E N T S B R E A K D O W N # 3 NETWORK TASKS Node: 'NODE' (OCTAL BYTES) NETWORK LOADER (NTL): 'NTL' ---------------------- NETWORK INFORMATION AND CONTROL PROGRAM (NCP): 'NCP' ----------------------------------------------- TALK UTILITY (TLK): 'TLK' -------------------- NETWORK FILE TRANSFER UTILITY (NFT): 'NFT' ------------------------------------- NETWORK FILE ACCESS LISTENER UTILITY (FAL): -------------------------------------------- .DISABLE DATA #3 .IFT FALNON .DATA #3 Basic FAL 'F' .IFF FALNON .DATA #3 Overlaid FAL 'F' .ENABLE DATA #3 FAL Impure Data Area 'FIMP' ----------- TOTAL (Rounded to 32 word boundary) 'FAL' NETWORK MANAGEMENT UTILITIES: ------------------------------ (NML): 'NML' (LOOPER): 'LOO' .DISABLE DATA #3 .; .GOSUB TOP .; ******************************************************************* .; .; MEMORY MAP CALCULATIONS .; .; ******************************************************************* .SETN LGDCP DCS .IF DCP GT DCS .SETN LGDCP DCP .SETN BASPOL MONBAS-POOL .SETN BASCEP BASPOL-CEPOOL .SETN BASCEX BASCEP-CEX .SETN BASAUX BASCEX-AUX .SETN BASNSD BASAUX-NSP .SETN BASACP BASNSD-ACP .SETN BASDCP BASACP-LGDCP .IFF NDM .SETN BASDDM BASDCP-LGDDM .IFT NDM .SETN BASDDM BASDCP-LGNDM .; ******************************************************************* .; .; MEMORY REQUIREMENTS WORKSHEET #4 - NETWORK MEMORY MAP .; .; ******************************************************************* .SETS FILE "3" .SETS EX "!" .ENABLE DATA #3 M E M O R Y R E Q U I R E M E N T S B R E A K D O W N # 4 NETWORK MEMORY MAP Node: 'NODE' +---------------------------+ 177777 ! ! ! I/O PAGE ! ! ! +---------------------------+ 160000 ! ! ! RMONFB ! ! ! +---------------------------+ 'MONBAS' ! NETWORK BUFFER POOL ! +- - - - - - - - - - - - - -+ 'BASPOL' ! CEX FREE POOL ! +- - - - - - - - - - - - - -+ 'BASCEP' ! ! ! COMMUNICATIONS EXEC ! ! ! +---------------------------+ 'BASCEX' .DISABLE DATA #3 .IFT MDCIN .DATA #3 ! AUXILIARY MODEM PROCESS ! .IFT MDCIN .DATA #3 +---------------------------+ 'BASAUX' .ENABLE DATA #3 ! ! ! NSP DRIVER ! ! ! +---------------------------+ 'BASNSD' ! ! ! NETACP ! ! ! +---------------------------+ 'BASACP' .DISABLE DATA #3 .IFF NDM .DATA #3 ! DDCMP ! .IFF NDM .DATA #3 +---------------------------+ 'BASDCP' .ENABLE DATA #3 ! COMMUNICATIONS DRIVER ! +---------------------------+ 'BASDDM' ! ! ! ! ! ! .DISABLE DATA #3 .IFT NDM .DATA #3 ! ! .IFT NDM .DATA #3 ! ! .IFF MDCIN .DATA #3 ! ! .IFT MDCIN .DATA #3 ! ! .ENABLE DATA #3 ! ! ! ! ! ! ! ! ! ! +---------------------------+ 1000 ! STACK AND VECTOR AREA ! +---------------------------+ 0 Total Space Available: 'BASDDM' .DISABLE DATA #3 .IF BASDDM GT NCP .GOTO W2 .DATA #3 WARNING - NCP/NTL WILL NOT FIT IN AVAILABLE MEMORY; .DATA #3 YOU WILL BE UNABLE TO USE THIS SYSTEM AS CONFIGURED. .GOTO W3 .W2: .IF BASDDM LT NFT .DATA #3 WARNING - NFT will not fit in available memory. .IF BASDDM LT FAL .DATA #3 WARNING - FAL Will not fit in available memory. .W3: .; .GOSUB TOP .CLOSE #3 .GOTO FINI .; .; ********** ********** .; ********** SUBROUTINES ********** .; ********** ********** .; .; .DDMGET: .SETN J I+1 .DDM1: .INC I .SETS CHAR DDMLST[I:I] .IF CHAR EQ "," .GOTO DDM2 .IF CHAR NE ">" .GOTO DDM1 .DDM2: .SETS DDM DDMLST[J:I-1] .GOSUB DDMNM .IFT SWDCP .IF DDMSZ GT LGDDM .SETN LGDDM DDMSZ .IFF SWDCP .IF DDMSZ GT LGNDM .SETN LGNDM DDMSZ .IFT SWDCP .IF DDMSZ GT LGDDM .SETS DDMNAM "'DDM'" .RETURN .DDMNM: .SETF ERR .IF DDM NE "DLV" .GOTO S01 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 60 .IFT MAP .SETN CTRLN 112 .SETN DDMSZ 2500 .IFT MAP .SETN DDMSZ 2600 .SETF NDM .SETT SWDCP .GOTO S100 .S01: .IF DDM NE "DUV" .GOTO S02 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 64 .IFT MAP .SETN CTRLN 120 .SETN DDMSZ 2300 .IFT MAP .SETN DDMSZ 2400 .SETF NDM .SETT SWDCP .GOTO S100 .S02: .IF DDM NE "DUP" .GOTO S03 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 66 .IFT MAP .SETN CTRLN 120 .SETN DDMSZ 2400 .IFT MAP .SETN DDMSZ 2500 .SETF NDM .SETT SWDCP .GOTO S100 .S03: .IF DDM NE "DMC" .GOTO S04 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 130 .IFT MAP .SETN CTRLN 156 .SETN DDMSZ 2400 .IFT MAP .SETN DDMSZ 2400 .SETT KMC .SETF SWDCP .GOTO S100 .S04: .IF DDM NE "DPV" .GOTO S05 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 64 .IFT MAP .SETN CTRLN 120 .SETN DDMSZ 2500 .IFT MAP .SETN DDMSZ 2600 .SETF NDM .SETT SWDCP .GOTO S100 .S05: .IF DDM NE "DMP" .GOTO S06 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 130 .IFT MAP .SETN CTRLN 156 .SETN DDMSZ 5100 .IFT MAP .SETN DDMSZ 5100 .SETT KMC .SETF SWDCP .GOTO S100 .S06: .IF DDM NE "DMV" .GOTO S07 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 130 .IFT MAP .SETN CTRLN 156 .SETN DDMSZ 5100 .IFT MAP .SETN DDMSZ 5100 .SETT KMC .SETF SWDCP .GOTO S100 .S07: .IF DDM NE "DL" .GOTO S08 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 60 .IFT MAP .SETN CTRLN 112 .SETN DDMSZ 2500 .IFT MAP .SETN DDMSZ 2600 .SETF NDM .SETT SWDCP .GOTO S100 .S08: .IF DDM NE "DU" .GOTO S09 .SETN UNITS 1 .SETN UNTLN 0 .SETN CTRLN 64 .IFT MAP .SETN CTRLN 120 .SETN DDMSZ 2300 .IFT MAP .SETN DDMSZ 2400 .SETF NDM .SETT SWDCP .GOTO S100 .S09: .S10: .S11: .S12: .S13: ; ; Error -- Illegal DDM Process Name ; .SETT ERR .S100: .RETURN .; .; DECIMAL TO OCTAL CONVERSION ROUTINE .; .; INPUT: DEC ;DECIMAL NUMBER TO BE CONVERTED .; OUTPUT: OCT ;CONVERTED OCTAL NUMBER .; .DTOO: .SETS S "" .SETN X DEC .DTOO1: .SETN Y X-((X/8.)*8.) .SETN X X/8. .SETS S "'Y''S'" .IF X NE 0 .GOTO DTOO1 .SETN OCT 'S' .RETURN .; .; .LINES: .SETN I 10 .LN1: .DATA #1 ______________ ____________________ __________ .GOSUB BLANK .DEC I .IF I NE 0 .GOTO LN1 .RETURN .; .; .BLANK: .ENABLE DATA #'FILE' .DISABLE DATA #'FILE' .RETURN .; .; .TOP: .ENABLE DATA #'FILE' .DISABLE DATA #'FILE' .RETURN .; .; .FINI: ; ;======================================================================= ; ***** END OF NETPLN ***** ;======================================================================= ; .IFF EXPLN .GOTO Q3960 .Q3920: ; ; If you would like the worksheets to be printed upon completion of the ; NETPLN, answer YES to this question. ; .Q3960: .ASK PRINT Would you like the NETPLN worksheets printed .IFT .GOTO Q3920 .IFF PRINT .GOTO Q3980 PRINT 'NODE'.NWS PRINT 'NODE'.NMR .GOTO FINITO .Q3980: ; ; The worksheets and memory requirement sheets are located in the two ; files SY:'NODE'.NWS and SY:'NODE'.NMR respectively. ; .FINITO: .; .; C T B G E N . C O M .; .; THIS INDIRECT COMMAND FILE PRODUCES THE CONFIGURATION FILE "CETAB.MAC" .; .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE ESCAPE .DISABLE LOWERCASE .IFDF $EIS .GOTO 10 ; ; THIS COMMAND FILE IS PART OF NETGEN, AND CAN NOT BE ; INVOKED INDEPENDENTLY. ; .GOTO 3000 .10: ; ; ====================================================================== ; * CONFIGURATION DATA BASE * ; ====================================================================== ; .OPEN #0 '$CM'CTB1.TMP .ENABLE DATA .TITLE CETAB .IDENT /V02.10/ ; ; COPYRIGHT (C) 1981,1982 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; .DISABLE DATA .SETS CONFIG "" .IFT $MAP .SETS CONFIG "" .ENABLE DATA .MCALL SYS$DF SYS$DF 'CONFIG' .DISABLE DATA .CLOSE #0 '$CM'CTB1.TMP .IFT $DONLY .SETN LLK 0 .; FUDGE LOGICAL LINK COUNT FOR DLX SYS .SETT $NDM .;SET NOT TO INCLUDE DDCMP .SETF $SLAVE .;SET NOT TO INCLUDE MULTI-POINT SLAVE SUPPORT .SETF $PTP .;SET NOT TO INCLUDE POINT-TO-POINT SUPPORT .SETF $MDC .;SET NOT TO INCLUDE MODEM CONTROL .SETT $NSCOU .;SET TO INCLUDE NODE COUNTERS .SETT $CPCOU .;SET TO INCLUDE LINE COUNTERS .SETS $DDLST "" .;EMPTY DDM LIST .SETS $DCLST "" .;EMPTY DLC LIST .SETS $LCLST "" .;EMPTY LLC LIST .SETS NSMFL "" .;DEFAULT NSP TO NOT MARKED FOR LOAD .SETS AXMFL "" .;DEFAULT AUX TO NOT MARKED FOR LOAD .SETS NXMFL "" .;DEFAULT DLX TO NOT MARKED FOR LOAD .SETS NSCOU "!ZF.COU" .;DEFAULT TO COUNTER SUPPORT .SETS CPCOU "!ZF.COU" .;DEFAULT TO COUNTER SUPPORT .SETN DEFCSR 177777 .;SET DEFAULT CSR .SETN COUNT 0 .;ZERO LINE COUNT .SETN SLN 0 .;ZERO SYSTEM LINE # .SETF NPR .;CLEAR NPR DEVICE INDICATOR .SETF DUP .;CLEAR DEVICES USED .SETF DMC .SETF DMP .SETF DL .SETF DU .SETF DLV .SETF DUV .SETF DMV .SETF DPV .SETN CCBSZ 30. .; SET CCB SIZE .SETN SDBSZ 50. .; SET SDB SIZE .SETN DMCCNT 0. .; SET DMC COUNT .SETN REM 0. .; SET # OF REMOTE BLOCKS .SETN OBJ 0. .; SET # OF OBJECT BLOCKS .SETN DCPCNT 0. .; SET # OF ACTIVE DDCMP USERS .SETN ACTLIN 0. .; SET # OF ACTIVE LINES .SETN NMPRO 0. .; SET # OF PROCESSES .GOTO 20 .; GOTO START OF QUESTIONS .;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; .;;;;;;; ;;;;;;; .;;;;;;; SUBROUTINES ;;;;;;; .;;;;;;; ;;;;;;; .;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; .; .; .; ******************** HANDLE BAUD RATES ********************** .; .SPEED: .; .SETN BIT 0 .IF SPD EQ 50. .GOTO S10 .INC BIT .IF SPD EQ 75. .GOTO S10 .INC BIT .IF SPD EQ 110. .GOTO S10 .INC BIT .IF SPD EQ 134. .GOTO S10 .INC BIT .IF SPD EQ 150. .GOTO S10 .INC BIT .IF SPD EQ 300. .GOTO S10 .INC BIT .IF SPD EQ 600. .GOTO S10 .INC BIT .IF SPD EQ 1200. .GOTO S10 .INC BIT .IF SPD EQ 1800. .GOTO S10 .INC BIT .IF SPD EQ 2000. .GOTO S10 .INC BIT .IF SPD EQ 2400. .GOTO S10 .INC BIT .IF SPD EQ 3600. .GOTO S10 .INC BIT .IF SPD EQ 4800. .GOTO S10 .INC BIT .IF SPD EQ 7200. .GOTO S10 .INC BIT .IF SPD EQ 9600. .GOTO S10 .INC BIT .IF SPD EQ 19200. .GOTO S10 .IF SPD EQ 56000. .GOTO S10 .IFT SYNC .GOTO S05 .SETT ERR ; ; Error - Illegal baud rate ; .GOTO S10 .S05: ; ; Warning -- non-standard synchronous baud rate ; .S10: .RETURN .; *************************************************** .; .; ***** THIS SUBROUTINE HANDLES THE LSI DRIVERS ***** .; .DDM03: .IF NAME NE "DLV" .GOTO S15 .IFT DLV .GOTO S150 .SETT DLV .SETS DEVNAM "VL" .SETF SYNC .SETF $NDM .SETT SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM" .SETN VEC 0 .SETN CSR DEFCSR .SETF DMCTYP .GOTO RET03 .S15: .IF NAME NE "DUV" .GOTO S20 .IFT DUV .GOTO S150 .SETT DUV .SETS DEVNAM "VU" .SETT SYNC .SETF $NDM .SETT SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM" .SETN VEC 0 .SETN CSR DEFCSR .SETF DMCTYP .GOTO RET03 .S20: .IF NAME NE "DMV" .GOTO S25 .IFT DMV .GOTO S150 .SETT DMV .SETS DEVNAM "VN" .SETT SYNC .SETT NPR .SETF SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM!ZF.DLC'CPCOU'" .SETN VEC 0 .SETN CSR DEFCSR .SETT DMCTYP .GOTO RET03 .S25: .IF NAME NE "DPV" .GOTO S100 .IFT DPV .GOTO S150 .SETT DPV .SETS DEVNAM "VP" .SETT SYNC .SETT SWDCP .SETF $NDM .SETT SUPDEV .SETS DDMFLG "ZF.DDM" .SETN VEC 0 .SETF DMCTYP .SETN CSR DEFCSR .RET03: .RETURN .; .; ******* THIS SUBROUTINE HANDLES THE DDM PROCESSES ******* .; .DDM: .IF NAME NE "DUP" .GOTO S30 .IFT DUP .GOTO S150 .SETT DUP .SETS DEVNAM "XP" .SETT SYNC .SETF $NDM .SETT SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM" .SETN VEC 0 .SETN CSR DEFCSR .SETF DMCTYP .GOTO DDMRET .S30: .IF NAME NE "DMC" .GOTO S40 .SETN DMCCNT DMCCNT+1 .IFT DMC .GOTO S150 .SETT DMC .SETS DEVNAM "XM" .SETT SYNC .SETT NPR .SETF SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM!ZF.DLC'CPCOU'" .SETN VEC 0 .SETN CSR DEFCSR .SETT DMCTYP .SETT $PTP .GOTO DDMRET .S40: .S50: .IF NAME NE "DMP" .GOTO S60 .IFT DMP .GOTO S150 .SETT DMP .SETS DEVNAM "XN" .SETT SYNC .SETT NPR .SETF SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM!ZF.DLC'CPCOU'" .SETN VEC 0 .SETN CSR DEFCSR .SETT DMCTYP .GOTO DDMRET .S60: .S70: .IF NAME NE "DL" .GOTO S80 .IFT DL .GOTO S150 .SETT DL .SETS DEVNAM "XL" .SETF SYNC .SETF $NDM .SETT SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM" .SETN VEC 0 .SETN CSR DEFCSR .SETF DMCTYP .GOTO DDMRET .S80: .S90: .IF NAME NE "DU" .GOTO S100 .IFT DU .GOTO S150 .SETT DU .SETS DEVNAM "XU" .SETT SYNC .SETF $NDM .SETT SWDCP .SETT SUPDEV .SETS DDMFLG "ZF.DDM" .SETN VEC 0 .SETN CSR DEFCSR .SETF DMCTYP .GOTO DDMRET .S100: ; ; 'NAME' is not known to NETGEN or device not applicable for processor ; type selected. ; .GOTO S155 .S150: ; ; Error - Process name already in use ; .S155: .SETT ERR .DDMRET:.RETURN .; ******************************************************************* .; .; ***** THIS SUBROUTINE DEFINES THE SLTS ***** .; .; ******************************************************************* .SLT: .INC COUNT .SETS OWN "NSP" .; ASSUME NSP IS LINE OWNER .IFT $DONLY .SETS OWN "DLX" .; OWNER IS DLX IN DLX ONLY SYSTEM .SETS PRE "'NAME',DCP,'OWN'" .IFT MTP .SETS PRE "'NAME',DCS,'OWN'" .IFF SWDCP .SETS PRE "'NAME','NAME','OWN'" .SETS FLGS "LF.TIM" .; INIT LINE FLAGS .SETS SFLGS "" .; INIT STATION FLAGS .IF VEC EQ 0 .GOTO S210 .IF CSR EQ DEFCSR .GOTO S210 .IFDF LINEON .IFF $DONLY .GOTO S210 .IFF $EXP .GOTO S200 .S190: ; ; If 'NAME' is set to ON the 'NAME' device driver (DDM) and the line''s ; data base will be automatically loaded into memory at network ; initialization time. The line state will then be set ON and the ; network software (once initialized) will attempt node intialization ; on that line. If it is not enabled the user may set the state of the ; line to ON with either the NCP or utility. .S195: ; ; NOTE: Only ONE line state may be set to on. ; ; Do you want to - .S200: .ASK Q 12. Set the line state to ON on loading the network .IFT .GOTO S190 .IFF Q .GOTO S210 .SETT LINEON .INC ACTLIN .SETS FLGS "'FLGS'!LF.MFL!LF.ENA" .IFF $DONLY .SETS NSMFL "!ZF.MFL" .IFT $DONLY .SETS NXMFL "!ZF.MFL" .IF SFLGS NE "" .SETS SFLGS "'SFLGS'!SF.ENA" .IF SFLGS EQ "" .SETS SFLGS "'SFLGS'SF.ENA" .S210: .IFF SWDCP .GOTO S270 .INC DCPCNT .IFF $EXP .GOTO S230 .S220: ; ; If 'LINNM' is connected to a modem for a DDS (Dataphone Digital ; Service) switched circuit, the line will require modem control ; support. Modem control support monitors: ; ; - Dataset Ready (DSR) for synchronous lines ; ; - Carrier (CAR) for asynchronous lines ; ; If these signals are missing for two consecutive samples (at ; one-second intervals), the line will be declared as DOWN without ; waiting for DDCMP to detect the failure. ; .S230: .ASK Q 13. Is modem control required .IFT .GOTO S220 .IFT Q .SETS FLGS "'FLGS'!LF.MDC" .IFF Q .GOTO S270 .SETT $MDC .IF ACTLIN NE 0 .SETS AXMFL "!ZF.MFL" .SETN MSSYNC 0 .IFT SYNC .GOTO S260 .IFF $EXP .GOTO S250 .S240: ; ; It is necessary to distinguish asynchronous line modems which present ; continuous carrier once the connection is established (BELL 103/113) ; from those which switch carrier with Request-to-Send (BELL 202). ; .S250: .ASK Q 14. Does the modem switch carrier with Request-to-Send .IFT .GOTO S240 .IFT Q .SETN MSSYNC 1 .S260: .IFT SYNC .SETN MSSYNC 1 .SETN INT 2 .IF NAME EQ "DV" .SETN INT 0 .SETN STATUS MSSYNC+INT .SETN LINE 'COUNT'.-1 .; .; .DATA #2 .BYTE 'STATUS' .DATA #2 .BYTE 'SLN' .DATA #2 .WORD 0 .DATA #2 .WORD 0 .DATA #2 .WORD 0 .; .; .S270: .IFT MTP .SETS FLGS "'FLGS'!LF.MTP" .; .DATA #1 SLT$DF 'PRE','FLGS','CNT','UNT''MPTTYP' .; .; .; PROCESS MASTER, SLAVE, OR CONTENTION PARAMETERS .; .IFF MTP .GOTO S299 .SETN STAT 0. .S291: .SETS STANM "'LINNM'.'STAT'" .S292: .IFF $EXP .GOTO S294 .S293: ; ; Respond to the this question with the tributary address 'STANM' is ; to be set at. ; ; What is the - .S294: .ASKN [1.:255.] PHYSTA 15. Tributary address of 'STANM'? .IFT .GOTO S293 .; .DATA #1 STA$DF 'PHYSTA'.,NSP,'SFLGS','COST'.,1 .; .SETN STAT STAT+1. .IF STAT NE NMSTA .GOTO S291 .S299: .RETURN .; ******************************************************************* .; .; ***** THIS SUBROUTINE DEFINES CTNR ***** .; .; ******************************************************************* .CNTR: ; ; 'NAME'-'CNT' parameters - .SETN UNTNM 1 .IFF $EXP .GOTO S340 .S330: ; ; If the interrupt vector for 'NAME'-'CNT' is not known, answer the ; following question with a 0. The vector address may be overridden ; with the NCP utility when the line is loaded. ; ; NOTE: Vector addresses must be entered in octal. ; ; What is the - .S340: .ASKN [0:500:'VEC'] VEC 5. Vector address? .IFT .GOTO S330 .IF VEC EQ (VEC/4)*4 .GOTO S350 ; ; Error - Address must be a multiple of four ; .GOTO S340 .S350: .IFF $EXP .GOTO S370 .S360: ; ; If the device control and status register (CSR) address for ; 'NAME'-'CNT' is not known answer the following question with a ; 'DEFCSR'. The CSR address may be overridden with the NCP utility ; when the line is loaded. ; ; NOTE: The 16-bit virtual CSR address must be entered in octal. ; ; What is the - .S370: .ASKN [160000:177777:'CSR'] CSR 6. CSR address? .IFT .GOTO S360 .IFT .GOTO S380 .IF CSR EQ DEFCSR .GOTO S380 .IF CSR EQ (CSR/4)*4 .GOTO S380 ; ; Error - Address must be a multiple of four ; .GOTO S370 .S380: .SETN DEVPRI PRI .IFT PRI1 .GOTO S418 .IF NAME EQ "DUP" .SETN PRI TRUPRI .IFF $EXP .GOTO S400 .S390: ; ; Enter the hardware device priority for 'NAME'-'CNT'. The priority ; must be the range of 4 to 'PRI'. ; ; What is the - .S400: .ASKN [4:'PRI':'PRI'] DEVPRI 7. Device priority? .IFT .GOTO S390 .IF NAME EQ "DUP" .IF DEVPRI GT 4 .SETN DEVPRI DEVPRI-1 .S418: .SETS CNT'CNT' "CNT$DF 'CNT','VEC','CSR','DEVPRI'" .; .SETN UNT 0 .GOSUB UNIT .INC CNT .IF VEC EQ 0 .GOTO S430 .IF VEC LE 764 .GOTO S420 .SETN VEC 0 .GOTO S430 .S420: .SETN VEC VEC+10 .S430: .IF CSR LE 177764 .GOTO S440 .SETN CSR DEFCSR .GOTO S450 .S440: .SETN CSR CSR+10 .S450: .IF CNT LT CNTNM .GOTO CNTR .RETURN .; ********************************************* .; .; ***** THIS SUBROUTINE DEFINES UNTS ***** .; .UNIT: .SETS LINNM "'NAME'-'CNT'" .SETN PLEX 0 .IFF $EXP .GOTO S470 .S460: ; ; The default for duplex is full-duplex. This parameter may be ; overridden by the NCP utility when the line is loaded. ; ; Is the line - .S470: .ASKS PLX 8. Full- or Half-duplex ("FULL"/"HALF" D:"FULL")? .IFT .GOTO S460 .IF PLX EQ "" .OR .IF PLX EQ "FULL" .GOTO S480 .IF PLX NE "HALF" .GOTO S470 .INC PLEX .S480: .SETN REC 17 .; SET RECEIVE SPEED TO EXTERNAL .SETN TRN 17 .; SET TRANSMIT SPEED TO EXTERNAL .SETN TMP 9600. .IFT DMCTYP .SETN TMP 56000. .IFF $EXP .GOTO S500 .S490: ; ; Respond with the line speed for 'LINNM' in bits per second. If the ; line speed is greater than 56000 enter 56000. ; ; What is the - .S500: .ASKN [50.:'TMP'.:'SPD'.] SPD 9. Line speed (bits/second)? .IFT .GOTO S490 .SETF ERR .GOSUB SPEED .IFT ERR .GOTO S500 .IFT SYNC .GOTO S510 .SETN TRN BIT .; SET TRANSMIT SPEED .SETN REC BIT .; SET RECEIVE SPEED .S510: .SETN WRD1 PLEX+(REC*10000)+(TRN*400)+70 .;SPEED+8-BITS/CHAR+2 STOP BITS .IFF SYNC .SETN WRD1 WRD1!4 .SETN TMP1 0 .IFF DMCTYP .GOTO S520 .SETN TMP1 2 .IF SPD GE 19200. .INC TMP1 .IF SPD EQ 56000. .INC TMP1 .GOTO S540 .S520: .SETN NN 8. .; ASSUME SYNC DEVICE .IFF SYNC .SETN NN 10. .; MUST BE ASYNC .SETN TMP (RDBSZ/(SPD/NN))+2 .; CALCULATE TIMOUT + 2 FOR TIMER RESOLUTION .S530: .IF TMP1 EQ TMP .GOTO S540 .INC TMP1 .GOTO S530 .S540: .SETN WRD2 (TMP1*400)+1 .SETN COST 1 .IF SPD EQ 56000. .GOTO S545 .SETN COST 38400./SPD .IF COST > 25. .SETN COST 25. .S545: .IF NAME EQ "DL" .OR .IF NAME EQ "DLV" .GOTO S547 .GOTO S570 .S547: .IFF $EXP .GOTO S560 .S550: ; ; The DL11-WA and DLV-11F are the only supported DL options that either ; don''t: ; 1) Allow the Clear-to-Send signal to pass through the interface ; or ; 2) Allow the Clear-to-Send signal to be jumpered on. ; .S560: .ASK Q 10. Is the line a DL11-WA or DLV-11F .IFT .GOTO S550 .IFF Q .SETN WRD2 WRD2+100 .S570: .SETS SECCSR "" .S610: .; .IF NAME EQ "DMP" .GOTO S735 .SETF MTP .SETS MPTTYP "" .IF NAME EQ "DMC" .GOTO S750 .IFF $EXP .GOTO S630 .S620: ; ; If 'LINNM' is a tributary port on a multipoint line then answer YES ; to the this question. ; ; Is the line a - .S630: .ASK MTP 11. Multipoint tributary line .IFT .GOTO S620 .IFF MTP .SETT $PTP .IFF MTP .GOTO S750 .S730: .SETT $SLAVE .S735: .SETN WRD2 WRD2!30 .SETN COST COST+2 .IF COST > 25. .SETN COST 25. .SETN NMSTA 1 .SETS MPTTYP ",SLAVE" .S740: .SETN LINECT LINECT+NMSTA .S750: .GOSUB SLT .; .SETS UNT'CNT' "UNT$DF 'UNT','WRD1','WRD2'" .; .INC SLN .INC UNT .IF UNT LT UNTNM .GOTO UNIT .; .RETURN .; ******************************************************************* .; .; END OF SUBROUTINES .; .; ******************************************************************** .; .; .20: .IFT $DONLY .GOTO 390 .; SKIP NSP JUNK IN DLX ONLY SYS ; Target node parameters - ; ---------------------- ; ; The questions asked in this section deal with information found on ; the TARGET NODE PARAMETERS worksheet (#1) generated by NETPLN. ; .IFF $EXP .GOTO 240 .220: ; ; The node being generated can have one of three levels of counter ; support: ; ; * NONE - There are no counters in the system at all ; ; * LINE - There are only DDCMP line counters in the system ; ; * NODE - The are DDCMP line counters and transport level ; counters in the system ; ; It is recommended that you always have DDCMP line counters in your ; system. Node counters should be used if you are experiencing ; difficulties with system performance and you wish to fine tune your ; system. Refer to the DECnet-RT System Manager's Guide for a complete ; description of the line and node counters. ; ; What is the level of - .240: .ASKS [4:4] C 1. Counter support desired("NONE","LINE",or"NODE")? .IFT .GOTO 220 .IF C NE "NONE" .GOTO 241 .SETF $NSCOU .SETF $CPCOU .GOTO 250 .241: .IF C NE "LINE" .GOTO 242 .SETF $NSCOU .GOTO 250 .242: .IF C NE "NODE" .GOTO 220 .; .250: .IFF $NSCOU .SETS NSCOU "" .IFF $CPCOU .SETS CPCOU "" .390: .IFF $EXP .GOTO 440 .400: ; ; Enter the target node name (1 - 6 characters, alphanumeric only). ; This is the node name for the node being generated. ; ; What is the - .440: .ASKS [1:6] NODE 2. Target node name? .IFT .GOTO 400 .IFF .GOTO 440 .SETS TMPNOD NODE .SETS BLANKS "" .SETN XQ .480: .IF XQ >= 6 .GOTO 520 .SETS BLANKS " 'BLANKS'" .INC XQ .GOTO 480 .520: .SETS NODE "'NODE''BLANKS'" .IFF $EXP .GOTO 600 .560: ; ; The node address is a unique identification for this node within the ; Network. It must be in the range 1 to '$MAXAD'. ; ; What is - .600: .ASKN [1.:'$MAXAD'.] NODNUM 3. 'TMPNOD'''s node address? .IFT .GOTO 560 .IFF $EXP .GOTO 680 .640: ; ; Enter the target node ID (1 - 32 characters). This is the system ID ; for the node being generated. ; ; What is - .680: .ENABLE LOWERCASE .ASKS [0:32.] NODID 4. 'TMPNOD'''s node ID string? .DISABLE LOWERCASE .IFT .GOTO 640 .IF NODID EQ "" .SETS NODID " " .IFF $EXP .GOTO 760 .720: ; ; Answer the following question with the maximum number of logical links ; which may be active simultaneously. This includes logical links for ; user-written programs and the supplied utilities. ; ; What is the - .760: .ASKN [1.:255.:4.] LLK 5. Number of logical links? .IFT .GOTO 720 .; .IFF $EXP .GOTO 960 .920: ; ; Large data buffers (LDBs) are used for the transmission and reception ; of data. ; ; What is the - .960: .ASKN [4.:32.:6] RDBNM 6. Number of Large Data Buffers (LDBs)? .IFT .GOTO 920 .IFF $EXP .GOTO 1040 .1000: ; ; The Large Data Buffer (LDB) size determines the largest segment which ; can be transmitted/received by the Physical Line Protocol (DDCMP). The ; LDB size does not affect the size of the largest user Data ; Transfer Request, but it can affect performance. Choosing the LDB size ; involves a tradeoff between file transfer performance and ; interactive performance. The LDB size is influenced by the following ; factors: ; ; * Memory Availability - Large LDBs are good for bulk transfers, ; but you may not have the space. ; ; * Line Noise - A large LDB size means longer retransmission ; times when there are errors. On high speed lines this may not ; be significant. ; ; * Network Traffic - If you choose to have large LDBs for file ; transfer, you may be able to have only have a small number of ; LDBs due to memory constraints. This means that other programs ; will have to wait for buffers. ; ; If you want good file transfer performance, the large buffer size is ; better. For interactive traffic, the smallest size (164.) is better. ; NETGEN will add an overhead value for NSP and DAP overhead. ; ; What is the - .1040: .ASKN [164.:550.:256.] RDBSZ 7. Large Data Buffer (LDB) size? .IFT .GOTO 1000 .SETN RDBSZ RDBSZ+26. .; .IFF $EXP .GOTO 1120 .1080: ; ; The Small Data Buffers (SDBs) are used for internal storage of ; transmit data and temporary data structures. ; ; What is the - .1120: .ASKN [3.:30.:3.] SDBNM 8. Number of Small Data Buffers (SDBs)? .IFT .GOTO 1080 .; .SETN BUFS RDBNM+SDBNM+3. .IFF $EXP .GOTO 1130 .1125: ; ; Control Buffers (Communications Control Blocks or CCBs) are used by ; network processes to communicate with and schedule each other. ; ; What is the - .1130: .ASKN ['BUFS'.:65.:'BUFS'.] CCBNM 9. Number of Control Buffers (CCBs)? .IFT .GOTO 1125 .; .SETN T RDBNM-1 .SETN THRMAX 2 .IF T LT THRMAX .SETN THRMAX T .IFF $EXP .GOTO 1200 .1160: ; ; Large Data Buffers (LDBs) are used for both transmitting and ; receiving data segments. If the number of available large data ; buffers is equal to or less than the number reserved for receives, ; only receive buffer allocation requests will be honored. ; ; What is the - .1200: .ASKN [1.:'T'.:'THRMAX'.] THRESH 10. Number of LDBs reserved for receives? .IFT .GOTO 1160 ; ; Line parameters - ; --------------- ; ; The questions asked in this section deal with the information found on ; the COMMUNICATIONS DEVICE SUMMARY worksheet (#2) generated by NETPLN. ; .OPEN #1 '$CM'CTB2.TMP .OPEN #2 '$OU'AUX.DAT .OPEN #0 '$CM'CTB6.TMP .IFF $EXP .GOTO 1560 .1480: ; ; The Device Driver (DDM) Process names correspond to the two or three ; character device process name. Enter a carriage return when there are ; no more. Legal DDM device names are: ; ; Device Process Name RT-11 Handler Name Type DMA? ; ------------------ ------------------ ---- ---- .IFT $03 .OR .IFT $23 .GOTO 1490 ; DL XL Async No ; *DMC XM Sync Yes ; DMP XN Sync Yes ; DU XU Sync No ; DUP XP Sync No ; ; * The DMC process is also used to handle DMRs in DMC compatiblity ; mode .GOTO 1520 .1490: ; DLV (11/03/23) VL Async No ; (MICRO/PDP-11) ; DMV (11/03/23) VN Sync Yes ; (MICRO/PDP-11) ; DUV (11/03/23) VU Sync No ; (MICRO/PDP-11) ; DPV (11/03/23) VP Sync No ; (MICRO/PDP-11) .1520: ; .1560: .SETF ERR ; Device driver parameters - .ASKS [0:3] NAME 1. DDM process name .IFT .GOTO 1480 .IF EQ 0 .GOTO 1920 .IFF $03 .IFF $23 .GOSUB DDM .IFT $03 .OR .IFT $23 .GOSUB DDM03 .IFT ERR .GOTO 1560 .IFT SUPDEV .GOTO 1580 ; ; Warning - Unsupported Device - 'NAME' ; .1580: .SETN CNTNM 1 .IFF $EXP .GOTO 1640 .1600: ; ; Enter the number of 'NAME' controllers that are installed on the ; target system. Do not include any controllers which were specified ; during target system SYSGEN, since devices can not be shared between ; between DECnet and the RT-11 Operating System. ; ; What is the - .1640: .ASKN [1.:16.:1] CNTNM 2. Number of 'NAME' controllers? .IFT .GOTO 1600 .1660: .SETT PRI1 .SETN PRI 5 .SETN LINECT 0. .IFT $03 .GOTO 1880 .IF CNTNM = 1 .GOTO 1760 .IFF $EXP .GOTO 1720 .1680: ; ; All peripheral interfaces on PDP-11 processors are installed with a ; device priority in the range of 4 - 6 which, together with its ; position on the UNIBUS/QBUS, determines its priority in arbitrating ; control from the UNIBUS/QBUS. Answer YES to this question if all ; 'NAME's have been installed at the same hardware device priority ; level. ; .1720: .ASK PRI1 3. Are all 'NAME's installed at the same device priority .IFT .GOTO 1680 .1760: .ENABLE LOWERCASE .SETS XXX "" .IFF PRI1 .SETS XXX "highest " .DISABLE LOWERCASE .IFF $EXP .GOTO 1840 .1800: ; ; Enter the 'XXX' hardware device priority level .IFT PRI1 ; of all 'NAME's on the target system. .IFF PRI1 ; for the 'NAME's on the target system. ; .1840: .ASKN [4:6:5] PRI 4. What is the 'XXX''NAME' device priority? .IFT .GOTO 1800 .SETN TRUPRI PRI .IF NAME EQ "DUP" .IF PRI GT 4 .SETN PRI PRI-1 .1880: .SETN CNT 0 .SETN SPD 4800. .; .GOSUB CNTR .; .DATA DDM$DF 'NAME','DEVNAM','DDMFLG','PRI' .SETN J 0 .1900: .SETS CNTNAM CNT'J' .DATA 'CNTNAM' .SETS UNTNAM UNT'J' .DATA 'UNTNAM' .INC J .IF J LT CNTNM .GOTO 1900 .IF $DDLST NE "" .SETS $DDLST "'$DDLST','NAME'" .IF $DDLST EQ "" .SETS $DDLST "'NAME'" .INC NMPRO .GOTO 1520 .1920: .DATA #2 .WORD -1 .DATA #2 .END .CLOSE #0 '$CM'CTB6.TMP .CLOSE #2 '$OU'AUX.DAT .;******************************************************************* .; .; GENERATE BUF$DF,PDV$DF,LLC$DF,DLC$DF,NOD$DF .; .;******************************************************************* .; .; SET UP $DDLST $DCLST $LCLST .; .IF $DDLST NE "" .SETS $DDLST "<'$DDLST'>" .; .IFT $NDM .GOTO 1924 .IFF $PTP .GOTO 1922 .SETS $DCLST "DCP" .INC NMPRO .1922: .IFF $SLAVE .GOTO 1924 .IF $DCLST NE "" .SETS $DCLST "'$DCLST'," .SETS $DCLST "'$DCLST'DCS" .INC NMPRO .1924: .SETS $DCLST "<'$DCLST'>" .; .SETN I 0 .SETN DEFPRI 0 .IFF $MDC .GOTO 1930 .SETS $LCLST "AUX" .SETS LLC'I' " LLC$DF AUX,AX,ZF.LLC!ZF.TIM'AXMFL','DEFPRI' .SETS NAM'I' "AUX" .INC I .INC NMPRO .1930: .IFT $DONLY .GOTO 1940 .IF $LCLST NE "" .SETS $LCLST "'$LCLST'," .SETS $LCLST "'$LCLST'NSP" .SETS LLC'I' " LLC$DF NSP,NS,ZF.LLC!ZF.TIM'NSCOU''NSMFL','DEFPRI' .SETS NAM'I' "NSP" .INC I .INC NMPRO .1940: .IFF $DLX .GOTO 1950 .IF $LCLST NE "" .SETS $LCLST "'$LCLST'," .SETS $LCLST "'$LCLST'DLX" .SETS LLC'I' " LLC$DF DLX,NX,ZF.LLC!ZF.TIM'NXMFL','DEFPRI' .SETS NAM'I' "DLX" .INC I .INC NMPRO .1950: .SETS $LCLST "<'$LCLST'>" .; .; .; ************************ CTB3.TMP ************************ .; .OPEN #0 '$CM'CTB3.TMP .; .DATA BUF$DF 'CCBNM'.,'CCBSZ'.,'RDBNM'.,'RDBSZ'.,'SDBNM'.,'SDBSZ'.,'THRESH'. .DATA PDV$DF '$LCLST','$DCLST','$DDLST' .; .CLOSE #0 '$CM'CTB3.TMP .; .; ************************ CTB4.TMP ************************ .; .OPEN #0 '$CM'CTB4.TMP .; .SETN J 0 .1960: .SETN EXTLIN 0 .SETS LNK "" .IF NAM'J' EQ "DLX" .OR .IF NAM'J' EQ "NSP" .SETN EXTLIN COUNT .IF NAM'J' EQ "NSP" .SETS LNK ",'LLK'." .SETS NAME LLC'J' .SETS NAME "'NAME','EXTLIN'.'LNK'" .DATA 'NAME' .INC J .IF J LT I .GOTO 1960 .; .CLOSE #0 '$CM'CTB4.TMP .; .; ************************ CTB5.TMP ************************ .; .OPEN #0 '$CM'CTB5.TMP .; .IFT $SLAVE .IFT $PTP .SETT $MASTR .IFF $NDM .IFT $PTP .DATA DLC$DF DCP,CP,ZF.DLC'CPCOU','DEFPRI' .IFF $NDM .IFT $SLAVE .DATA DLC$DF DCS,CS,ZF.DLC'CPCOU','DEFPRI' .; .CLOSE #0 '$CM'CTB5.TMP .; .; ************************ CTB7.TMP ************************ .; .OPEN #0 '$CM'CTB7.TMP .; .IFT $DONLY .GOTO 2000 .; SKIP NSP JUNK IN DLX ONLY SYS .ENABLE LOWERCASE .DATA NOD$DF <'NODE'>,<'NODID'>,'NODNUM'.,'NODNUM'. .DISABLE LOWERCASE .2000: .2480: .IFT $DONLY .GOTO 2760 .; SKIP NSP JUNK IN DLX ONLY SYS ; ; Remote node parameters - ; ---------------------- .2520: .IFF $EXP .GOTO 2600 .2560: ; ; You may arrange for remote names to be set up when the network ; software is loaded by specifying the name and node number of these ; remotes. Enter a carriage return when you have no more remote names ; to enter. Additional names can be added after NETGEN using the NCP ; SET NODE and/or DEFINE NODE commands. ; ; What is the - .2600: .ASKS [0:6] REMNAM 1. Remote node name .IFT .GOTO 2560 .IF REMNAM EQ "" .GOTO 2740 .IF REMNAM NE TMPNOD .GOTO 2630 ; ; Error - 'REMNAM' is the local node name ; .GOTO 2520 .; .2630: .SETS TMPNDE REMNAM .TEST REMNAM .IF >= 6. .GOTO 2680 .SETS BLANK " " .SETN N 6.- .SETS BLK BLANK[1:'N'] .SETS REMNAM "'REMNAM''BLK'" .IFF $EXP .GOTO 2680 .2640: ; ; Specify the node address that 'TMPNDE' will have in the Network. ; ; What is - .2680: .ASKN [1:255.] REMNUM 2. 'REMNAM'''s node address? .IFT .GOTO 2640 .IF REMNUM EQ NODNUM .GOTO 2720 .DATA REM$DF <'REMNAM'>,'REMNUM'. .SETN REM REM+1 .GOTO 2600 .2720: ; ; Error - 'NODNUM' is the local node address ; .GOTO 2520 .2740: ; ; Network object parameters - ; ------------------------- .O10: .SETF OEXP .IFNDF OBJTF .SETS OBJTF "T" .SETS OBJTMP "T" .IF OBJTF = "T" .SETS OBJTMP "F" .SETS OBJTF OBJTMP .IFT $EXP .SETT OEXP .IFF OEXP .GOTO O30 .O20: ; ; You may arrange for object descriptors to be set up when the ; Network software is loaded by specifying the object number and its ; file descriptor. Enter a 0 when you have no more object descriptors ; to enter. Additional object descriptors can be added after NETGEN ; using the NCP SET OBJECT and/or DEFINE OBJECT commands. ; ; The object descriptors for DECnet-RT V2.0 supported utilities are: ; ; 16. TLK.SAV ; 17. FAL.SAV ; 19. NML.SAV ; 25. LOOPER.SAV ; .O25: .GOTO O30 .O27: ; ; Error in object - object 'OBJNUM' already defined ; .O30: .ASKN [0.:255.:0] OBJNUM 1. Object number .IFT .GOTO O20 .IF OBJNUM EQ 0 .GOTO 2760 .IFNDF OB'OBJNUM' .GOTO O40 .IF'OBJTF' OB'OBJNUM' .GOTO O27 .O40: .SET'OBJTF' OB'OBJNUM' .; .O65: .IFF OEXP .GOTO O80 .O70: ; ; Specify the filespec that is associated with object 'OBJNUM'. ; The default device is SY: and the default extension is SAV. ; ; What is - ; .GOTO O80 .O75: ; ; Error in object - 'OBJERR' ; .DISABLE LOWERCASE .O80: .ASKS [1:14.] OBJSPC 2. Object 'OBJNUM'''s filespec? .IFT .GOTO O70 .; .ENABLE LOWERCASE .SETS OBJSPC "%"+OBJSPC+"%" .PARSE OBJSPC ":" OBJDEV OBJSPC .SETS OBJERR "invalid device" .IF OBJDEV = "%" .GOTO O75 .PARSE OBJDEV "%" JUNK OBJDEV .IF OBJSPC <> "" .GOTO O85 .SETS OBJSPC OBJDEV .SETS OBJDEV "SY" .O85: .SETS OBJERR "device too long" .TEST OBJDEV .IF > 3 .GOTO O75 .SETS OBJERR "illegal character in device" .IFF .GOTO O75 .PARSE OBJSPC "." OBJFNM OBJEXT .IF OBJEXT = "" .SETS OBJEXT "SAV" .PARSE OBJEXT "%" OBJEXT JUNK .PARSE OBJFNM "%" OBJFNM JUNK .; .TEST OBJEXT .SETS OBJERR "illegal character in extension" .IFF .GOTO O75 .SETS OBJERR "extension too long" .IF > 3 .GOTO O75 .; .SETS OBJERR "filename missing" .IF OBJFNM = "" .GOTO O75 .TEST OBJFNM .SETS OBJERR "illegal character in filename" .IFF .GOTO O75 .SETS OBJERR "filename too long" .IF > 6 .GOTO O75 .DISABLE LOWERCASE .; .SETO OBJNUM .DATA OBJ$DF 'OBJNUM',<'OBJDEV'>,<'OBJFNM'>,<'OBJEXT'> .SETF OEXP .GOTO O30 .; .2760: .ENABLE DATA END$DF EXPPDT '$LCLST','$DCLST','$DDLST' EXPSLT '$DCLST','$DDLST' EXPLLT '$LCLST' EXPSTT EXPPVT '$LCLST','$DCLST','$DDLST' .LIST .END .DISABLE DATA .; .CLOSE #0 '$CM'CTB7.TMP .; .CLOSE #1 '$CM'CTB2.TMP .; .; ********************** ALLOW TO RE-MAKE CONFIGURATION ************** .; .2840: ; .2880: ; Do you want to - .ASKS EOS -continue, R-repeat section, E-exit .IF EOS EQ "" .GOTO 2885 .IF EOS EQ "R" .GOTO 3200 .IF EOS EQ "E" .GOTO 3100 ; ; Error - Invalid resonse ; .GOTO 2880 .2885: ; ; Working ... ; .2890: .SETS LIST "/LIST:'$LI'CETAB" .IF $LI EQ "" .SETS LIST "" .; .; *************** COMM EXEC DATA BASE ASSEMBLY *************** .; .OPEN #0 '$CM'CETASM.COM .ENABLE DATA ! ! THIS COMMAND FILE ASSEMBLES THE COMM EXEC DATA BASE (CETAB.MAC) ! MACRO/OBJECT:'$CM'CETAB.OBJ'LIST' '$CM'GENMLB/LIBRARY+'$OU'CETAB.MAC .DISABLE DATA .CLOSE #0 '$CM'CETASM.COM .DATA #3 $@'$CM'CETASM.COM .IFT $DE .DATA #3 DELETE/NOQUERY '$CM'CETASM.COM .CLOSE #3 '$CM'BLDNET.COM .2920: .ENABLE QUIET .2925: .SETS CTB5 "CTB5.TMP," .IFT $NDM .SETS CTB5 "" COPY/NOLO/CONC '$CM'(CTB1.TMP,CTB3.TMP,CTB2.TMP,CTB4.TMP) '$CM'CETAB.000 COPY/NOLO/CONC '$CM'('CTB5'CTB6.TMP,CTB7.TMP) '$CM'CETAB.001 COPY/NOLO/CONC '$CM'(CETAB.000,CETAB.001) '$OU'CETAB.MAC DELETE/NOQUERY '$CM'(CTB%.TMP,CETAB.000,CETAB.001) .2930: .DISABLE QUIET .; .; ****************** END OF ASSEMBLY ********************* .3000: .; .; SET UP GLOBALS NEEDED FOR POOL SIZING(FORCE TO DECIMAL) .; .SETN RDBSZ RDBSZ+12. .;ADD IN DLC AND CRC OVERHEAD .SETN $CCB (CCBNM*CCBSZ)+0. .SETN $POOL (SDBNM*SDBSZ)+(RDBNM*RDBSZ)+4. .;NEED 4 BYTES FOR $ALOC .SETN $POOL (($POOL+63.)/64.)*64. .SETN $LINES COUNT+0. .SETN $NMPRO NMPRO+0. .IF ACTLIN EQ 0 .SETN ACTLIN 1. .SETN $ACTLN ACTLIN+0. .SETN $LLKS LLK+0. .SETN $DMCCT DMCCNT+0. .SETN $DCPCT DCPCNT+0. .IF DMCCNT NE 0 .IF ACTLIN < DMCCNT .SETN $DMCCT ACTLIN+0. .IF DCPCNT NE 0 .IF ACTLIN < DCPCNT .SETN $DCPCT ACTLIN+0. .SETN $REM REM*10. .SETN $OBJ OBJ*14. .EXIT 1 .; .; EXIT NETGEN .; .3100: .CLOSE #3 '$CM'BLDNET.COM .ENABLE QUIET DELETE/NOQUERY '$CM'BLDNET.COM DELETE/NOQUERY '$CM'CTB*.TMP .DISABLE QUIET .EXIT 2 .; .; REPEAT CONFIGURATION SECTION .; .3200: .CLOSE #3 '$CM'BLDNET.COM .ENABLE QUIET DELETE/NOQUERY '$CM'CTB*.TMP .DISABLE QUIET .OPENA #3 '$CM'BLDNET.COM .GOTO 10 .; .; C E X G E N . C O M .; .; COMMUNICATION EXECUTIVE BUILD PROCEDURE .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE ESCAPE .; .; CALCULATE CEX POOL SIZE .; .SETN CL $LINES*16. .; CETAB OVERHEAD/LINE .SETN CP $NMPRO*12. .; CETAB OVERHEAD/PROCESS .SETN CP CP+($NMPRO*2.)+2. .; PDV .SETN CL CL+($LINES*4.) .; LINE MAPPING TABLES .IFT $DLX .SETN CL CL+($LINES*2.)+2. .; DLX CHANNEL MAPPING .IFF $DONLY .SETN CL CL+($LINES*2.)+2. .; NSP CHANNEL MAPPING .SETN CTB CL+CP+0. .; TOTAL CETAB OVERHEAD .SETN TMP1 $ACTLN*104. .; LINE TABLE/ACTIVE LINE .SETN TMP2 $DCPCT*128. .; DDCMP LINE TABLE/ACTIVE LINE .SETN TMP3 $DMCCT*128. .; DMC BASE TABLE/ACTIVE LINE .SETN L TMP1+TMP2+TMP3 .; TOTAL LINE OVERHEAD .SETN TMP4 ($LINES+1.)*18. .; NSP OVERHEAD/LINE .SETN TMP5 $LLKS*86. .; NSP OVERHEAD/ACTIVE LINK .SETN TMP6 90. .; NSP STATIC OVERHEAD .SETN TMP7 6.*16. .; NSP MAILBOX SPACE .SETN N TMP4+TMP5+TMP6+TMP7 .; TOTAL NSP OVERHEAD .SETN TMP8 128. .; FUDGE FACTOR .SETN TMP9 64. .; NETWORK UNLOAD BLOCK .SETN X TMP8+TMP9 .SETN CEPOOL $CCB+$REM+$OBJ+0. .; CCB + REMOTE + OBJECT .SETN CEPOOL CEPOOL+CTB+L+N+X+0. .IF $DCPCT NE 0 .SETN CEPOOL CEPOOL+320. .; SOFTWARE LIBRARY ROUTINES .SETN CEPOOL ((CEPOOL+63.)/64.)*64. .SETN POOL $POOL/2. .SETN CEPOOL CEPOOL/2. ; ; Communications executive (CEX) - ; ------------------------------ .IFNDF $MAP .GOTO 500 .IFT $03 .OR .IFT $23 .GOTO 8 .IFF $EXP .GOTO 7 .6: ; ; The KG-11 communications arithmetic option computes the cyclic ; redunancy check characters which are used for error detection in ; serially transmitted / received data. If the target system does not ; have the KG-11 option and the communications interface option(s) ; installed on the target system do not perform CRC checking, then a ; software algorithm will be used. ; .7: .ASK KG 1. Does the target system have a KG-11 .IFT .GOTO 6 .; .8: .IFT $03 .OR .IFT $23 .SETF KG ; ; The Communication Executive (CEX) free space has been set to 'CEPOOL'. ; words and the Network Buffer Pool has been set to 'POOL'. words. ; .IFF $EXP .GOTO F2 .F1: ; ; The communications executive free space can be extended by the ; number of words you specify. This is usually done to allow more ; remote node descriptors or more object descriptors. It is also ; necessary if you use many aliases. ; ; What is the - .F2: .ASKN [0.:1024.:0.] CADD 2. Size of the CEX free space extension? .IFT .GOTO F1 .; .IFF $EXP .GOTO F4 .F3: ; ; The Network Buffer Pool can be extended by the number of words you ; specify. This additional space can be used to allocate more buffers ; after the generation or to allow the freedom of expanding your ; buffer size at a later time. ; ; What is the - .F4: .ASKN [0.:4096.:0.] PADD 3. Size of the Network Buffer Pool extension? .IFT .GOTO F3 .IF CADD EQ 0 .IF PADD EQ 0 .GOTO F5 .SETN CEPOOL CEPOOL+CADD .SETN POOL POOL+PADD ; ; The Communication Executive (CEX) free space has been reset to 'CEPOOL' ; words and the Network Buffer Pool has been reset to 'POOL' words. ; .F5: .IFF KG .SETS CRC "STCRC" .IFF KG .IFT $EIS .SETS CRC "STCRC1" .IFT KG .SETS CRC "STCRCK" .10: .SETS DDM "CEDDM" .; DEFAULT MODULE NAMES .SETS SUB "CESUB" .IFT $NDM .SETS DDM "CEDDMN" .IFT $EIS .SETS SUB "CESUB1" .SETS MAP "/MAP:'$MA'CEX" .IF $MA EQ "" .SETS MAP "" .OPEN #0 '$CM'CEAVL.MAC .ENABLE DATA #0 .TITLE CEAVL - CEX FREE SPACE LISTHEAD .IDENT /V02.0/ .DSABL GBL ; ; COPYRIGHT (C) 1981,1982 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ; TRANSFERRED. ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ; CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; ; ; MODULE DESCRIPTION: ; ; COMMUNICATION EXECUTIVE FREE SPACE LISTHEAD ; ; IDENT HISTORY: ; ; 2.0 1-FEB-81 ; RT-11 DECNET V2.0 ; .SBTTL CEX FREE SPACE AREA ;+ ; ; **- $CEAVL - CEX FREE SPACE LISTHEAD AND FREE SPACE AREA ; **- $HMBLK - NTL HOME BLOCK ; ; ; FUNCTION: ; ; Communication Executive free space area. ; ; DESCRIPTION: ; ;- .PSECT CXDVR ; ;HOME BLOCK AREA ; $HMBLK::.BLKW 32. ; HOME BLOCK ; ; CEX POOL AREA ; .WORD 3 ; ROUNDING FACTOR $CEAVL::.WORD .+2 ; POINTER TO FIRST FREE BLOCK .WORD 0 ; NO NEXT BLOCK .WORD CXPLLN ; POOL LENGTH CXPL: .BLKW 'CEPOOL'. ; COMM EXEC POOL CXPLLN =.-CXPL .DISABLE DATA #0 .IFF $MAP .DATA #0 $CXPLL::.WORD 0 ; NO NEXT BLOCK .IFF $MAP .DATA #0 .WORD 'POOL'.*2. .IFF $MAP .DATA #0 .BLKW 'POOL'.-2. ; NETWORK POOL .ENABLE DATA #0 .END .DISABLE DATA #0 .CLOSE #0 '$CM'CEAVL.MAC .SETS LIST "/LIST:'$LI'CEAVL" .IF $LI EQ "" .SETS LIST "" .OPEN #0 '$CM'CEXASM.COM .ENABLE DATA MACRO/OBJ:'$CM'CEAVL'LIST' '$CM'GENMLB/LIBRARY+'$CM'CEAVL .DISABLE DATA .CLOSE #0 '$CM'CEXASM.COM .OPEN #0 '$CM'CEXBLD.COM ; ; Working ... ; .ENABLE DATA ! ! C E X B L D . C O M ! ! COMMAND FILE TO BUILD THE COMM EXEC ! ! THIS FILE LINKS THE COMM EXEC ! LINK/EXE:'$OU'CX'$X'.SYS'MAP'/SYMBOLTABLE:'$OU'CX/PROMPT '$DI'CEXBG'$X' '$DI'CEXGB'$X' '$DI'CEXCM '$DI'CESCH '$DI'CEBUF'$X' '$DI'CETIM '$DI'CESUB '$DI'CERT1'$X' '$DI'CEDLC '$DI'CELLC '$DI''DDM' '$DI'AXSCH '$CM'CEAVL '$DI'CEXEN'$X' // .DISABLE DATA .IFT $NDM .GOTO 100 .SETS MAP "/MAP:'$MA'STCRC" .IF $MA EQ "" .SETS MAP "" .ENABLE DATA LINK/EXE:'$OU'STCRC.SYS'MAP'/SYMBOLTABLE:'$OU'STCRC/PROMPT '$OU'CX.STB '$DI''CRC' // .DISABLE DATA .SETS MAP "/MAP:'$MA'DDHAR" .IF $MA EQ "" .SETS MAP "" .ENABLE DATA LINK/EXE:'$OU'DDHAR.SYS'MAP'/SYMBOLTABLE:'$OU'DDHAR/PROMPT '$OU'CX.STB '$DI'DDHAR // .DISABLE DATA .100: .SETS MAP "/MAP:'$MA'CETAB" .IF $MA EQ "" .SETS MAP "" .ENABLE DATA ! ! BUILD A TASK IMAGE OF THE CETAB DATABASE ! ! ! THIS FILE LINKS THE CETAB MODULE ! NOTE THAT THIS TASK IS NEVER ACTUALLY EXECUTED ! LINK/EXE:'$OU'CETAB.SYS'MAP'/SYMBOLTABLE:'$OU'CETAB '$CM'CETAB .DISABLE DATA .CLOSE #0 '$CM'CEXBLD.COM .DATA #3 $@'$CM'CEXASM .IFT $SPL .DATA #3 PRINT '$LI'CEAVL.LST,'$OU'CETAB.MAC,'$LI'CETAB.LST .IFF $SMALL .GOTO SMX .SETS SMDV $DI[1:2] .IFF $SMLL2 .SETS LBL "CEXPRO" .IFT $SMLL2 .SETS LBL "CEXDDM" .ENABLE DATA #3 .STSTF'$TSTNM':.TESTFILE '$DI'CEXGB.OBJ .IF EQ 1 .GOTO SMEX'$TSTNM' ; ; Insert the 'SMDV' labelled 'LBL' into '$DI' ; .SMTST'$TSTNM': .ASK Q Is '$DI' ready .IFF Q .GOTO SMTST'$TSTNM' .GOTO STSTF'$TSTNM' .SMEX'$TSTNM': .; .DISABLE DATA #3 .INC $TSTPS .SETS $TSTNM $TSTRY['$TSTPS':'$TSTPS'] .SMX: .DATA #3 $@'$CM'CEXBLD .IFT $SPM .DATA #3 PRINT '$MA'CEX.MAP,'$MA'CETAB.MAP .IFT $NDM .GOTO 200 .IFT $SPM .DATA #3 PRINT '$MA'STCRC.MAP,'$MA'DDHAR.MAP .200: .IFT $DE .DATA #3 DEL/NOQUERY '$CM'CEXBLD.COM,'$CM'CEXASM.COM .IFT $DE .DATA #3 DEL/NOQUERY '$CM'CEAVL.OBJ,'$CM'CEAVL.MAC,'$CM'CETAB.OBJ .GOTO FINI .500: ; ; THIS COMMAND FILE IS PART OF NETGEN, AND CAN NOT BE ; ENVOKED INDEPENDENTLY. ; .FINI: .; .; D D M G E N. C O M .; .; DEVICE DRIVER PROCESS BUILD PROCEDURE .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE ESCAPE .SETF H1 .; NO HEADERS PRINTED YET .SETF H2 .SETF H3 .GOTO SKIP1 .; SKIP SUBROUTINES .PH1: .SETT H1 ; ; DDM processes - ; ------------- .RETURN .PH2: .SETT H2 ; ; 'DDM' parameters - .RETURN .PH3: .SETT H3 .IFF $SMALL .GOTO SMX .SETS SMDV $DI[1:2] .IFF $SMLL2 .SETS LBL "CEXPRO" .IFT $SMLL2 .SETS LBL "CEXDDM" .ENABLE DATA #3 .STSTF'$TSTNM':.TESTFILE '$DI''DDM'.OBJ .IF EQ 1 .GOTO SMEX'$TSTNM' ; ; Insert the 'SMDV' labelled 'LBL' into '$DI' ; .SMTST'$TSTNM': .ASK Q Is '$DI' ready .IFF Q .GOTO SMTST'$TSTNM' .GOTO STSTF'$TSTNM' .SMEX'$TSTNM': .; .DISABLE DATA #3 .INC $TSTPS .SETS $TSTNM $TSTRY['$TSTPS':'$TSTPS'] .SMX: .RETURN .; .SKIP1: .; .; .IFNDF $MAP .GOTO 500 .IFDF $NDM .GOTO I30 .IFF H1 .GOSUB PH1 .IFF $EXP .GOTO I20 .I10: ; ; The answer to this question will determine whether the linker files ; should link to the DDCMP library routines. These devices do not ; require software DDCMP. ; .I20: .ASK $NDM 1. Are there only DMCs or DMP/DMVs in your configuration .IFT .GOTO I10 .I30: .IFT $EXP .SETT EXPLN .IFF $EXP .SETF EXPLN .IFNDF $DDLST .GOTO 10 .TEST $DDLST .SETN K .IF K <= 2 .GOTO 510 .SETN I 1 .10: .IFDF $DDLST .GOTO 30 .IFF H1 .GOSUB PH1 .IFF EXPLN .GOTO 20 .15: ; ; Answer this question with the 2 or 3 character device mneumonic. ; Answer with a carriage return to terminate device driver linking. ; .20: .SETF H2 .ASKS [0:3] DDM 2. Device type (e.g. DMC, DUP)? .IFT .GOTO 15 .IF DDM EQ "" .GOTO 480 .GOTO 50 .30: .SETN J I+1 .35: .INC I .SETS CHAR $DDLST[I:I] .IF CHAR EQ "," .GOTO 40 .IF CHAR NE ">" .GOTO 35 .40: .SETS DDM $DDLST[J:I-1] .SETF H2 .50: .IFF H1 .GOSUB PH1 .IFF H2 .GOSUB PH2 .SETT $'DDM' ; ; Working ... ; .IF DDM EQ "DL" .SETS DEVNAM "XL" .IF DDM EQ "DLV" .SETS DEVNAM "VL" .IF DDM EQ "DU" .SETS DEVNAM "XU" .IF DDM EQ "DUV" .SETS DEVNAM "VU" .IF DDM EQ "DMP" .SETS DEVNAM "XN" .IF DDM EQ "DMV" .SETS DEVNAM "VN" .IF DDM EQ "DMC" .SETS DEVNAM "XM" .IF DDM EQ "DMR" .SETS DEVNAM "XM" .IF DDM EQ "DUP" .SETS DEVNAM "XP" .IF DDM EQ "DPV" .SETS DEVNAM "VP" .IFF H3 .GOSUB PH3 .DATA #3 $@'$CM''DDM'BLD .IFT $SPM .DATA #3 PRINT '$MA''DDM'.MAP .IFT $DE .DATA #3 DELETE/NOQUERY '$CM''DDM'BLD.COM .DATA #3 COPY/NOLOG '$DI''DDM''$X'.DAT '$OU''DDM'.DAT .IF DDM EQ "DMP" .DATA #3 COPY/NOLOG '$DI''DDM'ST.DAT '$OU''DDM'ST.DAT .IF DDM EQ "DMV" .DATA #3 COPY/NOLOG '$DI''DDM'ST.DAT '$OU''DDM'ST.DAT .240: .SETS MAP "/MAP:'$MA''DDM'" .IF $MA EQ "" .SETS MAP "" .OPEN #1 '$CM''DDM'BLD.COM .ENABLE DATA #1 ! ! 'DDM'BLD.COM ! ! COMMAND FILE TO BUILD 'DDM' DRIVER PROCESS ! ! LINK/EXE:'$OU''DEVNAM''$X'.SYS'MAP'/SYMBOLTABLE:'$OU''DDM'/PROMPT .DISABLE DATA #1 .IFT $NDM .GOTO 400 .ENABLE DATA #1 '$OU'STCRC.STB '$OU'DDHAR.STB .DISABLE DATA #1 .400: .ENABLE DATA #1 '$OU'CX.STB '$DI''DDM'BG'$X' '$DI''DDM''$X' '$DI''DDM'EN'$X' // .DISABLE DATA .440: .CLOSE #1 .SETF EXPLN .IFNDF $DDLST .GOTO 20 .IF I < K .GOTO 30 .480: .GOTO FINI .500: ; ; THIS COMMAND FILE IS PART OF NETGEN, AND CAN NOT BE ; ENVOKED INDEPENDENTLY. ; .GOTO FINI .510: .GOSUB PH1 ; No Device Driver Module (DDM) processes included .; .; No communications devices were specified during the generation of the .; configuration database (CETAB). .; .FINI: .; .; L L C G E N. C O M .; .; .; LLC PROCESS BUILD PROCEDURE .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE ESCAPE .ENABLE LOWERCASE .SETF $AUX .; DEFAULT TO NO AUX, OR NSP .SETF $NSP .; DLX ALREADY DEFINED .SETF H1 .SETF H2 .SETF H3 .IFNDF $MAP .GOTO NFW .IFT $EXP .SETT EXPLN .IFF $EXP .SETF EXPLN .GOTO SKIP1 .; SKIP SUBROUTINES .OCT: .SETS OCTAL "" .O1: .SETN CH VAL&7 .SETS OCTAL "'CH''OCTAL'" .SETN VAL VAL/8. .IF VAL NE 0 .GOTO O1 .RETURN .PH1: .SETT H1 ; ; LLC processes - ; ------------- .RETURN .PH2: .SETT H2 ; ; 'LLC' parameters - .RETURN .PH3: .SETT H3 .IFF $SMALL .GOTO SMX .SETS SMDV $DI[1:2] .IFF $SMLL2 .SETS LBL "CEXPRO" .IFT $SMLL2 .SETS LBL "LLC" .ENABLE DATA #3 .STSTF'$TSTNM':.TESTFILE '$DI''LLC'BGN.OBJ .IF EQ 1 .GOTO SMEX'$TSTNM' ; ; Insert the 'SMDV' labelled 'LBL' into '$DI' ; .SMTST'$TSTNM': .ASK Q Is '$DI' ready .IFF Q .GOTO SMTST'$TSTNM' .GOTO STSTF'$TSTNM' .SMEX'$TSTNM': .; .DISABLE DATA #3 .INC $TSTPS .SETS $TSTNM $TSTRY['$TSTPS':'$TSTPS'] .SMX: .RETURN .; .SKIP1: .IFDF $DLXBF .GOTO I1 .SETN $DLXBF 0 .I1: .IFDF $LINES .GOTO I15 .IFF H1 .GOSUB PH1 .IFF $EXP .GOTO I10 .I5: ; ; Enter the number of physical links you have generated in your system. ; .I10: .ASKN [0.:256.] $LINES 1. Number of physical links to adjacent nodes? .IFT .GOTO I5 .I14: .SETF $ROUTE .; A NON-ROUTING NODE .I15: .IFDF $MDC .GOTO I30 .IFF H1 .GOSUB PH1 .IFF $EXP .GOTO I25 .I20: ; ; AUX will be linked if any device in your configuration needs modem ; control. ; .I25: .ASK $MDC 2. Does any line need modem control .IFT .GOTO I20 .I30: .I60: .IFDF $NSCOU .GOTO I80 .IFF H1 .GOSUB PH1 .IFF $EXP .GOTO I65 .I62: ; ; NSP can be built with or without counter support. ; It is recommended that counter support be included whenever possible. ; You must give the same answer here as you did in the NETGEN ; Configuration Section. ; .I65: .ASK Q 3. Do you wish node counter support .IFT .GOTO I62 .SETT $NSCOU .IFF Q .SETF $NSCOU .I80: .IFNDF $LCLST .GOTO 1350 .TEST $LCLST .SETN K .IF K <= 2 .GOTO NOLLC .SETN I 1 .GOTO 1440 .1350: .IFF H1 .GOSUB PH1 .IFF EXPLN .GOTO 1400 .1360: ; ; Answer this question with the three character LLC process name. ; Respond with a carriage return after all LLCs have been ; specified. The legal LLC names are: ; ; NSP, DLX, and AUX .1400: ; .SETF H2 .ASKS [0:3] LLC 4. LLC process name? .IFT .GOTO 1360 .IF LLC EQ "" .GOTO FINI .GOTO 1840 .1440: .SETN J I+1 .1480: .INC I .SETS CHAR $LCLST[I:I] .IF CHAR EQ "," .GOTO 1520 .IF CHAR NE ">" .GOTO 1480 .1520: .SETS LLC $LCLST[J:I-1] .SETF H2 .1840: .SETS MAP "/MAP:'$MA''LLC'" .IF $MA EQ "" .SETS MAP "" .IF LLC EQ "NSP" .GOTO 1920 .IF LLC EQ "DLX" .GOTO 2800 .IF LLC EQ "AUX" .GOTO 2920 ; ; Error - Unknown LLC process - '''LLC''' ; .GOTO 1400 .; .; .1880: .SETF EXPLN .IFNDF $LCLST .GOTO 1400 .IF I < K .GOTO 1440 .GOTO FINI .; .;******************** NSP ******************** .; .1920: .SETT $NSP .IFF H1 .GOSUB PH1 .IFF H2 .GOSUB PH2 .SETN NUM 0 .IFF $NSCOU .GOTO 2000 .IFF $EXP .GOTO 1940 .1930: ; ; The Network software maintains counters on the traffic to all other ; nodes with which it has had a logical link. Enter the maximum number ; of nodes to which this nodes may have logical links at any one ; time. If this value is exceeded the connection request will be ; rejected with a resource allocation failure. ; ; What is the - .1940: .ASKN [2.:32.:5.] NUM 5. Number of node counters to keep .IFT .GOTO 1930 .; .1950: .OPEN #0 '$CM'NSCOU.MAC .ENABLE DATA #0 .TITLE NSCOU - NSP COUNTER BLOCKS .IDENT /V01.00/ ; ; COPYRIGHT (C) 1980,1981,1982 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; .SBTTL MACRO CALLS ;***** ; MACRO CALLS ;************ .MCALL CTRDF$ .LIST ME CTRDF$ .PSECT NSDVR,I .SBTTL $$TNC - TRANSPORT NODE COUNTERS .SBTTL $$TLC - TRANSPORT LINE COUNTERS .SBTTL $$NNC - NSP NODE COUNTERS ;+ ; ; **- $$TNC - TRANSPORT NODE COUNTERS ARE KEPT HERE. ; ;- $$TNC:: .BLKB '$LINES'.*T$NLEN ; START OF TRANSPORT NODE COUNTERS $$TNCE:: ; END OF TRANSPORT NODE COUNTERS $CIRES:: .WORD 0 ; TOTAL CI RESOURCE ERROR COUNT $MXLNK:: .BYTE 0 ; LOGICAL LINK IN-USE COUNT .BYTE 0 ; HIGH WATER MARK FOR LOGICAL LINKS IN-USE COUNT ; + ; ; **- $$TLC - TRANSPORT LINE COUNTER IS KEPT HERE. ; ; - $$TLC:: ; START OF TRANSPORT LINE COUNTERS .BLKB '$LINES'.*T$LLEN $$TLCE:: ; END OF TRANSPORT LINE COUNTERS ;+ ; ; **- $$NNC - NSP NODE COUNTERS ; ;- $$NNC:: ; START OF NSP NODE COUNTERS .BLKB 'NUM'.*E$NLEN ; ROOM FOR TWO OR MORE NODE COUNTERS(ALWAYS NEED ONE ; FOR SELF) $$NNCE:: ; END OF TRANSPORT NODE COUNTER .END .DISABLE DATA #0 .CLOSE #0 '$CM'NSCOU.MAC .SETS LIST "/LIST:'$LI'NSCOU" .IF $LI EQ "" .SETS LIST "" .OPEN #0 '$CM'NSPASM.COM .ENABLE DATA #0 ! ! THIS FILE ASSEMBLES THE NSP COUNTER MODULE ! MACRO/OBJ:'$CM'NSCOU'LIST' '$CM'GENMLB/LIBRARY+'$CM'NSCOU .DISABLE DATA #0 .CLOSE #0 '$CM'NSPASM.COM .DATA #3 $@'$CM'NSPASM.COM .IFT $SPL .DATA #3 PRINT '$LI'NSCOU.LST .IFT $DE .DATA #3 DEL/NOQUERY '$CM'NSPASM.COM,'$CM'NSCOU.MAC .2000: ; ; Working ... ; .IFT $MAP .GOTO 2005 .IFT $NSCOU .GOTO 2003 .; .; UNMAPPED AND NO COUNTERS .; .SETS DRV "NSDRV" .SETS DSP "NSDSP" .SETS CP "NSCPE" .SETS RC "NSRC" .SETS XM "NSXME" .SETS SUB "NSSUB" .SETS SB "NSSBE" .SETS CTR "" .GOTO 2009 .2003: .; .; UNMAPPED AND COUNTERS .; .SETS DRV "NSDRVC" .SETS DSP "NSDSPC" .SETS CP "NSCPEC" .SETS RC "NSRCC" .SETS XM "NSXMEC" .SETS SUB "NSSUB" .SETS SB "NSSBEC" .SETS CTR "'$DI'NSCTR,'$CM'NSCOU" .GOTO 2009 .2005: .IFT $NSCOU .GOTO 2007 .; .; MAPPED AND NO COUNTERS .; .SETS DRV "NSDRVX" .SETS DSP "NSDSP" .SETS CP "NSCPE" .SETS RC "NSRC" .SETS XM "NSXMEX" .SETS SUB "NSSUBX" .SETS SB "NSSBEX" .SETS CTR "" .GOTO 2009 .2007: .; .; MAPPED AND COUNTERS .; .SETS DRV "NSDRVY" .SETS DSP "NSDSPC" .SETS CP "NSCPEC" .SETS RC "NSRCC" .SETS XM "NSXMEY" .SETS SUB "NSSUBX" .SETS SB "NSSBEY" .SETS CTR "'$DI'NSCTR,'$CM'NSCOU" .2009: .OPEN #0 '$CM'NSPBLD.COM .ENABLE DATA ! ! THIS FILE LINKS THE NSP DRIVER ! LINK/EXE:'$OU'NS'$X'.SYS'MAP'/SYMBOLTABLE:'$OU'NSP/PROMPT '$OU'CX.STB '$DI'NSBGN'$X' '$DI''DRV' '$DI''DSP' '$DI''CP' '$DI''RC' '$DI''XM' '$DI''SUB' '$DI''SB' 'CTR' '$DI'NSEND'$X' // .DISABLE DATA .CLOSE .IFT $MAP .GOTO 2015 .IFT $NSCOU .GOTO 2013 .; .; UNMAPPED AND NO COUNTERS .; .SETS MOU "NAMOU" .SETS NET "NANET" .SETS CON "NACON" .SETS TM "NATME" .SETS CT "NACTE" .SETS RC "NARCE" .SETS ASB "NAASB" .SETS CSB "NACSB" .SETS TN "NATNE" .SETS OBJ "NAOBJ" .SETS GND "NAGND" .SETS LS "NALSE" .SETS CDS "NACDS" .SETS TRM "NATRM" .SETS RCV "NARCV" .SETS EVT "NAEVT" .SETS SUB "NASUB" .SETS SB "NASB" .GOTO 2019 .2013: .; .; UNMAPPED AND COUNTERS .; .SETS MOU "NAMOUC" .SETS NET "NANET" .SETS CON "NACON" .SETS TM "NATMEC" .SETS CT "NACTEC" .SETS RC "NARCEC" .SETS ASB "NAASBC" .SETS CSB "NACSBC" .SETS TN "NATNEC" .SETS OBJ "NAOBJ" .SETS GND "NAGND" .SETS LS "NALSEC" .SETS CDS "NACDS" .SETS TRM "NATRMC" .SETS RCV "NARCV" .SETS EVT "NAEVTC" .SETS SUB "NASUBC" .SETS SB "NASB" .GOTO 2019 .2015: .IFT $NSCOU .GOTO 2017 .; .; MAPPED AND NO COUNTERS .; .SETS MOU "NAMOU" .SETS NET "NANETX" .SETS CON "NACONX" .SETS TM "NATMEX" .SETS CT "NACTE" .SETS RC "NARCE" .SETS ASB "NAASBX" .SETS CSB "NACSBX" .SETS TN "NATNEX" .SETS OBJ "NAOBJX" .SETS GND "NAGNDX" .SETS LS "NALSEX" .SETS CDS "NACDSX" .SETS TRM "NATRMX" .SETS RCV "NARCVX" .SETS EVT "NAEVTX" .SETS SUB "NASUB" .SETS SB "NASBX" .GOTO 2019 .2017: .; .; MAPPED AND COUNTERS .; .SETS MOU "NAMOUC" .SETS NET "NANETX" .SETS CON "NACONX" .SETS TM "NATMEY" .SETS CT "NACTEC" .SETS RC "NARCEC" .SETS ASB "NAASBY" .SETS CSB "NACSBC" .SETS TN "NATNEY" .SETS OBJ "NAOBJX" .SETS GND "NAGNDX" .SETS LS "NALSEY" .SETS CDS "NACDSX" .SETS TRM "NATRMY" .SETS RCV "NARCVX" .SETS EVT "NAEVTY" .SETS SUB "NASUBC" .SETS SB "NASBX" .2019: .IFF $EXP .GOTO 2025 .2020: ; ; The overlaid version of NETACP requires less memory but is slower at ; performing connections and disconnections as well as interrupt ; message processing. It is recommended that you choose the overlaid ; version because of size constraints. ; .2025: .ASK NOVR 6. Do you want the non-overlaid NETACP .IFT .GOTO 2020 .SETS MPDV "/MAP:'$MA'NETACP" .IF $MA EQ "" .SETS MPDV "" ; ; Working ... ; .OPEN '$CM'ACPBLD.COM .IFT NOVR .GOTO 2040 .ENABLE DATA ! ! A C P B L D . C O M ! ! LINKER COMMAND FILE FOR OVERLAYED NETACP ! LINK/EXE:'$OU'NETACP.SYS'MPDV'/PROMPT/FOREGROUND ! ! ROOT REGION ! '$CM'GENOLB '$OU'NSP.STB '$DI'NADAT '$DI'NADSP '$DI''RCV' '$DI''EVT' '$DI'NACLS '$DI''TRM' '$DI'NAFLM '$DI'NADSB '$DI'NAIO '$DI''SUB' '$DI''SB' ! ! 1ST OVERLAY REGION ! '$DI''MOU'/O:1 '$DI'NADMO/O:1 ! '$DI''CON'/O:1 '$DI'NADIS/O:1 ! '$DI'NACLO/O:1 '$DI''NET'/O:1 ! '$DI''TM'/O:1 '$DI''CT'/O:1 ! '$DI''RC'/O:1 ! ! 2ND OVERLAY REGION ! '$DI'NADMP/O:2 '$DI''GND'/O:2 '$DI''ASB'/O:2 '$DI''CSB'/O:2 '$DI''TN','$DI''OBJ'/O:2 ! ! 3RD OVERLAY REGION ! '$DI''LS'/O:3 '$DI''CDS','$DI'C5TA,'$DI'DIV/O:3 // .DISABLE DATA .GOTO 2100 .2040: .ENABLE DATA ! ! LINKER COMMAND FILE FOR NON-OVERLAYED NETACP ! LINK/EXE:'$OU'NETACP.SYS'MPDV'/PROMPT/FOREGROUND '$CM'GENOLB '$OU'NSP.STB '$DI'NADAT '$DI'NADSP '$DI''RCV' '$DI''EVT' '$DI'NACLS '$DI''TRM' '$DI'NAFLM '$DI'NADSB '$DI'NAIO '$DI''SUB' '$DI''SB' '$DI''MOU' '$DI'NADMO '$DI''CON' '$DI'NADIS '$DI'NACLO '$DI''NET' '$DI''TM' '$DI''CT' '$DI''RC' '$DI'NADMP '$DI''GND' '$DI''ASB' '$DI''CSB' '$DI''TN' '$DI''OBJ' '$DI''LS' '$DI''CDS' '$DI'C5TA,'$DI'DIV // .DISABLE DATA .2100: .CLOSE .SETS MPDV "/MAP:'$MA'NJS" .IF $MA EQ "" .SETS MPDV "" .OPEN '$CM'NJSBLD.COM .ENABLE DATA #0 ! ! LINK FILE FOR NJS ! LINK/EXE:'$OU'NJS.SAV'MPDV'/PROMPT '$OU'CX.STB '$CM'GENOLB '$DI'NJS // .DISABLE DATA #0 .CLOSE .; .; .SETS LLC "NS" .IFF H3 .GOSUB PH3 .ENABLE DATA #3 $@'$CM'NSPBLD $@'$CM'ACPBLD $@'$CM'NJSBLD COPY/NOLO '$DI'NSP.DAT '$OU' .DISABLE DATA #3 .IFT $SPM .DATA #3 PRINT '$MA'NSP.MAP,'$MA'NETACP.MAP,'$MA'NJS.MAP .IFT $DE .DATA #3 DELETE/NOQUERY '$CM'(NSPBLD.COM,ACPBLD.COM,NJSBLD.COM) .IFT $DE .IFT $NSCOU .DATA #3 DELETE/NOQUERY '$CM'NSCOU.OBJ .GOTO 1880 .; .;******************** DLX ******************* .; .2800: .SETT $DLX .IFF H1 .GOSUB PH1 .IFF H2 .GOSUB PH2 .OPEN #0 '$CM'NXDAT.MAC .ENABLE DATA #0 .TITLE NXDAT - DLX DATA BASE .IDENT /V01.00/ ; ; COPYRIGHT (C) 1980,1981,1982 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; .SBTTL DLX DATA BASE L.LEN=20 ;LENGTH OF LINK CONTROL BLOCK .PSECT NXDVR,I ; ; DLX LINK CONTROL BLOCKS ; TBLST:: .BLKW '$LINES'.*L.LEN TBLEN:: .END .DISABLE DATA #0 .CLOSE #0 '$CM'NXDAT.MAC .SETS LIST "/LIST:'$LI'NXDAT" .IF $LI EQ "" .SETS LIST "" .OPEN #0 '$CM'DLXASM.COM .ENABLE DATA #0 ! ! THIS FILE ASSEMBLES THE DLX DATABASE MODULE ! MACRO/OBJ:'$CM'NXDAT'LIST' '$CM'GENMLB/LIBRARY+'$CM'NXDAT .DISABLE DATA #0 .CLOSE #0 '$CM'DLXASM.COM .DATA #3 $@'$CM'DLXASM.COM .IFT $SPL .DATA #3 PRINT '$LI'NXDAT.LST .IFT $DE .DATA #3 DEL/NOQUERY '$CM'DLXASM.COM,'$CM'NXDAT.MAC .; ; ; Working ... ; .OPEN '$CM'DLXBLD.COM .ENABLE DATA ! ! D L X B L D . C O M ! ! COMMAND FILE TO BUILD THE DLX LLC/DRIVER PROCESS ! LINK/EXE:'$OU'NX'$X'.SYS'MAP'/SYMBOLTABLE:'$OU'DLX/PROMPT '$OU'CX.STB '$DI'NXBGN'$X' '$CM'NXDAT '$DI'NXR11 '$DI'NXDRV'$X' '$DI'NXSYS'$X' '$DI'NXSUB '$DI'NXEND'$X' // .DISABLE DATA .CLOSE .2880: .SETS LLC "NX" .IFF H3 .GOSUB PH3 .ENABLE DATA #3 $@'$CM'DLXBLD COPY/NOLOG '$DI'DLX.DAT '$OU'DLX.DAT .DISABLE DATA #3 .IFT $SPM .DATA #3 PRINT '$MA'DLX.MAP .IFT $DE .DATA #3 DELETE/NOQUERY '$CM'DLXBLD.COM,'$CM'NXDAT.OBJ .GOTO 1880 .; .;******************** AUX ******************* .; .2920: .SETT $AUX .IFF H1 .GOSUB PH1 .IFF H2 .GOSUB PH2 ; ; Working ... ; .OPEN '$CM'AUXBLD.COM .ENABLE DATA ! ! AUXBLD.COM ! ! COMMAND FILE TO BUILD THE AUX LLC PROCESS ! ! ! ! THIS FILE LINKS THE AUX DRIVER ! LINK/EXE:'$OU'AX'$X'.SYS'MAP'/SYMBOLTABLE:'$OU'AUX/PROMPT '$OU'CX.STB '$DI'AXBGN'$X' '$DI'AUX '$DI'AXEND'$X' // .DISABLE DATA .CLOSE .; .; .SETS LLC "AX" .IFF H3 .GOSUB PH3 .ENABLE DATA #3 $@'$CM'AUXBLD .DISABLE DATA #3 .IFT $SPM .DATA #3 PRINT '$MA'AUX.MAP .IFT $DE .DATA #3 DELETE/NOQUERY '$CM'AUXBLD.COM .GOTO 1880 .NFW: ; ; THIS COMMAND FILE IS PART OF NETGEN, AND CAN NOT BE ; ENVOKED INDEPENDENTLY. ; .GOTO FINI .NOLLC: .GOSUB PH1 ; No logical link control (LLC) processes included .; .; NO LLC PROCESSES WERE SPECIFIED DURING THE GENERATION .; OF THE CONFIGURATION FILE (CTBGEN). THIS SHOULD NEVER .; HAPPEN. .FINI: .; U N S G E N . C O M .; .; DECnet-RT Network Generation Procedure for Unsupported Software. .; .; Copyright (C) 1986 by .; Digital Equipment Corporation, Maynard, Mass. .; .; .; This software is furnished under a license and may be used and copied .; only in accordance with the terms of such license and with the .; inclusion of the above copyright notice. This software or any other .; copies thereof may not be provided or otherwise made available to any .; other person. No title to and ownership of the software is hereby .; transferred. .; .; The information in this software is subject to change without notice .; and should not be construed as a commitment by Digital Equipment .; Corporation. .; .; Digital assumes no responsibility for the use or reliability of its .; software on equipment which is not supplied by Digital. .; .; .; MODULE DESCRIPTION: .; .; Unsupported Software Generation Command File .; .; .; Distributed Systems Software Engineering .; .; IDENT HISTORY: .; .; 2.00 20-Jan-82 .; DECnet-RT Version 2.0 Release .; .; 2.10 20-May-83 .; DECnet-RT Version 2.1 Maintenance Release .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE ESCAPE .; .; Define global UNSgen parameters here (e.g. System type) .; .SETS SYSTEM "RT-11 V5" .SETS VER "2.1" .SETS BL "1.0" .IFDF $UNSUP .GOTO 315 ; ; ====================================================================== ; * 'SYSTEM' Unsupported Network Software Generation Procedure * ; Version 'VER' Base Level 'BL' ; ====================================================================== ; ; Copyright (C) 1986 by ; Digital Equipment Corporation, Maynard, Mass. ; ; Generate DECnet-RT Version 'VER' unsupported network software for ; your 'SYSTEM' system. ; .ASKN [30.:255.:80.] W Enter your terminal width .ENABLE QUIET SET TT WIDTH='W' .DISABLE QUIET ; .ASK $EXP Do you want the expanded form of dialog .IFT $EXP .GOTO 220 ; ; Explanatory text for each question is available by hitting the ; "ESCAPE" key followed by a carriage return (). ; .GOTO 230 .220: ; ; The notes/cautions describe the prerequisite conditions for starting ; the UNSGEN procedure. ; .230: .ASK Q Do you want to see the UNSGEN notes/cautions .IFT .GOTO 220 .IFF Q .GOTO 315 ; ; Note the following: ; ------------------- ; ; . DECnet-RT requires the RT-11 foreground/background (FB) monitor with ; device timeout support and without Error Logging generated. ; ; . If your distribution medium is the output device, it is recommended ; that you backup this device before continuing. This is recommended ; because the device must be write enabled during the UNSGEN sequence. ; ; . For questions that can be answered YES or NO, NO is the ; default. For questions with defaults, the default is produced by ; pressing a carriage return () in response to the question. ; .300: .IFF $EXP .GOTO 310 .305: ; ; If you are not ready to continue, answer E. UNSGEN will exit. When ; you are ready, restart the UNSGEN procedure. ; .310: ; Do you want to - .ASKS EOS -continue, E-exit .IFT .GOTO 305 .IF EOS EQ "" .GOTO 315 .IF EOS EQ "E" .GOTO FINISH ; ; Error - Invalid response ; .GOTO 305 .315: .IFDF $UNSUP .GOTO 4600 .START: ; ; ====================================================================== ; * UNSGEN PRELIMINARY * ; ====================================================================== .SETF $03 .SETF $23 .SETF $MP .GOTO 350 .; .; SUBROUTINE TO CHECK PROCESSOR TYPE .; .CHKTYP: .IF MTYP EQ "11/150" .GOTO CK20 .IF MTYP EQ "LSI-11" .GOTO CK20 .IF MTYP EQ "11/03" .GOTO CK20 .IF MTYP EQ "11/04" .GOTO CK30 .IF MTYP EQ "11/05" .GOTO CK30 .IF MTYP EQ "11/10" .GOTO CK30 .IF MTYP EQ "11/20" .GOTO CK30 .IF MTYP EQ "11/23" .GOTO CK40 .IF MTYP EQ "MICRO/PDP-11" .GOTO CK40 .IF MTYP EQ "11/24" .GOTO CK45 .IF MTYP EQ "11/34" .GOTO CK45 .IF MTYP EQ "11/35" .GOTO CK10 .IF MTYP EQ "11/40" .GOTO CK10 .IF MTYP EQ "11/44" .GOTO CK45 .IF MTYP EQ "11/45" .GOTO CK45 .IF MTYP EQ "11/50" .GOTO CK45 .IF MTYP EQ "11/55" .GOTO CK45 .IF MTYP EQ "11/60" .GOTO CK45 .SETT ERR ; ; Error - 'MTYP' is an invalid processor type ; .CK10: .RETURN .CK20: .SETT $03 .CK30: .SETF $MAP .IF MTYP EQ "LSI-11" .RETURN .SETF $EIS .RETURN .CK40: .SETT $23 .IF MTYP EQ "MICRO/PDP-11" .SETT $MP .CK45: .SETT $EIS .RETURN .; .; CHKDEV - Subroutine to check device name format .; .CHKDEV: .SETF ERR .IF DEV NE "" .GOTO D10 .SETS DEV "'''':" .GOTO D50 .D10: .TEST DEV .IFT .GOTO D20 .SETN N .SETS CHAR DEV['N':'N'] .IF CHAR NE ":" .GOTO D40 .DEC N .SETS DEV DEV[1:'N'] .TEST DEV .IFF .GOTO D40 .D20: .SETS DEV "'DEV':" .IF DEV NE "SY:" .GOTO D30 .SETS DEV "'''':" .GOTO D50 .D30: .TEST DEV .IF LT 3 .GOTO D40 .IF GT 4 .GOTO D40 .SETS CHAR DEV[1:1] .IF CHAR LT "A" .GOTO D40 .IF CHAR GT "Z" .GOTO D40 .SETS CHAR DEV[2:2] .IF CHAR LT "A" .GOTO D40 .IF CHAR GT "Z" .GOTO D40 .IF LT 4 .GOTO D50 .SETS CHAR DEV[3:3] .IF CHAR LT "0" .GOTO D40 .IF CHAR GT "7" .GOTO D40 .SETS DV DEV[1:2] .IF DV EQ "SY" .SETS DEV "'''CHAR'" .GOTO D50 .D40: ; ; Error - Illegal device name - 'DEV' .SETT ERR .D50: .RETURN .; .; CHKDUN - Subroutine to check if valid RD51 Winchester device .; .CHKDUN: .SETF ERR .SETS DEV $MW .SETS CHAR DEV[1:2] .IF CHAR NE "DU" .GOTO M10 .SETS CHAR DEV[3:3] .IF CHAR LT "0" .GOTO M10 .IF CHAR LE "2" .GOTO M20 .M10: ; ; Error - Illegal RD51 Winchester device - 'DEV' ; .SETT ERR .M20: .RETURN .; .; CHKMMW - Subroutine to check devices match to .; - the RD51 Winchester device .; .CHKMMW: .SETF ERR .IF DEV EQ $MW .GOTO M30 ; ; Error - Device must be the RD51 Winchester disk ; .SETT ERR .M30: .RETURN .; .; ASK SYSTEM OPTIONS .; .350: ; ; Target system characteristics - ; ----------------------------- .410: .IFF $EXP .GOTO 414 .412: ; ; Enter the target processor type. Valid types are: ; ; 11/150 (PDT) ; ; LSI-11, 11/03, 11/23 (Q-BUS) ; MICRO/PDP-11 ; ; 11/04, 11/05, (UNIBUS) ; 11/10, ; 11/20, 11/24*, ; 11/34, 11/35, ; 11/40, 11/44*, 11/45, ; 11/50, 11/55, ; 11/60 ; ; * Note that only 18-bit addressing is supported for ; the 11/44 and 11/24 processors. ; ; What is the - .414: .ASKS [5.:12.] MTYP 1. Processor type? .IFT .GOTO 412 .SETF ERR .GOSUB CHKTYP .IFT ERR .GOTO 412 .IFDF $EIS .GOTO 428 .; .IFF $EXP .GOTO 426 .425: ; ; If your processor has the EIS option answer YES to this question. ; For greater transportability you may want to answer NO even though ; your target processor does have the EIS option. ; ; Do you want - .426: .ASK $EIS 2. Extended instruction set (EIS) support .IFT .GOTO 425 .GOTO 435 .; .428: .SETF $MAP .; Do not allow mapped systems .IFDF $MAP .GOTO 435 .IFF $EXP .GOTO 431 .432: ; ; If your target system was generated as an XM monitor then you MUST ; answer YES to this question. If your target system was generated ; as an FB monitor then you MUST answer NO to this question. ; ; Do you want - .431: .ASK $MAP 3. Extended memory (XM) monitor support .IFT .GOTO 432 .; .435: ; ; UNSGEN procedure parameters - ; --------------------------- .IFF $MP .GOTO 1155 .IFF $EXP .GOTO 1135 .1130: ; ; Specify the MICRO/PDP-11 RD51 fixed Winchester device ; ( for example, DUn where n = 0->2 ). Optionally, the colon may be ; supplied ( for example, DU0: ). The default device is SY:. ; For UNSGEN, the DECnet distribution device, the Target generation ; device, the Listing device, and the Map device must be the RD51 fixed ; Winchester device. For UNSGEN, Transfer the kit files to another ; device is not allowed and the Crash dump handler is not allowed. ; .1135: .ASKS DEV 0. MICRO/PDP-11 RD51 Winchester device (DDN)? .IFT .GOTO 1130 .GOSUB CHKDEV .IFT ERR .GOTO 1130 .SETS $MW DEV .GOSUB CHKDUN .IFT ERR .GOTO 1130 .1155: .IFF $EXP .GOTO 1200 .1160: ; ; Specify the device on which the distribution kit is located (for ; example RK1). Optionally, the colon may be supplied (for example, ; RK1:). The default device is SY:. ; ; What is the - .1200: .ASKS DEV 1. DECnet distribution device (DDN)? .IFT .GOTO 1160 .GOSUB CHKDEV .IFT ERR .GOTO 1160 .SETS $DI DEV .IFF $MP .GOTO 1220 .GOSUB CHKMMW .IFT ERR .GOTO 1160 .1220: .SETS DI $DI .SETS DEV $DI[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOA 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 1160 .SETT DISK .SETF TAPE .TESTFILE '$DI'UNSGEN.COM .IF EQ 1 .GOTO 1300 ; ; Error - '$DI' does not contain a DECnet distribution kit .GOTO 1160 .; .1300: .SETF $SMALL .SETF $SMLL2 .SETS DEV $DI[1:2] .IF DEV NE "DY" .GOTO 1305 .ASK Q Is '$DI' double density .SETT $SMALL .IFF Q .SETT $SMLL2 .GOTO 1330 .1305: .IF DEV NE "DX" .GOTO 1310 .SETT $SMALL .SETT $SMLL2 .GOTO 1330 .1310: .IF DEV NE "DD" .GOTO 1315 .SETT $SMALL .SETT $SMLL2 .GOTO 1330 .1315: .1330: .IFT $SMALL .GOTO 2400 .; .1400: .SETS CHAR [1:1] .; GET FIRST CHARACTER OF TRUE DEVICE NAME .IF CHAR NE "M" .GOTO 1430 .; IF FIRST CHAR IS M, DEVICE IS MAG TAPE .; .IFF $EXP .GOTO 1420 .1410: ; ; If your distribution mag tape is in 1600 BPI format, answer the ; question "YES". The default is 800 BPI. ; .1420: .ASK Q Is the kit a 1600 BPI tape .IFT .GOTO 1410 .SETS DNS "800" .IFT Q .SETS DNS "1600" ; The mag tape distribution must be transferred to disk .GOTO 1520 .1430: .IFF $MP .GOTO 1438 .IFF $EXP .GOTO 1432 ; ; For the MICRO/PDP-11, the transfer of the distribution kit files ; from the RD51 fixed Winchester disk to another device is not allowed. ; .1432: .GOTO 2400 .1438: .IFF $EXP .GOTO 1480 .1440: ; ; If you want the distribution files transferred to another device (for ; example, from RK05 to RK06), then answer YES. The device the files ; are transferred to will become your new distribution device. If you ; started the UNSGEN file on the distribution device, you can not ; dismount this device until UNSGEN has finished. ; ; Do you want to - .1480: .ASK Q 2. Transfer the kit files to another device .IFT .GOTO 1440 .IFF Q .GOTO 2400 .; .1520: .IFF $EXP .GOTO 1640 .1560: ; ; For example, if you want to transfer the distribution files from ; magtape to DL1: then answer "DL1". The default device is "SY:". This ; device will be your new distribution device! ; .1640: .ASKS DEV 3. Where do you want the distribution files (DDN)? .IFT .GOTO 1560 .GOSUB CHKDEV .IFT ERR .GOTO 1560 .SETS TG DEV .IF $DI EQ TG .GOTO 2360 .SETS DEV TG[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOA 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 1560 .; .IFF $EXP .GOTO 1800 .1760: ; ; Please load your volume into drive 'TG' and start the drive before ; continuing. ; .1800: .ASK Q 4. Is 'TG' ready .IFT .GOTO 1760 .IFF Q .GOTO 1800 .; .IFF $EXP .GOTO 1880 .1840: ; ; Answer YES if you would like to have the volume initialized. You ; should answer NO if there are any files on this device that you wish ; to keep. ; ; Do you want to - .1880: .ASK INI 5. Initialize the volume .IFT .GOTO 1840 .IFF INI .GOTO 2000 .; .IFF $EXP .GOTO 1960 .1920: ; ; A volume label is required on all devices. Enter the volume label for ; 'TG'. This label will also be the owner ID. ; ; What is the - .1960: .ASKS LABEL 6. Volume label for 'TG'? .IFT .GOTO 1920 .; .OPEN #3 SY:INI.COM .ENABLE DATA #3 INITIALIZE/NOQUERY/BADBLOCK:RET/VOLUMEID 'TG' 'LABEL' 'LABEL' .DISABLE DATA #3 .CLOSE #3 SY:INI.COM .ENABLE QUIET $@SY:INI.COM DELETE/NOQUERY SY:INI.COM .DISABLE QUIET .; .IFF $EXP .GOTO 1975 .1972: ; ; Enter YES if you saw no errors during the initialization sequence. ; .1975: .ASK Q 7. Did 'TG' initialize successfully .IFT .GOTO 1972 .IFF Q .GOTO 1880 .; .2000: COPY/SYS/NOLOG '$DI'*.* 'TG' .2320: .SETS $DI TG ; ; * '$DI' * Is now your new distribution device ; .; .2400: .IFF $EXP .GOTO 2520 .2440: ; ; This device will contain all generated and configuration dependent ; files. The default device is SY:. ; ; What is the - .2520: .ASKS DEV 8. Target generation device (DDN)? .IFT .GOTO 2440 .GOSUB CHKDEV .IFT ERR .GOTO 2440 .SETS $OU DEV .IFF $MP .GOTO 2525 .GOSUB CHKMMW .IFT ERR .GOTO 2440 .2525: .SETS DEV $OU[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOAD 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 2440 .2600: .SETF $SMTGT .SETF $S2TGT .SETS DEV $DI[1:2] .IF DEV NE "DY" .GOTO 2605 .ASK Q Is '$DI' double density .SETT $SMTGT .IFF Q .SETT $S2TGT .GOTO 2630 .2605: .IF DEV NE "DX" .GOTO 2610 .SETT $SMTGT .SETT $S2TGT .GOTO 2630 .2610: .IF DEV NE "DD" .GOTO 2615 .SETT $SMTGT .SETT $S2TGT .GOTO 2630 .2615: .2630: .SETS $CM $OU .IFF $SMTGT .GOTO 3360 .SETS $CM "SY:" .SETS DEV $OU[1:2] .IFF $S2TGT .GOTO 2700 .GOTO 3360 ; RX01 Warning ; .; .2700: ; RX02 Warning ; .; .3360: .IFF $EXP .GOTO 3480 .3400: ; ; All listing files will be generated on this device. If it is blank ; then no listing files will be generated. These files require about ; 50 blocks. ; ; What is the - .3480: .ASKS $LI 10. Listing device (DDN)? .IFT .GOTO 3400 .IF $LI EQ "" .GOTO 3680 .SETS DEV $LI .GOSUB CHKDEV .IFT ERR .GOTO 3400 .SETS $LI DEV .IFF $MP .GOTO 3488 .SETS TMPS $LI[1:2] .IF TMPS EQ "TT" .GOTO 3488 .IF TMPS EQ "LP" .GOTO 3488 .GOSUB CHKMMW .IFT ERR .GOTO 3400 .3488: .SETS DEV $LI[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOAD 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 3400 .SETS TMPS $LI[1:2] .IF TMPS EQ "TT" .SETF $SPL .IF TMPS EQ "LP" .SETF $SPL .; .3680: .IFF $EXP .GOTO 3800 .3720: ; ; All map files will be generated on this device. If it is blank then no ; map files will be generated. These files require about 300 blocks. ; ; What is the - .3800: .ASKS $MA 11. Map device (DDN)? .IFT .GOTO 3720 .IF $MA EQ "" .GOTO 4000 .SETS DEV $MA .GOSUB CHKDEV .IFT ERR .GOTO 3720 .SETS $MA DEV .IFF $MP .GOTO 3808 .SETS TMPS $MA[1:2] .IF TMPS EQ "TT" .GOTO 3808 .IF TMPS EQ "LP" .GOTO 3808 .GOSUB CHKMMW .IFT ERR .GOTO 3720 .3808: .SETS DEV $MA[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOAD 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 3720 .SETS TMPS $MA[1:2] .IF TMPS EQ "TT" .SETF $SPM .IF TMPS EQ "LP" .SETF $SPM .4000: .IFDF $SPL .IFDF $SPM .GOTO 4120 .; .IFF $EXP .GOTO 4080 .4040: ; ; If you want the listing and/or the map files printed, then answer YES. ; ; Do you want to - .4080: .ASK Q 12. Print the listings and/or maps .IFT .GOTO 4040 .IFT Q .GOTO 4100 .SETF $SPL .SETF $SPM .GOTO 4120 .4100: .IFNDF $SPL .SETT $SPL .IFNDF $SPM .SETT $SPM .; .4120: .IFF $EXP .GOTO 4200 .4160: ; ; It is recommended that you have at least 300 free blocks available on ; the output device, if you choose not to delete. An additional 350 ; blocks should be available if maps and listings are directed to the ; same output device. ; ; Do you want to - .4200: .ASK $DE 13. Delete the build libraries and command files after use .IFT .GOTO 4160 .SETN $IPRI 0 ; .4400: ; Do you want to - .ASKS EOS -continue, R-repeat section, E-exit .IFT .GOTO 4400 .IF EOS EQ "" .GOTO 4600 .IF EOS EQ "R" .GOTO START .IF EOS EQ "E" .GOTO FINISH ; ; Error - Invalid response ; .GOTO 4400 .4600: .4605: .IFDF $UNSUP .GOTO 4607 ; ; ====================================================================== ; * COMPONENT SELECTION * ; ====================================================================== .SETF $GEN ; NO PROCESSES TO GENERATE .4607: .SETF RVT .SETF RMT .SETF DTS .SETF XTS .SETF CED .SETF MDP .IFF $EXP .GOTO 4610 ; ; Answer yes to the following questions if you want to select the ; specified options. Expanded comments are available for each question ; by pressing the "ESCAPE" key. .4610: ; ; Unsupported Software Component Selection - ; ---------------------------------------- .IFF $EXP .GOTO 4680 .4640: ; ; A YES to the following question will give you the RSX-11M Remote ; command terminal program. This program allows you to connect to a ; RSX-11M/M+ host and then for the terminal to appear to be physically ; connected to that host. ; ; Do you want - .4680: .ASK RMT 1. The RSX-11/M/M+ Remote Command Terminal (RMT) Program .IFT .GOTO 4640 .IFT RMT .SETT $GEN .; .IFF $EXP .GOTO 4700 .4690: ; ; A YES to the following question will give you the VAX/VMS Remote ; command terminal program. This program allows you to connect to a ; VAX/VMS host and then for the terminal to appear to be physically ; connected to that host. ; ; Do you want - .4700: .ASK RVT 2. The VAX/VMS Remote Command Terminal (RVT) Program .IFT .GOTO 4690 .IFT RVT .SETT $GEN .; .4840: .IFF $EXP .GOTO 4870 .4860: ; ; The DTS/DTR programs are used to verify network installation. They ; can also be custom generated to allow an expanded range of testing. ; These programs can be used to obtain crude line utilization figures ; as well as for their primary purpose of line checkout. ; ; Do you want - .4870: .ASK DTS 3. The DTS/DTR test programs .IFT .GOTO 4860 .IFT DTS .SETT $GEN .; .IFF $EXP .GOTO 4910 .4900: ; ; The XTS/XTR programs are used to verify a DLX installation. ; ; Do you want - .4910: .ASK XTS 4. The XTS/XTR Test Programs .IFT .GOTO 4900 .IFT XTS .SETT $GEN .; .IFF $EXP .GOTO 4930 .4920: ; ; The CEDump program enables the user to look at the network data bases ; while the system is running. ; ; Do you want - .4930: .ASK CED 5. The CEDump Program .IFT .GOTO 4920 .IFT CED .SETT $GEN .; .IFF $MP .GOTO 4938 .IFF $EXP .GOTO 4936 ; ; For the MICRO/PDP-11, the Crash Dump Handler is not allowed. ; .4936: .GOTO 8530 .4938: .IFF $EXP .GOTO 4950 .4940: ; ; The Crash Dump Handler allows the user to obtain a memory dump of a ; system after a given interrupt/trap has occured. Usually the handler ; is set up using the IOT vector locations. The NETACP will cause an ; entry into this program if a system halt occurs while the network is ; running and the Crash Dump Handler (MD:) is loaded. ; ; Do you want - .4950: .ASK MDP 6. The Crash Dump Handler .IFT .GOTO 4940 .IFT MDP .SETT $GEN .; .8530: .IFDF $UNSUP .GOTO 8550 ; ; Do you want to - .ASKS EOS -continue, R-repeat section, E-exit .IFT .GOTO 8530 .IF EOS EQ "" .GOTO 8550 .IF EOS EQ "R" .GOTO 4605 .IF EOS EQ "E" .GOTO FINISH ; ; Error - Invalid response ; .GOTO 8530 .8550: .8600: .IFDF $UNSUP .GOTO 8760 .IFF $GEN .GOTO 8755 .OPEN #3 '$CM'BLDUNS.COM .ENABLE DATA #3 ; ; ====================================================================== ; * BUILD DECnet UNSUPPORTED COMPONENTS * ; ====================================================================== .; .; Copyright (C) 1986 by .; Digital Equipment Corporation, Maynard, Mass. .; .; This indirect command file builds the user configured DECnet .; software for your 'SYSTEM' system. .; .ENABLE SUBSTITUTION .; .; If objects are not found on "distribution device", tell user, and .; wait until the disk is mounted. .; .10: .TESTFILE '$DI'DTS.MAC .IF EQ 1 .GOTO 20 ; ; UNSGEN will pause while you insert the volume containing the network ; objects in '$DI'. When the disk is ready, you may continue. ; .ASK Q Is '$DI' ready .20: ; ; All questions have been answered. UNSGEN will now proceed to build ; your system the way you have chosen. This can take anywhere from ; 1 minute to 10 minutes, depending on your selections and your host ; system configuration. ; ; Take a break ... ; ; Build procedure started at ''