Google
 

Trailing-Edge - PDP-10 Archives - BB-R598A-RM_1983 - swskit-v3/listings/xpt/xptitf.list
There are no other files named xptitf.list in the archive.
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   1
								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (1)

;	  0001	module XPTITF	(
;	  0002			IDENT = 'X01270'
;	  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 Interface Routines: takes a CCB and, based on the function/
;	  0033	!	modifier codes, routes it to a processing routine.  Some of the func-
;	  0034	!	tions require no preprocessing; the function handler is called direct-
;	  0035	!	ly.  Other routines require preprocessing or are handled entirely in
;	  0036	!	this module; all Network Management interface routines are contained
;	  0037	!	here.
;	  0038	!
;	  0039	! ENVIRONMENT:	MCB
;	  0040	!
;	  0041	! AUTHOR: L. Webber , CREATION DATE: 31-Jul-79
;	  0042	!
;	  0043	! MODIFIED BY:
;	  0044	!
;	  0045	!	L. Webber, 31-Jul-79 : VERSION 01
;	  0046	!
;	  0047	! 1.01	L. Webber, 1-Nov-79
;	  0048	!	Brought module into conformance with design specification
;	  0049	!
;	  0050	! 1.02	L. Webber, 20-Dec-79
;	  0051	!	Modifications associated with splitting Transport Line Interface out
;	  0052	!
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   2
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (1)

;	  0053	! 1.03	L. Webber, 29-Jan-80
;	  0054	!	Rewrote dispatch code to go through two levels of dispatch tables.
;	  0055	!
;	  0056	! 1.04	L. Webber, 3-Apr-80
;	  0057	!	Modified to support node and line sub-data-bases
;	  0058	!	Added dispatch table (previously in XPTINI)
;	  0059	!	Modified all calls to the XPTDEC and XPTINI routines to be
;	  0060	!	  extension process calls; added interface routines LINE$DN,
;	  0061	!	  LINE$UP, OPEN$T, CLOSE$T, INIT$XPT, and CLOSE$XPT to do the calls
;	  0062	!
;	  0063	! 1.05	L. Webber, 15-Apr-80
;	  0064	!	Add $XPTDB, the address of the Transport Data Base
;	  0065	!
;	  0066	! 1.06	L. Webber, 23-May-80
;	  0067	!	Translate between LIX and Transport line index at the DLL and
;	  0068	!	Network Management interfaces
;	  0069	!
;	  0070	! 1.07  L. Webber, 23-Jun-80
;	  0071	!       Convert MCB interfaces to MCBLIB macros
;	  0072	!
;	  0073	! 1.08	A. Peckham, 15-Oct-80
;	  0074	!	Update to use dispatch TABLE$ macro.
;	  0075	!	Use symbolic function modifiers.
;	  0076	!
;	  0077	! 1.09	A. Peckham, 21-Oct-80
;	  0078	!	Change CE_ERR returns to SIGNAL_STOP.
;	  0079	!
;	  0080	! 1.10	A. Peckham, 24-Oct-80
;	  0081	!	Change some CE_ERRs back from SIGNAL_STOPs.
;	  0082	!
;	  0083	! 1.11	L. Webber, 2-Dec-80
;	  0084	!	Switch first two parameters of DISPATCH$ macros to
;	  0085	!	match macro definition
;	  0086	!
;	  0087	! 1.12	L. Webber, 11-Dec-80
;	  0088	!	Modify to support MCB 3.1
;	  0089	!
;	  0090	! 1.13	L. Webber, 12-Jan-81
;	  0091	!	Take out old NM code and modify to call XPTNMI.
;	  0092	!
;	  0093	! 1.14	L. Webber, 20-Jan-81
;	  0094	!	Take out $XPTDB and $NLN to make XPT read-only.
;	  0095	!
;	  0096	! 1.15	L. Webber, 6-Feb-81
;	  0097	!	Forwarding is moving to XPE; CALL$E routine TERMINATE.
;	  0098	!
;	  0099	! 1.16	L. Webber, 9-Feb-81
;	  0100	!	Put back the direct calls; an interface module has been added.
;	  0101	!
;	  0102	! 1.17	L. Webber, 18-Feb-81
;	  0103	!	Fix maintenance of INPUTquota.
;	  0104	!	Add calls to the BUFCHK debugging routine.
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   3
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (1)

;	  0105	!
;	  0106	! 1.18	L. Webber, 19-Feb-81
;	  0107	!	Fix TERMINATE not to be CALL$
;	  0108	!
;	  0109	! 1.19	L. Webber, 27-Feb-81
;	  0110	!	Fix ECL_RTN to handle locally looped packets
;	  0111	!
;	  0112	! 1.20	L. Webber, 3-Mar-81
;	  0113	!	Add global literals for the data base sizes
;	  0114	!
;	  0115	! 1.21	L. Webber, 9-Mar-81
;	  0116	!	Fix bug in handling of admission quota
;	  0117	!
;	  0118	! 1.22	L. Webber, 20-Mar-81
;	  0119	!	The return of a HELLO packet should not affect the Update quota.
;	  0120	!
;	  0121	! 1.23	L. Webber, 14-May-81
;	  0122	!	Add _ROUTES to call ROUTES in XPE on a SYNCH redispatch.
;	  0123	!
;	  0124	! 1.24	L. Webber, 3-Jun-81
;	  0125	!	Modify to support new DLL interface (which also changed some modifier
;	  0126	!	codes in the TLI interface).
;	  0127	!	Modify all buffer releases to use $MCB_RETURN_CCB_AND_BUFFER.
;	  0128	!
;	  0129	! 1.25	L. Webber, 9-Jun-81
;	  0130	!	Fix glitch in DLL_RTN which was always releasing an input CCB, no
;	  0131	!	matter whom it belonged to.
;	  0132	!
;	  0133	! 1.26	L. Webber, 25-Jun-81
;	  0134	!	Add DLL_RTN processing of "uncounted" message type (used at present
;	  0135	!	only for sending "line down" DC's).
;	  0136	!
;	  0137	! 1.27	A. Peckham, 16-Apr-82
;	  0138	!	Add NM$XPT to CALL$E to get to XPT_NM which has been moved to XPE.
;	  0139	!       Optimize linkages.
;	  0140	!
;	  0141	!--
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   4
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (2)

;	  0142	
;	  0143	!
;	  0144	! TABLE OF CONTENTS
;	  0145	!
;	  0146	
;	  0147	require 'XPTMAC';
;	L 0245	%if %bliss (BLISS16)
;	  0246	%then
;	  0247	    linkage XPT_LKG_ADR_DB_CCB =
;	  0248	        jsr (register = 1, register = 5, register = 4) :
;	  0249	        nopreserve (0, 1, 2, 3, 4, 5);
;	U 0250	%else macro XPT_LKG_DB_CCB_ADR = BLISS36C %;
;	  0251	%fi
;	  0252	
;	  0253	forward routine
;	  0254		XMEDSP: MCB_DB_CCB_MOD novalue,
;	  0255		RCEDSP: MCB_DB_CCB_MOD novalue,
;	  0256		CTLDSP: MCB_DB_CCB_MOD novalue,
;	  0257		XCPDSP: MCB_DB_CCB_MOD novalue,
;	  0258		RCPDSP: MCB_DB_CCB_MOD novalue,
;	  0259		CCPDSP: MCB_DB_CCB_MOD novalue,
;	  0260		ECL_XMT: MCB_DB_CCB novalue,
;	  0261		ECL_RTN: MCB_DB_CCB novalue,
;	  0262		DLL_RTN: MCB_DB_CCB novalue,
;	  0263		REINIT_CMP: MCB_DB_CCB novalue,
;	  0264		TERM_CMP: MCB_DB_CCB novalue,
;	  0265		UNKNOWN: novalue,
;	  0266		LINE$DN: novalue,
;	  0267		LINE$UP: novalue,
;	  0268		OPEN$T: MCB_DB_CCB novalue,
;	  0269		CLOSE$T: MCB_DB_CCB novalue,
;	  0270		INIT$XPT: MCB_DB_CCB novalue,
;	  0271		NM$XPT: MCB_DB_CCB novalue,
;	  0272		TERM$XPT: MCB_DB_CCB novalue,
;	  0273		_ROUTES: novalue,
;	  0274	        CALL$XPE: XPT_LKG_ADR_DB_CCB novalue;
;	  0275	
;	  0276	!
;	  0277	! INCLUDE FILES:
;	  0278	!
;	  0279	
;	  0280	!
;	  0281	! MACROS:
;	  0282	!
;	  0283	
;	  0284	!
;	  0285	! EQUATED SYMBOLS:
;	  0286	!
;	  0287	
;	  0288	global literal				!	(in bytes)
;	  0289	    XPT$SX = XPTDB_length * %upval,	! Main data base length
;	  0290	    XPT$SN = NODElength,		! Node data base entry length
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   5
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (2)

;	  0291	    XPT$SL = LINElength;		! Line data base entry length
;	  0292	
;	  0293	!
;	  0294	! OWN STORAGE:
;	  0295	!
;	  0296	!	See $XPTLL below.
;	  0297	!
;	  0298	
;	  0299	
;	  0300	!
;	  0301	! EXTERNAL REFERENCES:
;	  0302	!
;	  0303	
;	  0304	external routine
;	  0305	    RCVECL,
;	  0306	    TERMINATE: novalue,
;	  0307	    OPENT: novalue,
;	  0308	    CLOSET: novalue,
;	  0309	    LINEUP: novalue,
;	  0310	    LINEDN: novalue,
;	  0311	    INIT_XPT: novalue,
;	  0312	    TERM_XPT: novalue,
;	  0313	    RCVBUF: novalue,
;	  0314	    COSTCH: novalue,
;	  0315	    XPE_NM: novalue,
;	  0316	    XPTTIM: novalue;
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   6
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (3)

;	  0317	
;	  0318	!++
;	  0319	!
;	  0320	!		TRANSPORT DISPATCH VECTOR
;	  0321	!
;	  0322	!  NAME: $XPTLL
;	  0323	!
;	  0324	!  This vector is the main MCB dispatch vector which dispatches
;	  0325	!  received CCBs to the interface routines in this module.
;	  0326	!
;	  0327	!--
;	  0328	external routine $DSPCR : novalue;
;	  0329	
;	  0330	global
;	P 0331	bind $XPTLL = TABLE$ ($DSPCR, FC_CCP,
;	P 0332	
;	P 0333		(FC_XME, XMEDSP),	!Transmit enable
;	P 0334		(FC_RCE, RCEDSP),	!Receive enable
;	P 0335		(FC_CTL, CTLDSP),	!Control
;	P 0336		(FC_TIM, XPTTIM),	!Timeout/process initialization
;	P 0337		(FC_XCP, XCPDSP),	!Transmit complete
;	P 0338		(FC_RCP, RCPDSP),	!Receive complete
;	  0339		(FC_CCP, CCPDSP));	!Control complete
;	  0340	
;	  0341	!++
;	  0342	!
;	  0343	!		PROCESS HEADER
;	  0344	!
;	  0345	!  NAME OF PROCESS: XPT
;	  0346	!
;	  0347	!--
;	  0348	
;	  0349	$MCB_PROCESS(name=XPT,llc_dispatch=$XPTLL)
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   7
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (4)

;	  0350	
;	  0351	global
;	  0352	routine XMEDSP (XPTDB,CCB,MODIFIER): MCB_DB_CCB_MOD novalue =
;	  0353	
;	  0354	!++
;	  0355	! FUNCTIONAL DESCRIPTION:
;	  0356	!
;	  0357	! Routine to dispatch "transmit enable" CCBs
;	  0358	!
;	  0359	! FORMAL PARAMETERS
;	  0360	!
;	  0361	!	XPTDB   	Address of Transport's data base
;	  0362	!	CCB		CCB to pass to dispatched routine.
;	  0363	!	MODIFIER	Subfunction code; used to select routine.
;	  0364	!
;	  0365	! IMPLICIT INPUTS
;	  0366	!
;	  0367	!	NONE.
;	  0368	!
;	  0369	! ROUTINE VALUE:
;	  0370	! COMPLETION CODES:
;	  0371	!
;	  0372	!	NONE.
;	  0373	!
;	  0374	! SIDE EFFECTS:
;	  0375	!
;	  0376	!	NONE.
;	  0377	!
;	  0378	!--
;	  0379	
;	  0380	begin
;	P 0381	DISPATCH$(.MODIFIER,
;	P 0382	          TABLE$ ($DSPCR, FD_XME,
;	P 0383	                  (XM_DAT, ECL_XMT)),
;	P 0384	          (.XPTDB,.CCB),
;	  0385	          MCB_DB_CCB);
;	  0386	BUFCHK();
;	  0387	end;				!End of XMEDSP


						.TITLE	XPTITF
						.IDENT	/X01270/


000000						.PSECT	......,  D  
000000	114224 				; HEADER
					U.23:	.RAD50	/XPT/
000002	000403 					.WORD	403
000004	000000 					.WORD	0
000006	000000 					.WORD	0
000010	000000 					.WORD	0
000012	000000'					.WORD	$XPTLL
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   8
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (4)

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	000000 					.WORD	0
000034	000000 					.WORD	0
000036	000000 					.WORD	0



000000						.PSECT	$PLIT$,  RO ,  D  
000000	000000G				P.AAA:	.WORD	$DSPCR
000002	000000'					.WORD	XMEDSP
000004	000000V					.WORD	U.2
000006	000000G					.WORD	$DSPCR
000010	000000V					.WORD	U.3
000012	000000G					.WORD	XPTTIM
000014	000000V					.WORD	U.4
000016	000000V					.WORD	U.5
000020	000000G					.WORD	$DSPCR
000022	000000V					.WORD	U.6
000024	000000V				P.AAB:	.WORD	U.7


						.GLOBL	RCVECL, TERMINATE, OPENT, CLOSET
						.GLOBL	LINEUP, LINEDN, INIT.XPT, TERM.XPT
						.GLOBL	RCVBUF, COSTCH, XPE.NM, XPTTIM
						.GLOBL	$DSPCR, .DSPCR, MCB$V0, MCB$V1
						.GLOBL	CHKBUF


	000176 				XPT$SX==	    176
	000010 				XPT$SN==	    10
	000104 				XPT$SL==	    104
	000000'				$XPTLL==	    P.AAA


						.SBTTL	XMEDSP
000000						.PSECT	$CODE$,  RO 

000000	004773  000024'			XMEDSP::
					U.1:	JSR	PC,@P.AAB(R3)			; *,*(MODIFIER)				0385
000004	004767  000000G				JSR	PC,CHKBUF			;					0386
000010	000207 					RTS	PC				;					0352

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0000
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page   9
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (5)

;	  0388	
;	  0389	global
;	  0390	routine RCEDSP (XPTDB,CCB,MODIFIER): MCB_DB_CCB_MOD novalue =
;	  0391	
;	  0392	!++
;	  0393	! FUNCTIONAL DESCRIPTION:
;	  0394	!
;	  0395	! Routine to dispatch "receive enable" CCBs
;	  0396	!
;	  0397	! FORMAL PARAMETERS
;	  0398	!
;	  0399	!	XPTDB   	Address of Transport's data base
;	  0400	!	CCB		CCB to pass to dispatched routine.
;	  0401	!	MODIFIER	Subfunction code; used to select routine.
;	  0402	!
;	  0403	! IMPLICIT INPUTS
;	  0404	!
;	  0405	!	NONE.
;	  0406	!
;	  0407	! ROUTINE VALUE:
;	  0408	! COMPLETION CODES:
;	  0409	!
;	  0410	!	NONE.
;	  0411	!
;	  0412	! SIDE EFFECTS:
;	  0413	!
;	  0414	!	NONE.
;	  0415	!
;	  0416	!--
;	  0417	
;	  0418	begin
;	P 0419	DISPATCH$(.MODIFIER,
;	P 0420	          TABLE$ ($DSPCR, FD_RCE,
;	P 0421	                  (XM_DAT, ECL_RTN)),
;	P 0422	          (.XPTDB,.CCB),
;	  0423	          MCB_DB_CCB);
;	  0424	BUFCHK();
;	  0425	end;				!End of RCEDSP



000026						.PSECT	$PLIT$,  RO ,  D  
000026	000000V				P.AAC:	.WORD	U.8
000030	000000G					.WORD	$DSPCR
000032	000000G					.WORD	$DSPCR


						.SBTTL	RCEDSP
000012						.PSECT	$CODE$,  RO 

000000	004773  000026'			RCEDSP::
					U.2:	JSR	PC,@P.AAC(R3)			; *,*(MODIFIER)				0423
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  10
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (5)

000004	004767  000000G				JSR	PC,CHKBUF			;					0424
000010	000207 					RTS	PC				;					0390

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0012
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  11
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (6)

;	  0426	
;	  0427	global
;	  0428	routine CTLDSP (XPTDB,CCB,MODIFIER): MCB_DB_CCB_MOD novalue =
;	  0429	
;	  0430	!++
;	  0431	! FUNCTIONAL DESCRIPTION:
;	  0432	!
;	  0433	! Routine to dispatch "control" CCBs
;	  0434	!
;	  0435	! FORMAL PARAMETERS
;	  0436	!
;	  0437	!	XPTDB   	Address of Transport's data base
;	  0438	!	CCB		CCB to pass to dispatched routine.
;	  0439	!	MODIFIER	Subfunction code; used to select routine.
;	  0440	!
;	  0441	! IMPLICIT INPUTS
;	  0442	!
;	  0443	!	NONE.
;	  0444	!
;	  0445	! ROUTINE VALUE:
;	  0446	! COMPLETION CODES:
;	  0447	!
;	  0448	!	NONE.
;	  0449	!
;	  0450	! SIDE EFFECTS:
;	  0451	!
;	  0452	!	NONE.
;	  0453	!
;	  0454	!--
;	  0455	
;	  0456	begin
;	P 0457	DISPATCH$(.MODIFIER,
;	P 0458	          TABLE$ ($DSPCR, FD_CTL,
;	P 0459	                  (NM_INI, INIT$XPT),
;	P 0460	                  (XM_STR, OPEN$T),
;	P 0461	                  (XM_STP, CLOSE$T),
;	P 0462	                  (FM_NM,  NM$XPT),
;	P 0463	                  (NM_TRM, TERM$XPT)),
;	P 0464	          (.XPTDB,.CCB),
;	  0465	          MCB_DB_CCB);
;	  0466	BUFCHK();
;	  0467	end;				!End of CTLDSP



000034						.PSECT	$PLIT$,  RO ,  D  
000034	000000V				P.AAD:	.WORD	U.17
000036	000000V					.WORD	U.15
000040	000000V					.WORD	U.16
000042	000000V					.WORD	U.18
000044	000000V					.WORD	U.19
000046	000000G					.WORD	$DSPCR
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  12
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (6)

000050	000000G					.WORD	$DSPCR


						.SBTTL	CTLDSP
000024						.PSECT	$CODE$,  RO 

000000	004773  000034'			CTLDSP::
					U.3:	JSR	PC,@P.AAD(R3)			; *,*(MODIFIER)				0465
000004	004767  000000G				JSR	PC,CHKBUF			;					0466
000010	000207 					RTS	PC				;					0428

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0024
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  13
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (7)

;	  0468	
;	  0469	global
;	  0470	routine XCPDSP (XPTDB,CCB,MODIFIER): MCB_DB_CCB_MOD novalue =
;	  0471	
;	  0472	!++
;	  0473	! FUNCTIONAL DESCRIPTION:
;	  0474	!
;	  0475	! Routine to dispatch "transmit complete" CCBs
;	  0476	!
;	  0477	! FORMAL PARAMETERS
;	  0478	!
;	  0479	!	XPTDB   	Address of Transport's data base
;	  0480	!	CCB		CCB to pass to dispatched routine.
;	  0481	!	MODIFIER	Subfunction code; used to select routine.
;	  0482	!
;	  0483	! IMPLICIT INPUTS
;	  0484	!
;	  0485	!	NONE.
;	  0486	!
;	  0487	! ROUTINE VALUE:
;	  0488	! COMPLETION CODES:
;	  0489	!
;	  0490	!	NONE.
;	  0491	!
;	  0492	! SIDE EFFECTS:
;	  0493	!
;	  0494	!	NONE.
;	  0495	!
;	  0496	!--
;	  0497	
;	  0498	begin
;	P 0499	DISPATCH$(.MODIFIER,
;	P 0500	          TABLE$ ($DSPCR, FD_XCP,
;	P 0501	                  (TM_DAT, DLL_RTN)),
;	P 0502	          (.XPTDB,.CCB),
;	  0503	          MCB_DB_CCB);
;	  0504	BUFCHK();
;	  0505	end;				!End of XCPDSP



000052						.PSECT	$PLIT$,  RO ,  D  
000052	000000V				P.AAE:	.WORD	U.9


						.SBTTL	XCPDSP
000036						.PSECT	$CODE$,  RO 

000000	004773  000052'			XCPDSP::
					U.4:	JSR	PC,@P.AAE(R3)			; *,*(MODIFIER)				0503
000004	004767  000000G				JSR	PC,CHKBUF			;					0504
000010	000207 					RTS	PC				;					0470
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  14
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (7)


; Routine Size:  5 words,	Routine Base:  $CODE$ + 0036
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  15
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (8)

;	  0506	
;	  0507	global
;	  0508	routine RCPDSP (XPTDB,CCB,MODIFIER): MCB_DB_CCB_MOD novalue =
;	  0509	
;	  0510	!++
;	  0511	! FUNCTIONAL DESCRIPTION:
;	  0512	!
;	  0513	! Routine to dispatch "receive complete" CCBs
;	  0514	!
;	  0515	! FORMAL PARAMETERS
;	  0516	!
;	  0517	!	XPTDB   	Address of Transport's data base
;	  0518	!	CCB		CCB to pass to dispatched routine.
;	  0519	!	MODIFIER	Subfunction code; used to select routine.
;	  0520	!
;	  0521	! IMPLICIT INPUTS
;	  0522	!
;	  0523	!	NONE.
;	  0524	!
;	  0525	! ROUTINE VALUE:
;	  0526	! COMPLETION CODES:
;	  0527	!
;	  0528	!	NONE.
;	  0529	!
;	  0530	! SIDE EFFECTS:
;	  0531	!
;	  0532	!	NONE.
;	  0533	!
;	  0534	!--
;	  0535	
;	  0536	begin
;	P 0537	DISPATCH$(.MODIFIER,
;	P 0538	          TABLE$ ($DSPCR, FD_RCP,
;	P 0539	                  (TM_INI, LINE$UP),
;	P 0540	                  (TM_DAT, RCVBUF),
;	P 0541	                  (TM_TRM, LINE$DN)),
;	  0542	          .CCB);
;	  0543	BUFCHK();
;	  0544	end;				!End of RCPDSP



000054						.PSECT	$PLIT$,  RO ,  D  
000054	000000G				P.AAF:	.WORD	RCVBUF
000056	000000G					.WORD	$DSPCR
000060	000000G					.WORD	$DSPCR
000062	000000G					.WORD	$DSPCR
000064	000000G					.WORD	$DSPCR
000066	000000G					.WORD	$DSPCR
000070	000000V					.WORD	U.14
000072	000000V					.WORD	U.13
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  16
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (8)


						.SBTTL	RCPDSP
000050						.PSECT	$CODE$,  RO 

000000	010446 				RCPDSP::
					U.5:	MOV	R4,-(SP)			; CCB,*					0542
000002	004773  000054'				JSR	PC,@P.AAF(R3)			; *,*(MODIFIER)
000006	004767  000000G				JSR	PC,CHKBUF			;					0543
000012	005726 					TST	(SP)+				;					0536
000014	000207 					RTS	PC				;					0508

; Routine Size:  7 words,	Routine Base:  $CODE$ + 0050
; Maximum stack depth per invocation:  2 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  17
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (9)

;	  0545	
;	  0546	global
;	  0547	routine CCPDSP (XPTDB,CCB,MODIFIER): MCB_DB_CCB_MOD novalue =
;	  0548	
;	  0549	!++
;	  0550	! FUNCTIONAL DESCRIPTION:
;	  0551	!
;	  0552	! Routine to dispatch "control complete" CCBs
;	  0553	!
;	  0554	! FORMAL PARAMETERS
;	  0555	!
;	  0556	!	XPTDB   	Address of Transport's data base
;	  0557	!	CCB		CCB to pass to dispatched routine.
;	  0558	!	MODIFIER	Subfunction code; used to select routine.
;	  0559	!
;	  0560	! IMPLICIT INPUTS
;	  0561	!
;	  0562	!	NONE.
;	  0563	!
;	  0564	! ROUTINE VALUE:
;	  0565	! COMPLETION CODES:
;	  0566	!
;	  0567	!	NONE.
;	  0568	!
;	  0569	! SIDE EFFECTS:
;	  0570	!
;	  0571	!	NONE.
;	  0572	!
;	  0573	!--
;	  0574	
;	  0575	begin
;	P 0576	DISPATCH$(.MODIFIER,
;	P 0577	          TABLE$ ($DSPCR, FD_CCP,
;	P 0578	                  (TM_STR, REINIT_CMP),
;	P 0579	                  (TM_STP, TERM_CMP)),
;	P 0580	          (.XPTDB,.CCB),
;	  0581	          MCB_DB_CCB);
;	  0582	BUFCHK();
;	  0583	end;				!End of CCPDSP



000074						.PSECT	$PLIT$,  RO ,  D  
000074	000000G				P.AAG:	.WORD	$DSPCR
000076	000000G					.WORD	$DSPCR
000100	000000G					.WORD	$DSPCR
000102	000000G					.WORD	$DSPCR
000104	000000V					.WORD	U.11
000106	000000V					.WORD	U.10
000110	000000G					.WORD	$DSPCR
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  18
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (9)

						.SBTTL	CCPDSP
000066						.PSECT	$CODE$,  RO 

000000	004773  000074'			CCPDSP::
					U.6:	JSR	PC,@P.AAG(R3)			; *,*(MODIFIER)				0581
000004	004767  000000G				JSR	PC,CHKBUF			;					0582
000010	000207 					RTS	PC				;					0547

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0066
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  19
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (10)

;	  0584	
;	  0585	routine ECL_XMT (XPTDB,CCB): MCB_DB_CCB novalue =
;	  0586	
;	  0587	!++
;	  0588	! FUNCTIONAL DESCRIPTION:
;	  0589	!
;	  0590	!  Handles Transmit requests from a Transport user
;	  0591	!
;	  0592	! FORMAL PARAMETERS
;	  0593	!
;	  0594	!	XPTDB - Address of Transport's data base
;	  0595	!	CCB - CCB given by the Transport user to be transmitted
;	  0596	!
;	  0597	! IMPLICIT INPUTS
;	  0598	!
;	  0599	!	NONE.
;	  0600	!
;	  0601	! ROUTINE VALUE:
;	  0602	! COMPLETION CODES:
;	  0603	!
;	  0604	!	NONE.
;	  0605	!
;	  0606	! SIDE EFFECTS:
;	  0607	!
;	  0608	!	NONE.
;	  0609	!
;	  0610	!--
;	  0611	
;	  0612	begin
;	  0613	
;	  0614	require 'XPTSYM';
;	  0651	require 'MCBCOM';
;	  0685	local RET;
;	  0686	
;	  0687	!
;	  0688	!  If Transport isn't active or the admission quota is exhausted,
;	  0689	!  reject the packet
;	  0690	!
;	  0691	
;	  0692	INPUTquota = .INPUTquota - 1;			!Decrement admission quota
;	  0693	if bitoff(.XPTflags,Running) then		!Transport not running
;	  0694	    TERMINATE(.CCB,CE_NTE)
;	  0695	else if .INPUTquota eql -1 then			!Admission quota exhausted
;	  0696	    TERMINATE(.CCB,CE_RTE)
;	  0697	
;	  0698	!
;	  0699	!  Send the message out
;	  0700	!
;	  0701	
;	  0702	else begin
;	  0703	    RET = RCVECL(.CCB);
;	  0704	
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  20
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (10)

;	  0705	
;	  0706	!
;	  0707	!  Failed - return function CCB now
;	  0708	!
;	  0709	
;	  0710	    if .RET neq CS_SUC then begin
;	  0711		TERMINATE(.CCB,.RET);
;	  0712		end;
;	  0713	    end;
;	  0714	end;				!End of ECL_XMT


						.GLOBL	.CRDAT


						.SBTTL	ECL.XMT
000000	105365  000104 			; ECL.XMT
					U.7:	DECB	104(R5)				; *(XPTDB)				0692
000004	032765  000001  000106 			BIT	#1,106(R5)			; *,*(XPTDB)				0693
000012	001004 					BNE	1$
000014	010446 					MOV	R4,-(SP)			; CCB,*					0694
000016	012746  177720 				MOV	#-60,-(SP)
000022	000420 					BR	3$
000024	126527  000104  177777 		1$:	CMPB	104(R5),#-1			; *(XPTDB),*				0695
000032	001004 					BNE	2$
000034	010446 					MOV	R4,-(SP)			; CCB,*					0696
000036	012746  177730 				MOV	#-50,-(SP)
000042	000410 					BR	3$
000044	010446 				2$:	MOV	R4,-(SP)			; CCB,*					0703
000046	004767  000000G				JSR	PC,RCVECL
000052	020027  000001 				CMP	R0,#1				; RET,*					0710
000056	001405 					BEQ	4$
000060	010416 					MOV	R4,(SP)				; CCB,*					0711
000062	010046 					MOV	R0,-(SP)			; RET,*
000064	004767  000000G			3$:	JSR	PC,TERMINATE
000070	005726 					TST	(SP)+				;					0710
000072	005726 				4$:	TST	(SP)+				;					0612
000074	000207 					RTS	PC				;					0585

; Routine Size:  31 words,	Routine Base:  $CODE$ + 0100
; Maximum stack depth per invocation:  3 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  21
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (11)

;	  0715	
;	  0716	routine ECL_RTN (XPTDB,CCB): MCB_DB_CCB novalue =
;	  0717	
;	  0718	!++
;	  0719	! FUNCTIONAL DESCRIPTION:
;	  0720	!
;	  0721	!  Processes a data buffer returned from a Transport user.  If the buffer
;	  0722	!  belongs to Transport, the routine releases it.  Otherwise, it dequeues
;	  0723	!  the transport header CCB and returns it, returns the data CCB to
;	  0724	!  the Data Link Layer, and updates the ECL quota.
;	  0725	!
;	  0726	! FORMAL PARAMETERS
;	  0727	!
;	  0728	!	XPTDB - Address of Transport's data base
;	  0729	!	CCB - CCB being returned.
;	  0730	!
;	  0731	! IMPLICIT INPUTS
;	  0732	!
;	  0733	!	NONE.
;	  0734	!
;	  0735	! ROUTINE VALUE:
;	  0736	! COMPLETION CODES:
;	  0737	!
;	  0738	!	NONE.
;	  0739	!
;	  0740	! SIDE EFFECTS:
;	  0741	!
;	  0742	!	NONE.
;	  0743	!
;	  0744	!--
;	  0745	
;	  0746	begin
;	  0747	map CCB: ref block field (C_XPT_fields);
;	  0748	require 'XPTSYM';
;	  0785	
;	  0786	!
;	  0787	!  Increase the quota of buffers allowed to the ECL
;	  0788	!
;	  0789	
;	  0790	ECLquota = .ECLquota + 1;
;	  0791	
;	  0792	!
;	  0793	!  Return the data buffer to the DLL, or the ECL, or release it
;	  0794	!
;	  0795	
;	  0796	if .CCB[C_STK] eql 0 then begin			!Transport's buffer:
;	P 0797	    $MCB_RETURN_CCB_AND_BUFFER(.CCB[C_XPT_ALLOCATION],	!  release it
;	  0798		.CCB);					!  and return
;	  0799	    INPUTquota = .INPUTquota + 1;		!  admission
;	  0800	    end						!  permit
;	  0801	else if .CCB[C_STS] eql 0 then 			!Normal buffer:
;	  0802	    TERMINATE(.CCB,CS_SUC)			!  return "success"
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  22
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (11)

;	  0803	else 						!Otherwise,
;	  0804	    TERMINATE(.CCB,CE_DIS);			!  return "no path"
;	  0805	end;				!End of ECL_RTN


						.GLOBL	$CBBRT


						.SBTTL	ECL.RTN
000000	010400 				; ECL.RTN
					U.8:	MOV	R4,R0				; *,CCB					0716
000002	105265  000102 				INCB	102(R5)				; *(XPTDB)				0790
000006	005760  000004 				TST	4(R0)				; *(CCB)				0796
000012	001007 					BNE	1$
000014	016001  000034 				MOV	34(R0),R1			; *(CCB),*				0798
000020	004767  000000G				JSR	PC,$CBBRT
000024	105265  000104 				INCB	104(R5)				; *(XPTDB)				0799
000030	000207 					RTS	PC				;					0796
000032	005760  000014 			1$:	TST	14(R0)				; *(CCB)				0801
000036	001004 					BNE	2$
000040	010046 					MOV	R0,-(SP)			; CCB,*					0802
000042	012746  000001 				MOV	#1,-(SP)
000046	000403 					BR	3$
000050	010046 				2$:	MOV	R0,-(SP)			; CCB,*					0804
000052	012746  177520 				MOV	#-260,-(SP)
000056	004767  000000G			3$:	JSR	PC,TERMINATE
000062	022626 					CMP	(SP)+,(SP)+			;					0801
000064	000207 					RTS	PC				;					0716

; Routine Size:  27 words,	Routine Base:  $CODE$ + 0176
; Maximum stack depth per invocation:  3 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  23
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (12)

;	  0806	
;	  0807	routine DLL_RTN (XPTDB,CCB): MCB_DB_CCB novalue =
;	  0808	
;	  0809	!++
;	  0810	! FUNCTIONAL DESCRIPTION:
;	  0811	!
;	  0812	!  Processes "transmit complete" returns from the Data Link Layer.
;	  0813	!  If there is a routing header, the header CCB is detached and released.
;	  0814	!  The buffer is then returned to its owner.
;	  0815	!
;	  0816	! FORMAL PARAMETERS
;	  0817	!
;	  0818	!	XPTDB - Address of Transport's data base
;	  0819	!	CCB - CCB returned from the DLL
;	  0820	!
;	  0821	! IMPLICIT INPUTS
;	  0822	!
;	  0823	!	NONE.
;	  0824	!
;	  0825	! ROUTINE VALUE:
;	  0826	! COMPLETION CODES:
;	  0827	!
;	  0828	!	NONE.
;	  0829	!
;	  0830	! SIDE EFFECTS:
;	  0831	!
;	  0832	!	NONE.
;	  0833	!
;	  0834	!--
;	  0835	
;	  0836	begin
;	  0837	map CCB: ref block field(C_XPT_fields);
;	  0838	local LINEb;
;	  0839	require 'XPTSYM';
;	  0876	local RET;
;	  0877	bind LINE = .CCB[C_LIN];		! Line over which buffer was received
;	  0878	bind TYPE = .CCB[C_XPT_TYPE];
;	  0879	bind SUBTYPE = .CCB[C_XPT_SUBTYPE];
;	  0880	LINEb = $XPT_GET_LINE_DB(LINE);         ! Address line data base entry
;	  0881	
;	  0882	!
;	  0883	!  Data packet - increase the output quota for the input line
;	  0884	!  and terminate the packet
;	  0885	!
;	  0886	
;	  0887	if TYPE eql FWDcode then begin
;	  0888	    LINEquota = .LINEquota + 1;
;	  0889	    TERMINATE(.CCB,CS_SUC);
;	  0890	    end
;	  0891	
;	  0892	!
;	  0893	!  Routing message - increase the update quota and get rid of the packet
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  24
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (12)

;	  0894	!
;	  0895	
;	  0896	else if TYPE eql UPDATEcode then begin
;	  0897	    if SUBTYPE eql UPDATEcode then
;	  0898		UPDATEquota = .UPDATEquota + 1;
;	  0899	    if .CCB[C_XPT_ALLOCATION] neq 0
;	  0900	    then begin
;	  0901	         MAP$(.CCB[C_BIAS]);
;	  0902	         $MCB_RETURN_BUFFER(.CCB[C_XPT_ALLOCATION],.CCB[C_ADDR]);
;	  0903	         end;
;	  0904	    $MCB_RETURN_CCB(.CCB);
;	  0905	    end
;	  0906	
;	  0907	!
;	  0908	!  Other (non-counted) type - just terminate it
;	  0909	!
;	  0910	
;	  0911	else TERMINATE(.CCB,CS_SUC);
;	  0912	
;	  0913	end;				!End of DLL_RTN


						.GLOBL	GTLINE, KISAR6, $CORRT, $CCBRT


						.SBTTL	DLL.RTN
000000	116401  000032 			; DLL.RTN
					U.9:	MOVB	32(R4),R1			; *(CCB),*				0878
000004	005000 					CLR	R0				;					0880
000006	156400  000010 				BISB	10(R4),R0			; *(CCB),*
000012	004767  000000G				JSR	PC,GTLINE
000016	020127  000004 				CMP	R1,#4				;					0887
000022	001003 					BNE	1$
000024	105260  000036 				INCB	36(R0)				; *(LINEB)				0888
000030	000424 					BR	4$				;					0889
000032	020127  000001 			1$:	CMP	R1,#1				;					0896
000036	001021 					BNE	4$
000040	005301 					DEC	R1				;					0897
000042	001002 					BNE	2$
000044	105265  000100 				INCB	100(R5)				; *(XPTDB)				0898
000050	016401  000034 			2$:	MOV	34(R4),R1			; *(CCB),*				0899
000054	001407 					BEQ	3$
000056	016467  000016  000000G			MOV	16(R4),KISAR6			; *(CCB),*				0901
000064	016400  000020 				MOV	20(R4),R0			; *(CCB),*				0902
000070	004767  000000G				JSR	PC,$CORRT
000074	004767  000000G			3$:	JSR	PC,$CCBRT			;					0904
000100	000207 					RTS	PC				;					0896
000102	010446 				4$:	MOV	R4,-(SP)			; CCB,*					0911
000104	012746  000001 				MOV	#1,-(SP)
000110	004767  000000G				JSR	PC,TERMINATE
000114	022626 					CMP	(SP)+,(SP)+
000116	000207 					RTS	PC				;					0807
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  25
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (12)


; Routine Size:  40 words,	Routine Base:  $CODE$ + 0264
; Maximum stack depth per invocation:  3 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  26
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (13)

;	  0914	
;	  0915	routine UNKNOWN (CCB): novalue =
;	  0916	
;	  0917	!++
;	  0918	! FUNCTIONAL DESCRIPTION:
;	  0919	!
;	  0920	!  Processes an unknown function; flags the CCB in error and returns it.
;	  0921	!
;	  0922	! FORMAL PARAMETERS
;	  0923	!
;	  0924	!	CCB
;	  0925	!
;	  0926	! IMPLICIT INPUTS
;	  0927	!
;	  0928	!	NONE.
;	  0929	!
;	  0930	! ROUTINE VALUE:
;	  0931	! COMPLETION CODES:
;	  0932	!
;	  0933	!	NONE.
;	  0934	!
;	  0935	! SIDE EFFECTS:
;	  0936	!
;	  0937	!	NONE.
;	  0938	!
;	  0939	!--
;	  0940	
;	  0941	begin
;	  0942	
;	  0943	require 'XPTSYM';
;	  0980	require 'MCBCOM';
;	  1014	
;	  1015	!
;	  1016	!  Log a Invalid Message event
;	  1017	!
;	  1018	
;	  1019	%( TBS )%
;	  1020	
;	  1021	!
;	  1022	!  Get rid of the CCB
;	  1023	!
;	  1024	
;	  1025	TERMINATE(.CCB,CS_SUC);
;	  1026	end;				!End of UNKNOWN


						.SBTTL	UNKNOWN
000000	016646  000002 			; UNKNOWN
					U.12:	MOV	2(SP),-(SP)			; CCB,*					1025
000004	012746  000001 				MOV	#1,-(SP)
000010	004767  000000G				JSR	PC,TERMINATE
000014	022626 					CMP	(SP)+,(SP)+			;					0941
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  27
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (13)

000016	000207 					RTS	PC				;					0915

; Routine Size:  8 words,	Routine Base:  $CODE$ + 0404
; Maximum stack depth per invocation:  3 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  28
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (14)

;	  1027	
;	  1028	routine REINIT_CMP (XPTDB,CCB): MCB_DB_CCB novalue =
;	  1029	
;	  1030	!++
;	  1031	! FUNCTIONAL DESCRIPTION:
;	  1032	!
;	  1033	! Processes a completed "Reinitialize Line" CCB.  Since the
;	  1034	! Reinitialize function is not synchronized with any Transport
;	  1035	! activity (the synchronization is provided by Line Up and Line
;	  1036	! Down signals), the CCB is terminated without processing.
;	  1037	!
;	  1038	! FORMAL PARAMETERS
;	  1039	!
;	  1040	!	XPTDB  	Address of Transport's data base
;	  1041	!	CCB	Function CCB returned from Transport Line Interface
;	  1042	!
;	  1043	! IMPLICIT INPUTS
;	  1044	!
;	  1045	!	NONE.
;	  1046	!
;	  1047	! ROUTINE VALUE:
;	  1048	! COMPLETION CODES:
;	  1049	!
;	  1050	!	NONE.
;	  1051	!
;	  1052	! SIDE EFFECTS:
;	  1053	!
;	  1054	!	NONE.
;	  1055	!
;	  1056	!--
;	  1057	
;	  1058	begin
;	  1059	
;	  1060	CCBRT$(.CCB);
;	  1061	
;	  1062	end;				!End of REINIT_CMP


						.SBTTL	REINIT.CMP
000000	004767  000000G			; REINIT.CMP
					U.10:	JSR	PC,$CCBRT			;					1060
000004	000207 					RTS	PC				;					1028

; Routine Size:  3 words,	Routine Base:  $CODE$ + 0424
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  29
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (15)

;	  1063	
;	  1064	routine TERM_CMP (XPTDB,CCB): MCB_DB_CCB novalue =
;	  1065	
;	  1066	!++
;	  1067	! FUNCTIONAL DESCRIPTION:
;	  1068	!
;	  1069	! This routine processes a completed Terminate Line CCB.  For reasons
;	  1070	! similar to those for REINIT_CMP above, the CCB is terminated without
;	  1071	! processing.  If Transport is not running and all lines have been
;	  1072	! terminated, the "Terminate Transport" function CCB which was stored
;	  1073	! in Tid by TERM$XPT will be returned to its sender.
;	  1074	!
;	  1075	! FORMAL PARAMETERS
;	  1076	!
;	  1077	!	XPTDB  	Address of Transport's data base
;	  1078	!	CCB	Terminate CCB, returned from Transport Line Interface
;	  1079	!
;	  1080	! IMPLICIT INPUTS
;	  1081	!
;	  1082	!	NONE.
;	  1083	!
;	  1084	! ROUTINE VALUE:
;	  1085	! COMPLETION CODES:
;	  1086	!
;	  1087	!	NONE.
;	  1088	!
;	  1089	! SIDE EFFECTS:
;	  1090	!
;	  1091	!	NONE.
;	  1092	!
;	  1093	!--
;	  1094	
;	  1095	begin
;	  1096	
;	  1097	local LINEb;
;	  1098	require 'XPTSYM';
;	  1135	require 'MCBCOM';
;	  1169	
;	  1170	!
;	  1171	!  Get rid of the completed CCB
;	  1172	!
;	  1173	
;	  1174	TERMINATE(.CCB,0);
;	  1175	
;	  1176	!
;	  1177	!  If Transport is terminating and all lines are down, return the
;	  1178	!  Terminate Transport function CCB.
;	  1179	!
;	  1180	
;	  1181	if .XPTflags eql 0 then
;	  1182	if (decr J from NLN to 1 do begin
;	  1183	    LINEb = $XPT_GET_LINE_DB(.J);
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  30
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (15)

;	  1184	    if .LINEstate neq HA
;	  1185		then exitloop 0
;	  1186	    end)
;	  1187	    eql -1 then begin
;	  1188		CCB = .Tid;		!Pick up the function CCB
;	  1189		CCB[C_FNC] = FC_CCP;	!Flag it "complete"
;	  1190		CCB[C_STS] = CS_SUC;	!  and "success"
;	  1191		LLCRS$(.CCB);		!  and send it off
;	  1192		end;
;	  1193	
;	  1194	end;				!End of TERM_CMP


						.GLOBL	$SCHED


						.SBTTL	TERM.CMP
000000	010446 				; TERM.CMP
					U.11:	MOV	R4,-(SP)			; CCB,*					1174
000002	005046 					CLR	-(SP)
000004	004767  000000G				JSR	PC,TERMINATE
000010	005765  000106 				TST	106(R5)				; *(XPTDB)				1181
000014	001032 					BNE	5$
000016	016502  000022 				MOV	22(R5),R2			; *(XPTDB),J				1182
000022	003411 					BLE	3$
000024	010200 				1$:	MOV	R2,R0				; J,*					1183
000026	004767  000000G				JSR	PC,GTLINE
000032	010001 					MOV	R0,R1				; *,LINEB
000034	105711 					TSTB	(R1)				; LINEB					1184
000036	001402 					BEQ	2$
000040	005000 					CLR	R0				;					1185
000042	000403 					BR	4$
000044	077211 				2$:	SOB	R2,1$				; J,*					0000
000046	012700  177777 			3$:	MOV	#-1,R0				;					1182
000052	005200 				4$:	INC	R0				;					1187
000054	001012 					BNE	5$
000056	016504  000056 				MOV	56(R5),R4			; *(XPTDB),CCB				1188
000062	112764  000022  000012 			MOVB	#22,12(R4)			; *,*(CCB)				1189
000070	012764  000001  000014 			MOV	#1,14(R4)			; *,*(CCB)				1190
000076	004767  000000G				JSR	PC,$SCHED			;					1191
000102	022626 				5$:	CMP	(SP)+,(SP)+			;					1095
000104	000207 					RTS	PC				;					1064

; Routine Size:  35 words,	Routine Base:  $CODE$ + 0432
; Maximum stack depth per invocation:  3 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  31
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (16)

;	  1195	
;	  1196	routine LINE$DN (CCB): novalue =
;	  1197	
;	  1198	!++
;	  1199	! FUNCTIONAL DESCRIPTION:
;	  1200	!
;	  1201	! Calls the LINEDN routine in the Transport extension process.
;	  1202	!
;	  1203	! FORMAL PARAMETERS
;	  1204	!
;	  1205	!	CCB	Function CCB to be passed to the routine.
;	  1206	!
;	  1207	! IMPLICIT INPUTS
;	  1208	!
;	  1209	!	NONE.
;	  1210	!
;	  1211	! ROUTINE VALUE:
;	  1212	! COMPLETION CODES:
;	  1213	!
;	  1214	!	NONE.
;	  1215	!
;	  1216	! SIDE EFFECTS:
;	  1217	!
;	  1218	!	NONE.
;	  1219	!
;	  1220	!--
;	  1221	
;	  1222	begin
;	  1223	
;	  1224	require 'XPTSYM';
;	  1261	
;	  1262	CALL$XPE(LINEDN,.XPTDB,.CCB);
;	  1263	
;	  1264	end;				!End of LINE$DN


						.SBTTL	LINE$DN
000000	004167  000000G			; LINE$DN
					U.13:	JSR	R1,$SAVE5			;					1196
000004	012701  000000G				MOV	#LINEDN,R1			;					1262
000010	016705  000002G				MOV	.CRDAT+2,R5
000014	016604  000016 				MOV	16(SP),R4			; CCB,*
000020	004767  000000V				JSR	PC,U.21
000024	000207 					RTS	PC				;					1196

; Routine Size:  11 words,	Routine Base:  $CODE$ + 0540
; Maximum stack depth per invocation:  7 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  32
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (17)

;	  1265	
;	  1266	routine LINE$UP (CCB): novalue =
;	  1267	
;	  1268	!++
;	  1269	! FUNCTIONAL DESCRIPTION:
;	  1270	!
;	  1271	!
;	  1272	! FORMAL PARAMETERS
;	  1273	!
;	  1274	!	CCB	Function CCB to be passed to the routine.
;	  1275	!
;	  1276	! IMPLICIT INPUTS
;	  1277	!
;	  1278	!	NONE.
;	  1279	!
;	  1280	! ROUTINE VALUE:
;	  1281	! COMPLETION CODES:
;	  1282	!
;	  1283	!	NONE.
;	  1284	!
;	  1285	! SIDE EFFECTS:
;	  1286	!
;	  1287	!	NONE.
;	  1288	!
;	  1289	!--
;	  1290	
;	  1291	begin
;	  1292	
;	  1293	require 'XPTSYM';
;	  1330	
;	  1331	CALL$XPE(LINEUP,.XPTDB,.CCB);
;	  1332	
;	  1333	end;				!End of LINE$UP


						.SBTTL	LINE$UP
000000	004167  000000G			; LINE$UP
					U.14:	JSR	R1,$SAVE5			;					1266
000004	012701  000000G				MOV	#LINEUP,R1			;					1331
000010	016705  000002G				MOV	.CRDAT+2,R5
000014	016604  000016 				MOV	16(SP),R4			; CCB,*
000020	004767  000000V				JSR	PC,U.21
000024	000207 					RTS	PC				;					1266

; Routine Size:  11 words,	Routine Base:  $CODE$ + 0566
; Maximum stack depth per invocation:  7 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  33
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (18)

;	  1334	
;	  1335	routine OPEN$T (XPTDB,CCB): MCB_DB_CCB novalue =
;	  1336	
;	  1337	!++
;	  1338	! FUNCTIONAL DESCRIPTION:
;	  1339	!
;	  1340	!
;	  1341	! FORMAL PARAMETERS
;	  1342	!
;	  1343	!	XPTDB  	Address of Transport's data base
;	  1344	!	CCB	Function CCB to be passed to the routine.
;	  1345	!
;	  1346	! IMPLICIT INPUTS
;	  1347	!
;	  1348	!	NONE.
;	  1349	!
;	  1350	! ROUTINE VALUE:
;	  1351	! COMPLETION CODES:
;	  1352	!
;	  1353	!	NONE.
;	  1354	!
;	  1355	! SIDE EFFECTS:
;	  1356	!
;	  1357	!	NONE.
;	  1358	!
;	  1359	!--
;	  1360	
;	  1361	begin
;	  1362	
;	  1363	require 'XPTSYM';
;	  1400	
;	  1401	CALL$XPE(OPENT,.XPTDB,.CCB);
;	  1402	
;	  1403	end;				!End of OPEN$T


						.SBTTL	OPEN$T
000000	012701  000000G			; OPEN$T
					U.15:	MOV	#OPENT,R1			;					1401
000004	004767  000000V				JSR	PC,U.21
000010	000207 					RTS	PC				;					1335

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0614
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  34
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (19)

;	  1404	
;	  1405	routine CLOSE$T (XPTDB,CCB): MCB_DB_CCB novalue =
;	  1406	
;	  1407	!++
;	  1408	! FUNCTIONAL DESCRIPTION:
;	  1409	!
;	  1410	!
;	  1411	! FORMAL PARAMETERS
;	  1412	!
;	  1413	!	XPTDB  	Address of Transport's data base
;	  1414	!	CCB	Function CCB to be passed to the routine.
;	  1415	!
;	  1416	! IMPLICIT INPUTS
;	  1417	!
;	  1418	!	NONE.
;	  1419	!
;	  1420	! ROUTINE VALUE:
;	  1421	! COMPLETION CODES:
;	  1422	!
;	  1423	!	NONE.
;	  1424	!
;	  1425	! SIDE EFFECTS:
;	  1426	!
;	  1427	!	NONE.
;	  1428	!
;	  1429	!--
;	  1430	
;	  1431	begin
;	  1432	
;	  1433	require 'XPTSYM';
;	  1470	
;	  1471	CALL$XPE(CLOSET,.XPTDB,.CCB);
;	  1472	
;	  1473	end;				!End of CLOSE$T


						.SBTTL	CLOSE$T
000000	012701  000000G			; CLOSE$T
					U.16:	MOV	#CLOSET,R1			;					1471
000004	004767  000000V				JSR	PC,U.21
000010	000207 					RTS	PC				;					1405

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0626
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  35
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (20)

;	  1474	
;	  1475	routine INIT$XPT (XPTDB,CCB): MCB_DB_CCB novalue =
;	  1476	
;	  1477	!++
;	  1478	! FUNCTIONAL DESCRIPTION:
;	  1479	!
;	  1480	!
;	  1481	! FORMAL PARAMETERS
;	  1482	!
;	  1483	!	XPTDB  	Address of Transport's data base
;	  1484	!	CCB	Function CCB to be passed to the routine.
;	  1485	!
;	  1486	! IMPLICIT INPUTS
;	  1487	!
;	  1488	!	NONE.
;	  1489	!
;	  1490	! ROUTINE VALUE:
;	  1491	! COMPLETION CODES:
;	  1492	!
;	  1493	!	NONE.
;	  1494	!
;	  1495	! SIDE EFFECTS:
;	  1496	!
;	  1497	!	NONE.
;	  1498	!
;	  1499	!--
;	  1500	
;	  1501	begin
;	  1502	
;	  1503	require 'XPTSYM';
;	  1540	
;	  1541	CALL$XPE(INIT_XPT,.XPTDB,.CCB);
;	  1542	ROUTESaddr = _ROUTES;
;	  1543	
;	  1544	end;				!End of INIT$XPT


						.SBTTL	INIT$XPT
000000	010546 				; INIT$XPT
					U.17:	MOV	R5,-(SP)			;					1475
000002	012701  000000G				MOV	#INIT.XPT,R1			;					1541
000006	004767  000000V				JSR	PC,U.21
000012	012600 					MOV	(SP)+,R0			;					1542
000014	012760  000000V 000146 			MOV	#U.20,146(R0)
000022	000207 					RTS	PC				;					1475

; Routine Size:  10 words,	Routine Base:  $CODE$ + 0640
; Maximum stack depth per invocation:  2 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  36
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (21)

;	  1545	
;	  1546	routine NM$XPT (XPTDB,CCB): MCB_DB_CCB novalue =
;	  1547	
;	  1548	!++
;	  1549	! FUNCTIONAL DESCRIPTION:
;	  1550	!
;	  1551	!
;	  1552	! FORMAL PARAMETERS
;	  1553	!
;	  1554	!	XPTDB  	Address of Transport's data base
;	  1555	!	CCB	Function CCB to be passed to the routine.
;	  1556	!
;	  1557	! IMPLICIT INPUTS
;	  1558	!
;	  1559	!	NONE.
;	  1560	!
;	  1561	! ROUTINE VALUE:
;	  1562	! COMPLETION CODES:
;	  1563	!
;	  1564	!	NONE.
;	  1565	!
;	  1566	! SIDE EFFECTS:
;	  1567	!
;	  1568	!	NONE.
;	  1569	!
;	  1570	!--
;	  1571	
;	  1572	begin
;	  1573	
;	  1574	require 'XPTSYM';
;	  1611	
;	  1612	CALL$XPE(XPE_NM,.XPTDB,.CCB);
;	  1613	
;	  1614	end;				!End of NM$XPT


						.SBTTL	NM$XPT
000000	012701  000000G			; NM$XPT
					U.18:	MOV	#XPE.NM,R1			;					1612
000004	004767  000000V				JSR	PC,U.21
000010	000207 					RTS	PC				;					1546

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0664
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  37
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (22)

;	  1615	
;	  1616	routine TERM$XPT (XPTDB,CCB): MCB_DB_CCB novalue =
;	  1617	
;	  1618	!++
;	  1619	! FUNCTIONAL DESCRIPTION:
;	  1620	!
;	  1621	!
;	  1622	! FORMAL PARAMETERS
;	  1623	!
;	  1624	!	XPTDB  	Address of Transport's data base
;	  1625	!	CCB	Function CCB to be passed to the routine.
;	  1626	!
;	  1627	! IMPLICIT INPUTS
;	  1628	!
;	  1629	!	NONE.
;	  1630	!
;	  1631	! ROUTINE VALUE:
;	  1632	! COMPLETION CODES:
;	  1633	!
;	  1634	!	NONE.
;	  1635	!
;	  1636	! SIDE EFFECTS:
;	  1637	!
;	  1638	!	NONE.
;	  1639	!
;	  1640	!--
;	  1641	
;	  1642	begin
;	  1643	
;	  1644	require 'XPTSYM';
;	  1681	
;	  1682	CALL$XPE(TERM_XPT,.XPTDB,.CCB);
;	  1683	
;	  1684	end;				!End of TERM$XPT


						.SBTTL	TERM$XPT
000000	012701  000000G			; TERM$XPT
					U.19:	MOV	#TERM.XPT,R1			;					1682
000004	004767  000000V				JSR	PC,U.21
000010	000207 					RTS	PC				;					1616

; Routine Size:  5 words,	Routine Base:  $CODE$ + 0676
; Maximum stack depth per invocation:  1 word
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  38
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (23)

;	  1685	
;	  1686	global
;	  1687	routine _ROUTES: novalue =
;	  1688	
;	  1689	!++
;	  1690	! FUNCTIONAL DESCRIPTION:
;	  1691	!
;	  1692	! This routine is redispatched on a SYNCH when ROUTES can't do all its work
;	  1693	! in one try.  It does a CALL$E to ROUTES.
;	  1694	!
;	  1695	! FORMAL PARAMETERS
;	  1696	!
;	  1697	!	NONE.
;	  1698	!
;	  1699	! IMPLICIT INPUTS
;	  1700	!
;	  1701	!	NONE.
;	  1702	!
;	  1703	! ROUTINE VALUE:
;	  1704	! COMPLETION CODES:
;	  1705	!
;	  1706	!	NONE.
;	  1707	!
;	  1708	! SIDE EFFECTS:
;	  1709	!
;	  1710	!	NONE.
;	  1711	!
;	  1712	!--
;	  1713	
;	  1714	begin
;	  1715	
;	  1716	require 'XPTSYM';
;	  1753	external routine ROUTES;
;	  1754	
;	  1755	CALL$E(ROUTES,PD_XPE);
;	  1756	
;	  1757	end;				!End of _ROUTES


						.GLOBL	ROUTES, $CALLE


						.SBTTL	.ROUTES
000000	005046 				.ROUTES::
					U.20:	CLR	-(SP)				;					1755
000002	012746  000000G				MOV	#ROUTES,-(SP)
000006	016700  000002G				MOV	.CRDAT+2,R0
000012	005046 					CLR	-(SP)
000014	116016  000002 				MOVB	2(R0),(SP)
000020	004767  000000G				JSR	PC,$CALLE
000024	062706  000006 				ADD	#6,SP				;					1714
000030	000207 					RTS	PC				;					1687
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  39
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (23)


; Routine Size:  13 words,	Routine Base:  $CODE$ + 0710
; Maximum stack depth per invocation:  4 words
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  40
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (24)

;	  1758	
;	  1759	routine CALL$XPE (ADR,XPTDB,CCB): XPT_LKG_ADR_DB_CCB novalue =
;	  1760	
;	  1761	!++
;	  1762	! FUNCTIONAL DESCRIPTION:
;	  1763	!
;	  1764	!
;	  1765	! FORMAL PARAMETERS
;	  1766	!
;	  1767	!       ADR     Address of routine to call in XPE
;	  1768	!	XPTDB  	Address of Transport's data base
;	  1769	!	CCB	Function CCB to be passed to the routine.
;	  1770	!
;	  1771	! IMPLICIT INPUTS
;	  1772	!
;	  1773	!	NONE.
;	  1774	!
;	  1775	! ROUTINE VALUE:
;	  1776	! COMPLETION CODES:
;	  1777	!
;	  1778	!	NONE.
;	  1779	!
;	  1780	! SIDE EFFECTS:
;	  1781	!
;	  1782	!	NONE.
;	  1783	!
;	  1784	!--
;	  1785	
;	  1786	begin
;	  1787	bind routine XPE_RTN = .ADR;
;	  1788	require 'XPTSYM';
;	  1825	
;	  1826	CALL$E(XPE_RTN,(PD_XPE),.CCB);
;	  1827	
;	  1828	end;				!End of CALL$XPE


						.SBTTL	CALL$XPE
000000	010446 				; CALL$XPE
					U.21:	MOV	R4,-(SP)			; CCB,*					1826
000002	012746  000001 				MOV	#1,-(SP)
000006	010146 					MOV	R1,-(SP)			; ADR,*
000010	005046 					CLR	-(SP)
000012	116516  000002 				MOVB	2(R5),(SP)			; *(XPTDB),*
000016	004767  000000G				JSR	PC,$CALLE
000022	062706  000010 				ADD	#10,SP				;					1786
000026	000207 					RTS	PC				;					1759

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

;	  1829	
XPTITF								25-Jan-1983 09:49:38	TOPS-20 Bliss-16 2A(530)	    Page  41
X01270								30-Dec-1982 21:30:05	NETPKG:<XPT>XPTITF.BLI.8 (24)

;	  1830	end				!End of module XPTITF
;	  1831	eludom



;					OTS external references
						.GLOBL	$SAVE5


;					PSECT SUMMARY
;
;	Psect Name			Words	  Attributes
;	 $PLIT$				   37	    RO ,  D  ,  LCL,  REL,  CON
;	 ......				   16	    RW ,  D  ,  LCL,  REL,  CON
;	 $CODE$				  253	    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        62        16         0
;  NETPKG:<MCB>NMXLIB.L16.13		       200         0         0         0
;  NETPKG:<XPT>XPTLIB.L16.3		       510       164        32         0





; Size:		253 code + 53 data words
; Run Time:	00:13.1
; Elapsed Time:	00:51.6
; Memory Used:	36 pages
; Compilation Complete
ADDRESS				 199+	 201+	 202+	 204+	 205+	 207+	 208+	 214+	 215+	 218+	 219+	 220+
ADR				1759	1787
BITOFF				 693
BLISS16				 245
BPT				 228+#	 240+#
BUFCHK				 232+	 233+#	 242+	 243+#	 386	 424	 466	 504	 543	 582
CALL$E				1755	1826
CALL$XPE			 274	1262	1331	1401	1471	1541	1612	1682	1759*
CCB				 352	 384	 390	 422	 428	 464	 470	 502	 508	 542	 547	 580
				 585	 682+	 694	 696	 703	 711	 716	 747	 796	 797	 798	 801
				 802	 804	 807	 837	 877	 878	 879	 889	 899	 901	 902	 904
				 911	 915	1011+	1025	1028	1060	1064	1166+	1174	1188#	1189#	1190#
				1191	1196	1262	1266	1331	1335	1401	1405	1471	1475	1541	1546
				1612	1616	1682	1759	1826
CCBFIELDS			 677+	 679+#	1006+	1008+#	1161+	1163+#
CCBRT$				1060
CCPDSP				 259	 339	 547*
CE_DIS				 804
CE_NTE				 694
CE_RTE				 696
CHKBUF				 235+*	 236+
CLOSET				 308	1471
CLOSE$T				 269	 461	1405*
COSTCH				 314
CS_SUC				 710	 802	 889	 911	1025	1190
CTLDSP				 256	 335	 428*
C_ADDR				 902
C_BIAS				 901
C_FIELDS			 679+	 682+	1008+	1011+	1163+	1166+
C_FNC				1189
C_LIN				 877
C_STK				 796
C_STS				 801	1190
C_XPT_ALLOCATION		 797	 899	 902
C_XPT_FIELDS			 747	 837
C_XPT_SUBTYPE			 879
C_XPT_TYPE			 878
DISPATCH$			 381	 419	 457	 499	 537	 576
DLL_RTN				 262	 501	 807*
ECLQUOTA			 790#
ECL_RTN				 261	 421	 716*
ECL_XMT				 260	 383	 585*
FC_CCP				 331	 339	1189
FC_CTL				 335
FC_RCE				 334
FC_RCP				 338
FC_TIM				 336
FC_XCP				 337
FC_XME				 333
FD_CCP				 577
FD_CTL				 458
FD_RCE				 420
FD_RCP				 538
FD_XCP				 500
FD_XME				 382
FM_NM				 462
FWDCODE				 887
GETQ				 199+#
GETW				 178+#	 201+	 202+
HA				1184
I				 223+	 225+
INIT$XPT			 270	 459	1475*
INIT_XPT			 311	1541
INPUTQUOTA			 692#	 695	 799#
J				 223+	 225+	1182	1183
LINE				 877#	 880
LINE$DN				 266	 541	1196*
LINE$UP				 267	 539	1266*
LINEBLOCK			 641+	 775+	 866+	 970+	1125+	1251+	1320+	1390+	1460+	1530+	1601+	1671+
				1743+	1815+
LINEB				 639+	 641+	 773+	 775+	 838	 864+	 866+	 880#	 968+	 970+	1097	1123+
				1125+	1183#	1249+	1251+	1318+	1320+	1388+	1390+	1458+	1460+	1528+	1530+
				1599+	1601+	1669+	1671+	1741+	1743+	1813+	1815+
LINEDN				 310	1262
LINELENGTH			 291
LINEQUOTA			 888#
LINESTATE			1184
LINEUP				 309	1331
LLCRS$				1191
LLC_DISPATCH			 349#
M				 223+	 224+
MAP$				 901
MATRIX				 223+#	 225+
MCB$GAW_PROCESS_DATA_BASE	 644+	 645+	 648+	 778+	 779+	 782+	 869+	 870+	 873+	 973+	 974+	 977+
				1128+	1129+	1132+	1254+	1255+	1258+	1323+	1324+	1327+	1393+	1394+	1397+
				1463+	1464+	1467+	1533+	1534+	1537+	1604+	1605+	1608+	1674+	1675+	1678+
				1746+	1747+	1750+	1818+	1819+	1822+
MCB_DB_CCB_MOD			 254	 255	 256	 257	 258	 259	 352#	 390#	 428#	 470#	 508#	 547#
MCB_DB_CCB			 260	 261	 262	 263	 264	 268	 269	 270	 271	 272	 385	 423
				 465	 503	 581	 585#	 716#	 807#	1028#	1064#	1335#	1405#	1475#	1546#
				1616#
MODIFIER			 352	 381	 390	 419	 428	 457	 470	 499	 508	 537	 547	 576
N				 223+	 224+
NAME				 349#
NL				 223+	 225+
NLN				1182
NM$XPT				 271	 462	1546*
NM_INI				 459
NM_TRM				 463
NODEBLOCK			 636+	 770+	 861+	 965+	1120+	1246+	1315+	1385+	1455+	1525+	1596+	1666+
				1738+	1810+
NODEB				 634+	 636+	 768+	 770+	 859+	 861+	 963+	 965+	1118+	1120+	1244+	1246+
				1313+	1315+	1383+	1385+	1453+	1455+	1523+	1525+	1594+	1596+	1664+	1666+
				1736+	1738+	1808+	1810+
NODELENGTH			 290
NOP				 240+	 241+	 243+
NO_LINEB			 640+	 774+	 865+	 969+	1124+	1250+	1319+	1389+	1459+	1529+	1600+	1670+
				1742+	1814+
NO_NODEB			 635+	 769+	 860+	 964+	1119+	1245+	1314+	1384+	1454+	1524+	1595+	1665+
				1737+	1809+
OPEN$T				 268	 460	1335*
OPENT				 307	1401
PD_XPE				1755	1826
PTR				 178+	 181+	 182+	 185+	 188+	 189+	 195+	 196+	 199+	 201+	 202+	 204+
				 207+	 208+	 209+	 210+	 214+	 215+
PUTQ				 204+#
PUTW				 185+#	 214+	 215+
RCEDSP				 255	 334	 390*
RCPDSP				 258	 338	 508*
RCVBUF				 313	 540
RCVECL				 305*	 703
REINIT_CMP			 263	 578	1028*
RET				 685	 703#	 710	 711	 876
ROUTES				1753*	1755
ROUTESADDR			1542#
RUNNING				 693
SUBTYPE				 879#	 897
TABLE$				 331	 382	 420	 458	 500	 538	 577
TERM$XPT			 272	 463	1616*
TERMINATE			 306	 694	 696	 711	 802	 804	 889	 911	1025	1174
TERM_CMP			 264	 579	1064*
TERM_XPT			 312	1682
TID				1188
TM_DAT				 501	 540
TM_INI				 539
TM_STP				 579
TM_STR				 578
TM_TRM				 541
TYPE				 878#	 887	 896
UNIT				 223+#	 224+	 225+
UNKNOWN				 265	 915*
UPDATECODE			 896	 897
UPDATEQUOTA			 898#
VALUE				 185+	 186+	 188+	 189+	 194+
X				 180+	 181+#	 182+#	 183+	 193+	 194+#	 195+	 196+
XCPDSP				 257	 337	 470*
XMEDSP				 254	 333	 352*
XM_DAT				 383	 421
XM_STP				 461
XM_STR				 460
XPE_NM				 315	1612
XPE_RTN				1787*	1826
XPT				 349
XPT$SL				 291#
XPT$SN				 290#
XPT$SX				 289#
XPTDBBLOCK			 650+	 784+	 875+	 979+	1134+	1260+	1329+	1399+	1469+	1539+	1610+	1680+
				1752+	1824+
XPTDB_LENGTH			 289
XPTDB				 352	 384	 390	 422	 428	 464	 470	 502	 508	 547	 580	 585
				 647+	 648+#	 649+	 716	 781+	 782+#	 783+	 807	 872+	 873+#	 874+	 976+
				 977+#	 978+	1028	1064	1131+	1132+#	1133+	1257+	1258+#	1259+	1262	1326+
				1327+#	1328+	1331	1335	1396+	1397+#	1398+	1401	1405	1466+	1467+#	1468+
				1471	1475	1536+	1537+#	1538+	1541	1546	1607+	1608+#	1609+	1612	1616
				1677+	1678+#	1679+	1682	1749+	1750+#	1751+	1759	1821+	1822+#	1823+
XPTFLAGS			 693	1181
XPTITF				   1#
XPTTIM				 316	 336
XPT_LKG_ADR_DB_CCB		 247#	 274	1759#
XPT_LKG_DB_CCB_ADR		 250#
ZEROQ				 218+#
_ROUTES				 273	1542	1687*
$DSPCR				 328*	 331	 382	 420	 458	 500	 538	 577
$MCB_PROCESS			 349
$MCB_RETURN_BUFFER		 902
$MCB_RETURN_CCB_AND_BUFFER	 797
$MCB_RETURN_CCB			 904
$XPTLL				 331#	 349
$XPT_GET_LINE_DB		 880	1183
%CTCE				 186+	 205+
%REMAINING			 230+