Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/mcb/cedlc.list
There are no other files named cedlc.list in the archive.
CEDLC	MACRO M1110  13-OCT-79 08:08
TABLE OF CONTENTS

     4-   51	$STDLC - SET UP DLC PARAMETERS FOR A GIVEN SLN
     5-   96	$ASCMP - ASYNCHRONOUS COMPLETION TO LLC LEVEL
     6-  128	$XMCMP - TRANSMIT COMPLETE TO LLC LEVEL
     6-  129	$CTCMP - CONTROL COMPLETE TO LLC LEVEL
     6-  130	$RCCMP - RECEVIE COMPLETE TO LLC LEVEL
     6-  131	$KLCMP - KILL COMPLETE TO LLC LEVEL
CEDLC	MACRO M1110  13-OCT-79 08:08  PAGE 3


      1						.TITLE	CEDLC
      2						.IDENT	/V01.02/
      3
      4					;
      5					; COPYRIGHT (C) 1978 BY
      6					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      7					;
      8					;
      9					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
     10					; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
     11					; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
     12					; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
     13					; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
     14					; TRANSFERRED.
     15					;
     16					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
     17					; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
     18					; CORPORATION.
     19					;
     20					; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
     21					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
     22					;
     23					; MODULE DESCRIPTION:
     24					;
     25					;	CEX DLC TO LLC INTERFACE ROUTINES
     26					;
     27					;
     28					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     29					;
     30					; IDENT HISTORY:
     31					;
     32					; 1.00	10-FEB-78
     33					;	VERSION 2.0 RELEASE
     34					; 1.01	8-FEB-79  ALAN D. PECKHAM
     35					;	CORRECT BUG IN $ASCMP
     36					; 1.02	11-APR-79 ALAN D. PECKHAM
     37					;	ADD CODE TO ALLOW MAPPED DLC LINE TABLES
     38					;
     39
     40					; MACRO LIBRARY CALLS
     41					;
     42						.MCALL	SAVRG,RESRG
     43						.MCALL	CCBDF$,HWDDF$,PDVDF$,SLTDF$
     44						.MCALL	CALLR		; AVOID SYSTEM DEPENDENCY
     45	000000					CCBDF$			; DEFINE CCB OFFSETS
     46	000000					HWDDF$			; DEFINE HARDWARE REGISTERS
     47	000000					PDVDF$			; DEFINE PDV OFFSETS
     48	000000					SLTDF$			; DEFINE SLT OFFSETS
     49
CEDLC	MACRO M1110  13-OCT-79 08:08  PAGE 4
$STDLC - SET UP DLC PARAMETERS FOR A GIVEN SLN

     51						.SBTTL	$STDLC - SET UP DLC PARAMETERS FOR A GIVEN SLN
     52
     53					;+
     54					; **-$STDLC-COMPUTE DLC PARAMETERS FROM A SYSTEM LINE NUMBER
     55					; **-$STDL1-(ALTERNATE ENTRY
     56					;
     57					; INPUTS:
     58					;
     59					;	R2 = SYSTEM LINE NUMBER (ALTERNATE ENTRY ONLY)
     60					;	R4 = ADDRESS OF A CCB WITH A VALID SLN IN C.LIN
     61					;	     (MAIN ENTRY ONLY)
     62					;
     63					; OUTPUTS:
     64					;
     65					;	R2 = PDV INDEX (WORD OFFSET)
     66					;	R3 = ADDRESS OF FUNCTION CODE CELL IN CCB
     67					;	R5 = ADDRESS OF DLC LINE TABLE
     68					;
     69					; REGISTERS MODIFIED:
     70					;
     71					;	NONE
     72					;-
     73
     74	000000	005002 			$STDLC::CLR	R2		; GET LINE NUMBER WITHOUT SIGN EXTENSION
     75	000002	156402 	000006 			BISB	C.LIN(R4),R2	; ...
     76
     77	000006				$STDL1::
     78	000006	006302 				ASL	R2		; MULTIPLY SLN BY 14 (L.LEN)
     79	000010	006302 				ASL	R2		; ...
     80	000012	010246 				MOV	R2,-(SP)	; ...
     81	000014	006302 				ASL	R2		; ...
     82	000016	062602 				ADD	(SP)+,R2	; ...
     83	000020	016205 	000010G			MOV	$SLTTB+L.DLS(R2),R5 ; GET LINE TABLE ADDRESS
     84
     85						.IF DF	X$$BUG
     86						BEQ	.
     87						.ENDC
     88
     89	000024	016237 	000006G	172354 		MOV	$SLTTB+L.DLM(R2),@#KISAR6 ; MAP TO IT                           ;AP0002
     90	000032	116202 	000003G			MOVB	$SLTTB+L.DLC(R2),R2 ; GET PDV INDEX (WORD INDEX)
     91	000036	010403 				MOV	R4,R3		; COMPUTE A POINTER TO THE FUNCTION CODE
     92	000040	062703 	000010 			ADD	#C.FNC,R3	; ...
     93	000044					RETURN			; RETURN TO CALLER
     94
CEDLC	MACRO M1110  13-OCT-79 08:08  PAGE 5
$ASCMP - ASYNCHRONOUS COMPLETION TO LLC LEVEL

     96						.SBTTL	$ASCMP - ASYNCHRONOUS COMPLETION TO LLC LEVEL
     97
     98					;+
     99					; **- $ASCMP -ASYNCHRONOUS COMPLETION TO LOGICAL LINK CONTROL MODULES
    100					;
    101					; THIS ROUTINE IS CALLED BY DATA LINK CONTROL PROCESSES TO PASS
    102					; ASYNCRONOUS STATUS/ERROR INFORMATION TO HIGHER LEVEL PROCESSES.
    103					;
    104					; INPUTS:
    105					;
    106					;	R2 = SYSTEM LINE NUMBER / STATION NUMBER                                ;AP0001
    107					;	R3 = ASYNCHRONOUS STATUS/ERROR                                          ;**-1
    108					;
    109					; OUTPUTS:
    110					;
    111					;	A CCB IS ALLOCATED ON BEHALF OF THE CALLER AND BASED ON THE
    112					;	SYSTEM LINE NUMBER, IS QUEUED TO THE APPROPRIATE LOGICAL
    113					;	LINK CONTROL PROCESS.
    114					;
    115					; REGISTERS MODIFIED:
    116					;
    117					;	R3 AND R4
    118					;-
    119						.ENABL	LSB
    120
    121	000046				$ASCMP::CALL	$CCBGT		; ALLOCATE A CCB
    122	000052	103455 				BCS	30$		; IF CS ERROR
    123	000054	010264 	000006 			MOV	R2,C.LIN(R4)	; SET THE LINE/STATION                          ;AP0001
    124	000060	012764 	000020 	000010 		MOV	#FC.CCP+FS.AST,C.FNC(R4) ; SET ERROR COMPLETE FUNCTION CODE
    125	000066	000417 				BR	10$		; FINISH IN COMMON CODE                         ;AP0001
    126					                                                                                ;**-2
CEDLC	MACRO M1110  13-OCT-79 08:08  PAGE 6
$XMCMP - TRANSMIT COMPLETE TO LLC LEVEL

    128						.SBTTL	$XMCMP - TRANSMIT COMPLETE TO LLC LEVEL
    129						.SBTTL	$CTCMP - CONTROL COMPLETE TO LLC LEVEL
    130						.SBTTL	$RCCMP - RECEVIE COMPLETE TO LLC LEVEL
    131						.SBTTL	$KLCMP - KILL COMPLETE TO LLC LEVEL
    132
    133					;+
    134					; **-$XMCMP-TRANSMIT COMPLETE TO LOGICAL LINK CONTROL PROCESSES
    135					; **-$CTCMP-CONTROL COMPLETE
    136					; **-$RCCMP-RECEIVE COMPLETE
    137					; **-$KLCMP-KILL COMPLETE
    138					;
    139					; INPUTS:
    140					;
    141					;	R3 = OPERATION COMPLETION STATUS
    142					;	R4 = ADDRESS OF CCB (OR FIRST CCB IN A CHAIN)
    143					;	     THE CCB CONTAINS A VALID LINE NUMBER
    144					;
    145					; OUTPUTS:
    146					;
    147					;	THE APPROPRIATE FUNCTION CODE IS INSERTED INTO THE CCB,
    148					;	THE LINE NUMBER IS USED TO FIND THE PDV SPECIFICATION, AND
    149					;	THE CCB IS ADDED TO THE PROCESS QUEUE.
    150					;
    151					; REGISTERS MODIFIED:
    152					;
    153					;	R3
    154					;-
    155
    156	000070	112764 	000012 	000010 	$XMCMP::MOVB	#FC.XCP,C.FNC(R4) ; SET TRANSMIT COMPLETE FUNCTION CODE
    157	000076	000413 				BR	10$		; JOIN COMMON CODE
    158
    159	000100	112764 	000020 	000010 	$CTCMP::MOVB	#FC.CCP,C.FNC(R4) ; SET CONTROL COMPLETE FUNCTION CODE
    160	000106	000407 				BR	10$		; JOIN COMMON CPDE
    161
    162	000110	112764 	000016 	000010 	$KLCMP::MOVB	#FC.KCP,C.FNC(R4) ; SET KILL COMPLETE FUNCTION CODE
    163	000116	000403 				BR	10$		; JOIN COMMON CODE
    164
    165	000120	112764 	000014 	000010 	$RCCMP::MOVB	#FC.RCP,C.FNC(R4) ; SET RECEIVE COMPLETE FUNCTION CODE
    166	000126	010246 			10$:	MOV	R2,-(SP)	; SAVE CALLERS R2
    167	000130	005002 				CLR	R2		; GET LINE NUMBER WITHOUT SIGN EXTENTION
    168	000132	156402 	000006 			BISB	C.LIN(R4),R2	; ...
    169
    170	000136	010364 	000012 		20$:	MOV	R3,C.STS(R4)	; STORE OPERATION STATUS IN CCB
    171	000142	142764 	000200 	000003 		BICB	#200,C.BID(R4)	; MARK MESSAGE FROM A DLC PROCESS
    172	000150	006302 				ASL	R2		; MULTIPLY SLN BY 2
    173	000152	016203 	000000G			MOV	$LLCTB(R2),R3	; GET SLN & STATION TO PDV & CHANNEL MAP ENTRY
    174	000156	100005 				BPL	25$		; IF PL, GOT PDV & CHANNEL (POINT TO POINT)
    175									; ELSE, POINTER TO STATION TABLE MAP
    176	000160	116402 	000007 			MOVB	C.STA(R4),R2	; GET STATION NUMBER (NEVER SIGN EXTENDS)
    177	000164	060302 				ADD	R3,R2		; COMPUTE HALF MAPPING TABLE ENTRY ADDRESS
    178	000166	006302 				ASL	R2		; MAKE A WORD ALIGNED ADDRESS
    179	000170	011203 				MOV	(R2),R3		; GET PDV & CHANNEL FOR THIS STATION
    180	000172	052703 	100000 		25$:	BIS	#100000,R3	; INDICATE THAT CELL CONTAINS A PDV & CHANNEL
    181	000176					CALL	$PDQUE		; QUEUE CCB AND SCHEDULE PROCESS
    182	000202	012602 				MOV	(SP)+,R2	; RESTORE R2
    183	000204	000241 				CLC			; CLEAR C-BIT
    184	000206				30$:	RETURN			; RETURN TO CALLER
CEDLC	MACRO M1110  13-OCT-79 08:08  PAGE 6-1
$KLCMP - KILL COMPLETE TO LLC LEVEL

    185
    186						.DSABL	LSB
    187
    188		000001 				.END
CEDLC	MACRO M1110  13-OCT-79 08:08  PAGE 6-2
SYMBOL TABLE

A$$CHK= 000000   	C.CNT2  000030   	FS.KIL= 000000   	L$$ASG= 000000   	TPS   = 177564
A$$CPS= 000000   	C.FLG   000022   	FS.LTM= 001000   	L$$DRV= 000000   	T$$KMG= 000000
A$$PRI= 000000   	C.FLG1  000022   	FS.MNT= 004000   	L$$P11= 000001   	T$$MIN= 000000
A$$TRP= 000000   	C.FLG2  000032   	FS.MSN= 014000   	L$$11R= 000000   	UBMPR = 170200
CB.CCB= 000002   	C.FNC   000010   	FS.RNG= 011000   	L.CTL   000012   	UDSAR0= 177660
CB.RDB= 000004   	C.LIN   000006   	FS.RTN= 001000   	L.DDM   000002   	UDSDR0= 177620
CE.ABO= 100362   	C.LNK   000000   	FS.SET= 005000   	L.DDS   000004   	UISAR0= 177640
CE.DIS= 100366   	C.MOD   000011   	FS.STM= 000000   	L.DLC   000003   	UISAR4= 177650
CE.ERR= 100370   	C.NSP   000004   	FS.STP= 002000   	L.DLM   000006   	UISAR5= 177652
CE.MOP= 100372   	C.RSV   000002   	FS.STR= 001000   	L.DLS   000010   	UISAR6= 177654
CE.NTE= 100361   	C.STA   000007   	FS.TRM= 003000   	L.FLG   000000   	UISAR7= 177656
CE.RTE= 100376   	C.STS   000012   	FS.XKL= 002000   	L.LEN = 000014   	UISDR0= 177600
CE.SRC= 100364   	D$$BUG= 177514   	FS.XOF= 010000   	L.UNT   000013   	UISDR4= 177610
CE.TMO= 100374   	D$$ISK= 000000   	FS.XON= 007000   	MPAR  = 172100   	UISDR5= 177612
CF.EOM= 000004   	D$$L11= 000001   	F$$LVL= 000001   	MPCSR = 177746   	UISDR6= 177614
CF.HDR= 000020   	D$$YNC= 000000   	G$$TPP= 000000   	M$$CRB= 000124   	UISDR7= 177616
CF.LB = 100000   	D$$YNM= 000000   	G$$TSS= 000000   	M$$CRX= 000000   	V$$CTR= 001000
CF.SOM= 000010   	E$$XPR= 000000   	G$$TTK= 000000   	M$$FCS= 000000   	X$$DBT= 000000
CF.SYN= 000040   	FC.CCP= 000020   	G$$WRD= 000000   	M$$MGE= 000000   	ZF.DDM= 000001
CF.TRN= 000100   	FC.CTL= 000006   	I$$RAR= 000000   	M$$OVR= 000000   	ZF.DLC= 000002
CMODE = 140000   	FC.KCP= 000016   	I$$RDN= 000000   	N$$LDV= 000001   	ZF.KMX= 000020
CS.ABO= 000100   	FC.KIL= 000004   	KDSAR0= 172360   	N$$MOV= 000010   	ZF.LLC= 000004
CS.BUF= 000200   	FC.RCE= 000002   	KDSDR0= 172320   	N$$SYS= 000001   	ZF.LMC= 000100
CS.DCR= 000400   	FC.RCP= 000014   	KISAR0= 172340   	N$$USR= 000001   	ZF.MFL= 000010
CS.DEV= 000002   	FC.TIM= 000010   	KISAR5= 172352   	PIRQ  = 177772   	ZF.MUX= 000040
CS.DIS= 000040   	FC.XCP= 000012   	KISAR6= 172354   	PMODE = 030000   	ZF.TIM= 000200
CS.ENB= 000020   	FC.XME= 000000   	KISAR7= 172356   	PR0   = 000000   	Z.DAT   000014
CS.EOF= 000001   	FE.CAL= 000040   	KISDR0= 172300   	PR1   = 000040   	Z.DSP   000000
CS.ERR= 100000   	FE.DRV= 000010   	KISDR6= 172314   	PR4   = 000200   	Z.FLG   000011
CS.HFE= 002000   	FE.EXP= 000200   	KISDR7= 172316   	PR5   = 000240   	Z.LEN = 000014
CS.LST= 040000   	FE.EXT= 000001   	K$$CNT= 177546   	PR6   = 000300   	Z.LLN   000010
CS.MTL= 004000   	FE.EXV= 000004   	K$$CSR= 177546   	PR7   = 000340   	Z.MAP   000016
CS.RNG= 000010   	FE.LSI= 000400   	K$$LDC= 000000   	PS    = 177776   	Z.NAM   000006
CS.ROV= 000004   	FE.MUP= 000002   	K$$TPS= 000074   	P$$P45= 000000   	Z.PCB   000012
CS.RSN= 010000   	FE.MXT= 040000   	LD$LP = 000000   	P$$WRD= 000000   	Z.SCH   000004
CS.SUC= 000001   	FE.NLG= 100000   	LF.ACT= 100000   	Q$$OPT= 000010   	$ASCMP  000046RG
CS.TMO= 020000   	FE.PKT= 000100   	LF.BWT= 000007   	R$$DER= 000000   	$CCBGT= ****** GX
C$$CKP= 000000   	FE.PLA= 000020   	LF.DLO= 000040   	R$$K11= 000001   	$CTCMP  000100RG
C$$ORE= 000400   	FS.AST= 000000   	LF.ENA= 002000   	R$$SND= 000000   	$KLCMP  000110RG
C$$RSH= 177564   	FS.CIB= 002000   	LF.MDC= 000100   	R$$11M= 000000   	$LLCTB= ****** GX
C.BID   000003   	FS.CRA= 001000   	LF.MFL= 004000   	SISDR0= 172200   	$PDQUE= ****** GX
C.BUF   000014   	FS.DIS= 013000   	LF.MTP= 000020   	SR0   = 177572   	$RCCMP  000120RG
C.BUF1  000014   	FS.DVC= 001000   	LF.RDY= 040000   	SR3   = 172516   	$SLTTB= ****** GX
C.BUF2  000024   	FS.ENB= 012000   	LF.REA= 010000   	SWR   = 177570   	$STDLC  000000RG
C.CNT   000020   	FS.GET= 006000   	LF.TIM= 000010   	S$$WRG= 000000   	$STDL1  000006RG
C.CNT1  000020   	FS.INI= 000000   	LF.UNL= 020000   	S$$YSZ= 007600   	$XMCMP  000070RG

. ABS.	000034	   000
      	000210	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  6786 WORDS  ( 27 PAGES)
DYNAMIC MEMORY:  7948 WORDS  ( 30 PAGES)
ELAPSED TIME:  00:00:17
CEDLC,[130,34]CEDLC/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,CEDLC
CEDLC      CREATED BY  MACRO  ON 13-OCT-79 AT 08:08	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

C.BID 	  000003	*6-171     
C.FNC 	  000010	 4-92      *5-124     *6-156     *6-159     *6-162     *6-165     
C.LIN 	  000006	 4-75      *5-123      6-168     
C.STA 	  000007	 6-176     
C.STS 	  000012	*6-170     
FC.CCP	= 000020	 5-124      6-159     
FC.KCP	= 000016	 6-162     
FC.RCP	= 000014	 6-165     
FC.XCP	= 000012	 6-156     
FS.AST	= 000000	 5-124     
I$$AS 	= ******	 3-47      
KISAR6	= 172354	 4-89      
LF.ACT	= 100000	#3-48      
LF.BWT	= 000007	#3-48      
LF.DLO	= 000040	#3-48      
LF.ENA	= 002000	#3-48      
LF.MDC	= 000100	#3-48      
LF.MFL	= 004000	#3-48      
LF.MTP	= 000020	#3-48      
LF.RDY	= 040000	#3-48      
LF.REA	= 010000	#3-48      
LF.TIM	= 000010	#3-48      
LF.UNL	= 020000	#3-48      
L.CTL 	  000012	#3-48      
L.DDM 	  000002	#3-48      
L.DDS 	  000004	#3-48      
L.DLC 	  000003	#3-48       4-90      
L.DLM 	  000006	#3-48       4-89      
L.DLS 	  000010	#3-48       4-83      
L.FLG 	  000000	#3-48      
L.LEN 	= 000014	#3-48      
L.UNT 	  000013	#3-48      
R$$11D	= ******	 3-47      
R$$11M	= 000000	 3-47      
R$$11S	= ******	 3-47      
X$$BUG	= ******	 4-85      
X$$MCB	= ******	 3-47       3-47      
ZF.DDM	= 000001	#3-47      
ZF.DLC	= 000002	#3-47      
ZF.KMX	= 000020	#3-47      
ZF.LLC	= 000004	#3-47      
ZF.LMC	= 000100	#3-47      
ZF.MFL	= 000010	#3-47      
ZF.MUX	= 000040	#3-47      
ZF.TIM	= 000200	#3-47      
Z.DAT 	  000014	#3-47      
Z.DSP 	  000000	#3-47       3-47      
Z.FLG 	  000011	#3-47      
Z.LEN 	= 000014	#3-47      
Z.LLN 	  000010	#3-47      
Z.MAP 	  000016	#3-47      
Z.NAM 	  000006	#3-47      
CEDLC      CREATED BY  MACRO  ON 13-OCT-79 AT 08:08	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

Z.PCB 	  000012	#3-47      
Z.SCH 	  000004	#3-47      
$ASCMP	  000046 RG	#5-121     
$CCBGT	= ******  GX	 5-121     
$CTCMP	  000100 RG	#6-159     
$KLCMP	  000110 RG	#6-162     
$LLCTB	= ******  GX	 6-173     
$PDQUE	= ******  GX	 6-181     
$RCCMP	  000120 RG	#6-165     
$SLTTB	= ******  GX	 4-83       4-89       4-90      
$STDLC	  000000 RG	#4-74      
$STDL1	  000006 RG	#4-77      
$XMCMP	  000070 RG	#6-156     
CEDLC      CREATED BY  MACRO  ON 13-OCT-79 AT 08:08	PAGE 3

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		 5-121      6-181     
CALLR 		#3-44      
CCBDF$		#3-43       3-45      
HWDDF$		#3-43       3-46      
PDVDF$		#3-43       3-47      
RESRG 		#3-42      
RETURN		 4-93       6-184     
SAVRG 		#3-42      
SLTDF$		#3-43       3-48