Google
 

Trailing-Edge - PDP-10 Archives - BB-P363B-SM_1985 - mcb/cex/dtr.lst
There are no other files named dtr.lst in the archive.
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   1
								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (1)

;	  0001	module DTR (					! DECnet Test Receiver
;	  0002			ident = 'X01110',
;	  0003			language (bliss16) ,
;	  0004			list (require)
;	  0005			) =
;	  0006	begin
;	  0007	!
;	  0008	!                    COPYRIGHT (c) 1980, 1981, 1982
;	  0009	!                    DIGITAL EQUIPMENT CORPORATION
;	  0010	!                        Maynard, Massachusetts
;	  0011	!
;	  0012	!     This software is furnished under a license and may  be  used
;	  0013	!     and copied only in accordance with the terms of such license
;	  0014	!     and with the inclusion of the above copyright notice.   This
;	  0015	!     software  or any other copies thereof may not be provided or
;	  0016	!     otherwise made available to any other person.  No  title  to
;	  0017	!     and ownership of the software is hereby transferred.
;	  0018	!
;	  0019	!     The information  in  this  software  is  subject  to  change
;	  0020	!     without  notice  and should not be construed as a commitment
;	  0021	!     by DIGITAL EQUIPMENT CORPORATION.
;	  0022	!
;	  0023	!     DIGITAL assumes no responsibility for the use or reliability
;	  0024	!     of  its  software  on  equipment  which  is  not supplied by
;	  0025	!     DIGITAL.
;	  0026	!
;	  0027	
;	  0028	!++
;	  0029	!
;	  0030	! FACILITY: DECnet Test Receiver
;	  0031	!
;	  0032	! ABSTRACT:
;	  0033	!
;	  0034	!	This is a hack attempt to implement DTR in the DN20.
;	  0035	!
;	  0036	! ENVIRONMENT: MCB V3.0
;	  0037	!
;	  0038	! AUTHOR: Alan D. Peckham	CREATION DATE: 25-Nov-80
;	  0039	!
;	  0040	! MODIFIED BY:
;	  0041	!
;	  0042	!	Alan Peckham, 27-Nov-80
;	  0043	! 01	- New process for DN20 testing.
;	  0044	! 02	- Various bug fixes.
;	  0045	! 03	- Add disconnect test.
;	  0046	! 04	- Update for MCB V3.1
;	  0047	! 05	- Add interrupt sink and received tests.
;	  0048	! 06	- Pass EOM from received segment to sent during data test.
;	  0049	!
;	  0050	! 	Ron Platukis, 23-jan-81
;	  0051	! 07	- Add sequence and pattern tests for interrupt and normal data.
;	  0052	! 08	- On Reject set C_PRM2 eql S_ERBO.
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   2
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (1)

;	  0053	! 09	- Clear ls_active in RCV_ACC if accept failed.
;	  0054	! 10	- Source/Object skew. This is to make sure it is updated.
;	  0055	! 11	- Do not use SDBs.
;	  0056	!--
;	  0057	
;	  0058	!
;	  0059	! INCLUDE FILES:
;	  0060	!
;	  0061	
;	  0062	library 'MCB:MCBLIB';
;	  0063	
;	  0064	library 'MCB:XPORTX';
;	  0065	
;	  0066	require 'MCB:SCSYS';
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   3
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (1)

;	 R0067	!                    COPYRIGHT (c) 1980, 1981, 1982
;	 R0068	!                    DIGITAL EQUIPMENT CORPORATION
;	 R0069	!                        Maynard, Massachusetts
;	 R0070	!
;	 R0071	!     This software is furnished under a license and may  be  used
;	 R0072	!     and copied only in accordance with the terms of such license
;	 R0073	!     and with the inclusion of the above copyright notice.   This
;	 R0074	!     software  or any other copies thereof may not be provided or
;	 R0075	!     otherwise made available to any other person.  No  title  to
;	 R0076	!     and ownership of the software is hereby transferred.
;	 R0077	!
;	 R0078	!     The information  in  this  software  is  subject  to  change
;	 R0079	!     without  notice  and should not be construed as a commitment
;	 R0080	!     by DIGITAL EQUIPMENT CORPORATION.
;	 R0081	!
;	 R0082	!     DIGITAL assumes no responsibility for the use or reliability
;	 R0083	!     of  its  software  on  equipment  which  is  not supplied by
;	 R0084	!     DIGITAL.
;	 R0085	
;	 R0086	!+
;	 R0087	!	*** Start of SCSYS ***
;	 R0088	!    System Interface Parameters
;	 R0089	!-
;	 R0090	
;	 R0091	%if not %declared (XPO$K_VERSION) %then library 'MCB:XPORTX' %fi;
;	 R0092	$show (all);
;	 R0093	
;	 R0094	!+
;	 R0095	! Function modifier codes for the System User Interface
;	 R0096	!-
;	 R0097	literal
;	 R0098	    S$CON = 0,				! Connect
;	 R0099	    S$ACC = 2,				! Accept
;	 R0100	    S$REJ = 4,				! Reject
;	 R0101	    S$SND = 6,				! Send data segment
;	 R0102	    S$MRQ = 8,				! Data message request
;	 R0103	    S$DRQ = 10,				! Data segment request
;	 R0104	    S$SNI = 12,				! Send interrupt
;	 R0105	    S$IRQ = 14,				! Interrupt request
;	 R0106	    S$DIS = 16,				! Disconnect
;	 R0107	    S$ABO = 18,				! Abort
;	 R0108	    S$GLN = 20,				! Get local node info
;	 R0109	    S$CNR = 0,				! Connect received
;	 R0110	    S$DAT = 2,				! Return data segment
;	 R0111	    S$INT = 4,				! Return interrupt data segment
;	 R0112	    S$DSR = 6,				! Disconnect received
;	 R0113	
;	 R0114	    S$XHI = S$GLN,			! Highest XME modifier
;	 R0115	    S$RHI = S$DSR;			! Highest RCE modifier
;	 R0116	
;	 R0117	!+
;	 R0118	! Miscellaneous Flags/Values
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   4
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (1)

;	 R0119	!-
;	 R0120	literal
;	 R0121	    S$PSEG = 1,				! Segment flow control
;	 R0122	    S$PMSG = 2,				! Message flow control
;	 R0123	
;	 R0124	    S$PBOM = 1,				! Beginning of message
;	 R0125	    S$PMOM = 2,				! Middle of message
;	 R0126	    S$PEOM = 4;				! End of message
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   5
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (2)

;	 R0127	!+
;	 R0128	! Status codes
;	 R0129	!-
;	 R0130	literal
;	 R0131	    S_EHI = 1,				! Highest code
;	 R0132	    S_SSUC = 1,				! Operation successful
;	 R0133	
;	 R0134	    ! The following codes may appear in reject and disconnect data,
;	 R0135	    ! but in their positive form.  For the first two values, since
;	 R0136	    ! there is no negative zero, a synonym value of 20 is used.
;	 R0137	    ! The zero values are seen by SC only.
;	 R0138	!   S_ERBO = 0,				! Rejected by object
;	 R0139	!   S_EDBO = 0,				! Disconnect by object
;	 R0140	    S_ERES = -1,			! Insufficient network resources
;	 R0141	    S_EUNN = -2,			! Unrecognized node name
;	 R0142	    S_ERNS = -3,			! Remote node shut down
;	 R0143	    S_EURO = -4,			! Unrecognized object
;	 R0144	    S_EIOF = -5,			! Invalid object name format
;	 R0145	    S_EOTB = -6,			! Object too busy
;	 R0146	    S_EABS = -7,			! Abort by remote Session Control
;	 R0147	    S_EABM = -8,			! Abort by management
;	 R0148	    S_EABO = -9,			! Abort by object
;	 R0149	    S_EINF = -10,			! Invalid node name format
;	 R0150	    S_ELNS = -11,			! Local node shut down
;	 R0151	    S_ECBE = -12,			! Connect block format error
;	 R0152	    S_EERR = -13,			! General, unspecified error
;	 R0153	    S_EIDM = -14,			! Invalid data mode
;	 R0154	    S_ELST = -15,			! Data lost   buffer too small
;	 R0155	    S_ELWS = -16,			! Link in wrong state
;	 R0156	    S_EMTL = -17,			! Message too long
;	 R0157	    S_ENSL = -18,			! No such link
;	 R0158	    S_EABL = -19,			! Abort by local SC
;	 R0159	    S_ERBO = -20,			! Rejected by object
;	 R0160	    S_EDBO = -20,			! Disconnect by object
;	 R0161	    S_ETMI = -21,			! Too many interrupt messages requested
;	 R0162	    S_EACR = -34,			! Access control rejection
;	 R0163	    S_ENRO = -38,			! No response from object
;	 R0164	    S_ENOF = -38,			! Node or object failed
;	 R0165	    S_ENUR = -39,			! Node unreachable
;	 R0166	    S_ELO = -39;			! Lowest code
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   6
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (3)

;	 R0167	!+
;	 R0168	! System Interface Macros
;	 R0169	!-
;	 R0170	macro		! First, a support macro or two
;	 R0171	    $SC$LO_BYTE = 0,0,bits_byte,0 %,
;	 R0172	
;	 R0173	    $SC$HI_BYTE = 0,bits_byte,bits_byte,0 %,
;	 R0174	
;	MR0175	    $SC$QUE (fnc, mdf) =
;	MR0176		%if not %null (fnc) %then $SC$CCB [C_FNC] = fnc; %fi
;	MR0177		%if not %null (mdf) %then $SC$CCB [C_MOD] = mdf; %fi
;	 R0178		LLCRS$ ($SC$CCB) %,
;	 R0179	
;	MR0180	    $SC$CND (val, loc) =
;	 R0181		%if not %null (val) %then loc = val; %fi %,
;	 R0182	
;	MR0183	    $SC$BUF (bias, addr, count) =
;	MR0184		$SC$CND (bias, $SC$CCB [C_BIAS])
;	MR0185		$SC$CND (addr, $SC$CCB [C_ADDR])
;	 R0186		$SC$CND (count, $SC$CCB [C_CNT]) %,
;	 R0187	
;	 R0188	!+
;	 R0189	! Structure Access Macros
;	 R0190	!-
;	MR0191	    $SC_GET_LLA (ccb, lla) =
;	MR0192		begin
;	MR0193		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0194		lla = .$SC$CCB [C_LIX]
;	 R0195		end %,
;	 R0196	
;	MR0197	    $SC_GET_ULA (ccb, ula) =
;	MR0198		begin
;	MR0199		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0200		ula = .$SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)]
;	 R0201		end %,
;	 R0202	
;	 R0203	
;	 R0204	!+
;	 R0205	! Interface Macros
;	 R0206	!-
;	MR0207	    $SC_ABORT (ccb, pix, ula, buf) =
;	MR0208		begin
;	MR0209		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0210		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0211		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0212		$SC$BUF (%remove (buf))
;	MR0213		$SC$QUE (FC_XME, S$ABO)
;	 R0214		end %,
;	 R0215	
;	MR0216	    $SC_ACCEPT (ccb, pix, lla, ula, flg, buf) =
;	MR0217		begin
;	MR0218		bind $SC$CCB = ccb: block field (C_FIELDS);
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   7
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (3)

;	MR0219		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0220		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0221		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0222		$SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
;	MR0223		$SC$BUF (%remove (buf))
;	MR0224		$SC$QUE (FC_XME, S$ACC)
;	 R0225		end %,
;	 R0226	
;	MR0227	    $SC_CONNECT (ccb, pix, ula, flg, buf) =
;	MR0228		begin
;	MR0229		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0230		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0231		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0232		$SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
;	MR0233		$SC$BUF (%remove (buf))
;	MR0234		$SC$QUE (FC_XME, S$CON)
;	 R0235		end %,
;	 R0236	
;	MR0237	    $SC_CONNECT_RECEIVED (ccb, ula, sts) =
;	MR0238		begin
;	MR0239		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0240		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0241		$SC$CND (sts, $SC$CCB [C_STS])
;	MR0242		$SC$QUE (FC_RCE)
;	 R0243		end %,
;	 R0244	
;	MR0245	    $SC_DATA_SEGMENT_RETURN (ccb) =
;	MR0246		begin
;	MR0247		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0248		$SC$QUE (FC_RCE)
;	 R0249		end %,
;	 R0250	
;	MR0251	    $SC_DATA_MESSAGE_REQUEST (ccb, pix, lla, ula, buf) =
;	MR0252		begin
;	MR0253		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0254		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0255		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0256		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0257		$SC$BUF (%remove (buf))
;	MR0258		$SC$QUE (FC_XME, S$MRQ)
;	 R0259		end %,
;	 R0260	
;	MR0261	    $SC_DATA_SEGMENT_REQUEST (ccb, pix, lla, ula, num) =
;	MR0262		begin
;	MR0263		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0264		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0265		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0266		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0267		$SC$CND (num, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
;	MR0268		$SC$QUE (FC_XME, S$DRQ)
;	 R0269		end %,
;	 R0270	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   8
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (3)

;	MR0271	    $SC_DATA_SEGMENT_TRANSMIT (ccb, pix, lla, ula, flg, buf) =
;	MR0272		begin
;	MR0273		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0274		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0275		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0276		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0277		$SC$CND (flg, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
;	MR0278		$SC$BUF (%remove (buf))
;	MR0279		$SC$QUE (FC_XME, S$SND)
;	 R0280		end %,
;	 R0281	
;	MR0282	    $SC_DISCONNECT (ccb, pix, lla, ula, buf) =
;	MR0283		begin
;	MR0284		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0285		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0286		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0287		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0288		$SC$BUF (%remove (buf))
;	MR0289		$SC$QUE (FC_XME, S$DIS)
;	 R0290		end %,
;	 R0291	
;	MR0292	    $SC_DISCONNECTED (ccb) =
;	MR0293		begin
;	MR0294		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0295		$SC$QUE (FC_RCE)
;	 R0296		end %,
;	 R0297	
;	MR0298	    $SC_INTERRUPT_REQUEST (ccb, pix, lla, ula, num) =
;	MR0299		begin
;	MR0300		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0301		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0302		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0303		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0304		$SC$CND (num, $SC$CCB [$sub_field (C_PRM1, $SC$HI_BYTE)])
;	MR0305		$SC$QUE (FC_XME, S$IRQ)
;	 R0306		end %,
;	 R0307	
;	MR0308	    $SC_INTERRUPT_RETURN (ccb) =
;	MR0309		begin
;	MR0310		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0311		$SC$QUE (FC_RCE)
;	 R0312		end %,
;	 R0313	
;	MR0314	    $SC_INTERRUPT_TRANSMIT (ccb, pix, lla, ula, buf) =
;	MR0315		begin
;	MR0316		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0317		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0318		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0319		$SC$CND (ula, $SC$CCB [$sub_field (C_PRM1, $SC$LO_BYTE)])
;	MR0320		$SC$BUF (%remove (buf))
;	MR0321		$SC$QUE (FC_XME, S$SNI)
;	 R0322		end %,
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page   9
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (3)

;	 R0323	
;	MR0324	    $SC_LOCAL_NODE_INFO (ccb, pix, flg, buf) =
;	MR0325		begin
;	MR0326		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0327		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0328		$SC$CND (flg, $SC$CCB [C_PRM1])
;	MR0329		$SC$BUF (%remove (buf))
;	MR0330		$SC$QUE (FC_XME, S$GLN)
;	 R0331		end %,
;	 R0332	
;	MR0333	    $SC_REJECT (ccb, pix, lla, rej, buf) =
;	MR0334		begin
;	MR0335		bind $SC$CCB = ccb: block field (C_FIELDS);
;	MR0336		$SC$CND (pix, $SC$CCB [C_PIX])
;	MR0337		$SC$CND (lla, $SC$CCB [C_LIX])
;	MR0338		$SC$CND (rej, $SC$CCB [C_PRM2])
;	MR0339		$SC$BUF (%remove (buf))
;	MR0340		$SC$QUE (FC_XME, S$REJ)
;	 R0341		end %;
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  10
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (4)

;	 R0342	!+
;	 R0343	! Field mapping for the Connect Block
;	 R0344	!-
;	 R0345	$field CB_FIELDS =
;	 R0346	    set
;	LR0347	    CB_NODE = [$byte_string (6)],	! Destination node name
; %PRINT:				  [0,0,0,0]   (+%O'0')
;	 R0348	
;	LR0349	    CB_DFMT = [$byte], 			! Destination object format
; %PRINT:				  [3,0,8,0]   (+%O'6')
;	LR0350	    CB_DOBJ = [$byte],			!      "        "    type
; %PRINT:				  [3,8,8,0]   (+%O'7')
;	LR0351	    CB_DST = [$byte_string (18)],	!      "        "    descriptor
; %PRINT:				  [4,0,0,0]   (+%O'10')
;	 R0352	
;	LR0353	    CB_SFMT = [$byte], 			! Source object format
; %PRINT:				  [13,0,8,0]   (+%O'32')
;	LR0354	    CB_SOBJ = [$byte], 			!   "      "    type
; %PRINT:				  [13,8,8,0]   (+%O'33')
;	LR0355	    CB_SRC = [$byte_string (18)],	!   "      "    descriptor
; %PRINT:				  [14,0,0,0]   (+%O'34')
;	 R0356	
;	LR0357	    CB_RQDL = [$short_integer],		! Requester ID length
; %PRINT:				  [23,0,16,1]   (+%O'56')
;	LR0358	    CB_RQID = [$byte_string (16)],	!     "      "
; %PRINT:				  [24,0,0,0]   (+%O'60')
;	 R0359	
;	LR0360	    CB_PASL = [$short_integer],		! Password length
; %PRINT:				  [32,0,16,1]   (+%O'100')
;	LR0361	    CB_PASW = [$byte_string (8)],	!     "
; %PRINT:				  [33,0,0,0]   (+%O'102')
;	 R0362	
;	LR0363	    CB_ACTL = [$short_integer],		! Accounting data length
; %PRINT:				  [37,0,16,1]   (+%O'112')
;	LR0364	    CB_ACNT = [$byte_string (16)],	!     "       "
; %PRINT:				  [38,0,0,0]   (+%O'114')
;	 R0365	
;	LR0366	    CB_OPDL = [$short_integer],		! Optional data length
; %PRINT:				  [46,0,16,1]   (+%O'134')
;	LR0367	    CB_OPTD = [$byte_string (16)],	!     "     "
; %PRINT:				  [47,0,0,0]   (+%O'136')
;	LR0368	    CB_ENDD = [$sub_block (0)],		! End marker
; %PRINT:				  [55,0,0,0]   (+%O'156')
;	 R0369	
;	 R0370	    $overlay (CB_DST)			! Format 1
;	LR0371		CB_DPL1 = [$short_integer],	! Destination process name length
; %PRINT:				  [4,0,16,1]   (+%O'10')
;	LR0372		CB_DPR1 = [$byte_string (16)], 	!      "         "     "
; %PRINT:				  [5,0,0,0]   (+%O'12')
;	 R0373	    $continue
;	 R0374	
;	 R0375	    $overlay(CB_DST)			! Format 2
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  11
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (4)

;	LR0376		CB_DGRP = [$short_integer],	! Destination group code
; %PRINT:				  [4,0,16,1]   (+%O'10')
;	LR0377		CB_DUSR = [$short_integer],	!      "      user   "
; %PRINT:				  [5,0,16,1]   (+%O'12')
;	LR0378		CB_DPL2 = [$short_integer],	!      "      process name length
; %PRINT:				  [6,0,16,1]   (+%O'14')
;	LR0379		CB_DPR2 = [$byte_string (12)], 	!      "         "     "
; %PRINT:				  [7,0,0,0]   (+%O'16')
;	 R0380	    $continue
;	 R0381	
;	 R0382	    $overlay(CB_SRC)			! Format 1
;	LR0383		CB_SPL1 = [$short_integer],	! Source process name length
; %PRINT:				  [14,0,16,1]   (+%O'34')
;	LR0384		CB_SPR1 = [$byte_string (16)], 	!   "       "     "
; %PRINT:				  [15,0,0,0]   (+%O'36')
;	 R0385	    $continue
;	 R0386	
;	 R0387	    $overlay(CB_SRC)			! Format 2
;	LR0388		CB_SGRP = [$short_integer],	! Source group code
; %PRINT:				  [14,0,16,1]   (+%O'34')
;	LR0389		CB_SUSR = [$short_integer],	!   "    user   "
; %PRINT:				  [15,0,16,1]   (+%O'36')
;	LR0390		CB_SPL2 = [$short_integer],	!   "    process name length
; %PRINT:				  [16,0,16,1]   (+%O'40')
;	LR0391		CB_SPR2 = [$byte_string (12)]	!   "       "     "
; %PRINT:				  [17,0,0,0]   (+%O'42')
;	 R0392	    $continue
;	 R0393	    tes;
;	 R0394	
;	 R0395	literal
;	LR0396	    CB_SIZE = $field_set_size;
; %PRINT:				  55 fullwords
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  12
X01110								30-Dec-1982 17:27:41	NETPKG:<MCB>SCSYS.REQ.7 (5)

;	 R0397	!+
;	 R0398	! Field mapping for either source or destination sub_blocks
;	 R0399	!-
;	 R0400	$field CBSD_FIELDS =
;	 R0401	    set
;	LR0402	    CB_FMT = [$byte],			! Format
; %PRINT:				  [0,0,8,0]   (+%O'0')
;	LR0403	    CB_OBJ = [$byte],			! Object type
; %PRINT:				  [0,8,8,0]   (+%O'1')
;	LR0404	    CB_DES = [$byte_string (18)],	! Descriptor
; %PRINT:				  [1,0,0,0]   (+%O'2')
;	 R0405	
;	 R0406	    $overlay (CB_DES)			! Format #1
;	LR0407		CB_LEN = [$short_integer],
; %PRINT:				  [1,0,16,1]   (+%O'2')
;	LR0408		CB_NAM = [$byte_string (16)],
; %PRINT:				  [2,0,0,0]   (+%O'4')
;	 R0409	    $continue
;	 R0410	
;	 R0411	    $overlay (CB_DES)			! Format #2
;	LR0412		CB_GRP = [$short_integer],
; %PRINT:				  [1,0,16,1]   (+%O'2')
;	LR0413		CB_USR = [$short_integer],
; %PRINT:				  [2,0,16,1]   (+%O'4')
;	LR0414		CB_LN2 = [$short_integer],
; %PRINT:				  [3,0,16,1]   (+%O'6')
;	LR0415		CB_NM2 = [$byte_string (12)]
; %PRINT:				  [4,0,0,0]   (+%O'10')
;	 R0416	    $continue
;	 R0417	    tes;
;	 R0418	
;	 R0419	
;	 R0420	!+
;	 R0421	!	*** End of SCSYS ***
;	 R0422	!-
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  13
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (1)

;	  0423	
;	  0424	require 'DTRDAT';
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  14
X01110								30-Dec-1982 01:51:19	NETPKG:<CEX>DTRDAT.R16.8 (1)

;	 R0425	! [Beginning of DTRDAT]
;	 R0426	!
;	 R0427	!
;	 R0428	!                    COPYRIGHT (c) 1980, 1981, 1982
;	 R0429	!                    DIGITAL EQUIPMENT CORPORATION
;	 R0430	!                        Maynard, Massachusetts
;	 R0431	!
;	 R0432	!     This software is furnished under a license and may  be  used
;	 R0433	!     and copied only in accordance with the terms of such license
;	 R0434	!     and with the inclusion of the above copyright notice.   This
;	 R0435	!     software  or any other copies thereof may not be provided or
;	 R0436	!     otherwise made available to any other person.  No  title  to
;	 R0437	!     and ownership of the software is hereby transferred.
;	 R0438	!
;	 R0439	!     The information  in  this  software  is  subject  to  change
;	 R0440	!     without  notice  and should not be construed as a commitment
;	 R0441	!     by DIGITAL EQUIPMENT CORPORATION.
;	 R0442	!
;	 R0443	!     DIGITAL assumes no responsibility for the use or reliability
;	 R0444	!     of  its  software  on  equipment  which  is  not supplied by
;	 R0445	!     DIGITAL.
;	 R0446	!
;	 R0447	
;	 R0448	!++
;	 R0449	!
;	 R0450	! FACILITY: DECnet Test Receiver
;	 R0451	!
;	 R0452	! ABSTRACT:
;	 R0453	!
;	 R0454	!	This contains the data structure definitions for DTR.
;	 R0455	!
;	 R0456	! ENVIRONMENT: MCB V3.0
;	 R0457	!
;	 R0458	! AUTHOR: Alan D. Peckham	CREATION DATE: 27-Nov-80
;	 R0459	!
;	 R0460	! MODIFIED BY:
;	 R0461	!
;	 R0462	!	Alan Peckham, 27-Nov-80
;	 R0463	! 01	- New process for DN20 testing.
;	 R0464	! 02	- New status code.
;	 R0465	!--
;	 R0466	
;	 R0467	$SHOW (FIELDS, LITERALS)
;	 R0468	
;	 R0469	!
;	 R0470	! Status Codes:
;	 R0471	!
;	 R0472	
;	 R0473	DECLARE_SEVERITY (DTR, INFO, SEVERE, ERROR);
;	 R0474	
;	 R0475	$DTR_ERROR (DTR$_DISPATCH, 'Unexpected dispatch')
;	 R0476	$DTR_SEVERE (DTR$_NO_SC, 'The SC process does not exist')
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  15
X01110								30-Dec-1982 01:51:19	NETPKG:<CEX>DTRDAT.R16.8 (1)

;	 R0477	$DTR_SEVERE (DTR$_NO_CCB, 'Could not get CCB')
;	 R0478	$DTR_INFO (DTR$_TEST_INVALID, 'Invalid test type received')
;	 R0479	$DTR_INFO (DTR$_TEST_UNSUPPORTED, 'Unsupported test type received')
;	 R0480	$DTR_INFO (DTR$_NO_ABORT, 'Abort rejected by Session Control')
;	 R0481	$DTR_INFO (DTR$_NO_ACCEPT, 'Accept rejected by Session Control')
;	 R0482	$DTR_INFO (DTR$_NO_DISCONNECT, 'Disconnect rejected by Session Control')
;	 R0483	$DTR_INFO (DTR$_NO_REJECT, 'Reject rejected by Session Control')
;	 R0484	$DTR_INFO (DTR$_NO_SEND_DATA, 'Data rejected by Session Control')
;	 R0485	$DTR_INFO (DTR$_NO_DATA_REQUEST, 'Data request rejected by Session Control')
;	 R0486	$DTR_INFO (DTR$_NO_DATA_PLEASE, 'Data received on non-data test')
;	 R0487	$DTR_INFO (DTR$_NO_INTERRUPT_PLEASE, 'Interrupt data received on non-interrupt test')
;	 R0488	$DTR_INFO (DTR$_NO_INTERRUPT_REQUEST, 'Interrupt data request rejected by Session Control')
;	 R0489	$DTR_INFO (DTR$_NO_SEND_INTERRUPT, 'Interrupt data rejected by Session Control')
;	 R0490	$DTR_INFO (DTR$_BAD_SEQUENCE_NUMBER, 'Bad sequence number received from DTS')
;	 R0491	$DTR_INFO (DTR$_BAD_PATTERN, 'Bad data pattern received from DTS')
;	 R0492	
;	 R0493	!
;	 R0494	! INI process data base
;	 R0495	!
;	 R0496	
;	 R0497	$FIELD
;	 R0498	    D_FIELDS =
;	 R0499		set
;	LR0500		D_CLOCK = [$SHORT_INTEGER],
; %PRINT:				  [0,0,16,1]   (+%O'0')
;	LR0501		D_LINKS = [$SHORT_INTEGER],
; %PRINT:				  [1,0,16,1]   (+%O'2')
;	LR0502		D_ADDR = [$ADDRESS]
; %PRINT:				  [2,0,16,0]   (+%O'4')
;	 R0503		tes;
;	 R0504	
;	 R0505	literal
;	LR0506	    D_LENGTH = $FIELD_SET_SIZE;
; %PRINT:				  3 fullwords
;	 R0507	
;	 R0508	$FIELD
;	 R0509	    L_FIELDS =
;	 R0510		set
;	LR0511		L_ULA = [$TINY_INTEGER],
; %PRINT:				  [0,0,8,1]   (+%O'0')
;	LR0512		LS_DIP = [$BIT],
; %PRINT:				  [0,8,1,0]   (+%O'1')
;	LR0513		LS_XOFF = [$BIT],
; %PRINT:				  [0,9,1,0]   (+%O'1')
;	LR0514		LS_PROPT = [$BIT],
; %PRINT:				  [0,10,1,0]   (+%O'1')
;	LR0515		LS_ACTIVE = [$BIT],
; %PRINT:				  [0,11,1,0]   (+%O'1')
;	 R0516		$ALIGN (FULLWORD)
;	LR0517		L_LLA = [$BYTE],
; %PRINT:				  [1,0,8,0]   (+%O'2')
;	LR0518		L_TEST = [$TINY_INTEGER],
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  16
X01110								30-Dec-1982 01:51:19	NETPKG:<CEX>DTRDAT.R16.8 (1)

; %PRINT:				  [1,8,8,1]   (+%O'3')
;	LR0519		L_SUB_TEST = [$TINY_INTEGER],
; %PRINT:				  [2,0,8,1]   (+%O'4')
;	LR0520		L_FLOW_TYPE = [$TINY_INTEGER],
; %PRINT:				  [2,8,8,1]   (+%O'5')
;	LR0521		L_FLOW_COUNT = [$INTEGER],
; %PRINT:				  [3,0,16,1]   (+%O'6')
;	LR0522		L_NAK_COUNT = [$TINY_INTEGER],
; %PRINT:				  [4,0,8,1]   (+%O'10')
;	LR0523		L_BPC_COUNT = [$TINY_INTEGER],
; %PRINT:				  [4,8,8,1]   (+%O'11')
;	LR0524		L_MESSAGE_SIZE = [$INTEGER],
; %PRINT:				  [5,0,16,1]   (+%O'12')
;	LR0525		L_NAK_MESSAGES = [$INTEGER],
; %PRINT:				  [6,0,16,1]   (+%O'14')
;	LR0526		L_BPC_MESSAGES = [$INTEGER],
; %PRINT:				  [7,0,16,1]   (+%O'16')
;	LR0527		L_SEND_NUMBER = [$SUB_BLOCK (2)],
; %PRINT:				  [8,0,0,0]   (+%O'20')
;	LR0528		L_RECEIVE_NUMBER = [$SUB_BLOCK (2)],
; %PRINT:				  [10,0,0,0]   (+%O'24')
;	LR0529		L_RECEIVE_COUNT = [$SUB_BLOCK (2)],
; %PRINT:				  [12,0,0,0]   (+%O'30')
;	LR0530		L_PATTERN_CHARACTER = [$INTEGER],
; %PRINT:				  [14,0,16,1]   (+%O'34')
;	LR0531		L_PATTERN_ROUTINE = [$ADDRESS],
; %PRINT:				  [15,0,16,0]   (+%O'36')
;	 R0532		$OVERLAY (L_MESSAGE_SIZE)
;	LR0533		L_DISCONNECT_LENGTH = [$INTEGER],
; %PRINT:				  [5,0,16,1]   (+%O'12')
;	LR0534		L_DISCONNECT_DATA = [$string (16)]
; %PRINT:				  [6,0,0,0]   (+%O'14')
;	 R0535		$CONTINUE
;	 R0536		tes;
;	 R0537	
;	 R0538	literal
;	LR0539	    L_LENGTH = $FIELD_SET_SIZE;
; %PRINT:				  16 fullwords
;	 R0540	
;	 R0541	!
;	 R0542	! [End of DTRDAT]
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  17
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (1)

;	  0543	
;	  0544	!
;	  0545	! TABLE OF CONTENTS:
;	  0546	!
;	  0547	
;	  0548	forward routine
;	  0549	    DTRTIM : MCB_DB_MOD novalue,	
;	  0550	    RCV_ABO : MCB_DB_CCB novalue,
;	  0551	    RCV_ACC : MCB_DB_CCB novalue,
;	  0552	    RCV_CNR : MCB_DB_CCB novalue,
;	  0553	    RCV_DAT : MCB_DB_CCB novalue,
;	  0554	    RCV_DIS : MCB_DB_CCB novalue,
;	  0555	    RCV_DRQ : MCB_DB_CCB novalue,
;	  0556	    RCV_DSR : MCB_DB_CCB novalue,
;	  0557	    RCV_INT : MCB_DB_CCB novalue,
;	  0558	    RCV_IRQ : MCB_DB_CCB novalue,
;	  0559	    RCV_REJ : MCB_DB_CCB novalue,
;	  0560	    RCV_SND : MCB_DB_CCB novalue,
;	  0561	    RCV_SNI : MCB_DB_CCB novalue,
;	  0562	    SND_ABO : LINKAGE_DB_CCB novalue,
;	  0563	    SND_ACC : LINKAGE_DB_CCB novalue,
;	  0564	    SND_DIS : LINKAGE_DB_CCB novalue,
;	  0565	    SND_DRQ : LINKAGE_DB_CCB novalue,
;	  0566	    SND_IRQ : LINKAGE_DB_CCB novalue,
;	  0567	    SND_REJ : LINKAGE_DB_CCB novalue,
;	  0568	    SND_SND : LINKAGE_DB_CCB novalue,
;	  0569	    SND_SNI : LINKAGE_DB_CCB novalue,
;	  0570	    PATTERN_CHECK: LINKAGE_DB_CCB;
;	  0571	
;	  0572	!
;	  0573	! MACROS:
;	  0574	!
;	  0575	!	None
;	  0576	!
;	  0577	! EQUATED SYMBOLS:
;	  0578	!
;	  0579	
;	  0580	literal
;	  0581	    FALSE = 1 eql 0,
;	  0582	    NO_OPERATION = 0,
;	  0583	    TRUE = 1 eql 1;
;	  0584	
;	  0585	global literal
;	  0586	    %name ('D.LEN') = D_LENGTH^1,
;	  0587	    %name ('L.LEN') = L_LENGTH^1;
;	  0588	
;	  0589	field	word_0 = [0, 0, 16, 0],
;	  0590		word_1 = [1, 0, 16, 0],
;	  0591		byte_0 = [0, 0, 8, 0],
;	  0592		byte_1 = [0, 8, 8, 0];
;	  0593	
;	  0594	!
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  18
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (1)

;	  0595	! OWN STORAGE:
;	  0596	!
;	  0597	
;	  0598	external routine
;	  0599	    $DSPCR : novalue;
;	  0600	
;	  0601	routine SCRCP (DB, CCB, MODF) : MCB_DB_CCB_MOD novalue =
;	P 0602	    DISPATCH$ (TABLE$ ($DSPCR, 6,
;	P 0603		(S$CNR, RCV_CNR),
;	P 0604		(S$DAT, RCV_DAT),
;	P 0605		(S$DSR, RCV_DSR),
;	P 0606		(S$INT, RCV_INT)),
;	  0607		.MODF, (.DB, .CCB), MCB_DB_CCB);


						.TITLE	DTR
						.IDENT	/X01110/


000000						.PSECT	$PLIT$,  RO ,  D  
000000	000000V				P.AAA:	.WORD	RCV.CNR
000002	000000V					.WORD	RCV.DAT
000004	000000V					.WORD	RCV.INT
000006	000000V					.WORD	RCV.DSR


						.GLOBL	$DSPCR


	000006 				D.LEN==		    6
	000040 				L.LEN==		    40


						.SBTTL	SCRCP
000000						.PSECT	$CODE$,  RO 

000000	004773  000000'			SCRCP:	JSR	PC,@P.AAA(R3)			; *,*(MODF)				0607
000004	000207 					RTS	PC				;					0601

; Routine Size:  3 words,	Routine Base:  $CODE$ + 0000
; Maximum stack depth per invocation:  1 word


;	  0608	
;	  0609	routine SCXCP (DB, CCB, MODF) : MCB_DB_CCB_MOD novalue =
;	P 0610	    DISPATCH$ (TABLE$ ($DSPCR, 20,
;	P 0611		(S$ABO, RCV_ABO),
;	P 0612		(S$ACC, RCV_ACC),
;	P 0613		(S$DIS, RCV_DIS),
;	P 0614		(S$DRQ, RCV_DRQ),
;	P 0615		(S$IRQ, RCV_IRQ),
;	P 0616		(S$REJ, RCV_REJ),
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  19
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (1)

;	P 0617		(S$SND, RCV_SND),
;	P 0618		(S$SNI, RCV_SNI)),
;	  0619		.MODF, (.DB, .CCB), MCB_DB_CCB);



000010						.PSECT	$PLIT$,  RO ,  D  
000010	000000G				P.AAB:	.WORD	$DSPCR
000012	000000V					.WORD	RCV.ACC
000014	000000V					.WORD	RCV.REJ
000016	000000V					.WORD	RCV.SND
000020	000000G					.WORD	$DSPCR
000022	000000V					.WORD	RCV.DRQ
000024	000000V					.WORD	RCV.SNI
000026	000000V					.WORD	RCV.IRQ
000030	000000V					.WORD	RCV.DIS
000032	000000V					.WORD	RCV.ABO
000034	000000G					.WORD	$DSPCR


						.SBTTL	SCXCP
000006						.PSECT	$CODE$,  RO 

000000	004773  000010'			SCXCP:	JSR	PC,@P.AAB(R3)			; *,*(MODF)				0619
000004	000207 					RTS	PC				;					0609

; Routine Size:  3 words,	Routine Base:  $CODE$ + 0006
; Maximum stack depth per invocation:  1 word


;	  0620	
;	P 0621	$MCB_PROCESS (NAME = DTR,			! Process name
;	P 0622	    LLC_DISPATCH = TABLE$ ($DSPCR, FC_CCP,	! LLC Dispatch vector:
;	P 0623			(FC_RCP, SCRCP),
;	P 0624			(FC_XCP, SCXCP),
;	  0625			(FC_TIM, DTRTIM)));		!  timeout
;	  0626	!
;	  0627	! EXTERNAL REFERENCES:
;	  0628	!
;	  0629	!	None
;	  0630	
;	  0631	
;	  0632	
;	  0633	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  20
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (2)

;	  0634	routine DTRTIM (DB, MODF) : MCB_DB_MOD novalue =
;	  0635	
;	  0636	!++
;	  0637	! FUNCTIONAL DESCRIPTION:
;	  0638	!
;	  0639	!
;	  0640	! FORMAL PARAMETERS:
;	  0641	!	None
;	  0642	!
;	  0643	! IMPLICIT INPUTS:
;	  0644	!	None
;	  0645	!
;	  0646	! IMPLICIT OUTPUTS:
;	  0647	!	None
;	  0648	!
;	  0649	! ROUTINE VALUE:
;	  0650	! COMPLETION CODES:
;	  0651	!	None
;	  0652	!
;	  0653	! SIDE EFFECTS:
;	  0654	!	None
;	  0655	!--
;	  0656	
;	  0657	    begin
;	  0658	
;	  0659	    map
;	  0660		DB : ref block field (D_FIELDS);
;	  0661	
;	  0662	    0
;	  0663	    end;					!of routine DTRTIM



000000						.PSECT	......,  D  
000000	016062 				HEADER: .RAD50	/DTR/
000002	000403 					.WORD	403
000004	000000 					.WORD	0
000006	000000 					.WORD	0
000010	000000 					.WORD	0
000012	000036'					.WORD	P.AAC
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
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  21
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (2)


000036						.PSECT	$PLIT$,  RO ,  D  
000036	000000G				P.AAC:	.WORD	$DSPCR
000040	000000G					.WORD	$DSPCR
000042	000000G					.WORD	$DSPCR
000044	000000G					.WORD	$DSPCR
000046	000000G					.WORD	$DSPCR
000050	000014'					.WORD	DTRTIM
000052	000006'					.WORD	SCXCP
000054	000000'					.WORD	SCRCP
000056	000000G					.WORD	$DSPCR
000060	000000G					.WORD	$DSPCR


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


						.SBTTL	DTRTIM
000014						.PSECT	$CODE$,  RO 

000000	000207 				DTRTIM: RTS	PC				;					0634

; Routine Size:  1 word,	Routine Base:  $CODE$ + 0014
; Maximum stack depth per invocation:  0 words


;	  0664	
;	  0665	
;	  0666	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  22
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (3)

;	  0667	routine RCV_ABO (DB, CCB) : MCB_DB_CCB novalue =
;	  0668	
;	  0669	!++
;	  0670	! FUNCTIONAL DESCRIPTION:
;	  0671	!
;	  0672	!
;	  0673	! FORMAL PARAMETERS:
;	  0674	!	None
;	  0675	!
;	  0676	! IMPLICIT INPUTS:
;	  0677	!	None
;	  0678	!
;	  0679	! IMPLICIT OUTPUTS:
;	  0680	!	None
;	  0681	!
;	  0682	! ROUTINE VALUE:
;	  0683	! COMPLETION CODES:
;	  0684	!	None
;	  0685	!
;	  0686	! SIDE EFFECTS:
;	  0687	!	None
;	  0688	!--
;	  0689	
;	  0690	    begin
;	  0691	
;	  0692	    map
;	  0693		CCB : ref block field (C_FIELDS),
;	  0694		DB : ref block field (D_FIELDS);
;	  0695	
;	  0696	    bind
;	  0697		LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  0698		    : block field (L_FIELDS);
;	  0699	
;	  0700	    if .CCB [C_STS] neq S_SSUC
;	  0701	    then
;	  0702		SIGNAL (DTR$_NO_ABORT, .CCB, .CCB [C_STS]);
;	  0703	
;	  0704	    LINK [ls_dip] = false;
;	  0705	    LINK [LS_ACTIVE] = FALSE;
;	  0706	    CCBRT$ (.CCB);
;	  0707	    end;					!of routine RCV_ABO


						.GLOBL	$CCBRT


						.SBTTL	RCV.ABO
000000	010401 				RCV.ABO:MOV	R4,R1				; *,CCB					0667
000002	005004 					CLR	R4				;					0697
000004	156104  000024 				BISB	24(R1),R4			; *(CCB),*
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  23
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (3)

000020	162704  000040 				SUB	#40,R4				;					0690
000024	026127  000014  000001 			CMP	14(R1),#1			; *(CCB),*				0700
000032	001413 					BEQ	1$
000034	016146  000014 				MOV	14(R1),-(SP)			; *(CCB),*				0702
000040	010146 					MOV	R1,-(SP)			; CCB,*
000042	012746  100053 				MOV	#-77725,-(SP)
000046	012746  000003 				MOV	#3,-(SP)
000052	004767  000000G				JSR	PC,$IGNAL
000056	062706  000010 				ADD	#10,SP
000062	042714  004400 			1$:	BIC	#4400,(R4)			;					0705
000066	010104 					MOV	R1,R4				; CCB,*					0706
000070	004767  000000G				JSR	PC,$CCBRT
000074	000207 					RTS	PC				;					0667

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


;	  0708	
;	  0709	
;	  0710	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  24
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (4)

;	  0711	routine RCV_ACC (DB, CCB) : MCB_DB_CCB novalue =
;	  0712	
;	  0713	!++
;	  0714	! FUNCTIONAL DESCRIPTION:
;	  0715	!
;	  0716	!
;	  0717	! FORMAL PARAMETERS:
;	  0718	!	None
;	  0719	!
;	  0720	! IMPLICIT INPUTS:
;	  0721	!	None
;	  0722	!
;	  0723	! IMPLICIT OUTPUTS:
;	  0724	!	None
;	  0725	!
;	  0726	! ROUTINE VALUE:
;	  0727	! COMPLETION CODES:
;	  0728	!	None
;	  0729	!
;	  0730	! SIDE EFFECTS:
;	  0731	!	None
;	  0732	!--
;	  0733	
;	  0734	    begin
;	  0735	
;	  0736	    map
;	  0737		CCB : ref block field (C_FIELDS),
;	  0738		DB : ref block field (D_FIELDS);
;	  0739	
;	  0740	    bind
;	  0741		LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  0742		    : block field (L_FIELDS);
;	  0743	
;	  0744	    if .CCB [C_STS] neq S_SSUC
;	  0745	    then
;	  0746		begin
;	  0747		SIGNAL (DTR$_NO_ACCEPT, .CCB, .CCB [C_STS]);
;	  0748		LINK[ LS_active] = false;
;	  0749		return CCBRT$ (.CCB);
;	  0750		end;
;	  0751	
;	  0752	    case .LINK [L_TEST] from 0 to 3 of
;	  0753		set
;	  0754		[0] :
;	  0755		    CCBRT$ (.CCB);
;	  0756	
;	  0757		[1] :
;	  0758	
;	  0759		    selectone .LINK [L_FLOW_TYPE] of
;	  0760			set
;	  0761			[0] :
;	  0762			    CCBRT$ (.CCB);
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  25
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (4)

;	  0763	
;	  0764			[1] :
;	  0765			    begin
;	  0766			    CCB [C_BIAS] = CCB [C_ADDR] = CCB [C_CNT] = 0;
;	  0767			    SND_DRQ (.DB, .CCB, .CCB [C_PIX], .CCB [C_LIX], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)], .LINK [L_FLOW_COUNT])
;	  0768			    end;
;	  0769	
;	  0770			[2] :
;	  0771			    CCBRT$ (.CCB);
;	  0772			tes;
;	  0773	
;	  0774		[2] :
;	  0775		    begin
;	  0776		    CCB [C_BIAS] = 0;
;	  0777		    CCB [C_ADDR] = ch$ptr (LINK [L_DISCONNECT_DATA]);
;	  0778		    CCB [C_CNT] = .LINK [L_DISCONNECT_LENGTH];
;	  0779	
;	  0780		    if .LINK [$SUB_FIELD (L_SUB_TEST, 0, 0, 1, 0)] eql 0
;	  0781		    then
;	  0782			SND_DIS (.DB, .CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA])
;	  0783		    else
;	  0784			SND_ABO (.DB, .CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
;	  0785	
;	  0786		    end;
;	  0787	
;	  0788		[inrange] :
;	  0789		    CCBRT$ (.CCB);
;	  0790		tes;
;	  0791	
;	  0792	    end;					!of routine RCV_ACC


						.SBTTL	RCV.ACC
000000	010401 				RCV.ACC:MOV	R4,R1				; *,CCB					0711
000002	005004 					CLR	R4				;					0741
000004	156104  000024 				BISB	24(R1),R4			; *(CCB),*
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	012703  177740 				MOV	#-40,R3				;					0734
000024	060403 					ADD	R4,R3
000026	026127  000014  000001 			CMP	14(R1),#1			; *(CCB),*				0744
000034	001417 					BEQ	1$
000036	016146  000014 				MOV	14(R1),-(SP)			; *(CCB),*				0747
000042	010146 					MOV	R1,-(SP)			; CCB,*
000044	012746  100063 				MOV	#-77715,-(SP)
000050	012746  000003 				MOV	#3,-(SP)
000054	004767  000000G				JSR	PC,$IGNAL
000060	042713  004000 				BIC	#4000,(R3)			;					0748
000064	010104 					MOV	R1,R4				; CCB,*					0749
000066	004767  000000G				JSR	PC,$CCBRT
000072	000443 					BR	4$				;					0744
000074	012702  000002 			1$:	MOV	#2,R2				;					0752
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  26
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (4)

000100	060302 					ADD	R3,R2
000102	116200  000001 				MOVB	1(R2),R0
000106	006300 					ASL	R0
000110	066007  000062'				ADD	P.AAD(R0),PC			; Case dispatch
000114	000507 				2$:	BR	9$				;					0755
000116	116300  000005 			3$:	MOVB	5(R3),R0			;					0759
000122	001504 					BEQ	9$				;					0762
000124	020027  000001 				CMP	R0,#1				;					0759
000130	001027 					BNE	5$
000132	005061  000022 				CLR	22(R1)				; *(CCB)				0766
000136	005061  000020 				CLR	20(R1)				; *(CCB)
000142	005061  000016 				CLR	16(R1)				; *(CCB)
000146	005046 					CLR	-(SP)				;					0767
000150	116116  000011 				MOVB	11(R1),(SP)			; *(CCB),*
000154	005046 					CLR	-(SP)
000156	116116  000010 				MOVB	10(R1),(SP)			; *(CCB),*
000162	005046 					CLR	-(SP)
000164	116116  000024 				MOVB	24(R1),(SP)			; *(CCB),*
000170	016346  000006 				MOV	6(R3),-(SP)
000174	010104 					MOV	R1,R4				; CCB,*
000176	004767  000000V				JSR	PC,SND.DRQ
000202	062706  000010 			4$:	ADD	#10,SP				;					0765
000206	000207 					RTS	PC				;					0759
000210	020027  000002 			5$:	CMP	R0,#2
000214	001052 					BNE	10$
000216	000446 					BR	9$				;					0771
000220	005061  000016 			6$:	CLR	16(R1)				; *(CCB)				0776
000224	010361  000020 				MOV	R3,20(R1)			; *,*(CCB)				0777
000230	062761  000014  000020 			ADD	#14,20(R1)			; *,*(CCB)
000236	016361  000012  000022 			MOV	12(R3),22(R1)			; *,*(CCB)				0778
000244	132763  000001  000004 			BITB	#1,4(R3)			;					0780
000252	001013 					BNE	7$
000254	005046 					CLR	-(SP)				;					0782
000256	116116  000011 				MOVB	11(R1),(SP)			; *(CCB),*
000262	005046 					CLR	-(SP)
000264	111216 					MOVB	(R2),(SP)
000266	111300 					MOVB	(R3),R0
000270	010046 					MOV	R0,-(SP)
000272	010104 					MOV	R1,R4				; CCB,*
000274	004767  000000V				JSR	PC,SND.DIS
000300	000412 					BR	8$				;					0780
000302	005046 				7$:	CLR	-(SP)				;					0784
000304	116116  000011 				MOVB	11(R1),(SP)			; *(CCB),*
000310	005046 					CLR	-(SP)
000312	111216 					MOVB	(R2),(SP)
000314	111300 					MOVB	(R3),R0
000316	010046 					MOV	R0,-(SP)
000320	010104 					MOV	R1,R4				; CCB,*
000322	004767  000000V				JSR	PC,SND.ABO
000326	062706  000006 			8$:	ADD	#6,SP				;					0775
000332	000207 					RTS	PC				;					0752
000334	010104 				9$:	MOV	R1,R4				; CCB,*					0789
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  27
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (4)

000336	004767  000000G				JSR	PC,$CCBRT
000342	000207 				10$:	RTS	PC				;					0711

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


000062						.PSECT	$PLIT$,  RO ,  D  

					P.AAD:						; CASE Table for RCV.ACC+0110		0752
000062	000220 					.WORD	220				; [9$]
000064	000002 					.WORD	2				; [3$]
000066	000104 					.WORD	104				; [6$]
000070	000220 					.WORD	220				; [9$]



;	  0793	
;	  0794	
;	  0795	
;	  0796	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  28
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  0797	routine RCV_CNR (DB, CCB) : MCB_DB_CCB novalue =
;	  0798	
;	  0799	!++
;	  0800	! FUNCTIONAL DESCRIPTION:
;	  0801	!
;	  0802	!
;	  0803	! FORMAL PARAMETERS:
;	  0804	!	None
;	  0805	!
;	  0806	! IMPLICIT INPUTS:
;	  0807	!	None
;	  0808	!
;	  0809	! IMPLICIT OUTPUTS:
;	  0810	!	None
;	  0811	!
;	  0812	! ROUTINE VALUE:
;	  0813	! COMPLETION CODES:
;	  0814	!	None
;	  0815	!
;	  0816	! SIDE EFFECTS:
;	  0817	!	None
;	  0818	!--
;	  0819	
;	  0820	    begin
;	  0821	
;	  0822	    map
;	  0823		CCB : ref block field (C_FIELDS),
;	  0824		DB : ref block field (D_FIELDS);
;	  0825	
;	  0826	    local
;	  0827		LINK : ref block field (L_FIELDS),
;	  0828		SC_PIX;
;	  0829	
;	  0830	    SC_PIX = .CCB [C_PIX];
;	  0831	    LINK = .DB [D_ADDR];
;	  0832	
;	  0833	    while .LINK [LS_ACTIVE] do
;	  0834		begin
;	  0835	
;	  0836		if .LINK [L_ULA] geq .DB [D_LINKS]
;	  0837		then
;	  0838		    begin
;	  0839		    CCB [C_STS] = S_ERES %(no resources)%;
;	  0840		    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .CCB [C_LIX];
;	  0841		    CCB [C_FNC] = FC_RCE;
;	  0842		    LLCRS$ (.CCB);
;	  0843		    return;
;	  0844		    end;
;	  0845	
;	  0846		LINK = vector [.LINK, L_LENGTH];
;	  0847		end;
;	  0848	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  29
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  0849	    begin
;	  0850	
;	  0851	    local
;	  0852		PTR;
;	  0853	
;	  0854	    LINK [L_LLA] = .CCB [C_LIX];
;	  0855	    MAP$ (.CCB [C_BIAS]);
;	  0856	    PTR = ch$ptr (block [.CCB [C_ADDR], CB_OPTD],, 8);
;	  0857	    LINK [L_TEST] = ch$rchar_a (PTR);
;	  0858	    LINK [LS_PROPT] = .LINK [$SUB_FIELD (L_TEST, 0, 7, 1, 1)];
;	  0859	    LINK [$SUB_FIELD (L_TEST, 0, 7, 1, 1)] = 0;
;	  0860	
;	  0861	    case .LINK [L_TEST] from 0 to 3 of
;	  0862		set
;	  0863		[0] :
;	  0864		    begin
;	  0865	
;	  0866		    case (LINK [L_SUB_TEST] = 
;	  0867				begin
;	  0868				local char;
;	  0869				char = ch$rchar_a (PTR);
;	  0870				.char
;	  0871				end) from 0 to 5 of
;	  0872	
;	  0873			set
;	  0874			[0, 1] :
;	  0875			    LINK [L_DISCONNECT_LENGTH] = 0;
;	  0876	
;	  0877			[2, 3] :
;	  0878			    ch$move ((LINK [L_DISCONNECT_LENGTH] = 16),
;	  0879				ch$ptr (uplit ('ABCDEFGHIJKLMNOP')),
;	  0880				ch$ptr (LINK [L_DISCONNECT_DATA]));
;	  0881	
;	  0882			[4, 5] :
;	  0883			    ch$move ((LINK [L_DISCONNECT_LENGTH] = .block [.CCB [C_ADDR], CB_OPDL]),
;	  0884				ch$ptr (block [.CCB [C_ADDR], CB_OPTD]),
;	  0885				ch$ptr (LINK [L_DISCONNECT_DATA]));
;	  0886	
;	  0887			[outrange] :
;	  0888			    begin
;	  0889			    CCB [C_STS] = S_ERBO %(invalid test sub-type)%;
;	  0890			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  0891			    CCB [C_FNC] = FC_RCE;
;	  0892			    LLCRS$ (.CCB);
;	  0893			    return;
;	  0894			    end;
;	  0895	
;	  0896			tes;
;	  0897	
;	  0898		    begin
;	  0899	
;	  0900		    local
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  30
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  0901			ACC_CCB : ref block field (C_FIELDS);
;	  0902	
;	  0903		    if not CCBGT$ (ACC_CCB)
;	  0904		    then
;	  0905			begin
;	  0906			CCB [C_STS] = S_ERES %(no resources)%;
;	  0907			CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  0908			CCB [C_FNC] = FC_RCE;
;	  0909			LLCRS$ (.CCB);
;	  0910			return;
;	  0911			end;
;	  0912	
;	  0913		    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  0914		    CCB [C_FNC] = FC_RCE;
;	  0915		    LLCRS$ (.CCB);
;	  0916	
;	  0917		    ACC_CCB [C_BIAS] = 0;
;	  0918		    ACC_CCB [C_ADDR] = ch$ptr (LINK [L_DISCONNECT_DATA]);
;	  0919		    ACC_CCB [C_CNT] = .LINK [L_DISCONNECT_LENGTH];
;	  0920	
;	  0921		    if .LINK [$SUB_FIELD (L_SUB_TEST, 0, 0, 1, 0)] eql 0
;	  0922		    then
;	  0923			SND_REJ (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA])
;	  0924		    else
;	  0925			SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], S$PMSG);
;	  0926	
;	  0927		    end;
;	  0928		    LINK [LS_ACTIVE] = TRUE;
;	  0929		    end;
;	  0930	
;	  0931		[1] :
;	  0932		    begin
;	  0933	
;	  0934		    local
;	  0935			CHAR;
;	  0936	
;	  0937		    selectone (CHAR = ch$rchar_a (PTR)) of
;	  0938		        set
;	  0939			[0, 1, 2, 3] :
;	  0940			    LINK [L_SUB_TEST] = .CHAR;
;	  0941	
;	  0942			[otherwise] :
;	  0943			    begin
;	  0944			    CCB [C_STS] = S_ERBO %(invalid data type)%;
;	  0945			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  0946			    CCB [C_FNC] = FC_RCE;
;	  0947			    LLCRS$ (.CCB);
;	  0948			    return;
;	  0949			    end;
;	  0950			tes;
;	  0951	
;	  0952		    selectone (CHAR = ch$rchar_a (PTR)) of
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  31
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  0953		        set
;	  0954			[1] :
;	  0955			    LINK [L_FLOW_TYPE] = .CHAR;
;	  0956	
;	  0957			[0, 2] :
;	  0958			    begin
;	  0959			    CCB [C_STS] = S_ERBO %(unsupported flow type)%;
;	  0960			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  0961			    CCB [C_FNC] = FC_RCE;
;	  0962			    LLCRS$ (.CCB);
;	  0963			    return;
;	  0964			    end;
;	  0965	
;	  0966			[otherwise] :
;	  0967			    begin
;	  0968			    CCB [C_STS] = S_ERBO %(invalid flow control option)%;
;	  0969			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  0970			    CCB [C_FNC] = FC_RCE;
;	  0971			    LLCRS$ (.CCB);
;	  0972			    return;
;	  0973			    end;
;	  0974			tes;
;	  0975	
;	  0976		    selectone (CHAR = ch$rchar_a (PTR)) of
;	  0977			set
;	  0978			[1 to 127] :
;	  0979			    LINK [L_FLOW_COUNT] = .CHAR;
;	  0980	
;	  0981			[otherwise] :
;	  0982			    begin
;	  0983			    CCB [C_STS] = S_ERBO %(invalid flow control value)%;
;	  0984			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  0985			    CCB [C_FNC] = FC_RCE;
;	  0986			    LLCRS$ (.CCB);
;	  0987			    return;
;	  0988			    end;
;	  0989			tes;
;	  0990	
;	  0991		    selectone (CHAR = ch$rchar_a (PTR)) of
;	  0992			set
;	  0993			[0] :
;	  0994			    LINK [L_NAK_COUNT] = .CHAR;
;	  0995	
;	  0996			[1 to 128] :
;	  0997			    begin
;	  0998			    CCB [C_STS] = S_ERBO %(unsupported nak frequency)%;
;	  0999			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1000			    CCB [C_FNC] = FC_RCE;
;	  1001			    LLCRS$ (.CCB);
;	  1002			    return;
;	  1003			    end;
;	  1004	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  32
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  1005			[otherwise] :
;	  1006			    begin
;	  1007			    CCB [C_STS] = S_ERBO %(invalid nak frequency)%;
;	  1008			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1009			    CCB [C_FNC] = FC_RCE;
;	  1010			    LLCRS$ (.CCB);
;	  1011			    return;
;	  1012			    end;
;	  1013			tes;
;	  1014	
;	  1015		    selectone (CHAR = ch$rchar_a (PTR)) of
;	  1016			set
;	  1017			[0] :
;	  1018			    LINK [L_BPC_COUNT] = .CHAR;
;	  1019	
;	  1020			[1 to 128] :
;	  1021			    begin
;	  1022			    CCB [C_STS] = S_ERBO %(unsupported back-pressure frequency)%;
;	  1023			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1024			    CCB [C_FNC] = FC_RCE;
;	  1025			    LLCRS$ (.CCB);
;	  1026			    return;
;	  1027			    end;
;	  1028	
;	  1029			[otherwise] :
;	  1030			    begin
;	  1031			    CCB [C_STS] = S_ERBO %(invalid back-pressure frequency)%;
;	  1032			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1033			    CCB [C_FNC] = FC_RCE;
;	  1034			    LLCRS$ (.CCB);
;	  1035			    return;
;	  1036			    end;
;	  1037			tes;
;	  1038	
;	  1039		    LINK [$SUB_FIELD (L_MESSAGE_SIZE, 0, 0, 8, 0)] = ch$rchar_a (PTR);
;	  1040		    LINK [$SUB_FIELD (L_MESSAGE_SIZE, 0, 8, 8, 0)] = ch$rchar_a (PTR);
;	  1041	
;	  1042		    incra ADDRESS from LINK [L_SEND_NUMBER] to LINK [L_PATTERN_ROUTINE] by %upval do .ADDRESS = 0;
;	  1043	
;	  1044		    begin
;	  1045	
;	  1046		    local
;	  1047			ACC_CCB : ref block field (C_FIELDS);
;	  1048	
;	  1049		    bind
;	  1050			FLOW = uplit (0, S$PSEG, S$PMSG) : vector;
;	  1051	
;	  1052		    if not CCBGT$ (ACC_CCB)
;	  1053		    then
;	  1054			begin
;	  1055			CCB [C_STS] = S_ERES %(no resources)%;
;	  1056			CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  33
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  1057			CCB [C_FNC] = FC_RCE;
;	  1058			LLCRS$ (.CCB);
;	  1059			return;
;	  1060			end;
;	  1061	
;	  1062		    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1063		    CCB [C_FNC] = FC_RCE;
;	  1064		    LLCRS$ (.CCB);
;	  1065		    ACC_CCB [C_BIAS] = ACC_CCB [C_ADDR] = ACC_CCB [C_CNT] = 0;
;	  1066		    SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], .FLOW [.LINK [L_FLOW_TYPE]]);
;	  1067		    end;
;	  1068		    LINK [LS_ACTIVE] = TRUE;
;	  1069		    end;
;	  1070	
;	  1071		[2] :
;	  1072		    begin
;	  1073	
;	  1074		    case (LINK [L_SUB_TEST] = 
;	  1075				begin
;	  1076				local char;
;	  1077				char = ch$rchar_a (PTR);
;	  1078				.char
;	  1079				end) from 0 to 5 of
;	  1080	
;	  1081			set
;	  1082			[0, 1] :
;	  1083			    LINK [L_DISCONNECT_LENGTH] = 0;
;	  1084	
;	  1085			[2, 3] :
;	  1086			    ch$move ((LINK [L_DISCONNECT_LENGTH] = 16),
;	  1087				ch$ptr (uplit ('ABCDEFGHIJKLMNOP')),
;	  1088				ch$ptr (LINK [L_DISCONNECT_DATA]));
;	  1089	
;	  1090			[4, 5] :
;	  1091			    ch$move ((LINK [L_DISCONNECT_LENGTH] = .block [.CCB [C_ADDR], CB_OPDL]),
;	  1092				ch$ptr (block [.CCB [C_ADDR], CB_OPTD]),
;	  1093				ch$ptr (LINK [L_DISCONNECT_DATA]));
;	  1094	
;	  1095			[outrange] :
;	  1096			    begin
;	  1097			    CCB [C_STS] = S_ERBO %(invalid test sub-type)%;
;	  1098			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1099			    CCB [C_FNC] = FC_RCE;
;	  1100			    LLCRS$ (.CCB);
;	  1101			    return;
;	  1102			    end;
;	  1103	
;	  1104			tes;
;	  1105	
;	  1106		    begin
;	  1107	
;	  1108		    local
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  34
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  1109			ACC_CCB : ref block field (C_FIELDS);
;	  1110	
;	  1111		    if not CCBGT$ (ACC_CCB)
;	  1112		    then
;	  1113			begin
;	  1114			CCB [C_STS] = S_ERES %(no resources)%;
;	  1115			CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1116			CCB [C_FNC] = FC_RCE;
;	  1117			LLCRS$ (.CCB);
;	  1118			return;
;	  1119			end;
;	  1120	
;	  1121		    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1122		    CCB [C_FNC] = FC_RCE;
;	  1123		    LLCRS$ (.CCB);
;	  1124	
;	  1125		    ACC_CCB [C_BIAS] = ACC_CCB [C_ADDR] = ACC_CCB [C_CNT] = 0;
;	  1126		    SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], S$PMSG);
;	  1127		    end;
;	  1128		    LINK [LS_ACTIVE] = TRUE;
;	  1129		    end;
;	  1130	
;	  1131		[3] :
;	  1132		    begin
;	  1133	
;	  1134		    local
;	  1135			CHAR;
;	  1136	
;	  1137		    selectone (CHAR = ch$rchar_a (PTR)) of
;	  1138		        set
;	  1139			[0, 1, 2, 3] :
;	  1140			    LINK [L_SUB_TEST] = .CHAR;
;	  1141	
;	  1142			[otherwise] :
;	  1143			    begin
;	  1144			    CCB [C_STS] = S_ERBO %(invalid data type)%;
;	  1145			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1146			    CCB [C_FNC] = FC_RCE;
;	  1147			    LLCRS$ (.CCB);
;	  1148			    return;
;	  1149			    end;
;	  1150			tes;
;	  1151	
;	  1152		    selectone (CHAR = ch$rchar_a (PTR)) of
;	  1153			set
;	  1154			[1] :
;	  1155			    LINK [L_FLOW_COUNT] = .CHAR;
;	  1156	
;	  1157			[otherwise] :
;	  1158			    begin
;	  1159			    CCB [C_STS] = S_ERBO %(invalid flow control value)%;
;	  1160			    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  35
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  1161			    CCB [C_FNC] = FC_RCE;
;	  1162			    LLCRS$ (.CCB);
;	  1163			    return;
;	  1164			    end;
;	  1165			tes;
;	  1166	
;	  1167		    incra ADDRESS from LINK [L_SEND_NUMBER] to LINK [L_PATTERN_ROUTINE] by %upval do .ADDRESS = 0;
;	  1168	
;	  1169		    begin
;	  1170	
;	  1171		    local
;	  1172			ACC_CCB : ref block field (C_FIELDS);
;	  1173	
;	  1174		    if not CCBGT$ (ACC_CCB)
;	  1175		    then
;	  1176			begin
;	  1177			CCB [C_STS] = S_ERES %(no resources)%;
;	  1178			CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1179			CCB [C_FNC] = FC_RCE;
;	  1180			LLCRS$ (.CCB);
;	  1181			return;
;	  1182			end;
;	  1183	
;	  1184		    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1185		    CCB [C_FNC] = FC_RCE;
;	  1186		    LLCRS$ (.CCB);
;	  1187		    ACC_CCB [C_BIAS] = ACC_CCB [C_ADDR] = ACC_CCB [C_CNT] = 0;
;	  1188		    SND_ACC (.DB, .ACC_CCB, .SC_PIX, .LINK [L_LLA], .LINK [L_ULA], S$PSEG);
;	  1189		    end;
;	  1190		    LINK [LS_ACTIVE] = TRUE;
;	  1191		    end;
;	  1192	
;	  1193		[inrange] :
;	  1194		    begin
;	  1195		    SIGNAL (DTR$_TEST_UNSUPPORTED, .LINK [L_TEST]);
;	  1196		    CCB [C_STS] = S_ERBO %(unsupported test type)%;
;	  1197		    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1198		    CCB [C_FNC] = FC_RCE;
;	  1199		    LLCRS$ (.CCB);
;	  1200		    return;
;	  1201		    end;
;	  1202	
;	  1203		[outrange] :
;	  1204		    begin
;	  1205		    SIGNAL (DTR$_TEST_INVALID, .LINK [L_TEST]);
;	  1206		    CCB [C_STS] = S_ERBO %(invalid test type)%;
;	  1207		    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .LINK [L_ULA];
;	  1208		    CCB [C_FNC] = FC_RCE;
;	  1209		    LLCRS$ (.CCB);
;	  1210		    return;
;	  1211		    end;
;	  1212	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  36
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

;	  1213		tes;
;	  1214	
;	  1215	    end;
;	  1216	    end;					!of routine RCV_CNR


000072	   101     102     103 		P.AAG:	.ASCII	/ABC/
000075	   104     105     106 			.ASCII	/DEF/
000100	   107     110     111 			.ASCII	/GHI/
000103	   112     113     114 			.ASCII	/JKL/
000106	   115     116     117 			.ASCII	/MNO/
000111	   120 					.ASCII	/P/
000112	000000 				P.AAH:	.WORD	0
000114	000001 					.WORD	1
000116	000002 					.WORD	2
000120	   101     102     103 		P.AAJ:	.ASCII	/ABC/
000123	   104     105     106 			.ASCII	/DEF/
000126	   107     110     111 			.ASCII	/GHI/
000131	   112     113     114 			.ASCII	/JKL/
000134	   115     116     117 			.ASCII	/MNO/
000137	   120 					.ASCII	/P/


						.GLOBL	$SCHED, KISAR6, $CCBGT


	000112'				FLOW=		    P.AAH


						.SBTTL	RCV.CNR
000460						.PSECT	$CODE$,  RO 

000000	162706  000012 			RCV.CNR:SUB	#12,SP				;					0797
000004	010403 					MOV	R4,R3				; *,CCB
000006	010546 					MOV	R5,-(SP)
000010	012700  000010 				MOV	#10,R0				;					0830
000014	060300 					ADD	R3,R0				; CCB,*
000016	116066  000001  000012 			MOVB	1(R0),12(SP)			; *,SC.PIX
000024	105066  000013 				CLRB	13(SP)				; SC.PIX
000030	010501 					MOV	R5,R1				;					0831
000032	016166  000004  000010 			MOV	4(R1),10(SP)			; *,LINK
000040	032776  004000  000010 		1$:	BIT	#4000,@10(SP)			; *,LINK				0833
000046	001421 					BEQ	3$
000050	117601  000010 				MOVB	@10(SP),R1			; LINK,*				0836
000054	011602 					MOV	(SP),R2
000056	020162  000002 				CMP	R1,2(R2)
000062	002407 					BLT	2$
000064	012763  177777  000014 			MOV	#-1,14(R3)			; *,*(CCB)				0839
000072	111063  000024 				MOVB	(R0),24(R3)			; *,*(CCB)				0840
000076	000167  001460 				JMP	36$				;					0841
000102	062766  000040  000010 		2$:	ADD	#40,10(SP)			; *,LINK				0846
000110	000753 					BR	1$				;					0833
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  37
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

000112	012701  000002 			3$:	MOV	#2,R1				;					0854
000116	066601  000010 				ADD	10(SP),R1			; LINK,*
000122	010166  000006 				MOV	R1,6(SP)
000126	111011 					MOVB	(R0),(R1)
000130	016367  000016  000000G			MOV	16(R3),KISAR6			; *(CCB),*				0855
000136	016301  000020 				MOV	20(R3),R1			; *(CCB),*				0856
000142	010105 					MOV	R1,R5
000144	062705  000136 				ADD	#136,R5
000150	010502 					MOV	R5,R2				; *,PTR
000152	017646  000006 				MOV	@6(SP),-(SP)			;					0857
000156	112266  000001 				MOVB	(R2)+,1(SP)			; PTR,*
000162	012676  000006 				MOV	(SP)+,@6(SP)
000166	042776  002000  000010 			BIC	#2000,@10(SP)			; *,LINK				0858
000174	005776  000006 				TST	@6(SP)
000200	100003 					BPL	4$
000202	052776  002000  000010 			BIS	#2000,@10(SP)			; *,LINK
000210	042776  100000  000006 		4$:	BIC	#100000,@6(SP)			;					0859
000216	012766  000024  000004 			MOV	#24,4(SP)			;					1207
000224	060366  000004 				ADD	R3,4(SP)			; CCB,*
000230	012766  000012  000002 			MOV	#12,2(SP)			;					1208
000236	060366  000002 				ADD	R3,2(SP)			; CCB,*
000242	017600  000006 				MOV	@6(SP),R0			;					0861
000246	000300 					SWAB	R0
000250	110000 					MOVB	R0,R0
000252	020027  000003 				CMP	R0,#3
000256	101003 					BHI	5$
000260	006300 					ASL	R0
000262	066007  000140'				ADD	P.AAE(R0),PC			; Case dispatch
000266	017600  000006 			5$:	MOV	@6(SP),R0			;					1205
000272	000300 					SWAB	R0
000274	110000 					MOVB	R0,R0
000276	010046 					MOV	R0,-(SP)
000300	012746  100033 				MOV	#-77745,-(SP)
000304	012746  000002 				MOV	#2,-(SP)
000310	004767  000000G				JSR	PC,$IGNAL
000314	012763  177754  000014 			MOV	#-24,14(R3)			; *,*(CCB)				1206
000322	117676  000016  000012 			MOVB	@16(SP),@12(SP)			; LINK,*				1207
000330	112776  000004  000010 			MOVB	#4,@10(SP)			;					1208
000336	010304 					MOV	R3,R4				; CCB,*					1209
000340	004767  000000G				JSR	PC,$SCHED
000344	000553 					BR	15$				;					0861
000346	005000 				6$:	CLR	R0				; CHAR					0869
000350	152200 					BISB	(R2)+,R0			; PTR,CHAR
000352	016604  000010 				MOV	10(SP),R4			; LINK,*				0866
000356	110064  000004 				MOVB	R0,4(R4)			; CHAR,*(LINK)
000362	020027  000005 				CMP	R0,#5
000366	101003 					BHI	7$
000370	006300 					ASL	R0
000372	066007  000150'				ADD	P.AAF(R0),PC			; Case dispatch
000376	000167  001064 			7$:	JMP	30$				;					0889
000402	016600  000010 			8$:	MOV	10(SP),R0			; LINK,*				0875
000406	005060  000012 				CLR	12(R0)				; *(LINK)
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  38
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

000412	000431 					BR	12$				;					0866
000414	012746  000020 			9$:	MOV	#20,-(SP)			;					0878
000420	016600  000012 				MOV	12(SP),R0			; LINK,*
000424	011660  000012 				MOV	(SP),12(R0)			; *,*(LINK)
000430	012746  000072'				MOV	#P.AAG,-(SP)			;					0880
000434	000407 					BR	11$
000436	016146  000134 			10$:	MOV	134(R1),-(SP)			;					0883
000442	016600  000012 				MOV	12(SP),R0			; LINK,*
000446	011660  000012 				MOV	(SP),12(R0)			; *,*(LINK)
000452	010546 					MOV	R5,-(SP)			;					0885
000454	012700  000014 			11$:	MOV	#14,R0
000460	066600  000014 				ADD	14(SP),R0			; LINK,*
000464	010046 					MOV	R0,-(SP)
000466	004767  000000G				JSR	PC,BL$MOV
000472	062706  000006 				ADD	#6,SP
000476	004767  000000G			12$:	JSR	PC,$CCBGT			;					0903
000502	103574 					BCS	19$
000504	010401 					MOV	R4,R1				; $MCB$R4,ACC.CCB
000506	117676  000010  000004 			MOVB	@10(SP),@4(SP)			; LINK,*				0913
000514	112776  000004  000002 			MOVB	#4,@2(SP)			;					0914
000522	010304 					MOV	R3,R4				; CCB,*					0915
000524	004767  000000G				JSR	PC,$SCHED
000530	005061  000016 				CLR	16(R1)				; *(ACC.CCB)				0917
000534	012700  000014 				MOV	#14,R0				;					0918
000540	066600  000010 				ADD	10(SP),R0			; LINK,*
000544	010061  000020 				MOV	R0,20(R1)			; *,*(ACC.CCB)
000550	016600  000010 				MOV	10(SP),R0			; LINK,*				0919
000554	016061  000012  000022 			MOV	12(R0),22(R1)			; *(LINK),*(ACC.CCB)
000562	010004 					MOV	R0,R4				; LINK,*				0921
000564	132764  000001  000004 			BITB	#1,4(R4)			; *,*(LINK)
000572	001015 					BNE	13$
000574	016646  000012 				MOV	12(SP),-(SP)			; SC.PIX,*				0923
000600	005046 					CLR	-(SP)
000602	117616  000012 				MOVB	@12(SP),(SP)
000606	111000 					MOVB	(R0),R0				; LINK,*
000610	010046 					MOV	R0,-(SP)
000612	016605  000006 				MOV	6(SP),R5
000616	010104 					MOV	R1,R4				; ACC.CCB,*
000620	004767  000000V				JSR	PC,SND.REJ
000624	000420 					BR	14$				;					0921
000626	016646  000012 			13$:	MOV	12(SP),-(SP)			; SC.PIX,*				0925
000632	005046 					CLR	-(SP)
000634	117616  000012 				MOVB	@12(SP),(SP)
000640	117600  000014 				MOVB	@14(SP),R0			; LINK,*
000644	010046 					MOV	R0,-(SP)
000646	012746  000002 				MOV	#2,-(SP)
000652	016605  000010 				MOV	10(SP),R5
000656	010104 					MOV	R1,R4				; ACC.CCB,*
000660	004767  000000V				JSR	PC,SND.ACC
000664	005726 					TST	(SP)+
000666	052776  004000  000016 		14$:	BIS	#4000,@16(SP)			; *,LINK				0928
000674	062706  000006 			15$:	ADD	#6,SP				;					0864
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  39
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

000700	000167  001002 				JMP	39$				;					0861
000704	005000 				16$:	CLR	R0				; CHAR					0937
000706	152200 					BISB	(R2)+,R0			; PTR,CHAR
000710	005700 					TST	R0				; CHAR
000712	002631 					BLT	7$
000714	020027  000003 				CMP	R0,#3				; CHAR,*
000720	003226 					BGT	7$
000722	016604  000010 				MOV	10(SP),R4			; LINK,*				0940
000726	110064  000004 				MOVB	R0,4(R4)			; CHAR,*(LINK)
000732	005000 					CLR	R0				; CHAR					0952
000734	152200 					BISB	(R2)+,R0			; PTR,CHAR
000736	020027  000001 				CMP	R0,#1				; CHAR,*
000742	001215 					BNE	7$
000744	010401 					MOV	R4,R1				; LINK,*				0955
000746	110061  000005 				MOVB	R0,5(R1)			; CHAR,*(LINK)
000752	005000 					CLR	R0				; CHAR					0976
000754	152200 					BISB	(R2)+,R0			; PTR,CHAR
000756	005700 					TST	R0				; CHAR
000760	003606 					BLE	7$
000762	020027  000177 				CMP	R0,#177				; CHAR,*
000766	003203 					BGT	7$
000770	010061  000006 				MOV	R0,6(R1)			; CHAR,*(LINK)				0979
000774	005000 					CLR	R0				; CHAR					0991
000776	152200 					BISB	(R2)+,R0			; PTR,CHAR
001000	005700 					TST	R0				; CHAR
001002	001111 					BNE	21$
001004	110061  000010 				MOVB	R0,10(R1)			; CHAR,*(LINK)				0994
001010	005000 					CLR	R0				; CHAR					1015
001012	152200 					BISB	(R2)+,R0			; PTR,CHAR
001014	005700 					TST	R0				; CHAR
001016	001103 					BNE	21$
001020	110061  000011 				MOVB	R0,11(R1)			; CHAR,*(LINK)				1018
001024	010100 					MOV	R1,R0				; LINK,*				1039
001026	112260  000012 				MOVB	(R2)+,12(R0)			; PTR,*(LINK)
001032	112260  000013 				MOVB	(R2)+,13(R0)			; PTR,*(LINK)				1040
001036	012701  000036 				MOV	#36,R1				;					1042
001042	060001 					ADD	R0,R1				; LINK,*
001044	010100 					MOV	R1,R0
001046	010401 					MOV	R4,R1				; LINK,ADDRESS
001050	062701  000016 				ADD	#16,R1				; *,ADDRESS
001054	000401 					BR	18$
001056	005011 				17$:	CLR	(R1)				; ADDRESS
001060	062701  000002 			18$:	ADD	#2,R1				; *,ADDRESS
001064	020100 					CMP	R1,R0				; ADDRESS,*
001066	101773 					BLOS	17$
001070	004767  000000G				JSR	PC,$CCBGT			;					1052
001074	103515 				19$:	BCS	27$
001076	010400 					MOV	R4,R0				; $MCB$R4,ACC.CCB
001100	117676  000010  000004 			MOVB	@10(SP),@4(SP)			; LINK,*				1062
001106	112776  000004  000002 			MOVB	#4,@2(SP)			;					1063
001114	010304 					MOV	R3,R4				; CCB,*					1064
001116	004767  000000G				JSR	PC,$SCHED
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  40
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

001122	005060  000022 				CLR	22(R0)				; *(ACC.CCB)				1065
001126	005060  000020 				CLR	20(R0)				; *(ACC.CCB)
001132	005060  000016 				CLR	16(R0)				; *(ACC.CCB)
001136	016646  000012 				MOV	12(SP),-(SP)			; SC.PIX,*				1066
001142	005046 					CLR	-(SP)
001144	117616  000012 				MOVB	@12(SP),(SP)
001150	117601  000014 				MOVB	@14(SP),R1			; LINK,*
001154	010146 					MOV	R1,-(SP)
001156	016602  000016 				MOV	16(SP),R2			; LINK,*
001162	116201  000005 				MOVB	5(R2),R1			; *(LINK),*
001166	006301 					ASL	R1
001170	016146  000112'				MOV	FLOW(R1),-(SP)
001174	000510 					BR	28$
001176	005000 				20$:	CLR	R0				; CHAR					1077
001200	152200 					BISB	(R2)+,R0			; PTR,CHAR
001202	016604  000010 				MOV	10(SP),R4			; LINK,*				1074
001206	110064  000004 				MOVB	R0,4(R4)			; CHAR,*(LINK)
001212	020027  000005 				CMP	R0,#5
001216	101123 					BHI	30$
001220	006300 					ASL	R0
001222	066007  000164'				ADD	P.AAI(R0),PC			; Case dispatch
001226	000517 				21$:	BR	30$				;					1097
001230	016600  000010 			22$:	MOV	10(SP),R0			; LINK,*				1083
001234	005060  000012 				CLR	12(R0)				; *(LINK)
001240	000431 					BR	26$				;					1074
001242	012746  000020 			23$:	MOV	#20,-(SP)			;					1086
001246	016600  000012 				MOV	12(SP),R0			; LINK,*
001252	011660  000012 				MOV	(SP),12(R0)			; *,*(LINK)
001256	012746  000120'				MOV	#P.AAJ,-(SP)			;					1088
001262	000407 					BR	25$
001264	016146  000134 			24$:	MOV	134(R1),-(SP)			;					1091
001270	016600  000012 				MOV	12(SP),R0			; LINK,*
001274	011660  000012 				MOV	(SP),12(R0)			; *,*(LINK)
001300	010546 					MOV	R5,-(SP)			;					1093
001302	012700  000014 			25$:	MOV	#14,R0
001306	066600  000014 				ADD	14(SP),R0			; LINK,*
001312	010046 					MOV	R0,-(SP)
001314	004767  000000G				JSR	PC,BL$MOV
001320	062706  000006 				ADD	#6,SP
001324	004767  000000G			26$:	JSR	PC,$CCBGT			;					1111
001330	103506 				27$:	BCS	34$
001332	010400 					MOV	R4,R0				; $MCB$R4,ACC.CCB
001334	117676  000010  000004 			MOVB	@10(SP),@4(SP)			; LINK,*				1121
001342	112776  000004  000002 			MOVB	#4,@2(SP)			;					1122
001350	010304 					MOV	R3,R4				; CCB,*					1123
001352	004767  000000G				JSR	PC,$SCHED
001356	005060  000022 				CLR	22(R0)				; *(ACC.CCB)				1125
001362	005060  000020 				CLR	20(R0)				; *(ACC.CCB)
001366	005060  000016 				CLR	16(R0)				; *(ACC.CCB)
001372	016646  000012 				MOV	12(SP),-(SP)			; SC.PIX,*				1126
001376	005046 					CLR	-(SP)
001400	117616  000012 				MOVB	@12(SP),(SP)
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  41
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

001404	117601  000014 				MOVB	@14(SP),R1			; LINK,*
001410	010146 					MOV	R1,-(SP)
001412	012746  000002 				MOV	#2,-(SP)
001416	000521 				28$:	BR	38$
001420	005000 				29$:	CLR	R0				; CHAR					1137
001422	152200 					BISB	(R2)+,R0			; PTR,CHAR
001424	005700 					TST	R0				; CHAR
001426	002417 					BLT	30$
001430	020027  000003 				CMP	R0,#3				; CHAR,*
001434	003014 					BGT	30$
001436	016601  000010 				MOV	10(SP),R1			; LINK,*				1140
001442	110061  000004 				MOVB	R0,4(R1)			; CHAR,*(LINK)
001446	005000 					CLR	R0				; CHAR					1152
001450	152200 					BISB	(R2)+,R0			; PTR,CHAR
001452	020027  000001 				CMP	R0,#1				; CHAR,*
001456	001003 					BNE	30$
001460	010061  000006 				MOV	R0,6(R1)			; CHAR,*(LINK)				1155
001464	000404 					BR	31$				;					1152
001466	012763  177754  000014 		30$:	MOV	#-24,14(R3)			; *,*(CCB)				1159
001474	000427 					BR	35$				;					1160
001476	012701  000036 			31$:	MOV	#36,R1				;					1167
001502	066601  000010 				ADD	10(SP),R1			; LINK,*
001506	010100 					MOV	R1,R0
001510	016601  000010 				MOV	10(SP),R1			; LINK,ADDRESS
001514	062701  000016 				ADD	#16,R1				; *,ADDRESS
001520	000401 					BR	33$
001522	005011 				32$:	CLR	(R1)				; ADDRESS
001524	062701  000002 			33$:	ADD	#2,R1				; *,ADDRESS
001530	020100 					CMP	R1,R0				; ADDRESS,*
001532	101773 					BLOS	32$
001534	004767  000000G				JSR	PC,$CCBGT			;					1174
001540	103402 					BCS	34$
001542	010400 					MOV	R4,R0				; $MCB$R4,ACC.CCB
001544	000415 					BR	37$
001546	012763  177777  000014 		34$:	MOV	#-1,14(R3)			; *,*(CCB)				1177
001554	117663  000010  000024 		35$:	MOVB	@10(SP),24(R3)			; LINK,*(CCB)				1178
001562	112763  000004  000012 		36$:	MOVB	#4,12(R3)			; *,*(CCB)				1179
001570	010304 					MOV	R3,R4				; CCB,*					1180
001572	004767  000000G				JSR	PC,$SCHED
001576	000443 					BR	39$				;					1176
001600	117676  000010  000004 		37$:	MOVB	@10(SP),@4(SP)			; LINK,*				1184
001606	112776  000004  000002 			MOVB	#4,@2(SP)			;					1185
001614	010304 					MOV	R3,R4				; CCB,*					1186
001616	004767  000000G				JSR	PC,$SCHED
001622	005060  000022 				CLR	22(R0)				; *(ACC.CCB)				1187
001626	005060  000020 				CLR	20(R0)				; *(ACC.CCB)
001632	005060  000016 				CLR	16(R0)				; *(ACC.CCB)
001636	016646  000012 				MOV	12(SP),-(SP)			; SC.PIX,*				1188
001642	005046 					CLR	-(SP)
001644	117616  000012 				MOVB	@12(SP),(SP)
001650	117601  000014 				MOVB	@14(SP),R1			; LINK,*
001654	010146 					MOV	R1,-(SP)
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  42
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (5)

001656	012746  000001 				MOV	#1,-(SP)
001662	016605  000010 			38$:	MOV	10(SP),R5
001666	010004 					MOV	R0,R4				; ACC.CCB,*
001670	004767  000000V				JSR	PC,SND.ACC
001674	052776  004000  000020 			BIS	#4000,@20(SP)			; *,LINK				1190
001702	062706  000010 				ADD	#10,SP				;					1132
001706	062706  000014 			39$:	ADD	#14,SP				;					0797
001712	000207 					RTS	PC

; Routine Size:  486 words,	Routine Base:  $CODE$ + 0460
; Maximum stack depth per invocation:  11 words


000140						.PSECT	$PLIT$,  RO ,  D  

					P.AAE:						; CASE Table for RCV.CNR+0262		0861
000140	000060 					.WORD	60				; [6$]
000142	000416 					.WORD	416				; [16$]
000144	000710 					.WORD	710				; [20$]
000146	001132 					.WORD	1132				; [29$]

					P.AAF:						; CASE Table for RCV.CNR+0372		0866
000150	000004 					.WORD	4				; [8$]
000152	000004 					.WORD	4				; [8$]
000154	000016 					.WORD	16				; [9$]
000156	000016 					.WORD	16				; [9$]
000160	000040 					.WORD	40				; [10$]
000162	000040 					.WORD	40				; [10$]

					P.AAI:						; CASE Table for RCV.CNR+1222		1074
000164	000002 					.WORD	2				; [22$]
000166	000002 					.WORD	2				; [22$]
000170	000014 					.WORD	14				; [23$]
000172	000014 					.WORD	14				; [23$]
000174	000036 					.WORD	36				; [24$]
000176	000036 					.WORD	36				; [24$]



;	  1217	
;	  1218	
;	  1219	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  43
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (6)

;	  1220	routine RCV_DAT (DB, CCB) : MCB_DB_CCB novalue =
;	  1221	
;	  1222	!++
;	  1223	! FUNCTIONAL DESCRIPTION:
;	  1224	!
;	  1225	!
;	  1226	! FORMAL PARAMETERS:
;	  1227	!	None
;	  1228	!
;	  1229	! IMPLICIT INPUTS:
;	  1230	!	None
;	  1231	!
;	  1232	! IMPLICIT OUTPUTS:
;	  1233	!	None
;	  1234	!
;	  1235	! ROUTINE VALUE:
;	  1236	! COMPLETION CODES:
;	  1237	!	None
;	  1238	!
;	  1239	! SIDE EFFECTS:
;	  1240	!	None
;	  1241	!--
;	  1242	
;	  1243	    begin
;	  1244	
;	  1245	    map
;	  1246		CCB : ref block field (C_FIELDS),
;	  1247		DB : ref block field (D_FIELDS);
;	  1248	
;	  1249	    bind
;	  1250		LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  1251		    : block field (L_FIELDS);
;	  1252	
;	  1253	    if .LINK [L_TEST] neq 1
;	  1254	    then
;	  1255		begin
;	  1256		SIGNAL (DTR$_NO_DATA_PLEASE, .CCB);
;	  1257		CCB [C_FNC] = FC_RCE;
;	  1258		LLCRS$ (.CCB);
;	  1259		return;
;	  1260		end;
;	  1261	
;	  1262	    if ( .CCB[$sub_field( C_PRM1, byte_1)] and S$PBOM) neq 0
;	  1263	    then
;	  1264		begin
;	  1265		if (LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] + 1) eql 0
;	  1266		then
;	  1267		    LINK[$sub_field( L_RECEIVE_NUMBER, word_1)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_1)]  + 1;
;	  1268		end;
;	  1269	
;	  1270	    MAP$( .CCB[C_BIAS]);
;	  1271	    selectone .LINK [L_SUB_TEST] of
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  44
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (6)

;	  1272		set
;	  1273		[0]:
;	  1274		    begin
;	  1275		    local
;	  1276			DRQ_CCB : ref block field (C_FIELDS);
;	  1277	
;	  1278		    if not CCBGT$ (DRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
;	  1279		    DRQ_CCB [C_BIAS] = DRQ_CCB [C_ADDR] = DRQ_CCB [C_CNT] = 0;
;	  1280		    SND_DRQ (.DB, .DRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA], 1);
;	  1281		    CCB [C_FNC] = FC_RCE;
;	  1282		    LLCRS$ (.CCB);
;	  1283	
;	  1284		    end;
;	  1285	
;	  1286		[1, 2]:
;	  1287		    begin
;	  1288		    if 
;	  1289			begin
;	  1290	   		if ( .CCB[$sub_field( C_PRM1, byte_1)] and S$PBOM) neq 0
;	  1291			then
;	  1292			    begin
;	  1293			    if ch$eql( 4, .CCB[C_ADDR], 4, ch$ptr(LINK[$sub_field( L_RECEIVE_NUMBER, word_0)]), 0)
;	  1294			    then
;	  1295				true
;	  1296			    else
;	  1297				begin
;	  1298				SIGNAL (DTR$_BAD_SEQUENCE_NUMBER, .CCB);
;	  1299				false
;	  1300				end
;	  1301			    end
;	  1302			else
;	  1303			    true
;	  1304			end
;	  1305		    and
;	  1306			begin
;	  1307			if .LINK[L_SUB_TEST] eql 2
;	  1308			then
;	  1309			    begin
;	  1310			    if PATTERN_CHECK( .DB, .CCB)
;	  1311			    then
;	  1312				true
;	  1313			    else
;	  1314				begin
;	  1315				SIGNAL (DTR$_BAD_PATTERN, .CCB);
;	  1316				false
;	  1317				end
;	  1318			    end
;	  1319			else
;	  1320			    true
;	  1321			end
;	  1322		    then
;	  1323			begin
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  45
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (6)

;	  1324	  	        local
;	  1325			DRQ_CCB : ref block field (C_FIELDS);
;	  1326	
;	  1327		        if not CCBGT$ (DRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
;	  1328		        DRQ_CCB [C_BIAS] = DRQ_CCB [C_ADDR] = DRQ_CCB [C_CNT] = 0;
;	  1329		        SND_DRQ (.DB, .DRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA], 1);
;	  1330			end
;	  1331		    else
;	  1332			begin
;	  1333			local
;	  1334			DIS_CCB:  ref block field (C_FIELDS);
;	  1335			if not CCBGT$ (DIS_CCB) then signal_stop (DTR$_NO_CCB);
;	  1336			DIS_CCB [C_BIAS] = DIS_CCB [C_ADDR] = DIS_CCB [C_CNT] = 0;
;	  1337			SND_DIS (.DB, .DIS_CCB, .CCB[C_PIX], .LINK[L_LLA], .LINK[L_ULA]);
;	  1338		        end;
;	  1339	
;	  1340		    CCB [C_FNC] = FC_RCE;
;	  1341		    LLCRS$ (.CCB);
;	  1342		    end;
;	  1343	
;	  1344		[3] :
;	  1345		    begin
;	  1346	
;	  1347		    local
;	  1348			SND_CCB : ref block field (C_FIELDS);
;	  1349	
;	  1350		    if not CCBGT$ (SND_CCB) then return SIGNAL (DTR$_NO_CCB);
;	  1351	
;	  1352		    SND_CCB [C_STK] = .CCB;
;	  1353		    SND_CCB [C_BIAS] = .CCB [C_BIAS];
;	  1354		    SND_CCB [C_ADDR] = .CCB [C_ADDR];
;	  1355		    SND_CCB [C_CNT] = .CCB [C_CNT];
;	  1356		    SND_CCB [C_CHN] = .CCB [C_CHN];
;	  1357		    SND_SND (.DB, .SND_CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA],
;	  1358		    (if ( .CCB[$sub_field( C_PRM1, byte_1)] and S$PEOM) neq 0 then S$PEOM else 0));
;	  1359		    end;
;	  1360		tes;
;	  1361	
;	  1362	    end;					!of routine RCV_DAT


						.SBTTL	RCV.DAT
002374						.PSECT	$CODE$,  RO 

000000	010402 				RCV.DAT:MOV	R4,R2				; *,CCB					1220
000002	005004 					CLR	R4				;					1250
000004	156204  000024 				BISB	24(R2),R4			; *(CCB),*
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	012701  177740 				MOV	#-40,R1				;					1243
000024	060401 					ADD	R4,R1
000026	012746  000002 				MOV	#2,-(SP)			;					1253
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  46
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (6)

000032	060116 					ADD	R1,(SP)
000034	017600  000000 				MOV	@0(SP),R0
000040	105000 					CLRB	R0
000042	020027  000400 				CMP	R0,#400
000046	001410 					BEQ	1$
000050	010246 					MOV	R2,-(SP)			; CCB,*					1256
000052	012746  100133 				MOV	#-77645,-(SP)
000056	012746  000002 				MOV	#2,-(SP)
000062	004767  000000G				JSR	PC,$IGNAL
000066	000561 					BR	8$				;					1257
000070	005003 				1$:	CLR	R3				;					1262
000072	032762  000400  000024 			BIT	#400,24(R2)			; *,*(CCB)
000100	001406 					BEQ	2$
000102	005203 					INC	R3
000104	005261  000024 				INC	24(R1)				;					1265
000110	001002 					BNE	2$
000112	005261  000026 				INC	26(R1)				;					1267
000116	016267  000016  000000G		2$:	MOV	16(R2),KISAR6			; *(CCB),*				1270
000124	116100  000004 				MOVB	4(R1),R0			;					1271
000130	001035 					BNE	3$
000132	004767  000000G				JSR	PC,$CCBGT			;					1278
000136	103511 					BLO	7$
000140	005064  000022 				CLR	22(R4)				; *(DRQ.CCB)				1279
000144	005064  000020 				CLR	20(R4)				; *(DRQ.CCB)
000150	005064  000016 				CLR	16(R4)				; *(DRQ.CCB)
000154	005046 					CLR	-(SP)				;					1280
000156	116216  000011 				MOVB	11(R2),(SP)			; *(CCB),*
000162	005046 					CLR	-(SP)
000164	117616  000004 				MOVB	@4(SP),(SP)
000170	111100 					MOVB	(R1),R0
000172	010046 					MOV	R0,-(SP)
000174	012746  000001 				MOV	#1,-(SP)
000200	004767  000000V				JSR	PC,SND.DRQ
000204	112762  000004  000012 			MOVB	#4,12(R2)			; *,*(CCB)				1281
000212	010204 					MOV	R2,R4				; CCB,*					1282
000214	004767  000000G				JSR	PC,$SCHED
000220	000167  000452 				JMP	17$				;					1274
000224	003546 				3$:	BLE	12$				;					1271
000226	020027  000002 				CMP	R0,#2
000232	003143 					BGT	12$
000234	006003 					ROR	R3				;					1290
000236	103024 					BCC	4$
000240	012746  000004 				MOV	#4,-(SP)			;					1293
000244	016246  000020 				MOV	20(R2),-(SP)			; *(CCB),*
000250	012746  000004 				MOV	#4,-(SP)
000254	010146 					MOV	R1,-(SP)
000256	062716  000024 				ADD	#24,(SP)
000262	005046 					CLR	-(SP)
000264	004767  000000G				JSR	PC,BL$EQL
000270	062706  000012 				ADD	#12,SP
000274	006000 					ROR	R0
000276	103404 					BLO	4$
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  47
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (6)

000300	010246 					MOV	R2,-(SP)			; CCB,*					1298
000302	012746  100173 				MOV	#-77605,-(SP)
000306	000414 					BR	5$
000310	126127  000004  000002 		4$:	CMPB	4(R1),#2			;					1307
000316	001017 					BNE	6$
000320	010204 					MOV	R2,R4				; CCB,*					1310
000322	004767  000000V				JSR	PC,PATTERN.CHECK
000326	006000 					ROR	R0
000330	103412 					BLO	6$
000332	010246 					MOV	R2,-(SP)			; CCB,*					1315
000334	012746  100203 				MOV	#-77575,-(SP)
000340	012746  000002 			5$:	MOV	#2,-(SP)
000344	004767  000000G				JSR	PC,$IGNAL
000350	062706  000006 				ADD	#6,SP
000354	000427 					BR	9$				;					1314
000356	004767  000000G			6$:	JSR	PC,$CCBGT			;					1327
000362	103475 				7$:	BLO	13$
000364	005064  000022 				CLR	22(R4)				; *(DRQ.CCB)				1328
000370	005064  000020 				CLR	20(R4)				; *(DRQ.CCB)
000374	005064  000016 				CLR	16(R4)				; *(DRQ.CCB)
000400	005046 					CLR	-(SP)				;					1329
000402	116216  000011 				MOVB	11(R2),(SP)			; *(CCB),*
000406	005046 					CLR	-(SP)
000410	117616  000004 				MOVB	@4(SP),(SP)
000414	111100 					MOVB	(R1),R0
000416	010046 					MOV	R0,-(SP)
000420	012746  000001 				MOV	#1,-(SP)
000424	004767  000000V				JSR	PC,SND.DRQ
000430	005726 					TST	(SP)+				;					1323
000432	000432 				8$:	BR	11$				;					1288
000434	004767  000000G			9$:	JSR	PC,$CCBGT			;					1335
000440	103007 					BHIS	10$
000442	012746  100024 				MOV	#-77754,-(SP)
000446	012746  000001 				MOV	#1,-(SP)
000452	004767  000000G				JSR	PC,$STOP
000456	022626 					CMP	(SP)+,(SP)+
000460	005064  000022 			10$:	CLR	22(R4)				; *(DIS.CCB)				1336
000464	005064  000020 				CLR	20(R4)				; *(DIS.CCB)
000470	005064  000016 				CLR	16(R4)				; *(DIS.CCB)
000474	005046 					CLR	-(SP)				;					1337
000476	116216  000011 				MOVB	11(R2),(SP)			; *(CCB),*
000502	005046 					CLR	-(SP)
000504	117616  000004 				MOVB	@4(SP),(SP)
000510	111100 					MOVB	(R1),R0
000512	010046 					MOV	R0,-(SP)
000514	004767  000000V				JSR	PC,SND.DIS
000520	112762  000004  000012 		11$:	MOVB	#4,12(R2)			; *,*(CCB)				1340
000526	010204 					MOV	R2,R4				; CCB,*					1341
000530	004767  000000G				JSR	PC,$SCHED
000534	062706  000006 				ADD	#6,SP				;					1287
000540	000460 					BR	18$				;					1271
000542	020027  000003 			12$:	CMP	R0,#3
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  48
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (6)

000546	001055 					BNE	18$
000550	004767  000000G				JSR	PC,$CCBGT			;					1350
000554	103010 					BHIS	14$
000556	012746  100024 			13$:	MOV	#-77754,-(SP)
000562	012746  000001 				MOV	#1,-(SP)
000566	004767  000000G				JSR	PC,$IGNAL
000572	022626 					CMP	(SP)+,(SP)+
000574	000442 					BR	18$
000576	010264  000004 			14$:	MOV	R2,4(R4)			; CCB,*(SND.CCB)			1352
000602	016264  000016  000016 			MOV	16(R2),16(R4)			; *(CCB),*(SND.CCB)			1353
000610	016264  000020  000020 			MOV	20(R2),20(R4)			; *(CCB),*(SND.CCB)			1354
000616	016264  000022  000022 			MOV	22(R2),22(R4)			; *(CCB),*(SND.CCB)			1355
000624	016264  000002  000002 			MOV	2(R2),2(R4)			; *(CCB),*(SND.CCB)			1356
000632	005046 					CLR	-(SP)				;					1357
000634	116216  000011 				MOVB	11(R2),(SP)			; *(CCB),*
000640	005046 					CLR	-(SP)
000642	117616  000004 				MOVB	@4(SP),(SP)
000646	111100 					MOVB	(R1),R0
000650	010046 					MOV	R0,-(SP)
000652	032762  002000  000024 			BIT	#2000,24(R2)			; *,*(CCB)				1358
000660	001403 					BEQ	15$
000662	012746  000004 				MOV	#4,-(SP)
000666	000401 					BR	16$
000670	005046 				15$:	CLR	-(SP)
000672	004767  000000V			16$:	JSR	PC,SND.SND			;					1357
000676	062706  000010 			17$:	ADD	#10,SP				;					1345
000702	005726 				18$:	TST	(SP)+				;					1220
000704	000207 					RTS	PC

; Routine Size:  227 words,	Routine Base:  $CODE$ + 2374
; Maximum stack depth per invocation:  7 words


;	  1363	
;	  1364	
;	  1365	
;	  1366	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  49
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (7)

;	  1367	routine RCV_DIS (DB, CCB) : MCB_DB_CCB novalue =
;	  1368	
;	  1369	!++
;	  1370	! FUNCTIONAL DESCRIPTION:
;	  1371	!
;	  1372	!
;	  1373	! FORMAL PARAMETERS:
;	  1374	!	None
;	  1375	!
;	  1376	! IMPLICIT INPUTS:
;	  1377	!	None
;	  1378	!
;	  1379	! IMPLICIT OUTPUTS:
;	  1380	!	None
;	  1381	!
;	  1382	! ROUTINE VALUE:
;	  1383	! COMPLETION CODES:
;	  1384	!	None
;	  1385	!
;	  1386	! SIDE EFFECTS:
;	  1387	!	None
;	  1388	!--
;	  1389	
;	  1390	    begin
;	  1391	
;	  1392	    map
;	  1393		CCB : ref block field (C_FIELDS),
;	  1394		DB : ref block field (D_FIELDS);
;	  1395	
;	  1396	    bind
;	  1397		LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  1398		    : block field (L_FIELDS);
;	  1399	
;	  1400	    if .CCB [C_STS] neq S_SSUC
;	  1401	    then
;	  1402		SIGNAL (DTR$_NO_DISCONNECT, .CCB, .CCB [C_STS]);
;	  1403	
;	  1404	    LINK [ls_dip] = false;
;	  1405	    LINK [LS_ACTIVE] = FALSE;
;	  1406	    CCBRT$ (.CCB);
;	  1407	    end;					!of routine RCV_DIS


						.SBTTL	RCV.DIS
000000	010401 				RCV.DIS:MOV	R4,R1				; *,CCB					1367
000002	005004 					CLR	R4				;					1397
000004	156104  000024 				BISB	24(R1),R4			; *(CCB),*
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	162704  000040 				SUB	#40,R4				;					1390
000024	026127  000014  000001 			CMP	14(R1),#1			; *(CCB),*				1400
000032	001413 					BEQ	1$
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  50
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (7)

000034	016146  000014 				MOV	14(R1),-(SP)			; *(CCB),*				1402
000040	010146 					MOV	R1,-(SP)			; CCB,*
000042	012746  100073 				MOV	#-77705,-(SP)
000046	012746  000003 				MOV	#3,-(SP)
000052	004767  000000G				JSR	PC,$IGNAL
000056	062706  000010 				ADD	#10,SP
000062	042714  004400 			1$:	BIC	#4400,(R4)			;					1405
000066	010104 					MOV	R1,R4				; CCB,*					1406
000070	004767  000000G				JSR	PC,$CCBRT
000074	000207 					RTS	PC				;					1367

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


;	  1408	
;	  1409	
;	  1410	
;	  1411	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  51
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (8)

;	  1412	routine RCV_DRQ (DB, CCB) : MCB_DB_CCB novalue =
;	  1413	
;	  1414	!++
;	  1415	! FUNCTIONAL DESCRIPTION:
;	  1416	!
;	  1417	!
;	  1418	! FORMAL PARAMETERS:
;	  1419	!	None
;	  1420	!
;	  1421	! IMPLICIT INPUTS:
;	  1422	!	None
;	  1423	!
;	  1424	! IMPLICIT OUTPUTS:
;	  1425	!	None
;	  1426	!
;	  1427	! ROUTINE VALUE:
;	  1428	! COMPLETION CODES:
;	  1429	!	None
;	  1430	!
;	  1431	! SIDE EFFECTS:
;	  1432	!	None
;	  1433	!--
;	  1434	
;	  1435	    begin
;	  1436	
;	  1437	    map
;	  1438		CCB : ref block field (C_FIELDS),
;	  1439		DB : ref block field (D_FIELDS);
;	  1440	
;	  1441	    if .CCB [C_STS] neq S_SSUC
;	  1442	    then
;	  1443		SIGNAL (DTR$_NO_DATA_REQUEST, .CCB, .CCB [C_STS]);
;	  1444	
;	  1445	    $MCB_RETURN_CCB (.CCB);
;	  1446	    end;					!of routine RCV_DRQ


						.SBTTL	RCV.DRQ
000000	026427  000014  000001 		RCV.DRQ:CMP	14(R4),#1			; *(CCB),*				1441
000006	001413 					BEQ	1$
000010	016446  000014 				MOV	14(R4),-(SP)			; *(CCB),*				1443
000014	010446 					MOV	R4,-(SP)			; CCB,*
000016	012746  100123 				MOV	#-77655,-(SP)
000022	012746  000003 				MOV	#3,-(SP)
000026	004767  000000G				JSR	PC,$IGNAL
000032	062706  000010 				ADD	#10,SP
000036	004767  000000G			1$:	JSR	PC,$CCBRT			;					1445
000042	000207 					RTS	PC				;					1412

; Routine Size:  18 words,	Routine Base:  $CODE$ + 3400
; Maximum stack depth per invocation:  5 words
;	  1447	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  52
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (8)

;	  1448	
;	  1449	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  53
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (9)

;	  1450	routine RCV_DSR (DB, CCB) : MCB_DB_CCB novalue =
;	  1451	
;	  1452	!++
;	  1453	! FUNCTIONAL DESCRIPTION:
;	  1454	!
;	  1455	!
;	  1456	! FORMAL PARAMETERS:
;	  1457	!	None
;	  1458	!
;	  1459	! IMPLICIT INPUTS:
;	  1460	!	None
;	  1461	!
;	  1462	! IMPLICIT OUTPUTS:
;	  1463	!	None
;	  1464	!
;	  1465	! ROUTINE VALUE:
;	  1466	! COMPLETION CODES:
;	  1467	!	None
;	  1468	!
;	  1469	! SIDE EFFECTS:
;	  1470	!	None
;	  1471	!--
;	  1472	
;	  1473	    begin
;	  1474	
;	  1475	    map
;	  1476		CCB : ref block field (C_FIELDS),
;	  1477		DB : ref block field (D_FIELDS);
;	  1478	
;	  1479	    local
;	  1480		DIS_CCB : ref block field (C_FIELDS),
;	  1481		LLA,
;	  1482		SC_PIX,
;	  1483		ULA;
;	  1484	
;	  1485	    SC_PIX = .CCB [C_PIX];
;	  1486	    LLA = .CCB [C_LIN];
;	  1487	    ULA = .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)];
;	  1488	    CCB [C_FNC] = FC_RCE;
;	  1489	    LLCRS$ (.CCB);
;	  1490	
;	  1491	    if not CCBGT$ (DIS_CCB) then signal_stop (DTR$_NO_CCB);
;	  1492	
;	  1493	    DIS_CCB [C_BIAS] = DIS_CCB [C_ADDR] = DIS_CCB [C_CNT] = 0;
;	  1494	    SND_DIS (.DB, .DIS_CCB, .SC_PIX, .LLA, .ULA);
;	  1495	    end;					!of routine RCV_DSR


						.SBTTL	RCV.DSR
000000	005001 				RCV.DSR:CLR	R1				; SC.PIX				1485
000002	156401  000011 				BISB	11(R4),R1			; *(CCB),SC.PIX
000006	005002 					CLR	R2				; LLA					1486
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  54
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (9)

000010	156402  000010 				BISB	10(R4),R2			; *(CCB),LLA
000014	005003 					CLR	R3				; ULA					1487
000016	156403  000024 				BISB	24(R4),R3			; *(CCB),ULA
000022	112764  000004  000012 			MOVB	#4,12(R4)			; *,*(CCB)				1488
000030	004767  000000G				JSR	PC,$SCHED			;					1489
000034	004767  000000G				JSR	PC,$CCBGT			;					1491
000040	103007 					BHIS	1$
000042	012746  100024 				MOV	#-77754,-(SP)
000046	012746  000001 				MOV	#1,-(SP)
000052	004767  000000G				JSR	PC,$STOP
000056	022626 					CMP	(SP)+,(SP)+
000060	005064  000022 			1$:	CLR	22(R4)				; *(DIS.CCB)				1493
000064	005064  000020 				CLR	20(R4)				; *(DIS.CCB)
000070	005064  000016 				CLR	16(R4)				; *(DIS.CCB)
000074	010146 					MOV	R1,-(SP)			; SC.PIX,*				1494
000076	010246 					MOV	R2,-(SP)			; LLA,*
000100	010346 					MOV	R3,-(SP)			; ULA,*
000102	004767  000000V				JSR	PC,SND.DIS
000106	062706  000006 				ADD	#6,SP				;					1473
000112	000207 					RTS	PC				;					1450

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


;	  1496	
;	  1497	
;	  1498	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  55
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (10)

;	  1499	routine RCV_INT (DB, CCB) : MCB_DB_CCB novalue =
;	  1500	
;	  1501	!++
;	  1502	! FUNCTIONAL DESCRIPTION:
;	  1503	!
;	  1504	!
;	  1505	! FORMAL PARAMETERS:
;	  1506	!	None
;	  1507	!
;	  1508	! IMPLICIT INPUTS:
;	  1509	!	None
;	  1510	!
;	  1511	! IMPLICIT OUTPUTS:
;	  1512	!	None
;	  1513	!
;	  1514	! ROUTINE VALUE:
;	  1515	! COMPLETION CODES:
;	  1516	!	None
;	  1517	!
;	  1518	! SIDE EFFECTS:
;	  1519	!	None
;	  1520	!--
;	  1521	
;	  1522	    begin
;	  1523	
;	  1524	    map
;	  1525		CCB : ref block field (C_FIELDS),
;	  1526		DB : ref block field (D_FIELDS);
;	  1527	
;	  1528	    bind
;	  1529		LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  1530		    : block field (L_FIELDS);
;	  1531	
;	  1532	    if .LINK [L_TEST] neq 3
;	  1533	    then
;	  1534		begin
;	  1535		SIGNAL (DTR$_NO_INTERRUPT_PLEASE, .CCB);
;	  1536		CCB [C_FNC] = FC_RCE;
;	  1537		LLCRS$ (.CCB);
;	  1538		return;
;	  1539		end;
;	  1540	
;	  1541	    if (LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_0)] + 1) eql 0
;	  1542	    then
;	  1543		LINK[$sub_field( L_RECEIVE_NUMBER, word_1)] = .LINK[$sub_field( L_RECEIVE_NUMBER, word_1)]  + 1;
;	  1544	
;	  1545	    MAP$( .CCB[C_BIAS]);
;	  1546	
;	  1547	    selectone .LINK [L_SUB_TEST] of
;	  1548		set
;	  1549		[0] :
;	  1550		    begin
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  56
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (10)

;	  1551	
;	  1552		    local
;	  1553			IRQ_CCB : ref block field (C_FIELDS);
;	  1554	
;	  1555		    if not CCBGT$ (IRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
;	  1556		    IRQ_CCB [C_BIAS] = IRQ_CCB [C_ADDR] = IRQ_CCB [C_CNT] = 0;
;	  1557		    SND_IRQ (.DB, .IRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
;	  1558	
;	  1559		    CCB [C_FNC] = FC_RCE;
;	  1560		    LLCRS$ (.CCB);
;	  1561		    end;
;	  1562	
;	  1563		[1, 2]:
;	  1564		    begin
;	  1565		    if
;	  1566			begin
;	  1567			if ch$eql( 4, .CCB[C_ADDR], 4, ch$ptr(LINK[$sub_field( L_RECEIVE_NUMBER, word_0)]), 0)
;	  1568			then
;	  1569			    true
;	  1570			else
;	  1571			    begin
;	  1572			    SIGNAL (DTR$_BAD_SEQUENCE_NUMBER, .CCB);
;	  1573			    false
;	  1574			    end
;	  1575			end
;	  1576		    and
;	  1577			begin
;	  1578			if .LINK[L_SUB_TEST] eql 2
;	  1579			then
;	  1580			    begin
;	  1581			    if PATTERN_CHECK( .DB, .CCB)
;	  1582			    then
;	  1583				true
;	  1584			    else
;	  1585				begin
;	  1586				SIGNAL (DTR$_BAD_PATTERN, .CCB);
;	  1587				false
;	  1588				end
;	  1589			    end
;	  1590			else
;	  1591			    true
;	  1592			end
;	  1593	
;	  1594		    then
;	  1595			begin
;	  1596			local
;	  1597			IRQ_CCB : ref block field (C_FIELDS);
;	  1598	
;	  1599			if not CCBGT$ (IRQ_CCB) then return SIGNAL (DTR$_NO_CCB);
;	  1600			IRQ_CCB [C_BIAS] = IRQ_CCB [C_ADDR] = IRQ_CCB [C_CNT] = 0;
;	  1601			SND_IRQ (.DB, .IRQ_CCB, .CCB[C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
;	  1602			end
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  57
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (10)

;	  1603		    else
;	  1604			begin
;	  1605			local
;	  1606			DIS_CCB:  ref block field (C_FIELDS);
;	  1607	
;	  1608			SIGNAL (DTR$_BAD_SEQUENCE_NUMBER, .CCB);		
;	  1609			if not CCBGT$ (DIS_CCB) then signal_stop (DTR$_NO_CCB);
;	  1610			DIS_CCB [C_BIAS] = DIS_CCB [C_ADDR] = DIS_CCB [C_CNT] = 0;
;	  1611			SND_DIS (.DB, .DIS_CCB, .CCB[C_PIX], .LINK[L_LLA], .LINK[L_ULA]);
;	  1612			end;
;	  1613		    CCB [C_FNC] = FC_RCE;
;	  1614		    LLCRS$ (.CCB);
;	  1615		    end;
;	  1616	
;	  1617		[3] :
;	  1618		    begin
;	  1619	
;	  1620		    local
;	  1621			SNI_CCB : ref block field (C_FIELDS);
;	  1622	
;	  1623		    if not CCBGT$ (SNI_CCB) then return SIGNAL (DTR$_NO_CCB);
;	  1624	
;	  1625		    SNI_CCB [C_STK] = .CCB;
;	  1626		    SNI_CCB [C_BIAS] = .CCB [C_BIAS];
;	  1627		    SNI_CCB [C_ADDR] = .CCB [C_ADDR];
;	  1628		    SNI_CCB [C_CNT] = .CCB [C_CNT];
;	  1629		    SNI_CCB [C_CHN] = .CCB [C_CHN];
;	  1630		    SND_SNI (.DB, .SNI_CCB, .CCB [C_PIX], .LINK [L_LLA], .LINK [L_ULA]);
;	  1631		    end;
;	  1632		tes;
;	  1633	
;	  1634	    end;					!of routine RCV_INT


						.SBTTL	RCV.INT
000000	010402 				RCV.INT:MOV	R4,R2				; *,CCB					1499
000002	005004 					CLR	R4				;					1529
000004	156204  000024 				BISB	24(R2),R4			; *(CCB),*
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	012701  177740 				MOV	#-40,R1				;					1522
000024	060401 					ADD	R4,R1
000026	012746  000002 				MOV	#2,-(SP)			;					1532
000032	060116 					ADD	R1,(SP)
000034	017600  000000 				MOV	@0(SP),R0
000040	105000 					CLRB	R0
000042	020027  001400 				CMP	R0,#1400
000046	001410 					BEQ	1$
000050	010246 					MOV	R2,-(SP)			; CCB,*					1535
000052	012746  100143 				MOV	#-77635,-(SP)
000056	012746  000002 				MOV	#2,-(SP)
000062	004767  000000G				JSR	PC,$IGNAL
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  58
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (10)

000066	000560 					BR	10$				;					1536
000070	012703  000024 			1$:	MOV	#24,R3				;					1541
000074	060103 					ADD	R1,R3
000076	005213 					INC	(R3)
000100	001002 					BNE	2$
000102	005261  000026 				INC	26(R1)				;					1543
000106	016267  000016  000000G		2$:	MOV	16(R2),KISAR6			; *(CCB),*				1545
000114	116100  000004 				MOVB	4(R1),R0			;					1547
000120	001004 					BNE	3$
000122	004767  000000G				JSR	PC,$CCBGT			;					1555
000126	103555 					BLO	12$
000130	000454 					BR	7$				;					1556
000132	003545 				3$:	BLE	11$				;					1547
000134	020027  000002 				CMP	R0,#2
000140	003142 					BGT	11$
000142	012746  000004 				MOV	#4,-(SP)			;					1567
000146	016246  000020 				MOV	20(R2),-(SP)			; *(CCB),*
000152	012746  000004 				MOV	#4,-(SP)
000156	010346 					MOV	R3,-(SP)
000160	005046 					CLR	-(SP)
000162	004767  000000G				JSR	PC,BL$EQL
000166	062706  000012 				ADD	#12,SP
000172	006000 					ROR	R0
000174	103404 					BLO	4$
000176	010246 					MOV	R2,-(SP)			; CCB,*					1572
000200	012746  100173 				MOV	#-77605,-(SP)
000204	000414 					BR	5$
000206	126127  000004  000002 		4$:	CMPB	4(R1),#2			;					1578
000214	001017 					BNE	6$
000216	010204 					MOV	R2,R4				; CCB,*					1581
000220	004767  000000V				JSR	PC,PATTERN.CHECK
000224	006000 					ROR	R0
000226	103412 					BLO	6$
000230	010246 					MOV	R2,-(SP)			; CCB,*					1586
000232	012746  100203 				MOV	#-77575,-(SP)
000236	012746  000002 			5$:	MOV	#2,-(SP)
000242	004767  000000G				JSR	PC,$IGNAL
000246	062706  000006 				ADD	#6,SP
000252	000424 					BR	8$				;					1585
000254	004767  000000G			6$:	JSR	PC,$CCBGT			;					1599
000260	103500 					BLO	12$
000262	005064  000022 			7$:	CLR	22(R4)				; *(IRQ.CCB)				1600
000266	005064  000020 				CLR	20(R4)				; *(IRQ.CCB)
000272	005064  000016 				CLR	16(R4)				; *(IRQ.CCB)
000276	005046 					CLR	-(SP)				;					1601
000300	116216  000011 				MOVB	11(R2),(SP)			; *(CCB),*
000304	005046 					CLR	-(SP)
000306	117616  000004 				MOVB	@4(SP),(SP)
000312	111100 					MOVB	(R1),R0
000314	010046 					MOV	R0,-(SP)
000316	004767  000000V				JSR	PC,SND.IRQ
000322	000442 					BR	10$				;					1565
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  59
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (10)

000324	010246 				8$:	MOV	R2,-(SP)			; CCB,*					1608
000326	012746  100173 				MOV	#-77605,-(SP)
000332	012746  000002 				MOV	#2,-(SP)
000336	004767  000000G				JSR	PC,$IGNAL
000342	004767  000000G				JSR	PC,$CCBGT			;					1609
000346	103007 					BHIS	9$
000350	012716  100024 				MOV	#-77754,(SP)
000354	012746  000001 				MOV	#1,-(SP)
000360	004767  000000G				JSR	PC,$STOP
000364	005726 					TST	(SP)+
000366	005064  000022 			9$:	CLR	22(R4)				; *(DIS.CCB)				1610
000372	005064  000020 				CLR	20(R4)				; *(DIS.CCB)
000376	005064  000016 				CLR	16(R4)				; *(DIS.CCB)
000402	005016 					CLR	(SP)				;					1611
000404	116216  000011 				MOVB	11(R2),(SP)			; *(CCB),*
000410	005046 					CLR	-(SP)
000412	117616  000010 				MOVB	@10(SP),(SP)
000416	111100 					MOVB	(R1),R0
000420	010046 					MOV	R0,-(SP)
000422	004767  000000V				JSR	PC,SND.DIS
000426	022626 					CMP	(SP)+,(SP)+			;					1604
000430	112762  000004  000012 		10$:	MOVB	#4,12(R2)			; *,*(CCB)				1613
000436	010204 					MOV	R2,R4				; CCB,*					1614
000440	004767  000000G				JSR	PC,$SCHED
000444	000446 					BR	14$				;					1564
000446	020027  000003 			11$:	CMP	R0,#3				;					1547
000452	001045 					BNE	15$
000454	004767  000000G				JSR	PC,$CCBGT			;					1623
000460	103010 					BHIS	13$
000462	012746  100024 			12$:	MOV	#-77754,-(SP)
000466	012746  000001 				MOV	#1,-(SP)
000472	004767  000000G				JSR	PC,$IGNAL
000476	022626 					CMP	(SP)+,(SP)+
000500	000432 					BR	15$
000502	010264  000004 			13$:	MOV	R2,4(R4)			; CCB,*(SNI.CCB)			1625
000506	016264  000016  000016 			MOV	16(R2),16(R4)			; *(CCB),*(SNI.CCB)			1626
000514	016264  000020  000020 			MOV	20(R2),20(R4)			; *(CCB),*(SNI.CCB)			1627
000522	016264  000022  000022 			MOV	22(R2),22(R4)			; *(CCB),*(SNI.CCB)			1628
000530	016264  000002  000002 			MOV	2(R2),2(R4)			; *(CCB),*(SNI.CCB)			1629
000536	005046 					CLR	-(SP)				;					1630
000540	116216  000011 				MOVB	11(R2),(SP)			; *(CCB),*
000544	005046 					CLR	-(SP)
000546	117616  000004 				MOVB	@4(SP),(SP)
000552	111100 					MOVB	(R1),R0
000554	010046 					MOV	R0,-(SP)
000556	004767  000000V				JSR	PC,SND.SNI
000562	062706  000006 			14$:	ADD	#6,SP				;					1618
000566	005726 				15$:	TST	(SP)+				;					1499
000570	000207 					RTS	PC

; Routine Size:  189 words,	Routine Base:  $CODE$ + 3560
; Maximum stack depth per invocation:  7 words
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  60
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (10)

;	  1635	
;	  1636	
;	  1637	
;	  1638	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  61
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (11)

;	  1639	routine RCV_IRQ (DB, CCB) : MCB_DB_CCB novalue =
;	  1640	
;	  1641	!++
;	  1642	! FUNCTIONAL DESCRIPTION:
;	  1643	!
;	  1644	!
;	  1645	! FORMAL PARAMETERS:
;	  1646	!	None
;	  1647	!
;	  1648	! IMPLICIT INPUTS:
;	  1649	!	None
;	  1650	!
;	  1651	! IMPLICIT OUTPUTS:
;	  1652	!	None
;	  1653	!
;	  1654	! ROUTINE VALUE:
;	  1655	! COMPLETION CODES:
;	  1656	!	None
;	  1657	!
;	  1658	! SIDE EFFECTS:
;	  1659	!	None
;	  1660	!--
;	  1661	
;	  1662	    begin
;	  1663	
;	  1664	    map
;	  1665		CCB : ref block field (C_FIELDS),
;	  1666		DB : ref block field (D_FIELDS);
;	  1667	
;	  1668	    if .CCB [C_STS] neq S_SSUC
;	  1669	    then
;	  1670		SIGNAL (DTR$_NO_INTERRUPT_REQUEST, .CCB, .CCB [C_STS]);
;	  1671	
;	  1672	    $MCB_RETURN_CCB (.CCB);
;	  1673	    end;					!of routine RCV_IRQ


						.SBTTL	RCV.IRQ
000000	026427  000014  000001 		RCV.IRQ:CMP	14(R4),#1			; *(CCB),*				1668
000006	001413 					BEQ	1$
000010	016446  000014 				MOV	14(R4),-(SP)			; *(CCB),*				1670
000014	010446 					MOV	R4,-(SP)			; CCB,*
000016	012746  100153 				MOV	#-77625,-(SP)
000022	012746  000003 				MOV	#3,-(SP)
000026	004767  000000G				JSR	PC,$IGNAL
000032	062706  000010 				ADD	#10,SP
000036	004767  000000G			1$:	JSR	PC,$CCBRT			;					1672
000042	000207 					RTS	PC				;					1639

; Routine Size:  18 words,	Routine Base:  $CODE$ + 4352
; Maximum stack depth per invocation:  5 words
;	  1674	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  62
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (11)

;	  1675	
;	  1676	
;	  1677	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  63
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (12)

;	  1678	routine RCV_REJ (DB, CCB) : MCB_DB_CCB novalue =
;	  1679	
;	  1680	!++
;	  1681	! FUNCTIONAL DESCRIPTION:
;	  1682	!
;	  1683	!
;	  1684	! FORMAL PARAMETERS:
;	  1685	!	None
;	  1686	!
;	  1687	! IMPLICIT INPUTS:
;	  1688	!	None
;	  1689	!
;	  1690	! IMPLICIT OUTPUTS:
;	  1691	!	None
;	  1692	!
;	  1693	! ROUTINE VALUE:
;	  1694	! COMPLETION CODES:
;	  1695	!	None
;	  1696	!
;	  1697	! SIDE EFFECTS:
;	  1698	!	None
;	  1699	!--
;	  1700	
;	  1701	    begin
;	  1702	
;	  1703	    map
;	  1704		CCB : ref block field (C_FIELDS),
;	  1705		DB : ref block field (D_FIELDS);
;	  1706	
;	  1707	    bind
;	  1708		LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  1709		    : block field (L_FIELDS);
;	  1710	
;	  1711	    if .CCB [C_STS] neq S_SSUC
;	  1712	    then
;	  1713		SIGNAL (DTR$_NO_REJECT, .CCB, .CCB [C_STS]);
;	  1714	
;	  1715	    LINK [ls_dip] = false;
;	  1716	    LINK [LS_ACTIVE] = FALSE;
;	  1717	    CCBRT$ (.CCB);
;	  1718	    end;					!of routine RCV_REJ


						.SBTTL	RCV.REJ
000000	010401 				RCV.REJ:MOV	R4,R1				; *,CCB					1678
000002	005004 					CLR	R4				;					1708
000004	156104  000024 				BISB	24(R1),R4			; *(CCB),*
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	162704  000040 				SUB	#40,R4				;					1701
000024	026127  000014  000001 			CMP	14(R1),#1			; *(CCB),*				1711
000032	001413 					BEQ	1$
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  64
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (12)

000034	016146  000014 				MOV	14(R1),-(SP)			; *(CCB),*				1713
000040	010146 					MOV	R1,-(SP)			; CCB,*
000042	012746  100103 				MOV	#-77675,-(SP)
000046	012746  000003 				MOV	#3,-(SP)
000052	004767  000000G				JSR	PC,$IGNAL
000056	062706  000010 				ADD	#10,SP
000062	042714  004400 			1$:	BIC	#4400,(R4)			;					1716
000066	010104 					MOV	R1,R4				; CCB,*					1717
000070	004767  000000G				JSR	PC,$CCBRT
000074	000207 					RTS	PC				;					1678

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


;	  1719	
;	  1720	
;	  1721	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  65
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (13)

;	  1722	routine RCV_SND (DB, CCB) : MCB_DB_CCB novalue =
;	  1723	
;	  1724	!++
;	  1725	! FUNCTIONAL DESCRIPTION:
;	  1726	!
;	  1727	!
;	  1728	! FORMAL PARAMETERS:
;	  1729	!	None
;	  1730	!
;	  1731	! IMPLICIT INPUTS:
;	  1732	!	None
;	  1733	!
;	  1734	! IMPLICIT OUTPUTS:
;	  1735	!	None
;	  1736	!
;	  1737	! ROUTINE VALUE:
;	  1738	! COMPLETION CODES:
;	  1739	!	None
;	  1740	!
;	  1741	! SIDE EFFECTS:
;	  1742	!	None
;	  1743	!--
;	  1744	
;	  1745	    begin
;	  1746	
;	  1747	    map
;	  1748		CCB : ref block field (C_FIELDS),
;	  1749		DB : ref block field (D_FIELDS);
;	  1750	
;	  1751	    begin
;	  1752	
;	  1753	    bind
;	  1754		RCV_CCB = .CCB [C_STK] : block field (C_FIELDS);
;	  1755	
;	  1756	    if .CCB [C_STS] neq S_SSUC
;	  1757	    then
;	  1758		SIGNAL (DTR$_NO_SEND_DATA, .CCB, .CCB [C_STS]);
;	  1759	
;	  1760	    if .CCB [C_BIAS] eql .RCV_CCB [C_BIAS]
;	  1761	    then
;	  1762		CCB [C_BIAS] = CCB [C_ADDR] = CCB [C_CNT] = 0;
;	  1763	
;	  1764	    CCB [C_CHN] = 0;
;	  1765	    RCV_CCB [C_FNC] = FC_RCE;
;	  1766	    LLCRS$ (RCV_CCB);
;	  1767	    CCB [C_STK] = 0;
;	  1768	    end;
;	  1769	    SND_DRQ (.DB, .CCB, .CCB [C_PIX], .CCB [C_LIX], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)], 1);
;	  1770	    end;					!of routine RCV_SND


						.SBTTL	RCV.SND
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  66
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (13)

000000	010401 				RCV.SND:MOV	R4,R1				; *,CCB					1722
000002	016104  000004 				MOV	4(R1),R4			; *(CCB),*				1751
000006	026127  000014  000001 			CMP	14(R1),#1			; *(CCB),*				1756
000014	001413 					BEQ	1$
000016	016146  000014 				MOV	14(R1),-(SP)			; *(CCB),*				1758
000022	010146 					MOV	R1,-(SP)			; CCB,*
000024	012746  100113 				MOV	#-77665,-(SP)
000030	012746  000003 				MOV	#3,-(SP)
000034	004767  000000G				JSR	PC,$IGNAL
000040	062706  000010 				ADD	#10,SP
000044	026164  000016  000016 		1$:	CMP	16(R1),16(R4)			; *(CCB),*				1760
000052	001006 					BNE	2$
000054	005061  000022 				CLR	22(R1)				; *(CCB)				1762
000060	005061  000020 				CLR	20(R1)				; *(CCB)
000064	005061  000016 				CLR	16(R1)				; *(CCB)
000070	005061  000002 			2$:	CLR	2(R1)				; *(CCB)				1764
000074	112764  000004  000012 			MOVB	#4,12(R4)			;					1765
000102	004767  000000G				JSR	PC,$SCHED			;					1766
000106	005061  000004 				CLR	4(R1)				; *(CCB)				1767
000112	005046 					CLR	-(SP)				;					1769
000114	116116  000011 				MOVB	11(R1),(SP)			; *(CCB),*
000120	005046 					CLR	-(SP)
000122	116116  000010 				MOVB	10(R1),(SP)			; *(CCB),*
000126	005046 					CLR	-(SP)
000130	116116  000024 				MOVB	24(R1),(SP)			; *(CCB),*
000134	012746  000001 				MOV	#1,-(SP)
000140	010104 					MOV	R1,R4				; CCB,*
000142	004767  000000V				JSR	PC,SND.DRQ
000146	062706  000010 				ADD	#10,SP				;					1745
000152	000207 					RTS	PC				;					1722

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


;	  1771	
;	  1772	
;	  1773	
;	  1774	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  67
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (14)

;	  1775	routine RCV_SNI (DB, CCB) : MCB_DB_CCB novalue =
;	  1776	
;	  1777	!++
;	  1778	! FUNCTIONAL DESCRIPTION:
;	  1779	!
;	  1780	!
;	  1781	! FORMAL PARAMETERS:
;	  1782	!	None
;	  1783	!
;	  1784	! IMPLICIT INPUTS:
;	  1785	!	None
;	  1786	!
;	  1787	! IMPLICIT OUTPUTS:
;	  1788	!	None
;	  1789	!
;	  1790	! ROUTINE VALUE:
;	  1791	! COMPLETION CODES:
;	  1792	!	None
;	  1793	!
;	  1794	! SIDE EFFECTS:
;	  1795	!	None
;	  1796	!--
;	  1797	
;	  1798	    begin
;	  1799	
;	  1800	    map
;	  1801		CCB : ref block field (C_FIELDS),
;	  1802		DB : ref block field (D_FIELDS);
;	  1803	
;	  1804	    begin
;	  1805	
;	  1806	    bind
;	  1807		RCV_CCB = .CCB [C_STK] : block field (C_FIELDS);
;	  1808	
;	  1809	    if .CCB [C_STS] neq S_SSUC
;	  1810	    then
;	  1811		SIGNAL (DTR$_NO_SEND_INTERRUPT, .CCB, .CCB [C_STS]);
;	  1812	
;	  1813	    if .CCB [C_BIAS] eql .RCV_CCB [C_BIAS]
;	  1814	    then
;	  1815		CCB [C_BIAS] = CCB [C_ADDR] = CCB [C_CNT] = 0;
;	  1816	
;	  1817	    CCB [C_CHN] = 0;
;	  1818	    RCV_CCB [C_FNC] = FC_RCE;
;	  1819	    LLCRS$ (RCV_CCB);
;	  1820	    CCB [C_STK] = 0;
;	  1821	    end;
;	  1822	    SND_IRQ (.DB, .CCB, .CCB [C_PIX], .CCB [C_LIX], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)]);
;	  1823	    end;					!of routine RCV_SNI


						.SBTTL	RCV.SNI
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  68
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (14)

000000	010401 				RCV.SNI:MOV	R4,R1				; *,CCB					1775
000002	016104  000004 				MOV	4(R1),R4			; *(CCB),*				1804
000006	026127  000014  000001 			CMP	14(R1),#1			; *(CCB),*				1809
000014	001413 					BEQ	1$
000016	016146  000014 				MOV	14(R1),-(SP)			; *(CCB),*				1811
000022	010146 					MOV	R1,-(SP)			; CCB,*
000024	012746  100163 				MOV	#-77615,-(SP)
000030	012746  000003 				MOV	#3,-(SP)
000034	004767  000000G				JSR	PC,$IGNAL
000040	062706  000010 				ADD	#10,SP
000044	026164  000016  000016 		1$:	CMP	16(R1),16(R4)			; *(CCB),*				1813
000052	001006 					BNE	2$
000054	005061  000022 				CLR	22(R1)				; *(CCB)				1815
000060	005061  000020 				CLR	20(R1)				; *(CCB)
000064	005061  000016 				CLR	16(R1)				; *(CCB)
000070	005061  000002 			2$:	CLR	2(R1)				; *(CCB)				1817
000074	112764  000004  000012 			MOVB	#4,12(R4)			;					1818
000102	004767  000000G				JSR	PC,$SCHED			;					1819
000106	005061  000004 				CLR	4(R1)				; *(CCB)				1820
000112	005046 					CLR	-(SP)				;					1822
000114	116116  000011 				MOVB	11(R1),(SP)			; *(CCB),*
000120	005046 					CLR	-(SP)
000122	116116  000010 				MOVB	10(R1),(SP)			; *(CCB),*
000126	005046 					CLR	-(SP)
000130	116116  000024 				MOVB	24(R1),(SP)			; *(CCB),*
000134	010104 					MOV	R1,R4				; CCB,*
000136	004767  000000V				JSR	PC,SND.IRQ
000142	062706  000006 				ADD	#6,SP				;					1798
000146	000207 					RTS	PC				;					1775

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


;	  1824	
;	  1825	
;	  1826	
;	  1827	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  69
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (15)

;	  1828	routine SND_ABO (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
;	  1829	
;	  1830	!++
;	  1831	! FUNCTIONAL DESCRIPTION:
;	  1832	!
;	  1833	!
;	  1834	! FORMAL PARAMETERS:
;	  1835	!	None
;	  1836	!
;	  1837	! IMPLICIT INPUTS:
;	  1838	!	None
;	  1839	!
;	  1840	! IMPLICIT OUTPUTS:
;	  1841	!	None
;	  1842	!
;	  1843	! ROUTINE VALUE:
;	  1844	! COMPLETION CODES:
;	  1845	!	None
;	  1846	!
;	  1847	! SIDE EFFECTS:
;	  1848	!	None
;	  1849	!--
;	  1850	
;	  1851	    begin
;	  1852	
;	  1853	    map
;	  1854		CCB : ref block field (C_FIELDS),
;	  1855		DB : ref block field (D_FIELDS);
;	  1856	
;	  1857	    bind
;	  1858		LINK = blockvector [.DB [D_ADDR], .ULA - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  1859		    : block field (L_FIELDS);
;	  1860	
;	  1861	    LINK [ls_dip] = true;
;	  1862	    CCB [C_PIX] = .PIX;
;	  1863	    CCB [C_LIX] = .LLA;
;	  1864	    CCB [C_FNC] = FC_XME;
;	  1865	    CCB [C_MOD] = S$ABO;
;	  1866	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  1867	    LLCRS$ (.CCB);
;	  1868	    end;					!of routine SND_ABO


						.SBTTL	SND.ABO
000000	010446 				SND.ABO:MOV	R4,-(SP)			;					1828
000002	010400 					MOV	R4,R0				; *,CCB
000004	016604  000004 				MOV	4(SP),R4			; ULA,*					1858
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	052764  000400  177740 			BIS	#400,-40(R4)			;					1861
000026	116660  000010  000011 			MOVB	10(SP),11(R0)			; PIX,*(CCB)				1862
000034	116660  000006  000010 			MOVB	6(SP),10(R0)			; LLA,*(CCB)				1863
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  70
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (15)

000042	112760  000002  000012 			MOVB	#2,12(R0)			; *,*(CCB)				1864
000050	112760  000022  000013 			MOVB	#22,13(R0)			; *,*(CCB)				1865
000056	116660  000004  000024 			MOVB	4(SP),24(R0)			; ULA,*(CCB)				1866
000064	010004 					MOV	R0,R4				; CCB,*					1867
000066	004767  000000G				JSR	PC,$SCHED
000072	012604 					MOV	(SP)+,R4			;					1828
000074	000207 					RTS	PC

; Routine Size:  31 words,	Routine Base:  $CODE$ + 5040
; Maximum stack depth per invocation:  2 words


;	  1869	
;	  1870	
;	  1871	
;	  1872	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  71
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (16)

;	  1873	routine SND_ACC (DB, CCB, PIX, LLA, ULA, FLOW) : LINKAGE_DB_CCB novalue =
;	  1874	
;	  1875	!++
;	  1876	! FUNCTIONAL DESCRIPTION:
;	  1877	!
;	  1878	!
;	  1879	! FORMAL PARAMETERS:
;	  1880	!	None
;	  1881	!
;	  1882	! IMPLICIT INPUTS:
;	  1883	!	None
;	  1884	!
;	  1885	! IMPLICIT OUTPUTS:
;	  1886	!	None
;	  1887	!
;	  1888	! ROUTINE VALUE:
;	  1889	! COMPLETION CODES:
;	  1890	!	None
;	  1891	!
;	  1892	! SIDE EFFECTS:
;	  1893	!	None
;	  1894	!--
;	  1895	
;	  1896	    begin
;	  1897	
;	  1898	    map
;	  1899		CCB : ref block field (C_FIELDS),
;	  1900		DB : ref block field (D_FIELDS);
;	  1901	
;	  1902	    CCB [C_PIX] = .PIX;
;	  1903	    CCB [C_FNC] = FC_XME;
;	  1904	    CCB [C_MOD] = S$ACC;
;	  1905	    CCB [C_LIN] = .LLA;
;	  1906	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  1907	    CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = .FLOW;
;	  1908	    LLCRS$ (.CCB);
;	  1909	    end;					!of routine SND_ACC


						.SBTTL	SND.ACC
000000	010446 				SND.ACC:MOV	R4,-(SP)			;					1873
000002	116664  000012  000011 			MOVB	12(SP),11(R4)			; PIX,*(CCB)				1902
000010	112764  000002  000012 			MOVB	#2,12(R4)			; *,*(CCB)				1903
000016	112764  000002  000013 			MOVB	#2,13(R4)			; *,*(CCB)				1904
000024	116664  000010  000010 			MOVB	10(SP),10(R4)			; LLA,*(CCB)				1905
000032	116664  000006  000024 			MOVB	6(SP),24(R4)			; ULA,*(CCB)				1906
000040	116664  000004  000025 			MOVB	4(SP),25(R4)			; FLOW,*(CCB)				1907
000046	004767  000000G				JSR	PC,$SCHED			;					1908
000052	012604 					MOV	(SP)+,R4			;					1873
000054	000207 					RTS	PC

; Routine Size:  23 words,	Routine Base:  $CODE$ + 5136
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  72
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (16)

; Maximum stack depth per invocation:  2 words


;	  1910	
;	  1911	
;	  1912	
;	  1913	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  73
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (17)

;	  1914	routine SND_DIS (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
;	  1915	
;	  1916	!++
;	  1917	! FUNCTIONAL DESCRIPTION:
;	  1918	!
;	  1919	!
;	  1920	! FORMAL PARAMETERS:
;	  1921	!	None
;	  1922	!
;	  1923	! IMPLICIT INPUTS:
;	  1924	!	None
;	  1925	!
;	  1926	! IMPLICIT OUTPUTS:
;	  1927	!	None
;	  1928	!
;	  1929	! ROUTINE VALUE:
;	  1930	! COMPLETION CODES:
;	  1931	!	None
;	  1932	!
;	  1933	! SIDE EFFECTS:
;	  1934	!	None
;	  1935	!--
;	  1936	
;	  1937	    begin
;	  1938	
;	  1939	    map
;	  1940		CCB : ref block field (C_FIELDS),
;	  1941		DB : ref block field (D_FIELDS);
;	  1942	
;	  1943	    bind
;	  1944		LINK = blockvector [.DB [D_ADDR], .ULA - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  1945		    : block field (L_FIELDS);
;	  1946	
;	  1947	    LINK [ls_dip] = true;
;	  1948	    CCB [C_PIX] = .PIX;
;	  1949	    CCB [C_LIX] = .LLA;
;	  1950	    CCB [C_FNC] = FC_XME;
;	  1951	    CCB [C_MOD] = S$DIS;
;	  1952	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  1953	    LLCRS$ (.CCB);
;	  1954	    end;					!of routine SND_DIS


						.SBTTL	SND.DIS
000000	010446 				SND.DIS:MOV	R4,-(SP)			;					1914
000002	010400 					MOV	R4,R0				; *,CCB
000004	016604  000004 				MOV	4(SP),R4			; ULA,*					1944
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	052764  000400  177740 			BIS	#400,-40(R4)			;					1947
000026	116660  000010  000011 			MOVB	10(SP),11(R0)			; PIX,*(CCB)				1948
000034	116660  000006  000010 			MOVB	6(SP),10(R0)			; LLA,*(CCB)				1949
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  74
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (17)

000042	112760  000002  000012 			MOVB	#2,12(R0)			; *,*(CCB)				1950
000050	112760  000020  000013 			MOVB	#20,13(R0)			; *,*(CCB)				1951
000056	116660  000004  000024 			MOVB	4(SP),24(R0)			; ULA,*(CCB)				1952
000064	010004 					MOV	R0,R4				; CCB,*					1953
000066	004767  000000G				JSR	PC,$SCHED
000072	012604 					MOV	(SP)+,R4			;					1914
000074	000207 					RTS	PC

; Routine Size:  31 words,	Routine Base:  $CODE$ + 5214
; Maximum stack depth per invocation:  2 words


;	  1955	
;	  1956	
;	  1957	
;	  1958	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  75
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (18)

;	  1959	routine SND_DRQ (DB, CCB, PIX, LLA, ULA, SEG) : LINKAGE_DB_CCB novalue =
;	  1960	
;	  1961	!++
;	  1962	! FUNCTIONAL DESCRIPTION:
;	  1963	!
;	  1964	!
;	  1965	! FORMAL PARAMETERS:
;	  1966	!	None
;	  1967	!
;	  1968	! IMPLICIT INPUTS:
;	  1969	!	None
;	  1970	!
;	  1971	! IMPLICIT OUTPUTS:
;	  1972	!	None
;	  1973	!
;	  1974	! ROUTINE VALUE:
;	  1975	! COMPLETION CODES:
;	  1976	!	None
;	  1977	!
;	  1978	! SIDE EFFECTS:
;	  1979	!	None
;	  1980	!--
;	  1981	
;	  1982	    begin
;	  1983	
;	  1984	    map
;	  1985		CCB : ref block field (C_FIELDS),
;	  1986		DB : ref block field (D_FIELDS);
;	  1987	
;	  1988	    CCB [C_PIX] = .PIX;
;	  1989	    CCB [C_LIX] = .LLA;
;	  1990	    CCB [C_FNC] = FC_XME;
;	  1991	    CCB [C_MOD] = S$DRQ;
;	  1992	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  1993	    CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = .SEG;
;	  1994	    LLCRS$ (.CCB);
;	  1995	    end;					!of routine SND_DRQ


						.SBTTL	SND.DRQ
000000	010446 				SND.DRQ:MOV	R4,-(SP)			;					1959
000002	116664  000012  000011 			MOVB	12(SP),11(R4)			; PIX,*(CCB)				1988
000010	116664  000010  000010 			MOVB	10(SP),10(R4)			; LLA,*(CCB)				1989
000016	112764  000002  000012 			MOVB	#2,12(R4)			; *,*(CCB)				1990
000024	112764  000012  000013 			MOVB	#12,13(R4)			; *,*(CCB)				1991
000032	116664  000006  000024 			MOVB	6(SP),24(R4)			; ULA,*(CCB)				1992
000040	116664  000004  000025 			MOVB	4(SP),25(R4)			; SEG,*(CCB)				1993
000046	004767  000000G				JSR	PC,$SCHED			;					1994
000052	012604 					MOV	(SP)+,R4			;					1959
000054	000207 					RTS	PC

; Routine Size:  23 words,	Routine Base:  $CODE$ + 5312
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  76
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (18)

; Maximum stack depth per invocation:  2 words


;	  1996	
;	  1997	
;	  1998	
;	  1999	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  77
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (19)

;	  2000	routine SND_IRQ (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
;	  2001	
;	  2002	!++
;	  2003	! FUNCTIONAL DESCRIPTION:
;	  2004	!
;	  2005	!
;	  2006	! FORMAL PARAMETERS:
;	  2007	!	None
;	  2008	!
;	  2009	! IMPLICIT INPUTS:
;	  2010	!	None
;	  2011	!
;	  2012	! IMPLICIT OUTPUTS:
;	  2013	!	None
;	  2014	!
;	  2015	! ROUTINE VALUE:
;	  2016	! COMPLETION CODES:
;	  2017	!	None
;	  2018	!
;	  2019	! SIDE EFFECTS:
;	  2020	!	None
;	  2021	!--
;	  2022	
;	  2023	    begin
;	  2024	
;	  2025	    map
;	  2026		CCB : ref block field (C_FIELDS),
;	  2027		DB : ref block field (D_FIELDS);
;	  2028	
;	  2029	    CCB [C_PIX] = .PIX;
;	  2030	    CCB [C_LIX] = .LLA;
;	  2031	    CCB [C_FNC] = FC_XME;
;	  2032	    CCB [C_MOD] = S$IRQ;
;	  2033	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  2034	    CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = 1;
;	  2035	    LLCRS$ (.CCB);
;	  2036	    end;					!of routine SND_IRQ


						.SBTTL	SND.IRQ
000000	010446 				SND.IRQ:MOV	R4,-(SP)			;					2000
000002	116664  000010  000011 			MOVB	10(SP),11(R4)			; PIX,*(CCB)				2029
000010	116664  000006  000010 			MOVB	6(SP),10(R4)			; LLA,*(CCB)				2030
000016	112764  000002  000012 			MOVB	#2,12(R4)			; *,*(CCB)				2031
000024	112764  000016  000013 			MOVB	#16,13(R4)			; *,*(CCB)				2032
000032	116664  000004  000024 			MOVB	4(SP),24(R4)			; ULA,*(CCB)				2033
000040	112764  000001  000025 			MOVB	#1,25(R4)			; *,*(CCB)				2034
000046	004767  000000G				JSR	PC,$SCHED			;					2035
000052	012604 					MOV	(SP)+,R4			;					2000
000054	000207 					RTS	PC

; Routine Size:  23 words,	Routine Base:  $CODE$ + 5370
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  78
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (19)

; Maximum stack depth per invocation:  2 words


;	  2037	
;	  2038	
;	  2039	
;	  2040	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  79
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (20)

;	  2041	routine SND_REJ (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
;	  2042	
;	  2043	!++
;	  2044	! FUNCTIONAL DESCRIPTION:
;	  2045	!
;	  2046	!
;	  2047	! FORMAL PARAMETERS:
;	  2048	!	None
;	  2049	!
;	  2050	! IMPLICIT INPUTS:
;	  2051	!	None
;	  2052	!
;	  2053	! IMPLICIT OUTPUTS:
;	  2054	!	None
;	  2055	!
;	  2056	! ROUTINE VALUE:
;	  2057	! COMPLETION CODES:
;	  2058	!	None
;	  2059	!
;	  2060	! SIDE EFFECTS:
;	  2061	!	None
;	  2062	!--
;	  2063	
;	  2064	    begin
;	  2065	
;	  2066	    map
;	  2067		CCB : ref block field (C_FIELDS),
;	  2068		DB : ref block field (D_FIELDS);
;	  2069	
;	  2070	    bind
;	  2071		LINK = blockvector [.DB [D_ADDR], .ULA - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  2072		    : block field (L_FIELDS);
;	  2073	
;	  2074	    LINK [ls_dip] = true;
;	  2075	    CCB [C_PIX] = .PIX;
;	  2076	    CCB [C_FNC] = FC_XME;
;	  2077	    CCB [C_MOD] = S$REJ;
;	  2078	    CCB [C_LIN] = .LLA;
;	  2079	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  2080	    CCB [C_PRM2] = S_ERBO;
;	  2081	    LLCRS$ (.CCB);
;	  2082	    end;					!of routine SND_REJ


						.SBTTL	SND.REJ
000000	010446 				SND.REJ:MOV	R4,-(SP)			;					2041
000002	010400 					MOV	R4,R0				; *,CCB
000004	016604  000004 				MOV	4(SP),R4			; ULA,*					2071
000010	072427  000005 				ASH	#5,R4
000014	066504  000004 				ADD	4(R5),R4			; *(DB),*
000020	052764  000400  177740 			BIS	#400,-40(R4)			;					2074
000026	116660  000010  000011 			MOVB	10(SP),11(R0)			; PIX,*(CCB)				2075
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  80
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (20)

000034	112760  000002  000012 			MOVB	#2,12(R0)			; *,*(CCB)				2076
000042	112760  000004  000013 			MOVB	#4,13(R0)			; *,*(CCB)				2077
000050	116660  000006  000010 			MOVB	6(SP),10(R0)			; LLA,*(CCB)				2078
000056	116660  000004  000024 			MOVB	4(SP),24(R0)			; ULA,*(CCB)				2079
000064	012760  177754  000026 			MOV	#-24,26(R0)			; *,*(CCB)				2080
000072	010004 					MOV	R0,R4				; CCB,*					2081
000074	004767  000000G				JSR	PC,$SCHED
000100	012604 					MOV	(SP)+,R4			;					2041
000102	000207 					RTS	PC

; Routine Size:  34 words,	Routine Base:  $CODE$ + 5446
; Maximum stack depth per invocation:  2 words


;	  2083	
;	  2084	
;	  2085	
;	  2086	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  81
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (21)

;	  2087	routine SND_SND (DB, CCB, PIX, LLA, ULA, EOM) : LINKAGE_DB_CCB novalue =
;	  2088	
;	  2089	!++
;	  2090	! FUNCTIONAL DESCRIPTION:
;	  2091	!
;	  2092	!
;	  2093	! FORMAL PARAMETERS:
;	  2094	!	None
;	  2095	!
;	  2096	! IMPLICIT INPUTS:
;	  2097	!	None
;	  2098	!
;	  2099	! IMPLICIT OUTPUTS:
;	  2100	!	None
;	  2101	!
;	  2102	! ROUTINE VALUE:
;	  2103	! COMPLETION CODES:
;	  2104	!	None
;	  2105	!
;	  2106	! SIDE EFFECTS:
;	  2107	!	None
;	  2108	!--
;	  2109	
;	  2110	    begin
;	  2111	
;	  2112	    map
;	  2113		CCB : ref block field (C_FIELDS),
;	  2114		DB : ref block field (D_FIELDS);
;	  2115	
;	  2116	    CCB [C_PIX] = .PIX;
;	  2117	    CCB [C_LIX] = .LLA;
;	  2118	    CCB [C_FNC] = FC_XME;
;	  2119	    CCB [C_MOD] = S$SND;
;	  2120	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  2121	    CCB [$SUB_FIELD (C_PRM1, 0, 8, 8, 0)] = .EOM;
;	  2122	    LLCRS$ (.CCB);
;	  2123	    end;					!of routine SND_SND


						.SBTTL	SND.SND
000000	010446 				SND.SND:MOV	R4,-(SP)			;					2087
000002	116664  000012  000011 			MOVB	12(SP),11(R4)			; PIX,*(CCB)				2116
000010	116664  000010  000010 			MOVB	10(SP),10(R4)			; LLA,*(CCB)				2117
000016	112764  000002  000012 			MOVB	#2,12(R4)			; *,*(CCB)				2118
000024	112764  000006  000013 			MOVB	#6,13(R4)			; *,*(CCB)				2119
000032	116664  000006  000024 			MOVB	6(SP),24(R4)			; ULA,*(CCB)				2120
000040	116664  000004  000025 			MOVB	4(SP),25(R4)			; EOM,*(CCB)				2121
000046	004767  000000G				JSR	PC,$SCHED			;					2122
000052	012604 					MOV	(SP)+,R4			;					2087
000054	000207 					RTS	PC

; Routine Size:  23 words,	Routine Base:  $CODE$ + 5552
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  82
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (21)

; Maximum stack depth per invocation:  2 words


;	  2124	
;	  2125	
;	  2126	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  83
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (22)

;	  2127	routine SND_SNI (DB, CCB, PIX, LLA, ULA) : LINKAGE_DB_CCB novalue =
;	  2128	
;	  2129	!++
;	  2130	! FUNCTIONAL DESCRIPTION:
;	  2131	!
;	  2132	!
;	  2133	! FORMAL PARAMETERS:
;	  2134	!	None
;	  2135	!
;	  2136	! IMPLICIT INPUTS:
;	  2137	!	None
;	  2138	!
;	  2139	! IMPLICIT OUTPUTS:
;	  2140	!	None
;	  2141	!
;	  2142	! ROUTINE VALUE:
;	  2143	! COMPLETION CODES:
;	  2144	!	None
;	  2145	!
;	  2146	! SIDE EFFECTS:
;	  2147	!	None
;	  2148	!--
;	  2149	
;	  2150	    begin
;	  2151	
;	  2152	    map
;	  2153		CCB : ref block field (C_FIELDS),
;	  2154		DB : ref block field (D_FIELDS);
;	  2155	
;	  2156	    CCB [C_PIX] = .PIX;
;	  2157	    CCB [C_LIX] = .LLA;
;	  2158	    CCB [C_FNC] = FC_XME;
;	  2159	    CCB [C_MOD] = S$SNI;
;	  2160	    CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] = .ULA;
;	  2161	    LLCRS$ (.CCB);
;	  2162	    end;					!of routine SND_SNI


						.SBTTL	SND.SNI
000000	010446 				SND.SNI:MOV	R4,-(SP)			;					2127
000002	116664  000010  000011 			MOVB	10(SP),11(R4)			; PIX,*(CCB)				2156
000010	116664  000006  000010 			MOVB	6(SP),10(R4)			; LLA,*(CCB)				2157
000016	112764  000002  000012 			MOVB	#2,12(R4)			; *,*(CCB)				2158
000024	112764  000014  000013 			MOVB	#14,13(R4)			; *,*(CCB)				2159
000032	116664  000004  000024 			MOVB	4(SP),24(R4)			; ULA,*(CCB)				2160
000040	004767  000000G				JSR	PC,$SCHED			;					2161
000044	012604 					MOV	(SP)+,R4			;					2127
000046	000207 					RTS	PC

; Routine Size:  20 words,	Routine Base:  $CODE$ + 5630
; Maximum stack depth per invocation:  2 words
;	  2163	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  84
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (22)

;	  2164	
;	  2165	
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  85
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (23)

;	  2166	routine PATTERN_CHECK (DB, CCB) : LINKAGE_DB_CCB =
;	  2167	
;	  2168	!++
;	  2169	! FUNCTIONAL DESCRIPTION:
;	  2170	!
;	  2171	!
;	  2172	! FORMAL PARAMETERS:
;	  2173	!	None
;	  2174	!
;	  2175	! IMPLICIT INPUTS:
;	  2176	!	None
;	  2177	!
;	  2178	! IMPLICIT OUTPUTS:
;	  2179	!	None
;	  2180	!
;	  2181	! ROUTINE VALUE:
;	  2182	! COMPLETION CODES:
;	  2183	!	None
;	  2184	!
;	  2185	! SIDE EFFECTS:
;	  2186	!	None
;	  2187	!--
;	  2188	
;	  2189	    begin
;	  2190	
;	  2191	    map
;	  2192		CCB : ref block field (C_FIELDS),
;	  2193		DB : ref block field (D_FIELDS);
;	  2194		
;	  2195	    bind
;	  2196		LINK = blockvector [.DB [D_ADDR], .CCB [$SUB_FIELD (C_PRM1, 0, 0, 8, 0)] - 1, 0, 0, 0, 0; 0, L_LENGTH]
;	  2197		    : block field (L_FIELDS);
;	  2198	
;	  2199	    local
;	  2200		chr,
;	  2201		chr_ptr,
;	  2202		buff_ptr,
;	  2203		count;
;	  2204	
;	  2205	
;	  2206		count = .CCB[C_CNT];
;	  2207		buff_ptr = .CCB[C_ADDR];
;	  2208		chr_ptr = ch$ptr( chr);
;	  2209	
;	  2210		if ((( .CCB[$sub_field( C_PRM1, byte_1)] and S$PBOM) neq 0) and
;	  2211		.LINK[L_TEST] eql 1) or
;	  2212		(.LINK[L_TEST] eql 3)
;	  2213		then
;	  2214		    begin
;	  2215		    buff_ptr = ch$plus( .CCB[C_ADDR], 4);
;	  2216		    count = .count -4;
;	  2217		    chr = %c'A';
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  86
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (23)

;	  2218		    end
;	  2219		else
;	  2220		    chr = .LINK[L_PATTERN_CHARACTER];
;	  2221	
;	  2222		While .count neq 0 do
;	  2223		    begin
;	  2224		    if ch$eql( 1, .chr_ptr, 1, .buff_ptr, 0) 
;	  2225		    then
;	  2226			begin
;	  2227			count = .count - 1;
;	  2228			buff_ptr = ch$plus( .buff_ptr, 1);
;	  2229			if .chr eql %c'Z'
;	  2230			then
;	  2231			    chr = %c'0'
;	  2232			else
;	  2233			    begin
;	  2234			    if .chr eql %c'9'
;	  2235			    then
;	  2236				chr = %c'A'
;	  2237			    else
;	  2238				chr = .chr + 1;
;	  2239			    end
;	  2240			end
;	  2241		    else
;	  2242			return false;
;	  2243		    end;
;	  2244		LINK[L_PATTERN_CHARACTER] = .chr;
;	  2245		return true;
;	  2246		end;


						.SBTTL	PATTERN.CHECK
000000	004167  000000G			PATTERN.CHECK:
						JSR	R1,$SAVE5			;					2166
000004	005746 					TST	-(SP)
000006	010400 					MOV	R4,R0				; *,CCB
000010	005004 					CLR	R4				;					2196
000012	156004  000024 				BISB	24(R0),R4			; *(CCB),*
000016	072427  000005 				ASH	#5,R4
000022	066504  000004 				ADD	4(R5),R4			; *(DB),*
000026	162704  000040 				SUB	#40,R4				;					2189
000032	016005  000022 				MOV	22(R0),R5			; *(CCB),COUNT				2206
000036	016001  000020 				MOV	20(R0),R1			; *(CCB),BUFF.PTR			2207
000042	010602 					MOV	SP,R2				; CHR,CHR.PTR				2208
000044	032760  000400  000024 			BIT	#400,24(R0)			; *,*(CCB)				2210
000052	001404 					BEQ	1$
000054	126427  000003  000001 			CMPB	3(R4),#1			;					2211
000062	001404 					BEQ	2$
000064	126427  000003  000003 		1$:	CMPB	3(R4),#3			;					2212
000072	001007 					BNE	3$
000074	016001  000020 			2$:	MOV	20(R0),R1			; *(CCB),BUFF.PTR			2215
000100	062701  000004 				ADD	#4,R1				; *,BUFF.PTR
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  87
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (23)

000104	162705  000004 				SUB	#4,R5				; *,COUNT				2216
000110	000434 					BR	6$				;					2217
000112	016416  000034 			3$:	MOV	34(R4),(SP)			; *,CHR					2220
000116	005705 				4$:	TST	R5				; COUNT					2222
000120	001435 					BEQ	8$
000122	012746  000001 				MOV	#1,-(SP)			;					2224
000126	010246 					MOV	R2,-(SP)			; CHR.PTR,*
000130	012746  000001 				MOV	#1,-(SP)
000134	010146 					MOV	R1,-(SP)			; BUFF.PTR,*
000136	005046 					CLR	-(SP)
000140	004767  000000G				JSR	PC,BL$EQL
000144	062706  000012 				ADD	#12,SP
000150	006000 					ROR	R0
000152	103025 					BCC	9$
000154	005305 					DEC	R5				; COUNT					2227
000156	005201 					INC	R1				; BUFF.PTR				2228
000160	021627  000132 				CMP	(SP),#132			; CHR,*					2229
000164	001003 					BNE	5$
000166	012716  000060 				MOV	#60,(SP)			; *,CHR					2231
000172	000751 					BR	4$				;					2229
000174	021627  000071 			5$:	CMP	(SP),#71			; CHR,*					2234
000200	001003 					BNE	7$
000202	012716  000101 			6$:	MOV	#101,(SP)			; *,CHR					2236
000206	000743 					BR	4$				;					2234
000210	005216 				7$:	INC	(SP)				; CHR					2238
000212	000741 					BR	4$				;					2224
000214	011664  000034 			8$:	MOV	(SP),34(R4)			; CHR,*					2244
000220	012700  000001 				MOV	#1,R0				;					2189
000224	000401 					BR	10$
000226	005000 				9$:	CLR	R0				;					2166
000230	005726 				10$:	TST	(SP)+
000232	000207 					RTS	PC

; Routine Size:  78 words,	Routine Base:  $CODE$ + 5700
; Maximum stack depth per invocation:  13 words


;	  2247	
;	  2248	end
;	  2249	
;	  2250	eludom



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


;					PSECT SUMMARY
;
;	Psect Name			Words	  Attributes
DTR								25-Jan-1983 10:48:44	TOPS-20 Bliss-16 2A(530)	    Page  88
X01110								30-Dec-1982 01:50:57	NETPKG:<CEX>DTR.B16.8 (23)

;	 $PLIT$				   64	    RO ,  D  ,  LCL,  REL,  CON
;	 $CODE$				 1582	    RO ,  I  ,  LCL,  REL,  CON
;	 ......				   16	    RW ,  D  ,  LCL,  REL,  CON




;				LIBRARY STATISTICS
;
;					     -------- Symbols --------    Blocks
;	File				     Total    Loaded   Percent      Read
;
;  NETPKG:<MCB>MCBLIB.L16.15		       372        57        15         0
;  NETPKG:<MCB>XPORTX.L16.15		       599        40         6         0





; Size:		1582 code + 80 data words
; Run Time:	00:47.2
; Elapsed Time:	02:39.3
; Memory Used:	124 pages
; Compilation Complete
A				 183+	 184+
ACC_CCB				4202	4204	4218#	4219#	4220#	4224	4226	4348	4353	4366#	4367	4410
				4412	4426#	4427	4473	4475	4488#	4489
ACHCK$				2642+#
ACHKB$				2649+#
ADDR				3484+	3486+
ADDRESS				 888+	 890+	 891+	 924+	 925+	1391+	1393+	1462+	1472+#	1731+	1732+	1907+
				1924+#	1935+	1946+	1956+	1973+#	1997+	2015+#	2026+	2038+	2048+	2066+#	2333+
				2342+	2392+	2393+	2431+	2440+	2447+	2456+	2614+	2623+	2642+	2643+	2649+
				2661+	2679+	2680+	2956+	2971+#	2976+	2985+	2993+	3011+#	3024+	3036+	3046+
				3065+#	3289+	3298+	3340+	3352+	4343#	4468#
ADR				 453+	 457+	 462+	 464+	 473+	 475+*	 476+	 483+	 487+	 492+	 494+
ALL				3393+
ALLOCATED_LENGTH		2993+	3012+	3013+#	3024+	3036+	3046+	3066+	3067+#
ALOCB$				2673+#
ARG				 423+	 425+	 498+	 500+
ARGS				 858+	 860+
AST				2916+	2926+
AST_BLOCK			3328+	3337+
B				 183+	 184+
BEGIN_ADR			 521+	 533+	 541+	 551+	 563+	 575+	 583+	 593+
BIAS				 602+	 608+	 924+	 925+	1391+	1393+	2956+	2970+#	2976+	2985+	3484+	3485+
BITS_BYTE			3472+	3474+
BLISS16				   3	 123+	 370+	 397+	 414+	 509+	 630+	 686+	 824+	 849+	 907+	2629+
BUF				1987+	1988+	2098+	2099+	2542+	2543+	3508+	3513+	3517+	3524+	3528+	3534+
				3552+	3558+	3572+	3579+	3583+	3589+	3615+	3621+	3625+	3630+	3634+	3640+
BUFFER				1483+	1484+	1499+	1506+	1507+	1518+	1530+	1531+	1546+	1553+	1554+	1565+
BUFF_PTR			5503	5508#	5516#	5525	5529#
BYTE_0				3892#
BYTE_1				3893#	4563	4591	4659	5511
CALL$B				 423+#
CALL$E				 425+	 453+#
CALL$I				 431+#	1353+	1442+	1449+	1456+	1988+	2087+	2099+	2112+	2535+	2543+	2556+
				2569+	2576+
CALL$L				 473+#
CALL$P				 483+#
CALL$				 406+#
CBSD_FIELDS			3701+#
CB_ACNT				3665+#
CB_ACTL				3664+#
CB_DES				3705+#	3707+	3712+
CB_DFMT				3650+#
CB_DGRP				3677+#
CB_DOBJ				3651+#
CB_DPL1				3672+#
CB_DPL2				3679+#
CB_DPR1				3673+#
CB_DPR2				3680+#
CB_DST				3652+#	3671+	3676+
CB_DUSR				3678+#
CB_ENDD				3669+#
CB_FIELDS			3646+#
CB_FMT				3703+#
CB_GRP				3713+#
CB_LEN				3708+#
CB_LN2				3715+#
CB_NAM				3709+#
CB_NM2				3716+#
CB_NODE				3648+#
CB_OBJ				3704+#
CB_OPDL				3667+#	4184	4392
CB_OPTD				3668+#	4157	4185	4393
CB_PASL				3661+#
CB_PASW				3662+#
CB_RQDL				3658+#
CB_RQID				3659+#
CB_SFMT				3654+#
CB_SGRP				3689+#
CB_SIZE				3697+#
CB_SOBJ				3655+#
CB_SPL1				3684+#
CB_SPL2				3691+#
CB_SPR1				3685+#
CB_SPR2				3692+#
CB_SRC				3656+#	3683+	3688+
CB_SUSR				3690+#
CB_USR				3714+#
CCB				 954+	 963+	 970+	 979+	1025+	1034+	1041+	1050+	1080+	1089+	1135+	1144+
				1151+	1160+	1167+	1176+	1183+	1192+	1201+	1210+	1217+	1226+	1233+	1242+
				1249+	1258+	1261+	1265+	1270+	1282+	1287+	1297+	1574+	1583+	1593+	1610+#
				1621+	1632+	1642+	1659+#	1741+	1758+#	1769+	1780+	1790+	1807+#	1824+	1841+#
				1852+	1863+	1873+	1890+#	2142+	2159+#	2170+	2181+	2191+	2208+#	2350+	2359+
				2399+	2408+	2415+	2424+	2463+	2472+	2518+	2527+	2582+	2591+	3492+	3494+
				3498+	3500+	3508+	3510+	3517+	3519+	3528+	3530+	3538+	3540+	3546+	3548+
				3552+	3554+	3562+	3564+	3572+	3574+	3583+	3585+	3593+	3595+	3599+	3601+
				3609+	3611+	3615+	3617+	3625+	3627+	3634+	3636+	3902	3908	3910	3920
				3968	3994	3998	4001	4003	4007	4012	4038	4042	4045	4048	4050
				4056	4063	4067#	4068	4072	4077#	4078#	4079#	4083	4085	4090	4098
				4124	4131	4140#	4141#	4142#	4143	4155	4156	4157	4184	4185	4190#
				4191#	4192#	4193	4207#	4208#	4209#	4210	4214#	4215#	4216	4245#	4246#
				4247#	4248	4260#	4261#	4262#	4263	4269#	4270#	4271#	4272	4284#	4285#
				4286#	4287	4299#	4300#	4301#	4302	4308#	4309#	4310#	4311	4323#	4324#
				4325#	4326	4332#	4333#	4334#	4335	4356#	4357#	4358#	4359	4363#	4364#
				4365	4392	4393	4398#	4399#	4400#	4401	4415#	4416#	4417#	4418	4422#
				4423#	4424	4445#	4446#	4447#	4448	4460#	4461#	4462#	4463	4478#	4479#
				4480#	4481	4485#	4486#	4487	4497#	4498#	4499#	4500	4507#	4508#	4509#
				4510	4521	4547	4551	4557	4558#	4559	4563	4571	4581	4582#	4583
				4591	4594	4599	4611	4616	4630	4638	4641#	4642	4653	4654	4655
				4656	4657	4658	4659	4668	4694	4698	4701	4703	4707	4713	4739
				4742	4744	4746	4751	4777	4786	4787	4788	4789#	4790	4800	4826
				4830	4836	4837#	4838	4846	4858	4860#	4861	4868	4873	4882	4887
				4902	4909	4912	4914#	4915	4926	4927	4928	4929	4930	4931	4940
				4966	4969	4971	4973	4979	5005	5009	5012	5014	5018	5023	5049
				5055	5057	5059	5061	5063#	5065#	5068#	5070	5076	5102	5108	5110
				5112	5114	5116#	5118#	5121#	5123	5129	5155	5163#	5164#	5165#	5166#
				5167#	5168	5174	5200	5203#	5204#	5205#	5206#	5207#	5208#	5209	5215
				5241	5249#	5250#	5251#	5252#	5253#	5254	5260	5286	5289#	5290#	5291#
				5292#	5293#	5294#	5295	5301	5327	5330#	5331#	5332#	5333#	5334#	5335#
				5336	5342	5368	5376#	5377#	5378#	5379#	5380#	5381#	5382	5388	5414
				5417#	5418#	5419#	5420#	5421#	5422#	5423	5428	5454	5457#	5458#	5459#
				5460#	5461#	5462	5467	5493	5497	5507	5508	5511	5516
CCBGT$				 912+#	4204	4353	4412	4475	4579	4628	4636	4651	4792	4856	4900
				4910	4924
CCBRT$				 914+#	4007	4050	4056	4063	4072	4090	4707	5018
CE$ACV				 282+
CE$BFF				 277+	 331+
CE$BFI				 283+
CE$BFP				 284+
CE$BFR				 285+
CE$BFS				 286+
CE$CBA				 287+
CE$CBB				 288+
CE$CBF				 275+	 329+
CE$CBR				 289+
CE$CCF				 274+	 328+
CE$CPY				 290+
CE$CQE				 278+	 332+
CE$DDO				 291+
CE$DLO				 292+
CE$DSP				 293+
CE$DSR				 294+
CE$EVT				 270+
CE$EXV				 295+
CE$FRE				 296+
CE$IBR				 297+
CE$ILV				 298+
CE$IPR				 299+
CE$LEN				 300+
CE$LIX				 301+
CE$OWN				 302+
CE$PIX				 303+
CE$PLV				 304+
CE$PRA				 322+	 336+
CE$PRF				 279+	 333+
CE$PRI				 305+
CE$PRM				 321+	 335+
CE$PRU				 280+	 334+
CE$RBA				 306+
CE$RBB				 307+
CE$RBC				 308+
CE$RBF				 276+	 330+
CE$RBR				 309+
CE$RCL				 271+
CE$RES				 310+
CE$RLV				 311+
CE$RND				 312+
CE$RPX				 313+
CE$RRT				 272+
CE$SLF				 323+	 337+
CE$SYN				 314+
CE$TMB				 315+
CE$TMU				 320+	 338+
CE$UCB				 316+
CE$VCF				 318+
CE$VCU				 319+
CE$VEC				 317+
CEX				 651+
CEX_DISPATCH			 639+#	 651+	 672+
CE_ABO				 788+#
CE_BUF				 796+#
CE_DCR				 797+#
CE_DEV				 801+#
CE_DIS				 802+#
CE_ERR				 789+#
CE_HFE				 798+#
CE_MOP				 790+#
CE_MTL				 799+#
CE_NTE				 793+#
CE_ROV				 800+#
CE_RTE				 792+#
CE_SRC				 791+#
CE_TMO				 794+#
CE_UDR				 803+#
CHAR				4169	4170#	4171	4236	4238#	4241	4253#	4256	4277#	4280	4292#	4295
				4316#	4319	4377	4378#	4379	4436	4438#	4441	4453#	4456
CHR				5501	5509	5518#	5521#	5530	5532#	5535	5537#	5539#	5545
CHR_PTR				5502	5509#	5525
CMQIF$				 916+#
CMQIN$				 918+#
CMQRM$				 920+#
CNSTM$				 922+#
CNV22$				 924+#
COD				 356+	 357+
CODE_NAME			 382+	 383+#
CODE_SET			 354+	 355+
CONDITION_VALUE			 162+#
CONDIT_FIELDS			 153+#	 162+
CONTROLLER			3080+	3103+#	3116+	3128+	3138+	3162+#
COUNT				2736+	2749+	2755+	2765+	2774+	2784+	3301+	3313+	3315+	3320+	3322+	3323+
				3324+	3484+	3487+	5504	5507#	5517#	5523	5528#
CS$SUC				 253+	 327+
CS_SUC				 786+#
CUST_DEF			 175+#	 178+	 357+#	 387+#
C_ADDR				 722+#	3486+	4067	4078	4157	4184	4185	4219	4366	4392	4393	4426
				4488	4580	4594	4629	4637	4655	4794	4857	4868	4901	4911	4928
				5063	5116	5508	5516
C_BIAS				 721+#	3485+	4067	4077	4156	4218	4366	4426	4488	4571	4580	4629
				4637	4654	4794	4846	4857	4901	4911	4927	5061	5063	5114	5116
C_BUF				 720+#
C_CHN				 711+#	4657	4930	5065	5118
C_CNT				 723+#	3487+	4067	4079	4220	4366	4426	4488	4580	4629	4637	4656
				4794	4857	4901	4911	4929	5063	5116	5507
C_FIELDS			 708+#	1265+	3494+	3500+	3510+	3519+	3530+	3540+	3548+	3554+	3564+	3574+
				3585+	3595+	3601+	3611+	3617+	3627+	3636+	3994	4038	4124	4202	4348
				4410	4473	4547	4577	4626	4635	4649	4694	4739	4777	4781	4826
				4854	4898	4907	4922	4966	5005	5049	5055	5102	5108	5155	5200
				5241	5286	5327	5368	5414	5454	5493
C_FNC				 717+#	3477+	4142	4192	4209	4215	4247	4262	4271	4286	4301	4310
				4325	4334	4358	4364	4400	4417	4423	4447	4462	4480	4486	4499
				4509	4558	4582	4641	4789	4837	4860	4914	5066	5119	5165	5204
				5251	5291	5332	5377	5419	5459
C_LIN				 715+#	4787	5206	5379
C_LIX				 714+#	1267+	3495+	3521+	3556+	3566+	3576+	3587+	3603+	3619+	3638+	4068
				4141	4155	5070	5123	5164	5250	5290	5331	5418	5458
C_LNK				 710+#
C_MOD				 718+#	3478+	5166	5205	5252	5292	5333	5378	5420	5460
C_OWN				 713+#
C_PIX				 716+#	3511+	3520+	3531+	3555+	3565+	3575+	3586+	3602+	3618+	3628+	3637+
				4068	4083	4085	4131	4581	4630	4638	4658	4786	4858	4902	4912
				4931	5070	5123	5163	5203	5249	5289	5330	5376	5417	5457
C_PRM				 724+#
C_PRM1				 725+#	1267+	3501+	3512+	3522+	3523+	3532+	3533+	3541+	3557+	3567+	3568+
				3577+	3578+	3588+	3604+	3605+	3620+	3629+	3998	4042	4068	4141	4191
				4208	4214	4246	4261	4270	4285	4300	4309	4324	4333	4357	4363
				4399	4416	4422	4446	4461	4479	4485	4498	4508	4551	4563	4591
				4659	4698	4788	4830	5009	5070	5123	5167	5207	5208	5253	5293
				5294	5334	5335	5380	5421	5422	5461	5497	5511
C_PRM2				 726+#	3639+	5381
C_PRM3				 727+#
C_PRM4				 728+#
C_PRM5				 729+#
C_STK				 712+#	4653	4926	5055	5068	5108	5121
C_STS				 719+#	3542+	4001	4003	4045	4048	4140	4190	4207	4245	4260	4269
				4284	4299	4308	4323	4332	4356	4398	4415	4445	4460	4478	4497
				4507	4701	4703	4742	4744	4969	4971	5012	5014	5057	5059	5110
				5112
DB				 989+	1002+#	1007+	1016+	1099+	1112+#	1117+	1126+	1301+	1308+#	3902	3908
				3910	3920	3935	3961	3968	3995	3998	4012	4039	4042	4068	4083
				4085	4098	4125	4132	4137	4224	4226	4367	4427	4489	4521	4548
				4551	4581	4611	4630	4638	4658	4668	4695	4698	4713	4740	4751
				4778	4795	4800	4827	4830	4858	4882	4902	4912	4931	4940	4967
				4979	5006	5009	5023	5050	5070	5076	5103	5123	5129	5156	5159
				5174	5201	5215	5242	5245	5260	5287	5301	5328	5342	5369	5372
				5388	5415	5428	5455	5467	5494	5497
DDAST_LINKAGE			 935+#	 938+
DDAST$				 931+#
DDCCP_LINKAGE			 958+#	 961+
DDCCP$				 954+#
DDKCP_LINKAGE			 974+#	 977+
DDKCP$				 970+#
DDM				 634+
DDMDB_LINKAGE			 993+#	 996+#	1011+#	1014+
DDMDB$				 989+#	1007+#
DDM_DISPATCH			 640+#	 661+	 670+
DDRCP_LINKAGE			1029+#	1032+
DDRCP$				1025+#
DDXCP_LINKAGE			1045+#	1048+
DDXCP$				1041+#
DEACB$				2679+#
DECLARE_SEVERITY		 374+#	3774+
DEFAULT				 866+	 867+	 868+	 869+	 871+	 873+	 877+	 882+	 883+	 897+	 898+	 899+
				 900+	 902+
DISP				 858+	 860+
DISPATCH			 691+	 699+	2575+	2576+
DISPATCH$			 858+#	3903	3911
DIS_CCB				4635	4636	4637#	4638	4781	4792	4794#	4795	4907	4910	4911#	4912
DLAST_LINKAGE			1061+#	1064+
DLAST$				1057+#
DLC				 634+
DLCCP_LINKAGE			1084+#	1087+
DLCCP$				1080+#
DLCDB_LINKAGE			1103+#	1106+#	1121+#	1124+
DLCDB$				1099+#	1117+#
DLC_DISPATCH			 641+#	 660+	 670+
DLGET_LINKAGE			1139+#	1142+
DLGET$				1135+#
DLRCE_LINKAGE			1155+#	1158+
DLRCE$				1151+#
DLRCP_LINKAGE			1171+#	1174+
DLRCP$				1167+#
DLSET_LINKAGE			1187+#	1190+
DLSET$				1183+#
DLSTM$				1195+#
DLSTP_LINKAGE			1205+#	1208+
DLSTP$				1201+#
DLSTR_LINKAGE			1221+#	1224+
DLSTR$				1217+#
DLXCP_LINKAGE			1237+#	1240+
DLXCP$				1233+#
DLXME_LINKAGE			1253+#	1256+
DLXME$				1249+#
DRQ_CCB				4577	4579	4580#	4581	4626	4628	4629#	4630
DTR				   1#	3774+	3922
DTR$_BAD_PATTERN		3792+	4616	4887
DTR$_BAD_SEQUENCE_NUMBER	3791+	4599	4873	4909
DTR$_DISPATCH			3776+
DTR$_NO_ABORT			3781+	4003
DTR$_NO_ACCEPT			3782+	4048
DTR$_NO_CCB			3778+	4579	4628	4636	4651	4792	4856	4900	4910	4924
DTR$_NO_DATA_PLEASE		3787+	4557
DTR$_NO_DATA_REQUEST		3786+	4744
DTR$_NO_DISCONNECT		3783+	4703
DTR$_NO_INTERRUPT_PLEASE	3788+	4836
DTR$_NO_INTERRUPT_REQUEST	3789+	4971
DTR$_NO_REJECT			3784+	5014
DTR$_NO_SC			3777+
DTR$_NO_SEND_DATA		3785+	5059
DTR$_NO_SEND_INTERRUPT		3790+	5112
DTR$_TEST_INVALID		3779+	4506
DTR$_TEST_UNSUPPORTED		3780+	4496
DTRTIM				3850	3926	3935*
DUMMY				1317+	1399+	1412+	1441+	1689+	1718+	2366+	2379+
D_ADDR				3803+#	3998	4042	4132	4551	4698	4830	5009	5159	5245	5372	5497
D_CLOCK				3801+#
D_FIELDS			3799+#	3961	3995	4039	4125	4548	4695	4740	4778	4827	4967	5006
				5050	5103	5156	5201	5242	5287	5328	5369	5415	5455	5494
D_LENGTH			3807+#	3887#
D_LINKS				3802+#	4137
END_ADR				 521+	 531+	 535+#	 541+	 551+	 563+	 573+	 577+#	 583+	 593+
EOM				5388	5422
ERROR				3774+
EXRQN$				2900+#
FALSE				3882#	4005	4006	4049	4600	4617	4705	4706	4874	4888	5016	5017
				5543
FC_AST				 733+#
FC_CCP				 742+#	3923
FC_CTL				 737+#
FC_KCP				 741+#
FC_KIL				 736+#
FC_RCE				 735+#	3543+	3549+	3596+	3612+	4142	4192	4209	4215	4247	4262	4271
				4286	4301	4310	4325	4334	4358	4364	4400	4417	4423	4447	4462
				4480	4486	4499	4509	4558	4582	4641	4789	4837	4860	4914	5066
				5119
FC_RCP				 740+#	3924
FC_SYS				 743+#
FC_TIM				 738+#	 743+	3926
FC_XCP				 739+#	3925
FC_XME				 734+#	3514+	3525+	3535+	3559+	3569+	3580+	3590+	3606+	3622+	3631+	3641+
				5165	5204	5251	5291	5332	5377	5419	5459
FD_AST				 746+#
FD_CCP				 777+#
FD_CTL				 764+#	 777+
FD_KCP				 775+#
FD_KIL				 757+#	 775+
FD_RCE				 752+#	 773+
FD_RCP				 773+#
FD_SYS				 783+#
FD_TIM				 768+#	 783+
FD_XCP				 770+#
FD_XME				 748+#	 770+
FIELDS				3768+
FLG				3517+	3523+	3528+	3533+	3572+	3578+	3625+	3629+
FLOW				4351#	4367	5174	5208
FM_CCB				 781+#
FM_CRA				 755+#
FM_DAT				 750+#
FM_GET				 763+#
FM_KIL				 754+#
FM_LTM				 767+#
FM_NM				 761+#
FM_PIN				 780+#
FM_PWF				 779+#
FM_RDB				 782+#
FM_RTN				 751+#
FM_SET				 762+#
FM_STM				 766+#
FM_STP				 760+#
FM_STR				 759+#
FM_SYN				 772+#
FM_XKL				 756+#
FNC				3476+	3477+
FROM_ADR			 521+	 533+	 541+	 551+
FROM_BIAS			 521+	 533+	 541+	 551+
FROM_BUFFER			2307+	2308+	2311+	2313+	2320+	2323+	2324+	2325+
FULLWORD			3817+
GTPKT$				2686+#
GTPRC$				1261+#
HEADER				 668+	 675+#
HIGH				 924+	 925+	1462+	1473+	1483+	1501+#	1506+	1518+	1530+	1548+#	1553+	1565+
IDX				 858+	 860+
INDEX				 431+	 435+	 442+	 444+	 931+	 942+	 989+	1001+	1007+	1016+	1057+	1068+
				1099+	1111+	1117+	1126+	1328+	1337+#	1346+	1353+	2080+	2089+#	2105+	2114+#
				2549+	2559+#
INFO				3774+
INT1				 634+
INT2				 634+
INT3				 634+
IOALT$				2695+#	2714+#
IODON$				2736+#	2755+#
IOFIN$				2774+#
IOP				2695+	2709+#	2714+	2724+	2736+	2750+#	2755+	2765+	2774+	2784+	3080+	3101+#
				3116+	3128+	3138+	3160+#	3301+	3313+	3320+	3324+
IRQ_CCB				4854	4856	4857#	4858	4898	4900	4901#	4902
KISAR6				 606+	 608+#	 619+	 621+
LANGUAGE			   3
LDBGT$				1270+#
LDBRT$				1287+#
LEVEL				 374+	 382+	 386+
LIB$V0				 125+#	 671+
LIB$V1				 126+#	 671+
LINK				3998#	4005#	4006#	4042#	4049#	4053	4060	4068	4078	4079	4081	4083
				4085	4128	4132#	4134	4137	4147#	4155#	4158#	4159#	4160#	4162	4167#
				4176#	4179#	4181	4184#	4186	4191	4208	4214	4219	4220	4222	4224
				4226	4229#	4241#	4246	4256#	4261	4270	4280#	4285	4295#	4300	4309
				4319#	4324	4333	4340#	4341#	4343	4357	4363	4367	4369#	4375#	4384#
				4387#	4389	4392#	4394	4399	4416	4422	4427	4429#	4441#	4446	4456#
				4461	4468	4479	4485	4489	4491#	4496	4498	4506	4508	4551#	4554
				4566#	4568#	4572	4581	4594	4608	4630	4638	4658	4698#	4705#	4706#
				4830#	4833	4842#	4844#	4848	4858	4868	4879	4902	4912	4931	5009#
				5016#	5017#	5159#	5162#	5245#	5248#	5372#	5375#	5497#	5512	5513	5521
				5545#
LINKAGE_CCB			 839+#
LINKAGE_CCB_MOD			 840+#
LINKAGE_DB_CCB			 842+#	3863	3864	3865	3866	3867	3868	3869	3870	3871	5129#	5174#
				5215#	5260#	5301#	5342#	5388#	5428#	5467#
LINKAGE_DB_CCB_MOD		 843+#
LINKAGE_DB_MOD			 844+#
LINKAGE_DB			 841+#
LINKAGE_MOD			 845+#
LIST_HEAD			2791+	2801+	2811+	2826+	2840+	2852+	2862+	2877+
LITERALS			3768+
LIX				1987+	1988+	2098+	2099+	2542+	2543+
LLA				3492+	3495+#	3517+	3521+	3552+	3556+	3562+	3566+	3572+	3576+	3583+	3587+
				3599+	3603+	3615+	3619+	3634+	3638+	4782	4787#	4795	5129	5164	5174
				5206	5215	5250	5260	5290	5301	5331	5342	5379	5388	5418	5428
				5458
LLC				 634+
LLCDB$				1301+#
LLCRS$				1311+#	3479+	4143	4193	4210	4216	4248	4263	4272	4287	4302	4311
				4326	4335	4359	4365	4401	4418	4424	4448	4463	4481	4487	4500
				4510	4559	4583	4642	4790	4838	4861	4915	5067	5120	5168	5209
				5254	5295	5336	5382	5423	5462
LLC_DB				2271+	2289+	2482+	2495+#	2500+	2509+
LLC_DISPATCH			 642+#	 659+	 670+	3923#
LLLTM$				1317+#
LNG				 521+	 533+	 541+	 551+	 563+	 575+	 583+	 593+	2307+	2313+	2324+	2325+
LNKG				 858+	 859+
LOC				3481+	3482+#
LOW				 924+	 925+	1462+	1473+	1483+	1500+#	1506+	1518+	1530+	1547+#	1553+	1565+
LS_ACTIVE			3816+#	4006	4049	4134	4229	4369	4429	4491	4706	5017
LS_DIP				3813+#	4005	4705	5016	5162	5248	5375
LS_PROPT			3815+#	4159
LS_XOFF				3814+#
LVL				 356+	 357+#
L_BPC_COUNT			3824+#	4319
L_BPC_MESSAGES			3827+#
L_DISCONNECT_DATA		3835+#	4078	4181	4186	4219	4389	4394
L_DISCONNECT_LENGTH		3834+#	4079	4176	4179	4184	4220	4384	4387	4392
L_FIELDS			3810+#	3999	4043	4128	4552	4699	4831	5010	5160	5246	5373	5498
L_FLOW_COUNT			3822+#	4068	4280	4456
L_FLOW_TYPE			3821+#	4060	4256	4367
L_LENGTH			3840+#	3888	3998	4042	4147	4551	4698	4830	5009	5159	5245	5372
				5497
L_LLA				3818+#	4083	4085	4155	4224	4226	4367	4427	4489	4581	4630	4638
				4658	4858	4902	4912	4931
L_MESSAGE_SIZE			3825+#	3833+	4340	4341
L_NAK_COUNT			3823+#	4295
L_NAK_MESSAGES			3826+#
L_PATTERN_CHARACTER		3831+#	5521	5545
L_PATTERN_ROUTINE		3832+#	4343	4468
L_RECEIVE_COUNT			3830+#
L_RECEIVE_NUMBER		3829+#	4566	4568	4594	4842	4844	4868
L_SEND_NUMBER			3828+#	4343	4468
L_SUB_TEST			3820+#	4081	4167	4222	4241	4375	4441	4572	4608	4848	4879
L_TEST				3819+#	4053	4158	4159	4160	4162	4496	4506	4554	4833	5512	5513
L_ULA				3812+#	4083	4085	4137	4191	4208	4214	4224	4226	4246	4261	4270
				4285	4300	4309	4324	4333	4357	4363	4367	4399	4416	4422	4427
				4446	4461	4479	4485	4489	4498	4508	4581	4630	4638	4658	4858
				4902	4912	4931
MAP$				 602+#	1283+	1298+	1307+	4156	4571	4846
MAXIMUM_OFFSET			 868+	 870+	 871+	 899+	 901+	 902+
MCB$				1326+#
MCB$GAW_PROCESS_DATA_BASE	1305+	1307+	1308+	1377+#
MCB$GA_LOGGING_BUFFER		1379+#
MCB$GA_PROCESS_DISPATCH		1381+#
MCB$GW_DATA_WINDOW		1387+#
MCB$GW_PROCESS_HANDLE		1383+#
MCB$GW_PROCESS_WINDOW		1385+#
MCB$GW_RDB_SIZE			1278+	1282+	1294+	1297+	1389+#
MCB$K_CLEAR_PROCESS		 136+#	1442+
MCB$K_CLEAR_PROCESS_NAME	 140+#	1449+
MCB$K_CLEAR_VECTOR		 142+#	1456+
MCB$K_EDIT			 121+#
MCB$K_GET_DEVICE_NAME		 146+#	1988+
MCB$K_GET_LINE_NAME		 143+#
MCB$K_GET_LINE_PROCESSES	 145+#	2099+
MCB$K_GET_PROCESS_INDEX		 137+#	2087+	2112+
MCB$K_GET_PROCESS_NAME		 138+#	1353+
MCB$K_LEVEL			 120+#
MCB$K_SET_EXCEPTION		 134+#	2535+
MCB$K_SET_LINE_PROCESSES	 144+#	2543+
MCB$K_SET_PROCESS		 135+#	2556+
MCB$K_SET_PROCESS_NAME		 139+#	2569+
MCB$K_SET_VECTOR		 141+#	2576+
MCB$K_STATUS_MAX		 363+
MCB$K_VERSION			 119+#
MCB$V0				 665+	 671+
MCB$V1				 665+	 671+
MCB$_BUSY_NAME			 334+#
MCB$_INVALID_TIME_UNIT		 338+#
MCB$_NORMAL			 327+#	 944+	1070+	1611+	1634+	1660+	1759+	1782+	1808+	1842+	1865+	1891+
				1925+	1948+	1974+	2160+	2183+	2209+
MCB$_NO_CCB			 328+#	 946+	1072+	1762+	1784+	1811+
MCB$_NO_CORE			 331+#	1928+	1950+	1977+
MCB$_NO_CSB			 329+#	1845+	1867+	1894+
MCB$_NO_RDB			 330+#	2163+	2185+	2212+
MCB$_PARAMETER_ERROR		 335+#
MCB$_PROCESS_STILL_ACTIVE	 336+#
MCB$_QUEUE_EMPTY		 332+#	1614+	1636+	1663+
MCB$_UNASSIGNED_LINE		 337+#
MCB$_UNKNOWN_PROCESS		 333+#
MCB_				 830+#
MCB_CCB				 831+#
MCB_CCB_MOD			 832+#
MCB_DB				 833+#
MCB_DB_CCB_MOD			 835+#	3902#	3910#
MCB_DB_CCB			 834+#	3851	3852	3853	3854	3855	3856	3857	3858	3859	3860	3861
				3862	3908	3920	3968#	4012#	4098#	4521#	4668#	4713#	4751#	4800#	4940#
				4979#	5023#	5076#
MCB_DB_MOD			 836+#	3850	3935#
MCB_INTERRUPT			 837+#
MCB_MOD				 838+#
MDF				3476+	3478+
MFBF$S				 521+#	 541+#
MODF				3902	3908	3910	3920	3935
MTBF$S				 563+#	 583+#
MV_LINKAGE			 525+#	 529+#	 545+#	 549+	 567+#	 571+#	 587+#	 591+
NAM				 356+	 357+#	 634+
NAME				 643+	 647+	 651+	 669+	 692+	 694+	 699+	1328+	1335+	1346+	1355+#	1448+
				1449+	2080+	2087+	2105+	2112+	2549+	2557+	2568+	2569+	3177+	3199+	3213+
				3224+	3234+	3248+	3922#
NEW				2534+	2535+
NEW_UCB				3080+	3105+#	3116+	3128+	3138+	3164+#
NO_OPERATION			3883#
NUM				3562+	3568+	3599+	3605+
OFFSET				 868+	 869+	 870+	 871+	 873+	 874+	 882+	 888+	 889+	 890+	 899+	 900+
				 901+	 902+
OLD				2534+	2536+
OLD_UCB				3080+	3098+	3116+	3128+	3138+	3157+
OPTIONAL_TEXT			 382+
PATTERN_CHECK			3871	4611	4882	5467*
PDVID$				1328+#
PDVNM$				1346+#
PHDR$				 634+#
PIX				 453+	 462+	 464+	 483+	 492+	 494+	3508+	3511+	3517+	3520+	3528+	3531+
				3552+	3555+	3562+	3565+	3572+	3575+	3583+	3586+	3599+	3602+	3615+	3618+
				3625+	3628+	3634+	3637+	5129	5163	5174	5203	5215	5249	5260	5289
				5301	5330	5342	5376	5388	5417	5428	5457
PLIT_VECTOR			2236+	2245+	2252+	2261+
PREFIX				 374+	 375+	 377+	 379+	 382+	 385+	 388+
PRIORITY			2575+	2576+
PTR				4153	4157#	4158	4170	4238	4253	4277	4292	4316	4340	4341	4378
				4438	4453
QASTT$				2916+#
QINSP$				2791+#
QRMVF$				2811+#	2840+#	2862+#
QUEUE				1593+	1607+	1621+	1632+	1642+	1656+	2222+	2226+	2350+	2359+	2582+	2591+
RCV_ABO				3851	3912	3968*
RCV_ACC				3852	3913	4012*
RCV_CCB				5055#	5061	5066#	5067	5108#	5114	5119#	5120
RCV_CNR				3853	3904	4098*
RCV_DAT				3854	3905	4521*
RCV_DIS				3855	3914	4668*
RCV_DRQ				3856	3915	4713*
RCV_DSR				3857	3906	4751*
RCV_INT				3858	3907	4800*
RCV_IRQ				3859	3916	4940*
RCV_REJ				3860	3917	4979*
RCV_SND				3861	3918	5023*
RCV_SNI				3862	3919	5076*
RDBCN$				1360+#
RDBGT$				1362+#
RDBRQ$				1364+#
RDBRT$				1366+#
REJ				3634+	3639+
RELOC$				2894+#
RND$				1368+#
RSX$				1370+#
RSX$K_STATUS_MAX		 364+
RSX$_INVALID_ADDRESS		 344+	2665+	3356+
RSX$_NORMAL			 342+	2016+	2040+	2067+	2663+	2830+	2854+	2881+	2947+	3014+	3038+	3068+
				3106+	3130+	3165+	3205+	3226+	3252+	3283+	3354+
RSX$_NO_MEMORY			 345+	2019+	2042+	2070+	3017+	3040+	3071+
RSX$_NO_PACKET			 346+	3109+	3132+	3168+
RSX$_NO_TASK			 347+	2949+	3196+	3201+	3228+	3255+	3285+
RSX$_QUEUE_EMPTY		 348+	2833+	2856+	2884+
RSX_DISPATCH			 644+#	 672+
RSX_UCB				 828+#
RSX_UCB_SCB_IOP			 829+#
S$ABO				3408+#	3514+	3912	5166
S$ACC				3400+#	3525+	3913	5205
S$CNR				3410+#	3904
S$CON				3399+#	3535+
S$DAT				3411+#	3905
S$DIS				3407+#	3590+	3914	5252
S$DRQ				3404+#	3569+	3915	5292
S$DSR				3413+#	3416+	3906
S$GLN				3409+#	3415+	3631+
S$INT				3412+#	3907
S$IRQ				3406+#	3606+	3916	5333
S$MRQ				3403+#	3559+
S$PBOM				3425+#	4563	4591	5511
S$PEOM				3427+#	4659
S$PMOM				3426+#
S$PMSG				3423+#	4226	4351	4427
S$PSEG				3422+#	4351	4489
S$REJ				3401+#	3641+	3917	5378
S$RHI				3416+#
S$SND				3402+#	3580+	3918	5420
S$SNI				3405+#	3622+	3919	5460
S$XHI				3415+#
SCB				3080+	3104+#	3116+	3128+	3138+	3163+#
SCRCP				3902*	3924
SCXCP				3910*	3925
SC_PIX				4129	4131#	4224	4226	4367	4427	4489	4783	4786#	4795
SEG				5260	5294
SEVERE				3774+
SEVERITY			 173+#	 176+	 243+	 244+	 246+	 247+	 357+#	 386+#
SIGNAL_HANDLER			 645+#	 670+
SMAP$				 615+#	1281+	1296+
SND_ABO				3863	4085	5129*
SND_ACC				3864	4226	4367	4427	4489	5174*
SND_CCB				4649	4651	4653#	4654#	4655#	4656#	4657#	4658
SND_DIS				3865	4083	4638	4795	4912	5215*
SND_DRQ				3866	4068	4581	4630	5070	5260*
SND_IRQ				3867	4858	4902	5123	5301*
SND_REJ				3868	4224	5342*
SND_SND				3869	4658	5388*
SND_SNI				3870	4931	5428*
SNI_CCB				4922	4924	4926#	4927#	4928#	4929#	4930#	4931
SS$BPT				 255+
SS$DTE				 256+
SS$EMT				 257+
SS$FPU				 258+
SS$INS				 259+
SS$IOT				 260+
SS$MMU				 261+
SS$MPE				 262+
SS$NXM				 263+
SS$PRQ				 264+
SS$PWF				 265+
SS$STK				 266+
SS$STP				 267+
SS$TRP				 268+
STANDARD			 525+#	 545+#	 567+#	 587+#
STATUS				 931+	 942+	 954+	 963+	 970+	 979+	1025+	1034+	1041+	1050+	1057+	1068+
				1080+	1089+	1167+	1176+	1233+	1242+	2236+	2245+	2695+	2708+	2714+	2724+
				2736+	2749+	2755+	2765+	2774+	2784+	3301+	3321+	3323+	3324+
STS				3538+	3542+
STS$K_ERROR			 168+#	 282+	 285+	 288+	 289+	 294+	 296+	 299+	 300+	 302+	 305+	 307+
				 309+	 310+	 312+	 314+	 317+	 318+	 319+	 320+	 321+	 322+	 323+
STS$K_INFO			 166+#	 270+	 271+	 272+
STS$K_SEVERE			 169+#	 173+	 255+	 256+	 257+	 258+	 259+	 260+	 261+	 262+	 263+	 264+
				 265+	 266+	 267+	 268+	 283+	 284+	 286+	 287+	 290+	 291+	 292+	 293+
				 298+	 301+	 303+	 304+	 306+	 308+	 311+	 313+	 315+	 316+
STS$K_SUCCESS			 165+#	 253+	 342+
STS$K_WARNING			 167+#	 274+	 275+	 276+	 277+	 278+	 279+	 280+	 295+	 297+	 344+	 345+
				 346+	 347+	 348+
STS$MATCH			 183+#
STS$VALUE			 172+#	 357+	 384+#
STS$V_COND_ID			 157+#
STS$V_CUST_DEF			 158+#
STS$V_SEVERITY			 155+#
STS$V_SUCCESS			 156+#
SYNCH_BLOCK			2333+	2342+	2343+	2614+	2623+	2624+
SYNCH$				1372+#
S_EABL				3459+#
S_EABM				3448+#
S_EABO				3449+#
S_EABS				3447+#
S_EACR				3463+#
S_ECBE				3452+#
S_EDBO				3461+#
S_EERR				3453+#
S_EHI				3432+#
S_EIDM				3454+#
S_EINF				3450+#
S_EIOF				3445+#
S_ELNS				3451+#
S_ELO				3467+#
S_ELST				3455+#
S_ELWS				3456+#
S_EMTL				3457+#
S_ENOF				3465+#
S_ENRO				3464+#
S_ENSL				3458+#
S_ENUR				3466+#
S_EOTB				3446+#
S_ERBO				3460+#	4190	4245	4260	4269	4284	4299	4308	4323	4332	4398	4445
				4460	4497	4507	5381
S_ERES				3441+#	4140	4207	4356	4415	4478
S_ERNS				3443+#
S_ETMI				3462+#
S_EUNN				3442+#
S_EURO				3444+#
S_SSUC				3433+#	4001	4045	4701	4742	4969	5012	5057	5110
TABLE$				 866+#	3903	3911	3923
TCB				2900+	2909+	2916+	2926+	2933+	2945+	3177+	3204+#	3213+	3224+	3234+	3251+#
				3261+	3279+	3280+	3328+	3337+
TEXT				 243+	 244+	 246+	 247+
TIMER_BLOCK			1425+	1434+	2598+	2607+
TOP				 866+	 867+	 897+	 898+
TO_ADR				 563+	 575+	 583+	 593+
TO_BIAS				 563+	 575+	 583+	 593+
TO_BUFFER			1574+	1583+	2307+	2309+	2312+	2313+	2324+	2325+
TRUE				3884#	4229	4369	4429	4491	4596	4604	4613	4621	4870	4884	4892
				5162	5248	5375	5546
TSKRT$				2933+#
TXT				 356+
TYPE				2534+	2535+
T_FIELDS			 810+#
T_IDN				 813+#
T_LENGTH			 818+#
T_PIX				 812+#
T_TIM				 814+#
UCB				2271+	2284+#	2289+	2298+	2482+	2494+	2500+	2509+	2695+	2708+	2714+	2724+
				2736+	2749+	2755+	2765+	2774+	2784+	3301+	3321+	3323+	3324+
UIC				2933+	2945+	3261+	3269+	3278+	3280+
ULA				3498+	3501+#	3508+	3512+	3517+	3522+	3528+	3532+	3538+	3541+	3552+	3557+
				3562+	3567+	3572+	3577+	3583+	3588+	3599+	3604+	3615+	3620+	4784	4788#
				4795	5129	5159	5167	5174	5207	5215	5245	5253	5260	5293	5301
				5334	5342	5372	5380	5388	5421	5428	5461
UNIT				3080+	3102+#	3116+	3128+	3138+	3161+#
USER_ADDRESS			2956+	2969+	2976+	2985+
VAL				3481+	3482+
VALUECBIT			 935+	1061+	1597+	1625+	1646+	1745+	1773+	1794+	1828+	1856+	1877+	1911+
				1939+	1960+	2001+	2031+	2053+	2146+	2174+	2195+	2654+	2816+	2845+	2867+
				2938+	2997+	3029+	3051+	3084+	3121+	3143+	3181+	3217+	3238+	3345+
VALUE				2252+	2261+
VAR				 615+	 621+#
VECTOR$				 897+#
WORD_0				3890#	4566	4594	4842	4868
WORD_1				3891#	4568	4844
XPO$K_VERSION			3392+
$ACHCK				3348+*	3352+
$ACHKB				2657+*	2661+
$ADDRESS			3803+	3832+
$ALIGN				3817+
$ALOCB				3000+*	3008+	3032+*	3036+	3058+*	3062+
$BIT				3813+	3814+	3815+	3816+
$BYTE_STRING			3648+	3652+	3656+	3659+	3662+	3665+	3668+	3673+	3680+	3685+	3692+	3705+
				3709+	3716+
$BYTE				3650+	3651+	3654+	3655+	3703+	3704+	3818+
$CALLE				 458+	 462+	 464+
$CALLI				 438+*	 442+	 444+
$CALLP				 488+	 492+	 494+
$CBBGT				1831+*	1838+	1859+*	1863+	1883+*	1887+
$CBBRT				2422+*	2424+
$CCBCN				1403+*	1405+
$CCBGT				1748+*	1755+	1776+*	1780+	1800+*	1804+
$CCBRQ				2370+*	2372+
$CCBRT				2406+*	2408+
$CMQIF				2589+*	2591+
$CMQIN				2357+*	2359+
$CMQRM				1600+*	1607+	1628+*	1632+	1652+*	1656+
$CNV22				1493+*	1499+	1516+*	1518+
$CONTINUE			3674+	3681+	3686+	3693+	3710+	3717+	3836+
$CORGT				1914+*	1921+	1942+*	1946+	1966+*	1970+
$CORRT				2438+*	2440+
$CPTBF				1581+*	1583+
$DDAST				 938+*	 942+
$DDCCP				 961+*	 963+
$DDKCP				 977+*	 979+
$DDMDB				 996+*	1001+	1014+*	1016+
$DDRCP				1032+*	1034+
$DDXCP				1048+*	1050+
$DEACB				3296+*	3298+
$DLAST				1064+*	1068+
$DLCCP				1087+*	1089+
$DLCDB				1106+*	1111+	1124+*	1126+
$DLGET				1142+*	1144+
$DLRCE				1158+*	1160+
$DLRCP				1174+*	1176+
$DLSET				1190+*	1192+
$DLSTP				1208+*	1210+
$DLSTR				1224+*	1226+
$DLXCP				1240+*	1242+
$DLXME				1256+*	1258+
$DSPCR				3900*	3903	3911	3923
$DSRGT				2004+*	2012+	2034+*	2038+	2059+*	2063+
$DSRRT				2454+*	2456+
$DTR_ERROR			3776+
$DTR_INFO			3779+	3780+	3781+	3782+	3783+	3784+	3785+	3786+	3787+	3788+	3789+	3790+
				3791+	3792+
$DTR_SEVERE			3777+	3778+
$EXRQN				2907+*	2909+	3270+	3279+
$FIELD				3646+	3701+	3798+	3809+
$FIELD_SET_SIZE			3697+	3807+	3840+
$GTPKT				3087+*	3098+	3124+*	3128+	3153+*	3157+
$IDSTS				2243+*	2245+
$IDVAL				2259+*	2261+
$INTDS				1680+*	1682+
$INTEGER			3822+	3825+	3826+	3827+	3831+	3834+
$INTEN				1709+*	1711+
$IOALT				2703+*	2708+	2722+*	2724+	3314+	3321+
$IODON				2744+*	2749+	2763+*	2765+	3316+	3323+
$IOFIN				2782+*	2784+	3317+	3324+
$LLLTM				1321+*	1323+
$LTMDS				1693+*	1695+
$LTMEN				1722+*	1724+
$MCB				2489+*	2494+	2507+*	2509+
$MCB$BUFFER_ADDRESS		1391+#
$MCB$BUFFER_BIAS		1393+#
$MCB$CCB			1265+#	1267+
$MCB$CODE			 355+	 356+#	 363+	 364+	 368+
$MCB$CODES			 354+#	 360+	 367+
$MCB$HANDLE			1332+	1335+	1337+
$MCB$HIS_QUEUE			2226+#	2228+#	2229+#
$MCB$LINKAGE_ADDRESS_LENGTH	2451+#	2454+
$MCB$LINKAGE_ADDR_LNG		2317+#	2321+
$MCB$LINKAGE_BIAS_ADDRESS	1489+#	1493+	1512+#	1516+	1536+#	1540+	1559+#	1563+
$MCB$LINKAGE_CCB		1578+#	1581+	1745+#	1748+	1773+#	1776+	1794+#	1800+	2146+#	2149+	2174+#	2177+
				2195+#	2201+	2403+#	2406+	2467+#	2470+	2522+#	2525+
$MCB$LINKAGE_HIGH_LOW		1466+#	1470+
$MCB$LINKAGE_LENGTH		2001+#	2004+
$MCB$LINKAGE_LENGTH_ADDRESS	1911+#	1914+	1939+#	1942+	1960+#	1966+	2030+#	2034+	2052+#	2059+	2435+#	2438+
$MCB$LINKAGE_LENGTH_CCB		1828+#	1831+	1856+#	1859+	1877+#	1883+	2419+#	2422+
$MCB$LINKAGE_NUM		2127+#	2130+
$MCB$LINKAGE_QUEUE_CCB		1597+#	1600+	1625+#	1628+	1646+#	1652+	2354+#	2357+	2586+#	2589+
$MCB$LINKAGE_SBLK		2337+#	2340+#	2618+#	2621+#
$MCB$LINKAGE_STS_VEC		2240+#	2243+
$MCB$LINKAGE_TIMER		1429+#	1432+	2602+#	2605+
$MCB$LINKAGE_UCB		2275+#	2278+	2293+#	2296+
$MCB$LINKAGE_UCB_DB		2486+#	2489+	2504+#	2507+
$MCB$LINKAGE_VAL_VEC		2256+#	2259+
$MCB$LINKAGE_VECTOR		1677+#	1680+	1706+#	1709+
$MCB$MY_INDEX			2084+	2087+	2089+	2109+	2112+	2114+	2553+	2556+	2559+
$MCB$NAME			1350+	1353+	1355+
$MCB$NEXT_CODE			 239+#	 244+	 245+	 249+	 363+
$MCB$R0				1917+#	1924+	1963+#	1970+	1973+	2007+#	2015+	2056+#	2063+	2066+
$MCB$R1				2008+#
$MCB$R2				1497+#	1501+	1544+#	1548+
$MCB$R3				1496+#	1500+	1543+#	1547+
$MCB$R4				1603+#	1610+	1649+#	1656+	1659+	1751+#	1758+	1797+#	1804+	1807+	1834+#	1841+
				1880+#	1887+	1890+	2152+#	2159+	2198+#	2205+	2208+
$MCB$R5				2281+#	2284+	2492+#	2495+
$MCB$REVERSE			 442+	 444+	 462+	 464+	 492+	 494+	 498+#	 499+
$MCB$SAV_MAP			1274+	1281+	1283+	1291+	1296+	1298+
$MCB$STATUS			1333+	1335+#	1339+	1351+	1353+#	1357+	2085+	2087+#	2091+	2110+	2112+#	2116+
				2554+	2556+#	2561+
$MCB$STS			1275+	1282+#	1284+
$MCB$TABLE_A			 867+	 868+#	 871+
$MCB$TABLE_ADDRESS		 876+	 878+	 890+#
$MCB$TABLE_C			 869+	 873+#	 882+	 900+
$MCB$TABLE_M			 867+	 886+#	 898+
$MCB$TABLE_OFFSET		 874+	 887+	 888+#
$MCB$VECTOR_A			 898+	 899+#	 902+
$MCB_CANCEL_CCB_REQUEST		1399+#
$MCB_CANCEL_RDB_REQUEST		1360+	1412+#
$MCB_CANCEL_SHORT_TIMER		 922+	1425+#
$MCB_CLEAR_PROCESS		1441+#
$MCB_CLEAR_PROCESS_NAME		1448+#
$MCB_CLEAR_VECTOR		1455+#
$MCB_CONVERT_FROM_UBA_ADDRESS	1462+#
$MCB_CONVERT_TO_22_BIT_ADDRESS	 925+	1483+#	1506+#
$MCB_CONVERT_TO_UBA_ADDRESS	1530+#	1553+#
$MCB_COPY_CHAIN_TO_BUFFER	1574+#
$MCB_DEQUEUE_CCB		 920+	1593+#	1621+#	1642+#
$MCB_DF				 243+#	 253+	 255+	 256+	 257+	 258+	 259+	 260+	 261+	 262+	 263+	 264+
				 265+	 266+	 267+	 268+	 270+	 271+	 272+	 274+	 275+	 276+	 277+	 278+
				 279+	 280+	 282+	 283+	 284+	 285+	 286+	 287+	 288+	 289+	 290+	 291+
				 292+	 293+	 294+	 295+	 296+	 297+	 298+	 299+	 300+	 301+	 302+	 303+
				 304+	 305+	 306+	 307+	 308+	 309+	 310+	 311+	 312+	 313+	 314+	 315+
				 316+	 317+	 318+	 319+	 320+	 321+	 322+	 323+
$MCB_DISABLE_INTERRUPT		1673+#
$MCB_DISABLE_LONG_TIMER		1689+#
$MCB_ENABLE_INTERRUPT		1702+#
$MCB_ENABLE_LONG_TIMER		1718+#
$MCB_EXCEPTION			1374+#
$MCB_GET_BUFFER			1731+#
$MCB_GET_CCB			 912+	1741+#	1769+#	1790+#
$MCB_GET_CCB_AND_BUFFER		1282+	1824+#	1852+#	1873+#
$MCB_GET_CORE			1732+	1907+#	1935+#	1956+#
$MCB_GET_DEVICE_NAME		1987+#
$MCB_GET_DSR			1997+#	2026+#	2048+#
$MCB_GET_EXTENSION_HANDLE	2080+#
$MCB_GET_IOP			2686+
$MCB_GET_LINE_PROCESSES		1267+	2098+#
$MCB_GET_PROCESS_HANDLE		1335+	2105+#
$MCB_GET_RANDOM_NUMBER		1368+	2123+#
$MCB_GET_RDB			1362+	2142+#	2170+#	2191+#
$MCB_INITIALIZE_QUEUE		2222+#
$MCB_MATCH_COND			2236+#
$MCB_MATCH_VALUE		2252+#
$MCB_MCB_TO_RSX			1370+	2271+#	2289+#
$MCB_MOVE_BUFFER_TO_BUFFER	2307+#
$MCB_PAUSE			2333+#
$MCB_PROCESS			 638+#	3922
$MCB_QUEUE_CCB			 918+	2350+#
$MCB_REQUEST_CCB		2366+#
$MCB_REQUEST_RDB		1364+	2379+#
$MCB_RETURN_BUFFER		2392+#
$MCB_RETURN_CCB_AND_BUFFER	1297+	2415+#
$MCB_RETURN_CCB			 914+	2399+#	4746	4973
$MCB_RETURN_CORE		2393+	2431+#
$MCB_RETURN_DSR			2447+#
$MCB_RETURN_RDB			1366+	2463+#
$MCB_RSX_TO_MCB			1326+	2482+#	2500+#
$MCB_SCHEDULE_CCB		1311+	2518+#
$MCB_SET_EXCEPTION		1374+	2534+#
$MCB_SET_LINE_PROCESSES		2542+#
$MCB_SET_PROCESS		2549+#
$MCB_SET_PROCESS_NAME		2568+#
$MCB_SET_VECTOR			2575+#
$MCB_STACK_CCB			 916+	2582+#
$MCB_START_SHORT_TIMER		1195+	2598+#
$MCB_STATUS			 249+#	 360+
$MCB_SYNCHRONIZE		1372+	2614+#
$MVFBF				 529+*	 533+	 549+*	 551+	2321+	2324+
$MVTBF				 571+*	 575+	 591+*	 593+	2321+	2325+
$OVERLAY			3671+	3676+	3683+	3688+	3707+	3712+	3833+
$OWN$				 678+
$PAUSE				2340+*	2343+
$PHY18				1540+*	1546+	1563+*	1565+
$QASTT				2924+*	2926+	3335+*	3337+
$QINSP				2799+*	2801+
$QRMVF				2819+*	2826+#	2848+*	2852+	2873+*	2877+#
$RDBCN				1416+*	1418+
$RDBGT				2149+*	2156+	2177+*	2181+	2201+*	2205+
$RDBRQ				2383+*	2385+
$RDBRT				2470+*	2472+
$RELOC				2963+*	2969+	2983+*	2985+
$RND				2130+*	2132+
$RSX				2278+*	2283+	2296+*	2298+
$RSX$LINKAGE_ADDRESS_LENGTH	2653+#	2657+	3293+#	3296+	3344+#	3348+
$RSX$LINKAGE_ADDRESS		2960+#	2963+	2980+#	2983+
$RSX$LINKAGE_LENGTH		2997+#	3000+	3028+#	3032+	3050+#	3058+
$RSX$LINKAGE_NAME		3181+#	3184+	3217+#	3220+	3238+#	3244+
$RSX$LINKAGE_QUEUE		2815+#	2819+	2844+#	2848+	2866+#	2873+
$RSX$LINKAGE_QUEUE_ENTRY	2795+#	2799+
$RSX$LINKAGE_TCB		2904+#	2907+	3265+#	3270+
$RSX$LINKAGE_TCB_AST		2920+#	2924+	3332+#	3335+
$RSX$LINKAGE_TCB_UIC		2937+#	2941+	3266+#	3271+
$RSX$LINKAGE_UCB		3084+#	3087+	3120+#	3124+	3142+#	3153+
$RSX$LINKAGE_UCB_IOP_STS_CNT	2778+#	2782+
$RSX$LINKAGE_UCB_STATUS		2699+#	2703+	2718+#	2722+
$RSX$LINKAGE_UCB_STATUS_COUNT	2740+#	2744+	2759+#	2763+
$RSX$LINKAGE_UCB_STS_CNT	3307+#	3316+
$RSX$LINKAGE_UCB_STS_CNT_IOP	3309+#	3317+
$RSX$LINKAGE_UCB_STS		3305+#	3314+
$RSX$NEXT_CODE			 240+#	 247+	 248+	 340+	 364+
$RSX$R0				3003+#	3011+	3055+#	3062+	3065+	3190+#	3204+	3241+#	3248+	3251+
$RSX$R1				2822+#	2829+	2870+#	2877+	2880+	2966+#	2970+	3004+#	3013+	3054+#	3062+	3067+
				3090+#	3101+	3146+#	3157+	3160+
$RSX$R2				2967+#	2971+	3091+#	3102+	3147+#	3157+	3161+
$RSX$R3				2706+#	2709+	2747+#	2750+	3092+#	3103+	3148+#	3157+	3162+
$RSX$R4				3093+#	3104+	3149+#	3157+	3163+
$RSX$R5				3094+#	3105+	3150+#	3157+	3164+
$RSX_ACCEPT_IOP			3080+#	3116+#	3138+#
$RSX_CONVERT_TO_BIAS_ADDRESS	2894+	2956+#	2976+#
$RSX_DF				 246+#	 342+	 344+	 345+	 346+	 347+	 348+
$RSX_DRIVER			 690+#
$RSX_FINISH_IOP			3301+#
$RSX_GET_DSR			2673+	2993+#	3024+#	3046+#
$RSX_GET_TCB			3177+#	3213+#	3234+#
$RSX_REQUEST_TASK		3261+#
$RSX_RETURN_DSR			2680+	3289+#
$RSX_SCHEDULE_AST		3328+#
$RSX_STATUS			 340+#	 360+
$RSX_VALIDATE_BUFFER		2643+	3340+#
$SC$BUF				3484+#	3513+	3524+	3534+	3558+	3579+	3589+	3621+	3630+	3640+
$SC$CCB				3477+#	3478+#	3479+	3485+	3486+	3487+	3494+#	3495+	3500+#	3501+	3510+#	3511+
				3512+	3519+#	3520+	3521+	3522+	3523+	3530+#	3531+	3532+	3533+	3540+#	3541+
				3542+	3548+#	3554+#	3555+	3556+	3557+	3564+#	3565+	3566+	3567+	3568+	3574+#
				3575+	3576+	3577+	3578+	3585+#	3586+	3587+	3588+	3595+#	3601+#	3602+	3603+
				3604+	3605+	3611+#	3617+#	3618+	3619+	3620+	3627+#	3628+	3629+	3636+#	3637+
				3638+	3639+
$SC$CND				3481+#	3485+	3486+	3487+	3511+	3512+	3520+	3521+	3522+	3523+	3531+	3532+
				3533+	3541+	3542+	3555+	3556+	3557+	3565+	3566+	3567+	3568+	3575+	3576+
				3577+	3578+	3586+	3587+	3588+	3602+	3603+	3604+	3605+	3618+	3619+	3620+
				3628+	3629+	3637+	3638+	3639+
$SC$HI_BYTE			3474+#	3523+	3533+	3568+	3578+	3605+
$SC$LO_BYTE			3472+#	3501+	3512+	3522+	3532+	3541+	3557+	3567+	3577+	3588+	3604+	3620+
$SC$QUE				3476+#	3514+	3525+	3535+	3543+	3549+	3559+	3569+	3580+	3590+	3596+	3606+
				3612+	3622+	3631+	3641+
$SCHED				2525+*	2527+
$SC_ABORT			3508+#
$SC_ACCEPT			3517+#
$SC_CONNECT			3528+#
$SC_CONNECT_RECEIVED		3538+#
$SC_DATA_MESSAGE_REQUEST	3552+#
$SC_DATA_SEGMENT_REQUEST	3562+#
$SC_DATA_SEGMENT_RETURN		3546+#
$SC_DATA_SEGMENT_TRANSMIT	3572+#
$SC_DISCONNECT			3583+#
$SC_DISCONNECTED		3593+#
$SC_GET_LLA			3492+#
$SC_GET_ULA			3498+#
$SC_INTERRUPT_REQUEST		3599+#
$SC_INTERRUPT_RETURN		3609+#
$SC_INTERRUPT_TRANSMIT		3615+#
$SC_LOCAL_NODE_INFO		3625+#
$SC_REJECT			3634+#
$SHORT_INTEGER			3658+	3661+	3664+	3667+	3672+	3677+	3678+	3679+	3684+	3689+	3690+	3691+
				3708+	3713+	3714+	3715+	3801+	3802+
$SHOW				3393+	3768+
$SRSTD				3184+*	3199+	3220+*	3224+	3244+*	3248+
$STMCN				1432+*	1434+
$STMRQ				2605+*	2607+
$STRING				3835+
$SUB_BLOCK			3669+	3828+	3829+	3830+
$SUB_FIELD			3501+	3512+	3522+	3523+	3532+	3533+	3541+	3557+	3567+	3568+	3577+	3578+
				3588+	3604+	3605+	3620+	3998	4042	4068	4081	4141	4159	4160	4191
				4208	4214	4222	4246	4261	4270	4285	4300	4309	4324	4333	4340
				4341	4357	4363	4399	4416	4422	4446	4461	4479	4485	4498	4508
				4551	4563	4566	4568	4591	4594	4659	4698	4788	4830	4842	4844
				4868	5009	5070	5123	5167	5207	5208	5253	5293	5294	5334	5335
				5380	5421	5422	5461	5497	5511
$SYNCH				2621+*	2624+
$TINY_INTEGER			3812+	3819+	3820+	3821+	3823+	3824+
$TSKHD				3187+	3194+
$TSKRT				2941+*	2945+	3271+	3280+
$VIR18				1470+*	1473+
%REMAINING			 425+	 440+	 444+	 460+	 464+	 476+	 490+	 494+	 499+	 867+	 869+	 871+
				 881+	 882+	 898+	 900+	 902+


TIME: 8 SEC.
CORE: 19K