Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/nml/nmlprm.lst
There are no other files named nmlprm.lst in the archive.
24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 1
4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (1)
; 0001 ! RATS:<BANKS.MCB.NCPNML>NMLPRM.BLI.2 4-Dec-84 12:50:10, Edit by BANKS
; 0002 !
; 0003 ! Ident 26.
; 0004 ! EXTRACT_PARAMETERS is trying to store a four byte quantity using a
; 0005 ! normal assigment statement, which loses on 16 bits. Add some conditional
; 0006 ! assembly so that it will do the right thing.
; 0007 !
; 0008 ! NET:<PECKHAM.DEVELOPMENT>NMLPRM.BLI.3 10-Dec-82 23:23:25, Edit by PECKHAM
; 0009 !
; 0010 ! Ident 25.
; 0011 ! Solve bug of mis-interpreting event entity -1 => autotriggering.
; 0012 ! Also responds to upward compatability problem with Phase IV nodes.
; 0013 !
; 0014 ! Change $$NML_CODE_ENTRY to create plit instead of uplit of code text ptrs.
; 0015 ! Fix NML$CODED_TEXT to range check supplied code using this plit count.
; 0016 !
; 0017 ! NET:<PECKHAM.DEVELOPMENT>NMLPRM.BLI.2 4-Jun-82 16:26:23, Edit by PECKHAM
; 0018 !
; 0019 ! Ident 24.
; 0020 ! Add NML$READ_ONLY routine for recognizing read-only parameters.
; 0021 !
; 0022 ! NET:<VOBA.NML.DEVELOPMENT>NMLPRM.BLI.6 25-Mar-82 17:41:13, Edit by VOBA
; 0023 !
; 0024 ! Ident 23.
; 0025 ! Fix EXTRACT_PARAMETER_DATA routine to parse CM2 type data correctly, i.e.
; 0026 ! return the pointer to the data segment of 4 bytes and the length is 4.
; 0027 !
; 0028 ! NET:<VOBA.NML.DEVELOPMENT>NMLPRM.BLI.2 16-Mar-82 08:23:07, Edit by VOBA
; 0029 !
; 0030 ! Ident 22.
; 0031 ! Fix typo bug in EXTRACT_PARAMETER_DATA routine.
; 0032 !
; 0033 ! <VOBA.NML.DEVELOPMENT>NMLPRM.BLI.2 15-Mar-82 17:04:46, Edit by VOBA
; 0034 !
; 0035 ! Ident 21.
; 0036 ! Fix EXTRACT_PARAMETER_DATA to recognize KNOWN qualifiers in NICE message
; 0037 ! format.
; 0038 !
; 0039 ! NET:<VOBA.NML.DEVELOPMENT>NMLPRM.BLI.3 1-Mar-82 14:45:44, Edit by VOBA
; 0040 !
; 0041 ! Ident 20.
; 0042 ! Assign HI a distinct value different from HI.
; 0043 !
; 0044 ! NET:<PECKHAM.DEVELOPMENT>NMLPRM.BLI.3 26-Feb-82 10:32:29, Edit by PECKHAM
; 0045 !
; 0046 ! Ident 19.
; 0047 ! Move the table expansion macros back from NMARCH.
; 0048 !
; 0049 ! NET:<VOBA.NML.DEVELOPMENT>NMLPRM.BLI.8 22-Feb-82 10:29:33, Edit by VOBA
; 0050 !
; 0051 ! Ident 18.
; 0052 ! Move macro definitions of NICE parameter tables to NMARCH.REQ so that
24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 2
4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (1)
; 0053 ! they can be referenced by other modules of NML. The static table storage
; 0054 ! definition is still maintained by NMLPRM module.
; 0055 !
; 0056 ! NET:<VOBA.NML.DEVELOPMENT>NMLPRM.BLI.30 17-Feb-82 15:04:11, Edit by VOBA
; 0057 !
; 0058 ! Ident 17.
; 0059 ! Reconstruct Parameter Data Block structure so that each entry will take 2
; 0060 ! words both in the TOPS and MCB. Instead of having the addresses of the
; 0061 ! parsing routines in the each entry, a data format fode is stored and later
; 0062 ! examined by a single parsing routine in each major module. Also added 2 new
; 0063 ! fields for the MODULE parameters - QUALIFIED and QUALIFIER - to the data
; 0064 ! structure.
; 0065 ! Changed the orders of the parameters supplied to the macros defining the NICE
; 0066 ! parameters so that they resemble the order described in the architecture spec
; 0067 ! tables.
; 0068 !
; 0069 ! Combined all 3 separate tables for MODULE entity into one. Changes of MODULE
; 0070 ! X25-ACCESS parameter numbers are made to the new table. Final decision for
; 0071 ! modifying the architecture spec to reflect this change is being solicitted.
; 0072 !
; 0073 ! Changed local routine GET_PEB_ADDRESS to be global routine NL_PLU (alias
; 0074 ! NML$PARAMETER_LOOKUP) so it can be referenced from other modules.
; 0075 !
; 0076 ! Modified the code which is used to extract data from NICE message. Changed
; 0077 ! from specific algorithm extracting the data based on the entity type to a
; 0078 ! generic algorithm extracting data based on each parameter's data format
; 0079 ! regardless of parameter number and/or entity type. Added local routine
; 0080 ! EXTRACT_PARAMETER_DATA for this function.
; 0081 !
; 0082 ! NET:<PECKHAM.DEVELOPMENT>NMLPRM.BLI.2 7-Feb-82 15:39:02, Edit by PECKHAM
; 0083 !
; 0084 ! Ident 16.
; 0085 ! Fix parameter numbers in $NML$LINE_CODES missed by #14.
; 0086 !
; 0087 ! NET:<GUNN.DEVELOPMENT>NMLPRM.BLI.2 22-Jan-82 09:48:59, Edit by GUNN
; 0088 !
; 0089 ! Ident 15.
; 0090 ! Update copyright date to 1982.
; 0091 ! Set info type for HOST parameter 141 (WO) so SHOW command
; 0092 ! will display it.
; 0093 !
; 0094 ! NET:<GUNN.DEVELOPMENT>NMLPRM.BLI.7 5-Jan-82 17:35:29, Edit by GUNN
; 0095 !
; 0096 ! Ident 14.
; 0097 ! Add data type for NODE parameter #101 (MANAGEMENT VERSION) to PVB
; 0098 ! table.
; 0099 !
; 0100 ! Update parameter tables to reflect Version 3.0.0 of Network
; 0101 ! Management Architecture Specification.
; 0102 !
; 0103 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.4 4-Jun-81 08:45:25, Edit by GUNN
; 0104 !
24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 3
4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (1)
; 0105 ! Ident 13.
; 0106 ! Change LINE and CIRCUIT state parameters to be owned by NML.
; 0107 ! Put X25 and coded parameter text tables under conditional.
; 0108 ! Remove external reference to NMU$MEMORY_MANAGER and NMU$TEXT_MANAGER.
; 0109 !
; 0110 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.9 13-May-81 09:18:39, Edit by GUNN
; 0111 !
; 0112 ! Ident 12.
; 0113 ! Change text for parameter #110 to SERVICE CIRCUIT.
; 0114 !
; 0115 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.7 12-May-81 13:44:48, Edit by VOBA
; 0116 !
; 0117 ! Ident 11.
; 0118 ! Add data definitions for X.25 Modules (Access, Protocol, and Server).
; 0119 !
; 0120 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.6 11-May-81 10:46:42, Edit by GUNN
; 0121 !
; 0122 ! Ident 10.
; 0123 ! Change text for coded NODE parameter values to agree with keywords
; 0124 ! coded in NCP3TB.
; 0125 !
; 0126 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.4 7-May-81 15:19:50, Edit by GUNN
; 0127 !
; 0128 ! Fix logic in NML$EXECUTOR_ONLY.
; 0129 !
; 0130 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.3 7-May-81 13:45:42, Edit by GUNN
; 0131 !
; 0132 ! Fix definition of PDB structure, had invalid use of $SUB_BLOCK.
; 0133 ! Make SETTABILITY, APPLICABILITY, and INFO_TYPE fields part of PDB
; 0134 ! structure.
; 0135 !
; 0136 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.17 16-Apr-81 15:55:38, Edit by GUNN
; 0137 !
; 0138 ! Add tables and routines to support conversion of coded parameter
; 0139 ! values to text.
; 0140 !
; 0141 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.5 10-Apr-81 10:33:37, Edit by GUNN
; 0142 !
; 0143 ! Fix case of the missing dot "." on reference to PTR_ADR in the
; 0144 ! D_field-type routines.
; 0145 !
; 0146 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.4 9-Apr-81 18:11:53, Edit by GUNN
; 0147 !
; 0148 ! Change D_8BYTE routine to return a pointer to the Hexadecimal string.
; 0149 !
; 0150 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.3 3-Apr-81 14:07:44, Edit by GUNN
; 0151 !
; 0152 ! Change D_NODEID to return pointer rather than value.
; 0153 !
; 0154 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.15 29-Mar-81 22:13:35, Edit by GUNN
; 0155 !
; 0156 ! Update IDENT edit number.
24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 4
4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (1)
; 0157 !
; 0158 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.12 12-Mar-81 10:37:14, Edit by GUNN
; 0159 !
; 0160 ! Add code to extract parameter data and return length.
; 0161 !
; 0162 ! NET:<DECNET20-V3P1.NML>NMLPRM.BLI.86 5-Mar-81 12:25:56, Edit by GUNN
; 0163 !
; 0164 ! Make compilation of NML$PARAMETER_TEXT routine be dependent on system
; 0165 ! type. Only required by NCP.
; 0166 !
NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 5
4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (2)
; 0167 %title 'NMLPRM -- Table Lookup Entity Parameters'
; 0168 module NMLPRM (
; 0169 ident = 'X03.26'
; 0170 ) =
; 0171 begin
; 0172
; 0173 ! COPYRIGHT (c) 1980, 1981, 1982, 1985
; 0174 ! DIGITAL EQUIPMENT CORPORATION
; 0175 ! Maynard, Massachusetts
; 0176 !
; 0177 ! This software is furnished under a license and may be used
; 0178 ! and copied only in accordance with the terms of such license
; 0179 ! and with the inclusion of the above copyright notice. This
; 0180 ! software or any other copies thereof may not be provided or
; 0181 ! otherwise made available to any other person. No title to
; 0182 ! and ownership of the software is hereby transferred.
; 0183 !
; 0184 ! The information in this software is subject to change
; 0185 ! without notice and should not be construed as a commitment
; 0186 ! by DIGITAL EQUIPMENT CORPORATION.
; 0187 !
; 0188 ! DIGITAL assumes no responsibility for the use or reliability
; 0189 ! of its software on equipment which is not supplied by
; 0190 ! DIGITAL.
; 0191 !
; 0192
; 0193 !++
; 0194 ! FACILITY: DECnet-10/20 V3.0 Network Management Layer (NML)
; 0195 !
; 0196 ! ABSTRACT:
; 0197 !
; 0198 ! Provides the table lookup function for Network Management
; 0199 ! entity parameters.
; 0200 !
; 0201 ! ENVIRONMENT: TOPS-10/20 & MCB/RSX11 User mode under NML
; 0202 !
; 0203 ! AUTHOR: Dale C. Gunn , CREATION DATE: 5-Jan-81
; 0204 !
; 0205 ! MODIFIED BY:
; 0206 !
; 0207 ! , : VERSION
; 0208 ! 01 -
; 0209 !--
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 6
X03.26 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (3)
; 0210
; 0211 !
; 0212 ! INCLUDE FILES:
; 0213 !
; 0214
; 0215 library 'NMLLIB'; ! All required definitions
; 0216
; 0217 !
; 0218 ! TABLE OF CONTENTS
; 0219 !
; 0220
; 0221 forward routine
; 0222 NML$VALID_PARAMETER, ! Determine if a parameter is valid
; 0223 NML$CLEARABLE,
; 0224 NML$READ_ONLY,
; U 0225 %if not $MCB %then ! Text not included or required in MCB
; U 0226 NML$PARAMETER_TEXT,
; U 0227 NML$CODED_TEXT,
; 0228 %fi
; 0229 NML$SUMMARY, ! Check for inclusion info types
; 0230 NML$STATUS,
; 0231 NML$CHARACTERISTIC,
; 0232 NML$EXECUTOR_ONLY, ! Check for applicability
; 0233 NML$VDB_PARAMETER, ! Determine if parameter belongs to NML
; 0234 NML$GET_PDB_DATA_TYPE, ! Return data type byte
; 0235 NML$PARAMETER_DATA, ! Return data for parameter
; 0236 NML$PARAMETER_LOOKUP, ! Find entry in data vector
; 0237 EXTRACT_PARAMETER_DATA, ! Extract parameter data field
; 0238 SEARCH_PARAMETER_TABLE;
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 7
X03.26 TOPS-10/20 Parameter Data Block Entry Format 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (4)
; 0239 %sbttl 'TOPS-10/20 Parameter Data Block Entry Format'
; 0240
; 0241 ! 35 0
; 0242 ! +-----------------------------------------------------------------------+
; 0243 ! | PDB_NAME |
; 0244 ! +-----------------------------------------------------------------------+
; 0245 !
; 0246 ! 35 26 17 8 0
; 0247 ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-----------------+-----------------+
; 0248 ! | | | | | | | | | | | | | | | | | | | PDB_DATA_TYPE | PDB_DATA_FORMAT |
; 0249 ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-----------------+-----------------+
; 0250 ! | | | | | | | | | | | | | | |
; 0251 ! | | | | | | | | | | | | | | +- PDB_NML_PARAMETER
; 0252 ! | | | | | | | | | | | | | +--- PDB_READ_ONLY
; 0253 ! | | | | | | | | | | | | +----- PDB_WRITE_ONLY
; 0254 ! | | | | | | | | | | | |
; 0255 ! | | | | | | | | | | | +------- PDB_QUALIFIED \
; 0256 ! | | | | | | | | | | +--------- PDB_EXECUTOR_ONLY \ PDB_
; 0257 ! | | | | | | | | | +----------- PDB_ADJACENT_ONLY ) APPLICABILITY_
; 0258 ! | | | | | | | | +------------- PDB_REMOTE_ONLY / FIELD
; 0259 ! | | | | | | | +--------------- PDB_SINK_ONLY /
; 0260 ! | | | | | | |
; 0261 ! | | | | | | +------------------- PDB_CHARACTERISTIC
; 0262 ! | | | | | +--------------------- PDB_STATUS
; 0263 ! | | | | +----------------------- PDB_SUMMARY
; 0264 ! | | | +------------------------- PDB_EVENTS
; 0265 ! | | +--------------------------- PDB_QUALIFIER
; 0266 ! | |
; 0267 ! | +----------------------------- PDB_CLEARABLE
; 0268 ! +------------------------------- PDB_UPPER_CASE
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 8
X03.26 MCB Parameter Data Block Entry Format 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (5)
; 0269 %sbttl 'MCB Parameter Data Block Entry Format'
; 0270
; 0271 ! 15 7 0
; 0272 ! +---------------+---------------+
; 0273 ! | PDB_DATA_TYPE |PDB_DATA_FORMAT|
; 0274 ! +---------------+---------------+
; 0275 !
; 0276 ! 15 7 0
; 0277 ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
; 0278 ! | | | | | | | | | | | | | | | | |
; 0279 ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
; 0280 ! | | | | | | | | | | | | | | |
; 0281 ! | | | | | | | | | | | | | | +- PDB_NML_PARAMETER
; 0282 ! | | | | | | | | | | | | | +--- PDB_READ_ONLY
; 0283 ! | | | | | | | | | | | | +----- PDB_WRITE_ONLY
; 0284 ! | | | | | | | | | | | |
; 0285 ! | | | | | | | | | | | +------- PDB_QUALIFIED \
; 0286 ! | | | | | | | | | | +--------- PDB_EXECUTOR_ONLY \ PDB_
; 0287 ! | | | | | | | | | +----------- PDB_ADJACENT_ONLY ) APPLICABILITY_
; 0288 ! | | | | | | | | +------------- PDB_REMOTE_ONLY / FIELD
; 0289 ! | | | | | | | +--------------- PDB_SINK_ONLY /
; 0290 ! | | | | | | |
; 0291 ! | | | | | | +----------------- PDB_CHARACTERISTIC
; 0292 ! | | | | | +------------------- PDB_STATUS
; 0293 ! | | | | +--------------------- PDB_SUMMARY
; 0294 ! | | | +----------------------- PDB_EVENTS
; 0295 ! | | +------------------------- PDB_QUALIFIER
; 0296 ! | |
; 0297 ! | +--------------------------- PDB_CLEARABLE
; 0298 ! +----------------------------- PDB_UPPER_CASE
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 9
X03.26 PDB - Parameter Data Block Structure Definition 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (6)
; 0299 %sbttl 'PDB - Parameter Data Block Structure Definition'
; 0300
; 0301 $show (all); ! Start XPORT displays
; 0302
; 0303 $field PVL_DATA_BLOCK =
; 0304 set
; U 0305 %if not $MCB %then ! No NCP on MCB, eliminate string text
; U 0306 PDB_NAME = [$pointer], ! Pointer to parameter name text
; 0307 %fi
; 0308
; L 0309 PDB_DATA_FORMAT = [$byte], ! Data format code
; %PRINT: [0,0,8,0] (+%O'0')
; L 0310 PDB_DATA_TYPE = [$byte], ! Data type byte
; %PRINT: [0,8,8,0] (+%O'1')
; 0311
; 0312 $align (byte) ! Restrictions
; L 0313 PDB_NML_PARAMETER = [$bit], ! ON if NML owns this parameter
; %PRINT: [1,0,1,0] (+%O'2')
; L 0314 PDB_SETTABILITY = [$bits(2)],
; %PRINT: [1,1,2,0] (+%O'2')
; L 0315 PDB_APPLICABILITY = [$bits(5)],
; %PRINT: [1,3,5,0] (+%O'2')
; 0316
; 0317 $align (byte) ! Information type applicability
; L 0318 PDB_CHARACTERISTIC = [$bit],
; %PRINT: [1,8,1,0] (+%O'3')
; L 0319 PDB_STATUS = [$bit],
; %PRINT: [1,9,1,0] (+%O'3')
; L 0320 PDB_SUMMARY = [$bit],
; %PRINT: [1,10,1,0] (+%O'3')
; L 0321 PDB_EVENTS = [$bit],
; %PRINT: [1,11,1,0] (+%O'3')
; L 0322 PDB_QUALIFIER = [$bit],
; %PRINT: [1,12,1,0] (+%O'3')
; 0323
; L 0324 PDB_CLEARABLE = [$bit], ! Clearable by user
; %PRINT: [1,13,1,0] (+%O'3')
; L 0325 PDB_UPPER_CASE = [$bit], ! Parameter data upper case conversion
; %PRINT: [1,14,1,0] (+%O'3')
; 0326
; 0327 ! Overlaying definitions
; 0328
; 0329 $overlay (PDB_SETTABILITY) ! Settability restrictions
; L 0330 PDB_READ_ONLY = [$bit],
; %PRINT: [1,1,1,0] (+%O'2')
; L 0331 PDB_WRITE_ONLY = [$bit],
; %PRINT: [1,2,1,0] (+%O'2')
; 0332 $continue
; 0333
; 0334 $overlay (PDB_APPLICABILITY) ! Applicability restrictions
; L 0335 PDB_QUALIFIED = [$bit],
; %PRINT: [1,3,1,0] (+%O'2')
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 10
X03.26 PDB - Parameter Data Block Structure Definition 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (6)
; L 0336 PDB_EXECUTOR_ONLY = [$bit],
; %PRINT: [1,4,1,0] (+%O'2')
; L 0337 PDB_OTHER_NODES = [$bits(3)],
; %PRINT: [1,5,3,0] (+%O'2')
; 0338 $continue
; 0339
; 0340 $overlay (PDB_OTHER_NODES)
; L 0341 PDB_ADJACENT_ONLY = [$bit],
; %PRINT: [1,5,1,0] (+%O'2')
; L 0342 PDB_REMOTE_ONLY = [$bit],
; %PRINT: [1,6,1,0] (+%O'2')
; L 0343 PDB_SINK_ONLY = [$bit]
; %PRINT: [1,7,1,0] (+%O'2')
; 0344 $continue
; 0345 tes;
; 0346
; 0347 literal
; L 0348 PVL_DATA_BLOCK_SIZE = $field_set_size;
; %PRINT: 2 fullwords
; 0349
; 0350 $show (none); ! Terminate XPORT displays
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 11
X03.26 Data Structure Expansion Macros 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (7)
; 0351 %sbttl 'Data Structure Expansion Macros'
; 0352
; 0353 ! $NML$xxxxxxxxxx
; 0354 !
; 0355 ! Macros to expand lists of parameter definitions and issue preset
; 0356 ! attribute parameters to initialize the parameter lookup block vector
; 0357 ! structure. This structure is used to determine the validity and
; 0358 ! information about any of the NML defined parameters for each entity.
; 0359 !
; 0360 ! The parameter entry list is a sequence of entries, one for each
; 0361 ! parameter to be defined, enclosed in parentheses and seperated by
; 0362 ! commas, e.g.
; 0363 !
; 0364 ! (entry #1), (entry #2), (entry #3), ..., (entry #n)
; 0365 !
; 0366 ! and each entry is itself a list of items which describe the
; 0367 ! parameter. The parameters which specify each entry have
; 0368 ! the following format
; 0369 !
; 0370 ! (Parameter number,
; 0371 ! Literal name,
; 0372 ! Format for data extraction,
; 0373 ! Layer that exclusively owns this parameter,
; 0374 ! Data type,
; 0375 ! Information type,
; 0376 ! Applicability restriction,
; 0377 ! Settability restriction)
; 0378 !
; 0379 !
; 0380 ! **** CAUTION ****
; 0381 ! The following macros set fields within the PVL_DATA_BLOCK structure
; 0382 ! by means of arithmetic bit shift expressions. The shift expressions
; 0383 ! must match exactly the structure positions of the fields generated
; 0384 ! when the PVL_DATA_BLOCK fields are defined.
; 0385
; 0386 macro
; M 0387 $NML$PVL_DATA_BLOCK =
; M 0388 block [PVL_DATA_BLOCK_SIZE]
; 0389 field (PVL_DATA_BLOCK) %;
; 0390
; 0391 macro ! Block data field preset macro
; M 0392 $NML$PV_LOOKUP [ENTRY_LIST] =
; 0393 $$NML_PV_LOOKUP_ENTRY (%count, %remove(ENTRY_LIST)) %;
; 0394
; 0395 macro ! Block data count macro
; M 0396 $NML$PV_LOOKUP_COUNT (ENTRY_LIST) =
; 0397 %length %;
; 0398
; 0399 macro
; M 0400 $$$NML_SET_EXPAND [RESTRICTION_LIST] =
; 0401 $$$NML_SET (RESTRICTION_LIST) %;
; 0402
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 12
X03.26 Data Structure Expansion Macros 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (7)
; 0403 macro
; M 0404 $$$NML_SET (RESTRICTION) =
; M 0405 %if %null (RESTRICTION)
; M 0406 %then %bliss36(0) %bliss16(0)
; M 0407 %else %if %identical('RO',%string(RESTRICTION)) ! READ ONLY
; M 0408 %then 1 ^ %bliss36(19) %bliss16(1)
; M 0409 %else %if %identical('WO',%string(RESTRICTION)) ! WRITE ONLY
; M 0410 %then 1 ^ %bliss36(20) %bliss16(2)
; M 0411 %fi
; M 0412 %fi
; M 0413 %if %identical('C',%string(RESTRICTION)) ! CLEARABLE
; M 0414 %then 1 ^ %bliss36(32) %bliss16(13)
; M 0415 %fi
; 0416 %fi %;
; 0417
; 0418 macro
; M 0419 $$$NML_APPLICABILITY_EXPAND [RESTRICTION_LIST] =
; 0420 $$$NML_APPLICABILITY (RESTRICTION_LIST) %;
; 0421
; 0422 macro
; M 0423 $$$NML_APPLICABILITY (RESTRICTION) =
; M 0424 %if %null(RESTRICTION)
; M 0425 %then %bliss36(0) %bliss16(0)
; M 0426 %else %if %identical('Q',%string(RESTRICTION)) ! QUALIFIED
; M 0427 %then 1 ^ %bliss36(21) %bliss16(3)
; M 0428 %fi
; M 0429
; M 0430 %if %identical('E',%string(RESTRICTION)) ! EXECUTOR ONLY
; M 0431 %then 1 ^ %bliss36(22) %bliss16(4)
; M 0432 %fi
; M 0433
; M 0434 %if %identical('A',%string(RESTRICTION)) ! ADJACENT ONLY
; M 0435 %then 1 ^ %bliss36(23) %bliss16(5)
; M 0436 %fi
; M 0437
; M 0438 %if %identical('R',%string(RESTRICTION)) ! REMOTE ONLY
; M 0439 %then 1 ^ %bliss36(24) %bliss16(6)
; M 0440 %fi
; M 0441
; M 0442 %if %identical('S',%string(RESTRICTION)) ! SINK ONLY
; M 0443 %then 1 ^ %bliss36(25) %bliss16(7)
; M 0444 %fi
; 0445 %fi %;
; 0446
; 0447 macro
; M 0448 $$$NML_INFORMATION_EXPAND [TYPE_LIST] =
; 0449 $$$NML_INFORMATION (TYPE_LIST) %;
; 0450
; 0451 macro
; M 0452 $$$NML_INFORMATION (TYPE) =
; M 0453 %if %null(TYPE)
; M 0454 %then %bliss36(0) %bliss16(0)
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 13
X03.26 Data Structure Expansion Macros 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (7)
; M 0455 %else %if %identical('C',%string(TYPE)) ! CHARACTERISTIC
; M 0456 %then 1 ^ %bliss36(27) %bliss16(8)
; M 0457 %fi
; M 0458
; M 0459 %if %identical('S',%string(TYPE)) ! STATUS
; M 0460 %then 1 ^ %bliss36(28) %bliss16(9)
; M 0461 %fi
; M 0462
; M 0463 %if %identical('*',%string(TYPE)) ! SUMMARY
; M 0464 %then 1 ^ %bliss36(29) %bliss16(10)
; M 0465 %fi
; M 0466
; M 0467 %if %identical('EV',%string(TYPE)) ! EVENTS
; M 0468 %then 1 ^ %bliss36(30) %bliss16(11)
; M 0469 %fi
; M 0470
; M 0471 %if %identical('Q',%string(TYPE)) ! QUALIFIER
; M 0472 %then 1 ^ %bliss36(31) %bliss16(12)
; M 0473 %fi
; 0474 %fi %;
; 0475
; 0476 macro
; M 0477 $$NML_ENTRY_PARSING (NAME, FORM, LAYER, TYPE, INFO, APPR, SETR, UCASE) =
; M 0478 %if not $MCB ! Lexical name of parameter
; M 0479 %then CH$ASCIC (%string(NAME)),
; M 0480 %fi
; M 0481
; M 0482 %if not %null(FORM) ! Data format
; M 0483 %then FORM
; M 0484 %else %bliss36(0) %bliss16(0)
; M 0485 %fi
; M 0486
; M 0487 %if not %null(TYPE) ! Data type
; M 0488 %then or TYPE ^ %bliss36(9) %bliss16(8)
; M 0489 %fi
; M 0490
; M 0491 %bliss16(,0) ! MCB break for word boundary
; M 0492
; M 0493 %if %identical('NML',%string(LAYER)) ! Network Management Layer
; M 0494 %then or 1 ^ %bliss36(18) %bliss16(0)
; M 0495 %fi
; M 0496
; M 0497 %if not %null(INFO) ! Information type
; M 0498 %then or $$$NML_INFORMATION_EXPAND (%remove(INFO))
; M 0499 %fi
; M 0500
; M 0501 %if not %null(APPR) ! Applicability restriction
; M 0502 %then or $$$NML_APPLICABILITY_EXPAND (%remove(APPR))
; M 0503 %fi
; M 0504
; M 0505 %if not %null(SETR) ! Settability restriction
; M 0506 %then or $$$NML_SET_EXPAND (%remove(SETR))
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 14
X03.26 Data Structure Expansion Macros 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (7)
; M 0507 %fi
; M 0508
; M 0509 %if not %null(UCASE) ! Parameter data upper case conversion
; M 0510 %then %if %identical('U',%string(UCASE))
; M 0511 %then or 1 ^ %bliss36(33) %bliss16(14)
; M 0512 %fi
; 0513 %fi %;
; 0514
; 0515 macro
; M 0516 $$NML_PV_LOOKUP_ENTRY (CNT, PARAMETER) =
; M 0517 [CNT,PE_NUMBER] = PARAMETER,
; 0518 [CNT,PE_ADDRESS] = uplit ($$NML_ENTRY_PARSING (%remaining)) %;
; 0519
; 0520 !
; 0521 ! Macros to expand coded parameter text tables.
; 0522 !
; 0523
; 0524 macro
; M 0525 $NML$PC_LOOKUP [ENTRY_LIST] =
; 0526 $$NML_CODE_ENTRY (%count, %remove(ENTRY_LIST)) %;
; 0527
; 0528 macro
; M 0529 $$NML_CODE_ENTRY (CNT, PARAMETER, TABLE) =
; M 0530 [CNT,PE_NUMBER] = PARAMETER,
; 0531 [CNT,PE_ADDRESS] = plit ($$NML_EXPAND_CODES (%remove(TABLE))) %;
; 0532
; 0533 macro
; M 0534 $$NML_EXPAND_CODES [TABLE] =
; 0535 CH$ASCIC (TABLE) %;
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 15
X03.26 Table Storage Definition 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (8)
; 0536 %sbttl 'Table Storage Definition'
; 0537
; 0538 !
; 0539 ! The macros which are used to define these tables are defined in NMARCH.REQ.
; 0540 !
; 0541
; 0542 own
; 0543 NODE_PARAMETER_TABLE:
; 0544 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$NODE_PARAMETERS))
; 0545 preset ($NML$PV_LOOKUP($NML$NODE_PARAMETERS));
; 0546
; U 0547 %if not $MCB %then
; U 0548 own
; U 0549 NODE_CODE_TABLE:
; U 0550 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$NODE_CODES))
; 0551 preset ($NML$PC_LOOKUP($NML$NODE_CODES)); %fi
; 0552
; 0553 own
; 0554 LINE_PARAMETER_TABLE:
; 0555 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$LINE_PARAMETERS))
; 0556 preset ($NML$PV_LOOKUP($NML$LINE_PARAMETERS));
; 0557
; U 0558 %if not $MCB %then
; U 0559 own
; U 0560 LINE_CODE_TABLE:
; U 0561 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$LINE_CODES))
; 0562 preset ($NML$PC_LOOKUP($NML$LINE_CODES)); %fi
; 0563
; 0564 own
; 0565 LOGGING_PARAMETER_TABLE:
; 0566 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$LOGGING_PARAMETERS))
; 0567 preset ($NML$PV_LOOKUP($NML$LOGGING_PARAMETERS));
; 0568
; U 0569 %if not $MCB %then
; U 0570 own
; U 0571 LOGGING_CODE_TABLE:
; U 0572 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$LOGGING_CODES))
; 0573 preset ($NML$PC_LOOKUP($NML$LOGGING_CODES)); %fi
; 0574
; 0575 own
; 0576 CIRCUIT_PARAMETER_TABLE:
; 0577 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$CIRCUIT_PARAMETERS))
; 0578 preset ($NML$PV_LOOKUP($NML$CIRCUIT_PARAMETERS));
; 0579
; U 0580 %if not $MCB %then
; U 0581 own
; U 0582 CIRCUIT_CODE_TABLE:
; U 0583 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$CIRCUIT_CODES))
; 0584 preset ($NML$PC_LOOKUP($NML$CIRCUIT_CODES)); %fi
; 0585
; 0586 own
; 0587 MODULE_PARAMETER_TABLE:
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 16
X03.26 Table Storage Definition 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (8)
; 0588 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$MODULE_PARAMETERS))
; 0589 preset ($NML$PV_LOOKUP($NML$MODULE_PARAMETERS));
; 0590
; U 0591 %if not $MCB %then
; U 0592 own
; U 0593 MODULE_CODE_TABLE:
; U 0594 $NML$PVB_ENTRY_VECTOR ($NML$PV_LOOKUP_COUNT($NML$MODULE_CODES))
; 0595 preset ($NML$PC_LOOKUP($NML$MODULE_CODES)); %fi
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 17
X03.26 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (9)
; U 0596 %sbttl '' %if not $MCB %then
; U 0597 %global_routine ('NML$PARAMETER_TEXT', ENTITY_TYPE, PARAMETER) =
; U 0598
; U 0599 !++
; U 0600 ! FUNCTIONAL DESCRIPTION:
; U 0601 !
; U 0602 ! Returns a character string pointer to the name of a
; U 0603 ! parameter known by NML.
; U 0604 !
; U 0605 ! FORMAL PARAMETERS
; U 0606 !
; U 0607 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; U 0608 ! PARAMETER - The parameter type number.
; U 0609 !
; U 0610 ! IMPLICIT INPUTS
; U 0611 !
; U 0612 ! NONE.
; U 0613 !
; U 0614 ! ROUTINE VALUE:
; U 0615 !
; U 0616 ! Character string pointer to counted ASCII name text, if known;
; U 0617 ! 0, otherwise.
; U 0618 !
; U 0619 ! SIDE EFFECTS:
; U 0620 !
; U 0621 ! NONE.
; U 0622 !
; U 0623 !--
; U 0624
; U 0625 begin
; U 0626
; U 0627 local
; U 0628 PDB: ref $NML$PVL_DATA_BLOCK,
; U 0629 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; U 0630
; U 0631 !
; U 0632 ! Get address of table entry for this parameter.
; U 0633 ! Return false if cannot find it.
; U 0634 !
; U 0635
; U 0636 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; U 0637 then return $FALSE;
; U 0638
; U 0639 !
; U 0640 ! Get address of PVL_DATA_BLOCK from lookup table
; U 0641 !
; U 0642
; U 0643 PDB = .ENTRY[PE_ADDRESS];
; U 0644
; U 0645 !
; U 0646 ! Return pointer to an I-field name string.
; U 0647 !
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 18
X03.26 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (9)
; U 0648
; U 0649 return ch$plus(.PDB[PDB_NAME],-1);
; U 0650 end; ! End of NML$PARAMETER_TEXT
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 19
X03.26 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (10)
; U 0651 %global_routine ('NML$CODED_TEXT', ENTITY_TYPE, PARAMETER, CODE) =
; U 0652
; U 0653 !++
; U 0654 ! FUNCTIONAL DESCRIPTION:
; U 0655 !
; U 0656 ! Returns a character string pointer to the name of a
; U 0657 ! coded parameter value known by NML.
; U 0658 !
; U 0659 ! FORMAL PARAMETERS
; U 0660 !
; U 0661 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; U 0662 ! PARAMETER - The parameter type number.
; U 0663 ! CODE - The value of the parameter code.
; U 0664 !
; U 0665 ! IMPLICIT INPUTS
; U 0666 !
; U 0667 ! NONE.
; U 0668 !
; U 0669 ! ROUTINE VALUE:
; U 0670 !
; U 0671 ! Character string pointer to counted ASCII name text, if known;
; U 0672 ! 0, otherwise.
; U 0673 !
; U 0674 ! SIDE EFFECTS:
; U 0675 !
; U 0676 ! NONE.
; U 0677 !
; U 0678 !--
; U 0679
; U 0680 begin
; U 0681
; U 0682 local
; U 0683 CTB: ref vector[1], ! Address of coded text table
; U 0684 ADDRESS,
; U 0685 COUNT,
; U 0686 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; U 0687
; U 0688 !
; U 0689 ! Get address of table entry for this parameter.
; U 0690 !
; U 0691
; U 0692 case .ENTITY_TYPE from NODE_E to MODULE_ of
; U 0693 set
; U 0694 [NODE_E]:
; U 0695 begin
; U 0696 ADDRESS = NODE_CODE_TABLE;
; U 0697 COUNT = $NML$PV_LOOKUP_COUNT ($NML$NODE_CODES);
; U 0698 end;
; U 0699
; U 0700 [LINE_]:
; U 0701 begin
; U 0702 ADDRESS = LINE_CODE_TABLE;
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 20
X03.26 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (10)
; U 0703 COUNT = $NML$PV_LOOKUP_COUNT ($NML$LINE_CODES);
; U 0704 end;
; U 0705
; U 0706 [LOGGING_]:
; U 0707 begin
; U 0708 ADDRESS = LOGGING_CODE_TABLE;
; U 0709 COUNT = $NML$PV_LOOKUP_COUNT ($NML$LOGGING_CODES);
; U 0710 end;
; U 0711
; U 0712 [CIRCUIT_]:
; U 0713 begin
; U 0714 ADDRESS = CIRCUIT_CODE_TABLE;
; U 0715 COUNT = $NML$PV_LOOKUP_COUNT ($NML$CIRCUIT_CODES);
; U 0716 end;
; U 0717
; U 0718 [MODULE_]:
; U 0719 begin
; U 0720 ADDRESS = MODULE_CODE_TABLE;
; U 0721 COUNT = $NML$PV_LOOKUP_COUNT ($NML$MODULE_CODES);
; U 0722 end;
; U 0723
; U 0724 [inrange,
; U 0725 outrange]:
; U 0726 return 0;
; U 0727 tes;
; U 0728
; U 0729 !
; U 0730 ! Get address of table entry for this parameter.
; U 0731 ! Return false if cannot find it.
; U 0732 !
; U 0733
; U 0734 if (ENTRY = SEARCH_PARAMETER_TABLE (.PARAMETER, .ADDRESS, .COUNT)) eql 0
; U 0735 then return $FALSE;
; U 0736
; U 0737 !
; U 0738 ! Get address of coded text table from lookup table
; U 0739 !
; U 0740
; U 0741 CTB = .ENTRY[PE_ADDRESS];
; U 0742
; U 0743 !
; U 0744 ! If beyond the code range, we cannot interpret.
; U 0745 !
; U 0746
; U 0747 if (.CODE geq .CTB[-1]) then return $false;
; U 0748
; U 0749 !
; U 0750 ! Return pointer to an I-field name string.
; U 0751 !
; U 0752
; U 0753 return ch$plus(.CTB[.CODE],-1);
; U 0754 end; ! End of NML$CODED_TEXT
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 21
X03.26 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (10)
; 0755 %fi ! End of $MCB conditional compilation
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 22
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
; 0756 %global_routine ('NML$SUMMARY', ENTITY_TYPE, PARAMETER) =
; 0757
; 0758 !++
; 0759 ! FUNCTIONAL DESCRIPTION:
; 0760 !
; 0761 ! Determines whether a parameter is to be included in the
; 0762 ! response to a request for summary type information.
; 0763 !
; 0764 ! FORMAL PARAMETERS
; 0765 !
; 0766 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 0767 ! PARAMETER - The parameter type number.
; 0768 !
; 0769 ! IMPLICIT INPUTS
; 0770 !
; 0771 ! NONE.
; 0772 !
; 0773 ! ROUTINE VALUE:
; 0774 !
; 0775 ! TRUE, if the parameter is included in a summary display;
; 0776 ! FALSE, otherwise.
; 0777 !
; 0778 ! SIDE EFFECTS:
; 0779 !
; 0780 ! NONE.
; 0781 !
; 0782 !--
; 0783
; 0784 begin
; 0785
; 0786 local
; 0787 PDB: ref $NML$PVL_DATA_BLOCK,
; 0788 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 0789
; 0790 !
; 0791 ! Get address of table entry for this parameter.
; 0792 ! Return false if cannot find it.
; 0793 !
; 0794
; 0795 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 0796 then return $FALSE;
; 0797
; 0798 !
; 0799 ! Get address of PVL_DATA_BLOCK from lookup table
; 0800 !
; 0801
; 0802 PDB = .ENTRY[PE_ADDRESS];
; 0803
; 0804 !
; 0805 ! If summary flag is on return true.
; 0806 !
; 0807
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 23
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
; 0808 return (.PDB[PDB_SUMMARY]);
; 0809 end; ! End of NML$SUMMARY
.TITLE NMLPRM NMLPRM -- Table Lookup Entity Parameters
.IDENT /X03.26/
000000 .PSECT $PLIT$, RO , D
000000 000001 P.AAA: .WORD 1
000002 000000 .WORD 0
000004 040011 P.AAB: .WORD 40011
000006 022421 .WORD 22421
000010 141400 P.AAC: .WORD -36400
000012 000423 .WORD 423
000014 040011 P.AAD: .WORD 40011
000016 060441 .WORD 60441
000020 024013 P.AAE: .WORD 24013
000022 020441 .WORD 20441
000024 100401 P.AAF: .WORD -77377
000026 020441 .WORD 20441
000030 100401 P.AAG: .WORD -77377
000032 020441 .WORD 20441
000034 040011 P.AAH: .WORD 40011
000036 060441 .WORD 60441
000040 040011 P.AAI: .WORD 40011
000042 060441 .WORD 60441
000044 040011 P.AAJ: .WORD 40011
000046 060441 .WORD 60441
000050 100401 P.AAK: .WORD -77377
000052 020441 .WORD 20441
000054 040011 P.AAL: .WORD 40011
000056 000443 .WORD 443
000060 040011 P.AAM: .WORD 40011
000062 060441 .WORD 60441
000064 040011 P.AAN: .WORD 40011
000066 060441 .WORD 60441
000070 032003 P.AAO: .WORD 32003
000072 000443 .WORD 443
000074 002003 P.AAP: .WORD 2003
000076 000443 .WORD 443
000100 141000 P.AAQ: .WORD -37000
000102 000463 .WORD 463
000104 141006 P.AAR: .WORD -36772
000106 020465 .WORD 20465
000110 001002 P.AAS: .WORD 1002
000112 000423 .WORD 423
000114 001002 P.AAT: .WORD 1002
000116 000423 .WORD 423
000120 100401 P.AAU: .WORD -77377
000122 000423 .WORD 423
000124 001002 P.AAV: .WORD 1002
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 24
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000126 020521 .WORD 20521
000130 141006 P.AAW: .WORD -36772
000132 020124 .WORD 20124
000134 040011 P.AAX: .WORD 40011
000136 062400 .WORD 62400
000140 141006 P.AAY: .WORD -36772
000142 000024 .WORD 24
000144 001002 P.AAZ: .WORD 1002
000146 020420 .WORD 20420
000150 001002 P.ABA: .WORD 1002
000152 020420 .WORD 20420
000154 001002 P.ABB: .WORD 1002
000156 003122 .WORD 3122
000160 001002 P.ABC: .WORD 1002
000162 003102 .WORD 3102
000164 000000 P.ABD: .WORD 0
000166 000422 .WORD 422
000170 001002 P.ABE: .WORD 1002
000172 000420 .WORD 420
000174 000401 P.ABF: .WORD 401
000176 000420 .WORD 420
000200 000401 P.ABG: .WORD 401
000202 000420 .WORD 420
000204 001002 P.ABH: .WORD 1002
000206 000420 .WORD 420
000210 001002 P.ABI: .WORD 1002
000212 000420 .WORD 420
000214 100401 P.ABJ: .WORD -77377
000216 001042 .WORD 1042
000220 001002 P.ABK: .WORD 1002
000222 001102 .WORD 1102
000224 000401 P.ABL: .WORD 401
000226 001102 .WORD 1102
000230 040011 P.ABM: .WORD 40011
000232 003102 .WORD 3102
000234 000000 P.ABN: .WORD 0
000236 000422 .WORD 422
000240 100401 P.ABO: .WORD -77377
000242 000420 .WORD 420
000244 001002 P.ABP: .WORD 1002
000246 000420 .WORD 420
000250 000004 P.ABQ: .WORD 4
000252 000420 .WORD 420
000254 001002 P.ABR: .WORD 1002
000256 000420 .WORD 420
000260 001002 P.ABS: .WORD 1002
000262 000420 .WORD 420
000264 001002 P.ABT: .WORD 1002
000266 000420 .WORD 420
000270 000401 P.ABU: .WORD 401
000272 000420 .WORD 420
000274 000401 P.ABV: .WORD 401
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 25
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000276 000420 .WORD 420
000300 001002 P.ABW: .WORD 1002
000302 000420 .WORD 420
000304 001002 P.ABX: .WORD 1002
000306 000420 .WORD 420
000310 001002 P.ABY: .WORD 1002
000312 000440 .WORD 440
000314 100401 P.ABZ: .WORD -77377
000316 003001 .WORD 3001
000320 100400 P.ACA: .WORD -77400
000322 003003 .WORD 3003
000324 100401 P.ACB: .WORD -77377
000326 000401 .WORD 401
000330 001002 P.ACC: .WORD 1002
000332 020401 .WORD 20401
000334 040011 P.ACD: .WORD 40011
000336 000400 .WORD 400
000340 001002 P.ACE: .WORD 1002
000342 000400 .WORD 400
000344 100401 P.ACF: .WORD -77377
000346 000400 .WORD 400
000350 100401 P.ACG: .WORD -77377
000352 000400 .WORD 400
000354 100401 P.ACH: .WORD -77377
000356 000400 .WORD 400
000360 100401 P.ACI: .WORD -77377
000362 000400 .WORD 400
000364 001002 P.ACJ: .WORD 1002
000366 000400 .WORD 400
000370 001002 P.ACK: .WORD 1002
000372 000400 .WORD 400
000374 001002 P.ACL: .WORD 1002
000376 020400 .WORD 20400
000400 001002 P.ACM: .WORD 1002
000402 000400 .WORD 400
000404 000401 P.ACN: .WORD 401
000406 020400 .WORD 20400
000410 000401 P.ACO: .WORD 401
000412 000400 .WORD 400
000414 001002 P.ACP: .WORD 1002
000416 020400 .WORD 20400
000420 001002 P.ACQ: .WORD 1002
000422 020400 .WORD 20400
000424 001002 P.ACR: .WORD 1002
000426 020400 .WORD 20400
000430 001002 P.ACS: .WORD 1002
000432 020400 .WORD 20400
000434 031002 P.ACT: .WORD 31002
000436 000400 .WORD 400
000440 031002 P.ACU: .WORD 31002
000442 000400 .WORD 400
000444 031002 P.ACV: .WORD 31002
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 26
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000446 000400 .WORD 400
000450 000401 P.ACW: .WORD 401
000452 000400 .WORD 400
000454 000000 P.ACX: .WORD 0
000456 000400 .WORD 400
000460 000000 P.ACY: .WORD 0
000462 000400 .WORD 400
000464 001002 P.ACZ: .WORD 1002
000466 000400 .WORD 400
000470 100401 P.ADA: .WORD -77377
000472 003021 .WORD 3021
000474 040011 P.ADB: .WORD 40011
000476 002423 .WORD 2423
000500 141006 P.ADC: .WORD -36772
000502 006203 .WORD 6203
000504 142405 P.ADD: .WORD -35373
000506 006203 .WORD 6203
000510 100401 P.ADE: .WORD -77377
000512 003001 .WORD 3001
000514 100401 P.ADF: .WORD -77377
000516 003003 .WORD 3003
000520 100401 P.ADG: .WORD -77377
000522 000401 .WORD 401
000524 001002 P.ADH: .WORD 1002
000526 020401 .WORD 20401
000530 000000 P.ADI: .WORD 0
000532 003002 .WORD 3002
000534 000000 P.ADJ: .WORD 0
000536 003002 .WORD 3002
000540 040011 P.ADK: .WORD 40011
000542 003002 .WORD 3002
000544 000000 P.ADL: .WORD 0
000546 003002 .WORD 3002
000550 001002 P.ADM: .WORD 1002
000552 001002 .WORD 1002
000554 000401 P.ADN: .WORD 401
000556 000400 .WORD 400
000560 001002 P.ADO: .WORD 1002
000562 000400 .WORD 400
000564 001002 P.ADP: .WORD 1002
000566 000400 .WORD 400
000570 100401 P.ADQ: .WORD -77377
000572 000400 .WORD 400
000574 000401 P.ADR: .WORD 401
000576 020400 .WORD 20400
000600 001002 P.ADS: .WORD 1002
000602 020400 .WORD 20400
000604 040011 P.ADT: .WORD 40011
000606 000400 .WORD 400
000610 000000 P.ADU: .WORD 0
000612 003002 .WORD 3002
000614 100401 P.ADV: .WORD -77377
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 27
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000616 003000 .WORD 3000
000620 100401 P.ADW: .WORD -77377
000622 003002 .WORD 3002
000624 000000 P.ADX: .WORD 0
000626 020400 .WORD 20400
000630 040011 P.ADY: .WORD 40011
000632 040400 .WORD 40400
000634 100401 P.ADZ: .WORD -77377
000636 000400 .WORD 400
000640 100401 P.AEA: .WORD -77377
000642 000400 .WORD 400
000644 040011 P.AEB: .WORD 40011
000646 040400 .WORD 40400
000650 001002 P.AEC: .WORD 1002
000652 000400 .WORD 400
000654 001002 P.AED: .WORD 1002
000656 000400 .WORD 400
000660 000401 P.AEE: .WORD 401
000662 000400 .WORD 400
000664 000401 P.AEF: .WORD 401
000666 000400 .WORD 400
000670 001002 P.AEG: .WORD 1002
000672 020400 .WORD 20400
000674 001002 P.AEH: .WORD 1002
000676 020400 .WORD 20400
000700 100401 P.AEI: .WORD -77377
000702 020400 .WORD 20400
000704 000401 P.AEJ: .WORD 401
000706 020400 .WORD 20400
000710 000401 P.AEK: .WORD 401
000712 020400 .WORD 20400
000714 000401 P.AEL: .WORD 401
000716 020400 .WORD 20400
000720 000401 P.AEM: .WORD 401
000722 020400 .WORD 20400
000724 000401 P.AEN: .WORD 401
000726 020400 .WORD 20400
000730 000401 P.AEO: .WORD 401
000732 020400 .WORD 20400
000734 000401 P.AEP: .WORD 401
000736 020400 .WORD 20400
000740 000401 P.AEQ: .WORD 401
000742 020400 .WORD 20400
000744 000401 P.AER: .WORD 401
000746 020400 .WORD 20400
000750 000401 P.AES: .WORD 401
000752 020400 .WORD 20400
000754 100401 P.AET: .WORD -77377
000756 000400 .WORD 400
000760 100401 P.AEU: .WORD -77377
000762 003010 .WORD 3010
000764 001002 P.AEV: .WORD 1002
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 28
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000766 020411 .WORD 20411
000770 001002 P.AEW: .WORD 1002
000772 003002 .WORD 3002
000774 040011 P.AEX: .WORD 40011
000776 050000 .WORD 50000
001000 001002 P.AEY: .WORD 1002
001002 000400 .WORD 400
001004 141006 P.AEZ: .WORD -36772
001006 000410 .WORD 410
001010 040011 P.AFA: .WORD 40011
001012 060410 .WORD 60410
001014 040011 P.AFB: .WORD 40011
001016 020410 .WORD 20410
001020 040011 P.AFC: .WORD 40011
001022 060410 .WORD 60410
001024 000007 P.AFD: .WORD 7
001026 000410 .WORD 410
001030 000401 P.AFE: .WORD 401
001032 020410 .WORD 20410
001034 000012 P.AFF: .WORD 12
001036 020410 .WORD 20410
001040 000012 P.AFG: .WORD 12
001042 020410 .WORD 20410
001044 040011 P.AFH: .WORD 40011
001046 060410 .WORD 60410
001050 040011 P.AFI: .WORD 40011
001052 020410 .WORD 20410
001054 000004 P.AFJ: .WORD 4
001056 020410 .WORD 20410
001060 001002 P.AFK: .WORD 1002
001062 003012 .WORD 3012
001064 001002 P.AFL: .WORD 1002
001066 003012 .WORD 3012
001070 040011 P.AFM: .WORD 40011
001072 050000 .WORD 50000
001074 040011 P.AFN: .WORD 40011
001076 050000 .WORD 50000
001100 040011 P.AFO: .WORD 40011
001102 040400 .WORD 40400
001104 040011 P.AFP: .WORD 40011
001106 060410 .WORD 60410
001110 000004 P.AFQ: .WORD 4
001112 000410 .WORD 410
001114 001002 P.AFR: .WORD 1002
001116 000412 .WORD 412
001120 001002 P.AFS: .WORD 1002
001122 000400 .WORD 400
001124 000401 P.AFT: .WORD 401
001126 000400 .WORD 400
001130 001002 P.AFU: .WORD 1002
001132 000400 .WORD 400
001134 000401 P.AFV: .WORD 401
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 29
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
001136 000400 .WORD 400
001140 000401 P.AFW: .WORD 401
001142 020400 .WORD 20400
001144 000401 P.AFX: .WORD 401
001146 020400 .WORD 20400
001150 000401 P.AFY: .WORD 401
001152 020400 .WORD 20400
001154 000401 P.AFZ: .WORD 401
001156 020400 .WORD 20400
001160 000401 P.AGA: .WORD 401
001162 020400 .WORD 20400
001164 000401 P.AGB: .WORD 401
001166 020400 .WORD 20400
001170 000401 P.AGC: .WORD 401
001172 020400 .WORD 20400
001174 040011 P.AGD: .WORD 40011
001176 060410 .WORD 60410
001200 001002 P.AGE: .WORD 1002
001202 000410 .WORD 410
001204 100401 P.AGF: .WORD -77377
001206 020410 .WORD 20410
000000 .PSECT $OWN$, D
000000 000000 NODE.PARAMETER.TABLE:
.WORD 0
000002 000000' .WORD P.AAA
000004 000144 .WORD 144
000006 000004' .WORD P.AAB
000010 000145 .WORD 145
000012 000010' .WORD P.AAC
000014 000156 .WORD 156
000016 000014' .WORD P.AAD
000020 000157 .WORD 157
000022 000020' .WORD P.AAE
000024 000160 .WORD 160
000026 000024' .WORD P.AAF
000030 000161 .WORD 161
000032 000030' .WORD P.AAG
000034 000170 .WORD 170
000036 000034' .WORD P.AAH
000040 000171 .WORD 171
000042 000040' .WORD P.AAI
000044 000172 .WORD 172
000046 000044' .WORD P.AAJ
000050 000175 .WORD 175
000052 000050' .WORD P.AAK
000054 000176 .WORD 176
000056 000054' .WORD P.AAL
000060 000202 .WORD 202
000062 000060' .WORD P.AAM
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 30
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000064 000203 .WORD 203
000066 000064' .WORD P.AAN
000070 000207 .WORD 207
000072 000070' .WORD P.AAO
000074 000210 .WORD 210
000076 000074' .WORD P.AAP
000100 000214 .WORD 214
000102 000100' .WORD P.AAQ
000104 000215 .WORD 215
000106 000104' .WORD P.AAR
000110 000226 .WORD 226
000112 000110' .WORD P.AAS
000114 000227 .WORD 227
000116 000114' .WORD P.AAT
000120 000230 .WORD 230
000122 000120' .WORD P.AAU
000124 000240 .WORD 240
000126 000124' .WORD P.AAV
000130 000764 .WORD 764
000132 000130' .WORD P.AAW
000134 000765 .WORD 765
000136 000134' .WORD P.AAX
000140 000766 .WORD 766
000142 000140' .WORD P.AAY
000144 000776 .WORD 776
000146 000144' .WORD P.AAZ
000150 000777 .WORD 777
000152 000150' .WORD P.ABA
000154 001130 .WORD 1130
000156 000154' .WORD P.ABB
000160 001131 .WORD 1131
000162 000160' .WORD P.ABC
000164 001274 .WORD 1274
000166 000164' .WORD P.ABD
000170 001306 .WORD 1306
000172 000170' .WORD P.ABE
000174 001320 .WORD 1320
000176 000174' .WORD P.ABF
000200 001321 .WORD 1321
000202 000200' .WORD P.ABG
000204 001322 .WORD 1322
000206 000204' .WORD P.ABH
000210 001323 .WORD 1323
000212 000210' .WORD P.ABI
000214 001452 .WORD 1452
000216 000214' .WORD P.ABJ
000220 001464 .WORD 1464
000222 000220' .WORD P.ABK
000224 001465 .WORD 1465
000226 000224' .WORD P.ABL
000230 001466 .WORD 1466
000232 000230' .WORD P.ABM
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 31
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000234 001604 .WORD 1604
000236 000234' .WORD P.ABN
000240 001605 .WORD 1605
000242 000240' .WORD P.ABO
000244 001616 .WORD 1616
000246 000244' .WORD P.ABP
000250 001617 .WORD 1617
000252 000250' .WORD P.ABQ
000254 001630 .WORD 1630
000256 000254' .WORD P.ABR
000260 001631 .WORD 1631
000262 000260' .WORD P.ABS
000264 001632 .WORD 1632
000266 000264' .WORD P.ABT
000270 001633 .WORD 1633
000272 000270' .WORD P.ABU
000274 001634 .WORD 1634
000276 000274' .WORD P.ABV
000300 001642 .WORD 1642
000302 000300' .WORD P.ABW
000304 001643 .WORD 1643
000306 000304' .WORD P.ABX
000310 004704 .WORD 4704
000312 000310' .WORD P.ABY
000314 000000 LINE.PARAMETER.TABLE:
.WORD 0
000316 000314' .WORD P.ABZ
000320 000001 .WORD 1
000322 000320' .WORD P.ACA
000324 000144 .WORD 144
000326 000324' .WORD P.ACB
000330 000156 .WORD 156
000332 000330' .WORD P.ACC
000334 002114 .WORD 2114
000336 000334' .WORD P.ACD
000340 002121 .WORD 2121
000342 000340' .WORD P.ACE
000344 002126 .WORD 2126
000346 000344' .WORD P.ACF
000350 002127 .WORD 2127
000352 000350' .WORD P.ACG
000354 002130 .WORD 2130
000356 000354' .WORD P.ACH
000360 002131 .WORD 2131
000362 000360' .WORD P.ACI
000364 002140 .WORD 2140
000366 000364' .WORD P.ACJ
000370 002141 .WORD 2141
000372 000370' .WORD P.ACK
000374 002142 .WORD 2142
000376 000374' .WORD P.ACL
000400 002152 .WORD 2152
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 32
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000402 000400' .WORD P.ACM
000404 002153 .WORD 2153
000406 000404' .WORD P.ACN
000410 002154 .WORD 2154
000412 000410' .WORD P.ACO
000414 002176 .WORD 2176
000416 000414' .WORD P.ACP
000420 002177 .WORD 2177
000422 000420' .WORD P.ACQ
000424 002200 .WORD 2200
000426 000424' .WORD P.ACR
000430 002201 .WORD 2201
000432 000430' .WORD P.ACS
000434 005132 .WORD 5132
000436 000434' .WORD P.ACT
000440 005133 .WORD 5133
000442 000440' .WORD P.ACU
000444 005137 .WORD 5137
000446 000444' .WORD P.ACV
000450 005144 .WORD 5144
000452 000450' .WORD P.ACW
000454 005151 .WORD 5151
000456 000454' .WORD P.ACX
000460 005152 .WORD 5152
000462 000460' .WORD P.ACY
000464 005156 .WORD 5156
000466 000464' .WORD P.ACZ
000470 000000 LOGGING.PARAMETER.TABLE:
.WORD 0
000472 000470' .WORD P.ADA
000474 000144 .WORD 144
000476 000474' .WORD P.ADB
000500 000310 .WORD 310
000502 000500' .WORD P.ADC
000504 000311 .WORD 311
000506 000504' .WORD P.ADD
000510 000000 CIRCUIT.PARAMETER.TABLE:
.WORD 0
000512 000510' .WORD P.ADE
000514 000001 .WORD 1
000516 000514' .WORD P.ADF
000520 000144 .WORD 144
000522 000520' .WORD P.ADG
000524 000156 .WORD 156
000526 000524' .WORD P.ADH
000530 000310 .WORD 310
000532 000530' .WORD P.ADI
000534 000311 .WORD 311
000536 000534' .WORD P.ADJ
000540 000620 .WORD 620
000542 000540' .WORD P.ADK
000544 001440 .WORD 1440
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 33
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000546 000544' .WORD P.ADL
000550 001452 .WORD 1452
000552 000550' .WORD P.ADM
000554 001604 .WORD 1604
000556 000554' .WORD P.ADN
000560 001612 .WORD 1612
000562 000560' .WORD P.ADO
000564 001613 .WORD 1613
000566 000564' .WORD P.ADP
000570 001616 .WORD 1616
000572 000570' .WORD P.ADQ
000574 001630 .WORD 1630
000576 000574' .WORD P.ADR
000600 001631 .WORD 1631
000602 000600' .WORD P.ADS
000604 001642 .WORD 1642
000606 000604' .WORD P.ADT
000610 001750 .WORD 1750
000612 000610' .WORD P.ADU
000614 001762 .WORD 1762
000616 000614' .WORD P.ADV
000620 001763 .WORD 1763
000622 000620' .WORD P.ADW
000624 002114 .WORD 2114
000626 000624' .WORD P.ADX
000630 002126 .WORD 2126
000632 000630' .WORD P.ADY
000634 002127 .WORD 2127
000636 000634' .WORD P.ADZ
000640 002130 .WORD 2130
000642 000640' .WORD P.AEA
000644 002140 .WORD 2140
000646 000644' .WORD P.AEB
000650 002141 .WORD 2141
000652 000650' .WORD P.AEC
000654 002142 .WORD 2142
000656 000654' .WORD P.AED
000660 002143 .WORD 2143
000662 000660' .WORD P.AEE
000664 002164 .WORD 2164
000666 000664' .WORD P.AEF
000670 002165 .WORD 2165
000672 000670' .WORD P.AEG
000674 002166 .WORD 2166
000676 000674' .WORD P.AEH
000700 002171 .WORD 2171
000702 000700' .WORD P.AEI
000704 002172 .WORD 2172
000706 000704' .WORD P.AEJ
000710 002176 .WORD 2176
000712 000710' .WORD P.AEK
000714 002177 .WORD 2177
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 34
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000716 000714' .WORD P.AEL
000720 002200 .WORD 2200
000722 000720' .WORD P.AEM
000724 002201 .WORD 2201
000726 000724' .WORD P.AEN
000730 002202 .WORD 2202
000732 000730' .WORD P.AEO
000734 002203 .WORD 2203
000736 000734' .WORD P.AEP
000740 002204 .WORD 2204
000742 000740' .WORD P.AEQ
000744 002205 .WORD 2205
000746 000744' .WORD P.AER
000750 002206 .WORD 2206
000752 000750' .WORD P.AES
000754 005050 .WORD 5050
000756 000754' .WORD P.AET
000760 000000 MODULE.PARAMETER.TABLE:
.WORD 0
000762 000760' .WORD P.AEU
000764 000144 .WORD 144
000766 000764' .WORD P.AEV
000770 000310 .WORD 310
000772 000770' .WORD P.AEW
000774 000454 .WORD 454
000776 000774' .WORD P.AEX
001000 000466 .WORD 466
001002 001000' .WORD P.AEY
001004 000500 .WORD 500
001006 001004' .WORD P.AEZ
001010 000512 .WORD 512
001012 001010' .WORD P.AFA
001014 000513 .WORD 513
001016 001014' .WORD P.AFB
001020 000514 .WORD 514
001022 001020' .WORD P.AFC
001024 000524 .WORD 524
001026 001024' .WORD P.AFD
001030 000536 .WORD 536
001032 001030' .WORD P.AFE
001034 000537 .WORD 537
001036 001034' .WORD P.AFF
001040 000540 .WORD 540
001042 001040' .WORD P.AFG
001044 000541 .WORD 541
001046 001044' .WORD P.AFH
001050 000542 .WORD 542
001052 001050' .WORD P.AFI
001054 000543 .WORD 543
001056 001054' .WORD P.AFJ
001060 001750 .WORD 1750
001062 001060' .WORD P.AFK
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 35
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
001064 001762 .WORD 1762
001066 001064' .WORD P.AFL
001070 002114 .WORD 2114
001072 001070' .WORD P.AFM
001074 002115 .WORD 2115
001076 001074' .WORD P.AFN
001100 002126 .WORD 2126
001102 001100' .WORD P.AFO
001104 002140 .WORD 2140
001106 001104' .WORD P.AFP
001110 002152 .WORD 2152
001112 001110' .WORD P.AFQ
001114 002153 .WORD 2153
001116 001114' .WORD P.AFR
001120 002164 .WORD 2164
001122 001120' .WORD P.AFS
001124 002165 .WORD 2165
001126 001124' .WORD P.AFT
001130 002176 .WORD 2176
001132 001130' .WORD P.AFU
001134 002177 .WORD 2177
001136 001134' .WORD P.AFV
001140 002200 .WORD 2200
001142 001140' .WORD P.AFW
001144 002201 .WORD 2201
001146 001144' .WORD P.AFX
001150 002202 .WORD 2202
001152 001150' .WORD P.AFY
001154 002210 .WORD 2210
001156 001154' .WORD P.AFZ
001160 002211 .WORD 2211
001162 001160' .WORD P.AGA
001164 002212 .WORD 2212
001166 001164' .WORD P.AGB
001170 002213 .WORD 2213
001172 001170' .WORD P.AGC
001174 002222 .WORD 2222
001176 001174' .WORD P.AGD
001200 002223 .WORD 2223
001202 001200' .WORD P.AGE
001204 002224 .WORD 2224
001206 001204' .WORD P.AGF
.SBTTL NL.PSU NML$SUMMARY as NL_PSU
000000 .PSECT $CODE$, RO
000000 016646 000004 NL.PSU::MOV 4(SP),-(SP) ; ENTITY.TYPE,* 0795
000004 016646 000004 MOV 4(SP),-(SP) ; PARAMETER,*
000010 004767 000000V JSR PC,NL.PLU
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 36
X03.26 NML$SUMMARY as NL_PSU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (11)
000020 001412 BEQ 1$ ; 0796
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 0802
000026 016046 000002 MOV 2(R0),-(SP) ; *(PDB),* 0784
000032 005000 CLR R0
000034 032726 002000 BIT #2000,(SP)+
000040 001403 BEQ 2$
000042 005200 INC R0
000044 000207 RTS PC
000046 005000 1$: CLR R0 ; 0756
000050 000207 2$: RTS PC
; Routine Size: 21 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 3 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 37
X03.26 NML$STATUS as NL_PST 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (12)
; 0810 %global_routine ('NML$STATUS', ENTITY_TYPE, PARAMETER) =
; 0811
; 0812 !++
; 0813 ! FUNCTIONAL DESCRIPTION:
; 0814 !
; 0815 ! Determines whether a parameter is to be included in the
; 0816 ! response to a request for status type information.
; 0817 !
; 0818 ! FORMAL PARAMETERS
; 0819 !
; 0820 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 0821 ! PARAMETER - The parameter type number.
; 0822 !
; 0823 ! IMPLICIT INPUTS
; 0824 !
; 0825 ! NONE.
; 0826 !
; 0827 ! ROUTINE VALUE:
; 0828 !
; 0829 ! TRUE, if the parameter is included in a status display;
; 0830 ! FALSE, otherwise.
; 0831 !
; 0832 ! SIDE EFFECTS:
; 0833 !
; 0834 ! NONE.
; 0835 !
; 0836 !--
; 0837
; 0838 begin
; 0839
; 0840 local
; 0841 PDB: ref $NML$PVL_DATA_BLOCK,
; 0842 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 0843
; 0844 !
; 0845 ! Get address of table entry for this parameter.
; 0846 ! Return false if cannot find it.
; 0847 !
; 0848
; 0849 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 0850 then return $FALSE;
; 0851
; 0852 !
; 0853 ! Get address of PVL_DATA_BLOCK from lookup table
; 0854 !
; 0855
; 0856 PDB = .ENTRY[PE_ADDRESS];
; 0857
; 0858 !
; 0859 ! If status flag is on return true.
; 0860 !
; 0861
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 38
X03.26 NML$STATUS as NL_PST 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (12)
; 0862 return (.PDB[PDB_STATUS]);
; 0863 end; ! End of NML$STATUS
.SBTTL NL.PST NML$STATUS as NL_PST
000000 016646 000004 NL.PST::MOV 4(SP),-(SP) ; ENTITY.TYPE,* 0849
000004 016646 000004 MOV 4(SP),-(SP) ; PARAMETER,*
000010 004767 000000V JSR PC,NL.PLU
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
000020 001412 BEQ 1$ ; 0850
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 0856
000026 016046 000002 MOV 2(R0),-(SP) ; *(PDB),* 0838
000032 005000 CLR R0
000034 032726 001000 BIT #1000,(SP)+
000040 001403 BEQ 2$
000042 005200 INC R0
000044 000207 RTS PC
000046 005000 1$: CLR R0 ; 0810
000050 000207 2$: RTS PC
; Routine Size: 21 words, Routine Base: $CODE$ + 0052
; Maximum stack depth per invocation: 3 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 39
X03.26 NML$CHARACTERISTIC as NL_PCH 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (13)
; 0864 %global_routine ('NML$CHARACTERISTIC', ENTITY_TYPE, PARAMETER) =
; 0865
; 0866 !++
; 0867 ! FUNCTIONAL DESCRIPTION:
; 0868 !
; 0869 ! Determines whether a parameter is to be included in the
; 0870 ! response to a request for characteristic type information.
; 0871 !
; 0872 ! FORMAL PARAMETERS
; 0873 !
; 0874 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 0875 ! PARAMETER - The parameter type number.
; 0876 !
; 0877 ! IMPLICIT INPUTS
; 0878 !
; 0879 ! NONE.
; 0880 !
; 0881 ! ROUTINE VALUE:
; 0882 !
; 0883 ! TRUE, if the parameter is included in a characteristics display;
; 0884 ! FALSE, otherwise.
; 0885 !
; 0886 ! SIDE EFFECTS:
; 0887 !
; 0888 ! NONE.
; 0889 !
; 0890 !--
; 0891
; 0892 begin
; 0893
; 0894 local
; 0895 PDB: ref $NML$PVL_DATA_BLOCK,
; 0896 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 0897
; 0898 !
; 0899 ! Get address of table entry for this parameter.
; 0900 ! Return false if cannot find it.
; 0901 !
; 0902
; 0903 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 0904 then return $FALSE;
; 0905
; 0906 !
; 0907 ! Get address of PVL_DATA_BLOCK from lookup table
; 0908 !
; 0909
; 0910 PDB = .ENTRY[PE_ADDRESS];
; 0911
; 0912 !
; 0913 ! If characteristics flag is on return true.
; 0914 !
; 0915
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 40
X03.26 NML$CHARACTERISTIC as NL_PCH 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (13)
; 0916 return (.PDB[PDB_CHARACTERISTIC]);
; 0917 end; ! End of NML$CHARACTERISTIC
.SBTTL NL.PCH NML$CHARACTERISTIC as NL_PCH
000000 016646 000004 NL.PCH::MOV 4(SP),-(SP) ; ENTITY.TYPE,* 0903
000004 016646 000004 MOV 4(SP),-(SP) ; PARAMETER,*
000010 004767 000000V JSR PC,NL.PLU
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
000020 001407 BEQ 1$ ; 0904
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 0910
000026 116000 000003 MOVB 3(R0),R0 ; *(PDB),* 0892
000032 042700 177776 BIC #177776,R0
000036 000207 RTS PC
000040 005000 1$: CLR R0 ; 0864
000042 000207 RTS PC
; Routine Size: 18 words, Routine Base: $CODE$ + 0124
; Maximum stack depth per invocation: 3 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 41
X03.26 NML$EXECUTOR_ONLY as NL_PEX 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (14)
; 0918 %global_routine ('NML$EXECUTOR_ONLY', ENTITY_TYPE, PARAMETER) =
; 0919
; 0920 !++
; 0921 ! FUNCTIONAL DESCRIPTION:
; 0922 !
; 0923 ! Determines whether a given NODE parameter applies to the
; 0924 ! executor node.
; 0925 !
; 0926 ! FORMAL PARAMETERS
; 0927 !
; 0928 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 0929 ! PARAMETER - The parameter type number.
; 0930 !
; 0931 ! IMPLICIT INPUTS
; 0932 !
; 0933 ! NONE.
; 0934 !
; 0935 ! ROUTINE VALUE:
; 0936 !
; 0937 ! TRUE, if this parameter applies to the executor node;
; 0938 ! FALSE, otherwise.
; 0939 !
; 0940 ! SIDE EFFECTS:
; 0941 !
; 0942 ! NONE.
; 0943 !
; 0944 !--
; 0945
; 0946 begin
; 0947
; 0948 local
; 0949 PDB: ref $NML$PVL_DATA_BLOCK,
; 0950 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 0951
; 0952 !
; 0953 ! Get address of table entry for this parameter.
; 0954 ! Return false if cannot find it.
; 0955 !
; 0956
; 0957 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 0958 then return $FALSE;
; 0959
; 0960 !
; 0961 ! Get address of PVL_DATA_BLOCK from lookup table
; 0962 !
; 0963
; 0964 PDB = .ENTRY[PE_ADDRESS];
; 0965
; 0966 !
; 0967 ! Check if any applicability restrictions apply, if so
; 0968 ! then check if applicable to executor.
; 0969 !
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 42
X03.26 NML$EXECUTOR_ONLY as NL_PEX 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (14)
; 0970
; 0971 return (.PDB[PDB_EXECUTOR_ONLY] and (.PDB[PDB_OTHER_NODES] eql 0));
; 0972 end; ! End of NML$EXECUTOR_ONLY
.SBTTL NL.PEX NML$EXECUTOR_ONLY as NL_PEX
000000 004167 000000G NL.PEX::JSR R1,$SAVE2 ; 0918
000004 016646 000012 MOV 12(SP),-(SP) ; ENTITY.TYPE,* 0957
000010 016646 000012 MOV 12(SP),-(SP) ; PARAMETER,*
000014 004767 000000V JSR PC,NL.PLU
000020 022626 CMP (SP)+,(SP)+
000022 005700 TST R0 ; ENTRY
000024 001421 BEQ 3$ ; 0958
000026 016001 000002 MOV 2(R0),R1 ; *(ENTRY),PDB 0964
000032 005000 CLR R0 ; 0971
000034 132761 000340 000002 BITB #340,2(R1) ; *,*(PDB)
000042 001001 BNE 1$
000044 005200 INC R0
000046 005002 1$: CLR R2
000050 132761 000020 000002 BITB #20,2(R1) ; *,*(PDB)
000056 001401 BEQ 2$
000060 005202 INC R2
000062 005102 2$: COM R2
000064 040200 BIC R2,R0
000066 000207 RTS PC ; 0946
000070 005000 3$: CLR R0 ; 0918
000072 000207 RTS PC
; Routine Size: 30 words, Routine Base: $CODE$ + 0170
; Maximum stack depth per invocation: 6 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 43
X03.26 NML$VALID_PARAMETER as NL_PVL 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (15)
; 0973 %global_routine ('NML$VALID_PARAMETER', ENTITY_TYPE, PARAMETER) =
; 0974
; 0975 !++
; 0976 ! FUNCTIONAL DESCRIPTION:
; 0977 !
; 0978 ! Determines whether a parameter is valid according to the
; 0979 ! DNA Network Management Architecture Specification.
; 0980 !
; 0981 ! FORMAL PARAMETERS
; 0982 !
; 0983 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 0984 ! PARAMETER - The parameter type number.
; 0985 !
; 0986 ! IMPLICIT INPUTS
; 0987 !
; 0988 ! NONE.
; 0989 !
; 0990 ! ROUTINE VALUE:
; 0991 !
; 0992 ! TRUE, if this is a valid parameter;
; 0993 ! FALSE, otherwise.
; 0994 !
; 0995 ! SIDE EFFECTS:
; 0996 !
; 0997 ! NONE.
; 0998 !
; 0999 !--
; 1000
; 1001 begin
; 1002
; 1003 !
; 1004 ! Get address of table entry for this parameter.
; 1005 ! Return false if cannot find it.
; 1006 !
; 1007
; 1008 return (NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER) neq 0);
; 1009 end; ! End of NML$VALID_PARAMETER
.SBTTL NL.PVL NML$VALID_PARAMETER as NL_PVL
000000 010146 NL.PVL::MOV R1,-(SP) ; 0973
000002 016646 000006 MOV 6(SP),-(SP) ; ENTITY.TYPE,* 1008
000006 016646 000006 MOV 6(SP),-(SP) ; PARAMETER,*
000012 004767 000000V JSR PC,NL.PLU
000016 005001 CLR R1
000020 005700 TST R0
000022 001401 BEQ 1$
000024 005201 INC R1
000026 022626 1$: CMP (SP)+,(SP)+ ; 0973
000030 010100 MOV R1,R0 ; 1001
000032 012601 MOV (SP)+,R1 ; 0973
000034 000207 RTS PC
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 44
X03.26 NML$VALID_PARAMETER as NL_PVL 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (15)
; Routine Size: 15 words, Routine Base: $CODE$ + 0264
; Maximum stack depth per invocation: 4 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 45
X03.26 NML$CLEARABLE as NL_CLR 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (16)
; 1010 %global_routine ('NML$CLEARABLE', ENTITY_TYPE, PARAMETER) =
; 1011
; 1012 !++
; 1013 ! FUNCTIONAL DESCRIPTION:
; 1014 !
; 1015 ! Determines whether a given parameter could be cleared by the user.
; 1016 !
; 1017 ! FORMAL PARAMETERS
; 1018 !
; 1019 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 1020 ! PARAMETER - The parameter type number.
; 1021 !
; 1022 ! IMPLICIT INPUTS
; 1023 !
; 1024 ! NONE.
; 1025 !
; 1026 ! ROUTINE VALUE:
; 1027 !
; 1028 ! TRUE, if this parameter applies to the executor node;
; 1029 ! FALSE, otherwise.
; 1030 !
; 1031 ! SIDE EFFECTS:
; 1032 !
; 1033 ! NONE.
; 1034 !
; 1035 !--
; 1036
; 1037 begin
; 1038
; 1039 local
; 1040 PDB: ref $NML$PVL_DATA_BLOCK,
; 1041 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 1042
; 1043 !
; 1044 ! Get address of table entry for this parameter.
; 1045 ! Return false if cannot find it.
; 1046 !
; 1047
; 1048 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 1049 then return $FALSE;
; 1050
; 1051 !
; 1052 ! Get address of PVL_DATA_BLOCK from lookup table
; 1053 !
; 1054
; 1055 PDB = .ENTRY[PE_ADDRESS];
; 1056
; 1057 return (.PDB[PDB_CLEARABLE]);
; 1058 end; ! End of NML$CLEARABLE
.SBTTL NL.CLR NML$CLEARABLE as NL_CLR
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 46
X03.26 NML$CLEARABLE as NL_CLR 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (16)
000000 016646 000004 NL.CLR::MOV 4(SP),-(SP) ; ENTITY.TYPE,* 1048
000004 016646 000004 MOV 4(SP),-(SP) ; PARAMETER,*
000010 004767 000000V JSR PC,NL.PLU
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
000020 001412 BEQ 1$ ; 1049
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 1055
000026 016046 000002 MOV 2(R0),-(SP) ; *(PDB),* 1037
000032 005000 CLR R0
000034 032726 020000 BIT #20000,(SP)+
000040 001403 BEQ 2$
000042 005200 INC R0
000044 000207 RTS PC
000046 005000 1$: CLR R0 ; 1010
000050 000207 2$: RTS PC
; Routine Size: 21 words, Routine Base: $CODE$ + 0322
; Maximum stack depth per invocation: 3 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 47
X03.26 NML$READ_ONLY as NL_RO 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (17)
; 1059 %global_routine ('NML$READ_ONLY', ENTITY_TYPE, PARAMETER) =
; 1060
; 1061 !++
; 1062 ! FUNCTIONAL DESCRIPTION:
; 1063 !
; 1064 ! Determines whether a given parameter is read-only.
; 1065 !
; 1066 ! FORMAL PARAMETERS
; 1067 !
; 1068 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 1069 ! PARAMETER - The parameter type number.
; 1070 !
; 1071 ! IMPLICIT INPUTS
; 1072 !
; 1073 ! NONE.
; 1074 !
; 1075 ! ROUTINE VALUE:
; 1076 !
; 1077 ! TRUE, if this parameter is read-only;
; 1078 ! FALSE, otherwise.
; 1079 !
; 1080 ! SIDE EFFECTS:
; 1081 !
; 1082 ! NONE.
; 1083 !
; 1084 !--
; 1085
; 1086 begin
; 1087
; 1088 local
; 1089 PDB: ref $NML$PVL_DATA_BLOCK,
; 1090 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 1091
; 1092 !
; 1093 ! Get address of table entry for this parameter.
; 1094 ! Return false if cannot find it.
; 1095 !
; 1096
; 1097 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 1098 then return $FALSE;
; 1099
; 1100 !
; 1101 ! Get address of PVL_DATA_BLOCK from lookup table
; 1102 !
; 1103
; 1104 PDB = .ENTRY[PE_ADDRESS];
; 1105
; 1106 return (.PDB[PDB_READ_ONLY]);
; 1107 end; ! End of NML$CLEARABLE
.SBTTL NL.RO NML$READ_ONLY as NL_RO
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 48
X03.26 NML$READ_ONLY as NL_RO 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (17)
000000 016646 000004 NL.RO:: MOV 4(SP),-(SP) ; ENTITY.TYPE,* 1097
000004 016646 000004 MOV 4(SP),-(SP) ; PARAMETER,*
000010 004767 000000V JSR PC,NL.PLU
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
000020 001412 BEQ 1$ ; 1098
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 1104
000026 116046 000002 MOVB 2(R0),-(SP) ; *(PDB),* 1086
000032 005000 CLR R0
000034 032726 000002 BIT #2,(SP)+
000040 001403 BEQ 2$
000042 005200 INC R0
000044 000207 RTS PC
000046 005000 1$: CLR R0 ; 1059
000050 000207 2$: RTS PC
; Routine Size: 21 words, Routine Base: $CODE$ + 0374
; Maximum stack depth per invocation: 3 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 49
X03.26 NML$VDB_PARAMETER as NL_PVD 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (18)
; 1108 %global_routine ('NML$VDB_PARAMETER', ENTITY_TYPE, PARAMETER) =
; 1109
; 1110 !++
; 1111 ! FUNCTIONAL DESCRIPTION:
; 1112 !
; 1113 ! Determines if a given parameter is maintained as part of the NML
; 1114 ! volatile or permanent data base.
; 1115 !
; 1116 ! FORMAL PARAMETERS
; 1117 !
; 1118 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 1119 ! PARAMETER - The parameter type number.
; 1120 !
; 1121 ! IMPLICIT INPUTS
; 1122 !
; 1123 ! NONE.
; 1124 !
; 1125 ! ROUTINE VALUE:
; 1126 !
; 1127 ! TRUE, if parameter may be written to NML data base;
; 1128 ! FALSE, otherwise.
; 1129 !
; 1130 ! SIDE EFFECTS:
; 1131 !
; 1132 ! NONE.
; 1133 !
; 1134 !--
; 1135
; 1136 begin
; 1137
; 1138 local
; 1139 PDB: ref $NML$PVL_DATA_BLOCK,
; 1140 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 1141
; 1142 !
; 1143 ! Get address of table entry for this parameter.
; 1144 ! Return false if cannot find it.
; 1145 !
; 1146
; 1147 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 1148 then return $FALSE;
; 1149
; 1150 PDB = .ENTRY[PE_ADDRESS];
; 1151
; 1152 return (.PDB[PDB_NML_PARAMETER]);
; 1153 end; ! End of NML$VDB_PARAMETER
.SBTTL NL.PVD NML$VDB_PARAMETER as NL_PVD
000000 016646 000004 NL.PVD::MOV 4(SP),-(SP) ; ENTITY.TYPE,* 1147
000004 016646 000004 MOV 4(SP),-(SP) ; PARAMETER,*
000010 004767 000000V JSR PC,NL.PLU
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 50
X03.26 NML$VDB_PARAMETER as NL_PVD 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (18)
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
000020 001407 BEQ 1$ ; 1148
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 1150
000026 116000 000002 MOVB 2(R0),R0 ; *(PDB),* 1136
000032 042700 177776 BIC #177776,R0
000036 000207 RTS PC
000040 005000 1$: CLR R0 ; 1108
000042 000207 RTS PC
; Routine Size: 18 words, Routine Base: $CODE$ + 0446
; Maximum stack depth per invocation: 3 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 51
X03.26 NML$GET_PDB_DATA_TYPE as NL_PDT 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (19)
; 1154 %global_routine ('NML$GET_PDB_DATA_TYPE', ENTITY_TYPE, PARAMETER) =
; 1155
; 1156 !++
; 1157 ! FUNCTIONAL DESCRIPTION:
; 1158 !
; 1159 ! Returns the data type byte, for parameters maintained by NML
; 1160 ! in its volatile or permanent data base, from the parameter
; 1161 ! definition tables.
; 1162 !
; 1163 ! NOTE: The caller is responsible for ensuring that the
; 1164 ! parameter number passed as argument to this routine be
; 1165 ! a valid parameter for which NML is responsible for maintaining.
; 1166 ! This is done by first calling NML$VDB_PARAMETER.
; 1167 !
; 1168 ! FORMAL PARAMETERS
; 1169 !
; 1170 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 1171 ! PARAMETER - The parameter type number.
; 1172 !
; 1173 ! IMPLICIT INPUTS
; 1174 !
; 1175 ! NONE.
; 1176 !
; 1177 ! ROUTINE VALUE:
; 1178 !
; 1179 ! The data type byte for the specified parameter, as defined in
; 1180 ! the Network Management Architecture specification.
; 1181 !
; 1182 ! SIDE EFFECTS:
; 1183 !
; 1184 ! NONE.
; 1185 !
; 1186 !--
; 1187
; 1188 begin
; 1189
; 1190 local
; 1191 PDB: ref $NML$PVL_DATA_BLOCK,
; 1192 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 1193
; 1194 !
; 1195 ! Get address of table entry for this parameter.
; 1196 ! Return false if cannot find it.
; 1197 !
; 1198
; 1199 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .PARAMETER)) eql 0
; 1200 then return $FALSE;
; 1201
; 1202 PDB = .ENTRY[PE_ADDRESS];
; 1203
; 1204 return (.PDB[PDB_DATA_TYPE]);
; 1205 end; ! End of NML$GET_PDB_DATA_TYPE
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 52
X03.26 NML$GET_PDB_DATA_TYPE as NL_PDT 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (19)
.SBTTL NL.PDT NML$GET_PDB_DATA_TYPE as NL_PDT
000000 016646 000004 NL.PDT::MOV 4(SP),-(SP) ; ENTITY.TYPE,* 1199
000004 016646 000004 MOV 4(SP),-(SP) ; PARAMETER,*
000010 004767 000000V JSR PC,NL.PLU
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
000020 001407 BEQ 1$ ; 1200
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 1202
000026 116000 000001 MOVB 1(R0),R0 ; *(PDB),* 1188
000032 042700 177400 BIC #177400,R0
000036 000207 RTS PC
000040 005000 1$: CLR R0 ; 1154
000042 000207 RTS PC
; Routine Size: 18 words, Routine Base: $CODE$ + 0512
; Maximum stack depth per invocation: 3 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 53
X03.26 NML$PARAMETER_DATA as NL_PDA 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (20)
; 1206 %global_routine ('NML$PARAMETER_DATA', ENTITY_TYPE, NUMBER, NICE, DATA) =
; 1207
; 1208 !++
; 1209 ! FUNCTIONAL DESCRIPTION:
; 1210 !
; 1211 ! Extracts the data value portion of a parameter from a NICE
; 1212 ! request message.
; 1213 !
; 1214 ! FORMAL PARAMETERS
; 1215 !
; 1216 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 1217 ! NUMBER - The parameter type number for this parameter.
; 1218 ! NICE - The address of a pointer into the NICE message. The
; 1219 ! pointer is updated to point to the next available
; 1220 ! byte after the current parameter.
; 1221 ! DATA - The address of a variable to contain the parameter
; 1222 ! data. May be either value or pointer. In some special
; 1223 ! cases, this is the address of a vector, where each
; 1224 ! element of the vector will contain either a value or
; 1225 ! a pointer to an image field for a multiple parameter.
; 1226 !
; 1227 ! IMPLICIT INPUTS
; 1228 !
; 1229 ! NONE.
; 1230 !
; 1231 ! ROUTINE VALUE:
; 1232 !
; 1233 ! The length of the parameter data field in the NICE message.
; 1234 !
; 1235 ! SIDE EFFECTS:
; 1236 !
; 1237 ! The NICE message pointer is updated to point to the next available
; 1238 ! byte after the parameter. The address passed in PRM_DAT is set to
; 1239 ! the value of the parameter data, if a binary value, or a pointer
; 1240 ! the data is an image field.
; 1241 !
; 1242 !--
; 1243
; 1244 begin
; 1245
; 1246 local
; 1247 PDB: ref $NML$PVL_DATA_BLOCK,
; 1248 ENTRY: ref $NML$PVB_ENTRY_BLOCK;
; 1249
; 1250 !
; 1251 ! Get address of table entry for this parameter.
; 1252 ! Return false if cannot find it.
; 1253 !
; 1254
; 1255 if (ENTRY = NML$PARAMETER_LOOKUP (.ENTITY_TYPE, .NUMBER)) eql 0
; 1256 then return $FALSE;
; 1257
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 54
X03.26 NML$PARAMETER_DATA as NL_PDA 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (20)
; 1258 PDB = .ENTRY[PE_ADDRESS];
; 1259
; 1260 !
; 1261 ! Get the data format value,
; 1262 ! if exists, parse and extract the data;
; 1263 ! otherwise, it probably is a special case
; 1264 !
; 1265
; 1266 if .PDB[PDB_DATA_FORMAT] neq 0
; 1267 then return EXTRACT_PARAMETER_DATA (.PDB, .NICE, .DATA)
; 1268 else begin
; 1269 ! Handle special cases... or return zero
; 1270 ! (LOGGING) SINK NODE
; 1271 ! (LOGGING) EVENTS
; 1272 return $FALSE;
; 1273 end;
; 1274 end; ! End of NML$PARAMETER_DATA
.SBTTL NL.PDA NML$PARAMETER_DATA as NL_PDA
000000 016646 000010 NL.PDA::MOV 10(SP),-(SP) ; ENTITY.TYPE,* 1255
000004 016646 000010 MOV 10(SP),-(SP) ; NUMBER,*
000010 004767 000000V JSR PC,NL.PLU
000014 022626 CMP (SP)+,(SP)+
000016 005700 TST R0 ; ENTRY
000020 001416 BEQ 1$ ; 1256
000022 016000 000002 MOV 2(R0),R0 ; *(ENTRY),PDB 1258
000026 105710 TSTB (R0) ; PDB 1266
000030 001412 BEQ 1$
000032 010046 MOV R0,-(SP) ; PDB,* 1267
000034 016646 000006 MOV 6(SP),-(SP) ; NICE,*
000040 016646 000006 MOV 6(SP),-(SP) ; DATA,*
000044 004767 000000V JSR PC,EXTRACT.PARAMETER.DATA
000050 062706 000006 ADD #6,SP
000054 000207 RTS PC ; 1266
000056 005000 1$: CLR R0 ; 1206
000060 000207 RTS PC
; Routine Size: 25 words, Routine Base: $CODE$ + 0556
; Maximum stack depth per invocation: 4 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 55
X03.26 EXTRACT_PARAMETER_DATA 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (21)
; 1275 %routine ('EXTRACT_PARAMETER_DATA', PDB, NICE, DATA) =
; 1276
; 1277 !++
; 1278 ! FUNCTIONAL DESCRIPTION:
; 1279 !
; 1280 ! Extracts data from the NICE message as specified by the format.
; 1281 !
; 1282 ! FORMAL PARAMETERS
; 1283 !
; 1284 ! NICE - The address of a character sequence pointer into
; 1285 ! the data portion of the parameter. The pointer is
; 1286 ! updated to point to the next available byte after
; 1287 ! the current parameter.
; 1288 !
; 1289 ! If the FORMAT is
; 1290 !
; 1291 ! C-1 DATA - The address of the location to contain the extracted
; 1292 ! DU-1,2,4 data value, of 1 to 4 bytes
; 1293 !
; 1294 !
; 1295 ! CM-2 DATA - The address of the location to contain the pointer
; 1296 ! to the data field, which includes 2 2-byte fields.
; 1297 !
; 1298 !
; 1299 ! CM-N DATA - The address of the location to contain the pointer
; 1300 ! to the data field, which includes the count byte and
; 1301 ! either an I-6 image field of the node name or a two
; 1302 ! bytes binary value of the node address.
; 1303 !
; 1304 !
; 1305 ! CM-O DATA - The address of the location to contain the pointer
; 1306 ! to the data field, which includes the count byte and
; 1307 ! either an I-6 image field of the object name or a
; 1308 ! single byte binary value of the object number.
; 1309 !
; 1310 !
; 1311 ! AI, HI DATA - The address of the location to contain the pointer
; 1312 ! to the data field, which includes the count byte and
; 1313 ! the I-n image field of the ASCII string, where n is
; 1314 ! the value of the count byte.
; 1315 !
; 1316 !
; 1317 ! HX-8 DATA - The address of the location to contain the pointer
; 1318 ! to the data field of 8 data bytes.
; 1319 !
; 1320 !
; 1321 ! IMPLICIT INPUTS
; 1322 !
; 1323 ! NONE.
; 1324 !
; 1325 ! ROUTINE VALUE:
; 1326 !
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 56
X03.26 EXTRACT_PARAMETER_DATA 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (21)
; 1327 ! The length of the parameter data.
; 1328 !
; 1329 ! SIDE EFFECTS:
; 1330 !
; 1331 ! NONE.
; 1332 !
; 1333 !--
; 1334
; 1335 begin
; 1336
; 1337 map
; 1338 PDB: ref $NML$PVL_DATA_BLOCK;
; 1339
; 1340 selectone .PDB[PDB_DATA_FORMAT] of
; 1341 set
; 1342 [DU1] : ! (C1) 1 byte field
; 1343 begin
; 1344 .DATA = GETB (.NICE); ! Get the byte value and update pointer
; 1345 return 1; ! We know it's a single byte
; 1346 end;
; 1347
; 1348 [DU2] : ! 2 byte field
; 1349 begin
; 1350 .DATA = GETW (.NICE); ! Get the word value and update pointer
; 1351 return 2; ! We know it's 2 bytes
; 1352 end;
; 1353
; 1354 [DU4] : ! (O4) 4 byte field
; 1355 begin
; L 1356 %if $MCB
; 1357 %then GET32 (.NICE, .DATA); ! Get four bytes and update pointer
; U 1358 %else .DATA = GETN (.NICE,4); ! Get four bytes and update pointer
; 1359 %fi
; 1360 return 4; ! We know it's 4 bytes
; 1361 end;
; 1362
; 1363 [CM2] : ! Coded 2 2-byte field
; 1364 begin
; 1365 .DATA = ..NICE; ! Get pointer to data bytes
; 1366 .NICE = ch$plus (..NICE,4); ! Update pointer
; 1367 return 4; ! We know it's 4 bytes
; 1368 end;
; 1369
; 1370 [CMN, ! Coded node field
; 1371 CMO] : ! Coded object field
; 1372 begin
; 1373 local LEN : $SIGNED_BYTE_VALUE;
; 1374
; 1375 LEN = ch$rchar (..NICE); ! Get format byte
; 1376 .DATA = ..NICE; ! Always return pointer to id
; 1377
; 1378 if .LEN[VALUE] eql 0 ! Node address or Object number
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 57
X03.26 EXTRACT_PARAMETER_DATA 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (21)
; 1379 then LEN = (if .PDB[PDB_DATA_FORMAT] eql CMN then 3 else 2)
; 1380 else begin ! Node name or Object name
; 1381 if .LEN[VALUE] gtr 0
; 1382 then LEN = .LEN + 1 ! Account for I byte
; 1383 else LEN = 1; ! Class of nodes or objects
; 1384 end; ! but is illegal, return format byte
; 1385
; 1386 .NICE = ch$plus (..NICE,.LEN); ! Point to next parameter
; 1387 return .LEN;
; 1388 end;
; 1389
; 1390 [AI, ! ASCII image field
; 1391 HI] : ! Hexadecimal image field
; 1392 begin
; 1393 local LEN;
; 1394
; 1395 LEN = ch$rchar (..NICE) + 1; ! Get length of I-field
; 1396 .DATA = ..NICE; ! Data is pointer to image field
; 1397 .NICE = ch$plus (..NICE,.LEN);
; 1398 return .LEN; ! Length of count byte plus image data
; 1399 end;
; 1400
; 1401 [HX8] : ! Hex 8 byte field
; 1402 begin
; 1403 .DATA = ..NICE; ! Pointer is the data
; 1404 .NICE = ch$plus (..NICE,8); ! Update pointer to next parameter
; 1405 return 8; ! We know it's 8 bytes
; 1406 end;
; 1407
; 1408 [otherwise] : ! Unrecognized parameter format
; L 1409 return $NICE$ERR_UPT;
; %PRINT: Unrecognized parameter type
; 1410 tes;
; 1411
; 1412 end; ! End of EXTRACT
.SBTTL EXTRACT.PARAMETER.DATA EXTRACT_PARAMETER_DATA
000000 004167 000000G EXTRACT.PARAMETER.DATA:
JSR R1,$SAVE3 ; 1275
000004 005746 TST -(SP)
000006 005001 CLR R1 ; 1340
000010 157601 000020 BISB @20(SP),R1 ; PDB,*
000014 020127 000001 CMP R1,#1
000020 001015 BNE 1$
000022 005276 000016 INC @16(SP) ; NICE 1344
000026 017600 000016 MOV @16(SP),R0 ; NICE,*
000032 116076 177777 000014 MOVB -1(R0),@14(SP) ; *,DATA
000040 042776 177400 000014 BIC #177400,@14(SP) ; *,DATA
000046 012700 000001 MOV #1,R0 ; 1335
000052 000565 BR 13$
000054 020127 000002 1$: CMP R1,#2 ; 1340
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 58
X03.26 EXTRACT_PARAMETER_DATA 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (21)
000060 001020 BNE 2$
000062 016602 000016 MOV 16(SP),R2 ; NICE,* 1350
000066 005212 INC (R2)
000070 011200 MOV (R2),R0
000072 116016 177777 MOVB -1(R0),(SP) ; *,$$GETB.X
000076 005212 INC (R2)
000100 011200 MOV (R2),R0
000102 116066 177777 000001 MOVB -1(R0),1(SP) ; *,$$GETB.X
000110 011676 000014 MOV (SP),@14(SP) ; $$GETB.X,DATA
000114 012700 000002 MOV #2,R0 ; 1335
000120 000542 BR 13$
000122 020127 000003 2$: CMP R1,#3 ; 1340
000126 001030 BNE 3$
000130 016603 000014 MOV 14(SP),R3 ; DATA,* 1357
000134 016602 000016 MOV 16(SP),R2 ; NICE,*
000140 005212 INC (R2)
000142 011200 MOV (R2),R0
000144 116013 177777 MOVB -1(R0),(R3)
000150 005212 INC (R2)
000152 011201 MOV (R2),R1
000154 116163 177777 000001 MOVB -1(R1),1(R3)
000162 005212 INC (R2)
000164 011201 MOV (R2),R1
000166 116163 177777 000002 MOVB -1(R1),2(R3)
000174 005212 INC (R2)
000176 011201 MOV (R2),R1
000200 116163 177777 000003 MOVB -1(R1),3(R3)
000206 000411 BR 4$ ; 1335
000210 020127 000004 3$: CMP R1,#4 ; 1340
000214 001011 BNE 5$
000216 017676 000016 000014 MOV @16(SP),@14(SP) ; NICE,DATA 1365
000224 062776 000004 000016 ADD #4,@16(SP) ; *,NICE 1366
000232 012700 000004 4$: MOV #4,R0 ; 1335
000236 000473 BR 13$
000240 020127 000006 5$: CMP R1,#6 ; 1340
000244 002432 BLT 9$
000246 020127 000007 CMP R1,#7
000252 003027 BGT 9$
000254 017602 000016 MOV @16(SP),R2 ; NICE,* 1375
000260 005000 CLR R0 ; LEN
000262 151200 BISB (R2),R0 ; *,LEN
000264 010276 000014 MOV R2,@14(SP) ; *,DATA 1376
000270 105700 TSTB R0 ; LEN 1378
000272 001011 BNE 7$
000274 020127 000006 CMP R1,#6 ; 1379
000300 001003 BNE 6$
000302 012700 000003 MOV #3,R0 ; *,LEN
000306 000426 BR 10$
000310 012700 000002 6$: MOV #2,R0 ; *,LEN
000314 000423 BR 10$ ; 1378
000316 003402 7$: BLE 8$ ; 1381
000320 005200 INC R0 ; LEN 1382
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 59
X03.26 EXTRACT_PARAMETER_DATA 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (21)
000322 000420 BR 10$ ; 1381
000324 012700 000001 8$: MOV #1,R0 ; *,LEN 1383
000330 000415 BR 10$ ; 1386
000332 020127 000011 9$: CMP R1,#11 ; 1340
000336 002415 BLT 11$
000340 020127 000012 CMP R1,#12
000344 003012 BGT 11$
000346 017602 000016 MOV @16(SP),R2 ; NICE,* 1395
000352 005000 CLR R0 ; LEN
000354 151200 BISB (R2),R0 ; *,LEN
000356 005200 INC R0 ; LEN
000360 010276 000014 MOV R2,@14(SP) ; *,DATA 1396
000364 060076 000016 10$: ADD R0,@16(SP) ; LEN,NICE 1397
000370 000416 BR 13$ ; 1335
000372 020127 000013 11$: CMP R1,#13 ; 1340
000376 001011 BNE 12$
000400 017676 000016 000014 MOV @16(SP),@14(SP) ; NICE,DATA 1403
000406 062776 000010 000016 ADD #10,@16(SP) ; *,NICE 1404
000414 012700 000010 MOV #10,R0 ; 1335
000420 000402 BR 13$
000422 012700 177772 12$: MOV #-6,R0
000426 005726 13$: TST (SP)+ ; 1275
000430 000207 RTS PC
; Routine Size: 141 words, Routine Base: $CODE$ + 0640
; Maximum stack depth per invocation: 6 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 60
X03.26 NML$PARAMETER_LOOKUP as NL_PLU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (22)
; 1413 %global_routine ('NML$PARAMETER_LOOKUP', ENTITY_TYPE, PARAMETER) =
; 1414
; 1415 !++
; 1416 ! FUNCTIONAL DESCRIPTION:
; 1417 !
; 1418 ! Searches the appropriate parameter table based on entity type
; 1419 ! number and returns the address of the PEB entry.
; 1420 !
; 1421 ! FORMAL PARAMETERS
; 1422 !
; 1423 ! ENTITY_TYPE - The entity type number to which the parameter applies.
; 1424 ! PARAMETER - The parameter type number.
; 1425 !
; 1426 ! IMPLICIT INPUTS
; 1427 !
; 1428 ! NONE.
; 1429 !
; 1430 ! ROUTINE VALUE:
; 1431 !
; 1432 ! Address of the PEB for this parameter or
; 1433 ! 0 if none.
; 1434 !
; 1435 ! SIDE EFFECTS:
; 1436 !
; 1437 ! NONE.
; 1438 !
; 1439 !--
; 1440
; 1441 begin
; 1442
; 1443 local
; 1444 ADDRESS,
; 1445 COUNT;
; 1446
; 1447 case .ENTITY_TYPE from NODE_E to MODULE_ of
; 1448 set
; 1449 [NODE_E]:
; 1450 begin
; 1451 ADDRESS = NODE_PARAMETER_TABLE;
; 1452 COUNT = $NML$PV_LOOKUP_COUNT ($NML$NODE_PARAMETERS);
; 1453 end;
; 1454
; 1455 [LINE_]:
; 1456 begin
; 1457 ADDRESS = LINE_PARAMETER_TABLE;
; 1458 COUNT = $NML$PV_LOOKUP_COUNT ($NML$LINE_PARAMETERS);
; 1459 end;
; 1460
; 1461 [LOGGING_]:
; 1462 begin
; 1463 ADDRESS = LOGGING_PARAMETER_TABLE;
; 1464 COUNT = $NML$PV_LOOKUP_COUNT ($NML$LOGGING_PARAMETERS);
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 61
X03.26 NML$PARAMETER_LOOKUP as NL_PLU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (22)
; 1465 end;
; 1466
; 1467 [CIRCUIT_]:
; 1468 begin
; 1469 ADDRESS = CIRCUIT_PARAMETER_TABLE;
; 1470 COUNT = $NML$PV_LOOKUP_COUNT ($NML$CIRCUIT_PARAMETERS);
; 1471 end;
; 1472
; 1473 [MODULE_]:
; 1474 begin
; 1475 ADDRESS = MODULE_PARAMETER_TABLE;
; 1476 COUNT = $NML$PV_LOOKUP_COUNT ($NML$MODULE_PARAMETERS);
; 1477 end;
; 1478
; 1479 [inrange,
; 1480 outrange]:
; 1481 return 0;
; 1482 tes;
; 1483
; 1484 return SEARCH_PARAMETER_TABLE (.PARAMETER, .ADDRESS, .COUNT);
; 1485 end; ! End of NML$PARAMETER_LOOKUP
.SBTTL NL.PLU NML$PARAMETER_LOOKUP as NL_PLU
000000 010146 NL.PLU::MOV R1,-(SP) ; 1413
000002 016600 000006 MOV 6(SP),R0 ; ENTITY.TYPE,* 1447
000006 020027 000004 CMP R0,#4
000012 101045 BHI 8$
000014 006300 ASL R0
000016 066007 001210' ADD P.AGG(R0),PC ; Case dispatch
000022 000441 1$: BR 8$ ; 1481
000024 012701 000000' 2$: MOV #NODE.PARAMETER.TABLE,R1 ; *,ADDRESS 1451
000030 012700 000063 MOV #63,R0 ; *,COUNT 1452
000034 000423 BR 7$ ; 1447
000036 012701 000314' 3$: MOV #LINE.PARAMETER.TABLE,R1 ; *,ADDRESS 1457
000042 012700 000033 MOV #33,R0 ; *,COUNT 1458
000046 000416 BR 7$ ; 1447
000050 012701 000470' 4$: MOV #LOGGING.PARAMETER.TABLE,R1 ; *,ADDRESS 1463
000054 012700 000004 MOV #4,R0 ; *,COUNT 1464
000060 000411 BR 7$ ; 1447
000062 012701 000510' 5$: MOV #CIRCUIT.PARAMETER.TABLE,R1 ; *,ADDRESS 1469
000066 012700 000052 MOV #52,R0 ; *,COUNT 1470
000072 000404 BR 7$ ; 1447
000074 012701 000760' 6$: MOV #MODULE.PARAMETER.TABLE,R1 ; *,ADDRESS 1475
000100 012700 000046 MOV #46,R0 ; *,COUNT 1476
000104 016646 000004 7$: MOV 4(SP),-(SP) ; PARAMETER,* 1484
000110 010146 MOV R1,-(SP) ; ADDRESS,*
000112 010046 MOV R0,-(SP) ; COUNT,*
000114 004767 000000V JSR PC,SEARCH.PARAMETER.TABLE
000120 062706 000006 ADD #6,SP ; 1413
000124 000401 BR 9$ ; 1441
000126 005000 8$: CLR R0 ; 1413
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 62
X03.26 NML$PARAMETER_LOOKUP as NL_PLU 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (22)
000130 012601 9$: MOV (SP)+,R1
000132 000207 RTS PC
; Routine Size: 46 words, Routine Base: $CODE$ + 1272
; Maximum stack depth per invocation: 5 words
001210 .PSECT $PLIT$, RO , D
P.AGG: ; CASE Table for NL.PLU+0016 1447
001210 000002 .WORD 2 ; [2$]
001212 000014 .WORD 14 ; [3$]
001214 000026 .WORD 26 ; [4$]
001216 000040 .WORD 40 ; [5$]
001220 000052 .WORD 52 ; [6$]
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 63
X03.26 SEARCH_PARAMETER_TABLE 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (23)
; 1486 %routine ('SEARCH_PARAMETER_TABLE', PARAMETER, ADDRESS, COUNT) =
; 1487
; 1488 !++
; 1489 ! FUNCTIONAL DESCRIPTION:
; 1490 !
; 1491 ! Performs a binary search on a parameter table.
; 1492 !
; 1493 ! FORMAL PARAMETERS
; 1494 !
; 1495 ! PARAMETER - The value of the parameter number to be searched for.
; 1496 ! ADDRESS - The address of a parameter table.
; 1497 ! COUNT - Number of entries in table.
; 1498 !
; 1499 ! IMPLICIT INPUTS
; 1500 !
; 1501 ! NONE.
; 1502 !
; 1503 ! ROUTINE VALUE:
; 1504 !
; 1505 ! NONE.
; 1506 !
; 1507 ! SIDE EFFECTS:
; 1508 !
; 1509 ! NONE.
; 1510 !
; 1511 !--
; 1512
; 1513 begin
; 1514
; 1515 map ! Map parameter vector as one element
; 1516 ADDRESS: ref $NML$PVB_ENTRY_VECTOR (1);
; 1517
; 1518 local
; 1519 LEFT, ! Left boundary
; 1520 RIGHT, ! Right boundary
; 1521 INDEX, ! Index for search
; 1522 CODE; ! Return code
; 1523
; 1524 CODE = 0; ! Set up for failure
; 1525 LEFT = 0; ! Initialize left (lower) bound
; 1526 RIGHT = .COUNT + 1; ! Initialize right (upper) bound
; 1527
; 1528 while (INDEX = (.LEFT+.RIGHT)/2; .INDEX neq .LEFT)
; 1529 do begin ! Set center of bounds and test failure
; 1530 local I; ! Index for parameter table
; 1531
; 1532 I = .INDEX - 1; ! Adjust table index for zero base
; 1533
; 1534 if .PARAMETER eql .ADDRESS[.I,PE_NUMBER]
; 1535 then begin ! Entry found
; 1536 CODE = ADDRESS[.I,0,0,0,0];
; 1537 exitloop;
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 64
X03.26 SEARCH_PARAMETER_TABLE 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (23)
; 1538 end
; 1539 else begin
; 1540 if .PARAMETER lss .ADDRESS[.I,PE_NUMBER]
; 1541 then RIGHT = .INDEX ! Entry is in lower bound
; 1542 else begin
; 1543 if .PARAMETER gtr .ADDRESS[.I,PE_NUMBER]
; 1544 then LEFT = .INDEX ! Entry is in upper bound
; 1545 else return 0;
; 1546 end;
; 1547 end;
; 1548 end;
; 1549
; 1550 return .CODE;
; 1551 end; ! End of SEARCH_PARAMETER_TABLE
.SBTTL SEARCH.PARAMETER.TABLE SEARCH_PARAMETER_TABLE
001426 .PSECT $CODE$, RO
000000 004167 000000G SEARCH.PARAMETER.TABLE:
JSR R1,$SAVE5 ; 1486
000004 005005 CLR R5 ; CODE 1524
000006 005004 CLR R4 ; LEFT 1525
000010 016603 000016 MOV 16(SP),R3 ; COUNT,RIGHT 1526
000014 005203 INC R3 ; RIGHT
000016 016602 000022 MOV 22(SP),R2 ; PARAMETER,* 1534
000022 010301 1$: MOV R3,R1 ; RIGHT,* 1528
000024 060401 ADD R4,R1 ; LEFT,*
000026 006700 SXT R0
000030 071027 000002 DIV #2,R0
000034 020004 CMP R0,R4 ; INDEX,LEFT
000036 001421 BEQ 4$
000040 010001 MOV R0,R1 ; INDEX,I 1532
000042 005301 DEC R1 ; I
000044 006301 ASL R1 ; 1534
000046 006301 ASL R1
000050 066601 000020 ADD 20(SP),R1 ; ADDRESS,*
000054 020211 CMP R2,(R1)
000056 001002 BNE 2$
000060 010105 MOV R1,R5 ; *,CODE 1536
000062 000407 BR 4$ ; 1537
000064 002002 2$: BGE 3$ ; 1540
000066 010003 MOV R0,R3 ; INDEX,RIGHT 1541
000070 000754 BR 1$ ; 1540
000072 020211 3$: CMP R2,(R1) ; 1543
000074 003404 BLE 5$
000076 010004 MOV R0,R4 ; INDEX,LEFT 1544
000100 000750 BR 1$ ; 1543
000102 010500 4$: MOV R5,R0 ; CODE,* 1513
000104 000207 RTS PC
000106 005000 5$: CLR R0 ; 1486
000110 000207 RTS PC
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 65
X03.26 SEARCH_PARAMETER_TABLE 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (23)
; Routine Size: 37 words, Routine Base: $CODE$ + 1426
; Maximum stack depth per invocation: 7 words
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 66
X03.26 SEARCH_PARAMETER_TABLE 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (24)
; 1552 end ! End of Module NMLPRM
; 1553 eludom
; OTS external references
.GLOBL $SAVE5, $SAVE3, $SAVE2
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $PLIT$ 329 RO , D , LCL, REL, CON
; $OWN$ 324 RW , D , LCL, REL, CON
; $CODE$ 432 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; DNET61:<MCB.NML>NMLLIB.L16.2 2718 94 3 0
NMLPRM NMLPRM -- Table Lookup Entity Parameters 24-May-1985 13:24:40 TOPS-20 Bliss-16 2A(530) Page 67
X03.26 SEARCH_PARAMETER_TABLE 4-Dec-1984 12:54:28 DNET61:<MCB.NML>NMLPRM.BLI.1 (25)
; 1554
; 1555 ! Local Modes:
; 1556 ! Mode:BLISS
; 1557 ! Auto Save Mode:2
; 1558 ! Comment Column:40
; 1559 ! Comment Rounding:+1
; 1560 ! End:
; Size: 432 code + 653 data words
; Run Time: 00:41.3
; Elapsed Time: 00:54.9
; Memory Used: 84 pages
; Compilation Complete
ADDRESS 684 696# 702# 708# 714# 720# 734 1444 1451# 1457# 1463# 1469#
1475# 1484 1486 1516 1534# 1536 1540 1543
AI 1390
ALL 301
APPR 477 501 502
CH$ASCIC 479 535
CIRCUIT_ 712 1467
CIRCUIT_CODE_TABLE 582 714
CIRCUIT_PARAMETER_TABLE 576 1469
CM2 1363
CMN 1370 1379
CMO 1371
CNT 516 517 518 529 530 531
COUNT 685 697# 703# 709# 715# 721# 734 1445 1452# 1458# 1464# 1470#
1476# 1484 1486 1526
CTB 683 741# 747 753
DATA 1206 1267 1275 1344# 1350# 1357 1358# 1365# 1376# 1396# 1403#
DU1 1342
DU2 1348
DU4 1354
ENTITY_TYPE 597 636 651 692 756 795 810 849 864 903 918 957
973 1008 1010 1048 1059 1097 1108 1147 1154 1199 1206 1255
1413 1447
ENTRY_LIST 392 393 396 525 526
EXTRACT_PARAMETER_DATA 237 1267
FORM 477 482 483
GET32 1357
GETB 1344
GETN 1358
GETW 1350
HI 1391
HX8 1401
I 1530 1532# 1534 1536 1540 1543
INDEX 1521# 1528# 1532 1541 1544
INFO 477 497 498
LAYER 477 493
LEFT 1519 1525# 1528 1544#
LEN 1373 1375# 1378 1379# 1381 1382# 1383# 1386 1387 1393 1395# 1397
1398
LINE_CODE_TABLE 560 702
LINE_PARAMETER_TABLE 554 1457
LINE_ 700 1455
LOGGING_ 706 1461
LOGGING_CODE_TABLE 571 708
LOGGING_PARAMETER_TABLE 565 1463
MODULE_ 692 718 1447 1473
MODULE_CODE_TABLE 593 720
MODULE_PARAMETER_TABLE 587 1475
NAME 477 479
NICE 1206 1267 1275 1344 1350 1357 1358 1365 1366# 1375 1376 1386#
1395 1396 1397# 1403 1404#
NML$CHARACTERISTIC 231
NML$CLEARABLE 223
NML$CODED_TEXT 227
NML$EXECUTOR_ONLY 232
NML$GET_PDB_DATA_TYPE 234
NML$PARAMETER_DATA 235
NML$PARAMETER_LOOKUP 236 636 795 849 903 957 1008 1048 1097 1147 1199 1255
NML$PARAMETER_TEXT 226
NML$READ_ONLY 224
NML$STATUS 230
NML$SUMMARY 229
NML$VALID_PARAMETER 222
NML$VDB_PARAMETER 233
NMLPRM 168#
NODE_CODE_TABLE 549 696
NODE_E 692 694 1447 1449
NODE_PARAMETER_TABLE 543 1451
NONE 350
NUMBER 1206 1255
PARAMETER 516 517# 529 530# 597 636 651 734 756 795 810 849
864 903 918 957 973 1008 1010 1048 1059 1097 1108 1147
1154 1199 1413 1484 1486 1534 1540 1543
PDB 628 643# 649 787 802# 808 841 856# 862 895 910# 916
949 964# 971 1040 1055# 1057 1089 1104# 1106 1139 1150# 1152
1191 1202# 1204 1247 1258# 1266 1267 1275 1338 1340 1379
PDB_ADJACENT_ONLY 341#
PDB_APPLICABILITY 315# 334
PDB_CHARACTERISTIC 318# 916
PDB_CLEARABLE 324# 1057
PDB_DATA_FORMAT 309# 1266 1340 1379
PDB_DATA_TYPE 310# 1204
PDB_EVENTS 321#
PDB_EXECUTOR_ONLY 336# 971
PDB_NAME 306# 649
PDB_NML_PARAMETER 313# 1152
PDB_OTHER_NODES 337# 340 971
PDB_QUALIFIED 335#
PDB_QUALIFIER 322#
PDB_READ_ONLY 330# 1106
PDB_REMOTE_ONLY 342#
PDB_SETTABILITY 314# 329
PDB_SINK_ONLY 343#
PDB_STATUS 319# 862
PDB_SUMMARY 320# 808
PDB_UPPER_CASE 325#
PDB_WRITE_ONLY 331#
PE_ADDRESS 518 531 643 741 802 856 910 964 1055 1104 1150 1202
1258
PE_NUMBER 517 530 1534 1540 1543
PVL_DATA_BLOCK 303# 389
PVL_DATA_BLOCK_SIZE 348# 388
RESTRICTION 404 405 407 409 413 423 424 426 430 434 438 442
RESTRICTION_LIST 400 401 419 420
RIGHT 1520 1526# 1528 1541#
SEARCH_PARAMETER_TABLE 238 734 1484
SETR 477 505 506
TABLE 529 531 534 535
TYPE 452 453 455 459 463 467 471 477 487 488
TYPE_LIST 448 449
UCASE 477 509 510
VALUE 1378 1381
$$$NML_APPLICABILITY_EXPAND 419# 502
$$$NML_APPLICABILITY 420 423#
$$$NML_INFORMATION 449 452#
$$$NML_INFORMATION_EXPAND 448# 498
$$$NML_SET_EXPAND 400# 506
$$$NML_SET 401 404#
$$NML_CODE_ENTRY 526 529#
$$NML_ENTRY_PARSING 477# 518
$$NML_EXPAND_CODES 531 534#
$$NML_PV_LOOKUP_ENTRY 393 516#
$ALIGN 312 317
$BIT 313 318 319 320 321 322 324 325 330 331 335 336
341 342 343
$BITS 314 315 337
$BYTE 309 310
$CONTINUE 332 338 344
$FALSE 637 735 747 796 850 904 958 1049 1098 1148 1200 1256
1272
$FIELD 303
$FIELD_SET_SIZE 348
$MCB 225 305 478 547 558 569 580 591 596 1356
$NICE$ERR_UPT 1409
$NML$CIRCUIT_CODES 583 584 715
$NML$CIRCUIT_PARAMETERS 577 578 1470
$NML$LINE_CODES 561 562 703
$NML$LINE_PARAMETERS 555 556 1458
$NML$LOGGING_CODES 572 573 709
$NML$LOGGING_PARAMETERS 566 567 1464
$NML$MODULE_CODES 594 595 721
$NML$MODULE_PARAMETERS 588 589 1476
$NML$NODE_CODES 550 551 697
$NML$NODE_PARAMETERS 544 545 1452
$NML$PC_LOOKUP 525# 551 562 573 584 595
$NML$PVB_ENTRY_BLOCK 629# 686 788# 842# 896# 950# 1041# 1090# 1140# 1192# 1248#
$NML$PVB_ENTRY_VECTOR 544 550 555 561 566 572 577 583 588 594 1516
$NML$PVL_DATA_BLOCK 387# 628 787 841 895 949 1040 1089 1139 1191 1247 1338
$NML$PV_LOOKUP 392# 545 556 567 578 589
$NML$PV_LOOKUP_COUNT 396# 544 550 555 561 566 572 577 583 588 594 697
703 709 715 721# 1452 1458 1464 1470 1476
$OVERLAY 329 334 340
$POINTER 306
$SHOW 301 350
$SIGNED_BYTE_VALUE 1373
%BLISS16 406 408 410 414 425 427 431 435 439 443 454 456
460 464 468 472 484 488 491 494 511
%BLISS36 406 408 410 414 425 427 431 435 439 443 454 456
460 464 468 472 484 488 494 511
%GLOBAL_ROUTINE 597# 651# 756# 810# 864# 918# 973# 1010# 1059# 1108# 1154# 1206#
1413#
%REMAINING 518
%ROUTINE 1275# 1486#