Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nxdcp.list
There are no other files named nxdcp.list in the archive.
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 3
1 .TITLE NXDCP
2 .IDENT /X01.04/
3
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
8 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
9 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
10 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
11 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
12 ; TRANSFERRED.
13 ;
14 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
15 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
16 ; CORPORATION.
17 ;
18 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
19 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
20 ;
21 ; MODULE DESCRIPTION:
22 ; NXDCP PERFORMS DDCMP-DEPENDENT OPERATIONS FOR NCP.
23 ;
24 ; LCG COMM/NETS SOFTWARE ENGINEERING
25 ;
26 ; IDENT HISTORY:
27 ;
28 ; 1.00 20-DEC-78
29 ; VERSION 4.0 RELEASE
30 ;
31 ; 1.03 27-APR-79 ALAN D. PECKHAM
32 ; FIX TO HANDLE NEW DDCMP ERROR COUNTERS
33 ; 1.04 31-JUN-79 ALAN D. PECKHAM
34 ; BLEW IT! SET BYTES TO CLEAR AND THEN CLEARED WORDS!
35
36 ; MACRO LIBRARY CALLS
37
38 .MCALL DDCDF$,NICDF,DLXDF$,SAVRG,RESRG,MAP
39
40 000000 DDCDF$ ; DDCMP SYMBOLS
41 000000 DLXDF$ ; DLX SYMBOLS
42 000000 NICDF ; DEFINE NICE SYMBOLS
43
44 000000 PROCESS DCP,SLG=STLG,RLG=RDLG,RCN=RDCNT,ZCN=ZRCNT
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 4
46 ;+
47 ; FIND THE STATION TABLE FOR THE LINE
48 ;
49 ; INPUTS:
50 ; R5 - LINE PARAMETER BLOCK
51 ; R4 - LINE TABLE ADDRESS
52 ;
53 ; OUTPUTS (INTERRIM):
54 ; R4 - STATION TABLE ADDRESS
55 ;
56 ; NO REGISTERS MODIFIED IN THE LONG RUN
57 ;-
58
59 000010 011646 FNDST: MOV (SP),-(SP) ; MAKE ROOM
60 000012 010466 000002 MOV R4,2(SP) ; AND SAVE THE LINE TABLE ADDRESS.
61 000016 062704 000014 ADD #L.STAL,R4 ; OFFSET TO STATION LIST
62 000022 011404 10$: MOV (R4),R4 ; GET THE NEXT
63 000024 001407 BEQ 70$ ; IF THERE IS ONE
64 000026 126465 000016 000004 CMPB S.SLAN(R4),TSTA(R5) ; AND IF NOT THE ONE
65 000034 001372 BNE 10$ ; THEN KEEP LOOKING.
66 000036 CALL @(SP)+ ; LET HIM USE IT
67 000040 012604 40$: MOV (SP)+,R4 ; RESTORE THE LINE TABLE
68 000042 RETURN ; AND GO AWAY
69 000044 012700 000000C 70$: MOV #IE.MOD&377,R0 ; LINE NOT FOUND
70 000050 005126 COM (SP)+ ; REMOVE ADDRESS AND SET CARRY
71 000052 000772 BR 40$ ; GO AWAY.
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 5
73 ;+
74 ; ** - RDLG
75 ;
76 ; GET EVENT LOGGING FOR SPECIFIED LINE.
77 ;
78 ; INPUTS:
79 ; R4 = DLT ADDRESS.
80 ;
81 ; OUTPUTS:
82 ; R0 = LOGGING DESTINATION (OR ZERO FOR NO LOGGING).
83 ;
84 ; SIDE EFFECTS: CALLING CONTEXT IS PRESERVED.
85 ;-
86
87 000054 016400 000042 RDLG: MOV L.LOGG(R4),R0 ; GET LOGGING STATE
88 000060 000241 CLC ; AWRIGHT
89 000062 RETURN ; EXIT
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 6
91 ;+
92 ; ** - STLG
93 ;
94 ; SET/CLEAR EVENT LOGGING FOR SPECIFIED LINE.
95 ;
96 ; INPUTS:
97 ; R0 = LOGGING DESTINATION (OR ZERO FOR NO LOGGING).
98 ; R4 = DLT ADDRESS.
99 ;
100 ; OUTPUTS: LOGGING IS SET/CLEARED.
101 ;
102 ; SIDE EFFECTS: CALLING CONTEXT IS PRESERVED.
103 ;-
104
105 000064 010064 000042 STLG: MOV R0,L.LOGG(R4) ; SET/CLEAR LOGGING
106 000070 000241 CLC ; AWRIGHT
107 000072 RETURN ; EXIT
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 7
109 ;+
110 ; **-RDCNT-SHOW DDCMP STATION TABLE COUNTERS
111 ;
112 ; GATHERS, FORMATS AND PRINTS THE ERROR COUNTS IN THE STATION TABLE.
113 ;
114 ; INPUTS:
115 ; R5 = LINE PARAMETER BLOCK
116 ; R4 = LINE TABLE ADDRESS
117 ;
118 ; OUTPUTS:
119 ;
120 ; REGISTERS MODIFIED: R0
121 ;-
122
123 000000 .PSECT BYTE,D
124 000000 000 064 RDTDCP: .BYTE NL$ZRO,S.TIM ; TIME LAST ZEROED
125 000002 001 066 .BYTE NL$BRC,S.RCV ; BLOCKS RECEIVED COUNT
126 000004 002 070 .BYTE NL$BTR,S.XMT ; BLOCKS TRANSMITTED COUNT
127 000006 003 323 .BYTE NL$RTR,-S.XMTE ; TRANSMIT ERRORS
128 000010 004 326 .BYTE NL$RLE,-S.RCVE ; RECEIVE ERRORS
129 000012 005 324 .BYTE NL$RES,-S.RSTE ; OTHER ERRORS
130 000014 006 325 .BYTE NL$TMO,-S.TMOE ; TIMEOUT ERRORS
131 000016 200 .BYTE 200
132
133 000074 .PSECT
134 000074 RDCNT: CALL FNDST ; FIND THE STATION TABLE
135 000100 SAVRG R1 ; AND SAVE A REGISTER
136 000102 012701 000000' MOV #RDTDCP,R1 ; GET COUNTER DISPLACEMENT TABLE
137 000106 CALL $PUTCT ; AND STORE THEM IN THE BUFFER.
138 000112 RESRG R1 ; ALL THROUGH
139 000114 RETURN
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 8
141 ;+
142 ; **-ZRCNT-ZERO COUNTERS FOR DDCMP LINE
143 ;
144 ; ZEROES THE ERROR COUNTERS IN THE LINE STATION TABLE, AND RE-SETS THE
145 ; TIME-LAST-ZEROED WORD.
146 ;
147 ; INPUTS:
148 ; R5 = LINE PARAMETER BLOCK
149 ; R4 = LINE TABLE ADDRESS
150 ; R3 = I/O PACKET ADDRESS
151 ; .CURTM = CURRENT TIME IN (SECONDS SINCE MIDNIGHT)/2
152 ;
153 ; OUTPUTS:
154 ; COUNTS ZEROED
155 ;
156 ; REGISTERS MODIFIED: R4,R0
157 ;-
158
159 000116 ZRCNT: CALL FNDST ; FIND STATION
160 000122 062704 000052 ADD #S.CTB,R4 ; CLEAR BYTE COUNTERS
161 000126 012700 000007 MOV #<S.CTBE-S.CTB>,R0
162 000132 105024 10$: CLRB (R4)+ ; CLEAR THE BYTE COUNTERS
163 000134 SOB R0,10$
164 000140 062704 000005 ADD #<S.CTW-S.CTBE>,R4
165 000144 012700 000003 MOV #<S.CTWE-S.CTW>/2,R0
166 000150 005024 20$: CLR (R4)+ ; CLEAR THE WORD COUNTERS
167 000152 SOB R0,20$
168 000156 162704 000074 SUB #S.CTWE,R4
169 000162 016764 000000G 000064 MOV .CURTM,S.TIM(R4) ; SET TIME LAST ZEROED TO NOW
170 000170 RETURN
171
172 000001 .END
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 8-1
SYMBOL TABLE
A$$CHK= 000000 L.CRST 000020 NE$SER= 177764 R$$K11= 000001 S.NKRE 000051
A$$CPS= 000000 L.CTMO 000000 NE$STA= 177775 R$$SND= 000000 S.NMSG 000037
A$$PRI= 000000 L.DDST 000024 NL$BRC= 000001 R$$11M= 000000 S.NRSP 000046
A$$TRP= 000000 L.DEDI 000055 NL$BTR= 000002 SE.SAK= 000020 S.PI 000027
C$$CKP= 000000 L.DEDT 000046 NL$RES= 000005 SE.SNK= 000004 S.PLS 000021
C$$ORE= 000400 L.ENA 000063 NL$RLE= 000004 SE.SRP= 000010 S.PQ 000026
C$$RSH= 177564 L.FCNL 000010 NL$RTR= 000003 SE.SSK= 000001 S.PTXQ 000004
DM$END= 000000 L.HDR 000030 NL$TMO= 000006 SE.SSL= 000040 S.R 000040
DM$MIM= 000002 L.ITMO 000001 NL$ZRO= 000000 SE.SST= 000002 S.RCN 000004
DM$PXA= 000003 L.LNUM 000060 NNOD 000000 SP.PLA= 000010 S.RCV 000066
DM$SAD= 000001 L.LOGG 000042 NNUM 000002 SP.PLD= 000002 S.RCVE 000052
D$$BUG= 177514 L.MOTD 000062 NN$CAC= 000011 SP.PLI= 000006 S.REPS 000060
D$$ISK= 000000 L.NAST 000064 NN$CNI= 000013 SP.PLO= 000000 S.RETH 000061
D$$L11= 000001 L.NDED 000065 NN$CNR= 000014 SP.PLP= 000004 S.RLG 000002
D$$YNC= 000000 L.NMSG 000061 NN$EXT= 000003 SS.ACT= 100000 S.RPTH 000062
D$$YNM= 000000 L.PDLI 000056 NN$FMT= 000005 SS.AST= 000004 S.RSTE 000054
E$$XPR= 000000 L.PDLT 000050 NN$IZS= 000007 SS.ENA= 040000 S.SEL 000072
FNDST 000010R L.STAL 000014 NN$IZU= 000010 SS.HLT= 000000 S.SLAN 000016
F$$LVL= 000001 L.STBL 000066 NN$MAC= 000012 SS.IST= 000002 S.SLG 000000
G$$TPP= 000000 L.STS 000002 NN$NKS= 000004 SS.MNT= 000010 S.SPAN 000017
G$$TSS= 000000 L.TDNQ 000004 NN$RES= 000006 SS.PIG= 010000 S.STE 000020
G$$TTK= 000000 L.UPDI 000054 NN$UMR= 000002 SS.REP= 001000 S.STLG 000074
G$$WRD= 000000 L.UPDT 000044 NN$UMS= 000001 SS.RTR= 002000 S.STRC 000057
IE.MOD= ****** GX L.XMST 000026 NN$ZRO= 000000 SS.RUN= 000006 S.STS 000002
I$$RAR= 000000 M$$CRB= 000124 NPWD 000004 SS.SEL= 000400 S.TAKQ 000010
I$$RDN= 000000 M$$CRX= 000000 NSTA 000006 SS.SHU= 020000 S.THD 000036
K$$CNT= 177546 M$$FCS= 000000 NS$SUC= 000001 SS.TIM= 004000 S.THI 000034
K$$CSR= 177546 M$$MGE= 000000 N$DPOS= 000014 STLG 000064R S.THP 000035
K$$LDC= 000000 M$$OVR= 000000 N$DUMP= 000003 ST$DIS= 000006 S.TIM 000064
K$$TPS= 000074 ND$BAD= 177777 N$EXAM= 000015 ST$ENA= 000005 S.TMOE 000053
LD$LP = 000000 ND$LCC= 000000 N$LNSR= 000016 ST$LOO= 000003 S.TM1 000041
LI$KNO= 000000 ND$LCS= 000001 N$LOAD= 000002 ST$MAI= 000004 S.U 000022
LI$STA= 000001 ND$LNC= 000004 N$LOGD= 000001 ST$OFF= 000001 S.X 000042
LI$STR= 000002 ND$LNS= 000005 N$LOOP= 000005 ST$ON = 000000 S.XMT 000070
LS$DUM= 000002 ND$RMC= 000002 N$RDIN= 000010 ST$SHU= 000002 S.XMTE 000055
LS$LOA= 000000 ND$RMS= 000003 N$STPR= 000007 S$$WRG= 000000 S.ZCN 000006
LS$LOO= 000001 ND$ZLC= 000000 N$TEST= 000006 S$$YSZ= 007600 TASN 000016
LS$TRI= 000004 ND$ZLN= 000002 N$TRIG= 000004 S.A 000044 TCTL 000002
LS$TRQ= 000003 ND$ZRM= 000001 N$ZERO= 000011 S.AI 000033 TDDM 000014
LS.CTL= 020000 NE$CON= 177762 N$$LDV= 000001 S.AQ 000032 TDLC 000015
LS.HDX= 000002 NE$FIL= 177763 N$$MOV= 000010 S.AR 000045 TFLG 000006
LS.LEN= 000400 NE$FIO= 177756 N$$SYS= 000001 S.CTB 000052 TLIN 000003
LS.MPM= 000004 NE$FOR= 177776 N$$USR= 000001 S.CTBE 000061 TNAM 000000
LS.MPS= 000010 NE$FUN= 177777 N.MLEN= 000454 S.CTW 000066 TPDV 000007
LS.PDD= 001000 NE$LCO= 177766 PT$END= 000000 S.CTWE 000074 TSLF 000012
LS.RSA= 040000 NE$LID= 177770 PT$HOS= 000003 S.DSTE 000056 TSLN 000010
LS.RSN= 100000 NE$LPR= 177757 PT$NAM= 000001 S.FCNL 000014 TSTA 000004
L$$ASG= 000000 NE$LST= 177767 PT$NUM= 000002 S.I 000024 T$$KMG= 000000
L$$DRV= 000000 NE$NCO= 177755 P$$P45= 000000 S.II 000031 T$$MIN= 000000
L$$P11= 000001 NE$NIC= 177753 P$$WRD= 000000 S.IQ 000030 V$$CTR= 001000
L$$11R= 000000 NE$NOD= 177765 Q$$OPT= 000010 S.LNK 000000 X$$DBT= 000000
L.ACST 000022 NE$NOR= 177754 RDCNT 000074R S.MOTD 000050 ZRCNT 000116R
L.BABI 000057 NE$ORD= 177774 RDLG 000054R S.N 000043 $PUTCT= ****** GX
L.BABT 000052 NE$PAR= 177760 RDTDCP 000000R 004 S.NAKT 000063 $$$ = 000000R
L.CHAR 000036 NE$RES= 177761 R$$DER= 000000 S.NDAT 000047 .CURTM= ****** GX
L.CRC 000032
NXDCP MACRO M1110 13-OCT-79 10:34 PAGE 8-2
SYMBOL TABLE
. ABS. 000074 000
000172 001
$$DSP1 000002 002
$$NAM1 000002 003
BYTE 000017 004
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 7163 WORDS ( 28 PAGES)
DYNAMIC MEMORY: 7948 WORDS ( 30 PAGES)
ELAPSED TIME: 00:00:25
NXDCP,[131,34]NXDCP/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NXDCP
NXDCP CREATED BY MACRO ON 13-OCT-79 AT 10:34 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FNDST 000010 R #4-59 7-134 8-159
IE.MOD = ****** GX 4-69
LS.CTL = 020000 #3-40
LS.HDX = 000002 #3-40
LS.LEN = 000400 #3-40
LS.MPM = 000004 #3-40
LS.MPS = 000010 #3-40
LS.PDD = 001000 #3-40
LS.RSA = 040000 #3-40
LS.RSN = 100000 #3-40
L.ACST 000022 #3-40
L.BABI 000057 #3-40
L.BABT 000052 #3-40
L.CHAR 000036 #3-40
L.CRC 000032 #3-40
L.CRST 000020 #3-40
L.CTMO 000000 #3-40
L.DDST 000024 #3-40
L.DEDI 000055 #3-40
L.DEDT 000046 #3-40
L.ENA 000063 #3-40
L.FCNL 000010 #3-40
L.HDR 000030 #3-40
L.ITMO 000001 #3-40
L.LNUM 000060 #3-40
L.LOGG 000042 #3-40 5-87 *6-105
L.MOTD 000062 #3-40
L.NAST 000064 #3-40
L.NDED 000065 #3-40
L.NMSG 000061 #3-40
L.PDLI 000056 #3-40
L.PDLT 000050 #3-40
L.STAL 000014 #3-40 4-61
L.STBL 000066 #3-40
L.STS 000002 #3-40
L.TDNQ 000004 #3-40
L.UPDI 000054 #3-40
L.UPDT 000044 #3-40
L.XMST 000026 #3-40
M$$MGE = 000000 3-40
NL$BRC = 000001 7-125
NL$BTR = 000002 7-126
NL$RES = 000005 7-129
NL$RLE = 000004 7-128
NL$RTR = 000003 7-127
NL$TMO = 000006 7-130
NL$ZRO = 000000 7-124
NNOD 000000 #3-41
NNUM 000002 #3-41
NPWD 000004 #3-41
NSTA 000006 #3-41
RDCNT 000074 R 3-44 #7-134
NXDCP CREATED BY MACRO ON 13-OCT-79 AT 10:34 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
RDLG 000054 R 3-44 #5-87
RDTDCP 000000 R #7-124 7-136
SE.SAK = 000020 #3-40
SE.SNK = 000004 #3-40
SE.SRP = 000010 #3-40
SE.SSK = 000001 #3-40
SE.SSL = 000040 #3-40
SE.SST = 000002 #3-40
SP.PLA = 000010 #3-40
SP.PLD = 000002 #3-40
SP.PLI = 000006 #3-40
SP.PLO = 000000 #3-40
SP.PLP = 000004 #3-40
SS.ACT = 100000 #3-40
SS.AST = 000004 #3-40
SS.ENA = 040000 #3-40
SS.HLT = 000000 #3-40
SS.IST = 000002 #3-40
SS.MNT = 000010 #3-40
SS.PIG = 010000 #3-40
SS.REP = 001000 #3-40
SS.RTR = 002000 #3-40
SS.RUN = 000006 #3-40
SS.SEL = 000400 #3-40
SS.SHU = 020000 #3-40
SS.TIM = 004000 #3-40
STLG 000064 R 3-44 #6-105
S.A 000044 #3-40
S.AI 000033 #3-40
S.AQ 000032 #3-40
S.AR 000045 #3-40
S.CTB 000052 #3-40 8-160 8-161
S.CTBE 000061 #3-40 8-161 8-164
S.CTW 000066 #3-40 8-164 8-165
S.CTWE 000074 #3-40 8-165 8-168
S.DSTE 000056 #3-40
S.FCNL 000014 #3-40
S.I 000024 #3-40
S.II 000031 #3-40
S.IQ 000030 #3-40
S.LNK 000000 #3-40
S.MOTD 000050 #3-40
S.N 000043 #3-40
S.NAKT 000063 #3-40
S.NDAT 000047 #3-40
S.NKRE 000051 #3-40
S.NMSG 000037 #3-40
S.NRSP 000046 #3-40
S.PI 000027 #3-40
S.PLS 000021 #3-40
S.PQ 000026 #3-40
S.PTXQ 000004 #3-40
NXDCP CREATED BY MACRO ON 13-OCT-79 AT 10:34 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
S.R 000040 #3-40
S.RCN 000004 #3-41
S.RCV 000066 #3-40 7-125
S.RCVE 000052 #3-40 7-128
S.REPS 000060 #3-40
S.RETH 000061 #3-40
S.RLG 000002 #3-41
S.RPTH 000062 #3-40
S.RSTE 000054 #3-40 7-129
S.SEL 000072 #3-40
S.SLAN 000016 #3-40 4-64
S.SLG 000000 #3-41
S.SPAN 000017 #3-40
S.STE 000020 #3-40
S.STLG 000074 #3-40
S.STRC 000057 #3-40
S.STS 000002 #3-40
S.TAKQ 000010 #3-40
S.THD 000036 #3-40
S.THI 000034 #3-40
S.THP 000035 #3-40
S.TIM 000064 #3-40 7-124 *8-169
S.TMOE 000053 #3-40 7-130
S.TM1 000041 #3-40
S.U 000022 #3-40
S.X 000042 #3-40
S.XMT 000070 #3-40 7-126
S.XMTE 000055 #3-40 7-127
S.ZCN 000006 #3-41
TASN 000016 #3-41
TCTL 000002 #3-41
TDDM 000014 #3-41
TDLC 000015 #3-41
TFLG 000006 #3-41
TLIN 000003 #3-41
TNAM 000000 #3-41
TPDV 000007 #3-41
TSLF 000012 #3-41
TSLN 000010 #3-41
TSTA 000004 #3-41 4-64
ZRCNT 000116 R 3-44 #8-159
$PUTCT = ****** GX 7-137
$$$ = 000000 R #3-44 3-44
.CURTM = ****** GX 8-169
NXDCP CREATED BY MACRO ON 13-OCT-79 AT 10:34 PAGE 4
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-66 7-134 7-137 8-159
DDCDF$ #3-38 #3-40
DLXDF$ #3-38 3-41
MAP #3-38
NICDF #3-38 #3-42
PROCES #3-41 3-44
RESRG #3-38 #7-138
RETURN 4-68 5-89 6-107 7-139 8-170
SAVRG #3-38 #7-135
SOB #8-163 #8-167