Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/nml/nmlevr.lst
There are no other files named nmlevr.lst in the archive.
24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 1
3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (1)
; 0001 ! <BRANDT.DEVELOPMENT>NMLEVR.BLI.1 28-Jul-82 02:53:34, Edit by BRANDT
; 0002 !
; 0003 ! Ident 08.
; 0004 ! Include MODULE entity processing in routine READ_EVENT_REQUESTS.
; 0005 !
; 0006 ! NET:<PECKHAM.DEVELOPMENT>NMLEVR.BLI.4 27-Jun-82 01:35:43, Edit by PECKHAM
; 0007 !
; 0008 ! Ident 07.
; 0009 ! Fix conversion to TOPS20 time. This must mirror the changes in NMLEVT.
; 0010 !
; 0011 ! NET:<PECKHAM.DEVELOPMENT>NMLEVR.BLI.2 22-Apr-82 08:25:12, Edit by PECKHAM
; 0012 !
; 0013 ! Ident 06.
; 0014 ! Change configuration switch naming.
; 0015 !
; 0016 ! NET:<PECKHAM.DEVELOPMENT>NMLEVR.BLI.2 26-Mar-82 08:44:41, Edit by PECKHAM
; 0017 !
; 0018 ! Ident 05.
; 0019 ! Utilize new MCB time block.
; 0020 !
; 0021 ! NET:<PECKHAM.DEVELOPMENT>NMLEVR.BLI.17 23-Mar-82 13:20:05, Edit by PECKHAM
; 0022 !
; 0023 ! Ident 04.
; 0024 ! Use new event queing routines.
; 0025 ! Use configuration switches from NMLCOM.
; 0026 ! Take advantage of fix in NMU$NETWORK_OPEN
; 0027 ! to make response buffer optional.
; 0028 !
; 0029 ! NET:<PECKHAM.DEVELOPMENT>NMLEVR.BLI.3 23-Feb-82 10:22:14, Edit by PECKHAM
; 0030 !
; 0031 ! Ident 03.
; 0032 ! Fix MEMORY_RELEASE length in WAIT_FOR_CONNECT.
; 0033 !
; 0034 module NMLEVR (
; 0035 ident = 'X03.08'
; 0036 ) =
; 0037 begin
; 0038 !
; 0039 ! COPYRIGHT (c) 1980, 1981, 1982
; 0040 ! DIGITAL EQUIPMENT CORPORATION
; 0041 ! Maynard, Massachusetts
; 0042 !
; 0043 ! This software is furnished under a license and may be used
; 0044 ! and copied only in accordance with the terms of such license
; 0045 ! and with the inclusion of the above copyright notice. This
; 0046 ! software or any other copies thereof may not be provided or
; 0047 ! otherwise made available to any other person. No title to
; 0048 ! and ownership of the software is hereby transferred.
; 0049 !
; 0050 ! The information in this software is subject to change
; 0051 ! without notice and should not be construed as a commitment
; 0052 ! by DIGITAL EQUIPMENT CORPORATION.
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 2
X03.08 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (1)
; 0053 !
; 0054 ! DIGITAL assumes no responsibility for the use or reliability
; 0055 ! of its software on equipment which is not supplied by
; 0056 ! DIGITAL.
; 0057 !
; 0058
; 0059 !++
; 0060 ! FACILITY: DECnet-10/20 V3.0 Network Management Layer (NML)
; 0061 !
; 0062 ! ABSTRACT:
; 0063 !
; 0064 ! This module performs the NML Event receiving function.
; 0065 !
; 0066 ! ENVIRONMENT: TOPS-10/20 & MCB/RSX11 User mode under NML
; 0067 !
; 0068 ! AUTHOR: Scott G. Robinson , CREATION DATE: 20-Mar-81
; 0069 ! from NMLRCV by Dale C. Gunn
; 0070 !
; 0071 ! MODIFIED BY:
; 0072 !
; 0073 ! , : VERSION
; 0074 ! 3.01 L. Webber, 20-Oct-81
; 0075 ! Fixed call to NETWORK_OPEN to pass a response pointer and length;
; 0076 ! put in error handling for NETWORK_OPEN and MEMORY_GET.
; 0077 !
; 0078 ! 3.02 L. Webber, 20-Nov-81
; 0079 ! Fixed 3.01 so that addresses not pointers are used in memory gets
; 0080 ! and retrieves.
; 0081 !
; 0082 ! 3.03 S. Thigpen, 06-Jan-82
; 0083 ! Fixed dot bug in WAIT_FOR_CONNECT's call to NMU$MEMORY_RELEASE.
; 0084 !--
; 0085
; 0086 !
; 0087 ! INCLUDE FILES:
; 0088 !
; 0089
; 0090 library 'NMLLIB'; ! All required definitions
; 0091
; 0092 require 'NMLEXT'; ! NML External routines
; 0198
; 0199 !
; 0200 ! TABLE OF CONTENTS
; 0201 !
; 0202
; 0203 forward routine
; 0204 NML$EVENT_RECEIVER : novalue;
; 0205
; 0206 forward routine
; 0207 WAIT_FOR_CONNECT, ! Wait for connection to target task
; 0208 READ_EVENT_REQUESTS : novalue; ! Read Event Logging Messages
; 0209
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 3
X03.08 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (1)
; 0210 !
; 0211 ! MACROS:
; 0212 !
; 0213 !
; 0214 ! EQUATED SYMBOLS:
; 0215 !
; 0216
; 0217 literal
; 0218 BUFFER_LENGTH = 300, ! Buffer length in bytes
; 0219 BUFFER_SIZE = ch$allocation (BUFFER_LENGTH, 8), ! In words
; 0220 BUFFER_ALLOCATION = BUFFER_SIZE*%upval; ! In addr units
; 0221
; 0222 !
; 0223 ! OWN STORAGE:
; 0224 !
; 0225 !
; 0226 ! EXTERNAL REFERENCES:
; 0227 !
; 0228
; 0229 external routine
; 0230 NML$EVENT_MANAGER,
; 0231 NMU$NETWORK_UTILITIES;
; 0232
; 0233 external
; 0234 NMLVER, ! Network Managment version number
; 0235 DECECO, ! Digital ECO number
; 0236 USRECO; ! User ECO number
; 0237
; 0238 !<BLF/SYNONYM %unquote =>
; 0239
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 4
X03.08 NML$EVENT_RECEIVER as EV_RCV 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (2)
; 0240 %global_routine ('NML$EVENT_RECEIVER', TASK, RESOURCE) : novalue =
; 0241
; 0242 !++
; 0243 ! FUNCTIONAL DESCRIPTION:
; 0244 !
; 0245 ! This routine is the top level of the Network Management
; 0246 ! Event receiver. The receiver is responsible for
; 0247 ! accepting connections from remote NMLs, verifying their
; 0248 ! privilege to perform logging functions based on access control
; 0249 ! information provided with the connection.
; 0250 !
; 0251 ! FORMAL PARAMETERS
; 0252 !
; 0253 ! TASK - Address of task block for this task
; 0254 ! RESOURCE - Address of cell for this task to use as
; 0255 ! a resource variable.
; 0256 !
; 0257 ! IMPLICIT INPUTS
; 0258 !
; 0259 ! NONE.
; 0260 !
; 0261 ! ROUTINE VALUE:
; 0262 !
; 0263 ! NONE.
; 0264 !
; 0265 ! SIDE EFFECTS:
; 0266 !
; 0267 ! NONE.
; 0268 !
; 0269 !--
; 0270
; 0271 begin
; L 0272 %if NML$CFG_LOGGING_RECEIVER
; U 0273 %then
; U 0274
; U 0275 local
; U 0276 BUFFER_PTR; ! General I/O buffer pointer
; U 0277
; U 0278 BUFFER_PTR = ch$ptr (NMU$MEMORY_GET (BUFFER_ALLOCATION),, 8);
; U 0279
; U 0280 !
; U 0281 ! Loop forever, wait for link connected, read requests until disconnected.
; U 0282 !
; U 0283
; U 0284 while $true do
; U 0285 begin
; U 0286 !
; U 0287 ! Put our Network Management version number into the buffer
; U 0288 ! to send as the optional data on a link connect acceptance.
; U 0289 !
; U 0290 begin
; U 0291
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 5
X03.08 NML$EVENT_RECEIVER as EV_RCV 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (2)
; U 0292 local
; U 0293 PTR;
; U 0294
; U 0295 PTR = .BUFFER_PTR; ! Point to connect accept buffer
; U 0296 PUTB (.NMLVER, PTR); ! Store NM major version
; U 0297 PUTB (.DECECO, PTR); ! Store our minor (ECO) version
; U 0298 PUTB (.USRECO, PTR); ! Store customer ECO number
; U 0299 end;
; U 0300 begin
; U 0301
; U 0302 local
; U 0303 LINK_ID; ! Open logical link identifier
; U 0304
; U 0305 LINK_ID = WAIT_FOR_CONNECT (EVENT_OBJECT, 3, .BUFFER_PTR);
; U 0306 READ_EVENT_REQUESTS (.LINK_ID, .BUFFER_PTR, BUFFER_LENGTH);
; U 0307 NMU$NETWORK_CLOSE (.LINK_ID, 0, 0);
; U 0308 end;
; U 0309 end;
; U 0310
; 0311 %else
; 0312 0 ! To avoid empty compound expression
; 0313 %fi
; 0314 end; ! End of NML$RECEIVE_EVENT
.TITLE NMLEVR
.IDENT /X03.08/
.GLOBL US.CREATE, US.ABORT, US.FINI, US.COMPLETE
.GLOBL US.ERROR, US.INSERT, US.REMOVE
.GLOBL US.QRESET, US.QQINS, US.QQREM
.GLOBL US.QQSET, US.QQEXT, US.EVENT, US.WAIT
.GLOBL US.FLAG, US.SLEEP, US.CURRENT
.GLOBL US.DESCHEDULE, UM.RESET, UM.INITIALIZE
.GLOBL UM.GET, UM.RELEASE, UQ.RESET, UQ.INSERT
.GLOBL UQ.REMOVE, UQ.EXTRACT, UQ.LENGTH
.GLOBL UQ.SCAN, UQ.SEXTRACT, NL.INIT
.GLOBL NL.RENTER, NL.REMOVE, NL.FINISH
.GLOBL EV.DEC, EQ.RES, EQ.INS, EQ.REM
.GLOBL EV.INI, EV.PRO, EV.REC, EV.GET
.GLOBL UN.INIT, UN.LOCAL, UN.OPEN, UN.ACCEPT
.GLOBL UN.REJECT, UN.READ, UN.WRITE, UN.ABORT
.GLOBL UN.CLOSE, UN.STATUS, UN.VALIDATE
.GLOBL NMLVER, DECECO, USRECO
.SBTTL EV.RCV NML$EVENT_RECEIVER as EV_RCV
000000 .PSECT $CODE$, RO
000000 000207 EV.RCV::RTS PC ; 0240
; Routine Size: 1 word, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 0 words
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 6
X03.08 NML$EVENT_RECEIVER as EV_RCV 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (2)
; 0315
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 7
X03.08 WAIT_FOR_CONNECT 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (3)
; 0316 %routine ('WAIT_FOR_CONNECT', OBJECT, DATA_LEN, DATA_PTR) =
; 0317
; 0318 !++
; 0319 ! FUNCTIONAL DESCRIPTION:
; 0320 !
; 0321 ! This routine opens a target link for connection by
; 0322 ! another task. When a connect is attempted the user
; 0323 ! access rights are checked and the source task's version
; 0324 ! number is checked. If all checks are ok, then the
; 0325 ! link is accepted (sending the optional acceptance data)
; 0326 ! and the LINK_ID is returned. If any check fails,
; 0327 ! a reject is sent with the appropriate error code.
; 0328 !
; 0329 ! FORMAL PARAMETERS
; 0330 !
; 0331 ! OBJECT - DECnet object code
; 0332 ! DATA_LEN - Number of bytes in optional accept data
; 0333 ! DATA_PTR - Pointer to optional acceptance data
; 0334 !
; 0335 ! IMPLICIT INPUTS
; 0336 !
; 0337 ! NONE.
; 0338 !
; 0339 ! ROUTINE VALUE:
; 0340 !
; 0341 ! The LINK_ID of the opened link.
; 0342 !
; 0343 ! SIDE EFFECTS:
; 0344 !
; 0345 ! NONE.
; 0346 !
; 0347 !--
; 0348
; 0349 begin
; L 0350 %if NML$CFG_LOGGING_RECEIVER
; U 0351 %then
; U 0352
; U 0353 local
; U 0354 LINK_HANDLE, ! Handle of link
; U 0355 CBLK : CONNECT_BLOCK, ! Link connection block
; U 0356 CONNECTED, ! Boolean indicating connect success
; U 0357 REASON; ! Link rejection reason
; U 0358
; U 0359 !
; U 0360 ! Initially link is not connected
; U 0361 !
; U 0362 CONNECTED = $false;
; U 0363 !
; U 0364 ! Set the object code and clear the task name and descriptor.
; U 0365 !
; U 0366 CBLK [CB_OBJECT] = .OBJECT;
; U 0367 CBLK [CB_TASK_LENGTH] = 0;
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 8
X03.08 WAIT_FOR_CONNECT 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (3)
; U 0368 CBLK [CB_DESCRIPTOR_LENGTH] = 0;
; U 0369 !
; U 0370 ! Loop until the link is connected
; U 0371 !
; U 0372
; U 0373 while not .CONNECTED do
; U 0374 begin
; U 0375 !
; U 0376 ! Wait for a connect to this target task
; U 0377 !
; U 0378 if (LINK_HANDLE = NMU$NETWORK_OPEN (TARGET_LINK, CBLK, 0, 0, 0)) geq 0
; U 0379 then
; U 0380 !
; U 0381 ! Accept the Connection
; U 0382 !
; U 0383 if not (CONNECTED = NMU$NETWORK_ACCEPT (.LINK_HANDLE,
; U 0384 .DATA_LEN,.DATA_PTR))
; U 0385 then
; U 0386 NMU$NETWORK_CLOSE (.LINK_HANDLE, 0, 0);
; U 0387
; U 0388 end;
; U 0389
; U 0390 !
; U 0391 ! Return handle (id) of link that was opened and accepted.
; U 0392 !
; U 0393 return .LINK_HANDLE
; 0394 %else
; 0395 0 ! To avoid empty compound expression
; 0396 %fi
; 0397 end; ! End of WAIT_FOR_CONNECT
.SBTTL WAIT.FOR.CONNECT WAIT_FOR_CONNECT
000000 005000 WAIT.FOR.CONNECT:
CLR R0 ; 0316
000002 000207 RTS PC
; Routine Size: 2 words, Routine Base: $CODE$ + 0002
; Maximum stack depth per invocation: 0 words
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 9
X03.08 READ_EVENT_REQUESTS 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (4)
; 0398 %routine ('READ_EVENT_REQUESTS', LINK_ID, BUF_PTR, BUF_LEN) : novalue =
; 0399
; 0400 !++
; 0401 ! FUNCTIONAL DESCRIPTION:
; 0402 !
; 0403 ! This routine performs the Event receiver function on
; 0404 ! a logical link that has already been opened. The looping
; 0405 ! continues until the task at the other end of the link closes
; 0406 ! it (or some other nefarious glitch takes it down).
; 0407 !
; 0408 ! FORMAL PARAMETERS
; 0409 !
; 0410 ! LINK_ID - Identifier for logical link to do looping on
; 0411 !
; 0412 ! IMPLICIT INPUTS
; 0413 !
; 0414 ! NONE.
; 0415 !
; 0416 ! ROUTINE VALUE:
; 0417 !
; 0418 ! NONE.
; 0419 !
; 0420 ! SIDE EFFECTS:
; 0421 !
; 0422 ! NONE.
; 0423 !
; 0424 !--
; 0425
; 0426 begin
; L 0427 %if NML$CFG_LOGGING_RECEIVER
; U 0428 %then
; U 0429
; U 0430 local
; U 0431 REB : RAW_EVENT_BLOCK,
; U 0432 TB : TIME_BLOCK;
; U 0433
; U 0434 REB [REB_TIME_BLOCK] = TB;
; U 0435 !
; U 0436 ! Loop through reading EVENT requests as long as link stays up.
; U 0437 !
; U 0438
; U 0439 while $true do
; U 0440 begin
; U 0441
; U 0442 local
; U 0443 BYTE_COUNT; ! Received EVENT request message length
; U 0444
; U 0445 !
; U 0446 ! Check if we received a message, or read completed for some
; U 0447 ! other reason. (Maybe the link was disconnected.)
; U 0448 !
; U 0449
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 10
X03.08 READ_EVENT_REQUESTS 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (4)
; U 0450 if (BYTE_COUNT = NMU$NETWORK_READ (.LINK_ID, .BUF_LEN, .BUF_PTR)) leq 0
; U 0451 then exitloop;
; U 0452
; U 0453 !
; U 0454 ! Put the EVENT on the queue to be processed.
; U 0455 !
; U 0456
; U 0457 begin
; U 0458
; U 0459 local
; U 0460 PTR;
; U 0461
; U 0462 PTR = ch$plus (.BUF_PTR, 1);
; U 0463 REB [REB_SINK_FLAGS] = ch$rchar_a (PTR);
; U 0464 REB [REB_EVENT_CODE] = GETW (PTR);
; U 0465 %if $MCB
; U 0466 %then
; U 0467 begin ! Get EVENT_TIME
; U 0468 TB [TIME_JULIAN] = GETW (PTR);
; U 0469 TB [TIME_SECOND] = GETW (PTR);
; U 0470 TB [TIME_MILLISECOND] = GETW (PTR);
; U 0471 end;
; U 0472 %else
; U 0473 %if $TOPS20
; U 0474 %then
; U 0475 begin
; U 0476 local JULIAN, SECONDS;
; U 0477 DECLARE_JSYS (IDCNV, ODCNV);
; U 0478 JULIAN = GETW (PTR);
; U 0479 SECONDS = GETW (PTR);
; U 0480 PTR = ch$plus (.PTR, 2);
; U 0481
; U 0482 if .JULIAN <0, 1> neq 0 ! Make
; U 0483 then ! odd
; U 0484 begin ! half-days
; U 0485 JULIAN = .JULIAN - 1; ! even.
; U 0486 SECONDS = .SECONDS + 12*60*60;
; U 0487 end;
; U 0488
; U 0489 begin
; U 0490 local BASE, MONTH;
; U 0491 $$IDCNV (1977^18 + 0, 0^18, 0;,BASE); ! Get 1-JAN-77
; U 0492 BASE = .BASE + .JULIAN^17; ! add in days to now
; U 0493 $$ODCNV (.BASE, 0; BASE, MONTH); ! convert to year/julian
; U 0494 $$IDCNV (.BASE, .MONTH, .SECONDS;,TB); ! put seconds in
; U 0495 end;
; U 0496 end;
; U 0497 %else
; U 0498 %info ('Not prepared to handle time for TOPS10')
; U 0499 PTR = ch$plus (.PTR, 6);
; U 0500 %fi
; U 0501 %fi
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 11
X03.08 READ_EVENT_REQUESTS 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (4)
; U 0502 REB [REB_SOURCE_POINTER] = .PTR;
; U 0503 PTR = ch$plus (.PTR, 2);
; U 0504 PTR = ch$plus (.PTR, ch$rchar_a (PTR));
; U 0505 REB [REB_ENTITY_TYPE] = GETW (PTR);
; U 0506 REB [REB_ENTITY_POINTER] = .PTR;
; U 0507
; U 0508 selectone .REB [REB_ENTITY_TYPE] of
; U 0509 set
; U 0510 [NODE_E] :
; U 0511 begin
; U 0512 PTR = ch$plus (.PTR, 2);
; U 0513 PTR = ch$plus (.PTR, ch$rchar_a (PTR));
; U 0514 end;
; U 0515 [CIRCUIT_, LINE_, MODULE_] :
; U 0516 PTR = ch$plus (.PTR, ch$rchar_a (PTR));
; U 0517 [LOGGING_] :
; U 0518 PTR = ch$plus (.PTR, 1);
; U 0519 tes;
; U 0520
; U 0521 REB [REB_DATA_POINTER] = .PTR;
; U 0522 REB [REB_DATA_LENGTH] = .BYTE_COUNT - ch$diff (.PTR, ch$plus (.BUF_PTR, 1));
; U 0523 end;
; U 0524 NML$EVENT_RECORDER (REB);
; U 0525 end;
; U 0526
; 0527 %else
; 0528 0 ! To avoid empty compound expression
; 0529 %fi
; 0530 end; ! End of READ_EVENT_REQUESTS
.SBTTL READ.EVENT.REQUESTS READ_EVENT_REQUESTS
000000 000207 READ.EVENT.REQUESTS:
RTS PC ; 0398
; Routine Size: 1 word, Routine Base: $CODE$ + 0006
; Maximum stack depth per invocation: 0 words
; 0531 end ! End of Module NMLEVR
; 0532
; 0533 eludom
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 4 RO , I , LCL, REL, CON
NMLEVR 24-May-1985 13:26:31 TOPS-20 Bliss-16 2A(530) Page 12
X03.08 READ_EVENT_REQUESTS 3-Jan-1983 01:19:18 DNET61:<MCB.NML>NMLEVR.BLI.1 (4)
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; DNET61:<MCB.NML>NMLLIB.L16.2 2718 67 2 0
; 0534 ! Local Modes:
; 0535 ! Mode:BLISS
; 0536 ! Auto Save Mode:2
; 0537 ! Comment Column:40
; 0538 ! Comment Rounding:+1
; 0539 ! End:
; Size: 4 code + 0 data words
; Run Time: 00:02.6
; Elapsed Time: 00:05.7
; Memory Used: 28 pages
; Compilation Complete
BASE 490 491 492# 493 494
BUFFER_ALLOCATION 220# 278
BUFFER_LENGTH 218# 219 306
BUFFER_PTR 276 278# 295 305 306
BUFFER_SIZE 219# 220
BUF_LEN 398 450
BUF_PTR 398 450 462 522
BYTE_COUNT 443 450# 522
CBLK 355 366# 367# 368# 378
CB_DESCRIPTOR_LENGTH 368
CB_OBJECT 366
CB_TASK_LENGTH 367
CIRCUIT_ 515
CONNECTED 356 362# 373 383#
CONNECT_BLOCK 355
DATA_LEN 316 384
DATA_PTR 316 384
DECECO 235 297
DECLARE_JSYS 477
DUMMY 172+ 174+ 175+
EVENT_OBJECT 305
GETW 464 468 469 470 478 479 505
IDCNV 477
JULIAN 476 478# 482 485# 492
LINE_ 515
LINK_HANDLE 354 378# 383 386 393
LINK_ID 303 305# 306 307 398 450
LOGGING_ 517
MODULE_ 515
MONTH 490 493 494
NML$CFG_LOGGING_RECEIVER 272 350 427
NML$EVENT_MANAGER 230*
NML$EVENT_RECEIVER 204
NML$EVENT_RECORDER 524
NML$REQUEST_MANAGER 188+
NMLEVR 34#
NMLVER 234 296
NMU$MEMORY_GET 278
NMU$MEMORY_MANAGER 186+
NMU$NETWORK_ACCEPT 383
NMU$NETWORK_CLOSE 307 386
NMU$NETWORK_OPEN 378
NMU$NETWORK_READ 450
NMU$NETWORK_UTILITIES 231
NMU$QUEUE_MANAGER 187+
NMU$SCHED_MANAGER 185+*
NODE_E 510
ODCNV 477
PTR 293 295# 296 297 298 460 462# 463 464 468 469 470
478 479 480# 499# 502 503# 504# 505 506 512# 513# 516#
518# 521 522
PUTB 296 297 298
RAW_EVENT_BLOCK 431
READ_EVENT_REQUESTS 208 306
REASON 357
REB 431 434# 463# 464# 502# 505# 506# 508 521# 522# 524
REB_DATA_LENGTH 522
REB_DATA_POINTER 521
REB_ENTITY_POINTER 506
REB_ENTITY_TYPE 505 508
REB_EVENT_CODE 464
REB_SINK_FLAGS 463
REB_SOURCE_POINTER 502
REB_TIME_BLOCK 434
RESOURCE 240
SECONDS 476 479# 486# 494
TARGET_LINK 378
TASK 240
TASK_INFO 160+
TB 432 434 468# 469# 470# 494
TIME_BLOCK 432
TIME_JULIAN 468
TIME_MILLISECOND 470
TIME_SECOND 469
USRECO 236 298
WAIT_FOR_CONNECT 207 305
$$IDCNV 491 494
$$ODCNV 493
$FALSE 161+ 362
$INCOMPLETE$ 172+#
$INTERNAL_ERROR$ 157+#
$MCB 465
$NICE$ERR_OPF 177+
$TOPS20 473
$TRUE 284 439
%GLOBAL_ROUTINE 240#
%INFO 498
%REMAINING 160+
%ROUTINE 316# 398#