Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/nml/nmlspc.lst
There are no other files named nmlspc.lst in the archive.
24-May-1985 13:26:04 TOPS-20 Bliss-16 2A(530) Page 1
3-Jan-1983 01:58:55 DNET61:<MCB.NML>NMLSPC.BLI.1 (1)
; 0001 ! NET:<PECKHAM.DEVELOPMENT>NMLSPC.BLI.4 23-Jun-82 12:48:32, Edit by PECKHAM
; 0002 !
; 0003 ! Ident 01.
; 0004 ! Check RB_PRV bit in request block before performing request.
; 0005 !
; 0006 module NMLSPC (
; 0007 ident = 'V03.01'
; 0008 ) =
; 0009 begin
; 0010
; 0011 !
; 0012 ! COPYRIGHT (c) 1980, 1981, 1982
; 0013 ! DIGITAL EQUIPMENT CORPORATION
; 0014 ! Maynard, Massachusetts
; 0015 !
; 0016 ! This software is furnished under a license and may be used
; 0017 ! and copied only in accordance with the terms of such license
; 0018 ! and with the inclusion of the above copyright notice. This
; 0019 ! software or any other copies thereof may not be provided or
; 0020 ! otherwise made available to any other person. No title to
; 0021 ! and ownership of the software is hereby transferred.
; 0022 !
; 0023 ! The information in this software is subject to change
; 0024 ! without notice and should not be construed as a commitment
; 0025 ! by DIGITAL EQUIPMENT CORPORATION.
; 0026 !
; 0027 ! DIGITAL assumes no responsibility for the use or reliability
; 0028 ! of its software on equipment which is not supplied by
; 0029 ! DIGITAL.
; 0030 !
; 0031
; 0032 !++
; 0033 ! FACILITY: DECnet-10/20 V3.0 Network Management Layer (NML)
; 0034 !
; 0035 ! ABSTRACT:
; 0036 !
; 0037 ! Performs DECnet-20 System specific functions.
; 0038 !
; 0039 ! ENVIRONMENT: TOPS-10/20 & MCB/RSX11 User mode under NML
; 0040 !
; 0041 ! AUTHOR: Dale C. Gunn , CREATION DATE: 12-Nov-80
; 0042 !
; 0043 ! MODIFIED BY:
; 0044 !
; 0045 ! , : VERSION
; 0046 ! 01 -
; 0047 !--
NMLSPC 24-May-1985 13:26:04 TOPS-20 Bliss-16 2A(530) Page 2
V03.01 3-Jan-1983 01:58:55 DNET61:<MCB.NML>NMLSPC.BLI.1 (2)
; 0048
; 0049 !
; 0050 ! INCLUDE FILES:
; 0051 !
; 0052
; 0053 library 'NMLLIB' ; ! All required definitions
; 0054
; 0055 require 'NMLEXT'; ! External routine declarations
; 0161
; 0162 !
; 0163 ! TABLE OF CONTENTS
; 0164 !
; 0165
; 0166 forward routine
; 0167 NML$SYSTEM_SPECIFIC ;
; 0168
; 0169 !
; 0170 ! MACROS:
; 0171 !
; 0172
; 0173 !
; 0174 ! EQUATED SYMBOLS:
; 0175 !
; 0176
; 0177 !
; 0178 ! OWN STORAGE:
; 0179 !
; 0180
; 0181 !
; 0182 ! EXTERNAL REFERENCES:
; 0183 !
; 0184
NMLSPC 24-May-1985 13:26:04 TOPS-20 Bliss-16 2A(530) Page 3
V03.01 3-Jan-1983 01:58:55 DNET61:<MCB.NML>NMLSPC.BLI.1 (3)
; 0185
; 0186 global routine %unquote NML$SYSTEM_SPECIFIC (REQ) =
; 0187
; 0188 !++
; 0189 ! FUNCTIONAL DESCRIPTION:
; 0190 !
; 0191 !
; 0192 ! FORMAL PARAMETERS
; 0193 !
; 0194 ! NONE.
; 0195 !
; 0196 ! IMPLICIT INPUTS
; 0197 !
; 0198 ! NONE.
; 0199 !
; 0200 ! ROUTINE VALUE:
; 0201 !
; 0202 ! NONE.
; 0203 !
; 0204 ! SIDE EFFECTS:
; 0205 !
; 0206 ! NONE.
; 0207 !
; 0208 !--
; 0209
; 0210 begin
; 0211
; 0212 map
; 0213 REQ: ref REQUEST_BLOCK;
; 0214
; 0215 if not .REQ[RB_PRV_SYSTEM] then return NICE$_PRV;
; 0216
; L 0217 $INCOMPLETE$ ()
; %PRINT: ! ! ! *** Generate NICE$_OPF return code for now
; %PRINT: Operation failure
; 0218
; 0219 end; !End of NML$SYSTEM_SPECIFIC
.TITLE NMLSPC
.IDENT /V03.01/
.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
NMLSPC 24-May-1985 13:26:04 TOPS-20 Bliss-16 2A(530) Page 4
V03.01 3-Jan-1983 01:58:55 DNET61:<MCB.NML>NMLSPC.BLI.1 (3)
.SBTTL NL.SPC
000000 .PSECT $CODE$, RO
000000 016600 000002 NL.SPC::MOV 2(SP),R0 ; REQ,* 0215
000004 032760 001000 000076 BIT #1000,76(R0)
000012 001003 BNE 1$
000014 012700 177775 MOV #-3,R0
000020 000207 RTS PC
000022 012700 177747 1$: MOV #-31,R0 ; 0186
000026 000207 RTS PC
; Routine Size: 12 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 0 words
NMLSPC 24-May-1985 13:26:04 TOPS-20 Bliss-16 2A(530) Page 5
V03.01 3-Jan-1983 01:58:55 DNET61:<MCB.NML>NMLSPC.BLI.1 (4)
; 0220
; 0221 end !End of Module NMLSPC
; 0222 eludom
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 12 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; DNET61:<MCB.NML>NMLLIB.L16.2 2718 97 3 0
; 0223 ! Local Modes:
; 0224 ! Mode:BLISS
; 0225 ! Auto Save Mode:2
; 0226 ! Comment Column:40
; 0227 ! Comment Rounding:+1
; 0228 ! End:
; Size: 12 code + 0 data words
; Run Time: 00:01.7
; Elapsed Time: 00:04.6
; Memory Used: 28 pages
; Compilation Complete
DUMMY 135+ 137+ 138+
NICE$_PRV 215
NML$REQUEST_MANAGER 151+
NML$SYSTEM_SPECIFIC 167 186#
NMLSPC 6#
NMU$MEMORY_MANAGER 149+
NMU$QUEUE_MANAGER 150+
NMU$SCHED_MANAGER 148+*
RB_PRV_SYSTEM 215
REQ 186 213 215
REQUEST_BLOCK 213
TASK_INFO 123+
$FALSE 124+
$INCOMPLETE$ 135+# 217
$INTERNAL_ERROR$ 120+#
$NICE$ERR_OPF 140+
%REMAINING 123+