Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/power.list
There are no other files named power.list in the archive.
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3
1 .TITLE POWER
2 .IDENT /07/
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 07
12 ;
13 ; D. N. CUTLER 1-OCT-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 1-JUL-77
24 ;
25 ; TM093 -- FIX BUG IN POWERFAIL SUPPORT FOR 11/34 AND
26 ; 11/60 PROCESSORS WITH FLOATING POINT SUPPORT.
27 ;
28 ; TM094 -- QUEUE AN ERROR MESSAGE BLOCK TO THE ERROR
29 ; LOGGER ON POWERFAIL.
30 ;
31 ; T. J. MILLER 14-SEP-77
32 ;
33 ; TM101 -- CHANGE TO NOT ATTEMPT TO QUEUE A POWERFAIL AST
34 ; TO NULL TASK.
35 ;
36 ; TM104 -- SAVE PIRQ REGISTER IF IT EXISTS FOR FLOATING
37 ; POINT SUPPORT.
38 ;
39 ; TM105 -- ADDITION OF CALL TO USER-WRITTEN ROUTINE AT
40 ; POWER DOWN TRAP.
41 ;
42 ; TM108 -- CALL COMMON ROUTINE TO CLEAR MEMORY PARITY CSR'S.
43 ;
44 ; T. J. MILLER 2-NOV-77
45 ;
46 ; TM103 -- USE NEW LITERAL TO RENABLE CLOCK.
47 ;
48 ; POWERFAIL RECOVERY
49 ;
50 ; MACRO LIBRARY CALLS
51 ;
52
53 .MCALL EMBDF$,HDRDF$,HWDDF$,PCBDF$,TCBDF$ ; TM094
54 000000 EMBDF$ ;DEFINE ERROR MESSAGE BLOCK OFFSETS ; TM094
55 000000 HDRDF$ ;DEFINE TASK HEADER OFFSETS ;**-1
56 000000 HWDDF$ ;DEFINE HARDWARE REGISTERS
57 000000 PCBDF$ ;DEFINE PARTITION CONTROL BLOCK OFFSETS
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-1
58 000000 TCBDF$ ;DEFINE TASK CONTROL BLOCK OFFSETS
59
60 ;
61 ; LOCAL DATA
62 ;
63 ; VOLATILE REGISTER STORAGE
64 ;
65
66
67 .IF DF P$$RFL
68
69 PWBTM: .BLKW 7 ;R0 THRU R5 AND SP
70
71
72 .IF DF M$$MGE
73
74
75 .IF DF M$$EXT
76
77 .BLKW <31.-5.>*2 ;UNIBUS MAPPING REGISTERS
78
79 .ENDC
80
81
82 .BLKW 25. ;MEMORY MANAGEMENT REGISTERS
83
84 .IFF
85
86
87 .IF DF E$$EAE
88
89 .BLKW 3 ;EAE REGISTERS
90
91 .ENDC
92
93
94 .ENDC
95
96
97 .IF DF F$$LPP
98
99 .BLKW 27. ;FLOATING POINT REGISTERS ; TM104
100 ;**-1
101 .ENDC
102
103
104 PWSTK=.-2 ;REF LABEL
105
106 ;
107 ; POWERFAIL VECTOR
108 ;
109
110 .IFTF
111
112 000000 .ASECT
113 000024 .=24
114 000024 000000' PWVCT: .WORD PDOWN ;
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-2
115 000026 000340 .WORD PR7 ;
116 000000 .PSECT
117
118 ;+
119 ; **-PDOWN-POWERFAIL INTERRUPT (DOWN)
120 ;
121 ; THIS ROUTINE IS ENTERED AS A RESULT OF A POWER DOWN INTERRUPT. ALL
122 ; VOLATILE MACHINE REGISTERS ARE SAVED, THE POWERFAIL VECTOR IS SWITCHED
123 ; TO THE POWER UP ROUTINE, AND THE PROCESSOR IS HALTED TO AWAIT THE
124 ; POWER UP INTERRUPT.
125 ;-
126
127 000000 PDOWN: ;REF LABEL
128
129 .IFT
130
131 MOV SP,PWSTK ;;;SAVE CURRENT STACK POINTER
132 MOV #PWSTK,SP ;;;SET ADDRESS OF REGISTER SAVE AREA
133 MOV R5,-(SP) ;;;SAVE REGISTERS R5 THRU R0
134 MOV R4,-(SP) ;;;
135 MOV R3,-(SP) ;;;
136 MOV R2,-(SP) ;;;
137 MOV R1,-(SP) ;;;
138 MOV R0,-(SP) ;;;
139
140
141 .IF DF M$$MGE
142
143
144 .IF DF M$$EXT
145
146 MOV #UBMPR+<31.*4>,R0 ;;;POINT PAST LAST MAP REGISTER
147 MOV #31.-5.,R1 ;;;SET COUNT OF REGISTERS TO SAVE
148 20$: MOV -(R0),-(SP) ;;;SAVE HIGH 6 BITS OF ADDRESS
149 MOV -(R0),-(SP) ;;;SAVE LOW 16 BITS OF ADDRESS
150 DEC R1 ;;;ANY MORE TO SAVE?
151 BGT 20$ ;;;IF GT YES
152
153 .ENDC
154
155
156
157 BIS #PMODE,PS ;;;MAKE SURE PREVIOUS MODE IS USER
158 MFPI SP ;;;SAVE USER STACK POINTER
159 MOV #KISAR0+16.,R0 ;;;POINT TO KERNEL ADDRESS REGISTER 7+2
160 MOV #UISAR0+16.,R1 ;;;POINT TO USER ADDRESS REGISTER 7+2
161 MOV #UISDR0+16.,R2 ;;;POINT TO USER DESCRIPTOR REGISTER 7+2
162 MOV #8.,R3 ;;;SET LOOP COUNT
163 10$: MOV -(R0),-(SP) ;;;SAVE KERNEL ADDRESS REGISTER
164 MOV -(R1),-(SP) ;;;SAVE USER ADDRESS REGISTER
165 MOV -(R2),-(SP) ;;;SAVE USER DESCRIPTOR REGISTER
166 DEC R3 ;;;ANYMORE TO SAVE?
167 BGT 10$ ;;;IF GT YES
168
169 .IFF
170
171
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-3
172 .IF DF E$$EAE
173
174 MOV SC,-(SP) ;;;SAVE EAE SHIFT COUNT
175 MOV AC,-(SP) ;;;SAVE EAE ACCUMULATOR
176 MOV MQ,-(SP) ;;;SAVE EAE MULTIPLIER-QUOTIENT
177
178 .ENDC
179
180
181 .ENDC
182
183
184 .IF DF F$$LPP
185
186 STFPS -(SP) ;;;STORE FLOATING POINT STATUS
187 SETD ;;;SET FLOATING DOUBLE MODE
188 STD R0,-(SP) ;;;SAVE FLOATING POINT REGISTERS
189 STD R1,-(SP) ;;;
190 STD R2,-(SP) ;;;
191 STD R3,-(SP) ;;;
192 LDD R4,R0 ;;;
193 STD R0,-(SP) ;;;
194 LDD R5,R0 ;;;
195 STD R0,-(SP) ;;;
196 CLR -(SP) ;;;PUSH AN ADDRESS OF ZERO ; TM104
197 CMP @#244,#$FPPR7 ;;;IS THERE A PIRQ REGISTER TO SAVE? ; TM104
198 BEQ 30$ ;;;IF EQ NO, DO DUMMY SAVE OF LOCATION 0; TM104
199 MOV #PIRQ,(SP) ;;;SET FOR SAVE OF PIRQ ; TM104
200 30$: MOV @(SP),-(SP) ;;;SAVE PIRQ REGISTER OR CONTENTS OF 0 ; TM104
201 ;**-9
202 .ENDC
203
204
205 MOV #PUP,PWVCT ;;;SWITCH TO POWER UP ROUTINE
206
207 .IFTF
208
209 ; TM105
210 .IF DF I$$PPF ; TM105
211 ; TM105
212 MOV #$PCSPF,SP ;;;SET STACK POINTER ; TM105
213 CALL (SP) ;;;CALL USER POWER FAIL ROUTINE ; TM105
214 ; TM105
215 .ENDC ; TM105
216 ; TM105
217 ; TM105
218 000000 000000 HALT ;;;WAIT FOR SOME JUICE!
219
220 .IFT
221
222 ;+
223 ; **-PUP-POWERFAIL INTERRUPT (UP)
224 ;
225 ; THIS ROUTINE IS ENTERED AS A RESULT OF A POWER UP INTERRUPT. ALL VOLATILE
226 ; MACHINE REGISTERS ARE RESTORED, A SCHEDULE REQUEST IS FORCED FOR THE
227 ; NULL TASK, THE POWERFAIL INDICATOR IS INCREMENTED, AND AN RTI IS
228 ; EXECUTED. AT THE APPROPRIATE TIME THE DISPATCHER WILL CALL THE POWER
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-4
229 ; RECOVERY ROUTINE TO ACTUALLY PROCESS THE POWER FAILURE.
230 ;-
231
232 PUP: MOV #PWBTM,SP ;;;POINT TO LAST REGISTER SAVED
233
234
235 .IF DF F$$LPP
236
237 MOV (SP)+,@(SP)+ ;;;CONDITIONALLY RESTORE PIRQ OR LOC. 0 ; TM104
238 SETD ;;;SET FLOATING DOUBLE MODE ;**-8
239 LDD (SP)+,R0 ;;;RESTORE FLOATING POINT REGISTERS
240 STD R0,R5 ;;;
241 LDD (SP)+,R0 ;;;
242 STD R0,R4 ;;;
243 LDD (SP)+,R3 ;;;
244 LDD (SP)+,R2 ;;;
245 LDD (SP)+,R1 ;;;
246 LDD (SP)+,R0 ;;;
247 LDFPS (SP)+ ;;;RESTORE FLOATING POINT STATUS
248
249 .ENDC
250
251
252 .IF DF M$$MGE
253
254 BIS #PMODE,PS ;;;SET PREVIOUS MODE TO USER
255 MOV #KISAR0,R0 ;;;POINT TO KERNEL ADDRESS REGISTER 0
256 MOV #KISDR0,R1 ;;;POINT TO KERNEL DESCRIPTOR REGISTER 0
257 MOV #UISAR0,R2 ;;;POINT TO USER ADDRESS REGISTER 0
258 MOV #UISDR0,R3 ;;;POINT TO USER DESCRIPTOR REGISTER 0
259 MOV #8.,R4 ;;;SET LOOP COUNT
260 10$: MOV (SP)+,(R3)+ ;;;RESTORE USER DESCRIPTOR REGISTER
261 MOV (SP)+,(R2)+ ;;;RESTORE USER ADDRESS REGISTER
262 MOV #77406,(R1)+ ;;;RESTORE KERNEL DESCRIPTOR REGISTER
263 MOV (SP)+,(R0)+ ;;;RESTORE KERNEL ADDRESS REGISTER
264 DEC R4 ;;;ANY MORE TO RESTORE?
265 BGT 10$ ;;;IF GT YES
266 INC SR0 ;;;TURN ON MEMORY MANAGEMENT
267 MTPI SP ;;;RESTORE USER STACK POINTER
268
269
270 .IF DF M$$EXT
271
272 MOV #UBMPR,R0 ;;;POINT TO FIRST MAP REGISTER
273 MOV #5.,R1 ;;;SET COUNT OF EXEC REGISTERS
274 CLR R2 ;;;CLEAR STARTING ADDRESS
275 20$: MOV R2,(R0)+ ;;;LOAD LOW 16 BITS OF ADDRESS
276 CLR (R0)+ ;;;CLEAR HIGH 6 BITS OF ADDRESS
277 ADD #20000,R2 ;;;ADVANCE 8K BYTES
278 DEC R1 ;;;ANY MORE TO LOAD?
279 BGT 20$ ;;;IF GT YES
280 MOV #31.-5.,R1 ;;;SET COUNT OF REGISTERS
281 30$: MOV (SP)+,(R0)+ ;;;RESTORE LOW 16 BITS OF ADDRESS
282 MOV (SP)+,(R0)+ ;;;RESTORE HIGH 6 BITS OF ADDRESS
283 DEC R1 ;;;ANY MORE REGISTERS
284 BGT 30$ ;;;IF GT YES
285 MOV #60,SR3 ;;;ENABLE 22 BIT AND UNIBUS MAP
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-5
286
287 .ENDC
288
289
290 .IFF
291
292
293 .IF DF E$$EAE
294
295 MOV (SP)+,MQ ;;;RESTORE EAE MULTIPLIER-QUOTIENT
296 MOV (SP)+,AC ;;;RESTORE EAE ACCUMULATOR
297 MOV (SP)+,SC ;;;RESTORE EAE SHIFT COUNT
298
299 .ENDC
300
301
302 .ENDC
303
304
305 MOV (SP)+,R0 ;;;RESTORE R0 THRU R5
306 MOV (SP)+,R1 ;;;
307 MOV (SP)+,R2 ;;;
308 MOV (SP)+,R3 ;;;
309 MOV (SP)+,R4 ;;;
310 MOV (SP)+,R5 ;;;
311 MOV (SP),SP ;;;RESTORE STACK POINTER
312 INC $PWRFL ;;;INDICATE A POWER FAILURE HAS OCCURED
313 MOV #$HEADR,$RQSCH ;;;FORCE REDISPATCHING
314 MOV #PDOWN,PWVCT ;;;SWITCH TO POWER DOWN ROUTINE
315
316
317 .IF NDF L$$SI1
318
319 MOV $CKLDC,@$CKCNT ;;;RELOAD CLOCK COUNT REGISTER
320 MOV #K$$IEN,@$CKCSR ;;;TURN CLOCK BACK ON ; TM103
321 ;**-1
322 .ENDC
323
324
325 RTI ;;;
326
327 ;+
328 ; **-$POWER-POWER FAIL RECOVERY
329 ;
330 ;-
331
332 .IFTF
333
334 .ENABL LSB
335
336 000002 005067 000000G $POWER::CLR $PWRFL ;CLEAR FAILURE INDICATOR
337 000006 CALL $DRDSE ;DECLARE A SIGNIFICANT EVENT
338
339
340 .IF DF K$$W11
341
342 CLR K$$W11+2 ;CLEAR CLOCK ERROR FLAGS
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-6
343 MOV #1,K$$W11+6 ;ENERGIZE OUTPUT RELAY
344
345 .ENDC
346
347
348 .IF DF P$$RTY
349
350 000012 CALL $CLPAR ;CLEAR MEMORY PARITY CSR'S ; TM108
351 000016 016700 000006G MOV $MPCSR+6,R0 ;PICK UP 11/70 CACHE CSR REGISTER ;**-4
352
353
354 .IF DF P$$D70
355
356 CLR $MPCTL ;CLEAR 11/70 PARITY CONTROL REGISTER
357 CLR (R0) ;
358
359 .IFF
360
361 000022 012710 000003 MOV #3,(R0) ;DISABLE TRAPS
362
363 .ENDC
364
365
366 000026 012740 177777 MOV #177777,-(R0) ;CLEAR MEMORY ERROR REGISTER
367
368 .ENDC
369
370
371 .IF DF E$$DVC!E$$NSI!E$$PER ; TM094
372 ; TM094
373 MOV #E.SEQ+4,R1 ;SET SIZE OF EMB TO ALLOCATE ; TM094
374 MOV #EC.PWR,-(SP) ;PUSH POWERFAIL CODE ; TM094
375 CALL $ALEMB ;ALLOCATE A POWERFAIL EMB ; TM094
376 BCS 6$ ;IF CS COULD NOT ALLOCATE ; TM094
377 CALL $QEMB ;QUEUE THE EMB FOR THE ERROR LOGGER ; TM094
378 6$: ;REF LABEL ; TM094
379 ; TM094
380 .ENDC ; TM094
381 ; TM094
382 ; TM094
383 ;
384 ; EFFECT POWERFAIL AST'S FOR TASKS THAT ARE ACTIVE AND IN CORE
385 ;
386
387 .IFT
388
389
390 .IF DF A$$TRP
391
392 MOV $ACTHD,R5 ;GET ADDRESS OF FIRST TCB
393 10$: MOV #H.PFVA,R4 ;SET OFFSET TO AST CONTROL BLOCK IN HEADER
394 MOV T.ACTL(R5),-(SP) ;SAVE POINTER TO NEXT ACTIVE TASK ; TM101
395 BEQ 15$ ;IF EQ THERE IS NONE ; TM101
396 CALL $DASTT ;DECLARE POWERFAIL AST
397 15$: MOV (SP)+,R5 ;GET ADDRESS OF NEXT ACTIVE TASK ; TM101
398 BNE 10$ ;IF NE NO ;**-1
399
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-7
400 .ENDC
401
402
403 ;
404 ; DO POWERFAIL RECOVERY FOR ALL ACTIVE DEVICES
405 ;
406
407 .IFTF
408
409 000032 012746 000000G 20$: MOV #$SCDVT,-(SP) ;SET ADDRESS OF DEVICE TABLE SCANNING CO-ROUTINE
410 000036 30$: CALL @(SP)+ ;GET NEXT UCB ADDRESS
411 000040 103001 BCC 40$ ;IF CC GOT ONE
412 000042 RETURN ;
413 000044 132765 000000G 000000G 40$: BITB #US.OFL,U.ST2(R5) ;DEVICE IN CONFIGURATION?
414 000052 001371 BNE 30$ ;IF NE NO
415 000054 132765 000000G 000000G BITB #UC.PWF,U.CTL(R5) ;CALL DRIVER REGARDLESS OF ACTIVITY?
416 000062 001003 BNE 50$ ;IF NE YES
417 000064 105765 000000G TSTB U.STS(R5) ;IS UNIT ACTIVE?
418 000070 100362 BPL 30$ ;IF PL NO
419 000072 016302 000000G 50$: MOV D.DSP(R3),R2 ;GET ADDRESS OF DRIVER DISPATCH TABLE
420 000076 001757 BEQ 30$ ;IF EQ DRIVER NOT LOADED
421
422
423 .IF DF L$$DRV&M$$MGE
424
425 000100 016746 172352 $LDPWF::MOV KISAR5,-(SP) ;SAVE APR5 (REF LABEL FOR 'LOAD')
426 000104 016303 000000G MOV D.PCB(R3),R3 ;GET DRIVER PCB ADDRESS
427 000110 001403 BEQ 55$ ;IF EQ DRIVER IS PART OF EXEC
428 000112 016367 000014 172352 MOV P.REL(R3),KISAR5 ;MAP THE DRIVER
429 000120 55$: ;
430
431 .IFTF
432
433 000120 116403 000000G MOVB S.CON(R4),R3 ;GET CONTROLLER INDEX
434
435 ;
436 ; CALL DRIVER AT POWERFAIL ENTRY POINT WITH THE ARGUMENTS:
437 ;
438 ; R3=CONTROLLER INDEX.
439 ; R4=ADDRESS OF THE STATUS CONTROL BLOCK.
440 ; R5=ADDRESS OF THE UNIT CONTROL BLOCK.
441 ;
442
443 000124 CALL @D.VPWF(R2) ;ENTER DRIVER
444
445 .IFT
446
447 000130 012667 172352 MOV (SP)+,KISAR5 ;RESTORE APR5
448
449 .ENDC
450
451
452 000134 000740 BR 30$ ;GO AGAIN
453
454 .ENDC
455
456
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-8
457 .DSABL LSB
458
459
460 000001 .END
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-9
SYMBOL TABLE
AS.DEL= 000010 FE.EXP= 000200 K$$LDC= 000001 R$$EXV= 000000 T2.STP= 000020
AS.EXT= 000004 FE.EXT= 000001 K$$TPS= 000074 R$$SND= 000000 T2.TIO= 001000
AS.RED= 000001 FE.EXV= 000004 L$$ASG= 000000 R$$11M= 000000 T2.WFR= 000001
AS.WRT= 000002 FE.LSI= 000400 L$$DRV= 000000 R$$11S= 000000 T3.ACP= 100000
A$$CHK= 000000 FE.MUP= 000002 MPAR = 172100 SISDR0= 172200 T3.CAL= 000100
A$$CPS= 000000 FE.MXT= 040000 MPCSR = 177746 SR0 = 177572 T3.CLI= 001000
A$$TRP= 000000 FE.NLG= 100000 M$$CRB= 000124 SR3 = 172516 T3.MCR= 004000
A.IOC 000003 FE.PKT= 000100 M$$MGE= 000000 SWR = 177570 T3.NET= 000020
A.LGTH= 000014 FE.PLA= 000020 M$$NET= 000000 S$$YSZ= 001740 T3.NSD= 000200
A.MPCT 000011 G$$TPP= 000000 M$$NT2= 000000 S.CON = ****** GX T3.PMD= 040000
A.PCB 000012 G$$TTK= 000000 N$$LDV= 000001 TPS = 177564 T3.PRV= 010000
A.PCBL 000000 H$$RTZ= 000074 PDOWN 000000R TS.BLK= 170700 T3.REM= 020000
A.PRI 000002 H.CSP 000000 PIRQ = 177772 TS.CKP= 000200 T3.ROV= 000040
A.STAT 000010 H.CUIC 000010 PMODE = 030000 TS.CKR= 000100 T3.RST= 000400
A.TCB 000004 H.DSW 000046 PR0 = 000000 TS.EXE= 100000 T3.SLV= 002000
A.TCBL 000006 H.DUIC 000012 PR1 = 000040 TS.MSG= 020000 UBMPR = 170200
CMODE = 140000 H.EFLM 000004 PR4 = 000200 TS.NRP= 010000 UC.PWF= ****** GX
C$$ORE= 002000 H.EFSV 000040 PR5 = 000240 TS.OUT= 000400 UDSAR0= 177660
D.DSP = ****** GX H.FCS 000050 PR6 = 000300 TS.RDN= 040000 UDSDR0= 177620
D.PCB = ****** GX H.FORT 000052 PR7 = 000340 TS.RUN= 004000 UISAR0= 177640
D.VPWF= ****** GX H.FPSA 000042 PS = 177776 T.ACTL 000052 UISAR4= 177650
EC.DTO= 000140 H.FPVA 000034 PS.APR= 000007 T.ASTL 000016 UISAR5= 177652
EC.DVC= 000001 H.GARD 000072 PS.CHK= 010000 T.ATT 000054 UISAR6= 177654
EC.INI= 000040 H.HDLN 000002 PS.CKP= 040000 T.CPCB 000004 UISAR7= 177656
EC.LOA= 000004 H.IPC 000016 PS.CKR= 020000 T.DPRI 000040 UISDR0= 177600
EC.MPE= 000002 H.IPS 000014 PS.COM= 000200 T.EFLG 000022 UISDR4= 177610
EC.NSI= 000141 H.ISP 000020 PS.DEL= 000010 T.IOC 000003 UISDR5= 177612
EC.PWR= 000042 H.LUN 000076 PS.DRV= 000020 T.LBN 000041 UISDR6= 177614
EC.UNL= 000010 H.NLUN 000074 PS.FXD= 004000 T.LDV 000044 UISDR7= 177616
E.ABM 000014 H.NML 000061 PS.LIO= 001000 T.LNK 000000 US.OFL= ****** GX
E.CODE 000002 H.ODVA 000022 PS.NSF= 000400 T.MXSZ 000050 U.CTL = ****** GX
E.FCN 000034 H.ODVL 000024 PS.OUT= 100000 T.NAM 000006 U.STS = ****** GX
E.IOC 000021 H.OVLY 000054 PS.PER= 002000 T.OFF 000060 U.ST2 = ****** GX
E.LGTH= 000056 H.PFVA 000032 PS.PIC= 000100 T.PCB 000046 V$$CTR= 001200
E.LOST 000017 H.RCVA 000036 PS.SYS= 000040 T.PRI 000002 V$$RSN= 000031
E.NAME 000032 H.RRVA 000062 PWVCT 000024 T.RCVL 000012 W.BATT 000006
E.OPC 000022 H.SPRI 000060 P$$RTY= 000000 T.RRFL 000064 W.BFPD 000014
E.OPS 000020 H.TKVA 000026 P$$TPT= 000000 T.SRCT 000063 W.BHVR 000004
E.PAR 000026 H.TKVL 000030 P.BLKS 000016 T.STAT 000032 W.BLGH 000020
E.PRM 000036 H.VEXT 000056 P.BUSY 000024 T.ST2 000034 W.BLPD 000016
E.RCNT 000054 H.WND 000044 P.IOC 000003 T.ST3 000036 W.BLVR 000002
E.REGS= 000056 I$$RDN= 000000 P.LNK 000000 T.TCBL 000030 W.BNPD 000015
E.RTRY 000016 KDSAR0= 172360 P.MAIN 000012 T.UCB 000026 W.BOFF 000012
E.SEQ 000012 KDSDR0= 172320 P.NAM 000004 T2.ABO= 000100 W.BPCB 000000
E.SIZE 000000 KISAR0= 172340 P.OWN 000026 T2.AST= 100000 W.BSIZ 000010
E.TASK 000022 KISAR5= 172352 P.PRI 000002 T2.BFX= 004000 X$$DBT= 000000
E.TIME 000004 KISAR6= 172354 P.REL 000014 T2.CAF= 000400 $CLPAR= ****** GX
E.UCB 000032 KISAR7= 172356 P.SIZE 000016 T2.CHK= 020000 $DRDSE= ****** GX
E.UIC 000030 KISDR0= 172300 P.STAT 000030 T2.CKD= 010000 $LDPWF 000100RG
E.VCTR 000016 KISDR6= 172314 P.SUB 000010 T2.DST= 040000 $MPCSR= ****** GX
E.WHY 000026 KISDR7= 172316 P.SWSZ 000022 T2.FXD= 002000 $POWER 000002RG
FE.CAL= 000040 K$$CNT= 177546 P.TCB 000026 T2.HLT= 000200 $PWRFL= ****** GX
FE.CEX= 020000 K$$CSR= 177546 P.WAIT 000020 T2.SPN= 000004 $SCDVT= ****** GX
FE.DRV= 000010 K$$IEN= 000115 R$$DER= 000000
. ABS. 000102 000
000136 001
POWER MACRO M1110 22-AUG-79 07:09 PAGE 3-10
SYMBOL TABLE
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 4718 WORDS ( 19 PAGES)
DYNAMIC MEMORY: 6148 WORDS ( 23 PAGES)
ELAPSED TIME: 00:00:25
[11,24]POWER,SY0:[11,34]POWER/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,POWER