Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/t72sub.list
There are no other files named t72sub.list in the archive.
T72SUB MACRO M1110 19-OCT-79 16:17 PAGE 3
1 .TITLE T72SUB
2 .IDENT /X03.01/
3 ;
4 ; COPYRIGHT (C) 1978
5 ; DIGITAL EQUIPMENT CORPORATION
6 ;
7 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
8 ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE
9 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR
10 ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
11 ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH
12 ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE
13 ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN
14 ; IN DEC.
15 ;
16 ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
17 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
18 ; EQUIPMENT CORPORATION.
19 ;
20 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
21 ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
22 ;
23 ; LELAND WEBBER 13-JUN-78
24 ;
25 ; 3.01
26 ; L. WEBBBER 19-OCT-79
27 ; ADD ROUTINE "CLRLPB"
28 ;
29 ;
T72SUB MACRO M1110 19-OCT-79 16:17 PAGE 4
31 ;
32 ; EXTERNAL MACROS
33 ;
34
35 .MCALL MRKT$S,WTSE$S
36 .MCALL NSPSY$,PDVDF$
37 000000 NSPSY$ ;NSP'S INTERNAL DATA BASE
38 000000 PDVDF$ ;PDV SYMBOLS
39
40 000002 CTCSR = 2 ;OFFSET OF CSR ADDRESS IN COMMIO/DUP LINE TABLE
41 000062 TCSR = 62 ;OFFSET OF CSR ADDRESS IN STANDARD DUP LINE TABLE
42 010000 MTMODE = 10000 ;MAINTENANCE MODE B BIT IN DUP CSR
43 000006 WAITFN = 6 ;TIME DELAY FLAG - SET BY MARK TIME
44
45 ;
46 ; VARIABLES
47 ;
48
49 000000 000000 NSPDB: .WORD 0 ;ADDRESS OF NSP DATA BASE
50 000002 000000 CSRAD: .WORD 0 ;ADDRESS OF CSR'S FOR SELECTED DUP (IF A DUP IT IS)
51 000004 000000 PECIAL::.WORD 0 ;CODE TO INDICATE SPECIAL POST-PROCESSING FOR A LINE
T72SUB MACRO M1110 19-OCT-79 16:17 PAGE 5
53 ;
54 ; ROUTINE TO SET THE LOOPBACK PARAMETERS TO THE CHANNEL# OF THE SELECTED LINE
55 ;
56 ; INPUTS: R4 = SYSTEM LINE NUMBER OF SELECTED LINE
57 ;
58 ; OUTPUTS: R0 = NSP CHANNEL NUMBER (LLN) OF SELECTED LINE
59 ; NSP LOOPBACK CELL "N$LNI" SET TO CHANNEL# FOR LINE
60 ;
61
62 000006 016701 000000C STLPBK::MOV $PDVTB+PD$NSP,R1 ;GET NSP'S PDV ADDRESS
63 000012 016101 000014 MOV Z.DAT(R1),R1 ;ADDRESS NSP'S DATA BASE
64 000016 010167 177756 MOV R1,NSPDB ;SAVE THE ADDRESS
65 000022 116405 000000G MOVB $LLCTB(R4),R5 ;PICK UP CHANNEL# FOR LINE
66 000026 010500 MOV R5,R0 ;SAVE THE CHANNEL#
67 000030 070527 000014 MUL #P$LEN,R5 ;ADDRESS PHYSICAL
68 000034 066105 000030 ADD N$PLD+2(R1),R5 ; LINE DATA BASE ENTRY
69 000040 010561 000010 MOV R5,N$LNI(R1) ; AND PUT IN IN NSP LOOPBACK CELL
70 000044 RETURN
71
72
73 ;
74 ; ROUTINE TO SET THE LOOPBACK PARAMETERS BACK THE WAY THEY WERE
75 ;
76
77 000046 016701 177726 CLRLPB::MOV NSPDB,R1 ;ADDRESS NSP DATA BASE
78 000052 005061 000010 CLR N$LNI(R1) ;WIPE OUT LOOPBACK CELL
79 000056 RETURN
T72SUB MACRO M1110 19-OCT-79 16:17 PAGE 6
81 ;
82 ; ROUTINE TO MAKE SURE THE SELECTED LINE IS UP
83 ; TESTS THE PHYSICAL LINE TABLE ENTRY FOR THE "UP" STATE
84 ; IF NOT "UP", WAITS ONE SECOND AND TRIES AGAIN
85 ;
86 ; INPUTS: R0 = LLN FOR LINE
87 ;
88 ; DESTROYS REGISTERS 0 AND 1
89 ;
90
91 000060 016701 000000C CHKLIN::MOV $PDVTB+PD$NSP,R1 ;GET NSP'S PDV ADDRESS
92 000064 016101 000014 MOV Z.DAT(R1),R1 ;ADDRESS NSP'S DATA BASE
93 000070 016101 000030 MOV N$PLD+2(R1),R1 ;ADDRESS PHYSICAL LINE DATA BASE
94 000074 010005 MOV R0,R5 ;CALCULATE OFFSET
95 000076 070527 000014 MUL #P$LEN,R5 ; OF DATA BASE ENTRY
96 000102 060501 ADD R5,R1 ;ADDRESS ENTRY
97
98 000104 20$: MRKT$S #WAITFN,#1,#2 ;WAIT A
99 000130 WTSE$S #WAITFN ; SECOND
100 000142 121127 000005 CMPB (R1),#PS$UP ;TEST LINE FOR "UP"NESS
101 000146 001356 BNE 20$ ;NOPE - WAIT AGAIN
102 000150 RETURN ;GOOD - RETURN
T72SUB MACRO M1110 19-OCT-79 16:17 PAGE 7
104 ;
105 ; ROUTINE TO DO SETUP FOR KMC/DUP OR STRAIGHT DUP
106 ; SETS MAINTENANCE MODE BITS (11-12) IN CSR 16XXX4 TO '10'
107 ; (EXTERNAL MAINTENANCE MODE OR SELECT B)
108 ;
109 ; INPUTS: R1 -> LINE TABLE FOR SELECTED KDP OR DUP
110 ;
111 ; OUTPUTS: NO EXPLICIT ONES
112 ; CSR #4 FOR SELECTED LINE IS SET UP AS DESCRIBED ABOVE
113 ;
114 ; DESTROYS REGISTERS 1 AND 2
115 ;
116
117 .ENABL LSB
118 000152 016101 000002 KMCSET::MOV CTCSR(R1),R1 ;ADDRESS CSR'S FOR LINE
119 000156 062701 000004 ADD #4,R1 ;ADDRESS CSR #4
120 000162 000402 BR 10$
121
122 000164 016101 000062 DUPSET::MOV TCSR(R1),R1 ;ADDRESS CSR #4 FOR LINE
123 000170 012767 000002 177606 10$: MOV #2,PECIAL ;REQUEST SPECIAL POST-PROCESSING
124 000176 010167 177600 MOV R1,CSRAD ;SAVE THE ADDRESS
125 000202 052711 010000 BIS #MTMODE,(R1) ;SET UP MAINTENANCE MODE
126 000206 000241 CLC
127 000210 RETURN
128 .DSABL LSB
129
130
131 ;
132 ; ROUTINE TO TURN OFF MAINTENANCE MODE ON A DUP LINE AT
133 ; THE END OF THIS PROGRAM
134 ;
135
136 000212 KMCUNSET::
137 000212 016701 177564 MOV CSRAD,R1 ;ADDRESS DUP CSR'S
138 000216 042711 010000 BIC #MTMODE,(R1) ;TURN OFF EXTERNAL M.M. BIT
139 000222 RETURN
140 000001 .END
T72SUB MACRO M1110 19-OCT-79 16:17 PAGE 7-1
SYMBOL TABLE
ACKMAS= 170000 ER$NOD= 000002 L$$DRV= 000000 NC.FM0= 000000 NT$RTI= 000010
ACKPRE= 100000 ER$NSD= 000003 L$$P11= 000001 NC.FM1= 000001 NT$RTN= 000000
ACKRES= 060000 ER$RES= 000001 L$$11R= 000000 NC.FM2= 000002 NT$SNG= 000006
ACKWRA= 010000 ER$SSR= 000000 L.CIQ 000026 NETTIM= 000005 NT$STP= 000004
A$$CHK= 000000 ER$SSS= 000045 L.DCR 000036 NE.ABO= 177776 NT$XOF= 000020
A$$CPS= 000000 ER$STA= 000051 L.FLG 000012 NE.ACT= 177771 NT$XON= 000016
A$$PRI= 000000 ER$TCN= 000040 L.LDA 000024 NE.CLS= 177767 NT.ACK= 000001
A$$TRP= 000000 ER$TCO= 000041 L.LIA 000026 NE.DIS= 177777 NT.BOM= 000040
A.NAK = 010000 ER$TPA= 000010 L.LLA 000002 NE.FMT= 177770 NT.EOM= 000100
CHKLIN 000060RG ER$UOB= 000004 L.LNG1 000054 NE.NDT= 177766 NT.FCN= 037400
CLRLPB 000046RG E$$XPR= 000000 L.LNO 000022 NE.NOD= 177774 NT.MD1= 000420
CL$ACK= 000040 F$$LVL= 000001 L.LSA 000032 NE.REJ= 177775 NT.MFL= 000002
CL$MFL= 000010 G$$TPP= 000000 L.LSF 000044 NE.RES= 177773 NT.MOD= 000020
CL$NRM= 000020 G$$TSS= 000000 L.LVL 000001 NE.TIM= 177772 NT.MOM= 000000
CL$SFL= 000004 G$$TTK= 000000 L.NDA 000034 NI.FLI= 000002 NT.NAK= 000002
CL$TYP= 000001 G$$WRD= 000000 L.NIN 000016 NI.FRI= 000004 NT.NFL= 000000
CL.MU1= 000001 I$$RAR= 000000 L.NLA 000036 NI.FRT= 000001 NT.SFL= 000001
CL.MU2= 000002 I$$RDN= 000000 L.NSTA 000025 NI.FUB= 000010 NT.SOL= 000140
CL.RES= 177774 KMCSET 000152RG L.NXN 000014 NI.INI= 000001 NT.XOF= 000004
CSRAD 000002R KMCUNS 000212RG L.PDV 000041 NI.RLI= 000002 NT.XON= 000010
CTCSR = 000002 K$$CNT= 177546 L.REM 000006 NI.RRI= 000004 N$ACQ 000000
C$$CKP= 000000 K$$CSR= 177546 L.RLA 000010 NI.RVE= 000001 N$ICF 000006
C$$ORE= 000400 K$$LDC= 000000 L.RNO 000020 NI.VER= 000002 N$LNI 000010
C$$RSH= 177564 K$$TPS= 000074 L.STA 000000 NP$RTR= 000003 N$LVC 000022
DF$ADJ= 020000 LA.ACK= 100000 L.TC 000042 NSPDB 000000R N$NOD 000032
DF$DWN= 001000 LA.MSK= 170000 L.TIC 000043 NS.BOM= 000040 N$PLD 000026
DF$FRE= 070000 LA.NAK= 110000 L.TIPD 000005 NS.EOM= 000100 N$STS 000042
DF$LCL= 040000 LA.NMS= 010000 L.TIPI 000004 NS.MFL= 000003 N$TCB 000004
DF$LNK= 004000 LA.RES= 060000 L.UDQ 000034 NS.MOM= 000000 N$TMP 000012
DF$REM= 010000 LD$LP = 000000 L.ULA 000040 NS.NFL= 000001 N$VER 000036
DF$RES= 002000 LF.DFL= 000060 L.USA 000030 NS.SET= 000002 N$$DAT= 000030
DF$TMP= 100000 LF.DSP= 000040 L.USTA 000024 NS.SFL= 000002 N$$DIS= 000020
DUPSET 000164RG LF.DST= 000020 L.XQ1 000046 NS.SOL= 000140 N$$INT= 000020
D$CHN 000002 LF.FPN= 000010 L.XQ2 000050 NS.SUC= 000001 N$$LDV= 000001
D$FLG 000000 LF.HF0= 001000 L.XQ3 000052 NT$ABO= 000022 N$$MOV= 000010
D$LEN 000014 LF.HMF= 020000 MA.DA = 000000 NT$ACC= 000002 N$$OPT= 000020
D$LNG 000005 LF.HSF= 010000 MA.IL = 000020 NT$ADS= 000000 N$$OVR= 000042
D$NAM 000006 LF.INR= 000100 MC.CC = 000040 NT$AKD= 000016 N$$SYS= 000001
D$USE 000004 LF.INT= 000400 MC.CI = 000020 NT$AKI= 000020 N$$USR= 000001
D$$BUG= 177514 LF.LCL= 040000 MC.DC = 000100 NT$CC = 000012 N.ACNT 000116
D$$ISK= 000000 LF.MMF= 100000 MC.DI = 000060 NT$CON= 000000 N.ACTL 000114
D$$L11= 000001 LF.MSF= 040000 MC.NO = 000000 NT$DAT= 000002 N.DDL1 000012
D$$YNC= 000000 LF.NKR= 000200 MC.ST = 000120 NT$DIS= 000010 N.DDL2 000016
D$$YNM= 000000 LF.NKS= 000400 MD.BM = 000040 NT$IDC= 000034 N.DDS1 000014
ER$ABO= 000046 LF.NPN= 000001 MD.EM = 000100 NT$IDN= 000030 N.DDS2 000020
ER$ABT= 000011 LF.NTS= 002000 MD.ILS= 000040 NT$ILN= 000032 N.DFMT 000010
ER$ACC= 000042 LF.RSU= 100000 MD.IM = 000020 NT$IND= 000024 N.DGRP 000012
ER$ACT= 000044 LS.DLS= 000200 MF.ACK= 000004 NT$INL= 000026 N.DOBJ 000011
ER$CDI= 000052 LS.FCC= 000004 MF.CTL= 000010 NT$INT= 000004 N.DUSR 000014
ER$COM= 000047 LS.FC0= 000001 MF.DAT= 000000 NT$LS = 000014 N.LGTH= 000160
ER$FCF= 000050 LS.FC1= 000002 MSGHDR= 000007 NT$MOD= 000012 N.NODE 000000
ER$FMT= 000005 LS.ILS= 000200 MTMODE= 010000 NT$NAK= 000022 N.OPDL 000136
ER$GEN= 000007 LS.MAK= 000020 M$$CRB= 000124 NT$OFF= 000026 N.OPTD 000140
ER$IFC= 000030 LS.MNK= 000040 M$$CRX= 000000 NT$ON = 000002 N.PASL 000102
ER$ILS= 000043 LS.RES= 000360 M$$FCS= 000000 NT$QRY= 000014 N.PASS 000104
ER$IMG= 000053 LS.RSV= 000300 M$$MGE= 000000 NT$REJ= 000004 N.RQDL 000060
ER$MLB= 000006 L$$ASG= 000000 M$$OVR= 000000 NT$ROU= 000022 N.RQID 000062
T72SUB MACRO M1110 19-OCT-79 16:17 PAGE 7-2
SYMBOL TABLE
N.RSRV= 000030 PF$UP = 000001 RF.WTD= 000020 S$EMR 000006 WAITFN= 000006
N.SDL1 000036 PS$NTI= 000003 RF.WTM= 000030 S$FMT 000012 WINDOW= 004000
N.SDL2 000042 PS$OFF= 000000 RF.WTS= 000010 S$LEN 000040 X$$DBT= 000000
N.SDS1 000040 PS$STR= 000001 RH.CNT= 000001 S$LNK 000022 ZF.DDM= 000001
N.SDS2 000056 PS$UP = 000005 RH.EFM= 000020 S$MLK 000024 ZF.DLC= 000002
N.SEG 000006 PS$VER= 000004 RH.HDR= 000002 S$NKS 000010 ZF.KMX= 000020
N.SFMT 000034 PS$WT = 000002 RH.PRI= 000014 S$RES 000014 ZF.LLC= 000004
N.SGRP 000036 P$CHN 000004 RH.PR1= 000004 S$SEC 000000 ZF.LMC= 000100
N.SOBJ 000035 P$CNT 000005 RH.RFM= 000100 S$SNI 000016 ZF.MFL= 000010
N.SUSR 000040 P$FRQ 000012 R$$DER= 000000 S$UMR 000004 ZF.MUX= 000040
PD$NSP= ****** GX P$FSP 000013 R$$K11= 000001 S$UMS 000002 ZF.TIM= 000200
PECIAL 000004RG P$LCD 000002 R$$SND= 000000 S$UNI 000020 Z.DAT 000014
PF$EIP= 000100 P$LEN 000014 R$$11M= 000000 S$$WRG= 000000 Z.DSP 000000
PF$ENB= 000200 P$LST 000000 STLPBK 000006RG S$$YSZ= 007600 Z.FLG 000011
PF$OFF= 000000 P$NOD 000010 ST$CC = 000002 TCSR = 000062 Z.LEN = 000014
PF$RLI= 000002 P$PFQ 000006 ST$CIR= 000003 T$$KMG= 000000 Z.LLN 000010
PF$RRI= 000004 P$TIM 000003 ST$CIS= 000001 T$$MIN= 000000 Z.MAP 000016
PF$RVE= 000001 P$$P45= 000000 ST$DAT= 000005 VF$RCV= 100000 Z.NAM 000006
PF$RVR= 000040 P$$WRD= 000000 ST$DID= 000015 VF$XMT= 040000 Z.PCB 000012
PF$SLI= 000002 Q$$OPT= 000010 ST$DIP= 000006 V$FLG 000000 Z.SCH 000004
PF$SRI= 000004 RF.CLN= 000000 ST$DIR= 000012 V$LEN 000022 $LLCTB= ****** GX
PF$SRT= 000001 RF.CTL= 000003 ST$DIS= 000014 V$RCV 000002 $PDVTB= ****** GX
PF$STA= 000003 RF.TIM= 177400 ST$UDI= 000013 V$XMT 000012 $$$ARG= 000004
PF$SUB= 000010 RF.TM0= 000400 ST$UNR= 000011 V$$CTR= 001000
. ABS. 000160 000
000224 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 18322 WORDS ( 72 PAGES)
DYNAMIC MEMORY: 19564 WORDS ( 75 PAGES)
ELAPSED TIME: 00:01:01
T72SUB,[135,30]T72SUB/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[135,10]T72SUB
T72SUB CREATED BY MACRO ON 19-OCT-79 AT 16:18 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CHKLIN 000060 RG #6-91
CLRLPB 000046 RG #5-77
CSRAD 000002 R #4-50 *7-124 7-137
CTCSR = 000002 #4-40 7-118
DUPSET 000164 RG #7-122
I$$AS = ****** 4-38
KMCSET 000152 RG #7-118
KMCUNS 000212 RG #7-136
MTMODE = 010000 #4-42 7-125 7-138
NSPDB 000000 R #4-49 *5-64 5-77
N$LNI 000010 *5-69 *5-78
N$PLD 000026 5-68 6-93
PD$NSP = ****** GX 5-62 6-91
PECIAL 000004 RG #4-51 *7-123
PS$UP = 000005 6-100
P$LEN 000014 5-67 6-95
R$$11D = ****** 4-38
R$$11M = 000000 4-38
R$$11S = ****** 4-38
STLPBK 000006 RG #5-62
TCSR = 000062 #4-41 7-122
WAITFN = 000006 #4-43 6-98 6-99
X$$MCB = ****** 4-38 4-38
ZF.DDM = 000001 #4-38
ZF.DLC = 000002 #4-38
ZF.KMX = 000020 #4-38
ZF.LLC = 000004 #4-38
ZF.LMC = 000100 #4-38
ZF.MFL = 000010 #4-38
ZF.MUX = 000040 #4-38
ZF.TIM = 000200 #4-38
Z.DAT 000014 #4-38 5-63 6-92
Z.DSP 000000 #4-38 4-38
Z.FLG 000011 #4-38
Z.LEN = 000014 #4-38
Z.LLN 000010 #4-38
Z.MAP 000016 #4-38
Z.NAM 000006 #4-38
Z.PCB 000012 #4-38
Z.SCH 000004 #4-38
$LLCTB = ****** GX 5-65
$PDVTB = ****** GX 5-62 6-91
$$$ARG = 000004 #6-98 6-98 6-98 6-98 6-98 6-98 6-98 6-98 6-98
6-98 6-98
T72SUB CREATED BY MACRO ON 19-OCT-79 AT 16:18 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
DIR$ #6-98 6-98 #6-99 6-99
MOV$ #6-98 6-98 6-98 6-98 6-98 #6-99 6-99
MRKT$S #4-35 #6-98
NSPSY$ #4-36 4-37
PDVDF$ #4-36 #4-38
RETURN 5-70 5-79 6-102 7-127 7-139
RVP$ #6-98 #6-98
WTSE$S #4-35 6-99