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