Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nxsub.list
There are no other files named nxsub.list in the archive.
NXSUB MACRO M1110 13-OCT-79 10:32 PAGE 3
1 .TITLE NXSUB
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 ;
24 ; MODULE DESCRIPTION
25 ;
26 ; DLX COMMON SUBROUTINES
27 ;
28 ;
29 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
30 ;
31 ; IDENT HISTORY:
32 ;
33 ; 1.00 10-FEB-78
34 ; VERSION 2.0 RELEASE
35 ; 1.01 28-JAN-79 ALAN D. PECKHAM
36 ; FIX MULTIPOINT HANDLING IN FNDLA
37
38 ;
39 .MCALL PDVDF$,SLTDF$
40 000000 PDVDF$ ; DEFINE THE PDV OFFSETS
41 000000 SLTDF$ ; DEFINE THE SLT OFFSETS
42
43 ;
44 ; LOCAL SYMBOL DEFINITIONS
45 ;
46 ;
47 ; PARAMETER BLOCK OFFSET DEFINITIONS
48 ;
49 000014 .ASECT
50 000000 .=0
51 000000 TNAM: .BLKW 1 ; RAD50 PROCESS NAME
52 000002 TCTL: .BLKB 1 ; CONTROLLER NUMBER
53 000003 TLIN: .BLKB 1 ; LINE NUMBER ON CONTROLLER
54 000004 TSTA: .BLKB 1 ; MULTIPOINT STATION ADDRESS
55 000005 .BLKB 1 ; RESERVED
56 000006 TFLG: .BLKB 1 ; PROCESS FLAGS
57 000007 TPDV: .BLKB 1 ; PROCESS INDEX
NXSUB MACRO M1110 13-OCT-79 10:32 PAGE 3-1
58 000010 TSLN: .BLKW 1 ; SYSTEM LINE NUMBER AND LOGICAL STATION
59 000012 TSLF: .BLKW 1 ; SYSTEM LINE TABLE FLAGS
60 000014 TDDM: .BLKB 1 ; DDM PROCESS INDEX
61 000015 TDLC: .BLKB 1 ; DLC PROCESS INDEX
62 000016 TASN: .BLKW 1 ; CURRENT ASSIGNMENT (PDV & CHAN)
63 000000 .PSECT
NXSUB MACRO M1110 13-OCT-79 10:32 PAGE 4
65 ;+
66 ; **-FNDLA-FIND A LINE-ID USING A PARSED ARGUMENT BLOCK
67 ;
68 ; INPUTS:
69 ;
70 ; R5 = ADDRESS OF AN 8 WORD PARAMETER BLOCK
71 ;
72 ; OUTPUTS:
73 ;
74 ; C-BIT CLEAR:
75 ; R5 = ADDRESS OF THE 8 WORD PARAMETER BLOCK FORMATTED AS FOLLOWS:
76 ; WD 0 RAD50 PROCESS NAME
77 ; WD 1 LINE NUMBER CONTROLLER NUMBER
78 ; WD 2 RESERVED STATION NUMEBR
79 ; WD 3 PDV INDEX PDV FLAGS
80 ;
81 ; FOR A DDM:
82 ;
83 ; WD 4 STATION SYSTEM LINE
84 ; WD 5 SYSTEM LINE TABLE FLAGS
85 ; WD 6 DLC INDEX DDM INDEX
86 ; WD 7 PDV ASSIGNED CHANNEL ASSIGNED
87 ;
88 ; FOR AN LLC OR A DLC:
89 ;
90 ; WD 4 - WD 7 UNDEFINED
91 ;
92 ; C-BIT SET:
93 ; LINE-ID CANNOT BE FOUND IN THE SYSTEM
94 ;
95 ; REGISTERS MODIFIED:
96 ;
97 ; NONE
98 ;
99 ;-
100
101 000000 016502 000000 FNDLA:: MOV TNAM(R5),R2 ; GET RAD50 PROCESS NAME
102 000004 CALL $PDVAD ; FIND THE PROCESS INDEX
103 000010 103503 BCS 100$ ; IF CS, NO PROCESS OF THIS NAME- ERROR
104 000012 110265 000007 MOVB R2,TPDV(R5) ; STORE RESULTANT PDV INDEX
105 000016 116100 000011 MOVB Z.FLG(R1),R0 ; GET PDV FLAGS FOR PROCESS TYPE
106 000022 110065 000006 MOVB R0,TFLG(R5) ; STORE FLAGS IN OUTPUT AREA
107 000026 132700 000004 BITB #ZF.LLC,R0 ; IS THIS PROCESS AN LLC ?
108 000032 001071 BNE 90$ ; IF NE, YES - ALL DONE WITH THE SEARCH
109 000034 132700 000001 BITB #ZF.DDM,R0 ; IS IT A DDM ?
110 000040 001444 BEQ 80$ ; IF EQ, NO - ALL DONE WITH THE SEARCH
111
112 ;
113 ; LOOK THROUGH THE SYSTEM LINE TABLE TO FIND AN ENTRY WHICH MATCHES THE
114 ; SPECIFIED VALUES FOR DDM PROCESS INDEX, CONTROLLER NUMBER, AND
115 ; LINE NUMBER OF THE CONTROLLER.
116 ; EVENTUALLY, THE DLC LINE TABLE WILL BE SEARCHED TO FIND THE LOGICAL
117 ; STATION ADDRESS WHICH CORRESPONDS TO THE SPECIFIED STATION ADDRESS.
118 ;
119 000042 016700 000000G MOV $SLTNM,R0 ; GET NUMBER OF SYSTEM LINES
120 000046 016701 000000G MOV $SLTTA,R1 ; GET ADDRESS OF SYSTEM LINE TABLE
121
NXSUB MACRO M1110 13-OCT-79 10:32 PAGE 4-1
122
123 000052 126165 000002 000007 10$: CMPB L.DDM(R1),TPDV(R5) ; DOES THIS PROCESS MATCH ?
124 000060 001010 BNE 20$ ; IF NE, NO - KEEP LOOKING
125 000062 126165 000012 000002 CMPB L.CTL(R1),TCTL(R5) ; DOES THIS CONTROLLER NUMBER MATCH ?
126 000070 001004 BNE 20$ ; IF NE, NO - KEEP LOOKING
127 000072 126165 000013 000003 CMPB L.UNT(R1),TLIN(R5) ;DOES THIS UNIT NUMBER MATCH ?
128 000100 001406 BEQ 30$ ; IF EQ, FOUND THE CORRECT SLN
129 000102 062701 000014 20$: ADD #L.LEN,R1 ; COMPUTE ADDRESS OF NEXT SLT ENTRY
130 000106 SOB R0,10$ ; LOOK THROUGH ALL SYSTEM LINES
131 000112 22$: ;AP0001
132 000112 000261 SEC ; NO LINE-ID TO BE FOUND
133 000114 000441 BR 100$ ; EXIT WITH ERROR
134
135 000116 016165 000000 000012 30$: MOV L.FLG(R1),TSLF(R5) ; STORE SYSTEM LINE FLAGS IN OUTPUT AREA
136 000124 016165 000002 000014 MOV L.DDM(R1),TDDM(R5) ; STORE DDM & DLC PDV INDECIES
137 000132 016702 000000G MOV $SLTNM,R2 ; COMPUTE THE SYSTEM LINE NUMBER
138 000136 160002 SUB R0,R2 ; ...
139 000140 110265 000010 MOVB R2,TSLN(R5) ; AND STORE IT IN THE OUTPUT BLOCK
140 ;
141 ; FOR NOW ANY STATION WILL BE VALID
142 ;
143 000144 116565 000004 000011 MOVB TSTA(R5),TSLN+1(R5) ; SET THE LOGICAL STATION ADDRESS ;AP0001
144 ;**-1
145 000152 006302 80$: ASL R2 ; FIND CURRENT PDV & CHANNEL ASSIGNMENT
146 000154 066702 000000G ADD $LLCTA,R2 ; COMPUTE THE ADDRESS IN THE REVERSE CHANNEL
147 000160 011265 000016 MOV (R2),TASN(R5) ; MAPPING TABLE AND STORE THE CONTENTS
148 000164 100014 BPL 90$ ; IF MULTIPOINT ;AP0001
149 000166 011202 MOV (R2),R2 ; GET STATION MAPPING TABLE ;AP0001
150 000170 006302 ASL R2 ;AP0001
151 000172 005001 CLR R1 ; GET STATION ;AP0001
152 000174 156501 000004 BISB TSTA(R5),R1 ; (WITHOUT SIGN EXTENSION) ;AP0001
153 000200 001404 BEQ 88$ ; AND IF NON-ZERO ;AP0001
154 000202 005722 82$: TST (R2)+ ; RUN THROUGH TABLE ;AP0001
155 000204 100742 BMI 22$ ; CHECKING FOR THE BOUNDRY ;AP0001
156 000206 SOB R1,82$ ; UNTIL WE FIND OUR STATION. ;AP0001
157 000212 011265 000016 88$: MOV (R2),TASN(R5) ; USE THIS ASSIGNMENT. ;AP0001
158 000216 000241 90$: CLC ; INDICATE SUCCESS
159 000220 100$: RETURN ; RETURN TO CALLER
NXSUB MACRO M1110 13-OCT-79 10:32 PAGE 5
161 ;+
162 ; **-$PDVAD-FIND PROCESS NAME AND INDEX
163 ;
164 ; INPUTS:
165 ;
166 ; R2 = RAD50 PROCESS NAME TO FIND
167 ;
168 ; OUTPUTS:
169 ;
170 ; R1 = ADDRESS OF PDV
171 ; R2 = PROCESS INDEX
172 ;
173 ; REGISTERS MODIFIED:
174 ;
175 ; R0
176 ;-
177
178 000222 010246 $PDVAD::MOV R2,-(SP) ; SAVE PROCESS NAME
179 000224 016700 000000G MOV $PDVNM,R0 ; GET NUMBER OF PDV ENTRIES
180 000230 016702 000000G MOV $PDVTA,R2 ; GET ADDRESS OF PDV TABLE
181 000234 012201 10$: MOV (R2)+,R1 ; GET ADDRESS OF A PDV
182 000236 026116 000006 CMP Z.NAM(R1),(SP) ; IS THIS THE RIGHT ONE ?
183 000242 001404 BEQ 20$ ; IF EQ, YES
184 000244 SOB R0,10$ ; DON'T LOOK THROUGH TO MANY
185 000250 000261 SEC ; INDICATE ERROR
186 000252 000403 BR 30$ ; EXIT IF ITS NOT FOUND
187
188 000254 166702 000000G 20$: SUB $PDVTA,R2 ; COMPUTE THE PDV INDEX
189 000260 005742 TST -(R2) ; COMPENSATE FOR PREVIOUS POP (CLEAR C-BIT)
190 000262 011626 30$: MOV (SP),(SP)+ ; CLEAN OFF THE STACK
191 000264 RETURN ; RETURN TO CALLER
192
193
194 000001 .END
NXSUB MACRO M1110 13-OCT-79 10:32 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 K$$CSR= 177546 L.DDS 000004 R$$SND= 000000 ZF.KMX= 000020
A$$CPS= 000000 K$$LDC= 000000 L.DLC 000003 R$$11M= 000000 ZF.LLC= 000004
A$$PRI= 000000 K$$TPS= 000074 L.DLM 000006 S$$WRG= 000000 ZF.LMC= 000100
A$$TRP= 000000 LD$LP = 000000 L.DLS 000010 S$$YSZ= 007600 ZF.MFL= 000010
C$$CKP= 000000 LF.ACT= 100000 L.FLG 000000 TASN 000016 ZF.MUX= 000040
C$$ORE= 000400 LF.BWT= 000007 L.LEN = 000014 TCTL 000002 ZF.TIM= 000200
C$$RSH= 177564 LF.DLO= 000040 L.UNT 000013 TDDM 000014 Z.DAT 000014
D$$BUG= 177514 LF.ENA= 002000 M$$CRB= 000124 TDLC 000015 Z.DSP 000000
D$$ISK= 000000 LF.MDC= 000100 M$$CRX= 000000 TFLG 000006 Z.FLG 000011
D$$L11= 000001 LF.MFL= 004000 M$$FCS= 000000 TLIN 000003 Z.LEN = 000014
D$$YNC= 000000 LF.MTP= 000020 M$$MGE= 000000 TNAM 000000 Z.LLN 000010
D$$YNM= 000000 LF.RDY= 040000 M$$OVR= 000000 TPDV 000007 Z.MAP 000016
E$$XPR= 000000 LF.REA= 010000 N$$LDV= 000001 TSLF 000012 Z.NAM 000006
FNDLA 000000RG LF.TIM= 000010 N$$MOV= 000010 TSLN 000010 Z.PCB 000012
F$$LVL= 000001 LF.UNL= 020000 N$$SYS= 000001 TSTA 000004 Z.SCH 000004
G$$TPP= 000000 L$$ASG= 000000 N$$USR= 000001 T$$KMG= 000000 $LLCTA= ****** GX
G$$TSS= 000000 L$$DRV= 000000 P$$P45= 000000 T$$MIN= 000000 $PDVAD 000222RG
G$$TTK= 000000 L$$P11= 000001 P$$WRD= 000000 V$$CTR= 001000 $PDVNM= ****** GX
G$$WRD= 000000 L$$11R= 000000 Q$$OPT= 000010 X$$DBT= 000000 $PDVTA= ****** GX
I$$RAR= 000000 L.CTL 000012 R$$DER= 000000 ZF.DDM= 000001 $SLTNM= ****** GX
I$$RDN= 000000 L.DDM 000002 R$$K11= 000001 ZF.DLC= 000002 $SLTTA= ****** GX
K$$CNT= 177546
. ABS. 000020 000
000266 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2941 WORDS ( 12 PAGES)
DYNAMIC MEMORY: 3724 WORDS ( 14 PAGES)
ELAPSED TIME: 00:00:14
NXSUB,[131,34]NXSUB/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NXSUB
NXSUB CREATED BY MACRO ON 13-OCT-79 AT 10:32 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FNDLA 000000 RG #4-101
I$$AS = ****** 3-40
LF.ACT = 100000 #3-41
LF.BWT = 000007 #3-41
LF.DLO = 000040 #3-41
LF.ENA = 002000 #3-41
LF.MDC = 000100 #3-41
LF.MFL = 004000 #3-41
LF.MTP = 000020 #3-41
LF.RDY = 040000 #3-41
LF.REA = 010000 #3-41
LF.TIM = 000010 #3-41
LF.UNL = 020000 #3-41
L.CTL 000012 #3-41 4-125
L.DDM 000002 #3-41 4-123 4-136
L.DDS 000004 #3-41
L.DLC 000003 #3-41
L.DLM 000006 #3-41
L.DLS 000010 #3-41
L.FLG 000000 #3-41 4-135
L.LEN = 000014 #3-41 4-129
L.UNT 000013 #3-41 4-127
R$$11D = ****** 3-40
R$$11M = 000000 3-40
R$$11S = ****** 3-40
TASN 000016 #3-62 *4-147 *4-157
TCTL 000002 #3-52 4-125
TDDM 000014 #3-60 *4-136
TDLC 000015 #3-61
TFLG 000006 #3-56 *4-106
TLIN 000003 #3-53 4-127
TNAM 000000 #3-51 4-101
TPDV 000007 #3-57 *4-104 4-123
TSLF 000012 #3-59 *4-135
TSLN 000010 #3-58 *4-139 *4-143
TSTA 000004 #3-54 4-143 4-152
X$$MCB = ****** 3-40 3-40
ZF.DDM = 000001 #3-40 4-109
ZF.DLC = 000002 #3-40
ZF.KMX = 000020 #3-40
ZF.LLC = 000004 #3-40 4-107
ZF.LMC = 000100 #3-40
ZF.MFL = 000010 #3-40
ZF.MUX = 000040 #3-40
ZF.TIM = 000200 #3-40
Z.DAT 000014 #3-40
Z.DSP 000000 #3-40 3-40
Z.FLG 000011 #3-40 4-105
Z.LEN = 000014 #3-40
Z.LLN 000010 #3-40
Z.MAP 000016 #3-40
Z.NAM 000006 #3-40 5-182
NXSUB CREATED BY MACRO ON 13-OCT-79 AT 10:32 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
Z.PCB 000012 #3-40
Z.SCH 000004 #3-40
$LLCTA = ****** GX 4-146
$PDVAD 000222 RG 4-102 #5-178
$PDVNM = ****** GX 5-179
$PDVTA = ****** GX 5-180 5-188
$SLTNM = ****** GX 4-119 4-137
$SLTTA = ****** GX 4-120
NXSUB CREATED BY MACRO ON 13-OCT-79 AT 10:32 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-102
PDVDF$ #3-39 #3-40
RETURN 4-159 5-191
SLTDF$ #3-39 #3-41
SOB #4-130 #4-156 #5-184