Google
 

Trailing-Edge - PDP-10 Archives - BB-R595B-SM_11-9-85 - mcb/sc/scxres.lst
There is 1 other file named scxres.lst in the archive. Click here to see a list.
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   1
								30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (1)

;	  0001	module SCXRES (				! Resource-Wait Processing
;	  0002			ident = 'X01190'
;	  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:	Task Session Control
;	  0029	!
;	  0030	! ABSTRACT:	This module performs resource-wait processing,
;	  0031	!		such as encountered when a buffer cannot be
;	  0032	!		obtained for a data transfer.
;	  0033	!
;	  0034	! ENVIRONMENT:	MCB (RSX-11 user)
;	  0035	!
;	  0036	! AUTHOR:	Buren Hoffman		CREATION DATE: 6-Aug-80
;	  0037	!
;	  0038	! MODIFIED BY:
;	  0039	!	X01010	Changed code to use $byt_ptr macro in place of the
;	  0040	!		ch$ptr macro.
;	  0041	!	X01020	Fixed routine entry binding problems.
;	  0042	!	X01030	Disconnect flag was not being set for case of
;	  0043	!		disconnect received.
;	  0044	!	X01040	Added AST activation on receipt of disconnect or
;	  0045	!		interrupt data.
;	  0046	!	X01050	Using local own queueing routines because CMQxx$ routines
;	  0047	!		are for CCBs only.
;	  0048	!	X01060	Use new Comm/Exec to process linkage (.CRDAT for database)
;	  0049	!	X01070	Upgraded GLN support
;	  0050	!	X01080	Updated to use library calls, instead of requires.
;	  0051	!	X01090	Repaired missing forward reference.
;	  0052	!	X01100	Fixed reject processing to return proper reject code.
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   2
X01190								30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (1)

;	  0053	!	X01110	Added call to QUEAST to queue ASTs.
;	  0054	!	X01120	Fixed link counter keeping.
;	  0055	!	X01130	Updated disconnect-received processing to correspond
;	  0056	!		to modified system interface definition.
;	  0057	!	X01140	Set proper lun in MB packet for interrupt or disconnect
;	  0058	!		received.
;	  0059	!	X01150	Separate abort and disconnect processing into separate
;	  0060	!		routines.
;	  0061	!	X01160	Memory management cleanup.
;	  0062	!	X01170	Optimization work.
;	  0063	!	X01180	Identified bug in processing CLOSE - $HEADR may not be
;	  0064	!		set up right. Problem not yet fixed.
;	  0065	!
;	  0066	!	x01190  Use DSR space instead or an LDB for connect info.
;	  0067	!
;	  0068	!--
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   3
X01190								30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (2)

;	  0069	!
;	  0070	! INCLUDE FILES:
;	  0071	!
;	  0072	library 'SCPRM';
;	  0073	library 'MCB:MCBLIB';
;	  0074	library 'MCB:RSXLIB';
;	  0075	library 'MCB:XPORTX';
;	  0076	library 'MCB:SCSYS';
;	  0077	
;	  0078	require 'SCRSX';
;	  0172	
;	  0173	!
;	  0174	! TABLE OF CONTENTS:
;	  0175	!
;	  0176	
;	  0177	forward routine
;	  0178	    SRUDSW: novalue,		! Disconnect received
;	  0179	    SRUINW: novalue,		! Interrupt received
;	  0180	
;	  0181	    U$ABW: novalue,		! Abort
;	  0182	    U$ACW: novalue,		! Accept
;	  0183	    U$ARQ: novalue,		! * Abort wait *
;	  0184	    U$CLW: novalue,		! Close
;	  0185	    U$CNW: novalue,		! Connect
;	  0186	    U$DSW: novalue,		! Disconnect
;	  0187	    U$GLW: novalue,		! Get local node info
;	  0188	    U$IO:  novalue,		! I/O handler for U$RCW, U$SNW, and U$XMW
;	  0189	    U$IRQ: novalue,		! * Interrupt request wait *
;	  0190	!   U$RCW: novalue,		! Receive data (See U$IO)
;	  0191	    U$RJW: novalue;		! Reject
;	  0192	!   U$SNW: novalue		! Send data (See U$IO)
;	  0193	!   U$XMW: novalue		! Xmit interrupt data (See U$IO)
;	  0194	
;	  0195	!
;	  0196	! MACROS:
;	  0197	!
;	  0198	!
;	  0199	! EQUATED SYMBOLS:
;	  0200	!
;	  0201	global bind routine
;	  0202	    U$RCW = U$IO: novalue,
;	  0203	    U$SNW = U$IO: novalue,
;	  0204	    U$XMW = U$IO: novalue;
;	  0205	
;	  0206	!
;	  0207	! OWN STORAGE:
;	  0208	!
;	  0209	
;	  0210	!
;	  0211	! EXTERNAL REFERENCES:
;	  0212	!
;	  0213	external routine
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   4
X01190								30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (2)

;	  0214	    $C5TA: novalue,		! Convert rad50 to ascii
;	  0215	    QUEAST,			! Queue an AST to RSX
;	  0216	    ULARD;			! Determine LCB address from ULA
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   5
X01190		System Interface				30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (3)

;	  0217	%sbttl 'System Interface';
;	  0218	global routine SRUDSW (TNB): novalue =
;	  0219	
;	  0220	!++
;	  0221	! FUNCTIONAL DESCRIPTION:
;	  0222	!	Obtain Mailbox memory to store arriving disconnect.
;	  0223	!
;	  0224	! FORMAL PARAMETERS:
;	  0225	!	TNB	The Task Networking block
;	  0226	!
;	  0227	! IMPLICIT INPUTS:
;	  0228	!	First CCB on the input queue
;	  0229	!
;	  0230	! IMPLICIT OUTPUTS:
;	  0231	!	None
;	  0232	!
;	  0233	! ROUTINE VALUE:
;	  0234	! COMPLETION CODES:
;	  0235	!	None
;	  0236	!
;	  0237	! SIDE EFFECTS:
;	  0238	!	APR6 is modified
;	  0239	!--
;	  0240	
;	  0241	    begin
;	  0242	    $scx_get_data_base (SCXDB);
;	  0243	    map TNB: ref block field (TNB_FIELDS);
;	  0244	    local
;	  0245		CCB: ref block field (C_FIELDS),
;	  0246		LCB: ref block field (LCB_FIELDS),
;	  0247		MB: ref block field (MBP_FIELDS);
;	  0248	    bind
;	  0249		QUICK_LOOK_CCB = TNB [TN_IQHD]: ref block field (C_FIELDS);
;	  0250	
;	  0251	    if not $MCB_GET_DSR (MBP_SIZE*bytes_word + .QUICK_LOOK_CCB [C_CNT], MB)
;	  0252	    then $SCX_WAIT;
;	  0253	
;	  0254	    $SCX_DEQUEUE (TNB [TN_IQUE], CCB);	! Get CCB off queue
;	  0255	    MAP$ (.CCB [C_BIAS]);
;	  0256	    ch$move (.CCB [C_CNT], .CCB [C_ADDR], byt$ptr (MB [MB_DATA]));
;	  0257	    MB [MB_CNT] = .CCB [C_CNT];
;	  0258	    MB [MB_LLA] = .CCB [C_LIX];
;	  0259	    MB [MB_ULA] = .CCB [$sub_field (C_PRM1, LO_BYTE)];
;	  0260	    LCB = ULARD (.MB [MB_ULA]);
;	  0261	    MB [MB_LUN] = .LCB [LC_LUN];
;	  0262	    LCB [LCF_DSC] = true;
;	  0263	    MB [MB_FNC] =
;	  0264		begin
;	  0265		    selectone .CCB [C_PRM2] of
;	  0266			set
;	  0267			[-S_EDBO]:	MB$DSC;		! Disconnect
;	  0268			[-S_EABM]:	MB$ABO;		! Abort by management
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   6
X01190		System Interface				30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (3)

;	  0269			[-S_EABO]:	MB$ABT;		! Abort by object
;	  0270			[otherwise]:	MB$ABT;
;	  0271			tes
;	  0272		end;
;	  0273	
;	  0274	    $SCX_ENQUEUE (TNB [TN_MBXQ], .MB);	! Queue the MB
;	  0275	    QUEAST (.TNB);			! Queue the AST
;	  0276	    $SCX_DO_RCE (.CCB)
;	  0277	    end;


						.TITLE	SCXRES
						.IDENT	/X01190/

						.GLOBL	$C5TA, QUEAST, ULARD, .CRDAT, $DSRGT
						.GLOBL	$SCQRM, KISAR6, $SCQIN, $SCHED


						.SBTTL	SRUDSW System Interface
000000						.PSECT	$CODE$,  RO 

000000	004167  000000G			SRUDSW::JSR	R1,$SAVE4			;					0218
000004	005746 					TST	-(SP)
000006	016704  000002G				MOV	.CRDAT+2,R4			;					0241
000012	016602  000016 				MOV	16(SP),R2			; TNB,*					0249
000016	016200  000006 				MOV	6(R2),R0			;					0251
000022	016001  000022 				MOV	22(R0),R1
000026	062701  000020 				ADD	#20,R1
000032	004767  000000G				JSR	PC,$DSRGT
000036	103402 					BCS	1$
000040	010001 					MOV	R0,R1				; $MCB$R0,MB
000042	000406 					BR	2$
000044	052762  001000  000016 		1$:	BIS	#1000,16(R2)			;					0252
000052	042714  001000 				BIC	#1000,(R4)
000056	000516 					BR	6$
000060	012746  000006 			2$:	MOV	#6,-(SP)			;					0254
000064	060216 					ADD	R2,(SP)
000066	012746  000004 				MOV	#4,-(SP)
000072	060616 					ADD	SP,(SP)				; CCB,*
000074	004767  000000G				JSR	PC,$SCQRM
000100	016604  000004 				MOV	4(SP),R4			; CCB,*					0255
000104	016467  000016  000000G			MOV	16(R4),KISAR6
000112	016416  000022 				MOV	22(R4),(SP)			;					0256
000116	016446  000020 				MOV	20(R4),-(SP)
000122	010146 					MOV	R1,-(SP)			; MB,*
000124	062716  000020 				ADD	#20,(SP)
000130	004767  000000G				JSR	PC,BL$MOV
000134	016461  000022  000002 			MOV	22(R4),2(R1)			; *,*(MB)				0257
000142	012700  000006 				MOV	#6,R0				;					0258
000146	060100 					ADD	R1,R0				; MB,*
000150	116410  000010 				MOVB	10(R4),(R0)
000154	116460  000024  000001 			MOVB	24(R4),1(R0)			;					0259
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   7
X01190		System Interface				30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (3)

000162	005016 					CLR	(SP)				;					0260
000164	116016  000001 				MOVB	1(R0),(SP)
000170	004767  000000G				JSR	PC,ULARD
000174	116061  000016  000010 			MOVB	16(R0),10(R1)			; *(LCB),*(MB)				0261
000202	052760  004000  000016 			BIS	#4000,16(R0)			; *,*(LCB)				0262
000210	016400  000026 				MOV	26(R4),R0			;					0265
000214	020027  000024 				CMP	R0,#24
000220	001003 					BNE	3$
000222	012700  000003 				MOV	#3,R0				;					0264
000226	000410 					BR	5$
000230	020027  000010 			3$:	CMP	R0,#10				;					0265
000234	001003 					BNE	4$
000236	012700  000005 				MOV	#5,R0				;					0264
000242	000402 					BR	5$
000244	012700  000004 			4$:	MOV	#4,R0
000250	110061  000004 			5$:	MOVB	R0,4(R1)			; *,*(MB)				0263
000254	010216 					MOV	R2,(SP)				;					0274
000256	062716  000026 				ADD	#26,(SP)
000262	010146 					MOV	R1,-(SP)			; MB,*
000264	004767  000000G				JSR	PC,$SCQIN
000270	010216 					MOV	R2,(SP)				;					0275
000272	004767  000000G				JSR	PC,QUEAST
000276	112764  000004  000012 			MOVB	#4,12(R4)			;					0276
000304	004767  000000G				JSR	PC,$SCHED
000310	062706  000012 				ADD	#12,SP				;					0241
000314	005726 				6$:	TST	(SP)+				;					0218
000316	000207 					RTS	PC

; Routine Size:  104 words,	Routine Base:  $CODE$ + 0000
; Maximum stack depth per invocation:  12 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   8
X01190		System Interface				30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (4)

;	  0278	global routine SRUINW (TNB): novalue =
;	  0279	
;	  0280	!++
;	  0281	! FUNCTIONAL DESCRIPTION:
;	  0282	!	Obtain Mailbox memory to store arriving interrupt message
;	  0283	!
;	  0284	! FORMAL PARAMETERS:
;	  0285	!	TNB	The Task Networking Block address
;	  0286	!
;	  0287	! IMPLICIT INPUTS:
;	  0288	!	First CCB on the input queue
;	  0289	!
;	  0290	! IMPLICIT OUTPUTS:
;	  0291	!	None
;	  0292	!
;	  0293	! ROUTINE VALUE:
;	  0294	! COMPLETION CODES:
;	  0295	!	None
;	  0296	!
;	  0297	! SIDE EFFECTS:
;	  0298	!	None
;	  0299	!--
;	  0300	
;	  0301	    begin
;	  0302	    $scx_get_data_base (SCXDB);
;	  0303	    map TNB: ref block field (TNB_FIELDS);
;	  0304	    local
;	  0305		CCB: ref block field (C_FIELDS),
;	  0306		LCB: ref block field (LCB_FIELDS),
;	  0307		MB: ref block field (MBP_FIELDS);
;	  0308	    bind
;	  0309		QUICK_LOOK_CCB = TNB [TN_IQHD]: ref block field (C_FIELDS);
;	  0310	
;	  0311	    if not $MCB_GET_DSR (MBP_SIZE*bytes_word + .QUICK_LOOK_CCB [C_CNT], MB)
;	  0312	    then $SCX_WAIT;
;	  0313	
;	  0314	    $SCX_DEQUEUE (TNB [TN_IQUE], CCB);	! Get CCB off queue
;	  0315	    MFBF$S (.CCB [C_CNT], .CCB [C_BIAS],.CCB [C_ADDR], byt$ptr (MB [MB_DATA]));
;	  0316	    MB [MB_CNT] = .CCB [C_CNT] ;
;	  0317	    MB [MB_LLA] = .CCB [C_LIX];
;	  0318	    MB [MB_ULA] = .CCB [$sub_field (C_PRM1, LO_BYTE)];
;	  0319	    LCB = ULARD (.MB [MB_ULA]);
;	  0320	    MB [MB_LUN] = .LCB [LC_LUN];
;	  0321	    MB [MB_FNC] = MB$INT;
;	  0322	    $SCX_ENQUEUE (TNB [TN_MBXQ], .MB);	! Queue the MB
;	  0323	    QUEAST (.TNB);			! Queue the AST
;	  0324	    $SCX_DO_RCE (.CCB)
;	  0325	    end;


						.GLOBL	$MVFBF
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page   9
X01190		System Interface				30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (4)


						.SBTTL	SRUINW System Interface
000000	004167  000000G			SRUINW::JSR	R1,$SAVE5			;					0278
000004	005746 					TST	-(SP)
000006	016702  000002G				MOV	.CRDAT+2,R2			;					0301
000012	016605  000020 				MOV	20(SP),R5			; TNB,*					0309
000016	016500  000006 				MOV	6(R5),R0			;					0311
000022	016001  000022 				MOV	22(R0),R1
000026	062701  000020 				ADD	#20,R1
000032	004767  000000G				JSR	PC,$DSRGT
000036	103402 					BCS	1$
000040	010001 					MOV	R0,R1				; $MCB$R0,MB
000042	000406 					BR	2$
000044	052765  001000  000016 		1$:	BIS	#1000,16(R5)			;					0312
000052	042712  001000 				BIC	#1000,(R2)
000056	000473 					BR	3$
000060	012746  000006 			2$:	MOV	#6,-(SP)			;					0314
000064	060516 					ADD	R5,(SP)
000066	012746  000004 				MOV	#4,-(SP)
000072	060616 					ADD	SP,(SP)				; CCB,*
000074	004767  000000G				JSR	PC,$SCQRM
000100	016604  000004 				MOV	4(SP),R4			; CCB,*					0315
000104	016416  000016 				MOV	16(R4),(SP)
000110	016446  000020 				MOV	20(R4),-(SP)
000114	010102 					MOV	R1,R2				; MB,*
000116	062702  000020 				ADD	#20,R2
000122	016403  000022 				MOV	22(R4),R3
000126	004767  000000G				JSR	PC,$MVFBF
000132	016461  000022  000002 			MOV	22(R4),2(R1)			; *,*(MB)				0316
000140	012700  000006 				MOV	#6,R0				;					0317
000144	060100 					ADD	R1,R0				; MB,*
000146	116410  000010 				MOVB	10(R4),(R0)
000152	116460  000024  000001 			MOVB	24(R4),1(R0)			;					0318
000160	005016 					CLR	(SP)				;					0319
000162	116016  000001 				MOVB	1(R0),(SP)
000166	004767  000000G				JSR	PC,ULARD
000172	116061  000016  000010 			MOVB	16(R0),10(R1)			; *(LCB),*(MB)				0320
000200	112761  000002  000004 			MOVB	#2,4(R1)			; *,*(MB)				0321
000206	010516 					MOV	R5,(SP)				;					0322
000210	062716  000026 				ADD	#26,(SP)
000214	010146 					MOV	R1,-(SP)			; MB,*
000216	004767  000000G				JSR	PC,$SCQIN
000222	010516 					MOV	R5,(SP)				;					0323
000224	004767  000000G				JSR	PC,QUEAST
000230	112764  000004  000012 			MOVB	#4,12(R4)			;					0324
000236	004767  000000G				JSR	PC,$SCHED
000242	062706  000010 				ADD	#10,SP				;					0301
000246	005726 				3$:	TST	(SP)+				;					0278
000250	000207 					RTS	PC

; Routine Size:  85 words,	Routine Base:  $CODE$ + 0320
; Maximum stack depth per invocation:  12 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  10
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (5)

;	  0326	%sbttl 'User Interface';
;	  0327	global routine U$ABW (LCB): novalue =
;	  0328	
;	  0329	!++
;	  0330	! FUNCTIONAL DESCRIPTION:
;	  0331	!	Get resources to finish processing a link abort
;	  0332	!
;	  0333	! FORMAL PARAMETERS:
;	  0334	!	LCB	The link control block
;	  0335	!
;	  0336	! IMPLICIT INPUTS:
;	  0337	!	IOP contents
;	  0338	!	 I_PRM1 = Optional-data bias
;	  0339	!	 I_PRM2 = Optional-data address
;	  0340	!	 I_PRM3 = Optional-data length
;	  0341	!
;	  0342	! IMPLICIT OUTPUTS:
;	  0343	!	None
;	  0344	!
;	  0345	! ROUTINE VALUE:
;	  0346	! COMPLETION CODES:
;	  0347	!	None
;	  0348	!
;	  0349	! SIDE EFFECTS:
;	  0350	!	None
;	  0351	!--
;	  0352	
;	  0353	    begin
;	  0354	    $scx_get_data_base (SCXDB);
;	  0355	    map LCB: ref block field (LCB_FIELDS);
;	  0356	    local
;	  0357		CCB: ref block field (C_FIELDS),
;	  0358		IOP: ref block field (IOP_FIELDS);
;	  0359	    bind
;	  0360		TNB = LCB [LC_TNB]: ref block field (TNB_FIELDS);
;	  0361	
;	  0362	    if not CCBGT$ (CCB) then $SCX_WAIT;
;	  0363	
;	  0364	    $SCX_DEQUEUE (LCB [LC_NQUE], IOP);
;	  0365	    $SCX_DO_XME (.CCB, S$ABO, .IOP, .LCB, IOP [I_PRM1])
;	  0366	    end;


						.GLOBL	$CCBGT, DO$XME


						.SBTTL	U$ABW User Interface
000000	004167  000000G			U$ABW:: JSR	R1,$SAVE4			;					0327
000004	005746 					TST	-(SP)
000006	016700  000002G				MOV	.CRDAT+2,R0			;					0353
000012	016601  000016 				MOV	16(SP),R1			; LCB,*					0360
000016	004767  000000G				JSR	PC,$CCBGT			;					0362
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  11
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (5)

000022	103010 					BHIS	1$
000024	016102  000004 				MOV	4(R1),R2
000030	052762  001000  000016 			BIS	#1000,16(R2)
000036	042710  001000 				BIC	#1000,(R0)
000042	000425 					BR	2$
000044	010146 				1$:	MOV	R1,-(SP)			;					0364
000046	062716  000012 				ADD	#12,(SP)
000052	012746  000004 				MOV	#4,-(SP)
000056	060616 					ADD	SP,(SP)				; IOP,*
000060	004767  000000G				JSR	PC,$SCQRM
000064	012716  000022 				MOV	#22,(SP)			;					0365
000070	016646  000004 				MOV	4(SP),-(SP)			; IOP,*
000074	010146 					MOV	R1,-(SP)
000076	016646  000010 				MOV	10(SP),-(SP)			; IOP,*
000102	062716  000024 				ADD	#24,(SP)
000106	004767  000000G				JSR	PC,DO$XME
000112	062706  000012 				ADD	#12,SP				;					0353
000116	005726 				2$:	TST	(SP)+				;					0327
000120	000207 					RTS	PC

; Routine Size:  41 words,	Routine Base:  $CODE$ + 0572
; Maximum stack depth per invocation:  12 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  12
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (6)

;	  0367	global routine U$ACW (LCB): novalue =
;	  0368	
;	  0369	!++
;	  0370	! FUNCTIONAL DESCRIPTION:
;	  0371	!	Obtain resources to finish processing of link acceptance.
;	  0372	!
;	  0373	! FORMAL PARAMETERS:
;	  0374	!	LCB	The link control block
;	  0375	!
;	  0376	! IMPLICIT INPUTS:
;	  0377	!	IOP contents
;	  0378	!	 I_PRM1	Connect block bias
;	  0379	!	 I_PRM2	Connect block address
;	  0380	!	 I_PRM3	Output buffer bias
;	  0381	!	 I_PRM4	  "      "    address
;	  0382	!	 I_PRM5   "      "    length
;	  0383	!
;	  0384	! IMPLICIT OUTPUTS:
;	  0385	!	None
;	  0386	!
;	  0387	! ROUTINE VALUE:
;	  0388	! COMPLETION CODES:
;	  0389	!	None
;	  0390	!
;	  0391	! SIDE EFFECTS:
;	  0392	!	None
;	  0393	!--
;	  0394	
;	  0395	    begin
;	  0396	    $scx_get_data_base (SCXDB);
;	  0397	    map LCB: ref block field (LCB_FIELDS);
;	  0398	    local
;	  0399		CCB: ref block field (C_FIELDS),
;	  0400		IOP: ref block field (IOP_FIELDS);
;	  0401	    bind
;	  0402		TNB = LCB [LC_TNB]: ref block field (TNB_FIELDS);
;	  0403	
;	  0404	    if not CCBGT$ (CCB) then $SCX_WAIT;
;	  0405	
;	  0406	    $SCX_DEQUEUE (LCB [LC_OQUE], IOP);
;	  0407	    CCB [$sub_field (C_PRM1, HI_BYTE)] = S$PMSG;
;	  0408	    $SCX_DO_XME (.CCB, S$ACC, .IOP, .LCB, IOP [I_PRM3])
;	  0409	    end;


						.SBTTL	U$ACW User Interface
000000	004167  000000G			U$ACW:: JSR	R1,$SAVE4			;					0367
000004	005746 					TST	-(SP)
000006	016702  000002G				MOV	.CRDAT+2,R2			;					0395
000012	016601  000016 				MOV	16(SP),R1			; LCB,*					0402
000016	004767  000000G				JSR	PC,$CCBGT			;					0404
000022	103010 					BHIS	1$
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  13
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (6)

000024	016100  000004 				MOV	4(R1),R0
000030	052760  001000  000016 			BIS	#1000,16(R0)
000036	042712  001000 				BIC	#1000,(R2)
000042	000430 					BR	2$
000044	010146 				1$:	MOV	R1,-(SP)			;					0406
000046	062716  000006 				ADD	#6,(SP)
000052	012746  000004 				MOV	#4,-(SP)
000056	060616 					ADD	SP,(SP)				; IOP,*
000060	004767  000000G				JSR	PC,$SCQRM
000064	112764  000002  000025 			MOVB	#2,25(R4)			; *,*(CCB)				0407
000072	012716  000002 				MOV	#2,(SP)				;					0408
000076	016646  000004 				MOV	4(SP),-(SP)			; IOP,*
000102	010146 					MOV	R1,-(SP)
000104	016646  000010 				MOV	10(SP),-(SP)			; IOP,*
000110	062716  000030 				ADD	#30,(SP)
000114	004767  000000G				JSR	PC,DO$XME
000120	062706  000012 				ADD	#12,SP				;					0395
000124	005726 				2$:	TST	(SP)+				;					0367
000126	000207 					RTS	PC

; Routine Size:  44 words,	Routine Base:  $CODE$ + 0714
; Maximum stack depth per invocation:  12 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  14
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (7)

;	  0410	global routine U$ARQ (LCB): novalue =
;	  0411	
;	  0412	!++
;	  0413	! FUNCTIONAL DESCRIPTION:
;	  0414	!	Obtain resources to verify link abort
;	  0415	!
;	  0416	! FORMAL PARAMETERS:
;	  0417	!	LCB	LCB address
;	  0418	!
;	  0419	! IMPLICIT INPUTS:
;	  0420	!	None
;	  0421	!
;	  0422	! IMPLICIT OUTPUTS:
;	  0423	!	None
;	  0424	!
;	  0425	! ROUTINE VALUE:
;	  0426	! COMPLETION CODES:
;	  0427	!	None
;	  0428	!
;	  0429	! SIDE EFFECTS:
;	  0430	!	None
;	  0431	!--
;	  0432	
;	  0433	    begin
;	  0434	    $scx_get_data_base (SCXDB);
;	  0435	    map LCB: ref block field (LCB_FIELDS);
;	  0436	    local
;	  0437		CCB: ref block field (C_FIELDS);
;	  0438	    bind
;	  0439		TNB = LCB [LC_TNB]: ref block field (TNB_FIELDS);
;	  0440	
;	  0441	    if not CCBGT$ (CCB) then (LCB [LCF_ARES] = true; $SCX_WAIT);
;	  0442	
;	  0443	    CCB [C_ADDR] = CCB [C_CNT] = CCB [C_PRM5] = 0;
;	  0444	    $SCX_DO_XME (.CCB, S$ABO, 0, .LCB, 0)
;	  0445	    end;


						.SBTTL	U$ARQ User Interface
000000	004167  000000G			U$ARQ:: JSR	R1,$SAVE4			;					0410
000004	016702  000002G				MOV	.CRDAT+2,R2			;					0433
000010	016601  000014 				MOV	14(SP),R1			; LCB,*					0439
000014	004767  000000G				JSR	PC,$CCBGT			;					0441
000020	103013 					BHIS	1$
000022	052761  002000  000016 			BIS	#2000,16(R1)
000030	016100  000004 				MOV	4(R1),R0
000034	052760  001000  000016 			BIS	#1000,16(R0)
000042	042712  001000 				BIC	#1000,(R2)
000046	000207 					RTS	PC
000050	005064  000034 			1$:	CLR	34(R4)				; *(CCB)				0443
000054	005064  000022 				CLR	22(R4)				; *(CCB)
000060	005064  000020 				CLR	20(R4)				; *(CCB)
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  15
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (7)

000064	012746  000022 				MOV	#22,-(SP)			;					0444
000070	005046 					CLR	-(SP)
000072	010146 					MOV	R1,-(SP)
000074	005046 					CLR	-(SP)
000076	004767  000000G				JSR	PC,DO$XME
000102	062706  000010 				ADD	#10,SP				;					0433
000106	000207 					RTS	PC				;					0410

; Routine Size:  36 words,	Routine Base:  $CODE$ + 1044
; Maximum stack depth per invocation:  10 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  16
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (8)

;	  0446	global routine U$CLW (TNB): novalue =
;	  0447	
;	  0448	!++
;	  0449	! FUNCTIONAL DESCRIPTION:
;	  0450	!	Obtain resources to complete network close.
;	  0451	!
;	  0452	! FORMAL PARAMETERS:
;	  0453	!	TNB	The task networking block address
;	  0454	!
;	  0455	! IMPLICIT INPUTS:
;	  0456	!	IOP contents
;	  0457	!
;	  0458	! IMPLICIT OUTPUTS:
;	  0459	!	None
;	  0460	!
;	  0461	! ROUTINE VALUE:
;	  0462	! COMPLETION CODES:
;	  0463	!	None
;	  0464	!
;	  0465	! SIDE EFFECTS:
;	  0466	!	None
;	  0467	!--
;	  0468	
;	  0469	    begin
;	  0470	    $scx_get_data_base (SCXDB);
;	  0471	    external
;	  0472		$HEADR: ref block field (HDR_FIELDS);	!!**** Problems here
;	  0473							! This may not be set up
;	  0474	    map TNB: ref block field (TNB_FIELDS);
;	  0475	    local
;	  0476		MB: ref block field (MBP_FIELDS),
;	  0477		IOP: ref block field (IOP_FIELDS),
;	  0478		LIOP: ref block field (IOP_FIELDS),
;	  0479		CCB: ref block field (C_FIELDS),
;	  0480		LCB: ref block field (LCB_FIELDS);
;	  0481	
;	  0482	    if .TNB [TN_LCB] neq 0
;	  0483	    then
;	  0484		! ** Abort all links
;	  0485		begin
;	  0486		LCB = TNB [TN_LCB];		! Scan all LCBs
;	  0487		while (LCB = .LCB [LC_LINK]) neq 0 do
;	  0488		    begin
;	  0489		    if not .LCB [LCF_CLS]	! Abort already started ?
;	  0490		    then
;	  0491			begin
;	  0492			LCB [LCF_ARES] = false;		! Assure this flag is cleared
;	  0493			U$ARQ (.LCB);			! Initiate the abort
;	  0494			if .LCB [LCF_ARES]		! Did we get it ?
;	  0495			then exitloop			!  No, so quit banging
;	  0496			else LCB [LCF_CLS] = true	!  Yes, mark it
;	  0497			end
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  17
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (8)

;	  0498		    end
;	  0499		end
;	  0500	    else
;	  0501		! ** All links are aborted
;	  0502		begin
;	  0503		local
;	  0504		    THIS_TNB: ref block field (TNB_FIELDS),
;	  0505		    PREV_TNB: ref block field (TNB_FIELDS);
;	  0506	
;	  0507		THIS_TNB = SCXDB [SCX_TNB];		! Find our TNB in list
;	  0508		while (PREV_TNB = .THIS_TNB; THIS_TNB = .THIS_TNB [TN_LINK]) neq 0 do
;	  0509		    begin
;	  0510		    if .THIS_TNB eql .TNB then exitloop
;	  0511		    end;
;	  0512	
;	  0513		if .THIS_TNB eql 0 then SIGNAL_STOP (SCX$_ILE);
;	  0514		PREV_TNB [TN_LINK] = .TNB [TN_LINK];	! Unlink our TNB
;	  0515		$HEADR [H_NML] = 0;			! No more networking LUN
;	  0516		$SCX_DEQUEUE (TNB [TN_OQHD], IOP);	! Get IOP we are processing
;	  0517		.(IOP [I_LN2]) = 0;			! Kill the LUN
;	  0518	
;	  0519		! ** Flush the queues
;	  0520		while $SCX_DEQUEUE (TNB [TN_IQHD], CCB) do $SCX_DO_RCE (.CCB);
;	  0521		while $SCX_DEQUEUE (TNB [TN_OQHD], LIOP) do IOFIN$ (.SCXDB [SCX_UCB], .LIOP, IE_ABO, 0);
;	  0522		while $SCX_DEQUEUE (TNB [TN_MBXQ], MB) do $MCB_RETURN_DSR (MBP_SIZE*bytes_word + .MB [MB_CNT], .MB);
;	  0523		IOFIN$ (.SCXDB [SCX_UCB], .IOP, IS_SUC, 0)
;	  0524		end
;	  0525	    end;


						.GLOBL	$HEADR, $IOFIN, $DSRRT


						.SBTTL	U$CLW User Interface
000000	004167  000000G			U$CLW:: JSR	R1,$SAVE5			;					0446
000004	162706  000012 				SUB	#12,SP
000010	016746  000002G				MOV	.CRDAT+2,-(SP)			;					0469
000014	016646  000032 				MOV	32(SP),-(SP)			; TNB,*					0482
000020	012701  000004 				MOV	#4,R1
000024	061601 					ADD	(SP),R1
000026	010100 					MOV	R1,R0
000030	005710 					TST	(R0)
000032	001426 					BEQ	4$
000034	011101 				1$:	MOV	(R1),R1				; LCB,LCB				0487
000036	001417 					BEQ	2$
000040	012702  000016 				MOV	#16,R2				;					0489
000044	060102 					ADD	R1,R2				; LCB,*
000046	032712  000400 				BIT	#400,(R2)
000052	001370 					BNE	1$
000054	042712  002000 				BIC	#2000,(R2)			;					0492
000060	010146 					MOV	R1,-(SP)			; LCB,*					0493
000062	004767  177602 				JSR	PC,U$ARQ
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  18
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (8)

000066	032712  002000 				BIT	#2000,(R2)			;					0494
000072	001402 					BEQ	3$
000074	005726 					TST	(SP)+				;					0495
000076	000576 				2$:	BR	13$
000100	052712  000400 			3$:	BIS	#400,(R2)			;					0496
000104	005726 					TST	(SP)+				;					0491
000106	000752 					BR	1$				;					0487
000110	016600  000002 			4$:	MOV	2(SP),R0			; *,THIS.TNB				0507
000114	062700  000006 				ADD	#6,R0				; *,THIS.TNB
000120	010001 				5$:	MOV	R0,R1				; THIS.TNB,PREV.TNB			0508
000122	011000 					MOV	(R0),R0				; THIS.TNB,THIS.TNB
000124	001404 					BEQ	6$
000126	020016 					CMP	R0,(SP)				; THIS.TNB,*				0510
000130	001373 					BNE	5$
000132	005700 					TST	R0				; THIS.TNB				0513
000134	001007 					BNE	7$
000136	012746  100004 			6$:	MOV	#-77774,-(SP)
000142	012746  000001 				MOV	#1,-(SP)
000146	004767  000000G				JSR	PC,$STOP
000152	022626 					CMP	(SP)+,(SP)+
000154	017611  000000 			7$:	MOV	@0(SP),(R1)			; *,PREV.TNB				0514
000160	016700  000000G				MOV	$HEADR,R0			;					0515
000164	105060  000061 				CLRB	61(R0)
000170	012700  000012 				MOV	#12,R0				;					0516
000174	061600 					ADD	(SP),R0
000176	010066  000004 				MOV	R0,4(SP)
000202	010046 					MOV	R0,-(SP)
000204	012746  000020 				MOV	#20,-(SP)
000210	060616 					ADD	SP,(SP)				; IOP,*
000212	004767  000000G				JSR	PC,$SCQRM
000216	016600  000020 				MOV	20(SP),R0			; IOP,*					0517
000222	005070  000006 				CLR	@6(R0)
000226	012700  000006 				MOV	#6,R0				;					0520
000232	066600  000004 				ADD	4(SP),R0
000236	010001 					MOV	R0,R1
000240	010116 				8$:	MOV	R1,(SP)
000242	012746  000020 				MOV	#20,-(SP)
000246	060616 					ADD	SP,(SP)				; CCB,*
000250	004767  000000G				JSR	PC,$SCQRM
000254	005726 					TST	(SP)+
000256	032700  000001 				BIT	#1,R0
000262	001411 					BEQ	9$
000264	016600  000016 				MOV	16(SP),R0			; CCB,*
000270	112760  000004  000012 			MOVB	#4,12(R0)
000276	010004 					MOV	R0,R4				; CCB,*
000300	004767  000000G				JSR	PC,$SCHED
000304	000755 					BR	8$
000306	016616  000010 			9$:	MOV	10(SP),(SP)			;					0521
000312	012746  000016 				MOV	#16,-(SP)
000316	060616 					ADD	SP,(SP)				; LIOP,*
000320	004767  000000G				JSR	PC,$SCQRM
000324	005726 					TST	(SP)+
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  19
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (8)

000326	032700  000001 				BIT	#1,R0
000332	001414 					BEQ	10$
000334	016602  000006 				MOV	6(SP),R2
000340	016205  000004 				MOV	4(R2),R5
000344	016603  000014 				MOV	14(SP),R3			; LIOP,*
000350	012700  177761 				MOV	#-17,R0
000354	005001 					CLR	R1
000356	004767  000000G				JSR	PC,$IOFIN
000362	000751 					BR	9$
000364	012700  000026 			10$:	MOV	#26,R0				;					0522
000370	066600  000004 				ADD	4(SP),R0
000374	010002 					MOV	R0,R2
000376	010216 				11$:	MOV	R2,(SP)
000400	012746  000014 				MOV	#14,-(SP)
000404	060616 					ADD	SP,(SP)				; MB,*
000406	004767  000000G				JSR	PC,$SCQRM
000412	005726 					TST	(SP)+
000414	032700  000001 				BIT	#1,R0
000420	001411 					BEQ	12$
000422	016600  000012 				MOV	12(SP),R0			; MB,*
000426	016001  000002 				MOV	2(R0),R1
000432	062701  000020 				ADD	#20,R1
000436	004767  000000G				JSR	PC,$DSRRT
000442	000755 					BR	11$
000444	016602  000006 			12$:	MOV	6(SP),R2			;					0523
000450	016205  000004 				MOV	4(R2),R5
000454	016603  000020 				MOV	20(SP),R3			; IOP,*
000460	012700  000001 				MOV	#1,R0
000464	005001 					CLR	R1
000466	004767  000000G				JSR	PC,$IOFIN
000472	022626 					CMP	(SP)+,(SP)+			;					0502
000474	062706  000016 			13$:	ADD	#16,SP				;					0446
000500	000207 					RTS	PC

; Routine Size:  161 words,	Routine Base:  $CODE$ + 1154
; Maximum stack depth per invocation:  17 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  20
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (9)

;	  0526	global routine U$CNW (LCB): novalue =
;	  0527	
;	  0528	!++
;	  0529	! FUNCTIONAL DESCRIPTION:
;	  0530	!	Obtain resources to complete connect processing
;	  0531	!
;	  0532	! FORMAL PARAMETERS:
;	  0533	!	LCB	LCB address
;	  0534	!
;	  0535	! IMPLICIT INPUTS:
;	  0536	!	IOP contents
;	  0537	!	 I_PRM1	Connect block bias
;	  0538	!	 I_PRM2	Connect block address
;	  0539	!	 I_PRM3	Output buffer bias
;	  0540	!	 I_PRM4	  "      "    address
;	  0541	!	 I_PRM5   "      "    length
;	  0542	!	 I_PRM6	Input buffer bias
;	  0543	!	 I_PRM7	  "     "    address
;	  0544	!	 I_PRM8	  "     "    length
;	  0545	!
;	  0546	! IMPLICIT OUTPUTS:
;	  0547	!	None
;	  0548	!
;	  0549	! ROUTINE VALUE:
;	  0550	! COMPLETION CODES:
;	  0551	!	None
;	  0552	!
;	  0553	! SIDE EFFECTS:
;	  0554	!	None
;	  0555	!--
;	  0556	
;	  0557	    begin
;	  0558	    $scx_get_data_base (SCXDB);
;	  0559	    map LCB: ref block field (LCB_FIELDS);
;	  0560	    local
;	  0561		CNT,
;	  0562		PTR,
;	  0563		CB: ref block field (CB_FIELDS),
;	  0564		CBU: ref block field (CBU_FIELDS),
;	  0565		CCB: ref block field (C_FIELDS),
;	  0566		IOP: ref block field (IOP_FIELDS),
;	  0567		TCB: ref block field (TCB_FIELDS);
;	  0568	    bind
;	  0569		TNB = LCB [LC_TNB]: ref block field (TNB_FIELDS);
;	  0570	    literal
;	  0571		CB_L1 = (%fieldexpand (CB_SFMT, 0) - %fieldexpand (CB_NODE, 0)) * bytes_word,
;	  0572		CB_L2 = (%fieldexpand (CB_OPDL, 0) - %fieldexpand (CB_RQDL, 0)) * bytes_word;
;	  0573	
;	  0574	    if
;	  0575		begin
;	  0576		if CCBGT$( CCB) then true else false
;	  0577		end
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  21
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (9)

;	  0578		and
;	  0579		begin
;	  0580		if $MCB_GET_DSR( DSR_CONNECT_BLOCK_SIZE, CCB[C_ADDR])
;	  0581		then true 
;	  0582		else 
;	  0583			begin
;	  0584			CCBRT$( .CCB);
;	  0585			false
;	  0586			end
;	  0587		end
;	  0588	    then
;	  0589		CCB[C_BIAS] = 0
;	  0590	    else
;	  0591		$SCX_WAIT;
;	  0592	
;	  0593	    CB = .CCB [C_ADDR];
;	  0594	    $SCX_DEQUEUE (LCB [LC_OQUE], IOP);
;	  0595	    CBU = .IOP [I_PRM2];
;	  0596	    TCB = .IOP [I_TCB];
;	  0597	
;	  0598	    CCB [$sub_field (C_PRM1, HI_BYTE)] = S$PMSG;
;	  0599	    CCB [C_PRM2] = .IOP [I_PRM6];		! Input buffer bias
;	  0600	    CCB [C_PRM3] = .IOP [I_PRM7];		!   "     "    address
;	  0601	    CCB [C_PRM4] = .IOP [I_PRM8];		!   "     "    length
;	  0602	
;	  0603	    ! ** Now build connect block
;	  0604	    CCB [C_CNT] = CB_SIZE*bytes_word;
;	  0605	    MAP$ (.IOP [I_PRM1]);
;	  0606	    MTBF$S (CB_L1, CBU [CBU_NODE], .CCB [C_BIAS], byt$ptr (CB [CB_NODE]));
;	  0607	    MTBF$S (CB_L2, CBU [CBU_RQDL], .CCB [C_BIAS], byt$ptr (CB [CB_RQDL]));
;	  0608	    MAP$ (.IOP [I_PRM3]);
;	  0609	    MTBF$S (.IOP [I_PRM5], .IOP [I_PRM4], .CCB [C_BIAS], byt$ptr (CB [CB_OPTD]));
;	  0610	    MAP$ (.CCB [C_BIAS]);
;	  0611	    CB [CB_OPDL] = .IOP [I_PRM5];
;	  0612	    CB [CB_SFMT] = 1;
;	  0613	    CB [CB_SOBJ] = 0;
;	  0614	
;	  0615	    CNT = 0;
;	  0616	    PTR = byt$ptr (CB [CB_SPR1]);
;	L 0617	    %if %bliss (bliss36)
;	U 0618	    %then
;	U 0619		$C5TA (.TCB [T_NAM], PTR, CNT);
;	  0620	    %else
;	  0621		$C5TA (.TCB [T_NM1], PTR, CNT);
;	  0622		if .TCB [T_NM2] neq 0 then $C5TA (.TCB [T_NM2], PTR, CNT);
;	  0623	    %fi
;	  0624	    CB [CB_SPL1] = .CNT;
;	  0625	    $SCX_DO_XME (.CCB, S$CON, .IOP, .LCB, 0)
;	  0626	    end;


						.GLOBL	$CCBRT, $MVTBF
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  22
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (9)



						.SBTTL	U$CNW User Interface
000000	004167  000000G			U$CNW:: JSR	R1,$SAVE5			;					0526
000004	162706  000014 				SUB	#14,SP
000010	016702  000002G				MOV	.CRDAT+2,R2			;					0557
000014	016666  000032  000002 			MOV	32(SP),2(SP)			; LCB,*					0569
000022	004767  000000G				JSR	PC,$CCBGT			;					0576
000026	103426 					BCS	3$
000030	010466  000004 				MOV	R4,4(SP)			; $MCB$R4,CCB
000034	012701  000156 				MOV	#156,R1				;					0580
000040	004767  000000G				JSR	PC,$DSRGT
000044	103405 					BCS	1$
000046	016601  000004 				MOV	4(SP),R1			; CCB,*
000052	010061  000020 				MOV	R0,20(R1)			; $MCB$R0,*(CCB)
000056	000405 					BR	2$
000060	016604  000004 			1$:	MOV	4(SP),R4			; CCB,*					0584
000064	004767  000000G				JSR	PC,$CCBRT
000070	000405 					BR	3$				;					0583
000072	016600  000004 			2$:	MOV	4(SP),R0			; CCB,*					0589
000076	005060  000016 				CLR	16(R0)				; *(CCB)
000102	000413 					BR	4$				;					0574
000104	016601  000002 			3$:	MOV	2(SP),R1			;					0590
000110	016100  000004 				MOV	4(R1),R0
000114	052760  001000  000016 			BIS	#1000,16(R0)
000122	042712  001000 				BIC	#1000,(R2)
000126	000167  000404 				JMP	6$
000132	016600  000004 			4$:	MOV	4(SP),R0			; CCB,*					0593
000136	016001  000020 				MOV	20(R0),R1			; *(CCB),CB
000142	016646  000002 				MOV	2(SP),-(SP)			;					0594
000146	062716  000006 				ADD	#6,(SP)
000152	012746  000016 				MOV	#16,-(SP)
000156	060616 					ADD	SP,(SP)				; IOP,*
000160	004767  000000G				JSR	PC,$SCQRM
000164	016604  000016 				MOV	16(SP),R4			; IOP,*					0595
000170	016466  000026  000004 			MOV	26(R4),4(SP)			; *,CBU
000176	016405  000004 				MOV	4(R4),R5			; *,TCB					0596
000202	016600  000010 				MOV	10(SP),R0			; CCB,*					0598
000206	112760  000002  000025 			MOVB	#2,25(R0)			; *,*(CCB)
000214	016460  000036  000026 			MOV	36(R4),26(R0)			; *,*(CCB)				0599
000222	016460  000040  000030 			MOV	40(R4),30(R0)			; *,*(CCB)				0600
000230	016460  000042  000032 			MOV	42(R4),32(R0)			; *,*(CCB)				0601
000236	012760  000156  000022 			MOV	#156,22(R0)			; *,*(CCB)				0604
000244	016467  000024  000000G			MOV	24(R4),KISAR6			;					0605
000252	010002 					MOV	R0,R2				; CCB,*					0606
000254	016200  000016 				MOV	16(R2),R0			; *(CCB),*
000260	010016 					MOV	R0,(SP)
000262	010146 					MOV	R1,-(SP)			; CB,*
000264	016602  000006 				MOV	6(SP),R2			; CBU,*
000270	012703  000032 				MOV	#32,R3
000274	004767  000000G				JSR	PC,$MVTBF
000300	010016 					MOV	R0,(SP)				;					0607
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  23
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (9)

000302	010146 					MOV	R1,-(SP)			; CB,*
000304	062716  000056 				ADD	#56,(SP)
000310	016602  000010 				MOV	10(SP),R2			; CBU,*
000314	062702  000032 				ADD	#32,R2
000320	012703  000056 				MOV	#56,R3
000324	004767  000000G				JSR	PC,$MVTBF
000330	016467  000030  000000G			MOV	30(R4),KISAR6			;					0608
000336	010016 					MOV	R0,(SP)				;					0609
000340	010146 					MOV	R1,-(SP)			; CB,*
000342	062716  000136 				ADD	#136,(SP)
000346	016402  000032 				MOV	32(R4),R2
000352	016403  000034 				MOV	34(R4),R3
000356	004767  000000G				JSR	PC,$MVTBF
000362	010067  000000G				MOV	R0,KISAR6			;					0610
000366	016461  000034  000134 			MOV	34(R4),134(R1)			; *,*(CB)				0611
000374	112761  000001  000032 			MOVB	#1,32(R1)			; *,*(CB)				0612
000402	105061  000033 				CLRB	33(R1)				; *(CB)					0613
000406	005066  000020 				CLR	20(SP)				; CNT					0615
000412	010166  000022 				MOV	R1,22(SP)			; CB,PTR				0616
000416	062766  000036  000022 			ADD	#36,22(SP)			; *,PTR
000424	016516  000006 				MOV	6(R5),(SP)			; *(TCB),*				0621
000430	012746  000024 				MOV	#24,-(SP)
000434	060616 					ADD	SP,(SP)				; PTR,*
000436	012746  000024 				MOV	#24,-(SP)
000442	060616 					ADD	SP,(SP)				; CNT,*
000444	004767  000000G				JSR	PC,$C5TA
000450	016500  000010 				MOV	10(R5),R0			; *(TCB),*				0622
000454	001412 					BEQ	5$
000456	010016 					MOV	R0,(SP)
000460	012746  000030 				MOV	#30,-(SP)
000464	060616 					ADD	SP,(SP)				; PTR,*
000466	012746  000030 				MOV	#30,-(SP)
000472	060616 					ADD	SP,(SP)				; CNT,*
000474	004767  000000G				JSR	PC,$C5TA
000500	022626 					CMP	(SP)+,(SP)+
000502	016661  000024  000034 		5$:	MOV	24(SP),34(R1)			; CNT,*(CB)				0624
000510	005016 					CLR	(SP)				;					0625
000512	010446 					MOV	R4,-(SP)
000514	016646  000022 				MOV	22(SP),-(SP)
000520	005046 					CLR	-(SP)
000522	016604  000030 				MOV	30(SP),R4			; CCB,*
000526	004767  000000G				JSR	PC,DO$XME
000532	062706  000024 				ADD	#24,SP				;					0557
000536	062706  000014 			6$:	ADD	#14,SP				;					0526
000542	000207 					RTS	PC

; Routine Size:  178 words,	Routine Base:  $CODE$ + 1656
; Maximum stack depth per invocation:  23 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  24
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (10)

;	  0627	global routine U$DSW (LCB): novalue =
;	  0628	
;	  0629	!++
;	  0630	! FUNCTIONAL DESCRIPTION:
;	  0631	!	Get resources to finish processing a link disconnect.
;	  0632	!
;	  0633	! FORMAL PARAMETERS:
;	  0634	!	LCB	The link control block
;	  0635	!
;	  0636	! IMPLICIT INPUTS:
;	  0637	!	IOP contents
;	  0638	!	 I_PRM1 = Optional-data bias
;	  0639	!	 I_PRM2 = Optional-data address
;	  0640	!	 I_PRM3 = Optional-data length
;	  0641	!
;	  0642	! IMPLICIT OUTPUTS:
;	  0643	!	None
;	  0644	!
;	  0645	! ROUTINE VALUE:
;	  0646	! COMPLETION CODES:
;	  0647	!	None
;	  0648	!
;	  0649	! SIDE EFFECTS:
;	  0650	!	None
;	  0651	!--
;	  0652	
;	  0653	    begin
;	  0654	    $scx_get_data_base (SCXDB);
;	  0655	    map LCB: ref block field (LCB_FIELDS);
;	  0656	    local
;	  0657		CCB: ref block field (C_FIELDS),
;	  0658		IOP: ref block field (IOP_FIELDS);
;	  0659	    bind
;	  0660		TNB = LCB [LC_TNB]: ref block field (TNB_FIELDS);
;	  0661	
;	  0662	    if not CCBGT$ (CCB) then $SCX_WAIT;
;	  0663	
;	  0664	    $SCX_DEQUEUE (LCB [LC_OQUE], IOP);
;	  0665	    $SCX_DO_XME (.CCB, S$DIS, .IOP, .LCB, IOP [I_PRM1])
;	  0666	    end;


						.SBTTL	U$DSW User Interface
000000	004167  000000G			U$DSW:: JSR	R1,$SAVE4			;					0627
000004	005746 					TST	-(SP)
000006	016700  000002G				MOV	.CRDAT+2,R0			;					0653
000012	016601  000016 				MOV	16(SP),R1			; LCB,*					0660
000016	004767  000000G				JSR	PC,$CCBGT			;					0662
000022	103010 					BHIS	1$
000024	016102  000004 				MOV	4(R1),R2
000030	052762  001000  000016 			BIS	#1000,16(R2)
000036	042710  001000 				BIC	#1000,(R0)
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  25
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (10)

000042	000425 					BR	2$
000044	010146 				1$:	MOV	R1,-(SP)			;					0664
000046	062716  000006 				ADD	#6,(SP)
000052	012746  000004 				MOV	#4,-(SP)
000056	060616 					ADD	SP,(SP)				; IOP,*
000060	004767  000000G				JSR	PC,$SCQRM
000064	012716  000020 				MOV	#20,(SP)			;					0665
000070	016646  000004 				MOV	4(SP),-(SP)			; IOP,*
000074	010146 					MOV	R1,-(SP)
000076	016646  000010 				MOV	10(SP),-(SP)			; IOP,*
000102	062716  000024 				ADD	#24,(SP)
000106	004767  000000G				JSR	PC,DO$XME
000112	062706  000012 				ADD	#12,SP				;					0653
000116	005726 				2$:	TST	(SP)+				;					0627
000120	000207 					RTS	PC

; Routine Size:  41 words,	Routine Base:  $CODE$ + 2422
; Maximum stack depth per invocation:  12 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  26
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (11)

;	  0667	global routine U$GLW (TNB): novalue =
;	  0668	
;	  0669	!++
;	  0670	! FUNCTIONAL DESCRIPTION:
;	  0671	!	Obtain resources to complete "Get-Local-Node-Information"
;	  0672	!
;	  0673	! FORMAL PARAMETERS:
;	  0674	!	TNB	The task networking block address
;	  0675	!
;	  0676	! IMPLICIT INPUTS:
;	  0677	!	IOP contents
;	  0678	!	 I_PRM1 = Buffer bias
;	  0679	!	 I_PRM2 = Buffer address
;	  0680	!	 I_PRM3 = Buffer length
;	  0681	!	 I_PRM4 = Option selector
;	  0682	!
;	  0683	! IMPLICIT OUTPUTS:
;	  0684	!	None
;	  0685	!
;	  0686	! ROUTINE VALUE:
;	  0687	! COMPLETION CODES:
;	  0688	!	None
;	  0689	!
;	  0690	! SIDE EFFECTS:
;	  0691	!	None
;	  0692	!--
;	  0693	
;	  0694	    begin
;	  0695	    $scx_get_data_base (SCXDB);
;	  0696	    map TNB: ref block field (TNB_FIELDS);
;	  0697	    local
;	  0698		CCB: ref block field (C_FIELDS),
;	  0699		IOP: ref block field (IOP_FIELDS);
;	  0700	
;	  0701	    if not CCBGT$ (CCB) then $SCX_WAIT;
;	  0702	
;	  0703	    $SCX_DEQUEUE (TNB [TN_OQUE], IOP);
;	  0704	    CCB [C_PRM1] = .IOP [I_PRM4];
;	  0705	    $SCX_DO_XME (.CCB, S$GLN, .IOP, 0, IOP [I_PRM1])
;	  0706	    end;


						.SBTTL	U$GLW User Interface
000000	004167  000000G			U$GLW:: JSR	R1,$SAVE4			;					0667
000004	005746 					TST	-(SP)
000006	016701  000002G				MOV	.CRDAT+2,R1			;					0694
000012	004767  000000G				JSR	PC,$CCBGT			;					0701
000016	103010 					BHIS	1$
000020	016600  000016 				MOV	16(SP),R0			; TNB,*
000024	052760  001000  000016 			BIS	#1000,16(R0)
000032	042711  001000 				BIC	#1000,(R1)
000036	000431 					BR	2$
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  27
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (11)

000040	016646  000016 			1$:	MOV	16(SP),-(SP)			; TNB,*					0703
000044	062716  000012 				ADD	#12,(SP)
000050	012746  000004 				MOV	#4,-(SP)
000054	060616 					ADD	SP,(SP)				; IOP,*
000056	004767  000000G				JSR	PC,$SCQRM
000062	016600  000004 				MOV	4(SP),R0			; IOP,*					0704
000066	016064  000032  000024 			MOV	32(R0),24(R4)			; *,*(CCB)
000074	012716  000024 				MOV	#24,(SP)			;					0705
000100	010046 					MOV	R0,-(SP)
000102	005046 					CLR	-(SP)
000104	012746  000024 				MOV	#24,-(SP)
000110	060016 					ADD	R0,(SP)
000112	004767  000000G				JSR	PC,DO$XME
000116	062706  000012 				ADD	#12,SP				;					0694
000122	005726 				2$:	TST	(SP)+				;					0667
000124	000207 					RTS	PC

; Routine Size:  43 words,	Routine Base:  $CODE$ + 2544
; Maximum stack depth per invocation:  12 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  28
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (12)

;	  0707	global routine U$IO (LCB): novalue =
;	  0708	
;	  0709	!++
;	  0710	! FUNCTIONAL DESCRIPTION:	U$RCW & U$SNW & U$XMW
;	  0711	!	Obtain resources to queue a send/receive buffer to SC
;	  0712	!
;	  0713	! FORMAL PARAMETERS:
;	  0714	!	LCB	LCB address
;	  0715	!
;	  0716	! IMPLICIT INPUTS:
;	  0717	!	IOP Contents
;	  0718	!	 I_PRM1 = Buffer bias
;	  0719	!	 I_PRM2 = Buffer address
;	  0720	!	 I_PRM3 = Buffer length
;	  0721	!
;	  0722	! IMPLICIT OUTPUTS:
;	  0723	!	None
;	  0724	!
;	  0725	! ROUTINE VALUE:
;	  0726	! COMPLETION CODES:
;	  0727	!	None
;	  0728	!
;	  0729	! SIDE EFFECTS:
;	  0730	!	None
;	  0731	!--
;	  0732	
;	  0733	    begin
;	  0734	    $scx_get_data_base (SCXDB);
;	  0735	    map LCB: ref block field (LCB_FIELDS);
;	  0736	    local
;	  0737		CCB: ref block field (C_FIELDS),
;	  0738		IOP: ref block field (IOP_FIELDS);
;	  0739	    bind
;	  0740		TNB = LCB [LC_TNB]: ref block field (TNB_FIELDS);
;	  0741	    label
;	  0742		IO_SELECT;
;	  0743	
;	  0744	    if not CCBGT$ (CCB) then $SCX_WAIT;
;	  0745	
;	  0746	    IO_SELECT:
;	  0747		begin
;	  0748		if (IOP = .LCB [LC_NQUE]) neq 0
;	  0749		then
;	  0750		    begin
;	  0751		    if .IOP [I_FNC] eql IOP_XMT
;	  0752		    then
;	  0753			begin
;	  0754			$SCX_DEQUEUE (LCB [LC_NQUE], CCB [C_PRM5]);
;	  0755			CCB [C_MOD] = S$SNI;
;	  0756			leave IO_SELECT
;	  0757			end
;	  0758		    end;
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  29
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (12)

;	  0759	
;	  0760		if (IOP = .LCB [LC_OQUE]) neq 0
;	  0761		then
;	  0762		    begin
;	  0763		    if .IOP [I_FNC] eql IOP_XMT
;	  0764		    then
;	  0765			begin
;	  0766			$SCX_DEQUEUE (LCB [LC_OQUE], CCB [C_PRM5]);
;	  0767			CCB [C_MOD] = S$SND;
;	  0768			CCB [$sub_field (C_PRM1, HI_BYTE)] = S$PEOM;
;	  0769			leave IO_SELECT
;	  0770			end
;	  0771		    end;
;	  0772	
;	  0773		if (IOP = .LCB [LC_OQUE]) neq 0
;	  0774		then
;	  0775		    begin
;	  0776		    if .IOP [I_FNC] eql IOP_RCV
;	  0777		    then
;	  0778			begin
;	  0779			$SCX_DEQUEUE (LCB [LC_OQUE], CCB [C_PRM5]);
;	  0780			CCB [C_MOD] = S$MRQ;
;	  0781			leave IO_SELECT
;	  0782			end
;	  0783		    end
;	  0784		end;
;	  0785	
;	  0786	    $SCX_DO_XME (.CCB, .CCB [C_MOD], .CCB [C_PRM5], .LCB, IOP [I_PRM1])
;	  0787	    end;


						.SBTTL	U$IO User Interface
000000	004167  000000G			U$IO::	JSR	R1,$SAVE4			;					0707
000004	016700  000002G				MOV	.CRDAT+2,R0			;					0733
000010	016602  000014 				MOV	14(SP),R2			; LCB,*					0740
000014	004767  000000G				JSR	PC,$CCBGT			;					0744
000020	103010 					BHIS	1$
000022	016201  000004 				MOV	4(R2),R1
000026	052761  001000  000016 			BIS	#1000,16(R1)
000034	042710  001000 				BIC	#1000,(R0)
000040	000207 					RTS	PC
000042	016201  000012 			1$:	MOV	12(R2),R1			; *,IOP					0748
000046	001420 					BEQ	2$
000050	126127  000013  000031 			CMPB	13(R1),#31			; *(IOP),*				0751
000056	001014 					BNE	2$
000060	012746  000012 				MOV	#12,-(SP)			;					0754
000064	060216 					ADD	R2,(SP)
000066	010446 					MOV	R4,-(SP)			; CCB,*
000070	062716  000034 				ADD	#34,(SP)
000074	004767  000000G				JSR	PC,$SCQRM
000100	112764  000014  000013 			MOVB	#14,13(R4)			; *,*(CCB)				0755
000106	000445 					BR	4$				;					0756
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  30
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (12)

000110	012703  000006 			2$:	MOV	#6,R3				;					0760
000114	060203 					ADD	R2,R3
000116	011301 					MOV	(R3),R1				; *,IOP
000120	001421 					BEQ	3$
000122	126127  000013  000031 			CMPB	13(R1),#31			; *(IOP),*				0763
000130	001015 					BNE	3$
000132	010346 					MOV	R3,-(SP)			;					0766
000134	010446 					MOV	R4,-(SP)			; CCB,*
000136	062716  000034 				ADD	#34,(SP)
000142	004767  000000G				JSR	PC,$SCQRM
000146	112764  000006  000013 			MOVB	#6,13(R4)			; *,*(CCB)				0767
000154	112764  000004  000025 			MOVB	#4,25(R4)			; *,*(CCB)				0768
000162	000417 					BR	4$				;					0769
000164	011301 				3$:	MOV	(R3),R1				; *,IOP					0773
000166	001416 					BEQ	5$
000170	126127  000013  000032 			CMPB	13(R1),#32			; *(IOP),*				0776
000176	001012 					BNE	5$
000200	010346 					MOV	R3,-(SP)			;					0779
000202	010446 					MOV	R4,-(SP)			; CCB,*
000204	062716  000034 				ADD	#34,(SP)
000210	004767  000000G				JSR	PC,$SCQRM
000214	112764  000010  000013 			MOVB	#10,13(R4)			; *,*(CCB)				0780
000222	022626 				4$:	CMP	(SP)+,(SP)+			;					0781
000224	005046 				5$:	CLR	-(SP)				;					0786
000226	116416  000013 				MOVB	13(R4),(SP)			; *(CCB),*
000232	016446  000034 				MOV	34(R4),-(SP)			; *(CCB),*
000236	010246 					MOV	R2,-(SP)
000240	010146 					MOV	R1,-(SP)			; IOP,*
000242	062716  000024 				ADD	#24,(SP)
000246	004767  000000G				JSR	PC,DO$XME
000252	062706  000010 				ADD	#10,SP				;					0733
000256	000207 					RTS	PC				;					0707

; Routine Size:  88 words,	Routine Base:  $CODE$ + 2672
; Maximum stack depth per invocation:  10 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  31
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (13)

;	  0788	global routine U$IRQ (LCB): novalue =
;	  0789	
;	  0790	!++
;	  0791	! FUNCTIONAL DESCRIPTION:
;	  0792	!	Obtain resources to request an interrupt
;	  0793	!
;	  0794	! FORMAL PARAMETERS:
;	  0795	!	LCB	LCB address
;	  0796	!
;	  0797	! IMPLICIT INPUTS:
;	  0798	!	None
;	  0799	!
;	  0800	! IMPLICIT OUTPUTS:
;	  0801	!	None
;	  0802	!
;	  0803	! ROUTINE VALUE:
;	  0804	! COMPLETION CODES:
;	  0805	!	None
;	  0806	!
;	  0807	! SIDE EFFECTS:
;	  0808	!	None
;	  0809	!--
;	  0810	
;	  0811	    begin
;	  0812	    $scx_get_data_base (SCXDB);
;	  0813	    map LCB: ref block field (LCB_FIELDS);
;	  0814	    local
;	  0815		CCB: ref block field (C_FIELDS);
;	  0816	    bind
;	  0817		TNB = LCB [LC_TNB]: ref block field (TNB_FIELDS);
;	  0818	
;	  0819	    if not CCBGT$ (CCB) then (LCB [LCF_NRES] = true; $SCX_WAIT);
;	  0820	
;	  0821	    CCB [$sub_field (C_PRM1, HI_BYTE)] = 1;
;	  0822	    $SCX_DO_XME (.CCB, S$IRQ, 0, .LCB, 0)
;	  0823	    end;


						.SBTTL	U$IRQ User Interface
000000	004167  000000G			U$IRQ:: JSR	R1,$SAVE4			;					0788
000004	016702  000002G				MOV	.CRDAT+2,R2			;					0811
000010	016601  000014 				MOV	14(SP),R1			; LCB,*					0817
000014	004767  000000G				JSR	PC,$CCBGT			;					0819
000020	103013 					BHIS	1$
000022	052761  001000  000016 			BIS	#1000,16(R1)
000030	016100  000004 				MOV	4(R1),R0
000034	052760  001000  000016 			BIS	#1000,16(R0)
000042	042712  001000 				BIC	#1000,(R2)
000046	000207 					RTS	PC
000050	112764  000001  000025 		1$:	MOVB	#1,25(R4)			; *,*(CCB)				0821
000056	012746  000016 				MOV	#16,-(SP)			;					0822
000062	005046 					CLR	-(SP)
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  32
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (13)

000064	010146 					MOV	R1,-(SP)
000066	005046 					CLR	-(SP)
000070	004767  000000G				JSR	PC,DO$XME
000074	062706  000010 				ADD	#10,SP				;					0811
000100	000207 					RTS	PC				;					0788

; Routine Size:  33 words,	Routine Base:  $CODE$ + 3152
; Maximum stack depth per invocation:  10 words
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  33
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (14)

;	  0824	global routine U$RJW (TNB): novalue =
;	  0825	
;	  0826	!++
;	  0827	! FUNCTIONAL DESCRIPTION:
;	  0828	!	Obtain resources to effect link rejection.
;	  0829	!
;	  0830	! FORMAL PARAMETERS:
;	  0831	!	TNB	TNB address
;	  0832	!
;	  0833	! IMPLICIT INPUTS:
;	  0834	!	IOP contents
;	  0835	!	 I_PRM1	Connect block bias
;	  0836	!	 I_PRM2	Connect block address
;	  0837	!	 I_PRM3	Output buffer bias
;	  0838	!	 I_PRM4	  "      "    address
;	  0839	!	 I_PRM5   "      "    length
;	  0840	!	 I_PRM6 Logical link address of rejected link
;	  0841	!
;	  0842	! IMPLICIT OUTPUTS:
;	  0843	!	None
;	  0844	!
;	  0845	! ROUTINE VALUE:
;	  0846	! COMPLETION CODES:
;	  0847	!	None
;	  0848	!
;	  0849	! SIDE EFFECTS:
;	  0850	!	None
;	  0851	!--
;	  0852	
;	  0853	    begin
;	  0854	    $scx_get_data_base (SCXDB);
;	  0855	    map TNB: ref block field (TNB_FIELDS);
;	  0856	    local
;	  0857		CCB: ref block field (C_FIELDS),
;	  0858		IOP: ref block field (IOP_FIELDS);
;	  0859	
;	  0860	    if not CCBGT$ (CCB) then $SCX_WAIT;
;	  0861	
;	  0862	    $SCX_DEQUEUE (TNB [TN_OQUE], IOP);
;	  0863	    CCB [C_LIX] = .IOP [I_PRM6];
;	  0864	    CCB [C_PRM2] = S_ERBO;
;	  0865	    CCB [C_PRM4] = .TNB;
;	  0866	    $SCX_DO_XME (.CCB, S$REJ, .IOP, 0, IOP [I_PRM3])
;	  0867	    end;


						.SBTTL	U$RJW User Interface
000000	004167  000000G			U$RJW:: JSR	R1,$SAVE4			;					0824
000004	005746 					TST	-(SP)
000006	016701  000002G				MOV	.CRDAT+2,R1			;					0853
000012	004767  000000G				JSR	PC,$CCBGT			;					0860
000016	103010 					BHIS	1$
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  34
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (14)

000020	016600  000016 				MOV	16(SP),R0			; TNB,*
000024	052760  001000  000016 			BIS	#1000,16(R0)
000032	042711  001000 				BIC	#1000,(R1)
000036	000437 					BR	2$
000040	016646  000016 			1$:	MOV	16(SP),-(SP)			; TNB,*					0862
000044	062716  000012 				ADD	#12,(SP)
000050	012746  000004 				MOV	#4,-(SP)
000054	060616 					ADD	SP,(SP)				; IOP,*
000056	004767  000000G				JSR	PC,$SCQRM
000062	016600  000004 				MOV	4(SP),R0			; IOP,*					0863
000066	116064  000036  000010 			MOVB	36(R0),10(R4)			; *,*(CCB)
000074	012764  177754  000026 			MOV	#-24,26(R4)			; *,*(CCB)				0864
000102	016664  000022  000032 			MOV	22(SP),32(R4)			; TNB,*(CCB)				0865
000110	012716  000004 				MOV	#4,(SP)				;					0866
000114	010046 					MOV	R0,-(SP)
000116	005046 					CLR	-(SP)
000120	012746  000030 				MOV	#30,-(SP)
000124	060016 					ADD	R0,(SP)
000126	004767  000000G				JSR	PC,DO$XME
000132	062706  000012 				ADD	#12,SP				;					0853
000136	005726 				2$:	TST	(SP)+				;					0824
000140	000207 					RTS	PC

; Routine Size:  49 words,	Routine Base:  $CODE$ + 3254
; Maximum stack depth per invocation:  12 words


;	  0868	
;	  0869	end
;	  0870	eludom



;					OTS external references
						.GLOBL	$SAVE5, $SAVE4, $STOP, BL$MOV


;					PSECT SUMMARY
;
;	Psect Name			Words	  Attributes
;	 $CODE$				  903	    RO ,  I  ,  LCL,  REL,  CON




;				LIBRARY STATISTICS
;
;					     -------- Symbols --------    Blocks
;	File				     Total    Loaded   Percent      Read
;
;  NETPKG:<SC>SCPRM.L16.4		       262        94        35         0
;  NETPKG:<MCB>MCBLIB.L16.15		       372        41        11         0
SCXRES								25-Jan-1983 10:26:20	TOPS-20 Bliss-16 2A(530)	    Page  35
X01190		User Interface					30-Dec-1982 21:03:55	NETPKG:<SC>SCXRES.BLI.9 (14)

;  NETPKG:<MCB>RSXLIB.L16.13		       317       124        39         0
;  NETPKG:<MCB>XPORTX.L16.15		       599        30         5         0
;  NETPKG:<MCB>SCSYS.L16.13		       113        46        40         0





; Size:		903 code + 0 data words
; Run Time:	00:17.5
; Elapsed Time:	01:01.5
; Memory Used:	53 pages
; Compilation Complete
ALL				 106+
BLISS36				 617
BYT$PTR				 256	 315	 606	 607	 609	 616
BYTES_WORD			 133+	 251	 311	 522	 571	 572	 604
CB				 563	 593#	 606	 607	 609	 611#	 612#	 613#	 616	 624#
CBU				 564	 595#	 606	 607
CBU_ACNT			 128+#
CBU_ACTL			 127+#
CBU_DFMT			 117+#
CBU_DOBJ			 118+#
CBU_DST				 119+#
CBU_FIELDS			 113+#	 564
CBU_NODE			 115+#	 606
CBU_PASL			 124+#
CBU_PASW			 125+#
CBU_RQDL			 121+#	 607
CBU_RQID			 122+#
CBU_SIZE			 132+#	 133+
CB_FIELDS			 563
CB_L1				 571#	 606
CB_L2				 572#	 607
CB_NODE				 571	 606
CB_OPDL				 572	 611
CB_OPTD				 609
CB_RQDL				 572	 607
CB_SFMT				 571	 612
CB_SIZE				 604
CB_SOBJ				 613
CB_SPL1				 624
CB_SPR1				 616
CCB				 245	 254	 255	 256	 257	 258	 259	 265	 276	 305	 314	 315
				 316	 317	 318	 324	 357	 362	 365	 399	 404	 407#	 408	 437
				 441	 443#	 444	 479	 520	 565	 576	 580	 584	 589#	 593	 598#
				 599#	 600#	 601#	 604#	 606	 607	 609	 610	 625	 657	 662	 665
				 698	 701	 704#	 705	 737	 744	 754	 755#	 766	 767#	 768#	 779
				 780#	 786	 815	 819	 821#	 822	 857	 860	 863#	 864#	 865#	 866
CCBGT$				 362	 404	 441	 576	 662	 701	 744	 819	 860
CCBRT$				 584
CND_ACNT			 159+#
CND_ACTL			 158+#
CND_DFMT			 142+#
CND_DOBJ			 143+#
CND_DST				 144+#
CND_FIELDS			 137+#
CND_NODE			 146+#
CND_OPDL			 161+#
CND_OPTD			 162+#
CND_PASL			 155+#
CND_PASW			 156+#
CND_RQDL			 152+#
CND_RQID			 153+#
CND_SEG				 140+#
CND_SFMT			 148+#
CND_SIZE			 166+#
CND_SOBJ			 149+#
CND_SRC				 150+#
CND_TLA				 139+#
CNT				 561	 615#	 619	 621	 622	 624
C_ADDR				 256	 315	 443	 580	 593
C_BIAS				 255	 315	 589	 606	 607	 609	 610
C_CNT				 251	 256	 257	 311	 315	 316	 443	 604
C_FIELDS			 245	 249	 305	 309	 357	 399	 437	 479	 565	 657	 698	 737
				 815	 857
C_LIX				 258	 317	 863
C_MOD				 755	 767	 780	 786
C_PRM1				 259	 318	 407	 598	 704	 768	 821
C_PRM2				 265	 599	 864
C_PRM3				 600
C_PRM4				 601	 865
C_PRM5				 443	 754	 766	 779	 786
DSR_CONNECT_BLOCK_SIZE		 580
FALSE				 492	 576	 585
HDR_FIELDS			 472
HI_BYTE				 407	 598	 768	 821
H_NML				 515
IE_ABO				 521
IOFIN$				 521	 523
IOP				 358	 364	 365	 400	 406	 408	 477	 516	 517	 523	 566	 594
				 595	 596	 599	 600	 601	 605	 608	 609	 611	 625	 658	 664
				 665	 699	 703	 704	 705	 738	 748#	 751	 760#	 763	 773#	 776
				 786	 858	 862	 863	 866
IOP_FIELDS			 358	 400	 477	 478	 566	 658	 699	 738	 858
IOP_RCV				 776
IOP_XMT				 751	 763
IO_SELECT			 742	 746	 756	 769	 781
IS_SUC				 523
I_FNC				 751	 763	 776
I_LN2				 517
I_PRM1				 365	 605	 665	 705	 786
I_PRM2				 595
I_PRM3				 408	 608	 866
I_PRM4				 609	 704
I_PRM5				 609	 611
I_PRM6				 599	 863
I_PRM7				 600
I_PRM8				 601
I_TCB				 596
LCB				 246	 260#	 261	 262#	 306	 319#	 320	 327	 355	 360	 364	 365
				 367	 397	 402	 406	 408	 410	 435	 439	 441#	 444	 480	 486#
				 487#	 489	 492#	 493	 494	 496#	 526	 559	 569	 594	 625	 627
				 655	 660	 664	 665	 707	 735	 740	 748	 754	 760	 766	 773
				 779	 786	 788	 813	 817	 819#	 822
LCB_FIELDS			 246	 306	 355	 397	 435	 480	 559	 655	 735	 813
LCF_ARES			 441	 492	 494
LCF_CLS				 489	 496
LCF_DSC				 262
LCF_NRES			 819
LC_LINK				 487
LC_LUN				 261	 320
LC_NQUE				 364	 748	 754
LC_OQUE				 406	 594	 664	 760	 766	 773	 779
LC_TNB				 360	 402	 439	 569	 660	 740	 817
LIOP				 478	 521
LO_BYTE				 259	 318
MAP$				 255	 605	 608	 610
MB				 247	 251	 256	 257#	 258#	 259#	 260	 261#	 263#	 274	 307	 311
				 315	 316#	 317#	 318#	 319	 320#	 321#	 322	 476	 522
MB$ABO				 268
MB$ABT				 269	 270
MB$DSC				 267
MB$INT				 321
MBP_FIELDS			 247	 307	 476
MBP_SIZE			 251	 311	 522
MB_CNT				 257	 316	 522
MB_DATA				 256	 315
MB_FNC				 263	 321
MB_LLA				 258	 317
MB_LUN				 261	 320
MB_ULA				 259	 260	 318	 319
MFBF$S				 315
MTBF$S				 606	 607	 609
N_RQL				 133+#
PREV_TNB			 505	 508#	 514#
PTR				 562	 616#	 619	 621	 622
QUEAST				 215	 275	 323
QUICK_LOOK_CCB			 249#	 251	 309#	 311
S$ABO				 365	 444
S$ACC				 408
S$CON				 625
S$DIS				 665
S$GLN				 705
S$IRQ				 822
S$MRQ				 780
S$PEOM				 768
S$PMSG				 407	 598
S$REJ				 866
S$SND				 767
S$SNI				 755
SCX$_ILE			 513
SCXDB				 242	 302	 354	 396	 434	 470	 507	 521	 523	 558	 654	 695
				 734	 812	 854
SCXRES				   1#
SCX_TNB				 507
SCX_UCB				 521	 523
SRUDSW				 178	 218*
SRUINW				 179	 278*
S_EABM				 268
S_EABO				 269
S_EDBO				 267
S_ERBO				 864
TCB				 567	 596#	 619	 621	 622
TCB_FIELDS			 567
THIS_TNB			 504	 507#	 508#	 510	 513
TNB				 218	 243	 249	 254	 274	 275	 278	 303	 309	 314	 322	 323
				 360#	 402#	 439#	 446	 474	 482	 486	 510	 514	 516	 520	 521
				 522	 569#	 660#	 667	 696	 703	 740#	 817#	 824	 855	 862	 865
TNB_FIELDS			 243	 303	 360	 402	 439	 474	 504	 505	 569	 660	 696	 740
				 817	 855
TN_IQHD				 249	 309	 520
TN_IQUE				 254	 314
TN_LCB				 482	 486
TN_LINK				 508	 514
TN_MBXQ				 274	 322	 522
TN_OQHD				 516	 521
TN_OQUE				 703	 862
TRUE				 262	 441	 496	 576	 581	 819
T_NAM				 619
T_NM1				 621
T_NM2				 622
U$ABW				 181	 327*
U$ACW				 182	 367*
U$ARQ				 183	 410*	 493
U$CLW				 184	 446*
U$CNW				 185	 526*
U$DSW				 186	 627*
U$GLW				 187	 667*
U$IO				 188	 202	 203	 204	 707*
U$IRQ				 189	 788*
U$RCW				 202*
U$RJW				 191	 824*
U$SNW				 203#
U$XMW				 204#
ULARD				 216	 260	 319
XPO$K_VERSION			 103+
$ADDRESS			 139+
$BYTE_STRING			 115+	 119+	 122+	 125+	 128+	 144+	 146+	 150+	 153+	 156+	 159+	 162+
$BYTE				 117+	 118+	 142+	 143+	 148+	 149+
$C5TA				 214*	 619	 621	 622
$FIELD				 113+	 137+
$FIELD_SET_SIZE			 132+	 166+
$HEADR				 472	 515#
$MCB_GET_DSR			 251	 311	 580
$MCB_RETURN_DSR			 522
$SCX_DEQUEUE			 254	 314	 364	 406	 516#	 520	 521	 522	 594	 664	 703	 754
				 766	 779	 862
$SCX_DO_RCE			 276	 324	 520
$SCX_DO_XME			 365	 408	 444	 625	 665	 705	 786	 822	 866
$SCX_ENQUEUE			 274	 322
$SCX_GET_DATA_BASE		 242	 302	 354	 396	 434	 470	 558	 654	 695	 734	 812	 854
$SCX_WAIT			 252	 312	 362	 404	 441	 591	 662	 701	 744	 819	 860
$SHORT_INTEGER			 121+	 124+	 127+	 140+	 152+	 155+	 158+	 161+
$SHOW				 106+
$SUB_FIELD			 259	 318	 407	 598	 768	 821