Google
 

Trailing-Edge - PDP-10 Archives - BB-P363B-SM_1985 - mcb/cex/cexslt.lst
There are no other files named cexslt.lst in the archive.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23
CEXSLT.M11    30-DEC-82 00:31		TABLE OF CONTENTS

  2624		DECLARATIONS
  2656		$DDAST - Send Asynchronous Notification
  2716		$DDCCP - Control Complete
  2765		$DDCRA - Kill Receives
  2813		$DDGET - Get Characteristics
  2861		$DDKCP - Kill Complete
  2909		$DDKIL - Kill Receives and Transmits
  2957		$DDMDB - Get DDM Data Base
  3039		$DDRCE - Receive Enable
  3087		$DDRCP - Receive Complete
  3136		$DDSET - Set Characteristics
  3184		$DDSTP - Stop Line
  3232		$DDSTR - Start Line
  3280		$DDXCP - Transmit Complete
  3329		$DDXKL - Kill Transmits
  3377		$DDXME - Transmit Enable
  3423		$DLAST - Send Asynchronous Notification
  3484		$DLCCP - Control Complete
  3534		$DLCDB - Get DLC Data Base
  3617		$DLGET - Get Characteristics
  3665		$DLRCE - Receive Enable
  3712		$DLRCP - Receive Complete
  3762		$DLSET - Set Characteristics
  3810		$DLSTP - Stop Line
  3858		$DLSTR - Start Line
  3906		$DLXCP - Transmit Complete
  3956		$DLXME - Transmit Enable
  4002		DDMSM - Set Function and Modifier
  4058		DDMSS - Set Function and Status
  4113		DDMSF - Set Function
  4167		DLCSM - Set Function and Modifier
  4223		DLCSS - Set Function and Status
  4278		DLCSF - Set Function
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 1
CEXSLT.M11    30-DEC-82 00:31

     1						.TITLE	CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES
     2						.IDENT	/003030/
     3						.ENABL	LC
     4
     5					;
     6					;                    COPYRIGHT (c) 1980, 1981, 1982
     7					;                    DIGITAL EQUIPMENT CORPORATION
     8					;                        Maynard, Massachusetts
     9					;
    10					;     This software is furnished under a license and may  be  used
    11					;     and copied only in accordance with the terms of such license
    12					;     and with the inclusion of the above copyright notice.   This
    13					;     software  or any other copies thereof may not be provided or
    14					;     otherwise made available to any other person.  No  title  to
    15					;     and ownership of the software is hereby transferred.
    16					;
    17					;     The information  in  this  software  is  subject  to  change
    18					;     without  notice  and should not be construed as a commitment
    19					;     by DIGITAL EQUIPMENT CORPORATION.
    20					;
    21					;     DIGITAL assumes no responsibility for the use or reliability
    22					;     of  its  software  on  equipment  which  is  not supplied by
    23					;     DIGITAL.
    24					;
    25
    26					;++
    27					; FACILITY: MCB Communications Executive
    28					;
    29					; FUNCTIONAL ABSTRACT:
    30					;
    31					;	This module contains the routines to support
    32					;	the DLC and DDM interfaces.
    33					;
    34					; ENVIRONMENT: RSX kernel mode with EIS
    35					;
    36					; AUTHOR: Alan D. Peckham, CREATION DATE: 22-Jan-81
    37					;
    38					; MODIFIED BY:
    39					;
    40					;	Alan D. Peckham, 30-Jan-80: VERSION 3.2
    41					; 01	- Merged CEXDLC and CEXDDM modules.
    42					;	  Support expanded C.SRC and C.DST in CCBSC.
    43					; 02	- Support .CRDSP during process context switch.
    44					; 03	- Correct conditionalized D$$BUG code in $DLCDB and $DDMDB.
    45					;--
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 2
CEXSLT.M11    30-DEC-82 00:31		DECLARATIONS

    47						.SBTTL	DECLARATIONS
    48
    49					;
    50					; INCLUDE FILES:
    51					;
    52
    53						.MCALL	CRSH$S
    54
    55					;
    56					; MACROS:
    57					;
    58
    59						.MACRO	SLCHK$
    60						.IF	NE,D$$BUG
    61						CALL	CCBSL
    62						.ENDC
    63						.ENDM	SLCHK$
    64
    65					;
    66					; EQUATED SYMBOLS:
    67					;
    68					;	None
    69					;
    70					; OWN STORAGE:
    71					;
    72
    73						.GLOBL	.SLTNM		; Number of system lines.
    74						.GLOBL	.SLTTA		; System line table address
    75
    76						.IIF	NE,<Z.DAT-4>,.ERROR Z.DAT; must be third word in PD
    77						.IIF	NE,<Z.PIX-4-Z.DAT>,.ERROR Z.PIX; must follow Z.DAT words
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 3
CEXSLT.M11    30-DEC-82 00:31		$DDAST - SEND ASYNCHRONOUS NOTIFICATION

    79						.SBTTL	$DDAST - Send Asynchronous Notification
    80					;++
    81					; FUNCTIONAL DESCRIPTION:
    82					;
    83					;	This routine attempts to allocate a CCB for the DDM and queue
    84					;	it to the DLC with an asynchronous status notification.
    85					;
    86					;	If the CCB allocation fails, the call returns with a failure
    87					;	indication.
    88					;
    89					;	The following information will be inserted into the CCB
    90					;	and may be examined by the DLC:
    91					;	    C.FNC	FC.AST
    92					;	    C.STS	given asynchronous status code
    93					;	    C.LIX	given line index
    94					;
    95					; CALLING SEQUENCE:
    96					;
    97					;	CALL	$DDAST
    98					;
    99					; INPUT PARAMETERS:
   100					;
   101					;	R3 = Asynchronous completion status.
   102					;	R2 = line index.
   103					;
   104					; IMPLICIT INPUTS:
   105					;
   106					;	None
   107					;
   108					; OUTPUT PARAMETERS:
   109					;
   110					;	None
   111					;
   112					; IMPLICIT OUTPUTS:
   113					;
   114					;	None
   115					;
   116					; CONDITION CODES:
   117					;
   118					;	C-bit set = Resource allocation failure.
   119					;	C-bit clear = Operation successful.
   120					;
   121					; SIDE EFFECTS:
   122					;
   123					;	The routine $CCBGT is called.
   124					;
   125					;	Registers R3 and R4 are not preserved.
   126					;--
   127
   128		000000'				.PSECT	$CODE$,I,RO
   129	000000'				$DDAST::PLVL$			; Crash if not at process level.
   130	000000'	004767	000000G			CALL	$CCBGT		; Try to get a CCB
   131	000004'	103407				BCS	90$		; and if successful
   132	000006'	110264	000010			MOVB	R2,C.LIX(R4)	; then set line index
   133	000012'	105064	000013			CLRB	C.MOD(R4)	; and no function modifier.
   134	000016'	004567	000500			JSR	R5,DDMSS	; Queue with status,
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 3-1
CEXSLT.M11    30-DEC-82 00:31		$DDAST - SEND ASYNCHRONOUS NOTIFICATION

   135	000022'	   000	   000			.BYTE	FC.AST,0	; AST function and new CCB owner.
   136
   137	000024'	000207			90$:	RETURN			; Return in shame.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 4
CEXSLT.M11    30-DEC-82 00:31		$DDCCP - CONTROL COMPLETE

   139						.SBTTL	$DDCCP - Control Complete
   140					;++
   141					; FUNCTIONAL DESCRIPTION:
   142					;
   143					;	Return the given control CCB to the DLC with an
   144					;	operation status.
   145					;
   146					;	The following information will be inserted into the CCB
   147					;	and may be examined by the DLC:
   148					;	    C.FNC	FC.CCP
   149					;	    C.STS	given control status code
   150					;
   151					; CALLING SEQUENCE:
   152					;
   153					;	CALL	$DDCCP
   154					;
   155					; INPUT PARAMETERS:
   156					;
   157					;	R4 = Address of CCB containing:
   158					;	    C.LIX	line index.
   159					;	R3 = Operation completion status.
   160					;
   161					; IMPLICIT INPUTS:
   162					;
   163					;	None
   164					;
   165					; OUTPUT PARAMETERS:
   166					;
   167					;	None
   168					;
   169					; IMPLICIT OUTPUTS:
   170					;
   171					;	None
   172					;
   173					; CONDITION CODES:
   174					;
   175					;	None
   176					;
   177					; SIDE EFFECTS:
   178					;
   179					;	Registers R3 and R4 are not preserved.
   180					;--
   181
   182		000026'				.PSECT	$CODE$,I,RO
   183	000026'				$DDCCP::PLVL$			; Crash if not at process level.
   184	000026'					CCBCK$			; Verify CCB address.
   185	000026'	004567	000470			JSR	R5,DDMSS	; Queue with status
   186	000032'	   022	   000			.BYTE	FC.CCP,0	; and CCP function.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 5
CEXSLT.M11    30-DEC-82 00:31		$DDCRA - KILL RECEIVES

   188						.SBTTL	$DDCRA - Kill Receives
   189					;++
   190					; FUNCTIONAL DESCRIPTION:
   191					;
   192					;	This call passes a CCB to the DDM with a request to kill
   193					;	all outstanding receives.
   194					;
   195					;	The following information will be inserted into the CCB
   196					;	and may be examined by the DDM:
   197					;	    C.FNC	FC.KIL
   198					;	    C.MOD	FM.CRA
   199					;
   200					; CALLING SEQUENCE:
   201					;
   202					;	CALL	$DDCRA
   203					;
   204					; INPUT PARAMETERS:
   205					;
   206					;	R4 = Address of CCB containing:
   207					;	    C.LIX	line index.
   208					;
   209					; IMPLICIT INPUTS:
   210					;
   211					;	None
   212					;
   213					; OUTPUT PARAMETERS:
   214					;
   215					;	None
   216					;
   217					; IMPLICIT OUTPUTS:
   218					;
   219					;	None
   220					;
   221					; CONDITION CODES:
   222					;
   223					;	None
   224					;
   225					; SIDE EFFECTS:
   226					;
   227					;	Register R4 is not preserved.
   228					;--
   229
   230		000034'				.PSECT	$CODE$,I,RO
   231	000034'				$DDCRA::PLVL$			; Crash if not at process level.
   232	000034'					CCBCK$			; Verify CCB address.
   233	000034'	004567	000444			JSR	R5,DDMSM	; Queue with
   234	000040'	   006	   002			.BYTE	FC.KIL,FM.CRA	; KIL function and CRA modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 6
CEXSLT.M11    30-DEC-82 00:31		$DDGET - GET CHARACTERISTICS

   236						.SBTTL	$DDGET - Get Characteristics
   237					;++
   238					; FUNCTIONAL DESCRIPTION:
   239					;
   240					;	This call passes a CCB to the DDM with a request to
   241					;	get the characteristics of the line.
   242					;
   243					;	The following information is inserted into the CCB
   244					;	and may be examined by the DDM:
   245					;	    C.FNC	FC.CTL
   246					;	    C.MOD	FM.GET
   247					;
   248					; CALLING SEQUENCE:
   249					;
   250					;	CALL	$DDGET
   251					;
   252					; INPUT PARAMETERS:
   253					;
   254					;	R4 = Address of CCB containing:
   255					;	    C.LIX	line index.
   256					;
   257					; IMPLICIT INPUTS:
   258					;
   259					;	None
   260					;
   261					; OUTPUT PARAMETERS:
   262					;
   263					;	None
   264					;
   265					; IMPLICIT OUTPUTS:
   266					;
   267					;	None
   268					;
   269					; CONDITION CODES:
   270					;
   271					;	None
   272					;
   273					; SIDE EFFECTS:
   274					;
   275					;	Register R4 is not preserved.
   276					;--
   277
   278		000042'				.PSECT	$CODE$,I,RO
   279	000042'				$DDGET::PLVL$			; Crash if not at process level.
   280	000042'					CCBCK$			; Verify CCB address.
   281	000042'	004567	000436			JSR	R5,DDMSM	; Queue with
   282	000046'	   010	   014			.BYTE	FC.CTL,FM.GET	; CTL function and GET modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 7
CEXSLT.M11    30-DEC-82 00:31		$DDKCP - KILL COMPLETE

   284						.SBTTL	$DDKCP - Kill Complete
   285					;++
   286					; FUNCTIONAL DESCRIPTION:
   287					;
   288					;	Return the given ccb to the DLC with an operation status.
   289					;
   290					;	The following information is inserted into the CCB
   291					;	and may be examined by the DLC:
   292					;	    C.FNC	FC.KCP
   293					;	    C.STS	given kill status code
   294					;
   295					; CALLING SEQUENCE:
   296					;
   297					;	CALL	$DDKCP
   298					;
   299					; INPUT PARAMETERS:
   300					;
   301					;	R4 = Address of CCB containing:
   302					;	    C.LIX	line index.
   303					;	R3 = Operation completion status.
   304					;
   305					; IMPLICIT INPUTS:
   306					;
   307					;	None
   308					;
   309					; OUTPUT PARAMETERS:
   310					;
   311					;	None
   312					;
   313					; IMPLICIT OUTPUTS:
   314					;
   315					;	None
   316					;
   317					; CONDITION CODES:
   318					;
   319					;	None
   320					;
   321					; SIDE EFFECTS:
   322					;
   323					;	Registers R3 and R4 are not preserved.
   324					;--
   325
   326		000050'				.PSECT	$CODE$,I,RO
   327	000050'				$DDKCP::PLVL$			; Crash if not at process level.
   328	000050'					CCBCK$			; Verify CCB address.
   329	000050'	004567	000446			JSR	R5,DDMSS	; Queue with status
   330	000054'	   020	   000			.BYTE	FC.KCP,0	; and KCP function.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 8
CEXSLT.M11    30-DEC-82 00:31		$DDKIL - KILL RECEIVES AND TRANSMITS

   332						.SBTTL	$DDKIL - Kill Receives and Transmits
   333					;++
   334					; FUNCTIONAL DESCRIPTION:
   335					;
   336					;	The call passes a CCB to the DDM with a request to kill
   337					;	all outstanding transmits and receives.
   338					;
   339					;	The following information is inserted into the CCB
   340					;	and may be examined by the DDM:
   341					;	    C.FNC	FC.KIL
   342					;	    C.MOD	FM.KIL
   343					;
   344					; CALLING SEQUENCE:
   345					;
   346					;	CALL	$DDKIL
   347					;
   348					; INPUT PARAMETERS:
   349					;
   350					;	R4 = Address of CCB containing:
   351					;	    C.LIX	line index.
   352					;
   353					; IMPLICIT INPUTS:
   354					;
   355					;	None
   356					;
   357					; OUTPUT PARAMETERS:
   358					;
   359					;	None
   360					;
   361					; IMPLICIT OUTPUTS:
   362					;
   363					;	None
   364					;
   365					; CONDITION CODES:
   366					;
   367					;	None
   368					;
   369					; SIDE EFFECTS:
   370					;
   371					;	Register R4 is not preserved.
   372					;--
   373
   374		000056'				.PSECT	$CODE$,I,RO
   375	000056'				$DDKIL::PLVL$			; Crash if not at process level.
   376	000056'					CCBCK$			; Verify CCB address.
   377	000056'	004567	000422			JSR	R5,DDMSM	; Queue with
   378	000062'	   006	   000			.BYTE	FC.KIL,FM.KIL	; KIL function and KIL modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 9
CEXSLT.M11    30-DEC-82 00:31		$DDMDB - GET DDM DATA BASE

   380						.SBTTL	$DDMDB - Get DDM Data Base
   381					;++
   382					; FUNCTIONAL DESCRIPTION:
   383					;
   384					;	Get access to the DDM data base for a system line.
   385					;
   386					;	This call can only be made from the DDM owning the line.
   387					;
   388					; CALLING SEQUENCE:
   389					;
   390					;	CALL	$DDMDB
   391					;
   392					; INPUT PARAMETERS:
   393					;
   394					;	R5 = line index.
   395					;
   396					; IMPLICIT INPUTS:
   397					;
   398					;	None
   399					;
   400					; OUTPUT PARAMETERS:
   401					;
   402					;	R5 = address of the DDM data base.
   403					;
   404					; IMPLICIT OUTPUTS:
   405					;
   406					;	None
   407					;
   408					; CONDITION CODES:
   409					;
   410					;	None
   411					;
   412					; SIDE EFFECTS:
   413					;
   414					;	None
   415					;--
   416
   417		000064'				.PSECT	$CODE$,I,RO
   418	000064'				$DDMDB::PLVL$			; Crash if not at process level.
   419	000064'					PUSH$S	R1
   420	000066'	010501				MOV	R5,R1
   421	000070'	005301				DEC	R1		; If line index
   422
   423		   001				.IF	NE,D$$BUG
   424						CMP	.SLTNM,R1	; is out of range
   425						BLO	100$		; then crash.
   426						.IFTF
   427
   428	000072'	070127	000010			MUL	#L.LEN,R1
   429	000076'	066701	000000G			ADD	.SLTTA,R1
   430	000102'	116101	000000			MOVB	L.DDM(R1),R1
   431	000106'	006301				ASL	R1
   432	000110'	016101	000000G			MOV	.PDBVB(R1),R1
   433
   434						.IFT
   435						CMP	@.CRPDB,(R1)	; If not owning code
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 9-1
CEXSLT.M11    30-DEC-82 00:31		$DDMDB - GET DDM DATA BASE

   436						BNE	101$		; then crash,
   437						.IFTF
   438
   439	000114'	016705	000000G			MOV	.CRPDB,R5	; otherwise
   440	000120'	005725				TST	(R5)+
   441	000122'	016725	000000G			MOV	.CRDSP,(R5)+	; save old context.
   442	000126'	016725	000000G			MOV	.CRDAT+0,(R5)+
   443	000132'	016715	000002G			MOV	.CRDAT+2,(R5)
   444	000136'	010167	000000G			MOV	R1,.CRPDB	; Set new process
   445	000142'	005721				TST	(R1)+		; and pick up
   446	000144'	012167	000000G			MOV	(R1)+,.CRDSP	; dispatch address,
   447	000150'					MAP$	(R1)
   448	000154'	012167	000000G			MOV	(R1)+,.CRDAT+0	; bias,
   449	000160'	011105				MOV	(R1),R5
   450	000162'	012167	000002G			MOV	(R1)+,.CRDAT+2	; address,
   451	000166'	111167	000000G			MOVB	(R1),.CRPIX	; and index.
   452	000172'					POP$S	R1
   453	000174'	000207				RETURN
   454
   455						.IFT
   456					100$:	POP$S	R1
   457						CRSH$S	LIX		; Invalid line index
   458					101$:	POP$S	R1
   459						CRSH$S	DDO		; DDM data base being accessed by stranger
   460		   000				.ENDC
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 10
CEXSLT.M11    30-DEC-82 00:31		$DDRCE - RECEIVE ENABLE

   462						.SBTTL	$DDRCE - Receive Enable
   463					;++
   464					; FUNCTIONAL DESCRIPTION:
   465					;
   466					;	This routine is used to return CCB/buffers to the DDM
   467					;	after the DLC no longer needs them.
   468					;
   469					;	The following information is inserted into the CCB
   470					;	and may be examined by the DDM:
   471					;	    C.FNC	FC.RCE
   472					;	    C.MOD	FM.DAT
   473					;
   474					; CALLING SEQUENCE:
   475					;
   476					;	CALL	$DDRCE
   477					;
   478					; INPUT PARAMETERS:
   479					;
   480					;	R4 = Address of CCB chain, the first containing:
   481					;	    C.LIX	line index.
   482					;
   483					; IMPLICIT INPUTS:
   484					;
   485					;	None
   486					;
   487					; OUTPUT PARAMETERS:
   488					;
   489					;	None
   490					;
   491					; IMPLICIT OUTPUTS:
   492					;
   493					;	None
   494					;
   495					; CONDITION CODES:
   496					;
   497					;	None
   498					;
   499					; SIDE EFFECTS:
   500					;
   501					;	Register R4 is not preserved.
   502					;--
   503
   504		000176'				.PSECT	$CODE$,I,RO
   505	000176'				$DDRCE::PLVL$			; Crash if not at process level.
   506	000176'					CCBCK$			; Verify CCB address.
   507	000176'	004567	000302			JSR	R5,DDMSM	; Queue with
   508	000202'	   004	   000			.BYTE	FC.RCE,FM.DAT	; RCE function and DAT modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 11
CEXSLT.M11    30-DEC-82 00:31		$DDRCP - RECEIVE COMPLETE

   510						.SBTTL	$DDRCP - Receive Complete
   511					;++
   512					; FUNCTIONAL DESCRIPTION:
   513					;
   514					;	Pass the given receive RDB to the DLC with an
   515					;	operation status.
   516					;
   517					;	The following information is inserted into the CCB
   518					;	and may be examined by the DLC:
   519					;	    C.FNC	FC.RCP
   520					;	    C.STS	given receive status code
   521					;
   522					; CALLING SEQUENCE:
   523					;
   524					;	CALL	$DDRCP
   525					;
   526					; INPUT PARAMETERS:
   527					;
   528					;	R4 = Address of CCB chain, the first containing:
   529					;	    C.LIX	line index.
   530					;	R3 = Operation completion status.
   531					;
   532					; IMPLICIT INPUTS:
   533					;
   534					;	None
   535					;
   536					; OUTPUT PARAMETERS:
   537					;
   538					;	None
   539					;
   540					; IMPLICIT OUTPUTS:
   541					;
   542					;	None
   543					;
   544					; CONDITION CODES:
   545					;
   546					;	None
   547					;
   548					; SIDE EFFECTS:
   549					;
   550					;	Registers R3 and R4 are not preserved.
   551					;--
   552
   553		000204'				.PSECT	$CODE$,I,RO
   554	000204'				$DDRCP::PLVL$			; Crash if not at process level.
   555	000204'					CCBCK$			; Verify CCB address.
   556	000204'	004567	000312			JSR	R5,DDMSS	; Queue with status
   557	000210'	   016	   000			.BYTE	FC.RCP,0	; and RCP function.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 12
CEXSLT.M11    30-DEC-82 00:31		$DDSET - SET CHARACTERISTICS

   559						.SBTTL	$DDSET - Set Characteristics
   560					;++
   561					; FUNCTIONAL DESCRIPTION:
   562					;
   563					;	This call passes a CCB to the DDM with a request to set the
   564					;	charactersistics of the line.
   565					;
   566					;	The following information is inserted into the CCB
   567					;	and may be examined by the DDM:
   568					;	    C.FNC	FC.CTL
   569					;	    C.MOD	FM.SET
   570					;
   571					; CALLING SEQUENCE:
   572					;
   573					;	CALL	$DDSET
   574					;
   575					; INPUT PARAMETERS:
   576					;
   577					;	R4 = Address of CCB containing:
   578					;	    C.LIX	line index.
   579					;
   580					; IMPLICIT INPUTS:
   581					;
   582					;	None
   583					;
   584					; OUTPUT PARAMETERS:
   585					;
   586					;	None
   587					;
   588					; IMPLICIT OUTPUTS:
   589					;
   590					;	None
   591					;
   592					; CONDITION CODES:
   593					;
   594					;	None
   595					;
   596					; SIDE EFFECTS:
   597					;
   598					;	Register R4 is not preserved.
   599					;--
   600
   601		000212'				.PSECT	$CODE$,I,RO
   602	000212'				$DDSET::PLVL$			; Crash if not at process level.
   603	000212'					CCBCK$			; Verify CCB address.
   604	000212'	004567	000266			JSR	R5,DDMSM	; Queue with
   605	000216'	   010	   012			.BYTE	FC.CTL,FM.SET	; CTL function and SET modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 13
CEXSLT.M11    30-DEC-82 00:31		$DDSTP - STOP LINE

   607						.SBTTL	$DDSTP - Stop Line
   608					;++
   609					; FUNCTIONAL DESCRIPTION:
   610					;
   611					;	This call passes a CCB to the DDM with a request to stop
   612					;	the specified line.
   613					;
   614					;	The following information is inserted into the CCB
   615					;	and may be examined by the DDM:
   616					;	    C.FNC	FC.CTL
   617					;	    C.MOD	FM.STP
   618					;
   619					; CALLING SEQUENCE:
   620					;
   621					;	CALL	$DDSTP
   622					;
   623					; INPUT PARAMETERS:
   624					;
   625					;	R4 = Address of CCB containing:
   626					;	    C.LIX	line index.
   627					;
   628					; IMPLICIT INPUTS:
   629					;
   630					;	None
   631					;
   632					; OUTPUT PARAMETERS:
   633					;
   634					;	None
   635					;
   636					; IMPLICIT OUTPUTS:
   637					;
   638					;	None
   639					;
   640					; CONDITION CODES:
   641					;
   642					;	None
   643					;
   644					; SIDE EFFECTS:
   645					;
   646					;	Register R4 is not preserved.
   647					;--
   648
   649		000220'				.PSECT	$CODE$,I,RO
   650	000220'				$DDSTP::PLVL$			; Crash if not at process level.
   651	000220'					CCBCK$			; Verify CCB address.
   652	000220'	004567	000260			JSR	R5,DDMSM	; Queue with
   653	000224'	   010	   004			.BYTE	FC.CTL,FM.STP	; CTL function and STP modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 14
CEXSLT.M11    30-DEC-82 00:31		$DDSTR - START LINE

   655						.SBTTL	$DDSTR - Start Line
   656					;++
   657					; FUNCTIONAL DESCRIPTION:
   658					;
   659					;	This call passes a CCB to the DDM with a request to start
   660					;	the specified line.
   661					;
   662					;	The following information is inserted into the CCB
   663					;	and may be examined by the DDM:
   664					;	    C.FNC	FC.CTL
   665					;	    C.MOD	FM.STR
   666					;
   667					; CALLING SEQUENCE:
   668					;
   669					;	CALL	$DDSTR
   670					;
   671					; INPUT PARAMETERS:
   672					;
   673					;	R4 = Address of CCB containing:
   674					;	    C.LIX	line index.
   675					;
   676					; IMPLICIT INPUTS:
   677					;
   678					;	None
   679					;
   680					; OUTPUT PARAMETERS:
   681					;
   682					;	None
   683					;
   684					; IMPLICIT OUTPUTS:
   685					;
   686					;	None
   687					;
   688					; CONDITION CODES:
   689					;
   690					;	None
   691					;
   692					; SIDE EFFECTS:
   693					;
   694					;	Register R4 is not preserved.
   695					;--
   696
   697		000226'				.PSECT	$CODE$,I,RO
   698	000226'				$DDSTR::PLVL$			; Crash if not at process level.
   699	000226'					CCBCK$			; Verify CCB address.
   700	000226'	004567	000252			JSR	R5,DDMSM	; Queue with
   701	000232'	   010	   002			.BYTE	FC.CTL,FM.STR	; CTL function and STR modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 15
CEXSLT.M11    30-DEC-82 00:31		$DDXCP - TRANSMIT COMPLETE

   703						.SBTTL	$DDXCP - Transmit Complete
   704					;++
   705					; FUNCTIONAL DESCRIPTION:
   706					;
   707					;	Return the given transmit CCB/buffer chain to the DLC
   708					;	with an operation status.
   709					;
   710					;	The following information is inserted into the CCB
   711					;	and may be examined by the DLC:
   712					;	    C.FNC	FC.XCP
   713					;	    C.STS	given transmit status code
   714					;
   715					; CALLING SEQUENCE:
   716					;
   717					;	CALL	$DDXCP
   718					;
   719					; INPUT PARAMETERS:
   720					;
   721					;	R4 = Address of CCB chain, the first containing:
   722					;	    C.LIX	line index.
   723					;	R3 = Operation completion status.
   724					;
   725					; IMPLICIT INPUTS:
   726					;
   727					;	None
   728					;
   729					; OUTPUT PARAMETERS:
   730					;
   731					;	None
   732					;
   733					; IMPLICIT OUTPUTS:
   734					;
   735					;	None
   736					;
   737					; CONDITION CODES:
   738					;
   739					;	None
   740					;
   741					; SIDE EFFECTS:
   742					;
   743					;	Registers R3 and R4 are not preserved.
   744					;--
   745
   746		000234'				.PSECT	$CODE$,I,RO
   747	000234'				$DDXCP::PLVL$			; Crash if not at process level.
   748	000234'					CCBCK$			; Verify CCB address.
   749	000234'	004567	000262			JSR	R5,DDMSS	; Queue with status
   750	000240'	   014	   000			.BYTE	FC.XCP,0	; and XCP function.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 16
CEXSLT.M11    30-DEC-82 00:31		$DDXKL - KILL TRANSMITS

   752						.SBTTL	$DDXKL - Kill Transmits
   753					;++
   754					; FUNCTIONAL DESCRIPTION:
   755					;
   756					;	This call passes a CCB to the DDM with a request to kill
   757					;	all outstanding transmits.
   758					;
   759					;	The following information is inserted into the CCB
   760					;	and may be examined by the DDM:
   761					;	    C.FNC	FC.KIL
   762					;	    C.MOD	FM.XKL
   763					;
   764					; CALLING SEQUENCE:
   765					;
   766					;	CALL	$DDXKL
   767					;
   768					; INPUT PARAMETERS:
   769					;
   770					;	R4 = Address of CCB containing:
   771					;	    C.LIX	line index.
   772					;
   773					; IMPLICIT INPUTS:
   774					;
   775					;	None
   776					;
   777					; OUTPUT PARAMETERS:
   778					;
   779					;	None
   780					;
   781					; IMPLICIT OUTPUTS:
   782					;
   783					;	None
   784					;
   785					; CONDITION CODES:
   786					;
   787					;	None
   788					;
   789					; SIDE EFFECTS:
   790					;
   791					;	Register R4 is not preserved.
   792					;--
   793
   794		000242'				.PSECT	$CODE$,I,RO
   795	000242'				$DDXKL::PLVL$			; Crash if not at process level.
   796	000242'					CCBCK$			; Verify CCB address.
   797	000242'	004567	000236			JSR	R5,DDMSM	; Queue with
   798	000246'	   006	   004			.BYTE	FC.KIL,FM.XKL	; KIL function and XKL modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 17
CEXSLT.M11    30-DEC-82 00:31		$DDXME - TRANSMIT ENABLE

   800						.SBTTL	$DDXME - Transmit Enable
   801					;++
   802					; FUNCTIONAL DESCRIPTION:
   803					;
   804					;	This call passes a CCB/buffer chain to the DDM for transmission.
   805					;
   806					;	The following information is inserted into the CCB
   807					;	and may be examined by the DDM:
   808					;	    C.FNC	FC.XME
   809					;
   810					; CALLING SEQUENCE:
   811					;
   812					;	CALL	$DDXME
   813					;
   814					; INPUT PARAMETERS:
   815					;
   816					;	R4 = Address of CCB chain, the first containing:
   817					;	    C.LIX	line index.
   818					;
   819					; IMPLICIT INPUTS:
   820					;
   821					;	None
   822					;
   823					; OUTPUT PARAMETERS:
   824					;
   825					;	None
   826					;
   827					; IMPLICIT OUTPUTS:
   828					;
   829					;	None
   830					;
   831					; CONDITION CODES:
   832					;
   833					;	None
   834					;
   835					; SIDE EFFECTS:
   836					;
   837					;	Register R4 is not preserved.
   838					;--
   839
   840		000250'				.PSECT	$CODE$,I,RO
   841	000250'				$DDXME::PLVL$			; Crash if not at process level.
   842	000250'					CCBCK$			; Verify CCB address.
   843	000250'	004567	000254			JSR	R5,DDMSF	; Queue with
   844	000254'	   002	   000			.BYTE	FC.XME,0	; XME function.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 18
CEXSLT.M11    30-DEC-82 00:31		$DLAST - SEND ASYNCHRONOUS NOTIFICATION

   846						.SBTTL	$DLAST - Send Asynchronous Notification
   847					;++
   848					; FUNCTIONAL DESCRIPTION:
   849					;
   850					;	This routine attempts to allocate a CCB for the DLC and
   851					;	queue it to the LLC with an asynchronous status notification.
   852					;
   853					;	If the CCB allocation fails, the call returns with a failure
   854					;	indication.
   855					;
   856					;	The following information will be inserted into the CCB and
   857					;	may be examined by the LLC:
   858					;	    C.FNC	FC.AST
   859					;	    C.LIX	given line index
   860					;	    C.PIX	0
   861					;	    C.STS	given asynchronous status code
   862					;
   863					; CALLING SEQUENCE:
   864					;
   865					;	CALL	$DLAST
   866					;
   867					; INPUT PARAMETERS:
   868					;
   869					;	R3 = Asynchronous status code.
   870					;	R2 = Line index.
   871					;
   872					; IMPLICIT INPUTS:
   873					;
   874					;	None
   875					;
   876					; OUTPUT PARAMETERS:
   877					;
   878					;	None
   879					;
   880					; IMPLICIT OUTPUTS:
   881					;
   882					;	None
   883					;
   884					; CONDITION CODES:
   885					;
   886					;	C-bit set = Resource allocation failure.
   887					;	C-bit clear = Operation succeeded.
   888					;
   889					; SIDE EFFECTS:
   890					;
   891					;	The routine $CCBGT is called.
   892					;
   893					;	Registers R3 and R4 are not preserved.
   894					;--
   895
   896		000256'				.PSECT	$CODE$,I,RO
   897	000256'				$DLAST::PLVL$			; Crash if not at process level.
   898	000256'	004767	000000G			CALL	$CCBGT		; Try to get a CCB
   899	000262'	103407				BCS	90$		; and if successful
   900	000264'	110264	000010			MOVB	R2,C.LIX(R4)	; then set line index
   901	000270'	105064	000013			CLRB	C.MOD(R4)	; and no function modifier.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 18-1
CEXSLT.M11    30-DEC-82 00:31		$DLAST - SEND ASYNCHRONOUS NOTIFICATION

   902	000274'	004567	000260			JSR	R5,DLCSS	; Queue with status,
   903	000300'	   000	   000			.BYTE	FC.AST,0	; AST function and new CCB owner.
   904
   905	000302'	000207			90$:	RETURN			; Return in shame.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 19
CEXSLT.M11    30-DEC-82 00:31		$DLCCP - CONTROL COMPLETE

   907						.SBTTL	$DLCCP - Control Complete
   908					;++
   909					; FUNCTIONAL DESCRIPTION:
   910					;
   911					;	Return the given control CCB to the LLC with an
   912					;	operation status.
   913					;
   914					;	The following information will be inserted into the CCB
   915					;	and may be examined by the LLC:
   916					;	    C.FNC	FC.CCP
   917					;	    C.PIX	0
   918					;	    C.STS	given control status code
   919					;
   920					; CALLING SEQUENCE:
   921					;
   922					;	CALL	$DLCCP
   923					;
   924					; INPUT PARAMETERS:
   925					;
   926					;	R4 = Address of CCB containing:
   927					;	    C.LIX	line index.
   928					;	R3 = Operation completion status code.
   929					;
   930					; IMPLICIT INPUTS:
   931					;
   932					;	None
   933					;
   934					; OUTPUT PARAMETERS:
   935					;
   936					;	None
   937					;
   938					; IMPLICIT OUTPUTS:
   939					;
   940					;	None
   941					;
   942					; CONDITION CODES:
   943					;
   944					;	None
   945					;
   946					; SIDE EFFECTS:
   947					;
   948					;	Registers R3 and R4 are not preserved.
   949					;--
   950
   951		000304'				.PSECT	$CODE$,I,RO
   952	000304'				$DLCCP::PLVL$			; Crash if not at process level.
   953	000304'					CCBCK$			; Verify CCB address.
   954	000304'	004567	000250			JSR	R5,DLCSS
   955	000310'	   022	   000			.BYTE	FC.CCP,0
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 20
CEXSLT.M11    30-DEC-82 00:31		$DLCDB - GET DLC DATA BASE

   957						.SBTTL	$DLCDB - Get DLC Data Base
   958					;++
   959					; FUNCTIONAL DESCRIPTION:
   960					;
   961					;	Get access to the DLC data base for a system line.
   962					;
   963					;	This call can only be made from the DLC owning the line.
   964					;
   965					; CALLING SEQUENCE:
   966					;
   967					;	CALL	$DLCDB
   968					;
   969					; INPUT PARAMETERS:
   970					;
   971					;	R5 = line index.
   972					;
   973					; IMPLICIT INPUTS:
   974					;
   975					;	.CRPIX = process index of current process.
   976					;
   977					; OUTPUT PARAMETERS:
   978					;
   979					;	R5 = address of system line table.
   980					;
   981					; IMPLICIT OUTPUTS:
   982					;
   983					;	KISAR6 = mapped to the system line table.
   984					;
   985					; CONDITION CODES:
   986					;
   987					;	None
   988					;
   989					; SIDE EFFECTS:
   990					;
   991					;	None
   992					;--
   993
   994		000312'				.PSECT	$CODE$,I,RO
   995	000312'				$DLCDB::PLVL$			; Crash if not at process level.
   996	000312'					PUSH$S	R1
   997	000314'	010501				MOV	R5,R1
   998	000316'	005301				DEC	R1		; If line index
   999
  1000		   001				.IF	NE,D$$BUG
  1001						CMP	.SLTNM,R1	; is out of range
  1002						BLO	100$		; then crash.
  1003						.IFTF
  1004
  1005	000320'	070127	000010			MUL	#L.LEN,R1
  1006	000324'	066701	000000G			ADD	.SLTTA,R1
  1007	000330'	116101	000002			MOVB	L.DLC(R1),R1
  1008	000334'	006301				ASL	R1
  1009	000336'	016101	000000G			MOV	.PDBVB(R1),R1
  1010
  1011						.IFT
  1012						CMP	@.CRPDB,(R1)	; If not owning code
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 20-1
CEXSLT.M11    30-DEC-82 00:31		$DLCDB - GET DLC DATA BASE

  1013						BNE	101$		; then crash,
  1014						.IFTF
  1015
  1016
  1017	000342'	016705	000000G			MOV	.CRPDB,R5	; otherwise
  1018	000346'	005725				TST	(R5)+
  1019	000350'	016725	000000G			MOV	.CRDSP,(R5)+	; save old context.
  1020	000354'	016725	000000G			MOV	.CRDAT+0,(R5)+
  1021	000360'	016715	000002G			MOV	.CRDAT+2,(R5)
  1022	000364'	010167	000000G			MOV	R1,.CRPDB	; Set new process
  1023	000370'	005721				TST	(R1)+		; and pick up
  1024	000372'	012167	000000G			MOV	(R1)+,.CRDSP	; dispatch address,
  1025	000376'					MAP$	(R1)
  1026	000402'	012167	000000G			MOV	(R1)+,.CRDAT+0	; bias,
  1027	000406'	011105				MOV	(R1),R5
  1028	000410'	012167	000002G			MOV	(R1)+,.CRDAT+2	; address,
  1029	000414'	111167	000000G			MOVB	(R1),.CRPIX	; and index.
  1030	000420'					POP$S	R1
  1031	000422'	000207				RETURN
  1032
  1033						.IFT
  1034					100$:	POP$S	R1
  1035						CRSH$S	LIX		; Invalid line index
  1036					101$:	POP$S	R1
  1037						CRSH$S	DLO		; DDM data base being accessed by stranger
  1038		   000				.ENDC
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 21
CEXSLT.M11    30-DEC-82 00:31		$DLGET - GET CHARACTERISTICS

  1040						.SBTTL	$DLGET - Get Characteristics
  1041					;++
  1042					; FUNCTIONAL DESCRIPTION:
  1043					;
  1044					;	This call passes a CCB to the DLC with a request to get
  1045					;	the characteristics of the line.
  1046					;
  1047					;	The following information will be inserted into the CCB
  1048					;	and may be examined by the DLC:
  1049					;	    C.FNC	FC.CTL
  1050					;	    C.MOD	FM.GET
  1051					;
  1052					; CALLING SEQUENCE:
  1053					;
  1054					;	CALL	$DLGET
  1055					;
  1056					; INPUT PARAMETERS:
  1057					;
  1058					;	R4 = Address of CCB containing:
  1059					;	    C.LIX	line index.
  1060					;
  1061					; IMPLICIT INPUTS:
  1062					;
  1063					;	None
  1064					;
  1065					; OUTPUT PARAMETERS:
  1066					;
  1067					;	None
  1068					;
  1069					; IMPLICIT OUTPUTS:
  1070					;
  1071					;	None
  1072					;
  1073					; CONDITION CODES:
  1074					;
  1075					;	None
  1076					;
  1077					; SIDE EFFECTS:
  1078					;
  1079					;	Register R4 is not preserved.
  1080					;--
  1081
  1082		000424'				.PSECT	$CODE$,I,RO
  1083	000424'				$DLGET::PLVL$			; Crash if not at process level.
  1084	000424'					CCBCK$			; Verify CCB address.
  1085	000424'	004567	000112			JSR	R5,DLCSM
  1086	000430'	   010	   014			.BYTE	FC.CTL,FM.GET
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 22
CEXSLT.M11    30-DEC-82 00:31		$DLRCE - RECEIVE ENABLE

  1088						.SBTTL	$DLRCE - Receive Enable
  1089					;++
  1090					; FUNCTIONAL DESCRIPTION:
  1091					;
  1092					;	This routine is used to return CCB/buffers to the DDM
  1093					;	after the LLC no longer needs them.
  1094					;
  1095					;	The following information will be inserted in the CCB
  1096					;	and may be examined by the DLC:
  1097					;	    C.FNC	FC.RCE
  1098					;
  1099					; CALLING SEQUENCE:
  1100					;
  1101					;	CALL	$DLRCE
  1102					;
  1103					; INPUT PARAMETERS:
  1104					;
  1105					;	R4 = Address of CCB chain, the first containing:
  1106					;	    C.LIX	line index.
  1107					;
  1108					; IMPLICIT INPUTS:
  1109					;
  1110					;	None
  1111					;
  1112					; OUTPUT PARAMETERS:
  1113					;
  1114					;	None
  1115					;
  1116					; IMPLICIT OUTPUTS:
  1117					;
  1118					;	None
  1119					;
  1120					; CONDITION CODES:
  1121					;
  1122					;	None
  1123					;
  1124					; SIDE EFFECTS:
  1125					;
  1126					;	Register R4 is not preserved.
  1127					;--
  1128
  1129		000432'				.PSECT	$CODE$,I,RO
  1130	000432'				$DLRCE::PLVL$			; Crash if not at process level.
  1131	000432'					CCBCK$			; Verify CCB address.
  1132	000432'	004567	000130			JSR	R5,DLCSF
  1133	000436'	   004	   000			.BYTE	FC.RCE,0
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 23
CEXSLT.M11    30-DEC-82 00:31		$DLRCP - RECEIVE COMPLETE

  1135						.SBTTL	$DLRCP - Receive Complete
  1136					;++
  1137					; FUNCTIONAL DESCRIPTION:
  1138					;
  1139					;	Pass the given chain of CCB/buffers to the LLC with the
  1140					;	given operation status.
  1141					;
  1142					;	The following information will be inserted into the CCB
  1143					;	and may be examined by the LLC:
  1144					;	    C.FNC	FC.RCP
  1145					;	    C.PIX	0
  1146					;	    C.STS	given receive status code.
  1147					;
  1148					; CALLING SEQUENCE:
  1149					;
  1150					;	CALL	$DLRCP
  1151					;
  1152					; INPUT PARAMETERS:
  1153					;
  1154					;	R4 = Address of CCB chain, the first containing:
  1155					;	    C.LIX	line index.
  1156					;	R3 = Operation complete status code.
  1157					;
  1158					; IMPLICIT INPUTS:
  1159					;
  1160					;	None
  1161					;
  1162					; OUTPUT PARAMETERS:
  1163					;
  1164					;	None
  1165					;
  1166					; IMPLICIT OUTPUTS:
  1167					;
  1168					;	None
  1169					;
  1170					; CONDITION CODES:
  1171					;
  1172					;	None
  1173					;
  1174					; SIDE EFFECTS:
  1175					;
  1176					;	Registers R3 and R4 are not preserved.
  1177					;--
  1178
  1179		000440'				.PSECT	$CODE$,I,RO
  1180	000440'				$DLRCP::PLVL$			; Crash if not at process level.
  1181	000440'					CCBCK$			; Verify CCB address.
  1182	000440'	004567	000114			JSR	R5,DLCSS
  1183	000444'	   016	   000			.BYTE	FC.RCP,0
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 24
CEXSLT.M11    30-DEC-82 00:31		$DLSET - SET CHARACTERISTICS

  1185						.SBTTL	$DLSET - Set Characteristics
  1186					;++
  1187					; FUNCTIONAL DESCRIPTION:
  1188					;
  1189					;	This call passes a CCB to the DLC with a request to set
  1190					;	the characteristics of the line.
  1191					;
  1192					;	The following information will be inserted into the CCB
  1193					;	and may be examined by the DLC:
  1194					;	    C.FNC	FC.CTL
  1195					;	    C.MOD	FM.SET
  1196					;
  1197					; CALLING SEQUENCE:
  1198					;
  1199					;	CALL	$DLSET
  1200					;
  1201					; INPUT PARAMETERS:
  1202					;
  1203					;	R4 = Address of CCB conatining:
  1204					;	    C.LIX	line index.
  1205					;
  1206					; IMPLICIT INPUTS:
  1207					;
  1208					;	None
  1209					;
  1210					; OUTPUT PARAMETERS:
  1211					;
  1212					;	None
  1213					;
  1214					; IMPLICIT OUTPUTS:
  1215					;
  1216					;	None
  1217					;
  1218					; CONDITION CODES:
  1219					;
  1220					;	None
  1221					;
  1222					; SIDE EFFECTS:
  1223					;
  1224					;	Register R4 is not preserved.
  1225					;--
  1226
  1227		000446'				.PSECT	$CODE$,I,RO
  1228	000446'				$DLSET::PLVL$			; Crash if not at process level.
  1229	000446'					CCBCK$			; Verify CCB address.
  1230	000446'	004567	000070			JSR	R5,DLCSM
  1231	000452'	   010	   012			.BYTE	FC.CTL,FM.SET
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 25
CEXSLT.M11    30-DEC-82 00:31		$DLSTP - STOP LINE

  1233						.SBTTL	$DLSTP - Stop Line
  1234					;++
  1235					; FUNCTIONAL DESCRIPTION:
  1236					;
  1237					;	This call passes a CCB to the DLC with a request to stop
  1238					;	the specified line.
  1239					;
  1240					;	The following information will be inserted into the CCB
  1241					;	and may be examined by the DLC:
  1242					;	    C.FNC	FC.CTL
  1243					;	    C.MOD	FM.STP
  1244					;
  1245					; CALLING SEQUENCE:
  1246					;
  1247					;	CALL	$DLSTP
  1248					;
  1249					; INPUT PARAMETERS:
  1250					;
  1251					;	R4 = Address of CCB containing:
  1252					;	    C.LIX	line index.
  1253					;
  1254					; IMPLICIT INPUTS:
  1255					;
  1256					;	None
  1257					;
  1258					; OUTPUT PARAMETERS:
  1259					;
  1260					;	None
  1261					;
  1262					; IMPLICIT OUTPUTS:
  1263					;
  1264					;	None
  1265					;
  1266					; CONDITION CODES:
  1267					;
  1268					;	None
  1269					;
  1270					; SIDE EFFECTS:
  1271					;
  1272					;	Register R4 is not preserved.
  1273					;--
  1274
  1275		000454'				.PSECT	$CODE$,I,RO
  1276	000454'				$DLSTP::PLVL$			; Crash if not at process level.
  1277	000454'					CCBCK$			; Verify CCB address.
  1278	000454'	004567	000062			JSR	R5,DLCSM
  1279	000460'	   010	   004			.BYTE	FC.CTL,FM.STP
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 26
CEXSLT.M11    30-DEC-82 00:31		$DLSTR - START LINE

  1281						.SBTTL	$DLSTR - Start Line
  1282					;++
  1283					; FUNCTIONAL DESCRIPTION:
  1284					;
  1285					;	The call passes a CCB to the DLC with a request to start
  1286					;	the specified line.
  1287					;
  1288					;	The following information will be inserted in the CCB
  1289					;	and may be examined by the DLC:
  1290					;	    C.FNC	FC.CTL
  1291					;	    C.MOD	FM.STR
  1292					;
  1293					; CALLING SEQUENCE:
  1294					;
  1295					;	CALL	$DLSTR
  1296					;
  1297					; INPUT PARAMETERS:
  1298					;
  1299					;	R4 = Address of CCB containing:
  1300					;	    C.LIX	line index.
  1301					;
  1302					; IMPLICIT INPUTS:
  1303					;
  1304					;	None
  1305					;
  1306					; OUTPUT PARAMETERS:
  1307					;
  1308					;	None
  1309					;
  1310					; IMPLICIT OUTPUTS:
  1311					;
  1312					;	None
  1313					;
  1314					; CONDITION CODES:
  1315					;
  1316					;	None
  1317					;
  1318					; SIDE EFFECTS:
  1319					;
  1320					;	Register R4 is not preserved.
  1321					;--
  1322
  1323		000462'				.PSECT	$CODE$,I,RO
  1324	000462'				$DLSTR::PLVL$			; Crash if not at process level.
  1325	000462'					CCBCK$			; Verify CCB address.
  1326	000462'	004567	000054			JSR	R5,DLCSM
  1327	000466'	   010	   002			.BYTE	FC.CTL,FM.STR
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 27
CEXSLT.M11    30-DEC-82 00:31		$DLXCP - TRANSMIT COMPLETE

  1329						.SBTTL	$DLXCP - Transmit Complete
  1330					;++
  1331					; FUNCTIONAL DESCRIPTION:
  1332					;
  1333					;	Return a given transmit CCB/buffer chain to the LLC
  1334					;	with an operation status.
  1335					;
  1336					;	The following information will be inserted into the CCB
  1337					;	and may be examined by the LLC:
  1338					;	    C.FNC	FC.XCP
  1339					;	    C.PIX	0
  1340					;	    C.STS	given transmit status code.
  1341					;
  1342					; CALLING SEQUENCE:
  1343					;
  1344					;	CALL	$DLXCP
  1345					;
  1346					; INPUT PARAMETERS:
  1347					;
  1348					;	R4 = Address of CCB chain, the first containing:
  1349					;	    C.LIX	line index.
  1350					;	R3 = Operation completion status code.
  1351					;
  1352					; IMPLICIT INPUTS:
  1353					;
  1354					;	None
  1355					;
  1356					; OUTPUT PARAMETERS:
  1357					;
  1358					;	None
  1359					;
  1360					; IMPLICIT OUTPUTS:
  1361					;
  1362					;	None
  1363					;
  1364					; CONDITION CODES:
  1365					;
  1366					;	None
  1367					;
  1368					; SIDE EFFECTS:
  1369					;
  1370					;	Registers R3 and R4 are not preserved.
  1371					;--
  1372
  1373		000470'				.PSECT	$CODE$,I,RO
  1374	000470'				$DLXCP::PLVL$			; Crash if not at process level.
  1375	000470'					CCBCK$			; Verify CCB address.
  1376	000470'	004567	000064			JSR	R5,DLCSS
  1377	000474'	   014	   000			.BYTE	FC.XCP,0
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 28
CEXSLT.M11    30-DEC-82 00:31		$DLXME - TRANSMIT ENABLE

  1379						.SBTTL	$DLXME - Transmit Enable
  1380					;++
  1381					; FUNCTIONAL DESCRIPTION:
  1382					;
  1383					;	Pass the given CCB/buffer chain to the DLC for transmission.
  1384					;
  1385					;	The following information will be inserted into the CCB
  1386					;	and may examined by the DLC:
  1387					;	    C.FNC	FC.XME
  1388					;
  1389					; CALLING SEQUENCE:
  1390					;
  1391					;	R4 = Address of CCB chain, the first containing:
  1392					;	    C.LIX	line index.
  1393					;
  1394					; INPUT PARAMETERS:
  1395					;
  1396					;	None
  1397					;
  1398					; IMPLICIT INPUTS:
  1399					;
  1400					;	None
  1401					;
  1402					; OUTPUT PARAMETERS:
  1403					;
  1404					;	None
  1405					;
  1406					; IMPLICIT OUTPUTS:
  1407					;
  1408					;	None
  1409					;
  1410					; CONDITION CODES:
  1411					;
  1412					;	None
  1413					;
  1414					; SIDE EFFECTS:
  1415					;
  1416					;	Register R4 is not preserved.
  1417					;--
  1418
  1419		000476'				.PSECT	$CODE$,I,RO
  1420	000476'				$DLXME::PLVL$			; Crash if not at process level.
  1421	000476'					CCBCK$			; Verify CCB address.
  1422	000476'	004567	000064			JSR	R5,DLCSF
  1423	000502'	   002	   000			.BYTE	FC.XME,0
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 29
CEXSLT.M11    30-DEC-82 00:31		DDMSM - SET FUNCTION AND MODIFIER

  1425						.SBTTL	DDMSM - Set Function and Modifier
  1426					;++
  1427					; FUNCTIONAL DESCRIPTION:
  1428					;
  1429					;	Set the following information into the given CCB:
  1430					;	    C.FNC	function code
  1431					;	    C.MOD	function modifier
  1432					;	    C.SRC	source process index
  1433					;	    C.DST	destination process index
  1434					;	    C.OWN	destination process index (FC.AST only)
  1435					;
  1436					; CALLING SEQUENCE:
  1437					;
  1438					;	JSR	R5,DDMSM
  1439					;	.BYTE	function,modifier
  1440					;
  1441					; INPUT PARAMETERS:
  1442					;
  1443					;	R5 = function parameter block:
  1444					;	    0(R5)	function code.
  1445					;	    1(R5)	function modifier.
  1446					;	R4 = address of CCB containing:
  1447					;	    C.LIX	line index.
  1448					;
  1449					; IMPLICIT INPUTS:
  1450					;
  1451					;	On the stack:
  1452					;	    0(SP) = original contents of R5.
  1453					;	    2(SP) = return address.
  1454					;
  1455					;	.CRPIX = process index of current process.
  1456					;
  1457					; OUTPUT PARAMETERS:
  1458					;
  1459					;	R5 = original contents of R5.
  1460					;
  1461					; IMPLICIT OUTPUTS:
  1462					;
  1463					;	None
  1464					;
  1465					; CONDITION CODES:
  1466					;
  1467					;	None
  1468					;
  1469					; SIDE EFFECTS:
  1470					;
  1471					;	None
  1472					;--
  1473
  1474		000504'				.PSECT	$CODE$,I,RO
  1475	000504'				DDMSM:	SLCHK$			; Check the line index.
  1476	000504'	112564	000012			MOVB	(R5)+,C.FNC(R4)	; Set function,
  1477	000510'	111564	000013			MOVB	(R5),C.MOD(R4)	; modifier,
  1478	000514'	004167	000060			JSR	R1,CCBSC	; and then do common stuff.
  1479	000520'	177772				.WORD	L.DLC-L.LEN
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 30
CEXSLT.M11    30-DEC-82 00:31		DDMSS - SET FUNCTION AND STATUS

  1481						.SBTTL	DDMSS - Set Function and Status
  1482					;++
  1483					; FUNCTIONAL DESCRIPTION:
  1484					;
  1485					;	Set the following information into the given CCB.
  1486					;	    C.FNC	function code
  1487					;	    C.STS	completion status
  1488					;	    C.SRC	source process index
  1489					;	    C.DST	destination process index
  1490					;	    C.OWN	destination process index (FC.AST only)
  1491					;
  1492					; CALLING SEQUENCE:
  1493					;
  1494					;	JSR	R5,DDMSS
  1495					;	.BYTE	function,0
  1496					;
  1497					; INPUT PARAMETERS:
  1498					;
  1499					;	R5 = function parameter block:
  1500					;	    0(R5)	function code.
  1501					;	    1(R5)	(unused)
  1502					;	R4 = address of CCB containing:
  1503					;	    C.LIX	line index.
  1504					;	R3 = completion status.
  1505					;
  1506					; IMPLICIT INPUTS:
  1507					;
  1508					;	On the stack:
  1509					;	    0(SP) = original contents of R5.
  1510					;	    2(SP) = return address.
  1511					;
  1512					;	.CRPIX = process index of current process.
  1513					;
  1514					; OUTPUT PARAMETERS:
  1515					;
  1516					;	R5 = original contents of R5.
  1517					;
  1518					; IMPLICIT OUTPUTS:
  1519					;
  1520					;	None
  1521					;
  1522					; CONDITION CODES:
  1523					;
  1524					;	None
  1525					;
  1526					; SIDE EFFECTS:
  1527					;
  1528					;	None
  1529					;--
  1530
  1531		000522'				.PSECT	$CODE$,I,RO
  1532	000522'				DDMSS:	SLCHK$			; Check the line index.
  1533	000522'	010364	000014			MOV	R3,C.STS(R4)	; Set status
  1534	000526'	000400				BR	DDMSB		; and go to set function.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 31
CEXSLT.M11    30-DEC-82 00:31		DDMSF - SET FUNCTION

  1536						.SBTTL	DDMSF - Set Function
  1537					;++
  1538					; FUNCTIONAL DESCRIPTION:
  1539					;
  1540					;	Set the following information into the given CCB.
  1541					;	    C.FNC	function code
  1542					;	    C.SRC	source process descriptor block
  1543					;	    C.DST	destination process descriptor block
  1544					;	    C.OWN	destination process index (FC.AST only)
  1545					;
  1546					; CALLING SEQUENCE:
  1547					;
  1548					;	JSR	R5,CCBSF
  1549					;	.BYTE	function,0
  1550					;
  1551					; INPUT PARAMETERS:
  1552					;
  1553					;	R5 = function parameter block:
  1554					;	    0(R5)	function code.
  1555					;	    1(R5)	(unused)
  1556					;	R4 = address of CCB containing:
  1557					;	    C.LIX	line index.
  1558					;
  1559					; IMPLICIT INPUTS:
  1560					;
  1561					;	On the stack:
  1562					;	    0(SP) = original contents of R5.
  1563					;	    2(SP) = return address.
  1564					;
  1565					;	.CRPIX = process index of current process.
  1566					;
  1567					; OUTPUT PARAMETERS:
  1568					;
  1569					;	R5 = original contents of R5.
  1570					;
  1571					; IMPLICIT OUTPUTS:
  1572					;
  1573					;	None
  1574					;
  1575					; CONDITION CODES:
  1576					;
  1577					;	None
  1578					;
  1579					; SIDE EFFECTS:
  1580					;
  1581					;	None
  1582					;--
  1583
  1584		000530'				.PSECT	$CODE$,I,RO
  1585	000530'				DDMSF:	SLCHK$			; Check the line index.
  1586	000530'	112564	000012		DDMSB:	MOVB	(R5)+,C.FNC(R4)	; Set function
  1587	000534'	004167	000040			JSR	R1,CCBSC	; and fall through to common stuff.
  1588	000540'	177772				.WORD	L.DLC-L.LEN
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 32
CEXSLT.M11    30-DEC-82 00:31		DLCSM - SET FUNCTION AND MODIFIER

  1590						.SBTTL	DLCSM - Set Function and Modifier
  1591					;++
  1592					; FUNCTIONAL DESCRIPTION:
  1593					;
  1594					;	Set the following information into the given CCB:
  1595					;	    C.FNC	function code
  1596					;	    C.MOD	function modifier
  1597					;	    C.SRC	source process index
  1598					;	    C.DST	destination process index
  1599					;	    C.OWN	destination process index (FC.AST only)
  1600					;
  1601					; CALLING SEQUENCE:
  1602					;
  1603					;	JSR	R5,DLCSM
  1604					;	.BYTE	function,modifier
  1605					;
  1606					; INPUT PARAMETERS:
  1607					;
  1608					;	R5 = function parameter block:
  1609					;	    0(R5)	function code.
  1610					;	    1(R5)	function modifier.
  1611					;	R4 = address of CCB containing:
  1612					;	    C.LIX	line index.
  1613					;
  1614					; IMPLICIT INPUTS:
  1615					;
  1616					;	On the stack:
  1617					;	    0(SP) = original contents of R5.
  1618					;	    2(SP) = return address.
  1619					;
  1620					;	.CRPIX = process index of current process.
  1621					;
  1622					; OUTPUT PARAMETERS:
  1623					;
  1624					;	R5 = original contents of R5.
  1625					;
  1626					; IMPLICIT OUTPUTS:
  1627					;
  1628					;	None
  1629					;
  1630					; CONDITION CODES:
  1631					;
  1632					;	None
  1633					;
  1634					; SIDE EFFECTS:
  1635					;
  1636					;	None
  1637					;--
  1638
  1639		000542'				.PSECT	$CODE$,I,RO
  1640	000542'				DLCSM:	SLCHK$			; Check the line index.
  1641	000542'	112564	000012			MOVB	(R5)+,C.FNC(R4)	; Set function,
  1642	000546'	111564	000013			MOVB	(R5),C.MOD(R4)	; modifier,
  1643	000552'	004167	000022			JSR	R1,CCBSC	; and then do common stuff.
  1644	000556'	177774				.WORD	L.LLC-L.LEN
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 33
CEXSLT.M11    30-DEC-82 00:31		DLCSS - SET FUNCTION AND STATUS

  1646						.SBTTL	DLCSS - Set Function and Status
  1647					;++
  1648					; FUNCTIONAL DESCRIPTION:
  1649					;
  1650					;	Set the following information into the given CCB.
  1651					;	    C.FNC	function code
  1652					;	    C.STS	completion status
  1653					;	    C.SRC	source process index
  1654					;	    C.DST	destination process index
  1655					;	    C.OWN	destination process index (FC.AST only)
  1656					;
  1657					; CALLING SEQUENCE:
  1658					;
  1659					;	JSR	R5,DLCSS
  1660					;	.BYTE	function,0
  1661					;
  1662					; INPUT PARAMETERS:
  1663					;
  1664					;	R5 = function parameter block:
  1665					;	    0(R5)	function code.
  1666					;	    1(R5)	(unused)
  1667					;	R4 = address of CCB containing:
  1668					;	    C.LIX	line index.
  1669					;	R3 = completion status.
  1670					;
  1671					; IMPLICIT INPUTS:
  1672					;
  1673					;	On the stack:
  1674					;	    0(SP) = original contents of R5.
  1675					;	    2(SP) = return address.
  1676					;
  1677					;	.CRPIX = process index of current process.
  1678					;
  1679					; OUTPUT PARAMETERS:
  1680					;
  1681					;	R5 = original contents of R5.
  1682					;
  1683					; IMPLICIT OUTPUTS:
  1684					;
  1685					;	None
  1686					;
  1687					; CONDITION CODES:
  1688					;
  1689					;	None
  1690					;
  1691					; SIDE EFFECTS:
  1692					;
  1693					;	None
  1694					;--
  1695
  1696		000560'				.PSECT	$CODE$,I,RO
  1697	000560'				DLCSS:	SLCHK$			; Check the line index.
  1698	000560'	010364	000014			MOV	R3,C.STS(R4)	; Set status
  1699	000564'	000400				BR	DLCSB		; and go to set function.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 34
CEXSLT.M11    30-DEC-82 00:31		DLCSF - SET FUNCTION

  1701						.SBTTL	DLCSF - Set Function
  1702					;++
  1703					; FUNCTIONAL DESCRIPTION:
  1704					;
  1705					;	Set the following information into the given CCB.
  1706					;	    C.FNC	function code
  1707					;	    C.SRC	source process descriptor block
  1708					;	    C.DST	destination process descriptor block
  1709					;	    C.OWN	destination process index (FC.AST only)
  1710					;
  1711					; CALLING SEQUENCE:
  1712					;
  1713					;	JSR	R5,DLCSF
  1714					;	.BYTE	function,0
  1715					;
  1716					; INPUT PARAMETERS:
  1717					;
  1718					;	R5 = function parameter block:
  1719					;	    0(R5)	function code.
  1720					;	    1(R5)	(unused)
  1721					;	R4 = address of CCB containing:
  1722					;	    C.LIX	line index.
  1723					;
  1724					; IMPLICIT INPUTS:
  1725					;
  1726					;	On the stack:
  1727					;	    0(SP) = original contents of R5.
  1728					;	    2(SP) = return address.
  1729					;
  1730					;	.CRPIX = process index of current process.
  1731					;
  1732					; OUTPUT PARAMETERS:
  1733					;
  1734					;	R5 = original contents of R5.
  1735					;
  1736					; IMPLICIT OUTPUTS:
  1737					;
  1738					;	None
  1739					;
  1740					; CONDITION CODES:
  1741					;
  1742					;	None
  1743					;
  1744					; SIDE EFFECTS:
  1745					;
  1746					;	None
  1747					;--
  1748
  1749		000566'				.PSECT	$CODE$,I,RO
  1750	000566'				DLCSF:	SLCHK$			; Check the line index.
  1751	000566'	112564	000012		DLCSB:	MOVB	(R5)+,C.FNC(R4)	; Set function
  1752	000572'	004167	000002			JSR	R1,CCBSC	; and then do common stuff.
  1753	000576'	177774				.WORD	L.LLC-L.LEN
  1754
  1755					;
  1756					; Common code for CCBS* routines.
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 34-1
CEXSLT.M11    30-DEC-82 00:31		DLCSF - SET FUNCTION

  1757					;
  1758
  1759	000600'				CCBSC:	PUSH$S	(R1)		; Save higher level offset.
  1760	000602'	016764	000000G	000040		MOV	.CRPDB,C.SRC(R4) ; This is the source process
  1761	000610'	105064	000011			CLRB	C.PIX(R4)	; and is from system line.
  1762	000614'	116401	000010			MOVB	C.LIX(R4),R1	; Get LIX
  1763	000620'	070127	000010			MUL	#L.LEN,R1	; and index into
  1764	000624'	066701	000000G			ADD	.SLTTA,R1	; system line table
  1765	000630'	062601				ADD	(SP)+,R1	; and then into entry.
  1766	000632'	114505				MOVB	-(R5),R5	; Get function code
  1767	000634'	001414				BEQ	10$		; and if not AST
  1768	000636'	122705	000012			CMPB	#FC.TIM,R5	; then check if XCP,RCP,KCP,CCP.
  1769	000642'	103413				BLO	20$		; If not,
  1770	000644'	116105	177776			MOVB	-2(R1),R5
  1771	000650'	006305				ASL	R5
  1772	000652'	016564	000000G	000036		MOV	.PDBVB(R5),C.DST(R4) ; get lower destination
  1773	000660'	004767	000000G			CALL	$CCBQL		; and queue to lower process
  1774	000664'	000411				BR	30$		; otherwise
  1775	000666'	111164	000006		10$:	MOVB	(R1),C.OWN(R4)	; set new CCB owner if AST,
  1776	000672'	111105			20$:	MOVB	(R1),R5
  1777	000674'	006305				ASL	R5
  1778	000676'	016564	000000G	000036		MOV	.PDBVB(R5),C.DST(R4) ; higher destination,
  1779	000704'	004767	000000G			CALL	$CCBQH		; and queue to higher process.
  1780	000710'				30$:	POP$S	<R1,R5>		; Recover registers.
  1781	000714'	000241				CLC
  1782	000716'	000207				RETURN
  1783
  1784		   001				.IF	NE,D$$BUG
  1785					CCBSL:	TSTB	C.LIX(R4)	; If line index
  1786						BLE	100$		; is
  1787						CMPB	.SLTNM,C.LIX(R4) ; out of range
  1788						BLO	100$		; then crash.
  1789						RETURN
  1790
  1791					100$:	TST	(SP)+
  1792						POP$S	R5
  1793						CRSH$S	LIX		; Invalid line index
  1794		   000				.ENDC
  1795
  1796		000001				.END
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 35
CEXSLT.M11    30-DEC-82 00:31		CROSS REFERENCE TABLE -- USER SYMBOLS

CCBSC   000600R    002	 1478	 1587	 1643	 1752	 1759#
C.DST   000036        	 1772*	 1778*
C.FNC   000012        	 1476*	 1586*	 1641*	 1751*
C.LIX   000010        	  132*	  900*	 1762
C.MOD   000013        	  133*	  901*	 1477*	 1642*
C.OWN   000006        	 1775*
C.PIX   000011        	 1761*
C.SRC   000040        	 1760*
C.STS   000014        	 1533*	 1698*
DDMSB   000530R    002	 1534	 1586#
DDMSF   000530R    002	  843	 1585#
DDMSM   000504R    002	  233	  281	  377	  507	  604	  652	  700	  797	 1475#
DDMSS   000522R    002	  134	  185	  329	  556	  749	 1532#
DLCSB   000566R    002	 1699	 1751#
DLCSF   000566R    002	 1132	 1422	 1750#
DLCSM   000542R    002	 1085	 1230	 1278	 1326	 1640#
DLCSS   000560R    002	  902	  954	 1182	 1376	 1697#
D$$BUG= 000000        	  129	  183	  184	  231	  232	  279	  280	  327	  328	  375	  376	  418	  423
			  505	  506	  554	  555	  602	  603	  650	  651	  698	  699	  747	  748	  795
			  796	  841	  842	  897	  952	  953	  995	 1000	 1083	 1084	 1130	 1131	 1180
			 1181	 1228	 1229	 1276	 1277	 1324	 1325	 1374	 1375	 1420	 1421	 1475	 1532
			 1585	 1640	 1697	 1750	 1784
FC.AST= 000000        	  135	  903
FC.CCP= 000022        	  186	  955
FC.CTL= 000010        	  282	  605	  653	  701	 1086	 1231	 1279	 1327
FC.KCP= 000020        	  330
FC.KIL= 000006        	  234	  378	  798
FC.RCE= 000004        	  508	 1133
FC.RCP= 000016        	  557	 1183
FC.TIM= 000012        	 1768
FC.XCP= 000014        	  750	 1377
FC.XME= 000002        	  844	 1423
FM.CRA= 000002        	  234
FM.DAT= 000000        	  508
FM.GET= 000014        	  282	 1086
FM.KIL= 000000        	  378
FM.SET= 000012        	  605	 1231
FM.STP= 000004        	  653	 1279
FM.STR= 000002        	  701	 1327
FM.XKL= 000004        	  798
KISAR6= ****** G      	  447#*	 1025#*
L.DDM   000000        	  430
L.DLC   000002        	 1007	 1479	 1588
L.LEN   000010        	  428	 1005	 1479	 1588	 1644	 1753	 1763
L.LLC   000004        	 1644	 1753
Z.DAT   000004        	   76	   77
Z.PIX   000010        	   77
$CCBGT= ****** GX     	  130*	  898*
$CCBQH= ****** GX     	 1779*
$CCBQL= ****** GX     	 1773*
$DDAST  000000RG   002	  129#
$DDCCP  000026RG   002	  183#
$DDCRA  000034RG   002	  231#
$DDGET  000042RG   002	  279#
$DDKCP  000050RG   002	  327#
$DDKIL  000056RG   002	  375#
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 35-1
CEXSLT.M11    30-DEC-82 00:31		CROSS REFERENCE TABLE -- USER SYMBOLS

$DDMDB  000064RG   002	  418#
$DDRCE  000176RG   002	  505#
$DDRCP  000204RG   002	  554#
$DDSET  000212RG   002	  602#
$DDSTP  000220RG   002	  650#
$DDSTR  000226RG   002	  698#
$DDXCP  000234RG   002	  747#
$DDXKL  000242RG   002	  795#
$DDXME  000250RG   002	  841#
$DLAST  000256RG   002	  897#
$DLCCP  000304RG   002	  952#
$DLCDB  000312RG   002	  995#
$DLGET  000424RG   002	 1083#
$DLRCE  000432RG   002	 1130#
$DLRCP  000440RG   002	 1180#
$DLSET  000446RG   002	 1228#
$DLSTP  000454RG   002	 1276#
$DLSTR  000462RG   002	 1324#
$DLXCP  000470RG   002	 1374#
$DLXME  000476RG   002	 1420#
.CRDAT= ****** GX     	  442	  443	  448*	  450*	 1020	 1021	 1026*	 1028*
.CRDSP= ****** GX     	  441	  446*	 1019	 1024*
.CRPDB= ****** GX     	  439	  444*	 1017	 1022*	 1760
.CRPIX= ****** GX     	  451*	 1029*
.PDBVB= ****** GX     	  432	 1009	 1772	 1778
.SLTNM= ****** G      	   73#
.SLTTA= ****** G      	   74#	  429	 1006	 1764
CEXSLT - COMM/EXEC SUPPORT FOR SYSTEM LINES	DNMAC X24.07-563  28-MAY-85  14:23  PAGE 36
CEXSLT.M11    30-DEC-82 00:31		CROSS REFERENCE TABLE -- MACRO NAMES

CCBCK$	  184	  232	  280	  328	  376	  506	  555	  603	  651	  699	  748	  796	  842	  953	 1084
	 1131	 1181	 1229	 1277	 1325	 1375	 1421
CRSH$S	   53#
MAP$	  447	 1025
PLVL$	  129	  183	  231	  279	  327	  375	  418	  505	  554	  602	  650	  698	  747	  795	  841
	  897	  952	  995	 1083	 1130	 1180	 1228	 1276	 1324	 1374	 1420
POP$S	  452	 1030	 1780
PUSH$S	  419	  996	 1759
SLCHK$	   59#	 1475	 1532	 1585	 1640	 1697	 1750


. ABS.  000000     000	   CON   RW    ABS   LCL   I  
        000000     001	   CON   RW    REL   LCL   I  
$CODE$  000720     002	   CON   RO    REL   LCL   I  


 ERRORS DETECTED:  0
 DEFAULT GLOBALS GENERATED:  8

 CEXSLT,CEXSLT/CR=MCB:RSXLIB/PA:1,MCBLIB/PA:1,CEX:CEXLIB/PA:1,CEXSLT
 RUN-TIME: 4 2 .3 SECONDS
 RUN-TIME RATIO: 18/8=2.2
 CORE USED:  15K  (29 PAGES)