Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/sc/sc1.lst
There is 1 other file named sc1.lst in the archive. Click here to see a list.
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (1)
; 0001 module SC1 ( ! Network Management stuff
; 0002 ident = 'X01260'
; 0003 ) =
; 0004 begin
; 0005 !
; 0006 ! COPYRIGHT (c) 1980, 1981, 1982
; 0007 ! DIGITAL EQUIPMENT CORPORATION
; 0008 ! Maynard, Massachusetts
; 0009 !
; 0010 ! This software is furnished under a license and may be used
; 0011 ! and copied only in accordance with the terms of such license
; 0012 ! and with the inclusion of the above copyright notice. This
; 0013 ! software or any other copies thereof may not be provided or
; 0014 ! otherwise made available to any other person. No title to
; 0015 ! and ownership of the software is hereby transferred.
; 0016 !
; 0017 ! The information in this software is subject to change
; 0018 ! without notice and should not be construed as a commitment
; 0019 ! by DIGITAL EQUIPMENT CORPORATION.
; 0020 !
; 0021 ! DIGITAL assumes no responsibility for the use or reliability
; 0022 ! of its software on equipment which is not supplied by
; 0023 ! DIGITAL.
; 0024 !
; 0025
; 0026
; 0027
; 0028 !++
; 0029 ! FACILITY: Session Control
; 0030 !
; 0031 ! ABSTRACT: This is the Network Management module for the MCB
; 0032 ! implementation of Session Control.
; 0033 !
; 0034 ! ENVIRONMENT: MCB
; 0035 !
; 0036 ! AUTHOR: Buren Hoffman CREATION DATE: 20-Nov-80
; 0037 !
; 0038 ! MODIFIED BY:
; 0039 ! X01010 Made this module an extension process.
; 0040 ! X01020 Use new Comm/Exec to process linkage (.CRDAT for database)
; 0041 ! X01030 Added event logging module NM_SIG
; 0042 ! X01040 Added new entry (NM_NOD) to allow outside modules to
; 0043 ! ascertain node name to number mappings.
; 0044 ! X01050 Updated to use library calls, instead of requires.
; 0045 ! X01060 Fix in node location code.
; 0046 ! X01070 Changed SC state representations to same as NM usage.
; 0047 ! X01080 Fixed state checking bug.
; 0048 ! X01090 Modified node search to default to local node when null
; 0049 ! node spec is given.
; 0050 ! X01100 Fixed error reporting in "show-node-characteristics"
; 0051 ! X01110 Mapping bug in SHOW_NODE_ITEMS fixed.
; 0052 ! X01120 Fixed reporting in show_nodes stuff
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 2
X01260 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (1)
; 0053 ! X01130 Repaired mapping bug in RETURN_NODE_LIST.
; 0054 ! X01140 Utilize "paranoid" conditional for some checking, and
; 0055 ! fixed case-shift bug in node-name selection.
; 0056 ! X01150 Optimization work
; 0057 ! X01160 Fixed mapping bug in SHOW_NODE_ITEMS
; 0058 ! X01170 Added Host-Node-ID processing, and put in
; 0059 ! abbreviated reporting on Return-Nodes function
; 0060 ! x01180 Ron Platukis 17-nov-81
; 0061 ! -fix code for parmeter 400 and 501 support.
; 0062 ! x01190 Ron Platukis 8-dec-81
; 0063 ! -allow setting of a node name if it already exists.
; 0064 ! x01200 Alan Peckham 14-apr-82
; 0065 ! -Optimize code.
; 0066 ! -Change RETURN_NODE_LIST functionality for new NMX.
; 0067 ! This fixes the duplicate node names and makes sure
; 0068 ! that the entries are in order.
; 0069 ! -Fix Loop node support.
; 0070 ! -Support change in NMT data base (SCPRM changed).
; 0071 ! x01210 Alan Peckham 14-apr-82
; 0072 ! -Fix bug which displays invalid EXECUTOR STATE.
; 0073 ! x01220 Alan Peckham 2-may-82
; 0074 ! -Change buffer overflow code to $NM$ERR_REE
; 0075 ! in RETURN_NODE_LIST
; 0076 ! x01230 Alan Peckham 22-may-82
; 0077 ! -Fix to not display CLEARed parameters.
; 0078 ! -Do some range checking on received parameter values.
; 0079 ! x01240 Alan Peckham 26-may-82
; 0080 ! -Fix INSERT_NODE bug which did not maintain space left
; 0081 ! x01250 Alan Peckham 1-oct-82
; 0082 ! -Fix CLEAR_NODE_PARMS to handle CLEAR ALL case.
; 0083 ! -Fix SET_NODE_PARMS to respond to SET ALL with $NM$ERR_OPF.
; 0084 ! x01260 Alan Peckham 12-oct-82
; 0085 ! -Fix mapping bug introduced by edit #25.
; 0086 !--
; 0087
; 0088
; 0089
; 0090 !
; 0091 ! REQUIRED FILES
; 0092 !
; 0093 library 'SCPRM'; ! Our parameter and macro definitions
; 0094 library 'MCB:MCBLIB';
; 0095 library 'MCB:NMXLIB';
; 0096 library 'MCB:XPORTX';
; 0097
; 0098 require 'NSP:NSINFO';
; 0210
; 0211 !
; 0212 ! TABLE OF CONTENTS:
; 0213 !
; 0214 linkage
; 0215 SC_LKG_CCB = jsr (register = 4),
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 3
X01260 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (1)
; 0216 SC_LKG_CCB_PTR_LNG = jsr (register = 4, register = 1, register = 0),
; 0217 SC_LKG_LEN_PTR = jsr (register = 1, register = 2),
; 0218 SC_LKG_NMT_CCB = jsr (register = 1, register = 4),
; 0219 SC_LKG_PTR = jsr (register = 3),
; 0220 SC_LKG_SCDB_NMT_CCB = jsr (register = 5, register = 1, register = 4);
; 0221
; 0222 forward routine
; 0223 NM_EXT: call$ novalue,
; 0224 NM_NOD: call$ novalue,
; 0225 NM_SIG: call$ novalue,
; 0226
; 0227 CLEAR_NODE_PARMS : SC_LKG_CCB,
; 0228 CLEAR_EXECUTOR_INCOMING_TIMER : SC_LKG_SCDB_NMT_CCB,
; 0229 CLEAR_EXECUTOR_OUTGOING_TIMER : SC_LKG_SCDB_NMT_CCB,
; 0230 CLEAR_NODE_CIRCUIT : SC_LKG_SCDB_NMT_CCB,
; 0231 CLEAR_NODE_NAME : SC_LKG_SCDB_NMT_CCB,
; 0232 SET_NODE_PARMS : SC_LKG_CCB,
; 0233 SHOW_NODE_ITEMS : SC_LKG_CCB,
; 0234 RETURN_NODE_LIST : SC_LKG_CCB,
; 0235 SHOW_CIRCUIT_ITEMS : SC_LKG_CCB,
; 0236 CASE_SHIFT : SC_LKG_LEN_PTR novalue,
; 0237 GET_NODE : SC_LKG_PTR,
; 0238 INSERT_NODE : SC_LKG_NMT_CCB novalue,
; 0239 MAKE_ROOM : SC_LKG_CCB_PTR_LNG novalue;
; 0240
; 0241 !
; 0242 ! MACROS:
; 0243 !
; 0244 macro
; M 0245 RAD50 (STR) =
; 0246 %if %bliss (bliss36) %then %rad50_10 STR %else %rad50_11 STR %fi %;
; 0247
; 0248 !
; 0249 ! EQUATED SYMBOLS:
; 0250 !
; 0251
; 0252 !
; 0253 ! OWN STORAGE:
; 0254 !
; 0255 $MCB_PROCESS (NAME = SC1);
; 0256
; 0257 !
; 0258 ! EXTERNAL REFERENCES:
; 0259 !
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 4
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (2)
; 0260 %sbttl 'Network Management'
; 0261 global routine NM_EXT (CCB): call$ novalue =
; 0262
; 0263 !++
; 0264 ! FUNCTIONAL DESCRIPTION:
; 0265 ! This routine is activated by a control request from
; 0266 ! Network Management.
; 0267 !
; 0268 ! FORMAL PARAMETERS:
; 0269 ! CCB CCB to pass to handler routine
; 0270 !
; 0271 ! IMPLICIT INPUTS:
; 0272 ! CCB Contents
; 0273 !
; 0274 ! IMPLICIT OUTPUTS:
; 0275 ! None
; 0276 !
; 0277 ! ROUTINE VALUE:
; 0278 ! COMPLETION CODES:
; 0279 ! None
; 0280 !
; 0281 ! SIDE EFFECTS:
; 0282 ! None
; 0283 !--
; 0284 begin
; 0285 map CCB: ref block field (C_NM_FIELDS);
; 0286 local
; 0287 STATUS;
; 0288
; 0289 STATUS =
; 0290 begin
; 0291 if .CCB [C_MOD] neq FM_NM
; 0292 then $NM$ERR_MPE
; 0293 else
; 0294 begin
; 0295 case .CCB [C_NM_ENTITY] from NMX$ENT_lo to NMX$ENT_hi of
; 0296 set
; 0297 [NMX$ENT_nod]: ! NM fnc for node parameter
; 0298 begin
; 0299 case .CCB [C_NM_FUNC] from NMX$FNC_lo to NMX$FNC_hi of
; 0300 set ! *** NODE ***
; 0301 [NMX$FNC_set]:
; 0302 SET_NODE_PARMS (.CCB); ! Set parameters
; 0303 [NMX$FNC_clr]:
; 0304 CLEAR_NODE_PARMS (.CCB); ! Clear parameters
; 0305 [NMX$FNC_sho]:
; 0306 SHOW_NODE_ITEMS (.CCB); ! Show selected items
; 0307 [NMX$FNC_ret]:
; 0308 RETURN_NODE_LIST (.CCB); ! Return selected items
; 0309 [inrange, outrange]:
; 0310 $NM$ERR_MPE;
; 0311 tes
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 5
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (2)
; 0312 end;
; 0313
; 0314 [NMX$ENT_ckt]: ! NM function for circuit parameter
; 0315 begin
; 0316 case .CCB [C_NM_FUNC] from NMX$FNC_lo to NMX$FNC_hi of
; 0317 set ! *** CIRCUIT ***
; 0318 [NMX$FNC_sho]:
; 0319 SHOW_CIRCUIT_ITEMS (.CCB); ! Show selected items
; 0320 [inrange, outrange]:
; 0321 $NM$ERR_MPE;
; 0322 tes
; 0323 end;
; 0324
; 0325 [inrange, outrange]:
; 0326 $NM$ERR_MPE;
; 0327 tes
; 0328 end
; 0329 end;
; 0330
; 0331 if .STATUS neq 0 then $SC_DO_CCP (.CCB, .STATUS)
; 0332 end;
.TITLE SC1
.IDENT /X01260/
000000 .PSECT ......, D
000000 073527 HEADER: .RAD50 /SC1/
000002 000403 .WORD 403
000004 000000 .WORD 0
000006 000000 .WORD 0
000010 000000 .WORD 0
000012 000000G .WORD .DSPCR
000014 000000G .WORD .DSPCR
000016 000000G .WORD .DSPCR
000020 000000G .WORD MCB$V0
000022 000000G .WORD MCB$V1
000024 140310 .WORD 140310
000026 143716 .WORD 143716
000030 001400 .WORD 1400
000032 000000 .WORD 0
000034 000000 .WORD 0
000036 000000 .WORD 0
.GLOBL .DSPCR, MCB$V0, MCB$V1, $SCHED
.SBTTL NM.EXT Network Management
000000 .PSECT $CODE$, RO
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 6
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (2)
000000 016504 000002 NM.EXT::MOV 2(R5),R4 ; CCB(.AP.),* 0291
000004 126427 000013 000006 CMPB 13(R4),#6
000012 001063 BNE 9$ ; 0290
000014 012700 000024 MOV #24,R0 ; 0295
000020 060400 ADD R4,R0
000022 011001 MOV (R0),R1 ; 0294
000024 072127 177770 ASH #-10,R1
000030 042701 177760 BIC #177760,R1
000034 005301 DEC R1
000036 020127 000004 CMP R1,#4
000042 101047 BHI 9$
000044 006301 ASL R1
000046 066107 000000' ADD P.AAA(R1),PC ; Case dispatch
000052 000443 1$: BR 9$
000054 111000 2$: MOVB (R0),R0 ; 0298
000056 006200 ASR R0
000060 042700 177600 BIC #177600,R0
000064 005300 DEC R0
000066 020027 000005 CMP R0,#5
000072 101033 BHI 9$
000074 006300 ASL R0
000076 066007 000012' ADD P.AAB(R0),PC ; Case dispatch
000102 000427 3$: BR 9$
000104 004767 000000V 4$: JSR PC,SET.NODE.PARMS ; 0302
000110 000431 BR 11$ ; 0298
000112 004767 000000V 5$: JSR PC,CLEAR.NODE.PARMS ; 0304
000116 000426 BR 11$ ; 0298
000120 004767 000000V 6$: JSR PC,SHOW.NODE.ITEMS ; 0306
000124 000423 BR 11$ ; 0298
000126 004767 000000V 7$: JSR PC,RETURN.NODE.LIST ; 0308
000132 000420 BR 11$ ; 0294
000134 111000 8$: MOVB (R0),R0 ; 0315
000136 006200 ASR R0
000140 042700 177600 BIC #177600,R0
000144 005300 DEC R0
000146 020027 000005 CMP R0,#5
000152 101003 BHI 9$
000154 006300 ASL R0
000156 066007 000026' ADD P.AAC(R0),PC ; Case dispatch
000162 012700 177773 9$: MOV #-5,R0 ; *,STATUS
000166 000403 BR 12$
000170 004767 000000V 10$: JSR PC,SHOW.CIRCUIT.ITEMS ; 0319
000174 005700 11$: TST R0 ; STATUS 0331
000176 001407 12$: BEQ 13$
000200 112764 000022 000012 MOVB #22,12(R4)
000206 010064 000014 MOV R0,14(R4) ; STATUS,*
000212 004767 000000G JSR PC,$SCHED
000216 000207 13$: RTS PC ; 0261
; Routine Size: 72 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 1 word
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 7
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (2)
000000 .PSECT $PLIT$, RO , D
P.AAA: ; CASE Table for NM.EXT+0046 0294
000000 000002 .WORD 2 ; [2$]
000002 000110 .WORD 110 ; [9$]
000004 000110 .WORD 110 ; [9$]
000006 000062 .WORD 62 ; [8$]
000010 000110 .WORD 110 ; [9$]
P.AAB: ; CASE Table for NM.EXT+0076 0298
000012 000002 .WORD 2 ; [4$]
000014 000010 .WORD 10 ; [5$]
000016 000060 .WORD 60 ; [9$]
000020 000016 .WORD 16 ; [6$]
000022 000060 .WORD 60 ; [9$]
000024 000024 .WORD 24 ; [7$]
P.AAC: ; CASE Table for NM.EXT+0156 0315
000026 000000 .WORD 0 ; [9$]
000030 000000 .WORD 0 ; [9$]
000032 000000 .WORD 0 ; [9$]
000034 000006 .WORD 6 ; [10$]
000036 000000 .WORD 0 ; [9$]
000040 000000 .WORD 0 ; [9$]
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 8
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (3)
; 0333 global routine NM_NOD (NODE_ID_PTR): call$ novalue =
; 0334
; 0335 !++
; 0336 ! FUNCTIONAL DESCRIPTION:
; 0337 ! Map from node address to node name, or vice versa.
; 0338 !
; 0339 ! FORMAL PARAMETERS:
; 0340 ! NODE_ID_PTR
; 0341 ! Node ID block pointer. The block is to
; 0342 ! contain space for:
; 0343 ! Node address (2 bytes)
; 0344 ! Node name (I-6)
; 0345 ! specifying either one of the parameters.
; 0346 !
; 0347 ! IMPLICIT INPUTS:
; 0348 ! None
; 0349 !
; 0350 ! IMPLICIT OUTPUTS:
; 0351 ! The missing field in the node ID block will be filled in.
; 0352 ! If the node is unknown, a -1 node address is returned.
; 0353 !
; 0354 ! ROUTINE VALUE:
; 0355 ! COMPLETION CODES:
; 0356 ! None
; 0357 !
; 0358 ! SIDE EFFECTS:
; 0359 ! None
; 0360 !--
; 0361 begin
; 0362 $sc_get_data_base (SCDB);
; 0363 local
; 0364 SAVE_MAP,
; 0365 PTR,
; 0366 NMT: ref block field (NMT_FIELDS);
; 0367
; 0368 SMAP$ (SAVE_MAP);
; 0369 PTR = .NODE_ID_PTR;
; 0370
; 0371 if (NMT = GET_NODE (.PTR)) neqa 0
; 0372 then
; 0373 begin
; 0374 local
; 0375 NAML;
; 0376
; 0377 byt$short_string (NMT [NMT_ADDR], PTR);
; 0378 NAML = .NMT [NMT_NAML];
; 0379 ch$wchar_a (.NAML, PTR);
; 0380 ch$move (.NAML, byt$ptr (NMT [NMT_NAME]), .PTR);
; 0381 end
; 0382 else
; 0383 begin
; 0384 ch$wchar_a (-1, PTR);
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 9
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (3)
; 0385 ch$wchar_a (-1, PTR);
; 0386 end;
; 0387
; 0388 MAP$ (.SAVE_MAP)
; 0389 end;
.GLOBL .CRDAT, KISAR6
.SBTTL NM.NOD Network Management
000220 .PSECT $CODE$, RO
000000 016701 000000G NM.NOD::MOV KISAR6,R1 ; *,SAVE.MAP 0368
000004 016503 000002 MOV 2(R5),R3 ; NODE.ID.PTR(.AP.),PTR 0369
000010 004767 000000V JSR PC,GET.NODE ; 0371
000014 010005 MOV R0,R5 ; *,NMT
000016 001421 BEQ 1$
000020 016500 000010 MOV 10(R5),R0 ; *(NMT),NUM 0377
000024 110023 MOVB R0,(R3)+ ; NUM,PTR
000026 000300 SWAB R0 ; NUM
000030 110023 MOVB R0,(R3)+ ; NUM,PTR
000032 111500 MOVB (R5),R0 ; NMT,NAML 0378
000034 110023 MOVB R0,(R3)+ ; NAML,PTR 0379
000036 010046 MOV R0,-(SP) ; NAML,* 0380
000040 012746 000001 MOV #1,-(SP)
000044 060516 ADD R5,(SP) ; NMT,*
000046 010346 MOV R3,-(SP) ; PTR,*
000050 004767 000000G JSR PC,BL$MOV
000054 062706 000006 ADD #6,SP ; 0373
000060 000404 BR 2$ ; 0371
000062 112723 000377 1$: MOVB #377,(R3)+ ; *,PTR 0384
000066 112723 000377 MOVB #377,(R3)+ ; *,PTR 0385
000072 010167 000000G 2$: MOV R1,KISAR6 ; SAVE.MAP,* 0388
000076 000207 RTS PC ; 0333
; Routine Size: 32 words, Routine Base: $CODE$ + 0220
; Maximum stack depth per invocation: 4 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 10
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (4)
; 0390 global routine NM_SIG (SIG_TYPE, PRM1, PRM2): call$ novalue =
; 0391
; 0392 !++
; 0393 ! FUNCTIONAL DESCRIPTION:
; 0394 ! This routine is activated by call from another SC routine
; 0395 ! to effect event logging - via Network Management (NMX).
; 0396 !
; 0397 ! FORMAL PARAMETERS:
; 0398 ! SIG_TYPE Signal type identifier
; 0399 ! PRM1 Type-dependent parameter #1
; 0400 ! PRM2 Type-dependent parameter #2
; 0401 !
; 0402 ! IMPLICIT INPUTS:
; 0403 ! None
; 0404 !
; 0405 ! IMPLICIT OUTPUTS:
; 0406 ! NMX is signaled concerning the event
; 0407 !
; 0408 ! ROUTINE VALUE:
; 0409 ! COMPLETION CODES:
; 0410 ! None
; 0411 !
; 0412 ! SIDE EFFECTS:
; 0413 ! None
; 0414 !--
; 0415 begin
; 0416 $sc_get_data_base (SCDB);
; 0417
; 0418 selectone .SIG_TYPE of
; 0419 set
; 0420
; 0421 [0]: ! Node state change
; 0422 ! PRM1 = Reason for state change
; 0423 ! PRM2 = Old state
; 0424
; 0425 begin
; 0426 local NEW_STATE;
; 0427 $NM_LOG_BEGIN ();
; 0428 PARAMETER_C_1 (0, PRM1); ! Reason
; 0429 PARAMETER_C_1 (1, PRM2); ! Old-State
; 0430 NEW_STATE = .SCDB [SCF_STAT];
; 0431 PARAMETER_C_1 (2, NEW_STATE); ! New-State
; 0432 $NM_LOG_END ((2^6 + 0), 0);
; 0433 end;
; 0434
; 0435 [otherwise]:
; 0436 return;
; 0437 tes;
; 0438
; 0439 end;
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 11
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (4)
.GLOBL $NLBEG, $DPC1, $NLEND
.SBTTL NM.SIG Network Management
000000 016701 000002G NM.SIG::MOV .CRDAT+2,R1 ; 0415
000004 016500 000002 MOV 2(R5),R0 ; SIG.TYPE(.AP.),* 0418
000010 001035 BNE 1$
000012 004767 000000G JSR PC,$NLBEG ; 0427
000016 005046 CLR -(SP) ; 0428
000020 116500 000004 MOVB 4(R5),R0 ; PRM1(.AP.),*
000024 004767 000000G JSR PC,$DPC1
000030 012716 000001 MOV #1,(SP) ; 0429
000034 116500 000006 MOVB 6(R5),R0 ; PRM2(.AP.),*
000040 004767 000000G JSR PC,$DPC1
000044 011101 MOV (R1),R1 ; *,NEW.STATE 0430
000046 072127 177770 ASH #-10,R1 ; *,NEW.STATE
000052 042701 177774 BIC #177774,R1 ; *,NEW.STATE
000056 012716 000002 MOV #2,(SP) ; 0431
000062 110100 MOVB R1,R0 ; NEW.STATE,*
000064 004767 000000G JSR PC,$DPC1
000070 012700 000200 MOV #200,R0 ; 0432
000074 005001 CLR R1
000076 004767 000000G JSR PC,$NLEND
000102 005726 TST (SP)+ ; 0425
000104 000207 1$: RTS PC ; 0390
; Routine Size: 35 words, Routine Base: $CODE$ + 0320
; Maximum stack depth per invocation: 2 words
; 0440
; 0441
; 0442
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 12
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (5)
; 0443 routine CLEAR_NODE_PARMS (CCB) : SC_LKG_CCB =
; 0444
; 0445 !++
; 0446 ! FUNCTIONAL DESCRIPTION:
; 0447 ! Perform clearing of specified node parameter.
; 0448 !
; 0449 ! FORMAL PARAMETERS:
; 0450 ! CCB CCB address
; 0451 !
; 0452 ! IMPLICIT INPUTS:
; 0453 ! PARBLK & NMPAR inputs, as pointed at by CCB.
; 0454 !
; 0455 ! IMPLICIT OUTPUTS:
; 0456 ! None
; 0457 !
; 0458 ! ROUTINE VALUE:
; 0459 ! Operation status code
; 0460 !
; 0461 ! COMPLETION CODES:
; 0462 ! None
; 0463 !
; 0464 ! SIDE EFFECTS:
; 0465 ! None
; 0466 !--
; 0467 begin
; 0468 $sc_get_data_base (SCDB);
; 0469 map CCB: ref block field (C_NM_FIELDS);
; 0470 bind
; 0471 NMPAR = CCB [C_NM_NMPAR]: ref block field (NMX_NMPAR_FIELDS);
; 0472 local
; 0473 NMT : ref block field (NMT_FIELDS);
; 0474
; 0475 if (NMT = GET_NODE (byt$ptr (NMPAR [NMX_NMPAR_ENTITY]))) eqla 0
; 0476 then return $NM$ERR_URC;
; 0477
; 0478 if .CCB [C_CNT] neq 0
; 0479 then
; 0480 begin
; 0481
; 0482 selectone
; 0483 begin
; 0484 local SAVE_MAP,BUF_PTR;
; 0485 stacklocal PARM_NUM;
; 0486 SMAP$(SAVE_MAP);
; 0487 MAP$ (.CCB [C_BIAS]);
; 0488 BUF_PTR = .CCB [C_ADDR];
; 0489 byt$string_short (BUF_PTR, PARM_NUM);
; 0490 MAP$(.SAVE_MAP);
; 0491 .PARM_NUM
; 0492 end
; 0493 of
; 0494 set
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 13
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (5)
; 0495 [500]:
; 0496 CLEAR_NODE_NAME (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0497 [501]:
; 0498 CLEAR_NODE_CIRCUIT (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0499 [510]:
; 0500 CLEAR_EXECUTOR_INCOMING_TIMER (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0501 [511]:
; 0502 CLEAR_EXECUTOR_OUTGOING_TIMER (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0503 [otherwise]:
; 0504 $NM$ERR_UPT;
; 0505 tes
; 0506
; 0507 end
; 0508 else
; 0509 begin
; 0510 CLEAR_NODE_NAME (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0511 CLEAR_NODE_CIRCUIT (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0512 CLEAR_EXECUTOR_INCOMING_TIMER (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0513 CLEAR_EXECUTOR_OUTGOING_TIMER (SCDB [SC_TICK], NMT [NMT_BASE], .CCB);
; 0514 NM$SUC
; 0515 end
; 0516
; 0517 end;
.SBTTL CLEAR.NODE.PARMS Network Management
000000 004167 000000G CLEAR.NODE.PARMS:
JSR R1,$SAVE5 ; 0443
000004 005746 TST -(SP)
000006 016705 000002G MOV .CRDAT+2,R5 ; 0467
000012 016403 000026 MOV 26(R4),R3 ; *(CCB),* 0475
000016 062703 000004 ADD #4,R3
000022 004767 000000V JSR PC,GET.NODE
000026 010001 MOV R0,R1 ; *,NMT
000030 001003 BNE 1$
000032 012700 177770 MOV #-10,R0 ; 0476
000036 000465 BR 7$
000040 005764 000022 1$: TST 22(R4) ; *(CCB) 0478
000044 001450 BEQ 6$
000046 016703 000000G MOV KISAR6,R3 ; *,SAVE.MAP 0486
000052 016467 000016 000000G MOV 16(R4),KISAR6 ; *(CCB),* 0487
000060 016400 000020 MOV 20(R4),R0 ; *(CCB),BUF.PTR 0488
000064 112016 MOVB (R0)+,(SP) ; BUF.PTR,PARM.NUM 0489
000066 112066 000001 MOVB (R0)+,1(SP) ; BUF.PTR,PARM.NUM+1
000072 010367 000000G MOV R3,KISAR6 ; SAVE.MAP,* 0490
000076 011603 MOV (SP),R3 ; PARM.NUM,* 0491
000100 020327 000764 CMP R3,#764 ; 0482
000104 001003 BNE 2$
000106 004767 000000V JSR PC,CLEAR.NODE.NAME ; 0496
000112 000437 BR 7$ ; 0480
000114 020327 000765 2$: CMP R3,#765 ; 0482
000120 001003 BNE 3$
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 14
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (5)
000122 004767 000000V JSR PC,CLEAR.NODE.CIRCUIT ; 0498
000126 000431 BR 7$ ; 0480
000130 020327 000776 3$: CMP R3,#776 ; 0482
000134 001003 BNE 4$
000136 004767 000000V JSR PC,CLEAR.EXECUTOR.INCOMING.TIMER; 0500
000142 000423 BR 7$ ; 0480
000144 020327 000777 4$: CMP R3,#777 ; 0482
000150 001003 BNE 5$
000152 004767 000000V JSR PC,CLEAR.EXECUTOR.OUTGOING.TIMER; 0502
000156 000415 BR 7$ ; 0480
000160 012700 177772 5$: MOV #-6,R0
000164 000412 BR 7$ ; 0478
000166 004767 000000V 6$: JSR PC,CLEAR.NODE.NAME ; 0510
000172 004767 000000V JSR PC,CLEAR.NODE.CIRCUIT ; 0511
000176 004767 000000V JSR PC,CLEAR.EXECUTOR.INCOMING.TIMER; 0512
000202 004767 000000V JSR PC,CLEAR.EXECUTOR.OUTGOING.TIMER; 0513
000206 012700 000001 MOV #1,R0 ; 0478
000212 005726 7$: TST (SP)+ ; 0443
000214 000207 RTS PC
; Routine Size: 71 words, Routine Base: $CODE$ + 0426
; Maximum stack depth per invocation: 8 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 15
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (6)
; 0518 routine CLEAR_EXECUTOR_INCOMING_TIMER (SCDB, NMT, CCB) : SC_LKG_SCDB_NMT_CCB =
; 0519
; 0520 !++
; 0521 ! FUNCTIONAL DESCRIPTION:
; 0522 ! Clear the incoming timer
; 0523 !
; 0524 ! FORMAL PARAMETERS:
; 0525 ! SCDB SC data base
; 0526 ! NMT NMT address
; 0527 ! CCB CCB address (not needed)
; 0528 !
; 0529 ! IMPLICIT INPUTS:
; 0530 ! None
; 0531 !
; 0532 ! IMPLICIT OUTPUTS:
; 0533 ! None
; 0534 !
; 0535 ! ROUTINE VALUE:
; 0536 ! Operation status code
; 0537 !
; 0538 ! COMPLETION CODES:
; 0539 ! None
; 0540 !
; 0541 ! SIDE EFFECTS:
; 0542 ! None
; 0543 !--
; 0544 begin
; 0545 $sc_get_data_base (SCDB);
; 0546 map CCB: ref block field (C_NM_FIELDS),
; 0547 NMT: ref block field (NMT_FIELDS);
; 0548
; 0549 if .NMT [NMT_ADDR] neq .SCDB [SC_LADDR] then return $NM$ERR_PNA;
; 0550 SCDB [SC_ITIME] = 0;
; 0551 return NM$SUC
; 0552 end;
.SBTTL CLEAR.EXECUTOR.INCOMING.TIMER Network Management
000000 026165 000010 000010 CLEAR.EXECUTOR.INCOMING.TIMER:
CMP 10(R1),10(R5) ; *(NMT),*(SCDB) 0549
000006 001403 BEQ 1$
000010 012700 177752 MOV #-26,R0
000014 000207 RTS PC
000016 005065 000024 1$: CLR 24(R5) ; *(SCDB) 0550
000022 012700 000001 MOV #1,R0 ; 0544
000026 000207 RTS PC ; 0518
; Routine Size: 12 words, Routine Base: $CODE$ + 0644
; Maximum stack depth per invocation: 0 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 16
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (7)
; 0553 routine CLEAR_EXECUTOR_OUTGOING_TIMER (SCDB, NMT, CCB) : SC_LKG_SCDB_NMT_CCB =
; 0554
; 0555 !++
; 0556 ! FUNCTIONAL DESCRIPTION:
; 0557 ! Clear the outgoing timer
; 0558 !
; 0559 ! FORMAL PARAMETERS:
; 0560 ! SCDB SC data base
; 0561 ! NMT NMT address
; 0562 ! CCB CCB address (not needed)
; 0563 !
; 0564 ! IMPLICIT INPUTS:
; 0565 ! None
; 0566 !
; 0567 ! IMPLICIT OUTPUTS:
; 0568 ! None
; 0569 !
; 0570 ! ROUTINE VALUE:
; 0571 ! Operation status code
; 0572 !
; 0573 ! COMPLETION CODES:
; 0574 ! None
; 0575 !
; 0576 ! SIDE EFFECTS:
; 0577 ! None
; 0578 !--
; 0579 begin
; 0580 $sc_get_data_base (SCDB);
; 0581 map CCB: ref block field (C_NM_FIELDS),
; 0582 NMT: ref block field (NMT_FIELDS);
; 0583
; 0584 if .NMT [NMT_ADDR] neq .SCDB [SC_LADDR] then return $NM$ERR_PNA;
; 0585 SCDB [SC_OTIME] = 0;
; 0586 return NM$SUC
; 0587 end;
.SBTTL CLEAR.EXECUTOR.OUTGOING.TIMER Network Management
000000 026165 000010 000010 CLEAR.EXECUTOR.OUTGOING.TIMER:
CMP 10(R1),10(R5) ; *(NMT),*(SCDB) 0584
000006 001403 BEQ 1$
000010 012700 177752 MOV #-26,R0
000014 000207 RTS PC
000016 005065 000026 1$: CLR 26(R5) ; *(SCDB) 0585
000022 012700 000001 MOV #1,R0 ; 0579
000026 000207 RTS PC ; 0553
; Routine Size: 12 words, Routine Base: $CODE$ + 0674
; Maximum stack depth per invocation: 0 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 17
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (8)
; 0588 routine CLEAR_NODE_CIRCUIT (SCDB, NMT, CCB) : SC_LKG_SCDB_NMT_CCB =
; 0589
; 0590 !++
; 0591 ! FUNCTIONAL DESCRIPTION:
; 0592 ! Clear a loop node
; 0593 !
; 0594 ! FORMAL PARAMETERS:
; 0595 ! SCDB SC data base
; 0596 ! NMT NMT address
; 0597 ! CCB CCB address (not needed)
; 0598 !
; 0599 ! IMPLICIT INPUTS:
; 0600 ! None
; 0601 !
; 0602 ! IMPLICIT OUTPUTS:
; 0603 ! None
; 0604 !
; 0605 ! ROUTINE VALUE:
; 0606 ! Operation status code
; 0607 !
; 0608 ! COMPLETION CODES:
; 0609 ! None
; 0610 !
; 0611 ! SIDE EFFECTS:
; 0612 ! None
; 0613 !--
; 0614 begin
; 0615 $sc_get_data_base (SCDB);
; 0616 map CCB: ref block field (C_NM_FIELDS),
; 0617 NMT: ref block field (NMT_FIELDS);
; 0618
; 0619 if .NMT [NMT_ADDR] neq 0 then return $NM$ERR_CWS;
; 0620 NMT [NMT_NAML] = 0;
; 0621 return NM$SUC
; 0622 end;
.SBTTL CLEAR.NODE.CIRCUIT Network Management
000000 005761 000010 CLEAR.NODE.CIRCUIT:
TST 10(R1) ; *(NMT) 0619
000004 001403 BEQ 1$
000006 012700 177765 MOV #-13,R0
000012 000207 RTS PC
000014 105011 1$: CLRB (R1) ; NMT 0620
000016 012700 000001 MOV #1,R0 ; 0614
000022 000207 RTS PC ; 0588
; Routine Size: 10 words, Routine Base: $CODE$ + 0724
; Maximum stack depth per invocation: 0 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 18
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (9)
; 0623 routine CLEAR_NODE_NAME (SCDB, NMT, CCB) : SC_LKG_SCDB_NMT_CCB =
; 0624
; 0625 !++
; 0626 ! FUNCTIONAL DESCRIPTION:
; 0627 ! Clear a node name mapping
; 0628 !
; 0629 ! FORMAL PARAMETERS:
; 0630 ! SCDB SC data base
; 0631 ! NMT NMT address
; 0632 ! CCB CCB address (not needed)
; 0633 !
; 0634 ! IMPLICIT INPUTS:
; 0635 ! None
; 0636 !
; 0637 ! IMPLICIT OUTPUTS:
; 0638 ! None
; 0639 !
; 0640 ! ROUTINE VALUE:
; 0641 ! Operation status code
; 0642 !
; 0643 ! COMPLETION CODES:
; 0644 ! None
; 0645 !
; 0646 ! SIDE EFFECTS:
; 0647 ! None
; 0648 !--
; 0649 begin
; 0650 $sc_get_data_base (SCDB);
; 0651 map CCB: ref block field (C_NM_FIELDS),
; 0652 NMT: ref block field (NMT_FIELDS);
; 0653
; 0654 NMT [NMT_NAML] = 0; ! No name anymore
; 0655 return NM$SUC
; 0656 end;
.SBTTL CLEAR.NODE.NAME Network Management
000000 105011 CLEAR.NODE.NAME:
CLRB (R1) ; NMT 0654
000002 012700 000001 MOV #1,R0 ; 0649
000006 000207 RTS PC ; 0623
; Routine Size: 4 words, Routine Base: $CODE$ + 0750
; Maximum stack depth per invocation: 0 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 19
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
; 0657 routine SET_NODE_PARMS (CCB) : SC_LKG_CCB =
; 0658
; 0659 !++
; 0660 ! FUNCTIONAL DESCRIPTION:
; 0661 ! Perform setting of specified node parameter.
; 0662 !
; 0663 ! FORMAL PARAMETERS:
; 0664 ! CCB CCB address
; 0665 !
; 0666 ! IMPLICIT INPUTS:
; 0667 ! PARBLK & NMPAR inputs, as pointed at by CCB.
; 0668 !
; 0669 ! IMPLICIT OUTPUTS:
; 0670 ! None
; 0671 !
; 0672 ! ROUTINE VALUE:
; 0673 ! Operation status code
; 0674 !
; 0675 ! COMPLETION CODES:
; 0676 ! None
; 0677 !
; 0678 ! SIDE EFFECTS:
; 0679 ! None
; 0680 !--
; 0681 begin
; 0682 $sc_get_data_base (SCDB);
; 0683 map CCB: ref block field (C_NM_FIELDS);
; 0684 bind
; 0685 NMPAR = CCB [C_NM_NMPAR]: ref block field (NMX_NMPAR_FIELDS);
; 0686 local
; 0687 BUF_PTR,
; 0688 PARM_NUM;
; 0689
; 0690 if .CCB [C_CNT] eql 0
; 0691 then
; 0692 return $NM$ERR_OPF;
; 0693
; 0694 BUF_PTR = .CCB [C_ADDR];
; 0695 MAP$ (.CCB [C_BIAS]);
; 0696 byt$string_short (BUF_PTR, PARM_NUM);
; 0697
; 0698 selectone .PARM_NUM of
; 0699 set
; 0700
; 0701 [0]: ! Set node state
; 0702 begin
; 0703 local
; 0704 STATE,
; 0705 LCCB: ref block field (C_FIELDS);
; 0706
; 0707 STATE = ch$rchar_a (BUF_PTR);
; 0708 selectone .STATE of
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 20
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
; 0709 set
; 0710 [S_ST_ON] :
; 0711 0;
; 0712 [S_ST_OFF, S_ST_SHUT, S_ST_RST] :
; 0713 return $NM$ERR_OPF;
; 0714 [otherwise] :
; 0715 return $NM$ERR_IPV;
; 0716 tes;
; 0717 if .SCDB [SCF_STAT] eql S_ST_ON then return NM$SUC;
; 0718 if not PDVID$ (RAD50 ('NMX'), SCDB [SC_NMPIX]) then SIGNAL_STOP (SC$_NNM);
; 0719 if not PDVID$ (RAD50 ('NSP'), SCDB [SC_NSPIX]) then SIGNAL_STOP (SC$_NNS);
; 0720 SCDB [SC_LLINK] = 0;
; 0721 if not CCBGT$ (LCCB) then return $NM$ERR_REE;
; 0722 LCCB [C_STK] = .CCB;
; 0723 LCCB [C_PIX] = .SCDB [SC_NSPIX];
; 0724 LCCB [C_FNC] = FC_XME; ! Initialize
; 0725 LCCB [C_MOD] = N_XINI; ! NSP
; 0726 $MCB_SCHEDULE_CCB (.LCCB);
; 0727 return 0 ! Special hack so no ccb completion
; 0728 end;
; 0729
; 0730 [141]: ! Define Host Node Address
; 0731 begin
; 0732 local
; 0733 HOST_ADDR;
; 0734 BUF_PTR = byt$ptr (NMPAR [NMX_NMPAR_NODE_ADDRESS]);
; 0735 byt$string_short (BUF_PTR, HOST_ADDR);
; 0736 SCDB [SC_HADDR] = .HOST_ADDR
; 0737 end;
; 0738
; 0739 [500]: ! Set a node name
; 0740 begin
; 0741 local
; 0742 NEW_NAME : vector [byt$allocation(6)],
; 0743 NEW_NAML,
; 0744 NMT : ref block field (NMT_FIELDS);
; 0745
; 0746 byt$string_tiny (BUF_PTR, NEW_NAML);
; 0747 selectone .NEW_NAML of
; 0748 set
; 0749 [1 to 6]:
; 0750 ; ! Valid range
; 0751 [otherwise]:
; 0752 return $NM$ERR_IPV;
; 0753 tes;
; 0754 ch$move (.NEW_NAML, .BUF_PTR, byt$ptr (NEW_NAME));
; 0755 if (NMT = GET_NODE (byt$ptr (NMPAR [NMX_NMPAR_ENTITY]))) eqla 0
; 0756 then return $NM$ERR_URC;
; 0757 if .NMT [NMT_ADDR] eql 0 then return $NM$ERR_CWS;
; 0758 NMT [NMT_NAML] = .NEW_NAML;
; 0759 ch$move (.NEW_NAML, byt$ptr (NEW_NAME), byt$ptr (NMT [NMT_NAME]))
; 0760 end;
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 21
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
; 0761
; 0762 [501]: ! Set circuit for node name
; 0763 begin
; 0764 local
; 0765 CHAN,
; 0766 NMXID,
; 0767 NMT: ref block field (NMT_FIELDS);
; 0768 if GET_NODE (byt$ptr (NMPAR [NMX_NMPAR_ENTITY])) neqa 0
; 0769 then return $NM$ERR_CWS;
; 0770 MAP$ (.CCB [C_BIAS]);
; 0771 NMX$OBTAIN_CIRCUIT_OWNER (.SCDB [SC_NMPIX], .buf_ptr, CHAN, NMXID);
; 0772 MAP$ (.SCDB [SC_NMT_BIAS]);
; 0773 NMT = blockvector [.SCDB [SC_NMT_ADDR], .SCDB [SC_NODES], NMT_BASE; 0, NMT_SIZE];
; 0774
; 0775 decru I from .SCDB [SC_LOOPS] to 1 do
; 0776 begin
; 0777 if .NMT [NMT_NAML] eql 0 ! Find available slot
; 0778 then
; 0779 begin
; 0780 local PTR;
; 0781 PTR = byt$ptr (NMPAR [NMX_NMPAR_NODE_NAME_LENGTH]);
; 0782 NMT [NMT_NAML] = ch$rchar_a (PTR);
; 0783 ch$move (.NMT [NMT_NAML], .PTR, byt$ptr (NMT [NMT_NAME]));
; 0784 NMT [NMT_CHAN] = .CHAN;
; 0785 NMT [NMT_NMXID] = .NMXID;
; 0786 return NM$SUC
; 0787 end;
; 0788
; 0789 NMT = vector [.NMT, NMT_SIZE];
; 0790 end;
; 0791
; 0792 return $NM$ERR_NRE
; 0793 end;
; 0794
; 0795 [510]: ! Set incoming connect timer
; 0796 begin
; 0797 local VALUE;
; 0798 byt$string_short (BUF_PTR, VALUE);
; 0799 selectoneu .VALUE of
; 0800 set
; 0801 [1 to 65535]:
; 0802 SCDB [SC_ITIME] = .VALUE;
; 0803 [otherwise]:
; 0804 return $NM$ERR_IPV;
; 0805 tes;
; 0806 end;
; 0807 [511]: ! Set outgoing connect timer
; 0808 begin
; 0809 local VALUE;
; 0810 byt$string_short (BUF_PTR, VALUE);
; 0811 selectoneu .VALUE of
; 0812 set
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 22
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
; 0813 [1 to 65535]:
; 0814 SCDB [SC_OTIME] = .VALUE;
; 0815 [otherwise]:
; 0816 return $NM$ERR_IPV;
; 0817 tes;
; 0818 end;
; 0819 [otherwise]:
; 0820 return $NM$ERR_UPT;
; 0821
; 0822 tes;
; 0823
; 0824 return NM$SUC
; 0825 end;
.GLOBL P.DTGT, $CALLI, $CCBGT, $NMGID
.GLOBL $CALLP
.SBTTL SET.NODE.PARMS Network Management
000000 004167 000000G SET.NODE.PARMS:
JSR R1,$SAVE5 ; 0657
000004 162706 000026 SUB #26,SP
000010 010401 MOV R4,R1 ; *,CCB
000012 016746 000002G MOV .CRDAT+2,-(SP) ; 0681
000016 012705 000026 MOV #26,R5
000022 060105 ADD R1,R5 ; CCB,*
000024 005761 000022 TST 22(R1) ; *(CCB) 0690
000030 001424 BEQ 1$ ; 0692
000032 016104 000020 MOV 20(R1),R4 ; *(CCB),BUF.PTR 0694
000036 016167 000016 000000G MOV 16(R1),KISAR6 ; *(CCB),* 0695
000044 112466 000020 MOVB (R4)+,20(SP) ; BUF.PTR,PARM.NUM 0696
000050 112466 000021 MOVB (R4)+,21(SP) ; BUF.PTR,PARM.NUM+1
000054 016600 000020 MOV 20(SP),R0 ; PARM.NUM,* 0698
000060 001154 BNE 11$
000062 005000 CLR R0 ; STATE 0707
000064 152400 BISB (R4)+,R0 ; BUF.PTR,STATE
000066 005700 TST R0 ; STATE 0708
000070 001407 BEQ 2$
000072 003574 BLE 14$
000074 020027 000003 CMP R0,#3 ; STATE,*
000100 003176 BGT 17$
000102 012700 177747 1$: MOV #-31,R0 ; 0713
000106 000520 BR 9$
000110 032776 001400 000000 2$: BIT #1400,@0(SP) ; 0717
000116 001553 BEQ 12$
000120 012746 000020 MOV #20,-(SP) ; 0718
000124 060616 ADD SP,(SP) ; $MCB$MY.INDEX,*
000126 012746 054640 MOV #54640,-(SP)
000132 012746 000002 MOV #2,-(SP)
000136 012746 000000G MOV #P.DTGT,-(SP)
000142 004767 000000G JSR PC,$CALLI
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 23
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
000146 062706 000010 ADD #10,SP
000152 010002 MOV R0,R2 ; *,$MCB$STATUS
000154 006000 ROR R0
000156 103002 BCC 3$
000160 016600 000016 MOV 16(SP),R0 ; $MCB$MY.INDEX,$MCB$HANDLE
000164 010203 3$: MOV R2,R3 ; $MCB$STATUS,$MCB$STATUS
000166 006002 ROR R2 ; $MCB$STATUS
000170 103003 BCC 4$
000172 011602 MOV (SP),R2
000174 110062 000003 MOVB R0,3(R2) ; $MCB$HANDLE,*
000200 032703 000001 4$: BIT #1,R3 ; *,$MCB$STATUS
000204 001007 BNE 5$
000206 012746 100044 MOV #-77734,-(SP)
000212 012746 000001 MOV #1,-(SP)
000216 004767 000000G JSR PC,$STOP
000222 022626 CMP (SP)+,(SP)+
000224 012746 000016 5$: MOV #16,-(SP) ; 0719
000230 060616 ADD SP,(SP) ; $MCB$MY.INDEX,*
000232 012746 055210 MOV #55210,-(SP)
000236 012746 000002 MOV #2,-(SP)
000242 012746 000000G MOV #P.DTGT,-(SP)
000246 004767 000000G JSR PC,$CALLI
000252 062706 000010 ADD #10,SP
000256 010002 MOV R0,R2 ; *,$MCB$STATUS
000260 006000 ROR R0
000262 103002 BCC 6$
000264 016600 000014 MOV 14(SP),R0 ; $MCB$MY.INDEX,$MCB$HANDLE
000270 010203 6$: MOV R2,R3 ; $MCB$STATUS,$MCB$STATUS
000272 006002 ROR R2 ; $MCB$STATUS
000274 103003 BCC 7$
000276 011602 MOV (SP),R2
000300 110062 000002 MOVB R0,2(R2) ; $MCB$HANDLE,*
000304 032703 000001 7$: BIT #1,R3 ; *,$MCB$STATUS
000310 001007 BNE 8$
000312 012746 100034 MOV #-77744,-(SP)
000316 012746 000001 MOV #1,-(SP)
000322 004767 000000G JSR PC,$STOP
000326 022626 CMP (SP)+,(SP)+
000330 011600 8$: MOV (SP),R0 ; 0720
000332 105060 000005 CLRB 5(R0)
000336 004767 000000G JSR PC,$CCBGT ; 0721
000342 103003 BHIS 10$
000344 012700 177761 MOV #-17,R0
000350 000535 9$: BR 22$
000352 010164 000004 10$: MOV R1,4(R4) ; CCB,*(LCCB) 0722
000356 011600 MOV (SP),R0 ; 0723
000360 116064 000002 000011 MOVB 2(R0),11(R4) ; *,*(LCCB)
000366 112764 000002 000012 MOVB #2,12(R4) ; *,*(LCCB) 0724
000374 112764 000034 000013 MOVB #34,13(R4) ; *,*(LCCB) 0725
000402 004767 000000G JSR PC,$SCHED ; 0726
000406 000167 000564 JMP 34$ ; 0702
000412 020027 000215 11$: CMP R0,#215 ; 0698
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 24
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
000416 001014 BNE 13$
000420 011504 MOV (R5),R4 ; *,BUF.PTR 0734
000422 062704 000004 ADD #4,R4 ; *,BUF.PTR 0735
000426 112466 000012 MOVB (R4)+,12(SP) ; BUF.PTR,HOST.ADDR
000432 112466 000013 MOVB (R4)+,13(SP) ; BUF.PTR,HOST.ADDR+1
000436 011600 MOV (SP),R0 ; 0736
000440 016660 000012 000012 MOV 12(SP),12(R0) ; HOST.ADDR,*
000446 000575 12$: BR 25$ ; 0698
000450 020027 000764 13$: CMP R0,#764
000454 001057 BNE 20$
000456 005002 CLR R2 ; NEW.NAML 0746
000460 152402 BISB (R4)+,R2 ; BUF.PTR,NEW.NAML
000462 005702 TST R2 ; NEW.NAML 0747
000464 003002 14$: BGT 16$
000466 000167 000462 15$: JMP 31$
000472 020227 000006 16$: CMP R2,#6 ; NEW.NAML,*
000476 003373 17$: BGT 15$ ; 0752
000500 010246 MOV R2,-(SP) ; NEW.NAML,* 0754
000502 010446 MOV R4,-(SP) ; BUF.PTR,*
000504 012746 000030 MOV #30,-(SP)
000510 060616 ADD SP,(SP) ; NEW.NAME,*
000512 004767 000000G JSR PC,BL$MOV
000516 011503 MOV (R5),R3 ; 0755
000520 062703 000004 ADD #4,R3
000524 004767 000000V JSR PC,GET.NODE
000530 005700 TST R0 ; NMT
000532 001005 BNE 18$
000534 062706 000006 ADD #6,SP ; 0756
000540 012700 177770 MOV #-10,R0
000544 000546 BR 28$
000546 005760 000010 18$: TST 10(R0) ; *(NMT) 0757
000552 001003 BNE 19$
000554 062706 000006 ADD #6,SP
000560 000427 BR 21$
000562 110210 19$: MOVB R2,(R0) ; NEW.NAML,NMT 0758
000564 010216 MOV R2,(SP) ; NEW.NAML,* 0759
000566 012746 000032 MOV #32,-(SP)
000572 060616 ADD SP,(SP) ; NEW.NAME,*
000574 012746 000001 MOV #1,-(SP)
000600 060016 ADD R0,(SP) ; NMT,*
000602 004767 000000G JSR PC,BL$MOV
000606 062706 000012 ADD #12,SP ; 0740
000612 000566 BR 33$ ; 0698
000614 020027 000765 20$: CMP R0,#765
000620 001121 BNE 29$
000622 011503 MOV (R5),R3 ; 0768
000624 062703 000004 ADD #4,R3
000630 004767 000000V JSR PC,GET.NODE
000634 005700 TST R0
000636 001403 BEQ 23$
000640 012700 177765 21$: MOV #-13,R0 ; 0769
000644 000555 22$: BR 35$
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 25
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
000646 016167 000016 000000G 23$: MOV 16(R1),KISAR6 ; *(CCB),* 0770
000654 012746 000012 MOV #12,-(SP) ; 0771
000660 060616 ADD SP,(SP) ; NMXID,*
000662 012746 000012 MOV #12,-(SP)
000666 060616 ADD SP,(SP) ; CHAN,*
000670 010446 MOV R4,-(SP) ; BUF.PTR,*
000672 012746 002002 MOV #2002,-(SP)
000676 012746 000004 MOV #4,-(SP)
000702 012746 000000G MOV #$NMGID,-(SP)
000706 005046 CLR -(SP)
000710 016600 000016 MOV 16(SP),R0
000714 116016 000003 MOVB 3(R0),(SP)
000720 004767 000000G JSR PC,$CALLP
000724 016600 000016 MOV 16(SP),R0 ; 0772
000730 016067 000050 000000G MOV 50(R0),KISAR6
000736 016003 000020 MOV 20(R0),R3 ; 0773
000742 070327 000014 MUL #14,R3
000746 016600 000016 MOV 16(SP),R0
000752 066003 000052 ADD 52(R0),R3
000756 010301 MOV R3,R1 ; *,NMT
000760 016003 000022 MOV 22(R0),R3 ; *,I 0775
000764 001432 BEQ 27$
000766 105711 24$: TSTB (R1) ; NMT 0777
000770 001025 BNE 26$
000772 011500 MOV (R5),R0 ; *,PTR 0781
000774 062700 000006 ADD #6,R0 ; *,PTR 0782
001000 112011 MOVB (R0)+,(R1) ; PTR,NMT
001002 111102 MOVB (R1),R2 ; NMT,* 0783
001004 010216 MOV R2,(SP)
001006 010046 MOV R0,-(SP) ; PTR,*
001010 012746 000001 MOV #1,-(SP)
001014 060116 ADD R1,(SP) ; NMT,*
001016 004767 000000G JSR PC,BL$MOV
001022 116661 000030 000007 MOVB 30(SP),7(R1) ; CHAN,*(NMT) 0784
001030 016661 000032 000012 MOV 32(SP),12(R1) ; NMXID,*(NMT) 0785
001036 062706 000022 ADD #22,SP ; 0777
001042 000452 25$: BR 33$ ; 0779
001044 062701 000014 26$: ADD #14,R1 ; *,NMT 0789
001050 077332 SOB R3,24$ ; I,* 0000
001052 062706 000016 27$: ADD #16,SP ; 0698
001056 012700 177754 MOV #-24,R0 ; 0763
001062 000446 28$: BR 35$
001064 020027 000776 29$: CMP R0,#776 ; 0698
001070 001013 BNE 30$
001072 112466 000004 MOVB (R4)+,4(SP) ; BUF.PTR,VALUE 0798
001076 112466 000005 MOVB (R4)+,5(SP) ; BUF.PTR,VALUE+1
001102 016600 000004 MOV 4(SP),R0 ; VALUE,* 0799
001106 001422 BEQ 31$
001110 011601 MOV (SP),R1 ; 0802
001112 010061 000024 MOV R0,24(R1)
001116 000424 BR 33$ ; 0799
001120 020027 000777 30$: CMP R0,#777 ; 0698
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 26
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (10)
001124 001016 BNE 32$
001126 112466 000002 MOVB (R4)+,2(SP) ; BUF.PTR,VALUE 0810
001132 112466 000003 MOVB (R4)+,3(SP) ; BUF.PTR,VALUE+1
001136 016600 000002 MOV 2(SP),R0 ; VALUE,* 0811
001142 001404 BEQ 31$
001144 011601 MOV (SP),R1 ; 0814
001146 010061 000026 MOV R0,26(R1)
001152 000406 BR 33$ ; 0811
001154 012700 177760 31$: MOV #-20,R0 ; 0816
001160 000407 BR 35$
001162 012700 177772 32$: MOV #-6,R0 ; 0820
001166 000404 BR 35$
001170 012700 000001 33$: MOV #1,R0 ; 0681
001174 000401 BR 35$
001176 005000 34$: CLR R0 ; 0657
001200 062706 000030 35$: ADD #30,SP
001204 000207 RTS PC
; Routine Size: 323 words, Routine Base: $CODE$ + 0760
; Maximum stack depth per invocation: 28 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 27
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (11)
; 0826 routine SHOW_NODE_ITEMS (CCB) : SC_LKG_CCB =
; 0827
; 0828 !++
; 0829 ! FUNCTIONAL DESCRIPTION:
; 0830 ! Show specified items
; 0831 !
; 0832 ! FORMAL PARAMETERS:
; 0833 ! CCB CCB address
; 0834 !
; 0835 ! IMPLICIT INPUTS:
; 0836 ! PARBLK & NMPAR inputs, as pointed at by CCB.
; 0837 !
; 0838 ! IMPLICIT OUTPUTS:
; 0839 ! None
; 0840 !
; 0841 ! ROUTINE VALUE:
; 0842 ! Operation status code
; 0843 !
; 0844 ! COMPLETION CODES:
; 0845 ! None
; 0846 !
; 0847 ! SIDE EFFECTS:
; 0848 ! None
; 0849 !--
; 0850 begin
; 0851 $sc_get_data_base (SCDB);
; 0852 map CCB: ref block field (C_NM_FIELDS);
; 0853 local
; 0854 NMT : ref block field (NMT_FIELDS);
; 0855 bind
; 0856 NMPAR = CCB [C_NM_NMPAR]: ref block field (NMX_NMPAR_FIELDS);
; 0857
; 0858 $NM_RESPONSE_BEGIN( .CCB);
; 0859
; 0860 if (NMT = GET_NODE (byt$ptr (NMPAR [NMX_NMPAR_ENTITY]))) neqa 0
; 0861 then
; 0862 selectone .CCB [C_NM_SELECT] of
; 0863 set
; 0864 [NMX$SEL_sum, NMX$SEL_sta]:
; 0865 begin
; 0866 local NEW_STATE;
; 0867 if .NMT [NMT_ADDR] eql .SCDB [SC_LADDR]
; 0868 then
; 0869 begin
; 0870 NEW_STATE = .SCDB[SCF_STAT];
; 0871 PARAMETER_C_1 (0, NEW_STATE);
; 0872 end;
; 0873 if .NMT [NMT_ADDR] eql 0
; 0874 then
; 0875 NMX$PARAMETER_CIRCUIT (.SCDB[SC_NMPIX], .NMT [NMT_NMXID], 501);
; 0876 end;
; 0877 [NMX$SEL_cha]:
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 28
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (11)
; 0878 begin
; 0879 if .NMT [NMT_ADDR] eql 0
; 0880 then
; 0881 NMX$PARAMETER_CIRCUIT (.SCDB[SC_NMPIX], .NMT [NMT_NMXID], 501);
; 0882 if .NMT [NMT_ADDR] eql .SCDB [SC_LADDR]
; 0883 then
; 0884 begin
; 0885 if .SCDB [SC_ITIME] neq 0
; 0886 then PARAMETER_DU_2 (510, SCDB [SC_ITIME]);
; 0887 if .SCDB [SC_OTIME] neq 0
; 0888 then PARAMETER_DU_2 (511, SCDB [SC_OTIME]);
; 0889 end;
; 0890 end;
; 0891 tes;
; 0892
; 0893 $NM_RESPONSE_END( .CCB);
; 0894 return .CCB[C_STS]
; 0895 end;
.GLOBL $NRBEG, $NPNAM, $DPDU2, $NREND
.SBTTL SHOW.NODE.ITEMS Network Management
000000 004167 000000G SHOW.NODE.ITEMS:
JSR R1,$SAVE3 ; 0826
000004 016701 000002G MOV .CRDAT+2,R1 ; 0850
000010 004767 000000G JSR PC,$NRBEG ; 0858
000014 016403 000026 MOV 26(R4),R3 ; *(CCB),* 0860
000020 062703 000004 ADD #4,R3
000024 004767 000000V JSR PC,GET.NODE
000030 010003 MOV R0,R3 ; *,NMT
000032 001527 BEQ 5$
000034 016400 000024 MOV 24(R4),R0 ; *(CCB),* 0862
000040 072027 177764 ASH #-14,R0
000044 042700 177760 BIC #177760,R0
000050 003446 BLE 2$
000052 020027 000002 CMP R0,#2
000056 003043 BGT 2$
000060 026361 000010 000010 CMP 10(R3),10(R1) ; *(NMT),* 0867
000066 001012 BNE 1$
000070 011102 MOV (R1),R2 ; *,NEW.STATE 0870
000072 072227 177770 ASH #-10,R2 ; *,NEW.STATE
000076 042702 177774 BIC #177774,R2 ; *,NEW.STATE
000102 005046 CLR -(SP) ; 0871
000104 110200 MOVB R2,R0 ; NEW.STATE,*
000106 004767 000000G JSR PC,$DPC1
000112 005726 TST (SP)+ ; 0869
000114 005763 000010 1$: TST 10(R3) ; *(NMT) 0873
000120 001074 BNE 5$
000122 012746 000765 MOV #765,-(SP) ; 0875
000126 016346 000012 MOV 12(R3),-(SP) ; *(NMT),*
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 29
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (11)
000132 012746 002000 MOV #2000,-(SP)
000136 012746 000003 MOV #3,-(SP)
000142 012746 000000G MOV #$NPNAM,-(SP)
000146 005046 CLR -(SP)
000150 116116 000003 MOVB 3(R1),(SP)
000154 004767 000000G JSR PC,$CALLP
000160 062706 000014 ADD #14,SP
000164 000452 BR 5$ ; 0862
000166 020027 000003 2$: CMP R0,#3
000172 001047 BNE 5$
000174 016302 000010 MOV 10(R3),R2 ; *(NMT),* 0879
000200 001021 BNE 3$
000202 012746 000765 MOV #765,-(SP) ; 0881
000206 016346 000012 MOV 12(R3),-(SP) ; *(NMT),*
000212 012746 002000 MOV #2000,-(SP)
000216 012746 000003 MOV #3,-(SP)
000222 012746 000000G MOV #$NPNAM,-(SP)
000226 005046 CLR -(SP)
000230 116116 000003 MOVB 3(R1),(SP)
000234 004767 000000G JSR PC,$CALLP
000240 062706 000014 ADD #14,SP
000244 020261 000010 3$: CMP R2,10(R1) ; 0882
000250 001020 BNE 5$
000252 016100 000024 MOV 24(R1),R0 ; 0885
000256 001405 BEQ 4$
000260 012746 000776 MOV #776,-(SP) ; 0886
000264 004767 000000G JSR PC,$DPDU2
000270 005726 TST (SP)+
000272 016100 000026 4$: MOV 26(R1),R0 ; 0887
000276 001405 BEQ 5$
000300 012746 000777 MOV #777,-(SP) ; 0888
000304 004767 000000G JSR PC,$DPDU2
000310 005726 TST (SP)+
000312 004767 000000G 5$: JSR PC,$NREND ; 0893
000316 016400 000014 MOV 14(R4),R0 ; *(CCB),* 0850
000322 000207 RTS PC ; 0826
; Routine Size: 106 words, Routine Base: $CODE$ + 2166
; Maximum stack depth per invocation: 11 words
; 0896
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 30
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (12)
; 0897 routine RETURN_NODE_LIST (CCB) : SC_LKG_CCB =
; 0898
; 0899 !++
; 0900 ! FUNCTIONAL DESCRIPTION:
; 0901 ! Return list of named nodes.
; 0902 !
; 0903 ! FORMAL PARAMETERS:
; 0904 ! CCB CCB address
; 0905 !
; 0906 ! IMPLICIT INPUTS:
; 0907 ! PARBLK & NMPAR inputs, as pointed at by CCB.
; 0908 !
; 0909 ! IMPLICIT OUTPUTS:
; 0910 ! None
; 0911 !
; 0912 ! ROUTINE VALUE:
; 0913 ! Operation status code
; 0914 !
; 0915 ! COMPLETION CODES:
; 0916 ! None
; 0917 !
; 0918 ! SIDE EFFECTS:
; 0919 ! None
; 0920 !--
; 0921 begin
; 0922 $sc_get_data_base (SCDB);
; 0923 map CCB: ref block field (C_NM_FIELDS);
; 0924 bind NMPAR = .CCB [C_NM_NMPAR] : block field (NMX_NMPAR_FIELDS);
; 0925 local
; 0926 BUF_SIZ,
; 0927 LEN,
; 0928 PTR,
; 0929 NMT: ref block [NMT_SIZE] field (NMT_FIELDS);
; 0930
; 0931 MAP$ (.SCDB [SC_NMT_BIAS]);
; 0932 CCB [C_STS] = .CCB [C_CNT];
; 0933 CCB [C_CNT] = .NMPAR [NMX_NMPAR_RETURN_CNT];
; 0934 CCB [C_STS] = .CCB [C_STS] - .CCB [C_CNT];
; 0935
; 0936 select .CCB [C_NM_SELECT] of
; 0937 set
; 0938 [NMX$SEL_kno] :
; 0939 begin
; 0940 NMT = .SCDB [SC_NMT_ADDR];
; 0941
; 0942 decru I from .SCDB [SC_NODES] to 1 do
; 0943 begin
; 0944 local NAM_LEN;
; 0945 if (NAM_LEN = .NMT [NMT_NAML]) neq 0
; 0946 then INSERT_NODE (NMT [NMT_BASE], .CCB);
; 0947 NMT = vector [.NMT, NMT_SIZE];
; 0948 end;
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 31
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (12)
; 0949
; 0950 end;
; 0951 [NMX$SEL_kno, NMX$SEL_lop] :
; 0952 begin
; 0953 NMT = blockvector [.SCDB [SC_NMT_ADDR], .SCDB [SC_NODES], 0, 0, 0, 0; 0, NMT_SIZE];
; 0954
; 0955 decru I from .SCDB [SC_LOOPS] to 1 do
; 0956 begin
; 0957 local NAM_LEN;
; 0958 if (NAM_LEN = .NMT [NMT_NAML]) neq 0
; 0959 then INSERT_NODE (NMT [NMT_BASE], .CCB);
; 0960 NMT = vector [.NMT, NMT_SIZE];
; 0961 end;
; 0962
; 0963 end;
; 0964 tes;
; 0965
; 0966 if .CCB [C_STS] geq 0
; 0967 then
; 0968 return NM$SUC
; 0969 else
; 0970 return $NM$ERR_REE
; 0971
; 0972 end;
.SBTTL RETURN.NODE.LIST Network Management
000000 004167 000000G RETURN.NODE.LIST:
JSR R1,$SAVE5 ; 0897
000004 024646 CMP -(SP),-(SP)
000006 016702 000002G MOV .CRDAT+2,R2 ; 0921
000012 016400 000026 MOV 26(R4),R0 ; *(CCB),*
000016 016267 000050 000000G MOV 50(R2),KISAR6 ; 0931
000024 012766 000014 000002 MOV #14,2(SP) ; 0932
000032 060466 000002 ADD R4,2(SP) ; CCB,*
000036 012701 000022 MOV #22,R1
000042 060401 ADD R4,R1 ; CCB,*
000044 011176 000002 MOV (R1),@2(SP)
000050 016011 000004 MOV 4(R0),(R1) ; 0933
000054 161176 000002 SUB (R1),@2(SP) ; 0934
000060 016405 000024 MOV 24(R4),R5 ; *(CCB),* 0936
000064 072527 177764 ASH #-14,R5
000070 042705 177760 BIC #177760,R5
000074 020527 000001 CMP R5,#1
000100 001021 BNE 4$
000102 016216 000052 MOV 52(R2),(SP) ; *,NMT 0940
000106 016203 000020 MOV 20(R2),R3 ; *,I 0942
000112 001411 BEQ 3$
000114 117600 000000 1$: MOVB @0(SP),R0 ; NMT,NAM.LEN 0945
000120 001403 BEQ 2$
000122 011601 MOV (SP),R1 ; NMT,* 0946
000124 004767 000000V JSR PC,INSERT.NODE
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 32
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (12)
000130 062716 000014 2$: ADD #14,(SP) ; *,NMT 0947
000134 077311 SOB R3,1$ ; I,* 0000
000136 020527 000001 3$: CMP R5,#1 ; 0936
000142 001403 BEQ 5$
000144 020527 000003 4$: CMP R5,#3
000150 001023 BNE 8$
000152 016201 000020 5$: MOV 20(R2),R1 ; 0953
000156 070127 000014 MUL #14,R1
000162 066201 000052 ADD 52(R2),R1
000166 010116 MOV R1,(SP) ; *,NMT
000170 016202 000022 MOV 22(R2),R2 ; *,I 0955
000174 001411 BEQ 8$
000176 117600 000000 6$: MOVB @0(SP),R0 ; NMT,NAM.LEN 0958
000202 001403 BEQ 7$
000204 011601 MOV (SP),R1 ; NMT,* 0959
000206 004767 000000V JSR PC,INSERT.NODE
000212 062716 000014 7$: ADD #14,(SP) ; *,NMT 0960
000216 077211 SOB R2,6$ ; I,* 0000
000220 005776 000002 8$: TST @2(SP) ; 0966
000224 002403 BLT 9$
000226 012700 000001 MOV #1,R0
000232 000402 BR 10$
000234 012700 177761 9$: MOV #-17,R0
000240 022626 10$: CMP (SP)+,(SP)+ ; 0897
000242 000207 RTS PC
; Routine Size: 82 words, Routine Base: $CODE$ + 2512
; Maximum stack depth per invocation: 9 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 33
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (13)
; 0973 routine SHOW_CIRCUIT_ITEMS (CCB) : SC_LKG_CCB =
; 0974
; 0975 !++
; 0976 ! FUNCTIONAL DESCRIPTION:
; 0977 ! Show selected circuit items.
; 0978 !
; 0979 ! FORMAL PARAMETERS:
; 0980 ! CCB CCB address
; 0981 !
; 0982 ! IMPLICIT INPUTS:
; 0983 ! PARBLK & NMPAR inputs, as pointed at by CCB.
; 0984 !
; 0985 ! IMPLICIT OUTPUTS:
; 0986 ! None
; 0987 !
; 0988 ! ROUTINE VALUE:
; 0989 ! Operation status code
; 0990 !
; 0991 ! COMPLETION CODES:
; 0992 ! None
; 0993 !
; 0994 ! SIDE EFFECTS:
; 0995 ! None
; 0996 !--
; 0997 begin
; 0998 $sc_get_data_base (SCDB);
; 0999 map CCB: ref block field (C_NM_FIELDS);
; 1000 bind
; 1001 NMPAR = CCB [C_NM_NMPAR]: ref block field (NMX_NMPAR_FIELDS);
; 1002
; 1003 $NM_RESPONSE_BEGIN (.CCB);
; 1004
; 1005 case .CCB [C_NM_SELECT] from NMX$SEL_lo to NMX$SEL_hi of
; 1006 set
; 1007 [NMX$SEL_sta, NMX$SEL_sum] :
; 1008 begin
; 1009 local
; 1010 CHAN,
; 1011 NMXID,
; 1012 NMT : ref block field (NMT_FIELDS);
; 1013 NMX$OBTAIN_CIRCUIT_OWNER( .SCDB[SC_NMPIX], byt$ptr (NMPAR [NMX_NMPAR_OTHER_LENGTH]), CHAN, NMXID);
; 1014 MAP$ (.SCDB [SC_NMT_BIAS]);
; 1015 NMT = blockvector [.SCDB [SC_NMT_ADDR], .SCDB [SC_NODES], NMT_BASE; 0, NMT_SIZE];
; 1016
; 1017 decru I from .SCDB [SC_LOOPS] to 1 do
; 1018 begin
; 1019 if (.NMT [NMT_NAML] neq 0) and
; 1020 (.NMT [NMT_CHAN] eqlu .CHAN<0, 8>)
; 1021 then
; 1022 begin
; 1023 PARAMETER_AI (400, .NMT [NMT_NAML], byt$ptr (NMT [NMT_NAME]));
; 1024 exitloop;
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 34
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (13)
; 1025 end;
; 1026 NMT = vector [.NMT, NMT_SIZE];
; 1027 end;
; 1028
; 1029 end;
; 1030 [inrange] :
; 1031 0;
; 1032 tes;
; 1033
; 1034 $NM_RESPONSE_END (.CCB);
; 1035 return .CCB [C_STS]
; 1036 end;
.GLOBL $DPAI
.SBTTL SHOW.CIRCUIT.ITEMS Network Management
000000 004167 000000G SHOW.CIRCUIT.ITEMS:
JSR R1,$SAVE3 ; 0973
000004 024646 CMP -(SP),-(SP)
000006 016702 000002G MOV .CRDAT+2,R2 ; 0997
000012 004767 000000G JSR PC,$NRBEG ; 1003
000016 016400 000024 MOV 24(R4),R0 ; *(CCB),* 1005
000022 072027 177764 ASH #-14,R0
000026 042700 177760 BIC #177760,R0
000032 005300 DEC R0
000034 006300 ASL R0
000036 066007 000042' ADD P.AAD(R0),PC ; Case dispatch
000042 012746 000004 1$: MOV #4,-(SP) ; 1013
000046 060616 ADD SP,(SP) ; NMXID,*
000050 012746 000004 MOV #4,-(SP)
000054 060616 ADD SP,(SP) ; CHAN,*
000056 016446 000026 MOV 26(R4),-(SP) ; *(CCB),*
000062 062716 000004 ADD #4,(SP)
000066 012746 002002 MOV #2002,-(SP)
000072 012746 000004 MOV #4,-(SP)
000076 012746 000000G MOV #$NMGID,-(SP)
000102 005046 CLR -(SP)
000104 116216 000003 MOVB 3(R2),(SP)
000110 004767 000000G JSR PC,$CALLP
000114 016267 000050 000000G MOV 50(R2),KISAR6 ; 1014
000122 016201 000020 MOV 20(R2),R1 ; 1015
000126 070127 000014 MUL #14,R1
000132 066201 000052 ADD 52(R2),R1
000136 010103 MOV R1,R3 ; *,NMT
000140 016202 000022 MOV 22(R2),R2 ; *,I 1017
000144 001422 BEQ 4$
000146 105713 2$: TSTB (R3) ; NMT 1019
000150 001415 BEQ 3$
000152 126366 000007 000016 CMPB 7(R3),16(SP) ; *(NMT),CHAN 1020
000160 001011 BNE 3$
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 35
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (13)
000162 012716 000620 MOV #620,(SP) ; 1023
000166 012701 000001 MOV #1,R1
000172 060301 ADD R3,R1 ; NMT,*
000174 111300 MOVB (R3),R0 ; NMT,*
000176 004767 000000G JSR PC,$DPAI
000202 000403 BR 4$ ; 1024
000204 062703 000014 3$: ADD #14,R3 ; *,NMT 1026
000210 077222 SOB R2,2$ ; I,* 0000
000212 062706 000016 4$: ADD #16,SP ; 1008
000216 004767 000000G 5$: JSR PC,$NREND ; 1034
000222 016400 000014 MOV 14(R4),R0 ; *(CCB),* 0997
000226 022626 CMP (SP)+,(SP)+ ; 0973
000230 000207 RTS PC
; Routine Size: 77 words, Routine Base: $CODE$ + 2756
; Maximum stack depth per invocation: 14 words
000042 .PSECT $PLIT$, RO , D
P.AAD: ; CASE Table for SHOW.CIRCUIT.IT+0036 1005
000042 000000 .WORD 0 ; [1$]
000044 000000 .WORD 0 ; [1$]
000046 000154 .WORD 154 ; [5$]
000050 000154 .WORD 154 ; [5$]
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 36
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (14)
; 1037 routine CASE_SHIFT (LEN, PTR) : SC_LKG_LEN_PTR novalue =
; 1038
; 1039 !++
; 1040 ! FUNCTIONAL DESCRIPTION:
; 1041 ! Shift string pointed to by PTR to uppercase
; 1042 !
; 1043 ! FORMAL PARAMETERS:
; 1044 ! LEN Length of string
; 1045 ! PTR Pointer to string to shift
; 1046 !
; 1047 ! IMPLICIT INPUTS:
; 1048 ! None
; 1049 !
; 1050 ! IMPLICIT OUTPUTS:
; 1051 ! None
; 1052 !
; 1053 ! ROUTINE VALUE:
; 1054 ! COMPLETION CODES:
; 1055 ! None
; 1056 !
; 1057 ! SIDE EFFECTS:
; 1058 ! None
; 1059 !--
; 1060
; 1061 begin
; 1062 local
; 1063 CH,
; 1064 TMP_PTR;
; 1065
; 1066 TMP_PTR = .PTR;
; 1067
; 1068 if .LEN neq 0
; 1069 then
; 1070 decru I from .LEN to 1 do
; 1071 begin
; 1072 if (CH = ch$rchar (.TMP_PTR)) geq %c'a' and .CH leq %c'z'
; 1073 then CH = .CH - (%c'a' - %c'A');
; 1074 ch$wchar_a (.CH, TMP_PTR);
; 1075 end;
; 1076
; 1077 end;
.SBTTL CASE.SHIFT Network Management
003210 .PSECT $CODE$, RO
000000 004167 000000G CASE.SHIFT:
JSR R1,$SAVE2 ; 1037
000004 010200 MOV R2,R0 ; PTR,TMP.PTR 1066
000006 005701 TST R1 ; LEN 1068
000010 001414 BEQ 3$
000012 005002 1$: CLR R2 ; CH 1072
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 37
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (14)
000014 151002 BISB (R0),R2 ; TMP.PTR,CH
000016 020227 000141 CMP R2,#141 ; CH,*
000022 002405 BLT 2$
000024 020227 000172 CMP R2,#172 ; CH,*
000030 003002 BGT 2$
000032 162702 000040 SUB #40,R2 ; *,CH 1073
000036 110220 2$: MOVB R2,(R0)+ ; CH,TMP.PTR 1074
000040 077114 SOB R1,1$ ; I,* 0000
000042 000207 3$: RTS PC ; 1037
; Routine Size: 18 words, Routine Base: $CODE$ + 3210
; Maximum stack depth per invocation: 4 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 38
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (15)
; 1078 routine GET_NODE (PARBLK) : SC_LKG_PTR =
; 1079
; 1080 !++
; 1081 ! FUNCTIONAL DESCRIPTION:
; 1082 ! Determine whether name is in NMT
; 1083 !
; 1084 ! FORMAL PARAMETERS:
; 1085 ! PARBLK Pointer to NM parameter block specifying node,
; 1086 ! starting at NMX_NMPAR_ENTITY
; 1087 !
; 1088 ! IMPLICIT INPUTS:
; 1089 ! None
; 1090 !
; 1091 ! IMPLICIT OUTPUTS:
; 1092 ! Mapped to NMT
; 1093 !
; 1094 ! ROUTINE VALUE:
; 1095 !
; 1096 ! NMT address if name found, else 0
; 1097 !
; 1098 ! SIDE EFFECTS:
; 1099 ! None
; 1100 !--
; 1101 begin
; 1102 $sc_get_data_base (SCDB);
; 1103 local
; 1104 PARPTR,
; 1105 NODE_ADDR,
; 1106 NAME_LEN,
; 1107 NMT : ref block field (NMT_FIELDS);
; 1108
; 1109 MAP$ (.SCDB [SC_NMT_BIAS]); ! Set map to node mapping table
; 1110 NMT = .SCDB [SC_NMT_ADDR];
; 1111 PARPTR = .PARBLK;
; 1112 byt$string_short (PARPTR, NODE_ADDR); ! Get the node address
; 1113 byt$string_tiny (PARPTR, NAME_LEN); ! and name length
; 1114
; 1115 selectone .NAME_LEN of ! If a name is specified,
; 1116 set
; 1117 [1 to 6]:
; 1118 begin ! then search for the entry
; 1119 CASE_SHIFT (.NAME_LEN, .PARPTR);
; 1120 decru I from (.SCDB [SC_NODES] + .SCDB [SC_LOOPS]) to 1 do
; 1121 begin
; 1122 if (.NMT [NMT_NAML] neq 0) and
; 1123 ch$eql (.NAME_LEN, .PARPTR,
; 1124 .NMT [NMT_NAML], byt$ptr (NMT [NMT_NAME]),
; 1125 0)
; 1126 then return NMT [NMT_BASE];
; 1127 NMT = vector [.NMT, NMT_SIZE];
; 1128 end
; 1129 end;
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 39
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (15)
; 1130 [0]: ! Node spec via address
; 1131 begin
; 1132
; 1133 if .NODE_ADDR eql 0 then NODE_ADDR = .SCDB [SC_LADDR]; ! Default to local
; 1134 if .NODE_ADDR lequ .SCDB [SC_NODES]
; 1135 then
; 1136 begin
; 1137 NODE_ADDR = .NODE_ADDR - 1;
; 1138 NMT = blockvector [NMT [NMT_BASE], .NODE_ADDR, NMT_BASE; 0, NMT_SIZE];
; 1139 return NMT [NMT_BASE];
; 1140 end;
; 1141 end;
; 1142 [otherwise]:
; 1143 ;
; 1144 tes;
; 1145
; 1146 return 0
; 1147 end;
.SBTTL GET.NODE Network Management
000000 004167 000000G GET.NODE:
JSR R1,$SAVE5 ; 1078
000004 016704 000002G MOV .CRDAT+2,R4 ; 1101
000010 016467 000050 000000G MOV 50(R4),KISAR6 ; 1109
000016 016405 000052 MOV 52(R4),R5 ; *,NMT 1110
000022 010302 MOV R3,R2 ; PARBLK,PARPTR 1111
000024 112246 MOVB (R2)+,-(SP) ; PARPTR,NODE.ADDR 1112
000026 112266 000001 MOVB (R2)+,1(SP) ; PARPTR,NODE.ADDR+1
000032 005003 CLR R3 ; NAME.LEN 1113
000034 152203 BISB (R2)+,R3 ; PARPTR,NAME.LEN
000036 005703 TST R3 ; NAME.LEN 1115
000040 003440 BLE 4$
000042 020327 000006 CMP R3,#6 ; NAME.LEN,*
000046 003034 BGT 3$
000050 010301 MOV R3,R1 ; NAME.LEN,* 1119
000052 004767 177656 JSR PC,CASE.SHIFT
000056 016401 000020 MOV 20(R4),R1 ; 1120
000062 066401 000022 ADD 22(R4),R1
000066 001445 BEQ 7$
000070 105715 1$: TSTB (R5) ; NMT 1122
000072 001416 BEQ 2$
000074 010346 MOV R3,-(SP) ; NAME.LEN,* 1125
000076 010246 MOV R2,-(SP) ; PARPTR,*
000100 111500 MOVB (R5),R0 ; NMT,*
000102 010046 MOV R0,-(SP)
000104 012746 000001 MOV #1,-(SP) ; 1124
000110 060516 ADD R5,(SP) ; NMT,*
000112 005046 CLR -(SP) ; 1125
000114 004767 000000G JSR PC,BL$EQL
000120 062706 000012 ADD #12,SP
000124 006000 ROR R0
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 40
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (15)
000126 103423 BLO 6$ ; 1126
000130 062705 000014 2$: ADD #14,R5 ; *,NMT 1127
000134 077123 SOB R1,1$ ; I,* 0000
000136 000421 BR 7$ ; 1115
000140 005703 3$: TST R3 ; NAME.LEN
000142 001017 4$: BNE 7$
000144 005716 TST (SP) ; NODE.ADDR 1133
000146 001002 BNE 5$
000150 016416 000010 MOV 10(R4),(SP) ; *,NODE.ADDR
000154 021664 000020 5$: CMP (SP),20(R4) ; NODE.ADDR,* 1134
000160 101010 BHI 7$
000162 005316 DEC (SP) ; NODE.ADDR 1137
000164 011601 MOV (SP),R1 ; NODE.ADDR,* 1138
000166 070127 000014 MUL #14,R1
000172 060501 ADD R5,R1 ; NMT,*
000174 010105 MOV R1,R5 ; *,NMT
000176 010500 6$: MOV R5,R0 ; NMT,* 1136
000200 000401 BR 8$
000202 005000 7$: CLR R0 ; 1101
000204 005726 8$: TST (SP)+ ; 1078
000206 000207 RTS PC
; Routine Size: 68 words, Routine Base: $CODE$ + 3254
; Maximum stack depth per invocation: 13 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 41
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (16)
; 1148 routine INSERT_NODE (NMT, CCB) : SC_LKG_NMT_CCB novalue =
; 1149
; 1150 !++
; 1151 ! FUNCTIONAL DESCRIPTION:
; 1152 ! Make room for LNG bytes at PTR in the CCB buffer.
; 1153 !
; 1154 ! FORMAL PARAMETERS:
; 1155 ! NMT NMT for node
; 1156 ! CCB CCB address
; 1157 !
; 1158 ! IMPLICIT INPUTS:
; 1159 ! Mapped to CCB buffer
; 1160 !
; 1161 ! IMPLICIT OUTPUTS:
; 1162 ! None
; 1163 !
; 1164 ! ROUTINE VALUE:
; 1165 ! None
; 1166 !
; 1167 ! SIDE EFFECTS:
; 1168 ! None
; 1169 !--
; 1170 begin
; 1171 map
; 1172 CCB : ref block field (C_NM_FIELDS),
; 1173 NMT : ref block field (NMT_FIELDS);
; 1174 label
; 1175 FIND_NODE;
; 1176 local
; 1177 ADDR,
; 1178 LEN,
; 1179 NODE_ID : vector [byt$allocation (9)];
; 1180 ADDR = .NMT [NMT_ADDR];
; 1181 LEN = .NMT [NMT_NAML];
; 1182 begin
; 1183 local
; 1184 PTR;
; 1185 PTR = byt$ptr (NODE_ID);
; 1186 byt$short_string (NMT [NMT_ADDR], PTR);
; 1187 byt$tiny_string (LEN, PTR);
; 1188 ch$move (.LEN, byt$ptr (NMT [NMT_NAME]), .PTR);
; 1189 end;
; 1190 LEN = .LEN + 3;
; 1191 if .ADDR eql 0 then ADDR = .ADDR - 1;
; 1192 FIND_NODE:
; 1193 begin ! FIND_NODE
; 1194 local
; 1195 CNT,
; 1196 PTR,
; 1197 SAVE_MAP;
; 1198 SMAP$ (SAVE_MAP);
; 1199 MAP$ (.CCB [C_BIAS]);
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 42
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (16)
; 1200 PTR = .CCB [C_ADDR];
; 1201 CNT = .CCB [C_CNT];
; 1202 if .CNT neq 0
; 1203 then
; 1204 while true do
; 1205 begin
; 1206 local TCNT, TEST, TPTR;
; 1207 TPTR = .PTR;
; 1208 byt$string_short (TPTR, TEST);
; 1209 if .TEST gtru .ADDR then exitloop CNT = 0;
; 1210 TCNT = 3 + ch$rchar_a (TPTR);
; 1211 if .TEST eqlu .ADDR then exitloop CNT = .TCNT;
; 1212 PTR = ch$plus (.PTR, .TCNT);
; 1213 if (CNT = .CNT - .TCNT) leq 0 then exitloop CNT = 0;
; 1214 end;
; 1215 begin
; 1216 local
; 1217 DIFFERENCE;
; 1218 DIFFERENCE = .LEN - .CNT;
; 1219 if (CCB [C_STS] = .CCB [C_STS] - .DIFFERENCE) lss 0
; 1220 then
; 1221 leave FIND_NODE;
; 1222 MAKE_ROOM (.CCB, .PTR, .DIFFERENCE);
; 1223 end;
; 1224 ch$move (.LEN, byt$ptr (NODE_ID), .PTR);
; 1225 MAP$ (.SAVE_MAP);
; 1226 end; ! FIND_NODE
; 1227 end;
.SBTTL INSERT.NODE Network Management
000000 004167 000000G INSERT.NODE:
JSR R1,$SAVE5 ; 1148
000004 162706 000014 SUB #14,SP
000010 016103 000010 MOV 10(R1),R3 ; *(NMT),ADDR 1180
000014 111100 MOVB (R1),R0 ; NMT,* 1181
000016 010046 MOV R0,-(SP) ; *,LEN
000020 012702 000004 MOV #4,R2 ; *,PTR 1185
000024 060602 ADD SP,R2 ; NODE.ID,PTR
000026 010300 MOV R3,R0 ; *,NUM 1186
000030 110022 MOVB R0,(R2)+ ; NUM,PTR
000032 000300 SWAB R0 ; NUM
000034 110022 MOVB R0,(R2)+ ; NUM,PTR
000036 111622 MOVB (SP),(R2)+ ; LEN,PTR 1187
000040 011646 MOV (SP),-(SP) ; LEN,* 1188
000042 010146 MOV R1,-(SP) ; NMT,*
000044 005216 INC (SP)
000046 010246 MOV R2,-(SP) ; PTR,*
000050 004767 000000G JSR PC,BL$MOV
000054 062766 000003 000006 ADD #3,6(SP) ; *,LEN 1190
000062 005703 TST R3 ; ADDR 1191
000064 001001 BNE 1$
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 43
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (16)
000066 005303 DEC R3 ; ADDR
000070 016705 000000G 1$: MOV KISAR6,R5 ; *,SAVE.MAP 1198
000074 016467 000016 000000G MOV 16(R4),KISAR6 ; *(CCB),* 1199
000102 016401 000020 MOV 20(R4),R1 ; *(CCB),PTR 1200
000106 016402 000022 MOV 22(R4),R2 ; *(CCB),CNT 1201
000112 001427 BEQ 5$ ; 1202
000114 010100 2$: MOV R1,R0 ; PTR,TPTR 1207
000116 112066 000010 MOVB (R0)+,10(SP) ; TPTR,TEST 1208
000122 112066 000011 MOVB (R0)+,11(SP) ; TPTR,TEST+1
000126 026603 000010 CMP 10(SP),R3 ; TEST,ADDR 1209
000132 101016 BHI 4$
000134 112000 MOVB (R0)+,R0 ; TPTR,TCNT 1210
000136 042700 177400 BIC #177400,R0 ; *,TCNT
000142 062700 000003 ADD #3,R0 ; *,TCNT
000146 026603 000010 CMP 10(SP),R3 ; TEST,ADDR 1211
000152 001002 BNE 3$
000154 010002 MOV R0,R2 ; TCNT,CNT
000156 000405 BR 5$
000160 060001 3$: ADD R0,R1 ; TCNT,PTR 1212
000162 160002 SUB R0,R2 ; TCNT,CNT 1213
000164 000243 .WORD CLV!CLC
000166 003352 BGT 2$
000170 005002 4$: CLR R2 ; CNT
000172 016600 000006 5$: MOV 6(SP),R0 ; LEN,DIFFERENCE 1218
000176 160200 SUB R2,R0 ; CNT,DIFFERENCE
000200 160064 000014 SUB R0,14(R4) ; DIFFERENCE,*(CCB) 1219
000204 100002 BPL 6$
000206 024646 CMP -(SP),-(SP) ; 1221
000210 000414 BR 7$
000212 004767 000000V 6$: JSR PC,MAKE.ROOM ; 1222
000216 016616 000006 MOV 6(SP),(SP) ; LEN,* 1224
000222 012746 000014 MOV #14,-(SP)
000226 060616 ADD SP,(SP) ; NODE.ID,*
000230 010146 MOV R1,-(SP) ; PTR,*
000232 004767 000000G JSR PC,BL$MOV
000236 010567 000000G MOV R5,KISAR6 ; SAVE.MAP,* 1225
000242 062706 000030 7$: ADD #30,SP ; 1148
000246 000207 RTS PC
; Routine Size: 84 words, Routine Base: $CODE$ + 3464
; Maximum stack depth per invocation: 19 words
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 44
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (17)
; 1228 routine MAKE_ROOM (CCB, PTR, LNG) : SC_LKG_CCB_PTR_LNG novalue =
; 1229
; 1230 !++
; 1231 ! FUNCTIONAL DESCRIPTION:
; 1232 ! Make room for LNG bytes at PTR in the CCB buffer.
; 1233 !
; 1234 ! FORMAL PARAMETERS:
; 1235 ! CCB CCB address
; 1236 ! PTR Pointer within CCB buffer
; 1237 ! LNG Number of bytes needed
; 1238 !
; 1239 ! IMPLICIT INPUTS:
; 1240 ! Mapped to CCB buffer
; 1241 !
; 1242 ! IMPLICIT OUTPUTS:
; 1243 ! None
; 1244 !
; 1245 ! ROUTINE VALUE:
; 1246 ! None
; 1247 !
; 1248 ! SIDE EFFECTS:
; 1249 ! None
; 1250 !--
; 1251 begin
; 1252 map CCB: ref block field (C_NM_FIELDS);
; 1253 macro
; M 1254 ch$r_rchar (PTR) =
; M 1255 begin
; M 1256 PTR = .PTR - 1;
; M 1257 ch$rchar (.PTR)
; 1258 end %,
; M 1259 ch$r_wchar (BYT, PTR) =
; M 1260 begin
; M 1261 PTR = .PTR - 1;
; M 1262 ch$wchar (BYT, .PTR);
; 1263 end %;
; 1264 local
; 1265 CNT,
; 1266 TOP_FROM,
; 1267 TOP_TO;
; 1268
; 1269 TOP_FROM = .CCB [C_ADDR];
; 1270 TOP_FROM = ch$plus (.TOP_FROM, .CCB [C_CNT]);
; 1271 CCB [C_CNT] = .CCB [C_CNT] + .LNG;
; 1272 CNT = .TOP_FROM;
; 1273 CNT = ch$diff (.CNT, .PTR);
; 1274 if .CNT eql 0 then return;
; 1275 TOP_TO = .TOP_FROM;
; 1276 TOP_TO = ch$plus (.TOP_TO, .LNG);
; 1277 do ch$r_wchar (ch$r_rchar (TOP_FROM), TOP_TO) while (CNT = .CNT - 1) neq 0;
; 1278 end;
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 45
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (17)
.SBTTL MAKE.ROOM Network Management
000000 004167 000000G MAKE.ROOM:
JSR R1,$SAVE4 ; 1228
000004 016403 000020 MOV 20(R4),R3 ; *(CCB),TOP.FROM 1269
000010 066403 000022 ADD 22(R4),R3 ; *(CCB),TOP.FROM 1270
000014 060064 000022 ADD R0,22(R4) ; LNG,*(CCB) 1271
000020 010302 MOV R3,R2 ; TOP.FROM,CNT 1272
000022 160102 SUB R1,R2 ; PTR,CNT 1273
000024 001404 BEQ 2$ ; 1274
000026 010304 MOV R3,R4 ; TOP.FROM,TOP.TO 1275
000030 060004 ADD R0,R4 ; LNG,TOP.TO 1276
000032 114344 1$: MOVB -(R3),-(R4) ; TOP.FROM,TOP.TO 1277
000034 077202 SOB R2,1$ ; CNT,*
000036 000207 2$: RTS PC ; 1228
; Routine Size: 16 words, Routine Base: $CODE$ + 3734
; Maximum stack depth per invocation: 6 words
; 1279
; 1280 end
; 1281 eludom
; OTS external references
.GLOBL $SAVE5, $SAVE4, $SAVE3, $SAVE2
.GLOBL $STOP, BL$EQL, BL$MOV
; PSECT SUMMARY
;
; Psect Name Words Attributes
; ...... 16 RW , D , LCL, REL, CON
; $PLIT$ 21 RO , D , LCL, REL, CON
; $CODE$ 1022 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<SC>SCPRM.L16.4 262 53 20 0
; NETPKG:<MCB>MCBLIB.L16.15 372 44 11 0
; NETPKG:<MCB>NMXLIB.L16.13 200 70 35 0
; NETPKG:<MCB>XPORTX.L16.15 599 7 1 0
SC1 25-Jan-1983 10:22:58 TOPS-20 Bliss-16 2A(530) Page 46
X01260 Network Management 30-Dec-1982 20:48:17 NETPKG:<SC>SC1.BLI.10 (17)
; Size: 1022 code + 37 data words
; Run Time: 00:19.1
; Elapsed Time: 01:11.1
; Memory Used: 66 pages
; Compilation Complete
ADDR 1177 1180# 1191# 1209 1211
BLISS36 246
BUF_PTR 484 488# 489 687 694# 696 707 734# 735 746 754 771
798 810
BUF_SIZ 926
BYT 1259 1262
BYT$ALLOCATION 742 1179
BYT$PTR 380 475 734 754 755 759 768 781 783 860 1013 1023
1124 1185 1188 1224
BYT$SHORT_STRING 377 1186
BYT$STRING_SHORT 489 696 735 798 810 1112 1208
BYT$STRING_TINY 746 1113
BYT$TINY_STRING 1187
CALL$ 223 224 225 261# 333# 390#
CASE_SHIFT 236 1037* 1119
CCB 261 285 291 295 299 302 304 306 308 316 319 331
443 469 471 478 487 488 496 498 500 502 510 511
512 513 518 546 553 581 588 616 623 651 657 683
685 690 694 695 722 770 826 852 856 858 862 893
894 897 923 924 932# 933# 934# 936 946 959 966 973
999 1001 1003 1005 1034 1035 1148 1172 1199 1200 1201 1219#
1222 1228 1252 1269 1270 1271#
CCBGT$ 721
CH 1063 1072# 1073# 1074
CH$R_RCHAR 1254# 1277
CH$R_WCHAR 1259# 1277
CH$WCHAR 1262
CHAN 765 771 784 1010 1013 1020
CLEAR_EXECUTOR_INCOMING_TIMER 228 500 512 518*
CLEAR_EXECUTOR_OUTGOING_TIMER 229 502 513 553*
CLEAR_NODE_CIRCUIT 230 498 511 588*
CLEAR_NODE_NAME 231 496 510 623*
CLEAR_NODE_PARMS 227 304 443*
CNT 1195 1201# 1202 1209# 1211# 1213# 1218 1265 1272# 1273# 1274 1277#
C_ADDR 488 694 1200 1269
C_BIAS 487 695 770 1199
C_CNT 478 690 932 933 934 1201 1270 1271
C_FIELDS 705
C_FNC 724
C_MOD 291 725
C_NM_ENTITY 295
C_NM_FIELDS 285 469 546 581 616 651 683 852 923 999 1172 1252
C_NM_FUNC 299 316
C_NM_NMPAR 471 685 856 924 1001
C_NM_SELECT 862 936 1005
C_PIX 723
C_STK 722
C_STS 894 932 934 966 1035 1219
DIFFERENCE 1217 1218# 1219 1222
EQLU 1020 1211
FC_XME 724
FIND_NODE 1175 1192 1221
FM_NM 291
GET_NODE 237 371 475 755 768 860 1078*
HOST_ADDR 733 735 736
I 775 942 955 1017 1070 1120
INSERT_NODE 238 946 959 1148*
LCCB 705 721 722# 723# 724# 725# 726
LEN 927 1037 1068 1070 1178 1181# 1187 1188 1190# 1218 1224
LNG 1228 1271 1276
MAKE_ROOM 239 1222 1228*
MAP$ 388 487 490 695 770 772 931 1014 1109 1199 1225
N$EABL 174+#
N$EABO 166+#
N$EABR 167+#
N$ECLS 172+#
N$ECON 163+#
N$ELST 170+#
N$EMTL 171+#
N$ENUR 173+#
N$EOPN 165+#
N$ERES 162+#
N$ERMO 169+#
N$ERUN 175+#
N$ESTE 164+#
N$ETMI 168+#
N$ETRN 176+#
N$FBOM 185+#
N$FCMP 186+#
N$FEOM 184+#
N$FMES 183+#
N$FSEG 182+#
N$HI 158+#
N$LO 177+#
N$SACC 160+#
N$SCC 196+#
N$SCD 200+#
N$SCI 197+#
N$SCL 206+#
N$SCN 207+#
N$SCR 193+#
N$SDIC 204+#
N$SDI 203+#
N$SDN 205+#
N$SDRC 195+#
N$SDR 194+#
N$SNC 199+#
N$SNR 198+#
N$SO 192+#
N$SREJ 159+#
N$SRJ 201+#
N$SRUN 202+#
N$SSUC 161+#
NAME 255#
NAME_LEN 1106 1113 1115 1119 1123
NAML 375 378# 379 380
NAM_LEN 944 945# 957 958#
NEW_NAME 742 754 759
NEW_NAML 743 746 747 754 758 759
NEW_STATE 426 430# 431 866 870# 871
NM$SUC 514 551 586 621 655 717 786 824 968
NMPAR 471# 475 685# 734 755 768 781 856# 860 924# 933 1001#
1013
NMT 366 371# 377 378 380 473 475# 496 498 500 502 510
511 512 513 518 547 549 553 582 584 588 617 619
620# 623 652 654# 744 755# 757 758# 759 767 773# 777
782# 783 784# 785# 789# 854 860# 867 873 875 879 881
882 929 940# 945 946 947# 953# 958 959 960# 1012 1015#
1019 1020 1023 1026# 1107 1110# 1122 1124 1126 1127# 1138# 1139
1148 1173 1180 1181 1186 1188
NMT_ADDR 377 549 584 619 757 867 873 879 882 1180 1186
NMT_BASE 496 498 500 502 510 511 512 513 773 946 959 1015
1126 1138 1139
NMT_CHAN 784 1020
NMT_FIELDS 366 473 547 582 617 652 744 767 854 929 1012 1107
1173
NMT_NAME 380 759 783 1023 1124 1188
NMT_NAML 378 620 654 758 777 782 783 945 958 1019 1023 1122
1124 1181
NMT_NMXID 785 875 881
NMT_SIZE 773 789 929 947 953 960 1015 1026 1127 1138
NMX$ENT_CKT 314
NMX$ENT_HI 295
NMX$ENT_LO 295
NMX$ENT_NOD 297
NMX$FNC_CLR 303
NMX$FNC_HI 299 316
NMX$FNC_LO 299 316
NMX$FNC_RET 307
NMX$FNC_SET 301
NMX$FNC_SHO 305 318
NMX$OBTAIN_CIRCUIT_OWNER 771 1013
NMX$PARAMETER_CIRCUIT 875 881
NMX$SEL_CHA 877
NMX$SEL_HI 1005
NMX$SEL_KNO 938 951
NMX$SEL_LOP 951
NMX$SEL_LO 1005
NMX$SEL_STA 864 1007
NMX$SEL_SUM 864 1007
NMXID 766 771 785 1011 1013
NMX_NMPAR_ENTITY 475 755 768 860
NMX_NMPAR_FIELDS 471 685 856 924 1001
NMX_NMPAR_NODE_ADDRESS 734
NMX_NMPAR_NODE_NAME_LENGTH 781
NMX_NMPAR_OTHER_LENGTH 1013
NMX_NMPAR_RETURN_CNT 933
NM_EXT 223 261*
NM_NOD 224 333*
NM_SIG 225 390*
NODE_ADDR 1105 1112 1133# 1134 1137# 1138
NODE_ID 1179 1185 1224
NODE_ID_PTR 333 369
N_GSTA 130+#
N_GSTS 127+#
N_PCLS 129+#
N_POPN 128+#
N_RCON 145+#
N_RDAT 147+#
N_RDSC 146+#
N_RHI 152+#
N_RINT 148+# 152+
N_SCNF 143+#
N_SCNS 144+#
N_XABT 135+#
N_XACC 132+#
N_XBUF 140+#
N_XCON 131+#
N_XDAT 136+#
N_XDRQ 139+#
N_XDSC 134+#
N_XHI 151+#
N_XINI 141+# 151+ 725
N_XINT 137+#
N_XIRQ 138+#
N_XREJ 133+#
PARAMETER_AI 1023
PARAMETER_C_1 428 429 431 871
PARAMETER_DU_2 886 888
PARBLK 1078 1111
PARM_NUM 485 489 491 688 696 698
PARPTR 1104 1111# 1112 1113 1119 1123
PDVID$ 718 719
PRM1 390 428
PRM2 390 429
PTR 365 369# 371 377 379 380 384 385 780 781# 782 783
928 1037 1066 1184 1185# 1186 1187 1188 1196 1200# 1207 1212#
1222 1224 1228 1254 1256# 1257 1259 1261# 1262 1273
RAD50 245# 718 719
RETURN_NODE_LIST 234 308 897*
SAVE_MAP 364 368 388 484 486 490 1197 1198 1225
SC$_NNM 718
SC$_NNS 719
SC1 1# 255
SCDB 362 416 430 468 496 498 500 502 510 511 512 513
518 545 549 550# 553 580 584 585# 588 615 623 650
682 717 718 719 720# 723 736# 771 772 773 775 802#
814# 851 867 870 875 881 882 885 886 887 888 922
931 940 942 953 955 998 1013 1014 1015 1017 1102 1109
1110 1120 1133 1134
SCF_STAT 430 717 870
SC_HADDR 736
SC_ITIME 550 802 885 886
SC_LADDR 549 584 867 882 1133
SC_LKG_CCB_PTR_LNG 216# 239 1228#
SC_LKG_CCB 215# 227 232 233 234 235 443# 657# 826# 897# 973#
SC_LKG_LEN_PTR 217# 236 1037#
SC_LKG_NMT_CCB 218# 238 1148#
SC_LKG_PTR 219# 237 1078#
SC_LKG_SCDB_NMT_CCB 220# 228 229 230 231 518# 553# 588# 623#
SC_LLINK 720
SC_LOOPS 775 955 1017 1120
SC_NMPIX 718 771 875 881 1013
SC_NMT_ADDR 773 940 953 1015 1110
SC_NMT_BIAS 772 931 1014 1109
SC_NODES 773 942 953 1015 1120 1134
SC_NSPIX 719 723
SC_OTIME 585 814 887 888
SC_TICK 496 498 500 502 510 511 512 513
SET_NODE_PARMS 232 302 657*
SHOW_CIRCUIT_ITEMS 235 319 973*
SHOW_NODE_ITEMS 233 306 826*
SIG_TYPE 390 418
SMAP$ 368 486 1198
STATE 704 707# 708
STATUS 287 289# 331
STR 245 246
S_ST_OFF 712
S_ST_ON 710 717
S_ST_RST 712
S_ST_SHUT 712
TCNT 1206 1210# 1211 1212 1213
TEST 1206 1208 1209 1211
TMP_PTR 1064 1066# 1072 1074
TOP_FROM 1266 1269# 1270# 1272 1275 1277
TOP_TO 1267 1275# 1276# 1277
TPTR 1206 1207# 1208 1210
TRUE 1204
VALUE 797 798 799 802 809 810 811 814
$MCB_PROCESS 255
$MCB_SCHEDULE_CCB 726
$NM$ERR_CWS 619 757 769
$NM$ERR_IPV 715 752 804 816
$NM$ERR_MPE 292 310 321 326
$NM$ERR_NRE 792
$NM$ERR_OPF 692 713
$NM$ERR_PNA 549 584
$NM$ERR_REE 721 970
$NM$ERR_UPT 504 820
$NM$ERR_URC 476 756
$NM_LOG_BEGIN 427
$NM_LOG_END 432
$NM_RESPONSE_BEGIN 858 1003
$NM_RESPONSE_END 893 1034
$SC_DO_CCP 331
$SC_GET_DATA_BASE 362 416 468 545 580 615 650 682 851 922 998 1102