Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/tdsch.list
There are no other files named tdsch.list in the archive.
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3
1 .TITLE TDSCH
2 .IDENT /08/
3
4 ;
5 ; COPYRIGHT (C) 1974, 1978
6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
9 ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
10 ;
11 ; VERSION 08
12 ;
13 ; D. N. CUTLER 11-AUG-73
14 ;
15 ; PREVIOUSLY MODIFIED BY:
16 ;
17 ; D. N. CUTLER
18 ; C. A. D'ELIA
19 ; T. J. MILLER
20 ;
21 ; MODIFIED BY:
22 ;
23 ; T. J. MILLER 26-MAY-77
24 ;
25 ; TM086 -- MODIFY TO USE NEW EVENT FLAG SETTING ROUTINE.
26 ;
27 ; TIME DEPENDENT SCHEDULING AND DEVICE TIME OUT
28 ;
29 ; MACRO LIBRARY CALLS
30 ;
31
32 .MCALL CLKDF$,HDRDF$,HWDDF$,TCBDF$,PCBDF$
33 000000 CLKDF$ ;DEFINE CLOCK QUEUE CONTROL BLOCK OFFSET
34 000000 HDRDF$ ;DEFINE TASK HEADER OFFSETS
35 000000 HWDDF$ ;DEFINE HARDWARE REGISTERS
36 000000 TCBDF$ ;DEFINE TASK CONTROL BLOCK OFFSETS
37 000000 PCBDF$ ;DEFINE PARTITION CONTROL BLOCK OFFSETS
38
39 ;
40 ; LOCAL DATA
41 ;
42
43
44 .IF DF R$$NDC
45
46 RNDCT: .WORD R$$NDC ;CLOCK TICKS TO NEXT SCHEDULE INTERVAL
47
48 .ENDC
49
50
51 .IF DF S$$WPC&D$$ISK
52
53 SWPCT: .WORD S$$WPC ;CLOCK TICKS TO NEXT SWAPPING INTERVAL
54
55 .ENDC
56
57
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-1
58 ;+
59 ; **-$CKINT-CLOCK INTERRUPT
60 ;
61 ; THIS ROUTINE IS ENTERED AS THE RESULT OF A CLOCK INTERRUPT. $INTSV
62 ; IS CALLED TO SAVE REGISTERS R4 AND R5 AND $INTCT IS INCREMENT. IF
63 ; THE RESULT IS NONZERO, THEN A JUMP TO $INTXT IS EXECUTED. ELSE
64 ; A FORK IS EXECUTED SO THAT PENDING CLOCK INTERRUPTS CAN BE PRO-
65 ; CESSED.
66 ;-
67
68 000000 $CKINT::CALL $INTSV,PR6 ;;;SAVE REGISTERS AND SET PRIORITY
69
70
71 .IF DF K$$W11
72
73 MOV #3,K$$W11 ;;;ENABLE AND START TIMER
74
75 .ENDC
76
77
78 000006 012704 000000G MOV #$INTCT,R4 ;;;POINT TO INTERRUPT COUNT
79 000012 005214 INC (R4) ;;;INCREMENT INTERRUPT COUNT
80 000014 001401 BEQ 10$ ;;;IF EQ FORK
81 000016 RETURN ;;;EXIT FROM INTERRUPT
82 000020 10$: CALL $FORK0 ;;;EXECUTE FORK
83
84 ;
85 ; UPDATE ABSOLUTE AND REAL TIME OF DAY AND DATE
86 ;
87
88 000024 012704 000002G UPTIM: MOV #$TKPS+2,R4 ;POINT PAST CONVERSION VECTOR
89 000030 012705 000002G MOV #$TTNS+2,R5 ;POINT PAST CURRENT TIME VECTOR
90 000034 012702 177770G 10$: MOV #$TTNS-10,R2 ;POINT TO DAY
91 000040 005245 INC -(R5) ;UPDATE A COUNTER
92 000042 024415 CMP -(R4),(R5) ;EXCEEDED LIMIT?
93 000044 101020 BHI 20$ ;IF HI NO
94 000046 005015 CLR (R5) ;RESET COUNTER
95 000050 020502 CMP R5,R2 ;CHECK FOR LAST DAY OR MONTH
96 000052 101370 BHI 10$ ;IF HI NO
97 000054 005215 INC (R5) ;DAY AND MONTH ARE 1 ORIGIN
98 000056 103766 BCS 10$ ;IF CS NOT DAY
99 000060 014201 MOV -(R2),R1 ;GET CURRENT MONTH
100 000062 116100 177777G MOVB $DYPMN-1(R1),R0 ;GET DAYS FOR NEXT MONTH PLUS 1
101 000066 010014 MOV R0,(R4) ;MOVE TO DAYS PER MONTH LIMIT
102 000070 005301 DEC R1 ;IS CURRENT MONTH ENDING JANUARY?
103 000072 001360 BNE 10$ ;IF NE NO
104 000074 032742 000003 BIT #3,-(R2) ;IS THIS A LEAP YEAR?
105 000100 001355 BNE 10$ ;IF NE NO
106 000102 005214 INC (R4) ;INCREMENT DAYS FOR FEBRUARY
107 000104 000753 BR 10$ ;
108 000106 005267 000000G 20$: INC $ABTIM ;UPDATE ABSOLUTE TIME COUNTER
109 000112 001007 BNE TDS ;IF NE NO OVERFLOW
110 000114 012700 000000G MOV #$CLKHD,R0 ;POINT TO CLOCK QUEUE LISTHEAD
111 000120 011000 40$: MOV (R0),R0 ;GET ADDRESS OF NEXT ENTRY
112 000122 001403 BEQ TDS ;IF EQ NO MORE IN LIST
113 000124 005360 000010 DEC C.TIM+2(R0) ;ADJUST HIGH ORDER TIME
114 000130 000773 BR 40$ ;
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-2
115
116 ;
117 ; TIME DEPENDENT SCHEDULING
118 ;
119
120 000132 016704 000000G TDS: MOV $CLKHD,R4 ;GET ADDRESS OF NEXT IN QUEUE
121 000136 001514 BEQ DVOUT ;IF EQ NONE IN LIST
122 000140 005764 000010 TST C.TIM+2(R4) ;HIGH ORDER PART NONZERO?
123 000144 001111 BNE DVOUT ;IF NE YES
124 000146 026764 000000G 000006 CMP $ABTIM,C.TIM(R4) ;TIME TO GO?
125 000154 103505 BLO DVOUT ;IF LO NO
126 000156 011467 000000G MOV (R4),$CLKHD ;REMOVE ENTRY FROM CLOCK QUEUE
127 000162 116405 000002 MOVB C.RQT(R4),R5 ;GET ENTRY REQUEST TYPE
128 000166 060507 ADD R5,PC ;DISPATCH TO PROCESSING ROUTINE
129 000170 000415 10$: BR 20$ ;MARK TIME REQUEST
130 000172 000447 BR 30$ ;TASK REQUEST WITH PERIODIC RESCHEDULE
131 000174 000446 BR 30$ ;SINGLE SHOT TASK REQUEST
132 000176 000400 BR 15$ ;SINGLE SHOT INTERNAL SUBROUTINE
133
134
135 .IF DF D$$SHF&D$$YNM
136
137 BR 15$ ;SINGLE SHOT INTERNAL SUBROUTINE
138
139 ;
140 ; CLEAR STOP BIT AND REALLOCATE PARTITION
141 ;
142
143 MOV C.TCB(R4),R0 ;PICK UP TCB ADDRESS
144 CALL $EXRQN ;CLEAR STOP BIT AND REALLOCATE PARTITION
145 BR TDS ;
146
147 .ENDC
148
149
150 ;
151 ; SINGLE SHOT INTERNAL SYSTEM SUBROUTINE (TYPE 6 OR 8)
152 ;
153
154 000200 15$: ;
155
156
157 .IF DF L$$DRV & M$$MGE
158
159 000200 016746 172352 MOV KISAR5,-(SP) ;SAVE APR5
160 000204 016467 000014 172352 MOV C.AR5(R4),KISAR5 ;MAP TO SYSTEM ROUTINE (DRIVER)
161
162 .IFTF
163
164 000212 CALL @C.SUB(R4) ;CALL SYSTEM SUBROUTINE
165
166 .IFT
167
168 000216 012667 172352 MOV (SP)+,KISAR5 ;RESTORE APR5
169
170 .ENDC
171
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-3
172
173 000222 000743 BR TDS ;
174
175 ;
176 ; MARK TIME REQUEST
177 ;
178
179 000224 016400 000014 20$: MOV C.SRC(R4),R0 ;PICK UP EVENT FLAG MASK WORD ; TM086
180 000230 016401 000016 MOV C.DST(R4),R1 ;PICK UP EVENT FLAG MASK ADDRESS ; TM086
181 000234 016405 000004 MOV C.TCB(R4),R5 ;PICK UP TCB ADDRESS ; TM086
182 000240 CALL $SETM ;SET THE EVENT FLAG ; TM086
183 000244 005005 CLR R5 ;RESET CLOCK BLOCK TYPE ; TM086
184 ;**-5
185
186 .IF DF A$$TRP
187
188 000246 016403 000012 MOV C.AST(R4),R3 ;GET AST TRAP ADDRESS
189 000252 001425 BEQ 40$ ;IF EQ NO AST SPECIFIED
190 000254 116402 000003 MOVB C.EFN(R4),R2 ;GET EFN NUMBER
191 000260 010401 MOV R4,R1 ;COPY ADDRESS OF CLOCK QUEUE ENTRY
192 000262 005724 TST (R4)+ ;POINT TO CONTROL BLOCK LENGTH
193 000264 012724 000020 MOV #C.LGTH,(R4)+ ;SET LENGTH OF AST CONTROL BLOCK
194 000270 012724 000020 MOV #8.*2,(R4)+ ;SET BYTES TO ALLOCATE ON TASK STACK
195 000274 010324 MOV R3,(R4)+ ;INSERT AST TRAP ADDRESS
196 000276 012724 000001 MOV #1,(R4)+ ;SET NUMBER OF AST PARAMETERS
197 000302 010214 MOV R2,(R4) ;INSERT EFN AS AST PARAMETER
198 000304 CALL $QASTT ;QUEUE AST TO TASK
199 000310 000710 BR TDS ;
200
201 .IFF
202
203 BR 40$ ;RELEASE CLOCK CONTROL BLOCK
204
205 .ENDC
206
207
208 ;
209 ; SCHEDULE REQUEST
210 ;
211
212 000312 016400 000004 30$: MOV C.TCB(R4),R0 ;GET TASK TCB ADDRESS
213 000316 016401 000016 MOV C.UIC(R4),R1 ;GET REQUEST UIC
214 000322 CALL $TSKRT ;REQUEST TASK EXECUTION
215 000326 010400 40$: MOV R4,R0 ;SET ADDRESS OF BLOCK TO RELEASE
216 000330 122705 000002 CMPB #C.SCHD,R5 ;PERIODIC REQUEST?
217 000334 001403 BEQ 50$ ;IF EQ YES
218 000336 CALL $DECLK ;DEALLOCATE CONTROL BLOCK
219 000342 000673 BR TDS ;
220 000344 016001 000014 50$: MOV C.RSI+2(R0),R1 ;SET HIGH ORDER PART OF TIME
221 000350 016002 000012 MOV C.RSI(R0),R2 ;SET LOW ORDER PART OF TIME
222 000354 010504 MOV R5,R4 ;SET REQUEST TYPE
223 000356 016005 000004 MOV C.TCB(R0),R5 ;SET ADDRESS OF REQUEST TASK TCB
224 000362 CALL $CLINS ;REINSERT ENTRY IN CLOCK QUEUE
225 000366 000661 BR TDS ;
226
227 ;
228 ; DEVICE TIME OUT
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-4
229 ;
230
231 000370 005767 000000G DVOUT: TST $TTNS ;ONE SECOND ELAPSED?
232 000374 001047 BNE ROBIN ;IF NE NO
233 000376 012746 000000G MOV #$SCDVT,-(SP) ;SET ADDRESS OF DEVICE TABLE SCANNING CO-ROUTINE
234 000402 10$: CALL @(SP)+ ;GET NEXT UCB ADDRESS
235 000404 103443 BCS ROBIN ;IF CS END OF TABLE
236 000406 MTPS S.PRI(R4) ;;;RAISE PRIORITY TO DEVICE LEVEL
237 000414 105765 000000G TSTB U.STS(R5) ;;;UNIT BUSY?
238 000420 100032 BPL 20$ ;;;IF PL NO
239 000422 105764 000000G TSTB S.CTM(R4) ;;;TIMEOUT ACTIVE?
240 000426 001427 BEQ 20$ ;;;IF EQ NO
241 000430 105364 000000G DECB S.CTM(R4) ;;;DECREMENT TIMEOUT COUNT
242 000434 001024 BNE 20$ ;;;IF NE MORE TIME TO GO
243 000436 012700 000000C MOV #IE.DNR&377,R0 ;;;SET DEVICE TIMEOUT STATUS
244 000442 016301 000000G MOV D.DSP(R3),R1 ;;;GET ADDRESS OF DRIVER DISPATCH TABLE
245 000446 016402 000000G MOV S.CSR(R4),R2 ;;;GET ADDRESS OF DEVICE CSR
246
247
248 .IF DF L$$DRV&M$$MGE
249
250 000452 016746 172352 MOV KISAR5,-(SP) ;;;SAVE APR5
251 000456 016303 000000G MOV D.PCB(R3),R3 ;;;GET DRIVER PCB ADDRESS
252 000462 001403 BEQ 15$ ;;;IF EQ DRIVER IS PART OF EXEC
253 000464 016367 000014 172352 MOV P.REL(R3),KISAR5 ;;;MAP THE DRIVER
254 000472 15$: ;;;
255
256 .IFTF
257
258 000472 116403 000000G MOVB S.CON(R4),R3 ;;;GET CONTROLLER INDEX
259
260 ;
261 ; CALL DRIVER AT TIMEOUT ENTRY POINT WITH THE ARGUMENTS:
262 ;
263 ; R0=DEVICE TIMEOUT STATUS 'IE.DNR'.
264 ; R2=ADDRESS OF DEVICE CSR.
265 ; R3=CONTROLLER INDEX.
266 ; R4=ADDRESS OF THE STATUS CONTROL BLOCK.
267 ; R5=ADDRESS OF THE UNIT CONTROL BLOCK.
268 ;
269
270 000476 CALL @D.VOUT(R1) ;;;ENTER DRIVER
271
272 .IFT
273
274 000502 012667 172352 MOV (SP)+,KISAR5 ;;;RESTORE APR5
275
276 .ENDC
277
278
279 000506 20$: MTPS #0 ;;;ALLOW INTERRUPTS
280 000512 000733 BR 10$ ;GO AGAIN
281
282 ;
283 ; EXECUTIVE LEVEL ROUND ROBIN SCHEDULING
284 ;
285
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-5
286 000514 ROBIN: ;REF LABEL
287
288
289 .IF DF R$$NDC
290
291 DEC RNDCT ;TIME TO SCHEDULE?
292 BNE SWAP ;IF NE NO
293 MOV #R$$NDC,RNDCT ;RESET CLOCK TICKS TO NEXT INTERVAL
294 CALL $DRDSE ;CAUSE A REDISPATCH OF PROCESSOR
295 MOV #$ACTHD-T.ACTL,R1 ;SET ADDRESS OF PREVIOUS ENTRY
296 10$: MOV R1,R0 ;SAVE ADDRESS OF PREVIOUS ENTRY
297 MOV T.ACTL(R0),R1 ;GET ADDRESS OF NEXT ENTRY
298 BEQ SWAP ;IF EQ END OF LIST
299 CMPB #R$$NDH,T.PRI(R1) ;PRIORITY IN RANGE?
300 BLO 10$ ;IF LO NO
301 20$: CMPB #R$$NDL,T.PRI(R1) ;PRIORITY IN RANGE?
302 BHI SWAP ;IF HI NO
303 TST T.STAT(R1) ;TASK BLOCKED?
304 BNE 30$ ;IF NE YES
305 BIT #T2.SPN!T2.WFR,T.ST2(R1) ;TASK IN WAITFOR OR SUSPEND?
306 BEQ 40$ ;IF EQ NO
307 30$: MOV R1,R0 ;SAVE ADDRESS OF LAST ENTRY
308 MOV T.ACTL(R0),R1 ;GET ADDRESS OF NEXT ENTRY
309 BR 20$ ;
310 40$: TST T.ACTL(R1) ;NULL TASK?
311 BEQ SWAP ;IF EQ YES
312 MOV T.ACTL(R1),T.ACTL(R0) ;REMOVE TCB FROM TASK LIST
313 MOV R1,R2 ;SAVE ADDRESS OF TCB
314 MOV R0,R1 ;SET ADDRESS OF LAST ENTRY
315 50$: MOV R1,R0 ;SAVE ADDRESS OF LAST ENTRY
316 MOV T.ACTL(R0),R1 ;GET ADDRESS OF NEXT ENTRY
317 CMPB T.PRI(R1),T.PRI(R2) ;IN SAME PRIORITY CLASS?
318 BEQ 50$ ;IF EQ YES
319 MOV R2,T.ACTL(R0) ;SET ADDRESS OF NEXT IN LAST
320 MOV R1,T.ACTL(R2) ;SET ADDRESS OF NEXT IN REMOVED ENTRY
321 MOV R2,R0 ;SET ADDRESS OF LAST ENTRY
322 BR 20$ ;
323
324 .ENDC
325
326
327 ;
328 ; DISK SWAPPING ALGORITHM - REDUCE SWAPPING PRIORITY OF RESIDENT TASKS
329 ;
330
331 000514 SWAP: ;REF LABEL
332
333
334 .IF DF C$$CKP&S$$WPC&D$$ISK
335
336 DEC SWPCT ;TIME TO MODIFY PRIORITY DIFFERENCES?
337 BNE 70$ ;IF NE NO
338 MOV #S$$WPC,SWPCT ;RESET SWAP COUNT
339 MOV $PARHD,R5 ;POINT TO FIRST PCB IN LIST
340 10$: ;REF LABEL
341
342
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-6
343 .IF DF D$$YNM&M$$MGE
344
345 BIT #PS.SYS,P.STAT(R5) ;SYSTEM CONTROLLED PARTITION?
346 BNE 30$ ;IF NE YES
347
348 .IFTF
349
350 BITB P.BUSY(R5),P.BUSY+1(R5) ;PARTITION OCCUPIED?
351 BEQ 20$ ;IF EQ NO
352 15$: BIT #PS.COM!PS.DRV,P.STAT(R5) ;COMMON OR DRIVER PARTITION?
353 BNE 40$ ;IF NE YES
354 MOV P.TCB(R5),R4 ;PICK UP OWNER TCB ADDRESS
355 BIT #TS.CKP!TS.CKR!TS.OUT,T.STAT(R4) ;TASK IN MEMORY?
356 BNE 40$ ;IF NE NO
357 MOV P.HDR(R5),R4 ;POINT TO TASK HEADER
358 CMPB H.SPRI(R4),#-S$$WPR ;SWAPPING PRIORITY AT MINIMUM?
359 BLE 40$ ;IF LE YES
360 DECB H.SPRI(R4) ;REDUCE SWAPPING PRIORITY
361 20$: CMP R5,P.MAIN(R5) ;IS THIS THE MAIN PARTITION?
362 BNE 40$ ;IF NE NO
363 30$: MOV R5,R0 ;COPY PCB ADDRESS
364 CALL $NXTSK ;REALLOCATE PARTITION
365 40$: ;REF LABEL
366
367 .IFT
368
369 BIT #PS.SYS,P.STAT(R5) ;SYSTEM CONTROLLED PARTITION?
370 BEQ 60$ ;IF EQ NO
371 TST P.SUB(R5) ;IS THERE ANOTHER SUBPARTITION?
372 BEQ 50$ ;IF EQ NO
373 MOV P.SUB(R5),R5 ;POINT TO NEXT SUBPARTITION PCB
374 BR 15$ ;
375 50$: MOV P.MAIN(R5),R5 ;POINT TO MAIN SYS PARTITION PCB
376
377 .ENDC
378
379
380 60$: MOV (R5),R5 ;POINT TO NEXT PCB IN LIST
381 BNE 10$ ;IF NE THERE IS ONE
382 70$: ;REF LABEL
383
384 .ENDC
385
386
387 ;
388 ; EXIT TIME DEPENDENT SCHEDULE IF THERE ARE NOT REMAINING UNPROCESSED CLOCK TICK
389 ;
390
391 000514 005367 000000G TIMXT: DEC $INTCT ;ANY MORE TICKS TO PROCESS?
392 000520 002001 BGE 10$ ;IF GE YES
393 000522 RETURN ;
394 000524 000167 177274 10$: JMP UPTIM ;
395
396 000001 .END
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-7
SYMBOL TABLE
AS.DEL= 000010 G$$TTK= 000000 M$$NT2= 000000 S.CON = ****** GX T3.CLI= 001000
AS.EXT= 000004 H$$RTZ= 000074 N$$LDV= 000001 S.CSR = ****** GX T3.MCR= 004000
AS.RED= 000001 H.CSP 000000 PIRQ = 177772 S.CTM = ****** GX T3.NET= 000020
AS.WRT= 000002 H.CUIC 000010 PMODE = 030000 S.PRI = ****** GX T3.NSD= 000200
A$$CHK= 000000 H.DSW 000046 PR0 = 000000 TDS 000132R T3.PMD= 040000
A$$CPS= 000000 H.DUIC 000012 PR1 = 000040 TIMXT 000514R T3.PRV= 010000
A$$TRP= 000000 H.EFLM 000004 PR4 = 000200 TPS = 177564 T3.REM= 020000
A.IOC 000003 H.EFSV 000040 PR5 = 000240 TS.BLK= 170700 T3.ROV= 000040
A.LGTH= 000014 H.FCS 000050 PR6 = 000300 TS.CKP= 000200 T3.RST= 000400
A.MPCT 000011 H.FORT 000052 PR7 = 000340 TS.CKR= 000100 T3.SLV= 002000
A.PCB 000012 H.FPSA 000042 PS = 177776 TS.EXE= 100000 UBMPR = 170200
A.PCBL 000000 H.FPVA 000034 PS.APR= 000007 TS.MSG= 020000 UDSAR0= 177660
A.PRI 000002 H.GARD 000072 PS.CHK= 010000 TS.NRP= 010000 UDSDR0= 177620
A.STAT 000010 H.HDLN 000002 PS.CKP= 040000 TS.OUT= 000400 UISAR0= 177640
A.TCB 000004 H.IPC 000016 PS.CKR= 020000 TS.RDN= 040000 UISAR4= 177650
A.TCBL 000006 H.IPS 000014 PS.COM= 000200 TS.RUN= 004000 UISAR5= 177652
CMODE = 140000 H.ISP 000020 PS.DEL= 000010 T.ACTL 000052 UISAR6= 177654
C$$ORE= 002000 H.LUN 000076 PS.DRV= 000020 T.ASTL 000016 UISAR7= 177656
C.AR5 000014 H.NLUN 000074 PS.FXD= 004000 T.ATT 000054 UISDR0= 177600
C.AST 000012 H.NML 000061 PS.LIO= 001000 T.CPCB 000004 UISDR4= 177610
C.CSTP= 000012 H.ODVA 000022 PS.NSF= 000400 T.DPRI 000040 UISDR5= 177612
C.DST 000016 H.ODVL 000024 PS.OUT= 100000 T.EFLG 000022 UISDR6= 177614
C.EFN 000003 H.OVLY 000054 PS.PER= 002000 T.IOC 000003 UISDR7= 177616
C.LGTH= 000020 H.PFVA 000032 PS.PIC= 000100 T.LBN 000041 UPTIM 000024R
C.LNK 000000 H.RCVA 000036 PS.SYS= 000040 T.LDV 000044 U.STS = ****** GX
C.MRKT= 000000 H.RRVA 000062 P$$RTY= 000000 T.LNK 000000 V$$CTR= 001200
C.RQT 000002 H.SPRI 000060 P$$TPT= 000000 T.MXSZ 000050 V$$RSN= 000031
C.RSI 000012 H.TKVA 000026 P.BLKS 000016 T.NAM 000006 W.BATT 000006
C.SCHD= 000002 H.TKVL 000030 P.BUSY 000024 T.OFF 000060 W.BFPD 000014
C.SRC 000014 H.VEXT 000056 P.IOC 000003 T.PCB 000046 W.BHVR 000004
C.SSHT= 000004 H.WND 000044 P.LNK 000000 T.PRI 000002 W.BLGH 000020
C.SUB 000012 IE.DNR= ****** GX P.MAIN 000012 T.RCVL 000012 W.BLPD 000016
C.SYST= 000006 I$$RDN= 000000 P.NAM 000004 T.RRFL 000064 W.BLVR 000002
C.SYTK= 000010 KDSAR0= 172360 P.OWN 000026 T.SRCT 000063 W.BNPD 000015
C.TCB 000004 KDSDR0= 172320 P.PRI 000002 T.STAT 000032 W.BOFF 000012
C.TIM 000006 KISAR0= 172340 P.REL 000014 T.ST2 000034 W.BPCB 000000
C.UIC 000016 KISAR5= 172352 P.SIZE 000016 T.ST3 000036 W.BSIZ 000010
DVOUT 000370R KISAR6= 172354 P.STAT 000030 T.TCBL 000030 X$$DBT= 000000
D.DSP = ****** GX KISAR7= 172356 P.SUB 000010 T.UCB 000026 $ABTIM= ****** GX
D.PCB = ****** GX KISDR0= 172300 P.SWSZ 000022 T2.ABO= 000100 $CKINT 000000RG
D.VOUT= ****** GX KISDR6= 172314 P.TCB 000026 T2.AST= 100000 $CLINS= ****** GX
FE.CAL= 000040 KISDR7= 172316 P.WAIT 000020 T2.BFX= 004000 $CLKHD= ****** GX
FE.CEX= 020000 K$$CNT= 177546 ROBIN 000514R T2.CAF= 000400 $DECLK= ****** GX
FE.DRV= 000010 K$$CSR= 177546 R$$DER= 000000 T2.CHK= 020000 $DYPMN= ****** GX
FE.EXP= 000200 K$$IEN= 000115 R$$EXV= 000000 T2.CKD= 010000 $FORK0= ****** GX
FE.EXT= 000001 K$$LDC= 000001 R$$SND= 000000 T2.DST= 040000 $INTCT= ****** GX
FE.EXV= 000004 K$$TPS= 000074 R$$11M= 000000 T2.FXD= 002000 $INTSV= ****** GX
FE.LSI= 000400 L$$ASG= 000000 R$$11S= 000000 T2.HLT= 000200 $QASTT= ****** GX
FE.MUP= 000002 L$$DRV= 000000 SISDR0= 172200 T2.SPN= 000004 $SCDVT= ****** GX
FE.MXT= 040000 MPAR = 172100 SR0 = 177572 T2.STP= 000020 $SETM = ****** GX
FE.NLG= 100000 MPCSR = 177746 SR3 = 172516 T2.TIO= 001000 $TKPS = ****** GX
FE.PKT= 000100 M$$CRB= 000124 SWAP 000514R T2.WFR= 000001 $TSKRT= ****** GX
FE.PLA= 000020 M$$MGE= 000000 SWR = 177570 T3.ACP= 100000 $TTNS = ****** GX
G$$TPP= 000000 M$$NET= 000000 S$$YSZ= 001740 T3.CAL= 000100
. ABS. 000102 000
000530 001
TDSCH MACRO M1110 22-AUG-79 07:13 PAGE 3-8
SYMBOL TABLE
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 4673 WORDS ( 19 PAGES)
DYNAMIC MEMORY: 6148 WORDS ( 23 PAGES)
ELAPSED TIME: 00:00:27
[11,24]TDSCH,SY0:[11,34]TDSCH/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,TDSCH