Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nxdmc.list
There are no other files named nxdmc.list in the archive.
NXDMC MACRO M1110 13-OCT-79 10:35 PAGE 3
1 .TITLE NXDMC
2 .IDENT /X01.01/
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 ; NXDMC PERFORMS DMC-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 ; MACRO LIBRARY CALLS
32
33 .MCALL DMCDF$,NICDF,DLXDF$,SAVRG,RESRG,MAP
34
35 000000 DMCDF$ ; DEFINE DMC SYMBOLS
36 000000 DLXDF$ ; DEFINE DLX SYMBOLS
37 000000 NICDF ; DEFINE NICE SYMBOLS
38
39 000000 PROCESS DMC,RLG=RDLOG,SLG=EVLOG,RCN=RDCNT,ZCN=ZRCNT
NXDMC MACRO M1110 13-OCT-79 10:35 PAGE 4
41 ;+
42 ; ** - RDLOG
43 ;
44 ; READ EVENT LOG STATE FOR SPECIFIED LINE.
45 ;
46 ; INPUTS:
47 ; R4 = DLT ADDRESS.
48 ;
49 ; OUTPUTS:
50 ; R0 = LOGGING DESTINATION (OR ZERO FOR NO LOGGING).
51 ;
52 ; SIDE EFFECTS: CALLING CONTEXT IS PRESERVED.
53 ;-
54
55 000010 016400 000066 RDLOG: MOV D.LOGG(R4),R0 ; GET LOG STATE
56 000014 000241 CLC ; AWRIGHT
57 000016 RETURN ; EXIT
NXDMC MACRO M1110 13-OCT-79 10:35 PAGE 5
59 ;+
60 ; ** - EVLOG
61 ;
62 ; SET/CLEAR EVENT LOGGING FOR SPECIFIED LINE.
63 ;
64 ; INPUTS:
65 ; R0 = LOGGING DESTINATION (OR ZERO FOR NO LOGGING).
66 ; R4 = DLT ADDRESS.
67 ;
68 ; OUTPUTS: LOGGING IS SET/CLEARED.
69 ;
70 ; SIDE EFFECTS: CALLING CONTEXT IS PRESERVED.
71 ;-
72
73 000020 010064 000066 EVLOG: MOV R0,D.LOGG(R4) ; SET/CLEAR LOGGING
74 000024 000241 CLC ; AWRIGHT
75 000026 RETURN ; EXIT
NXDMC MACRO M1110 13-OCT-79 10:35 PAGE 6
77 ;+
78 ; RDCNT - READ LINE COUNTERS
79 ;
80 ; PRINTS THE COUNTERS FROM THE LINE TABLE
81 ;
82 ; INPUTS:
83 ; R4 = LINE TABLE ADDRESS
84 ;
85 ; NO OUTPUTS
86 ;
87 ; REGISTERS MODIFIED: APR6,R0
88 ;-
89
90 000000 .PSECT BYTE,D
91 000000 000 052 TBL1: .BYTE NL$ZRO,D.TLZ ; TIME LAST ZEROED
92 000002 001 056 .BYTE NL$BRC,D.RCV ; BLOCKS RECEIVED
93 000004 002 054 .BYTE NL$BTR,D.XMT ; BLOCKS TRANSMITTED
94 000006 200 .BYTE 200
95 000007 003 000 TBL2: .BYTE NL$RTR,0
96 000011 004 004 .BYTE NL$RLE,4
97 000013 005 002 .BYTE NL$RES,2
98 000015 006 010 .BYTE NL$TMO,10
99 000017 200 .BYTE 200
100
101 000030 .PSECT
102 000030 DMCTBL: .BLKW 5
103
104 000042 RDCNT: SAVRG <R4,R3,R2,R1> ; AND SOME REGISTERS.
105 000052 012701 000000' MOV #TBL1,R1 ; GET COUNTER DISPLACEMENT TABLE
106 000056 CALL $PUTCT ; AND MOVE IN WHAT COUNTERS WE CAN.
107 000062 MAP D.LBIA(R4) ; MAP TO THE BASE TABLE
108 000070 016402 000032 MOV D.LVA(R4),R2 ; LOAD BASE TABLE VIRTUAL ADDRESS
109 000074 062704 000060 ADD #D.LREC,R4 ; POINT TO OLD COPY OF COUNTERS
110 000100 062702 000005 ADD #5,R2 ; POINT TO BASE+5 (COUNTERS)
111 000104 012703 000005 MOV #5,R3 ; SET TO GET 5 COUNTERS
112 000110 012701 000030' MOV #DMCTBL,R1 ; INTO OUR OWN TABLE.
113 000114 112200 5$: MOVB (R2)+,R0 ; GET COUNTER AND SIGN EXTEND
114 000116 010011 MOV R0,(R1) ; MOVE INTO ARGUMENT BUFFER
115 000120 112400 MOVB (R4)+,R0 ; NOW GET OLD VALUE
116 000122 160021 SUB R0,(R1)+ ; AND FIGURE DIFERENCE.
117 000124 SOB R3,5$ ; LOOP
118 000130 012704 000030' MOV #DMCTBL,R4 ; SET UP BASE ADDRESS OF TABLE
119 000134 066464 000006 000004 ADD 6(R4),4(R4) ; THIS IS RECEIVED LINE ERRORS.
120 000142 012701 000007' MOV #TBL2,R1 ; GET THE SECOND DISPLACEMENT TABLE
121 000146 CALL $PUTCT ; AND FINISH UP.
122 000152 RESRG <R1,R2,R3,R4> ; FINISHED WITH REGISTERS
123 000162 RETURN
NXDMC MACRO M1110 13-OCT-79 10:35 PAGE 7
125 ;+
126 ; ZRCNT - ZERO COUNTERS
127 ;
128 ; THIS ROUTINE MOVES THE BASE TABLE COUNTERS INTO THE LINE TABLE, RESETS
129 ; THE TIME LAST ZEROED, AND CLEARS THE BLOCK COUNTS (D.RCV, D.XMT).
130 ;
131 ; INPUTS:
132 ; R4 = LINE TABLE ADDRESS
133 ; .CRTIM = CURRENT TIME AS (SECONDS SINCE MIDNIGHT)/2
134 ;
135 ; OUTPUTS:
136 ; COUNTERS RESET
137 ;
138 ; REGISTERS MODIFIED: APR6,R0
139 ;-
140
141 000164 ZRCNT: SAVRG <R4,R1> ; AND SOME REGISTERS.
142 000170 016764 000000G 000052 MOV .CURTM,D.TLZ(R4) ; RESET TIME LAST ZEROED
143 000176 005064 000054 CLR D.XMT(R4) ; ZERO XMITT BLOCK COUNT
144 000202 005064 000056 CLR D.RCV(R4) ; ZERO RECEIVE COUNT
145 000206 MAP D.LBIA(R4) ; MAP TO BASE TABLE
146 000214 016401 000032 MOV D.LVA(R4),R1 ; LOAD BASE TABLE VIRTUAL ADDRESS
147 000220 062704 000060 ADD #D.LREC,R4 ; POINT TO OLD ERROR COUNTERS
148 000224 062701 000005 ADD #5,R1 ; POINT TO BASE+5 (COUNTERS)
149 000230 012700 000005 MOV #5,R0 ; DO FOR 5 COUNTERS.
150 000234 112124 10$: MOVB (R1)+,(R4)+ ; MOVE COPY INTO LINE TABLE
151 000236 SOB R0,10$ ; LOOP
152 000242 000241 CLC ; SET SUCCESS
153 000244 RESRG <R1,R4> ; FINISHED WITH REGISTERS
154 000250 RETURN
155
156 000001 .END
NXDMC MACRO M1110 13-OCT-79 10:35 PAGE 7-1
SYMBOL TABLE
A$$CHK= 000000 E$$XPR= 000000 M$$MGE= 000000 NN$UMR= 000002 ST$ENA= 000005
A$$CPS= 000000 FE.CAL= 000040 M$$OVR= 000000 NN$UMS= 000001 ST$LOO= 000003
A$$PRI= 000000 FE.DRV= 000010 ND$BAD= 177777 NN$ZRO= 000000 ST$MAI= 000004
A$$TRP= 000000 FE.EXP= 000200 ND$LCC= 000000 NPWD 000004 ST$OFF= 000001
CMODE = 140000 FE.EXT= 000001 ND$LCS= 000001 NSTA 000006 ST$ON = 000000
C$$CKP= 000000 FE.EXV= 000004 ND$LNC= 000004 NS$SUC= 000001 ST$SHU= 000002
C$$ORE= 000400 FE.LSI= 000400 ND$LNS= 000005 N$DPOS= 000014 SWR = 177570
C$$RSH= 177564 FE.MUP= 000002 ND$RMC= 000002 N$DUMP= 000003 S$$WRG= 000000
DMCTBL 000030R FE.MXT= 040000 ND$RMS= 000003 N$EXAM= 000015 S$$YSZ= 007600
DM$END= 000000 FE.NLG= 100000 ND$ZLC= 000000 N$LNSR= 000016 S.RCN 000004
DM$MIM= 000002 FE.PKT= 000100 ND$ZLN= 000002 N$LOAD= 000002 S.RLG 000002
DM$PXA= 000003 FE.PLA= 000020 ND$ZRM= 000001 N$LOGD= 000001 S.SLG 000000
DM$SAD= 000001 F$$LVL= 000001 NE$CON= 177762 N$LOOP= 000005 S.ZCN 000006
D$$BUG= 177514 G$$TPP= 000000 NE$FIL= 177763 N$RDIN= 000010 TASN 000016
D$$ISK= 000000 G$$TSS= 000000 NE$FIO= 177756 N$STPR= 000007 TBL1 000000R 004
D$$L11= 000001 G$$TTK= 000000 NE$FOR= 177776 N$TEST= 000006 TBL2 000007R 004
D$$YNC= 000000 G$$WRD= 000000 NE$FUN= 177777 N$TRIG= 000004 TCTL 000002
D$$YNM= 000000 I$$RAR= 000000 NE$LCO= 177766 N$ZERO= 000011 TDDM 000014
D.CFNC 000036 I$$RDN= 000000 NE$LID= 177770 N$$LDV= 000001 TDLC 000015
D.ERRS 000034 KDSAR0= 172360 NE$LPR= 177757 N$$MOV= 000010 TFLG 000006
D.IVCT 177724 KDSDR0= 172320 NE$LST= 177767 N$$SYS= 000001 TLIN 000003
D.LBIA 000030 KISAR0= 172340 NE$NCO= 177755 N$$USR= 000001 TNAM 000000
D.LEN = 000144 KISAR5= 172352 NE$NIC= 177753 N.MLEN= 000454 TPDV 000007
D.LINE 000026 KISAR6= 172354 NE$NOD= 177765 PIRQ = 177772 TPS = 177564
D.LOGG 000066 KISAR7= 172356 NE$NOR= 177754 PMODE = 030000 TSLF 000012
D.LREC 000060 KISDR0= 172300 NE$ORD= 177774 PR0 = 000000 TSLN 000010
D.LVA 000032 KISDR6= 172314 NE$PAR= 177760 PR1 = 000040 TSTA 000004
D.OFFI= 000030 KISDR7= 172316 NE$RES= 177761 PR4 = 000200 T$$KMG= 000000
D.OFFO= 000002 K$$CNT= 177546 NE$SER= 177764 PR5 = 000240 T$$MIN= 000000
D.OFFS= 000054 K$$CSR= 177546 NE$STA= 177775 PR6 = 000300 UBMPR = 170200
D.OVCT 177752 K$$LDC= 000000 NL$BRC= 000001 PR7 = 000340 UDSAR0= 177660
D.PFNC 000040 K$$TPS= 000074 NL$BTR= 000002 PS = 177776 UDSDR0= 177620
D.PLEX 000046 LD$LP = 000000 NL$RES= 000005 PT$END= 000000 UISAR0= 177640
D.RAQC 000002 LI$KNO= 000000 NL$RLE= 000004 PT$HOS= 000003 UISAR4= 177650
D.RASQ 000010 LI$STA= 000001 NL$RTR= 000003 PT$NAM= 000001 UISAR5= 177652
D.RAWQ 000004 LI$STR= 000002 NL$TMO= 000006 PT$NUM= 000002 UISAR6= 177654
D.RBFC 000003 LS$DUM= 000002 NL$ZRO= 000000 P$$P45= 000000 UISAR7= 177656
D.RCV 000056 LS$LOA= 000000 NNOD 000000 P$$WRD= 000000 UISDR0= 177600
D.SEL0 177744 LS$LOO= 000001 NNUM 000002 Q$$OPT= 000010 UISDR4= 177610
D.SEL2 177772 LS$TRI= 000004 NN$CAC= 000011 RDCNT 000042R UISDR5= 177612
D.STAT 000044 LS$TRQ= 000003 NN$CNI= 000013 RDLOG 000010R UISDR6= 177614
D.TIME 000001 L$$ASG= 000000 NN$CNR= 000014 R$$DER= 000000 UISDR7= 177616
D.TIMR 000000 L$$DRV= 000000 NN$EXT= 000003 R$$K11= 000001 V$$CTR= 001000
D.TLZ 000052 L$$P11= 000001 NN$FMT= 000005 R$$SND= 000000 X$$DBT= 000000
D.XAQC 000014 L$$11R= 000000 NN$IZS= 000007 R$$11M= 000000 ZRCNT 000164R
D.XASQ 000022 MPAR = 172100 NN$IZU= 000010 SISDR0= 172200 $PUTCT= ****** GX
D.XAWQ 000016 MPCSR = 177746 NN$MAC= 000012 SR0 = 177572 $$$ = 000000R
D.XBFC 000015 M$$CRB= 000124 NN$NKS= 000004 SR3 = 172516 .CURTM= ****** GX
D.XMT 000054 M$$CRX= 000000 NN$RES= 000006 ST$DIS= 000006 ..OFF.= 177724
EVLOG 000020R M$$FCS= 000000
. ABS. 177776 000
000252 001
$$DSP1 000002 002
$$NAM1 000002 003
BYTE 000020 004
ERRORS DETECTED: 0
NXDMC MACRO M1110 13-OCT-79 10:35 PAGE 7-2
SYMBOL TABLE
VIRTUAL MEMORY USED: 5727 WORDS ( 23 PAGES)
DYNAMIC MEMORY: 6892 WORDS ( 26 PAGES)
ELAPSED TIME: 00:00:21
NXDMC,[131,34]NXDMC/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NXDMC
NXDMC CREATED BY MACRO ON 13-OCT-79 AT 10:35 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DMCTBL 000030 R #6-102 6-112 6-118
D.CFNC 000036 #3-35
D.ERRS 000034 #3-35
D.IVCT 177724 #3-35 3-35
D.LBIA 000030 #3-35 6-107 7-145
D.LEN = 000144 #3-35
D.LINE 000026 #3-35
D.LOGG 000066 #3-35 4-55 *5-73
D.LREC 000060 #3-35 6-109 7-147
D.LVA 000032 #3-35 6-108 7-146
D.OFFI = 000030 #3-35
D.OFFO = 000002 #3-35
D.OFFS = 000054 #3-35
D.OVCT 177752 #3-35
D.PFNC 000040 #3-35
D.PLEX 000046 #3-35
D.RAQC 000002 #3-35
D.RASQ 000010 #3-35
D.RAWQ 000004 #3-35
D.RBFC 000003 #3-35
D.RCV 000056 #3-35 6-92 *7-144
D.SEL0 177744 #3-35
D.SEL2 177772 #3-35
D.STAT 000044 #3-35
D.TIME 000001 #3-35
D.TIMR 000000 #3-35
D.TLZ 000052 #3-35 6-91 *7-142
D.XAQC 000014 #3-35
D.XASQ 000022 #3-35
D.XAWQ 000016 #3-35
D.XBFC 000015 #3-35
D.XMT 000054 #3-35 6-93 *7-143
EVLOG 000020 R 3-39 #5-73
KISAR6 = 172354 *6-107 *7-145
M$$MGE = 000000 3-35 3-35 3-35 3-35 6-107 7-145
NL$BRC = 000001 6-92
NL$BTR = 000002 6-93
NL$RES = 000005 6-97
NL$RLE = 000004 6-96
NL$RTR = 000003 6-95
NL$TMO = 000006 6-98
NL$ZRO = 000000 6-91
NNOD 000000 #3-36
NNUM 000002 #3-36
NPWD 000004 #3-36
NSTA 000006 #3-36
RDCNT 000042 R 3-39 #6-104
RDLOG 000010 R 3-39 #4-55
S.RCN 000004 #3-36
S.RLG 000002 #3-36
S.SLG 000000 #3-36
S.ZCN 000006 #3-36
NXDMC CREATED BY MACRO ON 13-OCT-79 AT 10:35 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TASN 000016 #3-36
TBL1 000000 R #6-91 6-105
TBL2 000007 R #6-95 6-120
TCTL 000002 #3-36
TDDM 000014 #3-36
TDLC 000015 #3-36
TFLG 000006 #3-36
TLIN 000003 #3-36
TNAM 000000 #3-36
TPDV 000007 #3-36
TSLF 000012 #3-36
TSLN 000010 #3-36
TSTA 000004 #3-36
ZRCNT 000164 R 3-39 #7-141
$PUTCT = ****** GX 6-106 6-121
$$$ = 000000 R #3-39 3-39
.CURTM = ****** GX 7-142
..OFF. = 177724 #3-35 3-35 3-35
NXDMC CREATED BY MACRO ON 13-OCT-79 AT 10:35 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 6-106 6-121
DLXDF$ #3-33 #3-36
DMCDF$ #3-33 3-35
HWDDF$ #6-107 #6-107 #7-145 #7-145
MAP #3-33 #6-107 #7-145
NICDF #3-33 3-37
PROCES #3-36 3-39
RESRG #3-33 6-122 7-153
RETURN 4-57 5-75 6-123 7-154
SAVRG #3-33 #6-104 #7-141
SOB #6-117 #7-151
TMPDF$ #3-35 #3-35
.BIN #3-35
.CNB #3-35
.CNW #3-35
.CORE #3-35
.CSR #3-35 #3-35 #3-35
.DVCHA #3-35 #3-35
.INT #3-35 3-35 3-35 3-35
.INT1 #3-35
.INT2 #3-35
.INT3 #3-35
.LFLHD #3-35
.LIBR #3-35
.LINKS #3-35
.LSTHD #3-35 3-35 3-35 3-35 3-35 3-35
.LTAB #3-35
.MPLHD #3-35
.POOL #3-35
.PRI #3-35 3-35 3-35
.SCOM #3-35
.SECSR #3-35
.SLNB #3-35
.SLNW #3-35
.STNB #3-35
.STNW #3-35
.UNB #3-35
.UNW #3-35
.VFY #3-35