Google
 

Trailing-Edge - PDP-10 Archives - BB-R595B-SM_11-9-85 - mcb/xpt/xptfwd.lst
There is 1 other file named xptfwd.lst in the archive. Click here to see a list.
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   1
								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (1)

;	  0001	module XPTFWD	(
;	  0002			IDENT = 'X01000'
;	  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	!	This module is an interface to Forwarding, which resides in the
;	  0033	!	Transport extension process XPE.
;	  0034	!
;	  0035	! ENVIRONMENT:	MCB
;	  0036	!
;	  0037	! AUTHOR: L. Webber , CREATION DATE:  9-Feb-81
;	  0038	!
;	  0039	! MODIFIED BY:
;	  0040	!
;	  0041	!	9-Feb-81 : VERSION 1.00
;	  0042	!
;	  0043	!--
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   2
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (2)

;	  0044	
;	  0045	!
;	  0046	! INCLUDE FILES:
;	  0047	!
;	  0048	
;	  0049	require 'XPTMAC';
;	  0147	
;	  0148	!
;	  0149	! TABLE OF CONTENTS
;	  0150	!
;	  0151	
;	  0152	forward routine
;	  0153		FORWARDER,
;	  0154		ECLFWD,
;	  0155		SNDBUF:  novalue,
;	  0156		TERMINATE:  novalue;
;	  0157	
;	  0158	!
;	  0159	! MACROS:
;	  0160	!
;	  0161	
;	  0162	!
;	  0163	! EQUATED SYMBOLS:
;	  0164	!
;	  0165	
;	  0166	!
;	  0167	! OWN STORAGE:
;	  0168	!
;	  0169	
;	  0170	!
;	  0171	! EXTERNAL REFERENCES:
;	  0172	!
;	  0173	
;	  0174	external routine
;	  0175	    _FORWARDER: CALL$,
;	  0176	    _ECLFWD: CALL$,
;	  0177	    _SNDBUF: CALL$ novalue,
;	  0178	    _TERMINATE: CALL$ novalue;
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   3
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (3)

;	  0179	
;	  0180	global
;	  0181	routine FORWARDER (CCB,OLINE):  =
;	  0182	
;	  0183	!++
;	  0184	! FUNCTIONAL DESCRIPTION:
;	  0185	!
;	  0186	! See _FORWARDER in XPEFWD.
;	  0187	!
;	  0188	! FORMAL PARAMETERS
;	  0189	!
;	  0190	!	Ditto.
;	  0191	!
;	  0192	! IMPLICIT INPUTS
;	  0193	!
;	  0194	!	NONE.
;	  0195	!
;	  0196	! ROUTINE VALUE:
;	  0197	! COMPLETION CODES:
;	  0198	!
;	  0199	!	NONE.
;	  0200	!
;	  0201	! SIDE EFFECTS:
;	  0202	!
;	  0203	!	NONE.
;	  0204	!
;	  0205	!--
;	  0206	
;	  0207	begin
;	  0208	
;	  0209	require 'XPTSYM';
;	  0246	
;	  0247	CALL$E(_FORWARDER,(PD_XPE),.CCB,.OLINE)
;	  0248	
;	  0249	end;				!End of FORWARDER


						.TITLE	XPTFWD
						.IDENT	/X01000/

						.GLOBL	.FORWARDER, .ECLFWD, .SNDBUF, .TERMINATE
						.GLOBL	.CRDAT, $CALLE


						.SBTTL	FORWARDER
000000						.PSECT	$CODE$,  RO 

000000	016646  000002 			FORWARDER::
					U.1:	MOV	2(SP),-(SP)			; OLINE,*				0247
000004	016646  000006 				MOV	6(SP),-(SP)			; CCB,*
000010	012746  000002 				MOV	#2,-(SP)
000014	012746  000000G				MOV	#.FORWARDER,-(SP)
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   4
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (3)

000020	016700  000002G				MOV	.CRDAT+2,R0
000024	005046 					CLR	-(SP)
000026	116016  000002 				MOVB	2(R0),(SP)
000032	004767  000000G				JSR	PC,$CALLE
000036	062706  000012 				ADD	#12,SP				;					0207
000042	000207 					RTS	PC				;					0181

; Routine Size:  18 words,	Routine Base:  $CODE$ + 0000
; Maximum stack depth per invocation:  6 words
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   5
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (4)

;	  0250	
;	  0251	global
;	  0252	routine ECLFWD (CCB,SOURCE,DEST,RTS) =
;	  0253	
;	  0254	!++
;	  0255	! FUNCTIONAL DESCRIPTION:
;	  0256	!
;	  0257	! See _ECLFWD in XPEFWD.
;	  0258	!
;	  0259	! FORMAL PARAMETERS
;	  0260	!
;	  0261	!	Ditto.
;	  0262	!
;	  0263	! IMPLICIT INPUTS
;	  0264	!
;	  0265	!	NONE.
;	  0266	!
;	  0267	! ROUTINE VALUE:
;	  0268	! COMPLETION CODES:
;	  0269	!
;	  0270	!	NONE.
;	  0271	!
;	  0272	! SIDE EFFECTS:
;	  0273	!
;	  0274	!	NONE.
;	  0275	!
;	  0276	!--
;	  0277	
;	  0278	begin
;	  0279	
;	  0280	require 'XPTSYM';
;	  0317	
;	  0318	CALL$E(_ECLFWD,(PD_XPE),.CCB,.SOURCE,.DEST,.RTS)
;	  0319	
;	  0320	end;				!End of ECLFWD


						.SBTTL	ECLFWD
000000	016646  000002 			ECLFWD::
					U.2:	MOV	2(SP),-(SP)			; RTS,*					0318
000004	016646  000006 				MOV	6(SP),-(SP)			; DEST,*
000010	016646  000012 				MOV	12(SP),-(SP)			; SOURCE,*
000014	016646  000016 				MOV	16(SP),-(SP)			; CCB,*
000020	012746  000004 				MOV	#4,-(SP)
000024	012746  000000G				MOV	#.ECLFWD,-(SP)
000030	016700  000002G				MOV	.CRDAT+2,R0
000034	005046 					CLR	-(SP)
000036	116016  000002 				MOVB	2(R0),(SP)
000042	004767  000000G				JSR	PC,$CALLE
000046	062706  000016 				ADD	#16,SP				;					0278
000052	000207 					RTS	PC				;					0252
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   6
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (4)

; Routine Size:  22 words,	Routine Base:  $CODE$ + 0044
; Maximum stack depth per invocation:  8 words
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   7
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (5)

;	  0321	
;	  0322	global
;	  0323	routine SNDBUF (LINEb,CCB):  novalue =
;	  0324	
;	  0325	!++
;	  0326	! FUNCTIONAL DESCRIPTION:
;	  0327	!
;	  0328	! See _SNDBUF in XPEFWD.
;	  0329	!
;	  0330	! FORMAL PARAMETERS
;	  0331	!
;	  0332	!	Ditto.
;	  0333	!
;	  0334	! IMPLICIT INPUTS
;	  0335	!
;	  0336	!	NONE.
;	  0337	!
;	  0338	! ROUTINE VALUE:
;	  0339	! COMPLETION CODES:
;	  0340	!
;	  0341	!	NONE.
;	  0342	!
;	  0343	! SIDE EFFECTS:
;	  0344	!
;	  0345	!	NONE.
;	  0346	!
;	  0347	!--
;	  0348	
;	  0349	begin
;	  0350	
;	  0351	require 'XPTSYM';
;	  0388	
;	  0389	CALL$E(_SNDBUF,(PD_XPE),.LINEb,.CCB);
;	  0390	
;	  0391	end;				!End of SNDBUF


						.SBTTL	SNDBUF
000000	016646  000002 			SNDBUF::
					U.3:	MOV	2(SP),-(SP)			; CCB,*					0389
000004	016646  000006 				MOV	6(SP),-(SP)			; LINEB,*
000010	012746  000002 				MOV	#2,-(SP)
000014	012746  000000G				MOV	#.SNDBUF,-(SP)
000020	016700  000002G				MOV	.CRDAT+2,R0
000024	005046 					CLR	-(SP)
000026	116016  000002 				MOVB	2(R0),(SP)
000032	004767  000000G				JSR	PC,$CALLE
000036	062706  000012 				ADD	#12,SP				;					0349
000042	000207 					RTS	PC				;					0323

; Routine Size:  18 words,	Routine Base:  $CODE$ + 0120
; Maximum stack depth per invocation:  6 words
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   8
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (6)

;	  0392	
;	  0393	global
;	  0394	routine TERMINATE (CCB,CODE):  novalue =
;	  0395	
;	  0396	!++
;	  0397	! FUNCTIONAL DESCRIPTION:
;	  0398	!
;	  0399	! See _TERMINATE in XPEFWD.
;	  0400	!
;	  0401	! FORMAL PARAMETERS
;	  0402	!
;	  0403	!	Ditto.
;	  0404	!
;	  0405	! IMPLICIT INPUTS
;	  0406	!
;	  0407	!	NONE.
;	  0408	!
;	  0409	! ROUTINE VALUE:
;	  0410	! COMPLETION CODES:
;	  0411	!
;	  0412	!	NONE.
;	  0413	!
;	  0414	! SIDE EFFECTS:
;	  0415	!
;	  0416	!	NONE.
;	  0417	!
;	  0418	!--
;	  0419	
;	  0420	begin
;	  0421	
;	  0422	require 'XPTSYM';
;	  0459	
;	  0460	CALL$E(_TERMINATE,(PD_XPE),.CCB,.CODE);
;	  0461	
;	  0462	end;				!End of TERMINATE


						.SBTTL	TERMINATE
000000	016646  000002 			TERMINATE::
					U.4:	MOV	2(SP),-(SP)			; CODE,*				0460
000004	016646  000006 				MOV	6(SP),-(SP)			; CCB,*
000010	012746  000002 				MOV	#2,-(SP)
000014	012746  000000G				MOV	#.TERMINATE,-(SP)
000020	016700  000002G				MOV	.CRDAT+2,R0
000024	005046 					CLR	-(SP)
000026	116016  000002 				MOVB	2(R0),(SP)
000032	004767  000000G				JSR	PC,$CALLE
000036	062706  000012 				ADD	#12,SP				;					0420
000042	000207 					RTS	PC				;					0394

; Routine Size:  18 words,	Routine Base:  $CODE$ + 0164
; Maximum stack depth per invocation:  6 words
XPTFWD								25-Jan-1983 09:49:18	TOPS-20 Bliss-16 2A(530)	    Page   9
X01000								30-Dec-1982 21:26:27	NETPKG:<XPT>XPTFWD.BLI.8 (6)

;	  0463	
;	  0464	end				!End of Module XPTFWD
;	  0465	eludom



;					PSECT SUMMARY
;
;	Psect Name			Words	  Attributes
;	 $CODE$				   76	    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         4         1         0
;  NETPKG:<MCB>NMXLIB.L16.13		       200         0         0         0
;  NETPKG:<XPT>XPTLIB.L16.3		       510       127        24         0





; Size:		76 code + 0 data words
; Run Time:	00:02.9
; Elapsed Time:	00:09.2
; Memory Used:	24 pages
; Compilation Complete
ADDRESS				 101+	 103+	 104+	 106+	 107+	 109+	 110+	 116+	 117+	 120+	 121+	 122+
BPT				 130+#	 142+#
BUFCHK				 134+	 135+#	 144+	 145+#
CALL$E				 247	 318	 389	 460
CALL$				 175	 176	 177	 178
CCB				 181	 247	 252	 318	 323	 389	 394	 460
CHKBUF				 137+*	 138+
DEST				 252	 318
ECLFWD				 154	 252*
FORWARDER			 153	 181*
GETQ				 101+#
GETW				  80+#	 103+	 104+
I				 125+	 127+
J				 125+	 127+
LINEBLOCK			 236+	 307+	 378+	 449+
LINEB				 234+	 236+	 305+	 307+	 323	 376+	 378+	 389	 447+	 449+
M				 125+	 126+
MATRIX				 125+#	 127+
MCB$GAW_PROCESS_DATA_BASE	 239+	 240+	 243+	 310+	 311+	 314+	 381+	 382+	 385+	 452+	 453+	 456+
N				 125+	 126+
NL				 125+	 127+
NODEBLOCK			 231+	 302+	 373+	 444+
NODEB				 229+	 231+	 300+	 302+	 371+	 373+	 442+	 444+
NOP				 142+	 143+	 145+
NO_LINEB			 235+	 306+	 377+	 448+
NO_NODEB			 230+	 301+	 372+	 443+
OLINE				 181	 247
PD_XPE				 247	 318	 389	 460
PTR				  80+	  83+	  84+	  87+	  90+	  91+	  97+	  98+	 101+	 103+	 104+	 106+
				 109+	 110+	 111+	 112+	 116+	 117+
PUTQ				 106+#
PUTW				  87+#	 116+	 117+
RTS				 252	 318
SNDBUF				 155	 323*
TERMINATE			 156	 394*
UNIT				 125+#	 126+	 127+
VALUE				  87+	  88+	  90+	  91+	  96+
X				  82+	  83+#	  84+#	  85+	  95+	  96+#	  97+	  98+
XPTDBBLOCK			 245+	 316+	 387+	 458+
XPTDB				 242+	 243+#	 244+	 313+	 314+#	 315+	 384+	 385+#	 386+	 455+	 456+#	 457+
XPTFWD				   1#
ZEROQ				 120+#
_ECLFWD				 176	 318
_FORWARDER			 175*	 247
_SNDBUF				 177	 389
_TERMINATE			 178	 460
%CTCE				  88+	 107+
%REMAINING			 132+