Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/nmx/nmxcce.lst
There is 1 other file named nmxcce.lst in the archive. Click here to see a list.
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 1
3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (1)
; 0001 module NMXCCE ( ! NMX CCP Common
; 0002 ident = 'X01070'
; 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 ! FACILITY: MCB Network Management
; 0029 !
; 0030 ! ABSTRACT:
; 0031 !
; 0032 !
; 0033 !
; 0034 ! ENVIRONMENT: MCB V3.0
; 0035 !
; 0036 ! AUTHOR: Scott G. Robinson CREATION DATE: 14-May-81
; 0037 !
; 0038 ! MODIFIED BY:
; 0039 !
; 0040 ! 02 - Code compression.
; 0041 ! 03 - Modify CCB_STATE values and handling.
; 0042 ! Add call to SC during SHOW CIRCUIT CHARACTERISTICS.
; 0043 ! Alan D. Peckham, 14-Apr-82
; 0044 ! 04 - Complete rework of NM support.
; 0045 ! 05 - Fix GET_ENTITY to stop an operation if unrecognized component.
; 0046 ! Set FORWARD_REQUEST to handle non-existent targets.
; 0047 ! 06 - Disallow SERVICE state for lines and circuits.
; 0048 ! 07 - Send node parameter #2500 to XPT.
; 0049 !--
; 0050
; 0051 !
; 0052 ! INCLUDE FILES:
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 2
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (1)
; 0053 !
; 0054
; 0055 library 'XPORTX';
; 0056
; 0057 library 'MCBLIB';
; 0058
; 0059 library 'NMXPAR';
; 0060
; 0061 library 'NMXLIB';
; 0062
; 0063 !
; 0064 ! TABLE OF CONTENTS:
; 0065 !
; 0066
; 0067 linkage
; 0068 NMX_LKG_CCB = jsr (register = 4),
; 0069 NMX_LKG_CCB__VAL = jsr (register = 4; register = 1),
; 0070 NMX_LKG_DB_CCB_BLK = jsr (register = 5, register = 4, register = 2),
; 0071 NMX_LKG_DB_CCB_ENT = jsr (register = 5, register = 4, register = 3) :
; 0072 nopreserve (4);
; 0073
; 0074 forward routine
; 0075 BADREQ : MCB_DB_CCB novalue,
; 0076 CKTCCP : MCB_DB_CCB novalue,
; 0077 CKTREQ : MCB_DB_CCB novalue,
; 0078 LINCCP : MCB_DB_CCB novalue,
; 0079 LINREQ : MCB_DB_CCB novalue,
; 0080 MODCCP : MCB_DB_CCB novalue,
; 0081 MODREQ : MCB_DB_CCB novalue,
; 0082 NODCCP : MCB_DB_CCB novalue,
; 0083 NODREQ : MCB_DB_CCB novalue,
; 0084 FORWARD_REQUEST : NMX_LKG_DB_CCB_ENT novalue,
; 0085 GET_ENTITY : NMX_LKG_DB_CCB_BLK,
; 0086 GET_ENTITY_LIST : NMX_LKG_DB_CCB_BLK novalue,
; 0087 NEXT_STATE : NMX_LKG_CCB,
; 0088 PARAMETER_NUMBER : NMX_LKG_CCB,
; 0089 REQUEST_COMPLETE : NMX_LKG_CCB novalue,
; 0090 SET_PARAMETER_NUMBER : NMX_LKG_CCB__VAL;
; 0091
; 0092 !
; 0093 ! Literal values
; 0094 !
; 0095
; 0096 literal
; 0097 LINK_ON = 0,
; 0098 LINK_OFF = 1,
; 0099 LINK_SERVICE = 2,
; 0100 LINK_CLEARED = 3;
; 0101
; 0102 !
; 0103 ! Externals
; 0104 !
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 3
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (1)
; 0105
; 0106 external
; 0107 MCB$GAW_PROCESS_DATA_BASE : vector [2],
; 0108 MCB$GW_PROCESS_HANDLE;
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 4
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (2)
; 0109 global routine BADREQ (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0110
; 0111 !++
; 0112 ! FUNCTIONAL DESCRIPTION:
; 0113 !
; 0114 ! Complete an I/O function by returning NE$URC to the user for this IOP.
; 0115 !
; 0116 ! FORMAL PARAMETERS:
; 0117 !
; 0118 ! RIOP - I/O Packet
; 0119 !
; 0120 ! IMPLICIT INPUTS:
; 0121 !
; 0122 ! None
; 0123 !
; 0124 ! IMPLICIT OUTPUTS:
; 0125 !
; 0126 ! None
; 0127 !
; 0128 ! COMPLETION CODES:
; 0129 ! None
; 0130 !
; 0131 ! SIDE EFFECTS:
; 0132 !
; 0133 ! I/O Packet is returned to the user.
; 0134 !--
; 0135
; 0136 begin
; 0137
; 0138 map
; 0139 CCB : ref NMX_CCB_BLOCK,
; 0140 NMXDB : ref NMXDB_BLOCK;
; 0141
; 0142 !
; 0143 ! Complete I/O request with IE_BAD
; 0144 !
; 0145 CCB [C_STS] = $NM$ERR_URC;
; 0146 $NMX_RETURN_NMX_CCB (.CCB);
; 0147 end; !End of BADREQ
.TITLE NMXCCE
.IDENT /X01070/
.GLOBL .CRDAT, .CRPIX, NX.RTC
.SBTTL BADREQ
000000 .PSECT $CODE$, RO
000000 012764 177770 000014 BADREQ::MOV #-10,14(R4) ; *,*(CCB) 0145
000006 004767 000000G JSR PC,NX.RTC ; 0146
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 5
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (2)
000012 000207 RTS PC ; 0109
; Routine Size: 6 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 6
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (3)
; 0148 global routine CKTCCP (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0149
; 0150 !++
; 0151 ! FUNCTIONAL DESCRIPTION:
; 0152 !
; 0153 !
; 0154 !
; 0155 ! FORMAL PARAMETERS:
; 0156 !
; 0157 ! NMXDB - NMX Process Database
; 0158 ! CCB - The CCB to us
; 0159 !
; 0160 ! IMPLICIT INPUTS:
; 0161 !
; 0162 ! None
; 0163 !
; 0164 ! IMPLICIT OUTPUTS:
; 0165 !
; 0166 ! None
; 0167 !
; 0168 ! ROUTINE VALUE:
; 0169 !
; 0170 ! None
; 0171 !
; 0172 ! SIDE EFFECTS:
; 0173 !
; 0174 ! None
; 0175 !--
; 0176
; 0177 begin
; 0178
; 0179 map
; 0180 NMXDB : ref NMXDB_BLOCK,
; 0181 CCB : ref NMX_CCB_BLOCK;
; 0182
; 0183 local
; 0184 CKTBLK : ref NMX_CIRCUIT_BLOCK;
; 0185
; 0186 !
; 0187 ! Setup our data structure pointers and process based upon the
; 0188 ! Network Management Function Code.
; 0189 !
; 0190
; 0191 CKTBLK = GET_ENTITY (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_CIRCUITS]);
; 0192 REQUEST_COMPLETE (.CCB);
; 0193 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0194
; 0195 if .CCB [C_NMX_STATE] eql ST$DON
; 0196 then
; 0197 begin
; 0198
; 0199 local
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 7
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (3)
; 0200 VALUE;
; 0201
; 0202 selectone SET_PARAMETER_NUMBER (.CCB; VALUE) of
; 0203 set
; 0204 [0] : ! Track STATE
; 0205 CKTBLK [LINK_STATE] = .VALUE;
; 0206 [otherwise] :
; 0207 0;
; 0208 tes;
; 0209
; 0210 end;
; 0211
; 0212 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, .CKTBLK);
; 0213 end; !of CKTCCP
.SBTTL CKTCCP
000000 010500 CKTCCP::MOV R5,R0 ; NMXDB,* 0191
000002 062700 000022 ADD #22,R0
000006 010002 MOV R0,R2
000010 004767 000000V JSR PC,GET.ENTITY
000014 010002 MOV R0,R2 ; *,CKTBLK
000016 004767 000000V JSR PC,REQUEST.COMPLETE ; 0192
000022 004767 000000V JSR PC,NEXT.STATE ; 0193
000026 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000032 001006 BNE 1$ ; 0195
000034 004767 000000V JSR PC,SET.PARAMETER.NUMBER ; 0202
000040 005700 TST R0
000042 001002 BNE 1$
000044 110162 000034 MOVB R1,34(R2) ; VALUE,*(CKTBLK) 0205
000050 010203 1$: MOV R2,R3 ; CKTBLK,* 0212
000052 004767 000000V JSR PC,FORWARD.REQUEST
000056 000207 RTS PC ; 0148
; Routine Size: 24 words, Routine Base: $CODE$ + 0014
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 8
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (4)
; 0214 global routine CKTREQ (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0215
; 0216 !++
; 0217 ! FUNCTIONAL DESCRIPTION:
; 0218 !
; 0219 ! Process the I/O Packet dispatched to us by NMX. Convert it to a CCB and
; 0220 ! start processing the request.
; 0221 !
; 0222 ! FORMAL PARAMETERS:
; 0223 !
; 0224 ! CCB -
; 0225 !
; 0226 ! IMPLICIT INPUTS:
; 0227 !
; 0228 ! Miscellaneous NMXDB items
; 0229 !
; 0230 ! IMPLICIT OUTPUTS:
; 0231 !
; 0232 ! Miscellaneous NMXDB items
; 0233 !
; 0234 ! ROUTINE VALUE:
; 0235 !
; 0236 ! None
; 0237 !
; 0238 ! SIDE EFFECTS:
; 0239 !
; 0240 ! None
; 0241 !--
; 0242
; 0243 begin
; 0244
; 0245 map
; 0246 CCB : ref NMX_CCB_BLOCK,
; 0247 NMXDB : ref NMXDB_BLOCK;
; 0248
; 0249 !
; 0250 ! If the function is N$FRET we process it directly.
; 0251 ! If any other function Obtain the appropriate
; 0252 ! CIRCUIT Block from our data base.
; 0253 !
; 0254
; 0255 if .CCB [C_NM_FUNC] neq NMX$FNC_ret
; 0256 then
; 0257 begin
; 0258
; 0259 local
; 0260 CKTBLK : ref NMX_CIRCUIT_BLOCK;
; 0261
; 0262 CKTBLK = GET_ENTITY (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_CIRCUITS]);
; 0263 !
; 0264 ! We have a CIRCUIT Entity block which matches the Entity-Id. Determine
; 0265 ! processing based upon the Network Management Function Code.
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 9
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (4)
; 0266 !
; 0267 begin
; 0268
; 0269 literal
; 0270 STATE_SERVICE = 2;
; 0271
; 0272 local
; 0273 VALUE;
; 0274
; 0275 selectone SET_PARAMETER_NUMBER (.CCB; VALUE) of
; 0276 set
; 0277 [0] : ! Verify STATE
; 0278 selectone .VALUE of
; 0279 set
; 0280 [STATE_SERVICE] :
; 0281 begin
; 0282 CCB [C_STS] = $NM$ERR_IPV;
; 0283 CCB [C_NMX_STATE] = ST$DON;
; 0284 end;
; 0285 [otherwise] :
; 0286 0;
; 0287 tes;
; 0288 [otherwise] :
; 0289 0;
; 0290 tes;
; 0291
; 0292 end;
; 0293 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0294 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, .CKTBLK);
; 0295 end
; 0296 else
; 0297 GET_ENTITY_LIST (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_CIRCUITS]);
; 0298
; 0299 end; !of CKTREQ
.SBTTL CKTREQ
000000 010500 CKTREQ::MOV R5,R0 ; NMXDB,* 0262
000002 062700 000022 ADD #22,R0
000006 116401 000024 MOVB 24(R4),R1 ; *(CCB),* 0255
000012 042701 177401 BIC #177401,R1
000016 020127 000014 CMP R1,#14
000022 001430 BEQ 2$
000024 010002 MOV R0,R2 ; 0262
000026 004767 000000V JSR PC,GET.ENTITY
000032 010002 MOV R0,R2 ; *,CKTBLK
000034 004767 000000V JSR PC,SET.PARAMETER.NUMBER ; 0275
000040 005700 TST R0
000042 001010 BNE 1$
000044 020127 000002 CMP R1,#2 ; VALUE,* 0278
000050 001005 BNE 1$
000052 012764 177760 000014 MOV #-20,14(R4) ; *,*(CCB) 0282
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 10
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (4)
000060 005064 000032 CLR 32(R4) ; *(CCB) 0283
000064 004767 000000V 1$: JSR PC,NEXT.STATE ; 0293
000070 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000074 010203 MOV R2,R3 ; CKTBLK,* 0294
000076 004767 000000V JSR PC,FORWARD.REQUEST
000102 000207 RTS PC ; 0255
000104 010002 2$: MOV R0,R2 ; 0297
000106 004767 000000V JSR PC,GET.ENTITY.LIST
000112 000207 RTS PC ; 0214
; Routine Size: 38 words, Routine Base: $CODE$ + 0074
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 11
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (5)
; 0300 global routine LINCCP (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0301
; 0302 !++
; 0303 ! FUNCTIONAL DESCRIPTION:
; 0304 !
; 0305 ! Process LINE Control Completes; Essentially terminate I/O requests.
; 0306 !
; 0307 ! FORMAL PARAMETERS:
; 0308 !
; 0309 ! NMXDB - NMX Process Database
; 0310 ! CCB - The CCB to us
; 0311 !
; 0312 ! IMPLICIT INPUTS:
; 0313 !
; 0314 ! None
; 0315 !
; 0316 ! IMPLICIT OUTPUTS:
; 0317 !
; 0318 ! None
; 0319 !
; 0320 ! ROUTINE VALUE:
; 0321 !
; 0322 ! None
; 0323 !
; 0324 ! SIDE EFFECTS:
; 0325 !
; 0326 ! None
; 0327 !--
; 0328
; 0329 begin
; 0330
; 0331 map
; 0332 NMXDB : ref NMXDB_BLOCK,
; 0333 CCB : ref NMX_CCB_BLOCK;
; 0334
; 0335 local
; 0336 LINBLK : ref NMX_LINE_BLOCK;
; 0337
; 0338 !
; 0339 ! Setup our data structure pointers and process based upon the
; 0340 ! Network Management Function Code.
; 0341 !
; 0342
; 0343 LINBLK = GET_ENTITY (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_LINES]);
; 0344 REQUEST_COMPLETE (.CCB);
; 0345 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0346
; 0347 if .CCB [C_NMX_STATE] eql ST$DON
; 0348 then
; 0349 begin
; 0350
; 0351 local
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 12
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (5)
; 0352 VALUE;
; 0353
; 0354 selectone SET_PARAMETER_NUMBER (.CCB; VALUE) of
; 0355 set
; 0356 [0] : ! Track STATE
; 0357 LINBLK [LINK_STATE] = .VALUE;
; 0358 [1120] : ! Track SERVICE TIMER
; 0359 begin
; 0360
; 0361 local
; 0362 CKTBLK : ref NMX_CIRCUIT_BLOCK;
; 0363
; 0364 CKTBLK = GET_ENTITY (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_CIRCUITS]);
; 0365
; 0366 if .CKTBLK neqa 0
; 0367 then
; 0368 CKTBLK [CIRCUIT_SERVICE_TIMER] = .VALUE/1000;
; 0369
; 0370 end;
; 0371 [otherwise] :
; 0372 0;
; 0373 tes;
; 0374
; 0375 end;
; 0376
; 0377 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, .LINBLK);
; 0378 end; !of LINCCP
.SBTTL LINCCP
000000 010500 LINCCP::MOV R5,R0 ; NMXDB,* 0343
000002 062700 000012 ADD #12,R0
000006 010002 MOV R0,R2
000010 004767 000000V JSR PC,GET.ENTITY
000014 010003 MOV R0,R3 ; *,LINBLK
000016 004767 000000V JSR PC,REQUEST.COMPLETE ; 0344
000022 004767 000000V JSR PC,NEXT.STATE ; 0345
000026 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000032 001030 BNE 2$ ; 0347
000034 004767 000000V JSR PC,SET.PARAMETER.NUMBER ; 0354
000040 005700 TST R0
000042 001003 BNE 1$
000044 110163 000034 MOVB R1,34(R3) ; VALUE,*(LINBLK) 0357
000050 000421 BR 2$ ; 0354
000052 020027 002140 1$: CMP R0,#2140
000056 001016 BNE 2$
000060 010500 MOV R5,R0 ; NMXDB,* 0364
000062 062700 000022 ADD #22,R0
000066 010002 MOV R0,R2
000070 004767 000000V JSR PC,GET.ENTITY
000074 010002 MOV R0,R2 ; *,CKTBLK
000076 001406 BEQ 2$ ; 0366
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 13
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (5)
000100 005701 TST R1 ; 0368
000102 006700 SXT R0
000104 071027 001750 DIV #1750,R0
000110 010062 000040 MOV R0,40(R2) ; *,*(CKTBLK)
000114 004767 000000V 2$: JSR PC,FORWARD.REQUEST ; 0377
000120 000207 RTS PC ; 0300
; Routine Size: 41 words, Routine Base: $CODE$ + 0210
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 14
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (6)
; 0379 global routine LINREQ (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0380
; 0381 !++
; 0382 ! FUNCTIONAL DESCRIPTION:
; 0383 !
; 0384 ! Convert RSX I/O operation to MCB operation
; 0385 ! on LINE Entities.
; 0386 !
; 0387 ! FORMAL PARAMETERS:
; 0388 !
; 0389 ! IOP - I/O Packet
; 0390 !
; 0391 ! IMPLICIT INPUTS:
; 0392 !
; 0393 ! None
; 0394 !
; 0395 ! IMPLICIT OUTPUTS:
; 0396 !
; 0397 ! None
; 0398 !
; 0399 ! ROUTINE VALUE:
; 0400 !
; 0401 ! None
; 0402 !
; 0403 ! SIDE EFFECTS:
; 0404 !
; 0405 ! None
; 0406 !--
; 0407
; 0408 begin
; 0409
; 0410 map
; 0411 CCB : ref NMX_CCB_BLOCK,
; 0412 NMXDB : ref NMXDB_BLOCK;
; 0413
; 0414 !
; 0415 ! If the function is N$FRET we process it directly.
; 0416 ! If any other function Obtain the appropriate
; 0417 ! LINE Block from our data base.
; 0418 !
; 0419
; 0420 if .CCB [C_NM_FUNC] neq NMX$FNC_ret
; 0421 then
; 0422 begin
; 0423
; 0424 local
; 0425 LINBLK : ref NMX_LINE_BLOCK;
; 0426
; 0427 LINBLK = GET_ENTITY (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_LINES]);
; 0428
; 0429 !
; 0430 ! We have a LINE Entity block which matches the Entity-Id. Determine
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 15
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (6)
; 0431 ! processing based upon the Network Management Function Code.
; 0432 !
; 0433 begin
; 0434
; 0435 literal
; 0436 STATE_SERVICE = 2;
; 0437
; 0438 local
; 0439 VALUE;
; 0440
; 0441 selectone SET_PARAMETER_NUMBER (.CCB; VALUE) of
; 0442 set
; 0443 [0] : ! Verify STATE
; 0444 selectone .VALUE of
; 0445 set
; 0446 [STATE_SERVICE] :
; 0447 begin
; 0448 CCB [C_STS] = $NM$ERR_IPV;
; 0449 CCB [C_NMX_STATE] = ST$DON;
; 0450 end;
; 0451 [otherwise] :
; 0452 0;
; 0453 tes;
; 0454 [otherwise] :
; 0455 0;
; 0456 tes;
; 0457
; 0458 end;
; 0459 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0460 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, .LINBLK);
; 0461 end
; 0462 else
; 0463 GET_ENTITY_LIST (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_LINES]);
; 0464
; 0465 end; !of LINREQ
.SBTTL LINREQ
000000 010500 LINREQ::MOV R5,R0 ; NMXDB,* 0427
000002 062700 000012 ADD #12,R0
000006 116401 000024 MOVB 24(R4),R1 ; *(CCB),* 0420
000012 042701 177401 BIC #177401,R1
000016 020127 000014 CMP R1,#14
000022 001430 BEQ 2$
000024 010002 MOV R0,R2 ; 0427
000026 004767 000000V JSR PC,GET.ENTITY
000032 010002 MOV R0,R2 ; *,LINBLK
000034 004767 000000V JSR PC,SET.PARAMETER.NUMBER ; 0441
000040 005700 TST R0
000042 001010 BNE 1$
000044 020127 000002 CMP R1,#2 ; VALUE,* 0444
000050 001005 BNE 1$
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 16
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (6)
000052 012764 177760 000014 MOV #-20,14(R4) ; *,*(CCB) 0448
000060 005064 000032 CLR 32(R4) ; *(CCB) 0449
000064 004767 000000V 1$: JSR PC,NEXT.STATE ; 0459
000070 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000074 010203 MOV R2,R3 ; LINBLK,* 0460
000076 004767 000000V JSR PC,FORWARD.REQUEST
000102 000207 RTS PC ; 0420
000104 010002 2$: MOV R0,R2 ; 0463
000106 004767 000000V JSR PC,GET.ENTITY.LIST
000112 000207 RTS PC ; 0379
; Routine Size: 38 words, Routine Base: $CODE$ + 0332
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 17
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (7)
; 0466 global routine MODCCP (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0467
; 0468 !++
; 0469 ! FUNCTIONAL DESCRIPTION:
; 0470 !
; 0471 ! Process MODULE Control Completes; Essentially terminate I/O requests.
; 0472 !
; 0473 ! FORMAL PARAMETERS:
; 0474 !
; 0475 ! NMXDB - NMX Process Database
; 0476 ! CCB - The CCB to us
; 0477 !
; 0478 ! IMPLICIT INPUTS:
; 0479 !
; 0480 ! None
; 0481 !
; 0482 ! IMPLICIT OUTPUTS:
; 0483 !
; 0484 ! None
; 0485 !
; 0486 ! ROUTINE VALUE:
; 0487 !
; 0488 ! None
; 0489 !
; 0490 ! SIDE EFFECTS:
; 0491 !
; 0492 ! None
; 0493 !--
; 0494
; 0495 begin
; 0496
; 0497 map
; 0498 NMXDB : ref NMXDB_BLOCK,
; 0499 CCB : ref NMX_CCB_BLOCK;
; 0500
; 0501 local
; 0502 MODBLK : ref NMX_MODULE_BLOCK;
; 0503
; 0504 !
; 0505 ! Setup our data structure pointers and process based upon the
; 0506 ! Network Management Function Code.
; 0507 !
; 0508
; 0509 MODBLK = GET_ENTITY (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_MODULES]);
; 0510 REQUEST_COMPLETE (.CCB);
; 0511 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0512 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, .MODBLK);
; 0513 end; !of MODCCP
.SBTTL MODCCP
000000 010500 MODCCP::MOV R5,R0 ; NMXDB,* 0509
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 18
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (7)
000002 062700 000032 ADD #32,R0
000006 010002 MOV R0,R2
000010 004767 000000V JSR PC,GET.ENTITY
000014 010001 MOV R0,R1 ; *,MODBLK
000016 004767 000000V JSR PC,REQUEST.COMPLETE ; 0510
000022 004767 000000V JSR PC,NEXT.STATE ; 0511
000026 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000032 010103 MOV R1,R3 ; MODBLK,* 0512
000034 004767 000000V JSR PC,FORWARD.REQUEST
000040 000207 RTS PC ; 0466
; Routine Size: 17 words, Routine Base: $CODE$ + 0446
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 19
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (8)
; 0514 global routine MODREQ (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0515
; 0516 !++
; 0517 ! FUNCTIONAL DESCRIPTION:
; 0518 !
; 0519 ! Convert RSX I/O operation to MCB operation
; 0520 ! on MODULE Entities.
; 0521 !
; 0522 ! FORMAL PARAMETERS:
; 0523 !
; 0524 ! IOP - I/O Packet
; 0525 !
; 0526 ! IMPLICIT INPUTS:
; 0527 !
; 0528 ! None
; 0529 !
; 0530 ! IMPLICIT OUTPUTS:
; 0531 !
; 0532 ! None
; 0533 !
; 0534 ! ROUTINE VALUE:
; 0535 !
; 0536 ! None
; 0537 !
; 0538 ! SIDE EFFECTS:
; 0539 !
; 0540 ! None
; 0541 !--
; 0542
; 0543 begin
; 0544
; 0545 map
; 0546 CCB : ref NMX_CCB_BLOCK,
; 0547 NMXDB : ref NMXDB_BLOCK;
; 0548
; 0549 !
; 0550 ! If the function is N$FRET we process it directly.
; 0551 ! If any other function Obtain the appropriate
; 0552 ! MODULE Block from our data base.
; 0553 !
; 0554
; 0555 if .CCB [C_NM_FUNC] neq NMX$FNC_ret
; 0556 then
; 0557 begin
; 0558
; 0559 local
; 0560 MODBLK : ref NMX_MODULE_BLOCK;
; 0561
; 0562 MODBLK = GET_ENTITY (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_MODULES]);
; 0563 !
; 0564 ! We have a LINE Entity block which matches the Entity-Id. Determine
; 0565 ! processing based upon the Network Management Function Code.
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 20
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (8)
; 0566 !
; 0567 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0568 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, .MODBLK);
; 0569 end
; 0570 else
; 0571 GET_ENTITY_LIST (NMXDB [NMX_BASE], .CCB, NMXDB [NMX_MODULES]);
; 0572
; 0573 end; !of MODREQ
.SBTTL MODREQ
000000 010500 MODREQ::MOV R5,R0 ; NMXDB,* 0562
000002 062700 000032 ADD #32,R0
000006 116401 000024 MOVB 24(R4),R1 ; *(CCB),* 0555
000012 042701 177401 BIC #177401,R1
000016 020127 000014 CMP R1,#14
000022 001414 BEQ 1$
000024 010002 MOV R0,R2 ; 0562
000026 004767 000000V JSR PC,GET.ENTITY
000032 010001 MOV R0,R1 ; *,MODBLK
000034 004767 000000V JSR PC,NEXT.STATE ; 0567
000040 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000044 010103 MOV R1,R3 ; MODBLK,* 0568
000046 004767 000000V JSR PC,FORWARD.REQUEST
000052 000207 RTS PC ; 0555
000054 010002 1$: MOV R0,R2 ; 0571
000056 004767 000000V JSR PC,GET.ENTITY.LIST
000062 000207 RTS PC ; 0514
; Routine Size: 26 words, Routine Base: $CODE$ + 0510
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 21
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (9)
; 0574 global routine NODCCP (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0575
; 0576 !++
; 0577 ! FUNCTIONAL DESCRIPTION:
; 0578 !
; 0579 ! Process Control-Completes associated with NODE
; 0580 ! Entities. Either complete the I/O request or
; 0581 ! issue another CCB to advance state.
; 0582 !
; 0583 ! FORMAL PARAMETERS:
; 0584 !
; 0585 ! NMXDB - NMX Process Database
; 0586 ! CCB - The CCB to us
; 0587 !
; 0588 ! IMPLICIT INPUTS:
; 0589 !
; 0590 ! None
; 0591 !
; 0592 ! IMPLICIT OUTPUTS:
; 0593 !
; 0594 ! None
; 0595 !
; 0596 ! ROUTINE VALUE:
; 0597 !
; 0598 ! None
; 0599 !
; 0600 ! SIDE EFFECTS:
; 0601 !
; 0602 ! A CCB may be sent out for another round.
; 0603 !--
; 0604
; 0605 begin
; 0606
; 0607 map
; 0608 NMXDB : ref NMXDB_BLOCK,
; 0609 CCB : ref NMX_CCB_BLOCK;
; 0610
; 0611 REQUEST_COMPLETE (.CCB);
; 0612 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0613
; 0614 if .CCB [C_NMX_STATE] eql ST$DON
; 0615 then
; 0616 begin
; 0617
; 0618 local
; 0619 NODE_NUMBER,
; 0620 VALUE;
; 0621
; 0622 begin
; 0623
; 0624 bind
; 0625 NMPAR = .CCB [C_NM_NMPAR] : block field (NMX_NMPAR_FIELDS);
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 22
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (9)
; 0626
; 0627 byt$string_short (byt$ptr (NMPAR [NMX_NMPAR_ENTITY]), NODE_NUMBER);
; 0628 end;
; 0629
; 0630 selectone SET_PARAMETER_NUMBER (.CCB; VALUE) of
; 0631 set
; 0632 [500] : ! Track NAME
; 0633 selectone .NODE_NUMBER of
; 0634 set
; 0635 [0, .NMXDB [NMX_EXECUTOR_NUMBER]] :
; 0636 begin
; 0637 VALUE = .VALUE<0, 8> + 1;
; P 0638 $MCB_MOVE_BUFFER_TO_BUFFER (.VALUE, (.CCB [C_BIAS], .CCB [C_ADDR]),
; 0639 byt$ptr (NMXDB [NMX_EXECUTOR_NAME]));
; 0640 end;
; 0641 [otherwise] :
; 0642 0;
; 0643 tes;
; 0644 [502] : ! Track ADDRESS
; 0645 begin
; 0646 NMXDB [NMX_EXECUTOR_NUMBER] = .VALUE;
; 0647 %(how do we get the name ?)%
; 0648 end;
; 0649 [otherwise] :
; 0650 0;
; 0651 tes;
; 0652
; 0653 end;
; 0654
; 0655 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, 0);
; 0656 end;
.GLOBL $MVFBF
.SBTTL NODCCP
000000 005746 NODCCP::TST -(SP) ; 0574
000002 004767 000000V JSR PC,REQUEST.COMPLETE ; 0611
000006 004767 000000V JSR PC,NEXT.STATE ; 0612
000012 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000016 001055 BNE 3$ ; 0614
000020 016400 000026 MOV 26(R4),R0 ; *(CCB),* 0627
000024 012701 000004 MOV #4,R1
000030 060001 ADD R0,R1
000032 005211 INC (R1)
000034 011100 MOV (R1),R0
000036 116016 177777 MOVB -1(R0),(SP) ; *,NODE.NUMBER
000042 005211 INC (R1)
000044 011100 MOV (R1),R0
000046 116066 177777 000001 MOVB -1(R0),1(SP) ; *,NODE.NUMBER+1
000054 004767 000000V JSR PC,SET.PARAMETER.NUMBER ; 0630
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 23
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (9)
000060 020027 000764 CMP R0,#764
000064 001025 BNE 2$
000066 011602 MOV (SP),R2 ; NODE.NUMBER,* 0633
000070 001403 BEQ 1$
000072 020265 000042 CMP R2,42(R5) ; *,*(NMXDB)
000076 001025 BNE 3$
000100 042701 177400 1$: BIC #177400,R1 ; *,VALUE 0637
000104 005201 INC R1 ; VALUE
000106 010500 MOV R5,R0 ; NMXDB,* 0639
000110 062700 000044 ADD #44,R0
000114 016446 000016 MOV 16(R4),-(SP) ; *(CCB),*
000120 016446 000020 MOV 20(R4),-(SP) ; *(CCB),*
000124 010002 MOV R0,R2
000126 010103 MOV R1,R3 ; VALUE,*
000130 004767 000000G JSR PC,$MVFBF
000134 022626 CMP (SP)+,(SP)+ ; 0636
000136 000405 BR 3$ ; 0633
000140 020027 000766 2$: CMP R0,#766 ; 0630
000144 001002 BNE 3$
000146 010165 000042 MOV R1,42(R5) ; VALUE,*(NMXDB) 0646
000152 005003 3$: CLR R3 ; 0655
000154 004767 000000V JSR PC,FORWARD.REQUEST
000160 005726 TST (SP)+ ; 0574
000162 000207 RTS PC
; Routine Size: 58 words, Routine Base: $CODE$ + 0574
; Maximum stack depth per invocation: 4 words
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 24
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (10)
; 0657 global routine NODREQ (NMXDB, CCB) : MCB_DB_CCB novalue =
; 0658
; 0659 !++
; 0660 ! FUNCTIONAL DESCRIPTION:
; 0661 !
; 0662 ! Process RSX I/O Packet for the NODE Entity by setting up a CCB
; 0663 ! and sending it to appropriate processes. ! ! FORMAL
; 0664 ! PARAMETERS:
; 0665 !
; 0666 ! IOP - I/O Packet
; 0667 !
; 0668 ! IMPLICIT INPUTS:
; 0669 !
; 0670 ! Miscellaneous NMX Data Base Items
; 0671 !
; 0672 ! IMPLICIT OUTPUTS:
; 0673 !
; 0674 ! None
; 0675 !
; 0676 ! ROUTINE VALUE:
; 0677 !
; 0678 ! None
; 0679 !
; 0680 ! SIDE EFFECTS:
; 0681 !
; 0682 ! The IOP completion could be deferred until processing of
; 0683 ! a CCB completes.
; 0684 !--
; 0685
; 0686 begin
; 0687
; 0688 map
; 0689 CCB : ref NMX_CCB_BLOCK,
; 0690 NMXDB : ref NMXDB_BLOCK;
; 0691
; 0692 !
; 0693 ! The IOP was successfully converted to a CCB format. Determine processing
; 0694 ! based upon the network management function code.
; 0695 !
; 0696
; 0697 CCB [C_NMX_STATE] = NEXT_STATE (.CCB);
; 0698 FORWARD_REQUEST (NMXDB [NMX_BASE], .CCB, 0);
; 0699 end; ! of NODREQ
.SBTTL NODREQ
000000 004767 000000V NODREQ::JSR PC,NEXT.STATE ; 0697
000004 010064 000032 MOV R0,32(R4) ; *,*(CCB)
000010 005003 CLR R3 ; 0698
000012 004767 000000V JSR PC,FORWARD.REQUEST
000016 000207 RTS PC ; 0657
; Routine Size: 8 words, Routine Base: $CODE$ + 0760
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 25
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (10)
; Maximum stack depth per invocation: 1 word
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 26
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (11)
; 0700 routine FORWARD_REQUEST (NMXDB, CCB, GENBLK) : NMX_LKG_DB_CCB_ENT novalue =
; 0701
; 0702 !++
; 0703 ! FUNCTIONAL DESCRIPTION:
; 0704 !
; 0705 ! Set up the next destination for this CCB.
; 0706 !
; 0707 ! FORMAL PARAMETERS:
; 0708 !
; 0709 ! CCB - The CCB to us
; 0710 !
; 0711 ! IMPLICIT INPUTS:
; 0712 !
; 0713 ! None
; 0714 !
; 0715 ! IMPLICIT OUTPUTS:
; 0716 !
; 0717 ! None
; 0718 !
; 0719 ! ROUTINE VALUE:
; 0720 !
; 0721 ! None
; 0722 !
; 0723 ! SIDE EFFECTS:
; 0724 !
; 0725 ! A CCB may be sent out for another round.
; 0726 !--
; 0727
; 0728 begin
; 0729
; 0730 map
; 0731 CCB : ref NMX_CCB_BLOCK,
; 0732 GENBLK : ref NMX_GENERAL_BLOCK,
; 0733 NMXDB : ref NMXDB_BLOCK;
; 0734
; 0735 CCB [C_FNC] = FC_CTL;
; 0736
; 0737 case .CCB [C_NMX_STATE] from ST$LO to ST$HI of
; 0738 set
; 0739 [ST$SC] :
; 0740 CCB [C_NMX_EID] = .NMXDB [NMX_SC_EID];
; 0741 [ST$NSP] :
; 0742 CCB [C_NMX_EID] = .NMXDB [NMX_NSP_EID];
; 0743 [ST$XPT] :
; 0744 CCB [C_NMX_EID] = .NMXDB [NMX_XPT_EID];
; 0745 [ST$OWN] :
; 0746 CCB [C_NMX_EID] = .GENBLK [GENERAL_OWNER_ID];
; 0747 [ST$PRO] :
; 0748 CCB [C_NMX_EID] = .GENBLK [GENERAL_PROVIDER_ID];
; 0749 [inrange] :
; 0750 begin
; 0751 $NMX_RETURN_NMX_CCB (.CCB);
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 27
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (11)
; 0752 return;
; 0753 end;
; 0754 tes;
; 0755
; 0756 if .CCB [C_NMX_EID] eql 0 ! If no destination
; 0757 then ! then
; 0758 begin ! send it back to ourselves.
; 0759 case .CCB [C_NM_FUNC] from NMX$FNC_lo to NMX$FNC_hi of
; 0760 set
; 0761 [NMX$FNC_sho, NMX$FNC_szc, NMX$FNC_ret] :
; 0762 CCB [C_CNT] = 0;
; 0763 [inrange] :
; 0764 0;
; 0765 tes;
; 0766 CCB [C_FNC] = FC_CCP;
; 0767 CCB [C_PIX] = .MCB$GW_PROCESS_HANDLE;
; 0768 end;
; 0769
; 0770 $MCB_SCHEDULE_CCB (.CCB);
; 0771 end;
.GLOBL $SCHED
.SBTTL FORWARD.REQUEST
000000 010346 FORWARD.REQUEST:
MOV R3,-(SP) ; 0700
000002 112764 000010 000012 MOVB #10,12(R4) ; *,*(CCB) 0735
000010 016400 000032 MOV 32(R4),R0 ; *(CCB),* 0737
000014 006300 ASL R0
000016 066007 000000' ADD P.AAA(R0),PC ; Case dispatch
000022 016564 000004 000010 1$: MOV 4(R5),10(R4) ; *(NMXDB),*(CCB) 0740
000030 000423 BR 7$ ; 0737
000032 016564 000006 000010 2$: MOV 6(R5),10(R4) ; *(NMXDB),*(CCB) 0742
000040 000417 BR 7$ ; 0737
000042 016564 000010 000010 3$: MOV 10(R5),10(R4) ; *(NMXDB),*(CCB) 0744
000050 000413 BR 7$ ; 0737
000052 016364 000026 000010 4$: MOV 26(R3),10(R4) ; *(GENBLK),*(CCB) 0746
000060 000407 BR 7$ ; 0737
000062 016364 000024 000010 5$: MOV 24(R3),10(R4) ; *(GENBLK),*(CCB) 0748
000070 000403 BR 7$ ; 0737
000072 004767 000000G 6$: JSR PC,NX.RTC ; 0751
000076 000430 BR 11$ ; 0750
000100 012700 000010 7$: MOV #10,R0 ; 0756
000104 060400 ADD R4,R0 ; CCB,*
000106 005710 TST (R0)
000110 001021 BNE 10$
000112 116403 000024 MOVB 24(R4),R3 ; *(CCB),* 0759
000116 006203 ASR R3
000120 042703 177600 BIC #177600,R3
000124 005303 DEC R3
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 28
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (11)
000126 006303 ASL R3
000130 066307 000016' ADD P.AAB(R3),PC ; Case dispatch
000134 005064 000022 8$: CLR 22(R4) ; *(CCB) 0762
000140 112764 000022 000012 9$: MOVB #22,12(R4) ; *,*(CCB) 0766
000146 116760 000000G 000001 MOVB .CRPIX,1(R0) ; 0767
000154 004767 000000G 10$: JSR PC,$SCHED ; 0770
000160 012603 11$: MOV (SP)+,R3 ; 0700
000162 000207 RTS PC
; Routine Size: 58 words, Routine Base: $CODE$ + 1000
; Maximum stack depth per invocation: 2 words
000000 .PSECT $PLIT$, RO , D
P.AAA: ; CASE Table for FORWARD.REQUEST+0016 0737
000000 000050 .WORD 50 ; [6$]
000002 000050 .WORD 50 ; [6$]
000004 000000 .WORD 0 ; [1$]
000006 000010 .WORD 10 ; [2$]
000010 000020 .WORD 20 ; [3$]
000012 000030 .WORD 30 ; [4$]
000014 000040 .WORD 40 ; [5$]
P.AAB: ; CASE Table for FORWARD.REQUEST+0130 0759
000016 000004 .WORD 4 ; [9$]
000020 000004 .WORD 4 ; [9$]
000022 000004 .WORD 4 ; [9$]
000024 000000 .WORD 0 ; [8$]
000026 000000 .WORD 0 ; [8$]
000030 000000 .WORD 0 ; [8$]
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 29
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (12)
; 0772 routine GET_ENTITY (NMXDB, CCB, ENTBLK) : NMX_LKG_DB_CCB_BLK =
; 0773
; 0774 !++
; 0775 ! FUNCTIONAL DESCRIPTION:
; 0776 !
; 0777 ! Get the entity block for the entity in NMPAR.
; 0778 !
; 0779 ! FORMAL PARAMETERS:
; 0780 !
; 0781 ! .CCB - address of the formatted CCB
; 0782 !
; 0783 ! IMPLICIT INPUTS:
; 0784 !
; 0785 ! Misc GENERAL_BLOCK items
; 0786 !
; 0787 ! IMPLICIT OUTPUTS:
; 0788 !
; 0789 ! None
; 0790 !
; 0791 ! ROUTINE VALUE:
; 0792 !
; 0793 ! Address of entity block descriptor
; 0794 !
; 0795 ! SIDE EFFECTS:
; 0796 !
; 0797 ! None
; 0798 !
; 0799 !--
; 0800
; 0801 begin
; 0802
; 0803 map
; 0804 CCB : ref NMX_CCB_BLOCK,
; 0805 ENTBLK : ref vector,
; 0806 NMXDB : ref NMXDB_BLOCK;
; 0807
; 0808 label
; 0809 LOOK_FOR_ENTITY;
; 0810
; 0811 bind
; 0812 NMPAR = .CCB [C_NM_NMPAR] : block field (NMX_NMPAR_FIELDS);
; 0813
; 0814 LOOK_FOR_ENTITY:
; 0815 begin
; 0816
; 0817 local
; 0818 ENTCNT,
; 0819 ENTADR : ref NMX_GENERAL_BLOCK;
; 0820
; 0821 MAP$ (.ENTBLK [0]);
; 0822 ENTBLK = ENTBLK [1]; %(to force auto-increment)%
; 0823 ENTADR = .ENTBLK [0];
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 30
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (12)
; 0824 ENTBLK = ENTBLK [1]; %(to force auto-increment)%
; 0825 if .ENTADR eqla 0 then leave LOOK_FOR_ENTITY;
; 0826 ENTCNT = .ENTBLK [0];
; 0827 ENTBLK = ENTBLK [1]; %(to force auto-increment)%
; 0828 if .ENTCNT eql 0 then leave LOOK_FOR_ENTITY;
; 0829 !
; 0830 ! Search through Entity BLOCKs looking for a matching one.
; 0831 !
; 0832
; 0833 do
; 0834 begin
; 0835
; 0836 if ch$eql (.ENTADR [GENERAL_NAME_LENGTH] + 1,
; 0837 byt$ptr (ENTADR [GENERAL_NAME]),
; 0838 .ENTADR [GENERAL_NAME_LENGTH] + 1,
; 0839 byt$ptr (NMPAR [NMX_NMPAR_ENTITY]))
; 0840 then return .ENTADR;
; 0841
; 0842 ENTADR = .ENTADR + .ENTBLK [0];
; 0843 end
; 0844 while (ENTCNT = .ENTCNT - 1) neq 0;
; 0845
; 0846 end;
; 0847 CCB [C_STS] = $NM$ERR_URC;
; 0848 CCB [C_NMX_STATE] = ST$DON;
; 0849 return 0
; 0850 end; !of GET_ENTITY
.GLOBL KISAR6
.SBTTL GET.ENTITY
001164 .PSECT $CODE$, RO
000000 004167 000000G GET.ENTITY:
JSR R1,$SAVE5 ; 0772
000004 012267 000000G MOV (R2)+,KISAR6 ; ENTBLK,* 0821
000010 012201 MOV (R2)+,R1 ; ENTBLK,ENTADR 0823
000012 001426 BEQ 3$ ; 0825
000014 012205 MOV (R2)+,R5 ; ENTBLK,ENTCNT 0826
000016 001424 BEQ 3$ ; 0828
000020 111100 1$: MOVB (R1),R0 ; ENTADR,* 0836
000022 005200 INC R0
000024 010046 MOV R0,-(SP) ; 0839
000026 010146 MOV R1,-(SP) ; ENTADR,*
000030 010046 MOV R0,-(SP)
000032 016446 000026 MOV 26(R4),-(SP) ; *(CCB),*
000036 062716 000004 ADD #4,(SP)
000042 005046 CLR -(SP)
000044 004767 000000G JSR PC,BL$EQL
000050 062706 000012 ADD #12,SP
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 31
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (12)
000054 006000 ROR R0
000056 103002 BCC 2$
000060 010100 MOV R1,R0 ; ENTADR,* 0840
000062 000207 RTS PC
000064 061201 2$: ADD (R2),R1 ; ENTBLK,ENTADR 0842
000066 077524 SOB R5,1$ ; ENTCNT,* 0844
000070 012764 177770 000014 3$: MOV #-10,14(R4) ; *,*(CCB) 0847
000076 005064 000032 CLR 32(R4) ; *(CCB) 0848
000102 005000 CLR R0 ; 0801
000104 000207 RTS PC ; 0772
; Routine Size: 35 words, Routine Base: $CODE$ + 1164
; Maximum stack depth per invocation: 12 words
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 32
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (13)
; 0851 routine GET_ENTITY_LIST (NMXDB, CCB, ENTBLK) : NMX_LKG_DB_CCB_BLK novalue =
; 0852
; 0853 !++
; 0854 ! FUNCTIONAL DESCRIPTION:
; 0855 !
; 0856 ! Return to the buffer pointed to by the CCB the entire list of
; 0857 ! Entities in this data base.
; 0858 !
; 0859 ! FORMAL PARAMETERS:
; 0860 !
; 0861 ! .CCB - address of the formatted CCB
; 0862 ! .ENTBLK - address of entity block descriptor
; 0863 !
; 0864 ! IMPLICIT INPUTS:
; 0865 !
; 0866 ! Misc GENERAL_BLOCK items
; 0867 !
; 0868 ! IMPLICIT OUTPUTS:
; 0869 !
; 0870 ! None
; 0871 !
; 0872 ! ROUTINE VALUE:
; 0873 !
; 0874 ! None
; 0875 !
; 0876 ! SIDE EFFECTS:
; 0877 !
; 0878 ! None
; 0879 !
; 0880 !--
; 0881
; 0882 begin
; 0883
; 0884 map
; 0885 CCB : ref NMX_CCB_BLOCK,
; 0886 ENTBLK : ref NMX_ENTITY_BLOCK,
; 0887 NMXDB : ref NMXDB_BLOCK;
; 0888
; 0889 local
; 0890 APR6,
; 0891 GENBLK : ref block field (NMX_GENERAL_FIELDS, NMX_LINK_FIELDS),
; 0892 SELECTOR;
; 0893
; 0894 macro
; M 0895 $return =
; M 0896 begin
; M 0897 MAP$ (.APR6);
; M 0898 $NMX_RETURN_NMX_CCB (.CCB);
; M 0899 return
; 0900 end %;
; 0901
; 0902 !
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 33
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (13)
; 0903 ! Setup to loop through all Entity items
; 0904 !
; 0905 SMAP$ (APR6);
; 0906 MAP$ (.ENTBLK [NMX_ENTITY_BLOCK_BIAS]);
; 0907 CCB [C_NMX_STATE] = ST$DON;
; 0908 CCB [C_STS] = $NM$ERR_OCM;
; 0909 SELECTOR = 0;
; 0910 if .CCB [C_NM_SELECT] eql NMX$SEL_act then SELECTOR = not .SELECTOR;
; 0911 GENBLK = .ENTBLK [NMX_ENTITY_BLOCK_ADDRESS]; ! Start scanning here
; 0912 !
; 0913 ! Loop through all GENERAL_BLOCKS writing the IDs to the user buffer.
; 0914 !
; 0915
; 0916 decru CNT from .ENTBLK [NMX_ENTITY_BLOCK_ENTRIES] to 1
; 0917 do
; 0918 begin
; 0919
; 0920 local
; 0921 LENGTH;
; 0922
; 0923 LENGTH = .GENBLK [GENERAL_NAME_LENGTH]; ! Length of string is first byte
; 0924
; 0925 if (.LENGTH neq 0) and
; 0926 ((.SELECTOR eql 0) or
; 0927 (selectone .GENBLK [LINK_STATE] of
; 0928 set
; 0929 [LINK_ON, LINK_SERVICE] :
; 0930 true; ! Only links in ON or SERVICE state
; 0931 [otherwise] :
; 0932 false; ! otherwise pass this one by.
; 0933 tes))
; 0934 then
; 0935 begin
; 0936 LENGTH = .LENGTH + 1; ! Determine whether next ID fits
; 0937
; 0938 if (CCB [C_CNT] = .CCB [C_CNT] - .LENGTH) lss 0 then $return;
; 0939
; 0940 $MCB_MOVE_BUFFER_TO_BUFFER (.LENGTH, byt$ptr (GENBLK [GENERAL_NAME]), (.CCB [C_BIAS], .CCB [C_ADDR]));
; 0941 CCB [C_ADDR] = ch$plus (.CCB [C_ADDR], .LENGTH);
; 0942 CCB [C_NMX_CNT] = .CCB [C_NMX_CNT] + .LENGTH;
; 0943 end;
; 0944
; 0945 GENBLK = .GENBLK + .ENTBLK [NMX_ENTITY_BLOCK_LENGTH];
; 0946 end;
; 0947
; L 0948 CCB [C_STS] = $NM$_SUC;
; %PRINT: Function Completed Successfuly
; 0949 $return;
; 0950 end; !of GET_ENTITY_LIST
.GLOBL $MVTBF
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 34
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (13)
.SBTTL GET.ENTITY.LIST
000000 004167 000000G GET.ENTITY.LIST:
JSR R1,$SAVE5 ; 0851
000004 005746 TST -(SP)
000006 010246 MOV R2,-(SP)
000010 016746 000000G MOV KISAR6,-(SP) ; *,APR6 0905
000014 011267 000000G MOV (R2),KISAR6 ; 0906
000020 005064 000032 CLR 32(R4) ; *(CCB) 0907
000024 012764 177774 000014 MOV #-4,14(R4) ; *,*(CCB) 0908
000032 005046 CLR -(SP) ; SELECTOR 0909
000034 016400 000024 MOV 24(R4),R0 ; *(CCB),* 0910
000040 042700 007777 BIC #7777,R0
000044 020027 020000 CMP R0,#20000
000050 001001 BNE 1$
000052 005116 COM (SP) ; SELECTOR
000054 016600 000004 1$: MOV 4(SP),R0 ; 0911
000060 016066 000002 000006 MOV 2(R0),6(SP) ; *,GENBLK
000066 016005 000004 MOV 4(R0),R5 ; *,CNT 0916
000072 001445 BEQ 5$
000074 117601 000006 2$: MOVB @6(SP),R1 ; GENBLK,LENGTH 0923
000100 001434 BEQ 4$ ; 0925
000102 005716 TST (SP) ; SELECTOR 0926
000104 001410 BEQ 3$
000106 016602 000006 MOV 6(SP),R2 ; GENBLK,* 0927
000112 116200 000034 MOVB 34(R2),R0 ; *(GENBLK),*
000116 001403 BEQ 3$
000120 020027 000002 CMP R0,#2
000124 001022 BNE 4$
000126 005201 3$: INC R1 ; LENGTH 0936
000130 160164 000022 SUB R1,22(R4) ; LENGTH,*(CCB) 0938
000134 100427 BMI 6$
000136 016446 000016 MOV 16(R4),-(SP) ; *(CCB),* 0940
000142 016446 000020 MOV 20(R4),-(SP) ; *(CCB),*
000146 016602 000012 MOV 12(SP),R2 ; GENBLK,*
000152 010103 MOV R1,R3 ; LENGTH,*
000154 004767 000000G JSR PC,$MVTBF
000160 060164 000020 ADD R1,20(R4) ; LENGTH,*(CCB) 0941
000164 060164 000030 ADD R1,30(R4) ; LENGTH,*(CCB) 0942
000170 022626 CMP (SP)+,(SP)+ ; 0935
000172 016600 000004 4$: MOV 4(SP),R0 ; 0945
000176 066066 000006 000006 ADD 6(R0),6(SP) ; *,GENBLK
000204 077545 SOB R5,2$ ; CNT,* 0000
000206 012764 000001 000014 5$: MOV #1,14(R4) ; *,*(CCB) 0948
000214 016667 000002 000000G 6$: MOV 2(SP),KISAR6 ; APR6,*
000222 004767 000000G JSR PC,NX.RTC
000226 062706 000010 ADD #10,SP ; 0851
000232 000207 RTS PC
; Routine Size: 78 words, Routine Base: $CODE$ + 1272
; Maximum stack depth per invocation: 13 words
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 35
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
; 0951 routine NEXT_STATE (CCB) : NMX_LKG_CCB =
; 0952
; 0953 !++
; 0954 ! FUNCTIONAL DESCRIPTION:
; 0955 !
; 0956 ! Set up the next destination for this CCB.
; 0957 !
; 0958 ! FORMAL PARAMETERS:
; 0959 !
; 0960 ! CCB - The CCB to us
; 0961 !
; 0962 ! IMPLICIT INPUTS:
; 0963 !
; 0964 ! None
; 0965 !
; 0966 ! IMPLICIT OUTPUTS:
; 0967 !
; 0968 ! None
; 0969 !
; 0970 ! ROUTINE VALUE:
; 0971 !
; 0972 ! Next state
; 0973 !
; 0974 ! SIDE EFFECTS:
; 0975 !
; 0976 ! None
; 0977 !--
; 0978
; 0979 begin
; 0980
; 0981 map
; 0982 CCB : ref NMX_CCB_BLOCK;
; 0983
; 0984 literal
; 0985 ST$BAD = ST$DON;
; 0986
; 0987 bind
; 0988 ENTITY = .CCB [C_NM_ENTITY],
; 0989 FUNCTION = .CCB [C_NM_FUNC],
; 0990 SELECTOR = .CCB [C_NM_SELECT],
; 0991 STATE = .CCB [C_NMX_STATE];
; 0992
; 0993 case ENTITY from NMX$ENT_lo to NMX$ENT_hi of
; 0994 set
; 0995 [NMX$ENT_nod] :
; 0996 !
; 0997 ! [Session Control] -> [NSP] -> [Transport] -> Done
; 0998 !
; 0999 case FUNCTION from NMX$FNC_lo to NMX$FNC_hi of
; 1000 set
; 1001 [NMX$FNC_sho] :
; 1002 case STATE from ST$LO to ST$HI of
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 36
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
; 1003 set
; 1004 [ST$INI] :
; 1005 ST$SC;
; 1006 [ST$SC] :
; 1007 ST$NSP;
; 1008 [ST$NSP] :
; 1009 ST$XPT;
; 1010 [ST$XPT] :
; 1011 ST$DON;
; 1012 [inrange] :
; 1013 ST$BAD;
; 1014 tes;
; 1015 [NMX$FNC_set, NMX$FNC_clr] :
; 1016 case STATE from ST$LO to ST$HI of
; 1017 set
; 1018 [ST$INI] :
; 1019 selectone PARAMETER_NUMBER (.CCB) of
; 1020 set
; 1021 [700 to 799] :
; 1022 ST$NSP;
; 1023 [900 to 999, 2500] :
; 1024 ST$XPT;
; 1025 [otherwise] :
; 1026 ST$SC;
; 1027 tes;
; 1028 [inrange] :
; 1029 ST$DON;
; 1030 tes;
; 1031 [NMX$FNC_zro, NMX$FNC_szc] :
; 1032 case STATE from ST$LO to ST$HI of
; 1033 set
; 1034 [ST$INI] :
; 1035 ST$NSP;
; 1036 [ST$NSP] :
; 1037 ST$XPT;
; 1038 [ST$XPT] :
; 1039 ST$DON;
; 1040 [inrange] :
; 1041 ST$BAD;
; 1042 tes;
; 1043 [NMX$FNC_ret] :
; 1044 case SELECTOR from NMX$SEL_lo to NMX$SEL_hi of
; 1045 set
; 1046 [NMX$SEL_kno] :
; 1047 case STATE from ST$LO to ST$HI of
; 1048 set
; 1049 [ST$INI] :
; 1050 ST$XPT;
; 1051 [ST$XPT] :
; 1052 ST$SC;
; 1053 [ST$SC] :
; 1054 ST$DON;
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 37
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
; 1055 [inrange] :
; 1056 ST$BAD;
; 1057 tes;
; 1058 [NMX$SEL_act] :
; 1059 case STATE from ST$LO to ST$HI of
; 1060 set
; 1061 [ST$INI] :
; 1062 ST$XPT;
; 1063 [ST$XPT] :
; 1064 ST$DON;
; 1065 [inrange] :
; 1066 ST$BAD;
; 1067 tes;
; 1068 [NMX$SEL_lop] :
; 1069 case STATE from ST$LO to ST$HI of
; 1070 set
; 1071 [ST$INI] :
; 1072 ST$SC;
; 1073 [ST$SC] :
; 1074 ST$DON;
; 1075 [inrange] :
; 1076 ST$BAD;
; 1077 tes;
; 1078 [inrange] :
; 1079 ST$BAD;
; 1080 tes;
; 1081 [inrange] :
; 1082 ST$BAD;
; 1083 tes;
; 1084 [NMX$ENT_lin] :
; 1085 !
; 1086 ! [Owner] -> [Provider] -> Done
; 1087 !
; 1088 case FUNCTION from NMX$FNC_lo to NMX$FNC_hi of
; 1089 set
; 1090 [NMX$FNC_sho] :
; 1091 case SELECTOR from NMX$SEL_lo to NMX$SEL_hi of
; 1092 set
; 1093 [NMX$SEL_sta, NMX$SEL_sum] :
; 1094 case STATE from ST$LO to ST$HI of
; 1095 set
; 1096 [ST$INI] :
; 1097 ST$OWN;
; 1098 [ST$OWN] :
; 1099 ST$PRO;
; 1100 [ST$PRO] :
; 1101 ST$DON;
; 1102 [inrange] :
; 1103 ST$BAD;
; 1104 tes;
; 1105 [inrange] :
; 1106 case STATE from ST$LO to ST$HI of
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 38
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
; 1107 set
; 1108 [ST$INI] :
; 1109 ST$PRO;
; 1110 [ST$PRO] :
; 1111 ST$DON;
; 1112 [inrange] :
; 1113 ST$BAD;
; 1114 tes;
; 1115 tes;
; 1116 [NMX$FNC_set, NMX$FNC_clr] :
; 1117 case STATE from ST$LO to ST$HI of
; 1118 set
; 1119 [ST$INI] :
; 1120 selectone PARAMETER_NUMBER (.CCB) of
; 1121 set
; 1122 [0] :
; 1123 ST$OWN;
; 1124 [otherwise] :
; 1125 ST$PRO;
; 1126 tes;
; 1127 [ST$OWN] :
; 1128 ST$DON;
; 1129 [ST$PRO] :
; 1130 ST$DON;
; 1131 [inrange] :
; 1132 ST$BAD;
; 1133 tes;
; 1134 [NMX$FNC_zro, NMX$FNC_szc] :
; 1135 case STATE from ST$LO to ST$HI of
; 1136 set
; 1137 [ST$INI] :
; 1138 ST$OWN;
; 1139 [ST$OWN] :
; 1140 ST$PRO;
; 1141 [ST$PRO] :
; 1142 ST$DON;
; 1143 [inrange] :
; 1144 ST$BAD;
; 1145 tes;
; 1146 [inrange] :
; 1147 ST$BAD;
; 1148 tes;
; 1149 [NMX$ENT_ckt] :
; 1150 !
; 1151 ! [Session Control] -> [Owner] -> [Provider] -> Done
; 1152 !
; 1153 case FUNCTION from NMX$FNC_lo to NMX$FNC_hi of
; 1154 set
; 1155 [NMX$FNC_sho] :
; 1156 case STATE from ST$LO to ST$HI of
; 1157 set
; 1158 [ST$INI] :
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 39
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
; 1159 ST$SC;
; 1160 [ST$SC] :
; 1161 ST$OWN;
; 1162 [ST$OWN] :
; 1163 ST$PRO;
; 1164 [ST$PRO] :
; 1165 ST$DON;
; 1166 [inrange] :
; 1167 ST$BAD;
; 1168 tes;
; 1169 [NMX$FNC_set, NMX$FNC_clr] :
; 1170 case STATE from ST$LO to ST$HI of
; 1171 set
; 1172 [ST$INI] :
; 1173 selectone PARAMETER_NUMBER (.CCB) of
; 1174 set
; 1175 [1000 to 1500] :
; 1176 ST$PRO;
; 1177 [otherwise] :
; 1178 ST$OWN;
; 1179 tes;
; 1180 [ST$OWN] :
; 1181 ST$DON;
; 1182 [ST$PRO] :
; 1183 ST$DON;
; 1184 [inrange] :
; 1185 ST$BAD;
; 1186 tes;
; 1187 [NMX$FNC_zro, NMX$FNC_szc] :
; 1188 case STATE from ST$LO to ST$HI of
; 1189 set
; 1190 [ST$INI] :
; 1191 ST$OWN;
; 1192 [ST$OWN] :
; 1193 ST$PRO;
; 1194 [ST$PRO] :
; 1195 ST$DON;
; 1196 [inrange] :
; 1197 ST$BAD;
; 1198 tes;
; 1199 [inrange] :
; 1200 ST$BAD;
; 1201 tes;
; 1202 [NMX$ENT_mod] :
; 1203 !
; 1204 ! [Provider] -> Done
; 1205 !
; 1206 case STATE from ST$LO to ST$HI of
; 1207 set
; 1208 [ST$INI] :
; 1209 ST$PRO;
; 1210 [ST$PRO] :
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 40
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
; 1211 ST$DON;
; 1212 [inrange] :
; 1213 ST$BAD;
; 1214 tes;
; 1215 [inrange] :
; 1216 ST$BAD;
; 1217 tes
; 1218
; 1219 end;
.SBTTL NEXT.STATE
000000 004167 000000G NEXT.STATE:
JSR R1,$SAVE2 ; 0951
000004 012701 000024 MOV #24,R1 ; 0988
000010 060401 ADD R4,R1 ; CCB,*
000012 016400 000032 MOV 32(R4),R0 ; *(CCB),* 0979
000016 011102 MOV (R1),R2 ; 0993
000020 072227 177770 ASH #-10,R2
000024 042702 177760 BIC #177760,R2
000030 005302 DEC R2
000032 006302 ASL R2
000034 066207 000032' ADD P.AAC(R2),PC ; Case dispatch
000040 111102 1$: MOVB (R1),R2 ; 0999
000042 006202 ASR R2
000044 042702 177600 BIC #177600,R2
000050 005302 DEC R2
000052 006302 ASL R2
000054 066207 000044' ADD P.AAD(R2),PC ; Case dispatch
000060 010001 2$: MOV R0,R1 ; 1002
000062 006301 ASL R1
000064 066107 000060' ADD P.AAE(R1),PC ; Case dispatch
000070 000547 3$: BR 29$
000072 010001 4$: MOV R0,R1 ; 1016
000074 006301 ASL R1
000076 066107 000076' ADD P.AAF(R1),PC ; Case dispatch
000102 004767 000000V 5$: JSR PC,PARAMETER.NUMBER ; 1019
000106 020027 001274 CMP R0,#1274
000112 002403 BLT 6$
000114 020027 001437 CMP R0,#1437
000120 003416 BLE 9$
000122 020027 001604 6$: CMP R0,#1604
000126 002403 BLT 7$
000130 020027 001747 CMP R0,#1747
000134 003433 BLE 14$
000136 020027 004704 7$: CMP R0,#4704
000142 001122 BNE 29$
000144 000427 BR 14$
000146 010001 8$: MOV R0,R1 ; 1032
000150 006301 ASL R1
000152 066107 000114' ADD P.AAG(R1),PC ; Case dispatch
000156 012700 000003 9$: MOV #3,R0
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 41
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
000162 000207 RTS PC
000164 011101 10$: MOV (R1),R1 ; 1044
000166 072127 177764 ASH #-14,R1
000172 042701 177760 BIC #177760,R1
000176 005301 DEC R1
000200 006301 ASL R1
000202 066107 000132' ADD P.AAH(R1),PC ; Case dispatch
000206 006300 11$: ASL R0 ; 1047
000210 066007 000142' ADD P.AAI(R0),PC ; Case dispatch
000214 000403 12$: BR 14$
000216 006300 13$: ASL R0 ; 1059
000220 066007 000160' ADD P.AAJ(R0),PC ; Case dispatch
000224 012700 000004 14$: MOV #4,R0
000230 000207 RTS PC
000232 006300 15$: ASL R0 ; 1069
000234 066007 000176' ADD P.AAK(R0),PC ; Case dispatch
000240 000463 16$: BR 29$
000242 111102 17$: MOVB (R1),R2 ; 1088
000244 006202 ASR R2
000246 042702 177600 BIC #177600,R2
000252 005302 DEC R2
000254 006302 ASL R2
000256 066207 000214' ADD P.AAL(R2),PC ; Case dispatch
000262 011101 18$: MOV (R1),R1 ; 1091
000264 072127 177764 ASH #-14,R1
000270 042701 177760 BIC #177760,R1
000274 005301 DEC R1
000276 006301 ASL R1
000300 066107 000230' ADD P.AAM(R1),PC ; Case dispatch
000304 006300 19$: ASL R0 ; 1094
000306 066007 000240' ADD P.AAN(R0),PC ; Case dispatch
000312 000462 20$: BR 33$
000314 006300 21$: ASL R0 ; 1106
000316 066007 000256' ADD P.AAO(R0),PC ; Case dispatch
000322 000464 22$: BR 35$
000324 010001 23$: MOV R0,R1 ; 1117
000326 006301 ASL R1
000330 066107 000274' ADD P.AAP(R1),PC ; Case dispatch
000334 004767 000000V 24$: JSR PC,PARAMETER.NUMBER ; 1120
000340 005700 TST R0
000342 001054 BNE 35$
000344 000445 BR 33$
000346 010001 25$: MOV R0,R1 ; 1135
000350 006301 ASL R1
000352 066107 000312' ADD P.AAQ(R1),PC ; Case dispatch
000356 000440 26$: BR 33$
000360 111101 27$: MOVB (R1),R1 ; 1153
000362 006201 ASR R1
000364 042701 177600 BIC #177600,R1
000370 005301 DEC R1
000372 006301 ASL R1
000374 066107 000330' ADD P.AAR(R1),PC ; Case dispatch
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 42
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
000400 010001 28$: MOV R0,R1 ; 1156
000402 006301 ASL R1
000404 066107 000344' ADD P.AAS(R1),PC ; Case dispatch
000410 012700 000002 29$: MOV #2,R0
000414 000207 RTS PC
000416 010001 30$: MOV R0,R1 ; 1170
000420 006301 ASL R1
000422 066107 000362' ADD P.AAT(R1),PC ; Case dispatch
000426 004767 000000V 31$: JSR PC,PARAMETER.NUMBER ; 1173
000432 020027 001750 CMP R0,#1750
000436 002410 BLT 33$
000440 020027 002734 CMP R0,#2734
000444 003005 BGT 33$
000446 000412 BR 35$
000450 010001 32$: MOV R0,R1 ; 1188
000452 006301 ASL R1
000454 066107 000400' ADD P.AAU(R1),PC ; Case dispatch
000460 012700 000005 33$: MOV #5,R0
000464 000207 RTS PC
000466 006300 34$: ASL R0 ; 1206
000470 066007 000416' ADD P.AAV(R0),PC ; Case dispatch
000474 012700 000006 35$: MOV #6,R0
000500 000207 RTS PC
000502 005000 36$: CLR R0 ; 0993
000504 000207 RTS PC ; 0951
; Routine Size: 163 words, Routine Base: $CODE$ + 1526
; Maximum stack depth per invocation: 4 words
000032 .PSECT $PLIT$, RO , D
P.AAC: ; CASE Table for NEXT.STATE+0034 0993
000032 000000 .WORD 0 ; [1$]
000034 000202 .WORD 202 ; [17$]
000036 000442 .WORD 442 ; [36$]
000040 000320 .WORD 320 ; [27$]
000042 000426 .WORD 426 ; [34$]
P.AAD: ; CASE Table for NEXT.STATE+0054 0999
000044 000012 .WORD 12 ; [4$]
000046 000012 .WORD 12 ; [4$]
000050 000066 .WORD 66 ; [8$]
000052 000000 .WORD 0 ; [2$]
000054 000066 .WORD 66 ; [8$]
000056 000104 .WORD 104 ; [10$]
P.AAE: ; CASE Table for NEXT.STATE+0064 1002
000060 000412 .WORD 412 ; [36$]
000062 000320 .WORD 320 ; [29$]
000064 000066 .WORD 66 ; [9$]
000066 000134 .WORD 134 ; [14$]
000070 000412 .WORD 412 ; [36$]
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 43
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
000072 000412 .WORD 412 ; [36$]
000074 000412 .WORD 412 ; [36$]
P.AAF: ; CASE Table for NEXT.STATE+0076 1016
000076 000400 .WORD 400 ; [36$]
000100 000000 .WORD 0 ; [5$]
000102 000400 .WORD 400 ; [36$]
000104 000400 .WORD 400 ; [36$]
000106 000400 .WORD 400 ; [36$]
000110 000400 .WORD 400 ; [36$]
000112 000400 .WORD 400 ; [36$]
P.AAG: ; CASE Table for NEXT.STATE+0152 1032
000114 000324 .WORD 324 ; [36$]
000116 000000 .WORD 0 ; [9$]
000120 000324 .WORD 324 ; [36$]
000122 000046 .WORD 46 ; [14$]
000124 000324 .WORD 324 ; [36$]
000126 000324 .WORD 324 ; [36$]
000130 000324 .WORD 324 ; [36$]
P.AAH: ; CASE Table for NEXT.STATE+0202 1044
000132 000000 .WORD 0 ; [11$]
000134 000010 .WORD 10 ; [13$]
000136 000024 .WORD 24 ; [15$]
000140 000274 .WORD 274 ; [36$]
P.AAI: ; CASE Table for NEXT.STATE+0210 1047
000142 000266 .WORD 266 ; [36$]
000144 000010 .WORD 10 ; [14$]
000146 000266 .WORD 266 ; [36$]
000150 000266 .WORD 266 ; [36$]
000152 000174 .WORD 174 ; [29$]
000154 000266 .WORD 266 ; [36$]
000156 000266 .WORD 266 ; [36$]
P.AAJ: ; CASE Table for NEXT.STATE+0220 1059
000160 000256 .WORD 256 ; [36$]
000162 000000 .WORD 0 ; [14$]
000164 000256 .WORD 256 ; [36$]
000166 000256 .WORD 256 ; [36$]
000170 000256 .WORD 256 ; [36$]
000172 000256 .WORD 256 ; [36$]
000174 000256 .WORD 256 ; [36$]
P.AAK: ; CASE Table for NEXT.STATE+0234 1069
000176 000242 .WORD 242 ; [36$]
000200 000150 .WORD 150 ; [29$]
000202 000242 .WORD 242 ; [36$]
000204 000242 .WORD 242 ; [36$]
000206 000242 .WORD 242 ; [36$]
000210 000242 .WORD 242 ; [36$]
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 44
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
000212 000242 .WORD 242 ; [36$]
P.AAL: ; CASE Table for NEXT.STATE+0256 1088
000214 000042 .WORD 42 ; [23$]
000216 000042 .WORD 42 ; [23$]
000220 000064 .WORD 64 ; [25$]
000222 000000 .WORD 0 ; [18$]
000224 000064 .WORD 64 ; [25$]
000226 000220 .WORD 220 ; [36$]
P.AAM: ; CASE Table for NEXT.STATE+0300 1091
000230 000000 .WORD 0 ; [19$]
000232 000000 .WORD 0 ; [19$]
000234 000010 .WORD 10 ; [21$]
000236 000010 .WORD 10 ; [21$]
P.AAN: ; CASE Table for NEXT.STATE+0306 1094
000240 000170 .WORD 170 ; [36$]
000242 000146 .WORD 146 ; [33$]
000244 000170 .WORD 170 ; [36$]
000246 000170 .WORD 170 ; [36$]
000250 000170 .WORD 170 ; [36$]
000252 000162 .WORD 162 ; [35$]
000254 000170 .WORD 170 ; [36$]
P.AAO: ; CASE Table for NEXT.STATE+0316 1106
000256 000160 .WORD 160 ; [36$]
000260 000152 .WORD 152 ; [35$]
000262 000160 .WORD 160 ; [36$]
000264 000160 .WORD 160 ; [36$]
000266 000160 .WORD 160 ; [36$]
000270 000160 .WORD 160 ; [36$]
000272 000160 .WORD 160 ; [36$]
P.AAP: ; CASE Table for NEXT.STATE+0330 1117
000274 000146 .WORD 146 ; [36$]
000276 000000 .WORD 0 ; [24$]
000300 000146 .WORD 146 ; [36$]
000302 000146 .WORD 146 ; [36$]
000304 000146 .WORD 146 ; [36$]
000306 000146 .WORD 146 ; [36$]
000310 000146 .WORD 146 ; [36$]
P.AAQ: ; CASE Table for NEXT.STATE+0352 1135
000312 000124 .WORD 124 ; [36$]
000314 000102 .WORD 102 ; [33$]
000316 000124 .WORD 124 ; [36$]
000320 000124 .WORD 124 ; [36$]
000322 000124 .WORD 124 ; [36$]
000324 000116 .WORD 116 ; [35$]
000326 000124 .WORD 124 ; [36$]
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 45
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (14)
P.AAR: ; CASE Table for NEXT.STATE+0374 1153
000330 000016 .WORD 16 ; [30$]
000332 000016 .WORD 16 ; [30$]
000334 000050 .WORD 50 ; [32$]
000336 000000 .WORD 0 ; [28$]
000340 000050 .WORD 50 ; [32$]
000342 000102 .WORD 102 ; [36$]
P.AAS: ; CASE Table for NEXT.STATE+0404 1156
000344 000072 .WORD 72 ; [36$]
000346 000000 .WORD 0 ; [29$]
000350 000050 .WORD 50 ; [33$]
000352 000072 .WORD 72 ; [36$]
000354 000072 .WORD 72 ; [36$]
000356 000064 .WORD 64 ; [35$]
000360 000072 .WORD 72 ; [36$]
P.AAT: ; CASE Table for NEXT.STATE+0422 1170
000362 000054 .WORD 54 ; [36$]
000364 000000 .WORD 0 ; [31$]
000366 000054 .WORD 54 ; [36$]
000370 000054 .WORD 54 ; [36$]
000372 000054 .WORD 54 ; [36$]
000374 000054 .WORD 54 ; [36$]
000376 000054 .WORD 54 ; [36$]
P.AAU: ; CASE Table for NEXT.STATE+0454 1188
000400 000022 .WORD 22 ; [36$]
000402 000000 .WORD 0 ; [33$]
000404 000022 .WORD 22 ; [36$]
000406 000022 .WORD 22 ; [36$]
000410 000022 .WORD 22 ; [36$]
000412 000014 .WORD 14 ; [35$]
000414 000022 .WORD 22 ; [36$]
P.AAV: ; CASE Table for NEXT.STATE+0470 1206
000416 000006 .WORD 6 ; [36$]
000420 000000 .WORD 0 ; [35$]
000422 000006 .WORD 6 ; [36$]
000424 000006 .WORD 6 ; [36$]
000426 000006 .WORD 6 ; [36$]
000430 000006 .WORD 6 ; [36$]
000432 000006 .WORD 6 ; [36$]
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 46
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (15)
; 1220 routine PARAMETER_NUMBER (CCB) : NMX_LKG_CCB =
; 1221
; 1222 !++
; 1223 ! FUNCTIONAL DESCRIPTION:
; 1224 !
; 1225 ! Get the number of the parameter being set/cleared
; 1226 !
; 1227 ! FORMAL PARAMETERS:
; 1228 !
; 1229 ! None
; 1230 !
; 1231 ! IMPLICIT INPUTS:
; 1232 !
; 1233 ! None
; 1234 !
; 1235 ! IMPLICIT OUTPUTS:
; 1236 !
; 1237 ! None
; 1238 !
; 1239 ! ROUTINE VALUE:
; 1240 !
; 1241 ! None
; 1242 !
; 1243 ! SIDE EFFECTS:
; 1244 !
; 1245 ! None
; 1246 !--
; 1247
; 1248 begin
; 1249
; 1250 map
; 1251 CCB : ref NMX_CCB_BLOCK;
; 1252
; 1253 stacklocal
; 1254 PARNUM,
; 1255 SAVE_MAP;
; 1256
; 1257 PARNUM = -1;
; 1258 SMAP$ (SAVE_MAP);
; 1259
; 1260 if .CCB [C_CNT] gtr 0
; 1261 then
; 1262 begin
; 1263
; 1264 local
; 1265 PTR;
; 1266
; 1267 MAP$ (.CCB [C_BIAS]);
; 1268 PTR = .CCB [C_ADDR];
; 1269 byt$string_short (PTR, PARNUM);
; 1270 end;
; 1271
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 47
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (15)
; 1272 MAP$ (.SAVE_MAP);
; 1273 .PARNUM
; 1274 end; !of PARAMETER_NUMBER
.SBTTL PARAMETER.NUMBER
002234 .PSECT $CODE$, RO
000000 012746 177777 PARAMETER.NUMBER:
MOV #-1,-(SP) ; *,PARNUM 1257
000004 016746 000000G MOV KISAR6,-(SP) ; *,SAVE.MAP 1258
000010 005764 000022 TST 22(R4) ; *(CCB) 1260
000014 003411 BLE 1$
000016 016467 000016 000000G MOV 16(R4),KISAR6 ; *(CCB),* 1267
000024 016400 000020 MOV 20(R4),R0 ; *(CCB),PTR 1268
000030 112066 000002 MOVB (R0)+,2(SP) ; PTR,PARNUM 1269
000034 112066 000003 MOVB (R0)+,3(SP) ; PTR,PARNUM+1
000040 011667 000000G 1$: MOV (SP),KISAR6 ; SAVE.MAP,* 1272
000044 016600 000002 MOV 2(SP),R0 ; PARNUM,* 1273
000050 022626 CMP (SP)+,(SP)+ ; 1220
000052 000207 RTS PC
; Routine Size: 22 words, Routine Base: $CODE$ + 2234
; Maximum stack depth per invocation: 2 words
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 48
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (16)
; 1275 routine REQUEST_COMPLETE (CCB) : NMX_LKG_CCB novalue =
; 1276
; 1277 !++
; 1278 ! FUNCTIONAL DESCRIPTION:
; 1279 !
; 1280 ! Process function completion
; 1281 !
; 1282 ! FORMAL PARAMETERS:
; 1283 !
; 1284 ! CCB - The CCB to us
; 1285 !
; 1286 ! IMPLICIT INPUTS:
; 1287 !
; 1288 ! None
; 1289 !
; 1290 ! IMPLICIT OUTPUTS:
; 1291 !
; 1292 ! None
; 1293 !
; 1294 ! ROUTINE VALUE:
; 1295 !
; 1296 ! None
; 1297 !
; 1298 ! SIDE EFFECTS:
; 1299 !
; 1300 ! None
; 1301 !--
; 1302
; 1303 begin
; 1304
; 1305 map
; 1306 CCB : ref NMX_CCB_BLOCK;
; 1307
; L 1308 if .CCB [C_STS] neq $NM$_SUC then CCB [C_NMX_STATE] = ST$DON;
; %PRINT: Function Completed Successfuly
; 1309
; 1310 !
; 1311 ! Update buffer ptr/cnt for returned data
; 1312 !
; 1313 case .CCB [C_NM_FUNC] from NMX$FNC_lo to NMX$FNC_hi of
; 1314 set
; 1315 [NMX$FNC_sho, NMX$FNC_szc] :
; 1316 begin
; 1317 bind
; 1318 IOP = .CCB [C_NMX_IOP] : NMX_IOP_BLOCK;
; 1319 CCB [C_NMX_CNT] = .CCB [C_NMX_CNT] + .CCB [C_CNT];
; 1320 CCB [C_ADDR] = ch$plus (.CCB [C_ADDR], .CCB [C_CNT]);
; 1321 CCB [C_CNT] = .IOP [I_NMX_CNT] - .CCB [C_NMX_CNT];
; 1322 end;
; 1323 [NMX$FNC_ret] :
; 1324 begin
; 1325 bind
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 49
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (16)
; 1326 IOP = .CCB [C_NMX_IOP] : NMX_IOP_BLOCK,
; 1327 NMPAR = .CCB [C_NM_NMPAR] : block field (NMX_NMPAR_FIELDS);
; 1328 CCB [C_NMX_CNT] = .CCB [C_CNT];
; 1329 NMPAR [NMX_NMPAR_RETURN_CNT] = .CCB [C_CNT];
; 1330 CCB [C_ADDR] = .IOP [I_NMX_ADDR]; ! TEMPORARY for XPT
; 1331 CCB [C_CNT] = .IOP [I_NMX_CNT];
; 1332 end;
; 1333 [inrange] :
; 1334 0;
; 1335 tes;
; 1336
; 1337 end;
.SBTTL REQUEST.COMPLETE
000000 004167 000000G REQUEST.COMPLETE:
JSR R1,$SAVE2 ; 1275
000004 026427 000014 000001 CMP 14(R4),#1 ; *(CCB),* 1308
000012 001402 BEQ 1$
000014 005064 000032 CLR 32(R4) ; *(CCB)
000020 116400 000024 1$: MOVB 24(R4),R0 ; *(CCB),* 1313
000024 006200 ASR R0
000026 042700 177600 BIC #177600,R0
000032 005300 DEC R0
000034 006300 ASL R0
000036 066007 000434' ADD P.AAW(R0),PC ; Case dispatch
000042 016400 000034 2$: MOV 34(R4),R0 ; *(CCB),* 1316
000046 012701 000022 MOV #22,R1 ; 1319
000052 060401 ADD R4,R1 ; CCB,*
000054 061164 000030 ADD (R1),30(R4) ; *,*(CCB)
000060 061164 000020 ADD (R1),20(R4) ; *,*(CCB) 1320
000064 016002 000030 MOV 30(R0),R2 ; 1321
000070 166402 000030 SUB 30(R4),R2 ; *(CCB),*
000074 010211 MOV R2,(R1)
000076 000207 RTS PC ; 1313
000100 016401 000034 3$: MOV 34(R4),R1 ; *(CCB),* 1324
000104 016400 000026 MOV 26(R4),R0 ; *(CCB),*
000110 012702 000022 MOV #22,R2 ; 1328
000114 060402 ADD R4,R2 ; CCB,*
000116 011264 000030 MOV (R2),30(R4) ; *,*(CCB)
000122 011260 000004 MOV (R2),4(R0) ; 1329
000126 016164 000026 000020 MOV 26(R1),20(R4) ; *,*(CCB) 1330
000134 016112 000030 MOV 30(R1),(R2) ; 1331
000140 000207 4$: RTS PC ; 1275
; Routine Size: 49 words, Routine Base: $CODE$ + 2310
; Maximum stack depth per invocation: 4 words
000434 .PSECT $PLIT$, RO , D
P.AAW: ; CASE Table for REQUEST.COMPLET+0036 1313
000434 000076 .WORD 76 ; [4$]
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 50
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (16)
000436 000076 .WORD 76 ; [4$]
000440 000076 .WORD 76 ; [4$]
000442 000000 .WORD 0 ; [2$]
000444 000000 .WORD 0 ; [2$]
000446 000036 .WORD 36 ; [3$]
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 51
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (17)
; 1338 routine SET_PARAMETER_NUMBER (CCB; VALUE) : NMX_LKG_CCB__VAL =
; 1339
; 1340 !++
; 1341 ! FUNCTIONAL DESCRIPTION:
; 1342 !
; 1343 ! Get the number of the parameter being set/cleared
; 1344 !
; 1345 ! FORMAL PARAMETERS:
; 1346 !
; 1347 ! None
; 1348 !
; 1349 ! IMPLICIT INPUTS:
; 1350 !
; 1351 ! None
; 1352 !
; 1353 ! IMPLICIT OUTPUTS:
; 1354 !
; 1355 ! None
; 1356 !
; 1357 ! ROUTINE VALUE:
; 1358 !
; 1359 ! None
; 1360 !
; 1361 ! SIDE EFFECTS:
; 1362 !
; 1363 ! None
; 1364 !--
; 1365
; 1366 begin
; 1367
; 1368 map
; 1369 CCB : ref NMX_CCB_BLOCK;
; 1370
; 1371 macro
; M 1372 $return =
; M 1373 begin
; M 1374 MAP$ (.SAVE_MAP);
; M 1375 return .PARNUM
; 1376 end %;
; 1377
; 1378 stacklocal
; 1379 PARNUM,
; 1380 SAVE_MAP;
; 1381
; 1382 PARNUM = -1;
; 1383 SMAP$ (SAVE_MAP);
; 1384
; 1385 if .CCB [C_NM_FUNC] neq NMX$FNC_set then $return;
; 1386
; L 1387 if .CCB [C_STS] neq $NM$_SUC then $return;
; %PRINT: Function Completed Successfuly
; 1388
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 52
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (17)
; 1389 if .CCB [C_CNT] eql 0 then $return;
; 1390
; 1391 begin
; 1392
; 1393 local
; 1394 PTR;
; 1395
; 1396 MAP$ (.CCB [C_BIAS]);
; 1397 PTR = .CCB [C_ADDR];
; 1398 byt$string_short (PTR, PARNUM);
; 1399 byt$string_short (PTR, VALUE);
; 1400 end;
; 1401 MAP$ (.SAVE_MAP);
; 1402 .PARNUM
; 1403 end; !of SET_PARAMETER_NUMBER
.SBTTL SET.PARAMETER.NUMBER
002452 .PSECT $CODE$, RO
000000 162706 000006 SET.PARAMETER.NUMBER:
SUB #6,SP ; 1338
000004 012766 177777 000004 MOV #-1,4(SP) ; *,PARNUM 1382
000012 016766 000000G 000002 MOV KISAR6,2(SP) ; *,SAVE.MAP 1383
000020 116400 000024 MOVB 24(R4),R0 ; *(CCB),* 1385
000024 042700 177401 BIC #177401,R0
000030 020027 000002 CMP R0,#2
000034 001023 BNE 1$
000036 026427 000014 000001 CMP 14(R4),#1 ; *(CCB),* 1387
000044 001017 BNE 1$
000046 005764 000022 TST 22(R4) ; *(CCB) 1389
000052 001414 BEQ 1$
000054 016467 000016 000000G MOV 16(R4),KISAR6 ; *(CCB),* 1396
000062 016400 000020 MOV 20(R4),R0 ; *(CCB),PTR 1397
000066 112066 000004 MOVB (R0)+,4(SP) ; PTR,PARNUM 1398
000072 112066 000005 MOVB (R0)+,5(SP) ; PTR,PARNUM+1
000076 112016 MOVB (R0)+,(SP) ; PTR,VALUE 1399
000100 112066 000001 MOVB (R0)+,1(SP) ; PTR,VALUE+1
000104 016667 000002 000000G 1$: MOV 2(SP),KISAR6 ; SAVE.MAP,* 1401
000112 016600 000004 MOV 4(SP),R0 ; PARNUM,* 1402
000116 012601 MOV (SP)+,R1 ; VALUE,* 1338
000120 022626 CMP (SP)+,(SP)+
000122 000207 RTS PC
; Routine Size: 42 words, Routine Base: $CODE$ + 2452
; Maximum stack depth per invocation: 3 words
; 1404
; 1405 end
; 1406
; 1407 eludom
NMXCCE 25-Jan-1983 09:25:47 TOPS-20 Bliss-16 3(552) Page 53
X01070 3-Jan-1983 18:44:59 NETPKG:<NMX>NMXCCE.BLI.8 (17)
; OTS external references
.GLOBL $SAVE5, $SAVE2, BL$EQL
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 703 RO , I , LCL, REL, CON
; $PLIT$ 148 RO , D , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<MCB>XPORTX.L16.15 599 3 0 0
; NETPKG:<MCB>MCBLIB.L16.15 372 30 8 0
; NETPKG:<NMX>NMXPAR.L16.30 968 136 14 0
; NETPKG:<MCB>NMXLIB.L16.13 200 45 22 0
; 1408 ! Local Modes:
; 1409 ! Comment Column:36
; 1410 ! Comment Start:!
; 1411 ! Mode:BLISS
; 1412 ! Auto Save Mode:2
; 1413 ! End:
; Size: 703 code + 148 data words
; Run Time: 00:14.8
; Elapsed Time: 00:48.6
; Memory Used: 59 pages
; Compilation Complete
APR6 890 897 905
BADREQ 75 109*
BYT$PTR 627 639 837 839 940
BYT$STRING_SHORT 627 1269 1398 1399
CCB 109 139 145# 146 148 181 191 192 193# 195 202 212
214 246 255 262 275 282# 283# 293# 294 297 300 333
343 344 345# 347 354 364 377 379 411 420 427 441
448# 449# 459# 460 463 466 499 509 510 511# 512 514
546 555 562 567# 568 571 574 609 611 612# 614 625
630 638 655 657 689 697# 698 700 731 735# 737 740#
742# 744# 746# 748# 751 756 759 762# 766# 767# 770 772
804 812 847# 848# 851 885 898 907# 908# 910 938# 940
941# 942# 948# 951 982 988 989 990 991 1019 1120 1173
1220 1251 1260 1267 1268 1275 1306 1308# 1313 1318 1319# 1320#
1321# 1326 1327 1328# 1329 1330# 1331# 1338 1369 1385 1387 1389
1396 1397
CIRCUIT_SERVICE_TIMER 368
CKTBLK 184 191# 205# 212 260 262# 294 362 364# 366 368#
CKTCCP 76 148*
CKTREQ 77 214*
CNT 916
C_ADDR 638 940 941 1268 1320 1330 1397
C_BIAS 638 940 1267 1396
C_CNT 762 938 1260 1319 1320 1321 1328 1329 1331 1389
C_FNC 735 766
C_NMX_CNT 942 1319 1321 1328
C_NMX_EID 740 742 744 746 748 756
C_NMX_IOP 1318 1326
C_NMX_STATE 193 195 283 293 345 347 449 459 511 567 612 614
697 737 848 907 991 1308
C_NM_ENTITY 988
C_NM_FUNC 255 420 555 759 989 1313 1385
C_NM_NMPAR 625 812 1327
C_NM_SELECT 910 990
C_PIX 767
C_STS 145 282 448 847 908 948 1308 1387
ENTADR 819 823# 825 836 837 838 840 842#
ENTBLK 772 805 821 822# 823 824# 826 827# 842 851 886 906
911 916# 945
ENTCNT 818 826# 828 844#
ENTITY 988# 993
FALSE 932
FC_CCP 766
FC_CTL 735
FORWARD_REQUEST 84 212 294 377 460 512 568 655 698 700*
FUNCTION 989# 999 1088 1153
GENBLK 700 732 746 748 891 911# 923# 927 940 945#
GENERAL_NAME 837 940
GENERAL_NAME_LENGTH 836 838 923
GENERAL_OWNER_ID 746
GENERAL_PROVIDER_ID 748
GET_ENTITY_LIST 86 297 463 571 851*
GET_ENTITY 85 191 262 343 364 427 509 562 772*
IOP 1318# 1321 1326# 1330 1331
I_NMX_ADDR 1330
I_NMX_CNT 1321 1331
LINBLK 336 343# 357# 377 425 427# 460
LINCCP 78 300*
LINK_CLEARED 100#
LINK_OFF 98#
LINK_ON 97# 929
LINK_SERVICE 99# 929
LINK_STATE 205 357 927
LINREQ 79 379*
LOOK_FOR_ENTITY 809 814 825 828
MAP$ 821 897 906 1267 1272 1374 1396 1401
MCB$GAW_PROCESS_DATA_BASE 107
MCB$GW_PROCESS_HANDLE 108 767
MCB_DB_CCB 75 76 77 78 79 80 81 82 83 109# 148# 214#
300# 379# 466# 514# 574# 657#
MODBLK 502 509# 512 560 562# 568
MODCCP 80 466*
MODREQ 81 514*
NEXT_STATE 87 193 293 345 459 511 567 612 697 951*
NMPAR 625# 627 812# 839 1327# 1329#
NMX$ENT_CKT 1149
NMX$ENT_HI 993
NMX$ENT_LIN 1084
NMX$ENT_LO 993
NMX$ENT_MOD 1202
NMX$ENT_NOD 995
NMX$FNC_CLR 1015 1116 1169
NMX$FNC_HI 759 999 1088 1153 1313
NMX$FNC_LO 759 999 1088 1153 1313
NMX$FNC_RET 255 420 555 761 1043 1323
NMX$FNC_SET 1015 1116 1169 1385
NMX$FNC_SHO 761 1001 1090 1155 1315
NMX$FNC_SZC 761 1031 1134 1187 1315
NMX$FNC_ZRO 1031 1134 1187
NMX$SEL_ACT 910 1058
NMX$SEL_HI 1044 1091
NMX$SEL_KNO 1046
NMX$SEL_LOP 1068
NMX$SEL_LO 1044 1091
NMX$SEL_STA 1093
NMX$SEL_SUM 1093
NMXCCE 1#
NMXDB_BLOCK 140 180 247 332 412 498 547 608 690 733 806 887
NMXDB 109 140 148 180 191 212 214 247 262 294 297 300
332 343 364 377 379 412 427 460 463 466 498 509
512 514 547 562 568 571 574 608 635 639 646# 655
657 690 698 700 733 740 742 744 772 806 851 887
NMX_BASE 191 212 262 294 297 343 364 377 427 460 463 509
512 562 568 571 655 698
NMX_CCB_BLOCK 139 181 246 333 411 499 546 609 689 731 804 885
982 1251 1306 1369
NMX_CIRCUITS 191 262 297 364
NMX_CIRCUIT_BLOCK 184 260 362
NMX_ENTITY_BLOCK 886
NMX_ENTITY_BLOCK_ADDRESS 911
NMX_ENTITY_BLOCK_BIAS 906
NMX_ENTITY_BLOCK_ENTRIES 916
NMX_ENTITY_BLOCK_LENGTH 945
NMX_EXECUTOR_NAME 639
NMX_EXECUTOR_NUMBER 635 646
NMX_GENERAL_BLOCK 732 819
NMX_GENERAL_FIELDS 891
NMX_IOP_BLOCK 1318 1326
NMX_LINES 343 427 463
NMX_LINE_BLOCK 336 425
NMX_LINK_FIELDS 891
NMX_LKG_CCB 68# 87 88 89 951# 1220# 1275#
NMX_LKG_CCB__VAL 69# 90 1338#
NMX_LKG_DB_CCB_BLK 70# 85 86 772# 851#
NMX_LKG_DB_CCB_ENT 71# 84 700#
NMX_MODULES 509 562 571
NMX_MODULE_BLOCK 502 560
NMX_NMPAR_ENTITY 627 839
NMX_NMPAR_FIELDS 625 812 1327
NMX_NMPAR_RETURN_CNT 1329
NMX_NSP_EID 742
NMX_SC_EID 740
NMX_XPT_EID 744
NODCCP 82 574*
NODE_NUMBER 619 627 633
NODREQ 83 657*
PARAMETER_NUMBER 88 1019 1120 1173 1220*
PARNUM 1254 1257# 1269 1273 1375 1379 1382# 1398 1402
PTR 1265 1268# 1269 1394 1397# 1398 1399
REQUEST_COMPLETE 89 192 344 510 611 1275*
SAVE_MAP 1255 1258 1272 1374 1380 1383 1401
SELECTOR 892 909# 910# 926 990# 1044 1091
SET_PARAMETER_NUMBER 90 202 275 354 441 630 1338*
SMAP$ 905 1258 1383
ST$BAD 985# 1013 1041 1056 1066 1076 1079 1082 1103 1113 1132 1144
1147 1167 1185 1197 1200 1213 1216
ST$DON 195 283 347 449 614 848 907 985 1011 1029 1039 1054
1064 1074 1101 1111 1128 1130 1142 1165 1181 1183 1195 1211
1308
ST$HI 737 1002 1016 1032 1047 1059 1069 1094 1106 1117 1135 1156
1170 1188 1206
ST$INI 1004 1018 1034 1049 1061 1071 1096 1108 1119 1137 1158 1172
1190 1208
ST$LO 737 1002 1016 1032 1047 1059 1069 1094 1106 1117 1135 1156
1170 1188 1206
ST$NSP 741 1007 1008 1022 1035 1036
ST$OWN 745 1097 1098 1123 1127 1138 1139 1161 1162 1178 1180 1191
1192
ST$PRO 747 1099 1100 1109 1110 1125 1129 1140 1141 1163 1164 1176
1182 1193 1194 1209 1210
ST$SC 739 1005 1006 1026 1052 1053 1072 1073 1159 1160
ST$XPT 743 1009 1010 1024 1037 1038 1050 1051 1062 1063
STATE_SERVICE 270# 280 436# 446
STATE 991# 1002 1016 1032 1047 1059 1069 1094 1106 1117 1135 1156
1170 1188 1206
TRUE 930
VALUE 200 202 205 273 275 278 352 354 357 368 439 441
444 620 630 637# 638 646 1338 1399
$MCB_MOVE_BUFFER_TO_BUFFER 638 940
$MCB_SCHEDULE_CCB 770
$NM$ERR_IPV 282 448
$NM$ERR_OCM 908
$NM$ERR_URC 145 847
$NM$_SUC 948 1308 1387
$NMX_RETURN_NMX_CCB 146 751 898
$RETURN 895# 938 949 1372# 1385 1387 1389