Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/mcb/nmxlib.lst
There are no other files named nmxlib.lst in the archive.
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (1)
; 0001 ! COPYRIGHT (c) 1980, 1981, 1982
; 0002 ! DIGITAL EQUIPMENT CORPORATION
; 0003 ! Maynard, Massachusetts
; 0004 !
; 0005 ! This software is furnished under a license and may be used
; 0006 ! and copied only in accordance with the terms of such license
; 0007 ! and with the inclusion of the above copyright notice. This
; 0008 ! software or any other copies thereof may not be provided or
; 0009 ! otherwise made available to any other person. No title to
; 0010 ! and ownership of the software is hereby transferred.
; 0011 !
; 0012 ! The information in this software is subject to change
; 0013 ! without notice and should not be construed as a commitment
; 0014 ! by DIGITAL EQUIPMENT CORPORATION.
; 0015 !
; 0016 ! DIGITAL assumes no responsibility for the use or reliability
; 0017 ! of its software on equipment which is not supplied by
; 0018 ! DIGITAL.
; 0019
; 0020 !+
; 0021 ! NMX Library File
; 0022 !-
; 0023 %if not %declared (XPO$K_VERSION) %then library 'MCB:XPORTX' %fi;
; 0024 %if not %declared (MCB$K_VERSION) %then library 'MCB:MCBLIB' %fi;
; 0025 require 'MCB:NMLIB';
; 0307 $show (all)
; 0308
; 0309 literal
; 0310 NMX$K_VERSION = 1,
; 0311 NMX$K_LEVEL = 0,
; 0312 NMX$K_EDIT = 3;
; 0313
; 0314 !+
; 0315 ! Field mapping for NMX usage of CCB
; 0316 !-
; 0317 $field NM_FIELDS =
; 0318 set
; 0319 $overlay (C_PRM1)
; L 0320 C_NM_QUAL = [$bit], ! Qualifier bit
; %PRINT: [10,0,1,0] (+%O'24')
; L 0321 C_NM_FUNC = [$bits (7)], ! Function code
; %PRINT: [10,1,7,0] (+%O'24')
; L 0322 C_NM_ENTITY = [$bits (4)], ! Entity identifier
; %PRINT: [10,8,4,0] (+%O'25')
; L 0323 C_NM_SELECT = [$bits (4)], ! Operation selector
; %PRINT: [10,12,4,0] (+%O'25')
; 0324 $continue
; 0325 $overlay (C_PRM2)
; L 0326 C_NM_NMPAR = [$pointer] ! Parameter block pointer
; %PRINT: [11,0,16,0] (+%O'26')
; 0327 $continue
; 0328 tes;
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 2
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (1)
; 0329
; 0330 macro
; 0331 C_NM_FIELDS = C_FIELDS, NM_FIELDS %;
; 0332
; 0333
; 0334
; 0335 $field
; 0336 NMX_NMPAR_FIELDS =
; 0337 set
; L 0338 NMX_NMPAR_AX0_BIAS = [$address], ! Qualifier bias
; %PRINT: [0,0,16,0] (+%O'0')
; L 0339 NMX_NMPAR_AX0_ADDR = [$address], ! Qualifier address
; %PRINT: [1,0,16,0] (+%O'2')
; L 0340 NMX_NMPAR_ENTITY = [$sub_block (0)], ! Start of Entity Id
; %PRINT: [2,0,0,0] (+%O'4')
; 0341 $overlay (NMX_NMPAR_ENTITY) ! Node
; L 0342 NMX_NMPAR_NODE_ADDRESS = [$bytes (2)],
; %PRINT: [2,0,16,0] (+%O'4')
; L 0343 NMX_NMPAR_NODE_NAME_LENGTH = [$byte],
; %PRINT: [3,0,8,0] (+%O'6')
; L 0344 NMX_NMPAR_NODE_NAME = [$byte_string (6)],
; %PRINT: [3,8,0,0] (+%O'7')
; 0345 $continue
; 0346 $overlay (NMX_NMPAR_ENTITY) ! Line, Circuit, Module
; L 0347 NMX_NMPAR_OTHER_LENGTH = [$byte],
; %PRINT: [2,0,8,0] (+%O'4')
; L 0348 NMX_NMPAR_OTHER_ITSELF = [$byte_string (16)],
; %PRINT: [2,8,0,0] (+%O'5')
; 0349 $continue
; 0350 $overlay (NMX_NMPAR_ENTITY) ! For RETURN function:
; L 0351 NMX_NMPAR_RETURN_CNT = [$integer] ! Bytes already in buffer
; %PRINT: [2,0,16,1] (+%O'4')
; 0352 $continue
; 0353 $align (fullword)
; 0354 tes;
; 0355
; 0356 literal
; 0357 NMX_NMPAR_HDR_LEN = %fieldexpand (NMX_NMPAR_ENTITY, 0), ! Length in words
; L 0358 NMX_NMPAR_LEN = $field_set_size, ! Length in words
; %PRINT: 11 fullwords
; L 0359 NMX_NMPAR_LENGTH = $field_set_units; ! Length in bytes
; %PRINT: 22 addressable units
; 0360
; 0361
; 0362 $field
; 0363 NODE_ENTITY_ID =
; 0364 set
; L 0365 NODE_ADDRESS = [$bytes (2)],
; %PRINT: [0,0,16,0] (+%O'0')
; L 0366 NAME_LENGTH = [$byte],
; %PRINT: [1,0,8,0] (+%O'2')
; L 0367 NAME_ITSELF = [$byte_string (6)]
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 3
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (1)
; %PRINT: [1,8,0,0] (+%O'3')
; 0368 tes;
; 0369 literal
; L 0370 NODE_ENTITY_LEN = $field_set_size; ! Length in words
; %PRINT: 5 fullwords
; 0371
; 0372 $field
; 0373 OTHER_ENTITY_ID =
; 0374 set
; L 0375 OTHER_LENGTH = [$byte],
; %PRINT: [0,0,8,0] (+%O'0')
; L 0376 OTHER_ITSELF = [$byte_string (16)]
; %PRINT: [0,8,0,0] (+%O'1')
; 0377 tes;
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 4
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (2)
; 0378 !+
; 0379 ! Operational Code Definitions
; 0380 !-
; 0381 $literal
; 0382 NMX$FNC_set = 1, ! Set parameter
; 0383 NMX$FNC_clr = 2, ! Clear parameter
; 0384 NMX$FNC_zro = 3, ! Zero counter(s)
; 0385 NMX$FNC_sho = 4, ! Show selected items
; 0386 NMX$FNC_szc = 5, ! Show and zero counter(s)
; 0387 NMX$FNC_ret = 6, ! Return selected items
; 0388
; 0389 NMX$FNC_lo = min (NMX$FNC_set, NMX$FNC_clr, NMX$FNC_zro, NMX$FNC_sho, NMX$FNC_szc, NMX$FNC_ret),
; 0390 NMX$FNC_hi = max (NMX$FNC_set, NMX$FNC_clr, NMX$FNC_zro, NMX$FNC_sho, NMX$FNC_szc, NMX$FNC_ret);
; 0391
; 0392 $literal
; 0393 NMX$ENT_nod = 1, ! Node entity
; 0394 NMX$ENT_lin = 2, ! Line Entity
; 0395 NMX$ENT_log = 3, ! Logging Entity
; 0396 NMX$ENT_ckt = 4, ! Circuit entity
; 0397 NMX$ENT_mod = 5, ! Module entity
; 0398
; 0399 NMX$ENT_lo = min (NMX$ENT_nod, NMX$ENT_lin, NMX$ENT_log, NMX$ENT_ckt, NMX$ENT_mod),
; 0400 NMX$ENT_hi = max (NMX$ENT_nod, NMX$ENT_lin, NMX$ENT_log, NMX$ENT_ckt, NMX$ENT_mod);
; 0401
; 0402 $literal
; 0403 NMX$SEL_kno = 1, ! Known
; 0404 NMX$SEL_act = 2, ! Active
; 0405 NMX$SEL_lop = 3, ! Loop
; 0406 NMX$SEL_sum = 1, ! Summary
; 0407 NMX$SEL_sta = 2, ! Status
; 0408 NMX$SEL_cha = 3, ! Characteristics
; 0409 NMX$SEL_cou = 4, ! Counters
; 0410
; 0411 NMX$SEL_lo = min (NMX$SEL_kno, NMX$SEL_act, NMX$SEL_lop,
; 0412 NMX$SEL_sum, NMX$SEL_sta, NMX$SEL_cha, NMX$SEL_cou),
; 0413 NMX$SEL_hi = max (NMX$SEL_kno, NMX$SEL_act, NMX$SEL_lop,
; 0414 NMX$SEL_sum, NMX$SEL_sta, NMX$SEL_cha, NMX$SEL_cou);
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 5
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (3)
; 0415 !+
; 0416 ! Define NICE data type codes (for autoparsing data)
; 0417 !-
; 0418
; 0419 literal
; 0420 $C$ = %o'200', ! Coded single field (add length)
; 0421 $CM$ = %o'300', ! Coded multiple field (add number)
; 0422 $AI$ = %o'100', ! ASCII image
; 0423 $DU$ = %o'000', ! Decimal unsigned (add length, or 0 for image)
; 0424 $DS$ = %o'020', ! Decimal signed (add length, or 0 for image)
; 0425 $H$ = %o'040', ! Hexadecimal (add length, or 0 for image)
; 0426 $O$ = %o'060'; ! Octal (add length, or 0 for image)
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 6
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (4)
; 0427 !+
; 0428 ! Define NICE return codes/values/text-strings
; 0429 !-
; 0430 compiletime
; 0431 %temp=0;
; 0432 literal
; 0433 NM$SUC = 1; ! SUC, 1, 'Function Completed Successfully'
; 0434
; 0435 macro ! This macro defines the set of error codes
; M 0436 $NM$NICE_ERRORS =
; M 0437 UFO, -1, 'Unrecognized function or option',
; M 0438 IMF, -2, 'Invalid message format',
; M 0439 PRV, -3, 'Privilege violation',
; M 0440 OCM, -4, 'Oversized Management command message',
; M 0441 MPE, -5, 'Management program error',
; M 0442 UPT, -6, 'Unrecognized parameter type',
; M 0443 IMV, -7, 'Incompatible Management version',
; M 0444 URC, -8, 'Unrecognized component',
; M 0445 IID, -9, 'Invalid identification',
; M 0446 LCE, -10, 'Line communication error',
; M 0447 CWS, -11, 'Component in wrong state',
; M 0448 FOE, -13, 'File open error',
; M 0449 IFC, -14, 'Invalid file contents',
; M 0450 REE, -15, 'Resource error',
; M 0451 IPV, -16, 'Invalid parameter value',
; M 0452 LPE, -17, 'Line protocol error',
; M 0453 FIO, -18, 'File I/O error',
; M 0454 MLD, -19, 'Mirror link disconnected',
; M 0455 NRE, -20, 'No room for new entry',
; M 0456 MCF, -21, 'Mirror connect failed',
; M 0457 PNA, -22, 'Parameter not applicable',
; M 0458 PVL, -23, 'Parameter value too long',
; M 0459 HWF, -24, 'Hardware failure',
; M 0460 OPF, -25, 'Operation failure',
; M 0461 SFS, -26, 'System-specific Management function not supported',
; M 0462 IPG, -27, 'Invalid parameter grouping',
; M 0463 BLR, -28, 'Bad loopback response',
; 0464 PAM, -29, 'Parameter missing' %;
; 0465
; 0466 macro ! This macro uses above definition to generate codes
; M 0467 $NM$NICERR_MACRO [MNE, VAL, STR] =
; M 0468 %assign (%TEMP, VAL)
; M 0469 %quote literal %name ('NE$', MNE) = VAL %quote ;
; M 0470 %if %TEMP GEQ 0
; M 0471 %then %print ('NE$', MNE, ' = ', '$NM$ERR_', MNE, ' = ', %number (%TEMP), '; !', STR)
; M 0472 %else %print ('NE$', MNE, ' = ', '$NM$ERR_', MNE, ' = -', %assign (%TEMP, -%TEMP), %number (%TEMP), '; !', STR)
; M 0473 %fi
; M 0474 %quote macro %name ('$NM$ERR_', MNE) =
; 0475 %name ('NE$', MNE) %quote % %quote ; % ;
; 0476
; 0477
; L 0478 $NM$NICERR_MACRO ($NM$NICE_ERRORS); ! *** Generate the code set ***
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 7
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (4)
; %PRINT: NE$UFO = $NM$ERR_UFO = -1; !Unrecognized function or option
; %PRINT: NE$IMF = $NM$ERR_IMF = -2; !Invalid message format
; %PRINT: NE$PRV = $NM$ERR_PRV = -3; !Privilege violation
; %PRINT: NE$OCM = $NM$ERR_OCM = -4; !Oversized Management command message
; %PRINT: NE$MPE = $NM$ERR_MPE = -5; !Management program error
; %PRINT: NE$UPT = $NM$ERR_UPT = -6; !Unrecognized parameter type
; %PRINT: NE$IMV = $NM$ERR_IMV = -7; !Incompatible Management version
; %PRINT: NE$URC = $NM$ERR_URC = -8; !Unrecognized component
; %PRINT: NE$IID = $NM$ERR_IID = -9; !Invalid identification
; %PRINT: NE$LCE = $NM$ERR_LCE = -10; !Line communication error
; %PRINT: NE$CWS = $NM$ERR_CWS = -11; !Component in wrong state
; %PRINT: NE$FOE = $NM$ERR_FOE = -13; !File open error
; %PRINT: NE$IFC = $NM$ERR_IFC = -14; !Invalid file contents
; %PRINT: NE$REE = $NM$ERR_REE = -15; !Resource error
; %PRINT: NE$IPV = $NM$ERR_IPV = -16; !Invalid parameter value
; %PRINT: NE$LPE = $NM$ERR_LPE = -17; !Line protocol error
; %PRINT: NE$FIO = $NM$ERR_FIO = -18; !File I/O error
; %PRINT: NE$MLD = $NM$ERR_MLD = -19; !Mirror link disconnected
; %PRINT: NE$NRE = $NM$ERR_NRE = -20; !No room for new entry
; %PRINT: NE$MCF = $NM$ERR_MCF = -21; !Mirror connect failed
; %PRINT: NE$PNA = $NM$ERR_PNA = -22; !Parameter not applicable
; %PRINT: NE$PVL = $NM$ERR_PVL = -23; !Parameter value too long
; %PRINT: NE$HWF = $NM$ERR_HWF = -24; !Hardware failure
; %PRINT: NE$OPF = $NM$ERR_OPF = -25; !Operation failure
; %PRINT: NE$SFS = $NM$ERR_SFS = -26; !System-specific Management function not supported
; %PRINT: NE$IPG = $NM$ERR_IPG = -27; !Invalid parameter grouping
; %PRINT: NE$BLR = $NM$ERR_BLR = -28; !Bad loopback response
; %PRINT: NE$PAM = $NM$ERR_PAM = -29; !Parameter missing
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 8
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (5)
; 0479 !+
; 0480 ! Define NMX Synchronous Calls
; 0481 !-
; 0482
; 0483 $field ! This is the type field passed to NMX
; 0484 NMX_TYPE_FIELDS =
; 0485 set
; L 0486 N$QUAL = [$bit],
; %PRINT: [0,0,1,0] (+%O'0')
; L 0487 N$FFNC = [$bits(7)],
; %PRINT: [0,1,7,0] (+%O'0')
; L 0488 N$IENT = [$bits(4)],
; %PRINT: [0,8,4,0] (+%O'1')
; L 0489 N$SELE = [$bits(4)]
; %PRINT: [0,12,4,0] (+%O'1')
; 0490 tes;
; 0491
; 0492 literal
; L 0493 NMX_TYPE_SIZE = $field_set_size,
; %PRINT: 1 fullwords
; L 0494 NMX_TYPE_ALLOCATION = $field_set_units;
; %PRINT: 2 addressable units
; 0495
; 0496 macro
; 0497 NMX_TYPE_BLOCK = block[NMX_TYPE_SIZE] field(NMX_TYPE_FIELDS) %;
; 0498
; 0499 literal
; 0500 NMX$ID_owner = 1, ! Owner-Id being modified
; 0501 NMX$ID_provider = 2; ! Provider-Id being modified
; 0502
; 0503 literal
; 0504 NMX$FLG_maintenance_allowed = 1^0;
; 0505
; 0506 macro
; M 0507 $NMX$TYPE (ENT, FNC) =
; M 0508 (ENT^%fieldexpand (N$IENT, 1) %if not %null (FNC) %then +
; 0509 FNC^%fieldexpand (N$FFNC, 1) %fi) %,
; M 0510 NMX$CREATE_CIRCUIT(NMXPIX, NAME_PTR, FLAGS, NMXID) =
; M 0511 begin
; M 0512 CALL$P($NMCRE,NMXPIX,$NMX$TYPE (NMX$ENT_ckt),NAME_PTR, FLAGS, NMXID)
; 0513 end %,
; M 0514 NMX$CREATE_LINE (NMXPIX, NAME_PTR , FLAGS, NMXID) =
; M 0515 begin
; M 0516 CALL$P($NMCRE,NMXPIX,$NMX$TYPE (NMX$ENT_lin),NAME_PTR, FLAGS, NMXID)
; 0517 end %,
; M 0518 NMX$CREATE_MODULE (NMXPIX, NAME_PTR, FLAGS, NMXID) =
; M 0519 begin
; M 0520 CALL$P($NMCRE,NMXPIX,$NMX$TYPE (NMX$ENT_mod),NAME_PTR, FLAGS, NMXID)
; 0521 end %,
; M 0522 NMX$DESTROY_CIRCUIT (NMXPIX, NAME_PTR) =
; M 0523 begin
; M 0524 CALL$P($NMDES,NMXPIX,$NMX$TYPE (NMX$ENT_ckt),NAME_PTR)
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 9
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (5)
; 0525 end %,
; M 0526 NMX$DESTROY_LINE (NMXPIX, NAME_PTR) =
; M 0527 begin
; M 0528 CALL$P($NMDES,NMXPIX,$NMX$TYPE (NMX$ENT_lin),NAME_PTR)
; 0529 end %,
; M 0530 NMX$DESTROY_MODULE (NMXPIX, NAME_PTR) =
; M 0531 begin
; M 0532 CALL$P($NMDES,NMXPIX,$NMX$TYPE (NMX$ENT_mod),NAME_PTR)
; 0533 end %,
; M 0534 NMX$MODIFY_CIRCUIT_OWNER (NMXPIX, NAME_PTR, OWNER_ID, NMXID) =
; M 0535 begin
; M 0536 CALL$P($NMMID,NMXPIX,$NMX$TYPE(NMX$ENT_ckt,NMX$ID_owner),NAME_PTR,OWNER_ID, NMXID)
; 0537 end %,
; M 0538 NMX$MODIFY_CIRCUIT_PROVIDER (NMXPIX, NAME_PTR, PROVIDER_ID, NMXID) =
; M 0539 begin
; M 0540 CALL$P($NMMID,NMXPIX,$NMX$TYPE(NMX$ENT_ckt,NMX$ID_provider),NAME_PTR,PROVIDER_ID, NMXID)
; 0541 end %,
; M 0542 NMX$MODIFY_CIRCUIT_NAME (NMXPIX, NAME_PTR, NEW_NAME_PTR, NMXID) =
; M 0543 begin
; M 0544 CALL$P($NMMNA,NMXPIX,$NMX$TYPE(NMX$ENT_ckt),NAME_PTR,NEW_NAME_PTR, NMXID)
; 0545 end %,
; M 0546 NMX$OBTAIN_CIRCUIT_OWNER (NMXPIX, NAME_PTR, OWNER_ID, NMXID) =
; M 0547 begin
; M 0548 CALL$P($NMGID,NMXPIX,$NMX$TYPE(NMX$ENT_ckt,NMX$ID_owner),NAME_PTR,OWNER_ID, NMXID)
; 0549 end %,
; M 0550 NMX$OBTAIN_CIRCUIT_PROVIDER (NMXPIX, NAME_PTR, PROVIDER_ID, NMXID) =
; M 0551 begin
; M 0552 CALL$P($NMGID,NMXPIX,$NMX$TYPE(NMX$ENT_ckt,NMX$ID_provider),NAME_PTR,PROVIDER_ID, NMXID)
; 0553 end %,
; M 0554 NMX$PARAMETER_CIRCUIT (NMXPIX, NMXID, PRMNUM) =
; M 0555 begin
; M 0556 CALL$P($NPNAM,NMXPIX,$NMX$TYPE(NMX$ENT_ckt), NMXID, PRMNUM)
; 0557 end %,
; M 0558 NMX$PARAMETER_CIRCUIT_OWNER (NMXPIX, NMXID, PRMNUM) =
; M 0559 begin
; M 0560 CALL$P($NPOWN,NMXPIX,$NMX$TYPE(NMX$ENT_ckt), NMXID, PRMNUM)
; 0561 end %,
; M 0562 NMX$PARAMETER_CIRCUIT_USER (NMXPIX, NMXID, PRMNUM) =
; M 0563 begin
; M 0564 CALL$P($NPUSR,NMXPIX,$NMX$TYPE(NMX$ENT_ckt,NMX$ID_provider), NMXID, PRMNUM)
; 0565 end %,
; M 0566 NMX$MODIFY_LINE_OWNER (NMXPIX, NAME_PTR, OWNER_ID, NMXID) =
; M 0567 begin
; M 0568 CALL$P($NMMID,NMXPIX,$NMX$TYPE(NMX$ENT_lin,NMX$ID_owner),NAME_PTR,OWNER_ID, NMXID)
; 0569 end %,
; M 0570 NMX$MODIFY_LINE_PROVIDER (NMXPIX, NAME_PTR, PROVIDER_ID, NMXID) =
; M 0571 begin
; M 0572 CALL$P($NMMID,NMXPIX,$NMX$TYPE(NMX$ENT_lin,NMX$ID_provider),NAME_PTR,PROVIDER_ID, NMXID)
; 0573 end %,
; M 0574 NMX$MODIFY_LINE_NAME (NMXPIX, NAME_PTR, NEW_NAME_PTR, NMXID) =
; M 0575 begin
; M 0576 CALL$P($NMMNA,NMXPIX,$NMX$TYPE(NMX$ENT_lin),NAME_PTR,NEW_NAME_PTR, NMXID)
24-Jan-1983 10:38:53 TOPS-20 Bliss-16 2A(530) Page 10
30-Dec-1982 17:22:53 NETPKG:<MCB>NMXLIB.REQ.7 (5)
; 0577 end %,
; M 0578 NMX$OBTAIN_LINE_OWNER (NMXPIX, NAME_PTR, OWNER_ID, NMXID) =
; M 0579 begin
; M 0580 CALL$P($NMGID,NMXPIX,$NMX$TYPE(NMX$ENT_lin,NMX$ID_owner),NAME_PTR,OWNER_ID, NMXID)
; 0581 end %,
; M 0582 NMX$OBTAIN_LINE_PROVIDER (NMXPIX, NAME_PTR, PROVIDER_ID, NMXID) =
; M 0583 begin
; M 0584 CALL$P($NMGID,NMXPIX,$NMX$TYPE(NMX$ENT_lin,NMX$ID_provider),NAME_PTR,PROVIDER_ID, NMXID)
; 0585 end %,
; M 0586 NMX$PARAMETER_LINE (NMXPIX, NMXID, PRMNUM) =
; M 0587 begin
; M 0588 CALL$P($NPNAM,NMXPIX,$NMX$TYPE(NMX$ENT_lin,NMX$ID_provider), NMXID, PRMNUM)
; 0589 end %,
; M 0590 NMX$MODIFY_MODULE_PROVIDER (NMXPIX, NAME_PTR, PROVIDER_ID, NMXID) =
; M 0591 begin
; M 0592 CALL$P($NMMID,NMXPIX,$NMX$TYPE(NMX$ENT_mod,NMX$ID_provider),NAME_PTR,PROVIDER_ID, NMXID)
; 0593 end %,
; M 0594 NMX$MODIFY_MODULE_NAME (NMXPIX, NAME_PTR, NEW_NAME_PTR, NMXID) =
; M 0595 begin
; M 0596 CALL$P($NMMNA,NMXPIX,$NMX$TYPE(NMX$ENT_mod),NAME_PTR,NEW_NAME_PTR, NMXID)
; 0597 end %,
; M 0598 NMX$OBTAIN_MODULE_PROVIDER (NMXPIX, NAME_PTR, PROVIDER_ID, NMXID) =
; M 0599 begin
; M 0600 CALL$P($NMGID,NMXPIX,$NMX$TYPE(NMX$ENT_mod,NMX$ID_provider),NAME_PTR,PROVIDER_ID, NMXID)
; 0601 end %,
; M 0602 NMX$MAP_NMXID (NMXPIX, NMXID, TYPE, NAME_PTR) =
; M 0603 begin
; M 0604 CALL$P($NMMAP,NMXPIX,NMXID,TYPE,NAME_PTR)
; 0605 end %;
; 0606 !
; 0607 $show (none)
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<MCB>XPORTX.L16.15 599 43 7 0
; NETPKG:<MCB>MCBLIB.L16.15 372 24 6 0
; Run Time: 00:07.5
; Elapsed Time: 00:09.7
; Memory Used: 30 pages
; Library Precompilation Complete