Google
 

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

;	  0001	module SCX (			! SCX Base-Level Module
;	  0002			ident = 'X01440'
;	  0003			) =
;	  0004	begin
;	  0005	!
;	  0006	!                    COPYRIGHT (c) 1980, 1981, 1982
;	  0007	!                    DIGITAL EQUIPMENT CORPORATION
;	  0008	!                        Maynard, Massachusetts
;	  0009	!
;	  0010	!     This software is furnished under a license and may  be  used
;	  0011	!     and copied only in accordance with the terms of such license
;	  0012	!     and with the inclusion of the above copyright notice.   This
;	  0013	!     software  or any other copies thereof may not be provided or
;	  0014	!     otherwise made available to any other person.  No  title  to
;	  0015	!     and ownership of the software is hereby transferred.
;	  0016	!
;	  0017	!     The information  in  this  software  is  subject  to  change
;	  0018	!     without  notice  and should not be construed as a commitment
;	  0019	!     by DIGITAL EQUIPMENT CORPORATION.
;	  0020	!
;	  0021	!     DIGITAL assumes no responsibility for the use or reliability
;	  0022	!     of  its  software  on  equipment  which  is  not supplied by
;	  0023	!     DIGITAL.
;	  0024	!
;	  0025	
;	  0026	
;	  0027	
;	  0028	!++
;	  0029	! FACILITY:	Session Control
;	  0030	!
;	  0031	! ABSTRACT:	This is the identifier module in the MCB implementation
;	  0032	!		of the RSX Session Control interface.
;	  0033	!
;	  0034	! ENVIRONMENT:	MCB
;	  0035	!
;	  0036	! AUTHOR:	Buren Hoffman		CREATION DATE: 2-Apr-80
;	  0037	!
;	  0038	! MODIFIED BY:
;	  0039	!	X01010	SCXRES, (X01030)
;	  0040	!	X01020	SCXRES, (X01040)
;	  0041	!	X01030	Updated signal_stop in all modules
;	  0042	!	X01040	Upgraded to MCB 3.1 - put in new $MCB_PROCESS macro
;	  0043	!		in place of PHDR$ macro.
;	  0044	!	X01050	X01050 in SCXDSP and X01050 in SCXRES.
;	  0045	!	X01060	X01060 in SCXDSP.
;	  0046	!	X01070	Use new Comm/Exec to process linkage (.CRDAT for database)
;	  0047	!	X01080	X01080 in SCXDSP, and X01070 in SCXRES
;	  0048	!	X01090	X01090 in SCXDSP, X01080 in SCXRES, and X01050 in SCXSUB.
;	  0049	!	X01100	Backed off from v2.1 compiler - it produces wrong code
;	  0050	!	X01110	X01100 in SCXDSP.
;	  0051	!	X01120	X01110 in SCXDSP.
;	  0052	!	X01130	X01120 in SCXDSP, and X01090 in SCXRES.
SCX								25-Jan-1983 10:24:13	TOPS-20 Bliss-16 2A(530)	    Page   2
X01440								30-Dec-1982 20:59:50	NETPKG:<SC>SCX.BLI.10 (1)

;	  0053	!	X01140	X01100 in SCXRES, and X01060 in SCXSUB.
;	  0054	!	X01150	X01130 in SCXDSP, X01110 in SCXRES, and X01070 in SCXSUB.
;	  0055	!	X01160	X01140 in SCXDSP.
;	  0056	!	X01170	X01150 in SCXDSP.
;	  0057	!	X01180	X01190 in SCXSUB.
;	  0058	!	X01190	X01160 in SCXDSP, X01120 in SCXRES, and X01100 in SCXSUB.
;	  0059	!	X01200	X01130 in SCXRES.
;	  0060	!	X01210	X01140 in SCXRES.
;	  0061	!	X01220	X01110 in SCXSUB.
;	  0062	!	X01230	X01170 in SCXDSP.
;	  0063	!	X01240	X01180 in SCXDSP.
;	  0064	!	X01250	X01190 in SCXDSP.
;	  0065	!	X01260	X01150 in SCXRES.
;	  0066	!	X01270	X01200 in SCXDSP.
;	  0067	!	X01280	X01210 in SCXDSP.
;	  0068	!	X01290	X01220 in SCXDSP.
;	  0069	!	X01300	Changed back to all library files.
;	  0070	!	X01310	X01230 in SCXDSP and X01160 in SCXRES.
;	  0071	!	X01320	X01240 in SCXDSP.
;	  0072	!	X01330	Modified $MCB_PROCESS macro invocation in this module
;	  0073	!		to specify keyword RSX_DISPATCH.
;	  0074	!	X01340	X01250 in SCXDSP, X01170 in SCXRES, and X01120 in SCXSUB.
;	  0075	!	X01350	X01260 in SCXDSP.
;	  0076	!	X01360	X01270 in SCXDSP, and X01130 in SCXSUB.
;	  0077	!	X01370	X01280 in SCXDSP, X01180 in SCXRES, and X01140 in SCXSUB.
;	  0078	!	X01380	X01290 in SCXDSP.
;	  0079	!	X01390	X01300 in SCXDSP.
;	  0080	!	x01400	x01150 in scxsub by Ron Platukis 17-aug-81.
;	  0081	!	x01410  x01310 in SCXDSP, and x01190 in SCXRES.
;	  0082	!	X01420	X01320 in SCXDSP.
;	  0083	!	X01430	X01330 in SCXDSP.
;	  0084	!	X01440	X01330 in SCXDSP.
;	  0085	!--
SCX								25-Jan-1983 10:24:13	TOPS-20 Bliss-16 2A(530)	    Page   3
X01440								30-Dec-1982 20:59:50	NETPKG:<SC>SCX.BLI.10 (2)

;	  0086	!
;	  0087	! REQUIRED FILES
;	  0088	!
;	  0089	library 'SCPRM';			! Our parameter and macro definitions
;	  0090	library 'MCB:MCBLIB';
;	  0091	library 'MCB:RSXLIB';
;	  0092	library 'MCB:XPORTX';
;	  0093	
;	  0094	%if %bliss (bliss36) %then require 'BED:NETPAR'; %fi
;	  0095	
;	  0096	!
;	  0097	! TABLE OF CONTENTS:
;	  0098	!
;	L 0099	%if %bliss (bliss36)
;	U 0100	%then
;	U 0101	forward
;	U 0102	    SCX$DB: block [SCXDB_SIZE] field (SCXDB_FIELDS),
;	U 0103	    SCB: block [SCB_SIZE] field (SCB_FIELDS),
;	U 0104	    UCB: block [UCB_SIZE] field (UCB_FIELDS);
;	  0105	%fi
;	  0106	
;	  0107	!
;	  0108	! EXTERNAL REFERENCES:
;	  0109	!
;	  0110	external
;	  0111	    $NSTBL,			! NS device dispatch table
;	  0112	    $SCXLL;			! Session Control Translator dispatch table
;	  0113	
;	  0114	
;	  0115	!
;	  0116	! MACROS:
;	  0117	!
;	  0118	
;	  0119	!
;	  0120	! EQUATED SYMBOLS:
;	  0121	!
;	  0122	global literal
;	  0123	    %name ('SCX.SZ') = SCXDB_SIZE ^1,
;	  0124	    %name ('OTN.SZ') = OTN_SIZE ^1;
;	  0125	
;	  0126	!
;	  0127	! OWN STORAGE:
;	  0128	!
;	L 0129	%if %bliss (bliss36)
;	U 0130	%then
;	U 0131	    own
;	U 0132		OTN: blockvector [1, OTN_SIZE] field (OTN_FIELDS)
;	U 0133		    preset (
;	U 0134		    [0, OTN_TYPE] = 7,
;	U 0135		    [0, OTN_NLEN] = 6),
;	U 0136	
;	U 0137		ULA: vector [NS_TPT] initial (rep NS_TPT of (0)),
SCX								25-Jan-1983 10:24:13	TOPS-20 Bliss-16 2A(530)	    Page   4
X01440								30-Dec-1982 20:59:50	NETPKG:<SC>SCX.BLI.10 (2)

;	U 0138	
;	U 0139		DCB: block [DCB_SIZE] field (DCB_FIELDS)
;	U 0140		    preset (
;	U 0141		    [D_UCB] = UCB,
;	U 0142		    [D_NAM] = 'NS',
;	U 0143		    [D_DSP] = $NSTBL),
;	U 0144	
;	U 0145		UCB: block [UCB_SIZE] field (UCB_FIELDS)
;	U 0146		    preset (
;	U 0147		    [U_DCB] = DCB,
;	U 0148		    [U_CTL] = 3,	! UC_KIL or UC_QUE
;	U 0149		    [U_STS] = 1,	! US_RED
;	U 0150		    [U_DB] = SCX$DB,
;	U 0151		    [U_SCB] = SCB),
;	U 0152	
;	U 0153		SCB: block [SCB_SIZE] field (SCB_FIELDS)
;	U 0154		    preset ( [S_STS] = 0);
;	U 0155	
;	U 0156	    global bind
;	U 0157		$NSDAT = DCB;
;	U 0158	
;	U 0159	    global
;	U 0160		SCX$DB: block [SCXDB_SIZE] field (SCXDB_FIELDS)
;	U 0161		    preset (
;	U 0162		    [SCX_LINKS] = NS_TPT,
;	U 0163		    [SCX_MBTL] = SCX$DB [SCX_MBHD],
;	U 0164		    [SCX_OTN_LEN] = 1,
;	U 0165		    [SCX_OTN_ADDR] = OTN,
;	U 0166		    [SCX_ULA_ADDR] = ULA);
;	  0167	%fi
;	  0168	
;	  0169	
;	P 0170	$MCB_PROCESS (
;	P 0171	    NAME = SCX,
;	P 0172	    RSX_DISPATCH = $NSTBL,
;	  0173	    LLC_DISPATCH = $SCXLL);	! Form process header
;	  0174	
;	  0175	end
;	  0176	eludom


						.TITLE	SCX
						.IDENT	/X01440/


000000						.PSECT	......,  D  
000000	073520 				HEADER: .RAD50	/SCX/
000002	000403 					.WORD	403
000004	000000 					.WORD	0
000006	000000 					.WORD	0
000010	000000 					.WORD	0
000012	000000G					.WORD	$SCXLL
SCX								25-Jan-1983 10:24:13	TOPS-20 Bliss-16 2A(530)	    Page   5
X01440								30-Dec-1982 20:59:50	NETPKG:<SC>SCX.BLI.10 (2)

000014	000000G					.WORD	.DSPCR
000016	000000G					.WORD	.DSPCR
000020	000000G					.WORD	MCB$V0
000022	000000G					.WORD	MCB$V1
000024	140310 					.WORD	140310
000026	143716 					.WORD	143716
000030	001400 					.WORD	1400
000032	000000G					.WORD	$NSTBL
000034	000000 					.WORD	0
000036	000000 					.WORD	0


						.GLOBL	$NSTBL, $SCXLL, .DSPCR, MCB$V0
						.GLOBL	MCB$V1


	000030 				SCX.SZ==	    30
	000010 				OTN.SZ==	    10



;					PSECT SUMMARY
;
;	Psect Name			Words	  Attributes
;	 ......				   16	    RW ,  D  ,  LCL,  REL,  CON




;				LIBRARY STATISTICS
;
;					     -------- Symbols --------    Blocks
;	File				     Total    Loaded   Percent      Read
;
;  NETPKG:<SC>SCPRM.L16.4		       262         2         0         0
;  NETPKG:<MCB>MCBLIB.L16.15		       372         3         0         0
;  NETPKG:<MCB>RSXLIB.L16.13		       317         0         0         0
;  NETPKG:<MCB>XPORTX.L16.15		       599         0         0         0





; Size:		0 code + 16 data words
; Run Time:	00:01.3
; Elapsed Time:	00:07.2
; Memory Used:	16 pages
; Compilation Complete
BLISS36				  94	  99	 129
DCB				 139#	 147#	 157
DCB_FIELDS			 139
DCB_SIZE			 139
D_DSP				 143
D_NAM				 142
D_UCB				 141
LLC_DISPATCH			 173#
NAME				 171#
NS_TPT				 137	 162#
OTN				 132#	 165#
OTN_FIELDS			 132
OTN_NLEN			 135
OTN_SIZE			 124	 132
OTN_TYPE			 134
RSX_DISPATCH			 172#
SCB				 103	 151	 153#
SCB_FIELDS			 103	 153
SCB_SIZE			 103	 153
SCX				   1#	 171
SCX$DB				 102	 150#	 160#	 163#
SCXDB_FIELDS			 102	 160
SCXDB_SIZE			 102	 123#	 160
SCX_LINKS			 162
SCX_MBHD			 163
SCX_MBTL			 163
SCX_OTN_ADDR			 165
SCX_OTN_LEN			 164
SCX_ULA_ADDR			 166
S_STS				 154
UCB				 104	 141#	 145#
UCB_FIELDS			 104	 145
UCB_SIZE			 104	 145
ULA				 137	 166
U_CTL				 148
U_DB				 150
U_DCB				 147
U_SCB				 151
U_STS				 149
$MCB_PROCESS			 170
$NSDAT				 157#
$NSTBL				 111	 143	 172
$SCXLL				 112#	 173