Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/bts.list
There are no other files named bts.list in the archive.
BTS MACRO M1110 13-OCT-79 08:11
TABLE OF CONTENTS
4- 53 $PCBGT - ROUTINE TO ALLOCATE A PCB
5- 96 $PCBRT - ROUTINE TO DEALLOCATE A PCB
6- 114 $PCBPT - PCB POINTER COMPUTATION
7- 144 $TCBPT - TCB POINTER COMPUTATION
8- 175 GETCPB - GET CONNECT PENDING BLOCK
BTS MACRO M1110 13-OCT-79 08:11 PAGE 3
1 .TITLE BTS
2 .IDENT /006010/
3 ;
4 ; COPYRIGHT (C) 1976,1977,1978
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
9 ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY
11 ; OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE
12 ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND
13 ; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND
14 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
15 ;
16 ; THE INFORMATION IN THIS SOFTWARE 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
21 ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
22 ;
23 ; VERSION 01
24 ;
25 ; R.A. MODEEN 08-NOV-76
26 ;
27 ; VERSION 02
28 ;
29 ; FRED J. RAAB 09-MAY-77
30 ;
31 ; CHANGED $TCBPT FOR USE WITH A 26. BYTE TCB
32 ;
33 ;
34 ;***************************************************************;
35 ; ;
36 ; BOUNDARY TRANSPORTATION SYSTEM ;
37 ; ;
38 ;***************************************************************;
39
40
41
42 ;
43 ; MACRO LIBRARY CALLS
44 ;
45 .MCALL BITDF$,CCBDF$,PDVDF$,RMDDB$,TTDF$,NSPDF$,MAP
46 000000 BITDF$ ;DEFINE BIT POSITIONS
47 000000 CCBDF$ ;DEFINE CCB OFFSETS
48 000000 PDVDF$ ;DEFINE PDV OFFSETS
49 000000 RMDDB$ ;DEFINE THE NRM DATA BASE OFFSETS
50 000000 TTDF$ ;DEFINE ATS OFFSETS
51 000000 NSPDF$ ;DEFINE NSP SYMBOLS
BTS MACRO M1110 13-OCT-79 08:11 PAGE 4
$PCBGT - ROUTINE TO ALLOCATE A PCB
53 .SBTTL $PCBGT - ROUTINE TO ALLOCATE A PCB
54 ;+
55 ; THIS ROUTINE WILL ALLOCATE A CONTROL BLOCK [IF AVAILABLE].
56 ;
57 ; ENTRY POINTS: $PCBGT - USED TO ALLOCATE A PCB
58 ;
59 ; INPUT:
60 ; NONE
61 ;
62 ; OUTPUT:
63 ; IF SUCCESS:
64 ; C=0, R3= ADDRESS OF PCB
65 ;
66 ; IF FAILURE: C=1
67 ;-
68
69 000000 010246 $PCBGT::MOV R2,-(SP) ; SAVE REGISTERS
70 000002 010146 MOV R1,-(SP)
71 000004 CALL NRMDAT ; GET NRM DATA BASE.
72 000010 103436 BCS 90$ ; (IF IT IS THERE)
73 000012 016203 000012 MOV R$PCB+2(R2),R3 ; GET THE PCB TABLE
74 000016 016202 000010 MOV R$PCB(R2),R2 ; AND THE NUMBER OF PCBS.
75 000022 001431 BEQ 90$ ; (IF THERE ARE ANY)
76 000024 010201 MOV R2,R1 ; SAVE FOR LATER.
77 000026 005763 000010 70$: TST P.STS(R3) ; IS THIS PCB FREE ?
78 000032 001405 BEQ 80$ ; IF NOT,
79 000034 062703 000024 ADD #PCBLEN,R3 ; GO ON TO THE NEXT ONE.
80 000040 SOB R1,70$ ; UNTIL WE RUN OUT -
81 000044 000420 BR 90$ ; THEN IT IS AN ERROR.
82 000046 160102 80$: SUB R1,R2 ; GET THE
83 000050 005202 INC R2 ; PCB NUMBER
84 000052 110263 000020 MOVB R2,P.NUM(R3) ; AND STORE IT.
85 000056 005063 000002 CLR P.RES(R3) ; INITIALIZE VARIOUS ITEMS.
86 000062 005063 000004 CLR P.REF(R3)
87 000066 005063 000012 CLR P.BPQ+0(R3) ; SET BACK-PRESSURE QUEUE.
88 000072 012763 000012 000014 MOV #P.BPQ,P.BPQ+2(R3)
89 000100 060363 000014 ADD R3,P.BPQ+2(R3)
90 000104 005727 TST (PC)+ ; CLEAR THE CARRY.
91 000106 000261 90$: SEC
92 000110 012601 MOV (SP)+,R1 ; RECOVER REGISTERS.
93 000112 012602 MOV (SP)+,R2
94 000114 RETURN
BTS MACRO M1110 13-OCT-79 08:11 PAGE 5
$PCBRT - ROUTINE TO DEALLOCATE A PCB
96 .SBTTL $PCBRT - ROUTINE TO DEALLOCATE A PCB
97 ;+
98 ; THIS ROUTINE DEALLOCATES AND CLEARS A PCB
99 ;
100 ; INPUT:
101 ; R3= PCB ADDRESS
102 ;
103 ; OUTPUT:
104 ; NONE
105 ;
106 ; REGISTERS MODIFIED:
107 ; NONE
108 ;
109 ;-
110 000116 $PCBRT::
111 000116 005063 000010 CLR P.STS(R3) ; MAKE SURE IT IS FREE.
112 000122 RETURN ; EASY !
BTS MACRO M1110 13-OCT-79 08:11 PAGE 6
$PCBPT - PCB POINTER COMPUTATION
114 .SBTTL $PCBPT - PCB POINTER COMPUTATION
115 ;+
116 ; THIS ROUTINE CALCULATES A PCB POINTER, GIVEN A PCB NUMBER (ULA)
117 ;
118 ; INPUT:
119 ; R0= PCB NUMBER (ULA)
120 ;
121 ; OUTPUT:
122 ; IF SUCCESS: C=CLEAR, R3= POINTER TO PCB
123 ; IF FAILURE: C=SET
124 ;
125 ; REGISTERS MODIFIED:
126 ; R3
127 ;
128 ;-
129 000124 $PCBPT::
130 000124 010246 MOV R2,-(SP) ; SAVE A REGISTER
131 000126 CALL NRMDAT ; GET NRM DATA BASE.
132 000132 103412 BCS 90$ ; (IF IT IS THERE)
133 000134 010003 MOV R0,R3 ; COPY
134 000136 005303 DEC R3 ; AND TURN INTO INDEX.
135 000140 026203 000010 CMP R$PCB(R2),R3 ; IF IN RANGE
136 000144 101405 BLOS 90$ ; THEN
137 000146 070327 000024 MUL #PCBLEN,R3 ; INDEX INTO
138 000152 066203 000012 ADD R$PCB+2(R2),R3 ; PCB TABLE.
139 000156 005727 TST (PC)+ ; CLEAR THE CARRY.
140 000160 000261 90$: SEC ; THIS SIGNALS AN ERROR.
141 000162 012602 MOV (SP)+,R2 ; RECOVER REGISTER.
142 000164 RETURN
BTS MACRO M1110 13-OCT-79 08:11 PAGE 7
$TCBPT - TCB POINTER COMPUTATION
144 .SBTTL $TCBPT - TCB POINTER COMPUTATION
145 ;+
146 ; THIS ROUTINE COMPUTES A TCB ADDRESS, GIVEN A TCB NUMBER (BTN)
147 ;
148 ; INPUT:
149 ; R0= TCB NUMBER (BTN)
150 ;
151 ; OUTPUT:
152 ; IF SUCCESS: C=0, R5= TCB ADDRESS
153 ; IF FAILURE: C=1
154 ;
155 ; REGISTERS MODIFIED:
156 ; R5
157 ;
158 ;-
159 000166 $TCBPT::
160 000166 010246 MOV R2,-(SP) ; SAVE A REGISTER
161 000170 CALL NRMDAT ; GET NRM DATA BASE.
162 000174 103413 BCS 90$ ; (IF IT IS THERE)
163 000176 010005 MOV R0,R5 ; COPY
164 000200 005305 DEC R5 ; AND TURN INTO INDEX.
165 000202 026205 000014 CMP R$TCB(R2),R5 ; IF WITHIN RANGE
166 000206 101406 BLOS 90$ ; THEN
167 000210 070527 000040 MUL #TCBLEN,R5 ; INDEX INTO
168 000214 062705 000016 ADD #R$TCB+2,R5 ; TCB TABLE
169 000220 060205 ADD R2,R5 ; THIS IS IT.
170 000222 005727 TST (PC)+ ; CLEAR THE CARRY.
171 000224 000261 90$: SEC ; THIS SIGNALS AN ERROR.
172 000226 012602 MOV (SP)+,R2 ; RECOVER REGISTER.
173 000230 RETURN
BTS MACRO M1110 13-OCT-79 08:11 PAGE 8
GETCPB - GET CONNECT PENDING BLOCK
175 .SBTTL GETCPB - GET CONNECT PENDING BLOCK
176 ;
177 ; GETCPB - ADDRESS TWO PARTS OF CONNECT PENDING BLOCK
178 ;
179 ; INPUTS: R4 -> CCB OF CONNECT INITIATE
180 ;
181 ; OUTPUTS: APR6 -> MAPPED TO CONNECT BLOCK
182 ; R2 -> ACCOUNTING PART OF CPB (N.RQDL)
183 ; R0 -> CONNECT PENDING BLOCK
184 ;
185
186 000232 GETCPB::
187 000232 MAP C.BUF(R4) ;MAP CPB INTO REGION
188 000240 016400 000016 MOV C.BUF+2(R4),R0 ;ADDRESS CPB
189 000244 010002 MOV R0,R2 ;ADDRESS
190 000246 062702 000060 ADD #N.RQDL,R2 ; SECOND PART OF CPB
191 000252 RETURN
192
193 ;+
194 ; GET NRM DATA BASE INTO R2.
195 ;
196 ; NO INPUTS
197 ;
198 ; OUTPUTS:
199 ; IF SUCCESS: C=CLEAR, R2= ADDRESS OF NRM DATA BASE
200 ; IF FAILURE: C=SET
201 ;
202 ; REGISTERS MODIFIED: R2
203 ;-
204
205 000254 016702 000000G NRMDAT: MOV $PDVTA,R2 ; GET THE
206 000260 016202 000000G MOV PD$NRM(R2),R2 ; PDV AND THEN
207 000264 016202 000014 MOV Z.DAT(R2),R2 ; THE DATA BASE.
208 000270 000241 CLC ; *MUST* BE LOADED !
209 000272 RETURN
210
211 000001 .END
BTS MACRO M1110 13-OCT-79 08:11 PAGE 8-1
SYMBOL TABLE
A$$CHK= 000000 C.BUF 000014 FS.SET= 005000 NS.EOM= 000100 N.DGRP 000012
A$$CPS= 000000 C.BUF1 000014 FS.STM= 000000 NS.MFL= 000003 N.DOBJ 000011
A$$PRI= 000000 C.BUF2 000024 FS.STP= 002000 NS.MOM= 000000 N.DUSR 000014
A$$TRP= 000000 C.CNT 000020 FS.STR= 001000 NS.NFL= 000001 N.LGTH= 000160
BIT0 = 000001 C.CNT1 000020 FS.TRM= 003000 NS.SET= 000002 N.NODE 000000
BIT1 = 000002 C.CNT2 000030 FS.XKL= 002000 NS.SFL= 000002 N.OPDL 000136
BIT10 = 002000 C.FLG 000022 FS.XOF= 010000 NS.SOL= 000140 N.OPTD 000140
BIT11 = 004000 C.FLG1 000022 FS.XON= 007000 NS.SUC= 000001 N.PASL 000102
BIT12 = 010000 C.FLG2 000032 F$$LVL= 000001 NT$ABO= 000022 N.PASS 000104
BIT13 = 020000 C.FNC 000010 GETCPB 000232RG NT$ACC= 000002 N.RQDL 000060
BIT14 = 040000 C.LIN 000006 G$$TPP= 000000 NT$ADS= 000000 N.RQID 000062
BIT15 = 100000 C.LNK 000000 G$$TSS= 000000 NT$CON= 000000 N.RSRV= 000030
BIT2 = 000004 C.MOD 000011 G$$TTK= 000000 NT$DAT= 000002 N.SDL1 000036
BIT3 = 000010 C.NSP 000004 G$$WRD= 000000 NT$DIS= 000010 N.SDL2 000042
BIT4 = 000020 C.RSV 000002 I$$RAR= 000000 NT$INT= 000004 N.SDS1 000040
BIT5 = 000040 C.STA 000007 I$$RDN= 000000 NT$MOD= 000012 N.SDS2 000056
BIT6 = 000100 C.STS 000012 KDSAR0= 172360 NT$NAK= 000022 N.SEG 000006
BIT7 = 000200 D$$BUG= 177514 KDSDR0= 172320 NT$OFF= 000026 N.SFMT 000034
BIT8 = 000400 D$$ISK= 000000 KISAR0= 172340 NT$ON = 000002 N.SGRP 000036
BIT9 = 001000 D$$L11= 000001 KISAR5= 172352 NT$QRY= 000014 N.SOBJ 000035
CB.CCB= 000002 D$$YNC= 000000 KISAR6= 172354 NT$REJ= 000004 N.SUSR 000040
CB.RDB= 000004 D$$YNM= 000000 KISAR7= 172356 NT$RTI= 000010 PCBLEN= 000024
CE.ABO= 100362 E$$XPR= 000000 KISDR0= 172300 NT$RTN= 000000 PD$NRM= ****** GX
CE.DIS= 100366 FC.CCP= 000020 KISDR6= 172314 NT$SNG= 000006 PIRQ = 177772
CE.ERR= 100370 FC.CTL= 000006 KISDR7= 172316 NT$STP= 000004 PMODE = 030000
CE.MOP= 100372 FC.KCP= 000016 K$$CNT= 177546 NT$XOF= 000020 PR0 = 000000
CE.NTE= 100361 FC.KIL= 000004 K$$CSR= 177546 NT$XON= 000016 PR1 = 000040
CE.RTE= 100376 FC.RCE= 000002 K$$LDC= 000000 NT.ACK= 000001 PR4 = 000200
CE.SRC= 100364 FC.RCP= 000014 K$$TPS= 000074 NT.BOM= 000040 PR5 = 000240
CE.TMO= 100374 FC.TIM= 000010 LD$LP = 000000 NT.EOM= 000100 PR6 = 000300
CF.EOM= 000004 FC.XCP= 000012 L$$ASG= 000000 NT.FCN= 037400 PR7 = 000340
CF.HDR= 000020 FC.XME= 000000 L$$DRV= 000000 NT.MD1= 000420 PS = 177776
CF.LB = 100000 FE.CAL= 000040 L$$P11= 000001 NT.MFL= 000002 PS.ABO= 000010
CF.SOM= 000010 FE.DRV= 000010 L$$11R= 000000 NT.MOD= 000020 PS.BP = 000020
CF.SYN= 000040 FE.EXP= 000200 MPAR = 172100 NT.MOM= 000000 PS.CC = 000002
CF.TRN= 000100 FE.EXT= 000001 MPCSR = 177746 NT.NAK= 000002 PS.CI = 000001
CMODE = 140000 FE.EXV= 000004 M$$CRB= 000124 NT.NFL= 000000 PS.CTL= 010000
CS.ABO= 000100 FE.LSI= 000400 M$$CRX= 000000 NT.SFL= 000001 PS.DAT= 020000
CS.BUF= 000200 FE.MUP= 000002 M$$FCS= 000000 NT.SOL= 000140 PS.DIP= 000004
CS.DCR= 000400 FE.MXT= 040000 M$$MGE= 000000 NT.XOF= 000004 PS.IMP= 000100
CS.DEV= 000002 FE.NLG= 100000 M$$OVR= 000000 NT.XON= 000010 PS.NKP= 000040
CS.DIS= 000040 FE.PKT= 000100 NC.FM0= 000000 N$$DAT= 000030 P$$P45= 000000
CS.ENB= 000020 FE.PLA= 000020 NC.FM1= 000001 N$$DIS= 000020 P$$WRD= 000000
CS.EOF= 000001 FS.AST= 000000 NC.FM2= 000002 N$$INT= 000020 P.BPQ 000012
CS.ERR= 100000 FS.CIB= 002000 NE.ABO= 177776 N$$LDV= 000001 P.CBTN 000004
CS.HFE= 002000 FS.CRA= 001000 NE.ACT= 177771 N$$MOV= 000010 P.LLA 000016
CS.LST= 040000 FS.DIS= 013000 NE.CLS= 177767 N$$OPT= 000020 P.NUM 000020
CS.MTL= 004000 FS.DVC= 001000 NE.DIS= 177777 N$$OVR= 000042 P.OPN 000002
CS.RNG= 000010 FS.ENB= 012000 NE.FMT= 177770 N$$SYS= 000001 P.REF 000004
CS.ROV= 000004 FS.GET= 006000 NE.NDT= 177766 N$$USR= 000001 P.RES 000002
CS.RSN= 010000 FS.INI= 000000 NE.NOD= 177774 N.ACNT 000116 P.RSV 000000
CS.SUC= 000001 FS.KIL= 000000 NE.REJ= 177775 N.ACTL 000114 P.SEG 000022
CS.TMO= 020000 FS.LTM= 001000 NE.RES= 177773 N.DDL1 000012 P.SPI 000021
C$$CKP= 000000 FS.MNT= 004000 NE.TIM= 177772 N.DDL2 000016 P.STS 000010
C$$ORE= 000400 FS.MSN= 014000 NP$RTR= 000003 N.DDS1 000014 P.USER 000006
C$$RSH= 177564 FS.RNG= 011000 NRMDAT 000254R N.DDS2 000020 Q$$OPT= 000010
C.BID 000003 FS.RTN= 001000 NS.BOM= 000040 N.DFMT 000010 RF.CCB= 000400
BTS MACRO M1110 13-OCT-79 08:11 PAGE 8-2
SYMBOL TABLE
RF.CVR= 100000 TPS = 177564 TT.V62= 000001 T.WCNT 000030 ZF.LLC= 000004
RF.LIN= 001000 TS.CLP= 000001 T$$KMG= 000000 UBMPR = 170200 ZF.LMC= 000100
R$FLG 000000 TS.HP = 000040 T$$MIN= 000000 UDSAR0= 177660 ZF.MFL= 000010
R$PCB 000010 TS.OP = 000004 T.DMRB 000034 UDSDR0= 177620 ZF.MUX= 000040
R$RWT 000002 TS.OPP= 000002 T.DMVA 000036 UISAR0= 177640 ZF.TIM= 000200
R$TCB 000014 TS.OSP= 000400 T.FLG 000014 UISAR4= 177650 Z.DAT 000014
R$TCQ 000006 TS.PWF= 002000 T.LNK 000000 UISAR5= 177652 Z.DSP 000000
R$$DER= 000000 TS.RLP= 000010 T.NAM 000022 UISAR6= 177654 Z.FLG 000011
R$$K11= 000001 TS.RS = 000020 T.NAML 000021 UISAR7= 177656 Z.LEN = 000014
R$$SND= 000000 TS.SRP= 000200 T.NUM 000016 UISDR0= 177600 Z.LLN 000010
R$$11M= 000000 TS.STE= 001000 T.OBJ 000020 UISDR4= 177610 Z.MAP 000016
SISDR0= 172200 TT.CD = 000011 T.OLNK 000002 UISDR5= 177612 Z.NAM 000006
SR0 = 177572 TT.CR = 000010 T.PCBD 000006 UISDR6= 177614 Z.PCB 000012
SR3 = 172516 TT.DDC= 000005 T.PCBR 000004 UISDR7= 177616 Z.SCH 000004
SWR = 177570 TT.LE = 000006 T.RCNT 000032 V$$CTR= 001000 $PCBGT 000000RG
S$$WRG= 000000 TT.LP = 000007 T.RID 000010 X$$DBT= 000000 $PCBPT 000124RG
S$$YSZ= 007600 TT.L18= 000004 T.SPI 000017 ZF.DDM= 000001 $PCBRT 000116RG
TCBLEN= 000040 TT.L36= 000003 T.STS 000012 ZF.DLC= 000002 $PDVTA= ****** GX
TF.DEA= 040000 TT.V52= 000002 T.TT 000014 ZF.KMX= 000020 $TCBPT 000166RG
TF.DIS= 020000
. ABS. 000160 000
000274 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 12078 WORDS ( 48 PAGES)
DYNAMIC MEMORY: 13228 WORDS ( 50 PAGES)
ELAPSED TIME: 00:00:29
BTS,[130,34]BTS/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,BTS
BTS CREATED BY MACRO ON 13-OCT-79 AT 08:11 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
C.BUF 000014 8-187 8-188
GETCPB 000232 RG #8-186
I$$AS = ****** 3-48
KISAR6 = 172354 *8-187
M$$MGE = 000000 8-187
NRMDAT 000254 R 4-71 6-131 7-161 #8-205
N.RQDL 000060 8-190
PCBLEN = 000024 #3-50 4-79 6-137
PD$NRM = ****** GX 8-206
PS.ABO = 000010 #3-50
PS.BP = 000020 #3-50
PS.CC = 000002 #3-50
PS.CI = 000001 #3-50
PS.CTL = 010000 #3-50
PS.DAT = 020000 #3-50
PS.DIP = 000004 #3-50
PS.IMP = 000100 #3-50
PS.NKP = 000040 #3-50
P.BPQ 000012 #3-50 *4-87 4-88 *4-88 *4-89
P.CBTN 000004 #3-50
P.LLA 000016 #3-50
P.NUM 000020 #3-50 *4-84
P.OPN 000002 #3-50
P.REF 000004 #3-50 *4-86
P.RES 000002 #3-50 *4-85
P.RSV 000000 #3-50
P.SEG 000022 #3-50
P.SPI 000021 #3-50
P.STS 000010 #3-50 4-77 *5-111
P.USER 000006 #3-50
RF.CCB = 000400 #3-49
RF.CVR = 100000 #3-49
RF.LIN = 001000 #3-49
R$FLG 000000 #3-49
R$PCB 000010 #3-49 4-73 4-74 6-135 6-138
R$RWT 000002 #3-49
R$TCB 000014 #3-49 7-165 7-168
R$TCQ 000006 #3-49
R$$11D = ****** 3-48
R$$11M = 000000 3-48
R$$11S = ****** 3-48
TCBLEN = 000040 #3-50 7-167
TF.DEA = 040000 #3-50
TF.DIS = 020000 #3-50
TS.CLP = 000001 #3-50
TS.HP = 000040 #3-50
TS.OP = 000004 #3-50
TS.OPP = 000002 #3-50
TS.OSP = 000400 #3-50
TS.PWF = 002000 #3-50
TS.RLP = 000010 #3-50
TS.RS = 000020 #3-50
BTS CREATED BY MACRO ON 13-OCT-79 AT 08:11 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TS.SRP = 000200 #3-50
TS.STE = 001000 #3-50
TT.CD = 000011 #3-50
TT.CR = 000010 #3-50
TT.DDC = 000005 #3-50
TT.LE = 000006 #3-50
TT.LP = 000007 #3-50
TT.L18 = 000004 #3-50
TT.L36 = 000003 #3-50
TT.V52 = 000002 #3-50
TT.V62 = 000001 #3-50
T.DMRB 000034 #3-50
T.DMVA 000036 #3-50
T.FLG 000014 #3-50
T.LNK 000000 #3-50
T.NAM 000022 #3-50
T.NAML 000021 #3-50
T.NUM 000016 #3-50
T.OBJ 000020 #3-50
T.OLNK 000002 #3-50
T.PCBD 000006 #3-50
T.PCBR 000004 #3-50
T.RCNT 000032 #3-50
T.RID 000010 #3-50
T.SPI 000017 #3-50
T.STS 000012 #3-50
T.TT 000014 #3-50
T.WCNT 000030 #3-50
X$$MCB = ****** 3-48 3-48
ZF.DDM = 000001 #3-48
ZF.DLC = 000002 #3-48
ZF.KMX = 000020 #3-48
ZF.LLC = 000004 #3-48
ZF.LMC = 000100 #3-48
ZF.MFL = 000010 #3-48
ZF.MUX = 000040 #3-48
ZF.TIM = 000200 #3-48
Z.DAT 000014 #3-48 8-207
Z.DSP 000000 #3-48 3-48
Z.FLG 000011 #3-48
Z.LEN = 000014 #3-48
Z.LLN 000010 #3-48
Z.MAP 000016 #3-48
Z.NAM 000006 #3-48
Z.PCB 000012 #3-48
Z.SCH 000004 #3-48
$PCBGT 000000 RG #4-69
$PCBPT 000124 RG #6-129
$PCBRT 000116 RG #5-110
$PDVTA = ****** GX 8-205
$TCBPT 000166 RG #7-159
BTS CREATED BY MACRO ON 13-OCT-79 AT 08:11 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
BITDF$ #3-45 3-46
CALL 4-71 6-131 7-161
CCBDF$ #3-45 #3-47
HWDDF$ #8-187 8-187
MAP #3-45 8-187
NSPDF$ #3-45 #3-51
PDVDF$ #3-45 #3-48
RETURN 4-94 5-112 6-142 7-173 8-191 8-209
RMDDB$ #3-45 #3-49
SOB #4-80
TMPDF$ #3-49 3-49
TTDF$ #3-45 #3-50
.BIN #3-49
.CNB #3-49
.CNW #3-49
.CORE #3-49
.CSR #3-49
.DVCHA #3-49
.INT #3-49
.INT1 #3-49
.INT2 #3-49
.INT3 #3-49
.LFLHD #3-49
.LIBR #3-49
.LINKS #3-49
.LSTHD #3-49 3-49
.LTAB #3-49
.MPLHD #3-49
.POOL #3-49 #3-49
.PRI #3-49
.SCOM #3-49
.SECSR #3-49
.SLNB #3-49
.SLNW #3-49
.STNB #3-49
.STNW #3-49
.UNB #3-49
.UNW #3-49
.VFY #3-49