Google
 

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetSrc_7-23-85 - mcb/xpt/xpeini.lst
There is 1 other file named xpeini.lst in the archive. Click here to see a list.
XPEINI								25-Jan-1983 09:57:15	TOPS-20 Bliss-16 2A(530)	    Page   1
								30-Dec-1982 21:20:46	NETPKG:<XPT>XPEINI.BLI.8 (1)

;	  0001	module XPEINI	(
;	  0002			IDENT = 'X01030'
;	  0003			) =
;	  0004	begin
;	  0005	
;	  0006	!
;	  0007	!                    COPYRIGHT (c) 1980, 1981, 1982
;	  0008	!                    DIGITAL EQUIPMENT CORPORATION
;	  0009	!                        Maynard, Massachusetts
;	  0010	!
;	  0011	!     This software is furnished under a license and may  be  used
;	  0012	!     and copied only in accordance with the terms of such license
;	  0013	!     and with the inclusion of the above copyright notice.   This
;	  0014	!     software  or any other copies thereof may not be provided or
;	  0015	!     otherwise made available to any other person.  No  title  to
;	  0016	!     and ownership of the software is hereby transferred.
;	  0017	!
;	  0018	!     The information  in  this  software  is  subject  to  change
;	  0019	!     without  notice  and should not be construed as a commitment
;	  0020	!     by DIGITAL EQUIPMENT CORPORATION.
;	  0021	!
;	  0022	!     DIGITAL assumes no responsibility for the use or reliability
;	  0023	!     of  its  software  on  equipment  which  is  not supplied by
;	  0024	!     DIGITAL.
;	  0025	!
;	  0026	
;	  0027	!++
;	  0028	! FACILITY:	Transport
;	  0029	!
;	  0030	! ABSTRACT:
;	  0031	!
;	  0032	!	Transport extension initialization process; called only on process
;	  0033	!	initialization
;	  0034	!
;	  0035	! ENVIRONMENT:	MCB
;	  0036	!
;	  0037	! AUTHOR: L. Webber , CREATION DATE: 15-Apr-80
;	  0038	!
;	  0039	! MODIFIED BY:
;	  0040	!
;	  0041	!	21-Oct-80 : VERSION 1.00
;	  0042	!
;	  0043	! 1.01	L. Webber, 11-Dec-80
;	  0044	!	Modify to support MCB 3.1
;	  0045	!
;	  0046	! 1.02	L. Webber, 20-Jan-81
;	  0047	!	Take out $XPTDB, $NLN, to make XPE read-only
;	  0048	!
;	  0049	!--
XPEINI								25-Jan-1983 09:57:15	TOPS-20 Bliss-16 2A(530)	    Page   2
X01030								30-Dec-1982 21:20:46	NETPKG:<XPT>XPEINI.BLI.8 (2)

;	  0050	
;	  0051	!
;	  0052	!  INCLUDE FILES:
;	  0053	!
;	  0054	
;	  0055	require 'XPTMAC';
;	  0153	
;	  0154	!
;	  0155	! TABLE OF CONTENTS
;	  0156	!
;	  0157	
;	  0158	forward routine
;	  0159		XPEDB: CALL$ novalue;
;	  0160	
;	  0161	!
;	  0162	! MACROS:
;	  0163	!
;	  0164	
;	  0165	!
;	  0166	! EQUATED SYMBOLS:
;	  0167	!
;	  0168	
;	  0169	!
;	  0170	! OWN STORAGE:
;	  0171	!
;	  0172	
;	  0173	global bind _MAXVAL = uplit(		! Maximum unsigned value of
;	  0174	    255,65535,16776215,4294967296);	!   1, 2, 3, and 4-byte values
;	  0175	
;	  0176	!
;	  0177	! EXTERNAL REFERENCES:
;	  0178	!
;	  0179	
;	  0180	external
;	  0181	    _CRDAT: vector[2];		! Base for Transport data base
XPEINI								25-Jan-1983 09:57:15	TOPS-20 Bliss-16 2A(530)	    Page   3
X01030								30-Dec-1982 21:20:46	NETPKG:<XPT>XPEINI.BLI.8 (3)

;	  0182	
;	  0183	global
;	  0184	routine XPEDB (DBADDR): CALL$ novalue =
;	  0185	
;	  0186	!++
;	  0187	! FUNCTIONAL DESCRIPTION:
;	  0188	!
;	  0189	! Called from the XPT process on initialization, which passes the
;	  0190	! address of the Transport data base.
;	  0191	!
;	  0192	! FORMAL PARAMETERS
;	  0193	!
;	  0194	!	DBADDR	Address of the Transport data base
;	  0195	!
;	  0196	! IMPLICIT INPUTS
;	  0197	!
;	  0198	!	NONE.
;	  0199	!
;	  0200	! ROUTINE VALUE:
;	  0201	! COMPLETION CODES:
;	  0202	!
;	  0203	!	NONE.
;	  0204	!
;	  0205	! SIDE EFFECTS:
;	  0206	!
;	  0207	!	NONE.
;	  0208	!
;	  0209	!--
;	  0210	
;	  0211	begin
;	  0212	
;	  0213	_CRDAT[1] = .DBADDR;
;	  0214	
;	  0215	end;				!End of XPEDB


						.TITLE	XPEINI
						.IDENT	/X01030/


000000						.PSECT	$PLIT$,  RO ,  D  
000000	000377 				P.AAA:	.WORD	377
000002	177777 					.WORD	-1
000004	176027 					.WORD	-1751
000006	000000 					.WORD	0


						.GLOBL	.CRDAT


	000000'				.MAXVAL==	    P.AAA
XPEINI								25-Jan-1983 09:57:15	TOPS-20 Bliss-16 2A(530)	    Page   4
X01030								30-Dec-1982 21:20:46	NETPKG:<XPT>XPEINI.BLI.8 (3)


						.SBTTL	XPEDB
000000						.PSECT	$CODE$,  RO 

000000	016567  000002  000002G		XPEDB::
					U.1:	MOV	2(R5),.CRDAT+2			; DBADDR(.AP.),*			0213
000006	000207 					RTS	PC				;					0184

; Routine Size:  4 words,	Routine Base:  $CODE$ + 0000
; Maximum stack depth per invocation:  0 words


;	  0216	
;	  0217	end				!End of module XPEINI
;	  0218	eludom



;					PSECT SUMMARY
;
;	Psect Name			Words	  Attributes
;	 $PLIT$				    4	    RO ,  D  ,  LCL,  REL,  CON
;	 $CODE$				    4	    RO ,  I  ,  LCL,  REL,  CON




;				LIBRARY STATISTICS
;
;					     -------- Symbols --------    Blocks
;	File				     Total    Loaded   Percent      Read
;
;  NETPKG:<MCB>XPORTX.L16.15		       599         0         0         0
;  NETPKG:<MCB>MCBLIB.L16.15		       372         1         0         0
;  NETPKG:<MCB>NMXLIB.L16.13		       200         0         0         0
;  NETPKG:<XPT>XPTLIB.L16.3		       510         0         0         0





; Size:		4 code + 4 data words
; Run Time:	00:01.3
; Elapsed Time:	00:05.2
; Memory Used:	18 pages
; Compilation Complete
ADDRESS				 107+	 109+	 110+	 112+	 113+	 115+	 116+	 122+	 123+	 126+	 127+	 128+
BPT				 136+#	 148+#
BUFCHK				 140+	 141+#	 150+	 151+#
CALL$				 159	 184#
CHKBUF				 143+*	 144+
DBADDR				 184	 213
GETQ				 107+#
GETW				  86+#	 109+	 110+
I				 131+	 133+
J				 131+	 133+
M				 131+	 132+
MATRIX				 131+#	 133+
N				 131+	 132+
NL				 131+	 133+
NOP				 148+	 149+	 151+
PTR				  86+	  89+	  90+	  93+	  96+	  97+	 103+	 104+	 107+	 109+	 110+	 112+
				 115+	 116+	 117+	 118+	 122+	 123+
PUTQ				 112+#
PUTW				  93+#	 122+	 123+
UNIT				 131+#	 132+	 133+
VALUE				  93+	  94+	  96+	  97+	 102+
X				  88+	  89+#	  90+#	  91+	 101+	 102+#	 103+	 104+
XPEDB				 159	 184*
XPEINI				   1#
ZEROQ				 126+#
_CRDAT				 181	 213#
_MAXVAL				 173#
%CTCE				  94+	 113+
%REMAINING			 138+