Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/rsx11s/party.list
There is 1 other file named party.list in the archive. Click here to see a list.
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3
1 .TITLE PARTY
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 14-FEB-74
14 ;
15 ; PREVIOUSLY MODIFIED BY:
16 ;
17 ; D. N. CUTLER
18 ; T. J. MILLER
19 ;
20 ; MODIFIED BY:
21 ;
22 ; T. J. MILLER 21-SEP-77
23 ;
24 ; TM108 -- MODIFY TO PROPERLY HANDLE MK11 ECC MEMORY FOR
25 ; THE 11/70.
26 ;
27 ; MEMORY PARITY INTERRUPT HANDLING
28 ;
29 ; MACRO LIBRARY CALLS
30 ;
31
32
33 .IF DF P$$RTY
34
35 .MCALL ABODF$,HWDDF$,PCBDF$,TCBDF$
36 000000 ABODF$ ;DEFINE TASK ABORT CODES
37 000000 HWDDF$ ;DEFINE HARDWARE REGISTERS
38 000000 PCBDF$ ;DEFINE PARTITION CONTROL BLOCK OFFSETS
39 000000 TCBDF$ ;DEFINE TASK CONTROL BLOCK OFFSETS
40
41 ;
42 ; LOCAL DATA
43 ;
44 ; EXEC PARITY ERROR MESSAGE
45 ;
46
47 000000 015 012 052 EXMSG: .ASCIZ <15><12>/***EXEC PARITY ERROR STOP***/<15><12><12> ;
000003 052 052 105
000006 130 105 103
000011 040 120 101
000014 122 111 124
000017 131 040 105
000022 122 122 117
000025 122 040 123
000030 124 117 120
000033 052 052 052
000036 015 012 012
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-1
000041 000
48
49 ;
50 ; INTERRUPT RECURSION LEVEL COUNTER
51 ;
52
53 000042 177777 PARLV: .WORD -1 ;
54
55 ;
56 ; PARITY CONTROL STATUS REGISTER ADDRESS TABLE
57 ;
58
59 000044 .BLKW 1 ;DUMMY STORAGE FOR MEMORY ERROR REGISTER
60 000046 000001 $PARTB::.WORD 1 ;DUMMY CSR FOR NONEXISTANT REGISTERS
61 000050 .BLKW 16. ;MEMORY PARITY CSR TABLE
62 000110 000112' .WORD $MPCSR ;POINT TO 11/70 CSR TABLE
63
64 ;
65 ; PDP-11/70 CACHE PARITY STATUS TABLE
66 ;
67
68
69 .IF DF P$$D70
70
71
72 .IF DF E$$PER
73
74 MSTAT: .BLKW 2 ;FIRST TWO PARITY CSR'S
75 STAT: .BLKW 1 ;MEMORY STATUS REGISTER
76 .BLKW 3 ;LAST THREE PARITY CSR'S
77
78 .IFF
79
80 STAT: .BLKW 1 ;MEMORY STATUS REGISTER
81
82 .ENDC
83
84
85 ERTRK: .BYTE 44,120 ;ADDRESS/DATA GROUP 0
86 .WORD 0 ;TIME OF LAST ERROR
87 .BYTE 30,240 ;ADDRESS/DATA GROUP 1
88 .WORD 0 ;TIME OF LAST ERROR
89 .WORD 0 ;END OF TABLE
90
91 ;
92 ; NEW CACHE PARITY CSR CONTENTS
93 ;
94
95 $MPCTL::.BLKW 1 ;
96
97 .ENDC
98
99
100 ;
101 ; VECTOR OF CACHE CSR ADDRESSES
102 ;
103
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-2
104 000112 $MPCSR::.BLKW 6 ;ALL SIX REGISTERS
105 000126 000000 .WORD 0 ;TERMINATOR LINK FOR INITL AND SAVE
106
107
108 ;
109 ; PARITY VECTOR
110 ;
111
112 000000 .ASECT
113 000114 .=114
114 000114 000134' .WORD PARER ;
115 000116 000340 .WORD PR7 ;
116 000130 .PSECT
117
118 ;+
119 ; **-PARER-MEMORY PARITY ERROR INTERRUPT
120 ;
121 ; THIS ROUTINE IS ENTERED AS THE RESULT OF A MEMORY PARITY ERROR INTERRUPT. IF
122 ; THE ERROR OCCURED IN THE EXECUTIVE OR WHILE ON THE SYSTEM STACK, THEN A
123 ; MESSAGE IS PRINTED ON THE CONSOLE TERMINAL AND THE SYSTEM IS HALTED.
124 ; ELSE A SWITCH TO THE SYSTEM STACK IS EXECUTED AND THE TASK IN WHICH
125 ; THE PARITY ERROR OCCURED IS LOCKED IN MEMORY.
126 ;-
127
128 .ENABL LSB
129 000130 000167 000122 RECURS: JMP 60$ ;;;JUMP TO HALT PROCESSOR
130 000134 005267 177702 PARER: INC PARLV ;;;INTERRUPT RECURSION?
131 000140 001373 BNE RECURS ;;;IF NE YES
132
133
134 .IF DF P$$D70
135
136 MOV R0,-(SP) ;;;SAVE R0
137 MOV R1,-(SP) ;;;SAVE R1
138
139
140 .IF DF E$$PER
141
142 MOV #$MPCSR,R0 ;POINT TO PARITY CSR TABLE
143 MOV #MSTAT,R1 ;POINT TO PARITY CSR SAVE AREA
144 MOV @(R0)+,(R1)+ ;SAVE LOW ADDRESS REGISTER
145 MOV @(R0)+,(R1)+ ;SAVE HIGH ADDRESS REGISTER
146
147 .IFF
148
149 MOV #$MPCSR+4,R0 ;POINT INTO PARITY CSR TABLE
150 MOV #STAT,R1 ;POINT TO STATUS WORD SAVE AREA
151
152 .IFTF
153
154 MOV #-1,(R1) ;ASSUME MEM PARITY ON NONCACHE MACHINE
155 CMP (R0)+,#MPCSR-2 ;RUNNING ON CACHE MACHINE?
156 BNE 2$ ;IF NE NO
157 MOV @-(R0),(R1) ;SAVE MEMORY ERROR REGISTER
158 MOV (R1),@(R0)+ ;CLEAR MEMORY REGISTER AND ADDRESS REGS
159 BIT #50000,(R1)+ ;DOUBLE ERROR?
160 BNE 3$ ;IF NE NO
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-3
161
162 .IFT
163
164 MOV @(R0)+,(R1)+ ;SAVE MEMORY CONTROL REGISTER
165
166 .IFTF
167
168 MOV #3,@-2(R0) ;TURN CACHE TRAPS OFF
169
170 .IFT
171
172 MOV @(R0)+,(R1)+ ;SAVE MAINTENANCE REGISTER
173 MOV @(R0)+,(R1)+ ;SAVE CACHE HIT REGISTER
174
175 .ENDC
176
177
178 2$: MOV (SP)+,R1 ;;;RESTORE R1
179 MOV (SP)+,R0 ;;;RESTORE R0
180
181 .IFTF
182
183
184 .IF DF M$$MGE
185
186 000142 032766 140000 000002 BIT #CMODE,2(SP) ;;;PREVIOUS MODE USER?
187 000150 001001 BNE 4$ ;;;IF NE YES
188
189 .IFF
190
191 CMP (SP),$EXSIZ ;;;PARITY ERROR PC IN EXEC?
192 BLO 3$ ;;;IF LO YES
193 TST $STKDP ;;;PARITY ERROR ON SYSTEM STACK?
194 BGT 4$ ;;;IF LE YES
195
196 .ENDC
197
198
199 .IFT
200
201 3$: TST STAT ;;;FATAL MEMORY ERROR?
202 BLE 20$ ;;;IF LE YES
203 MOV R0,-(SP) ;;;SAVE REGISTERS
204 MOV R1,-(SP) ;;;
205 MOV #ERTRK,R1 ;;;POINT TO ERROR TRACKING TABLE
206 CALL 14$ ;;;EXECUTE CACHE ALGORITHM
207 MOV (SP)+,R1 ;;;RESTORE REGISTERS
208 MOV (SP)+,R0 ;;;
209 RTI ;;;RETURN FROM TRAP
210
211 .IFF
212
213 000152 000423 3$: BR 20$ ;;;FATAL MEMORY PARITY ERROR
214
215 .IFTF
216
217
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-4
218 000154 4$: DIRSV$ ;;;SAVE REGISTERS AND SET PRIORITY
219
220 ;
221 ; LOG PARITY ERROR IN TASK
222 ;
223 ; THE FORMAT OF THE EMB FOR CACHE PARITY IS AS FOLLOWS:
224 ;
225 ; WD. 00 - LINK WORD
226 ; WD. 01 - SIZE=37.*2
227 ; WD. 02 - PROCESSOR TYPE / ENTRY CODE=002
228 ; WD. 03 - MINUTE / SECOND
229 ; WD. 04 - DAY / HOUR
230 ; WD. 05 - YEAR / MONTH
231 ; WD. 06 - ERROR SEQUENCE NUMBER
232 ; WD. 07 - TRAP PC
233 ; WD. 08 - TRAP PS
234 ; WD. 09 - FIRST WORD OF TASK NAME
235 ; WD. 10 - SECOND WORD OF TASK NAME
236 ; WD. 11 - FIRST WORD OF PARTITION NAME
237 ; WD. 12 - SECOND WORD OF PARTITION NAME
238 ; WD. 13 - PARTITION BASE ADDRESS
239 ; WD. 14 - PARTITION SIZE
240 ; WD. 15 - WD. 30 - MEMORY PARITY CSR'S
241 ; WD. 31 - WD. 36 - CACHE PARITY CSR'S
242 ;
243
244
245 .IF DF E$$PER
246
247 MOV #37.*2,R1 ;SET SIZE OF EMB TO ALLOCATE
248 MOV #2+<1*256.>,-(SP) ;PUSH PARITY ERROR CODE AND TYPE=11/45
249 CALL $ALEMB ;ALLOCATE EMB
250 BCS 8$ ;IF CS ALLOCATION FAILURE
251
252
253 .IF DF P$$D70
254
255 CMP $MPCSR+6,#MPCSR ;IS THE PROCESSOR A CACHE PROCESSOR?
256 BNE 5$ ;IF NE NO
257 INCB 5(R1) ;ADVANCE PROCESSOR NUMBER
258 CMP $MPCSR+2,#MPCSR-4 ;IS IT AN 11/70?
259 BEQ 5$ ;IF EQ YES
260 INCB 5(R1) ;ADVANCE PROCESSOR NUMBER
261
262 .IFTF
263
264 5$: MOV @$HEADR,R2 ;PICK UP SAVED STACK POINTER
265 CMP (R2)+,(R2)+ ;SKIP OVER SAVED R4 AND R5
266 MOV (R2)+,(R0)+ ;STORE TRAP PC
267 MOV (R2)+,(R0)+ ;STORE TRAP PS
268 MOV $TKTCB,R2 ;PICK UP CURRENT TASK TCB ADDRESS
269 MOV T.NAM(R2),(R0)+ ;STORE TASK NAME
270 MOV T.NAM+2(R2),(R0)+ ;
271 MOV T.PCB(R2),R2 ;PICK UP TASK PCB ADDRESS
272 MOV P.NAM(R2),(R0)+ ;STORE PARTITION NAME
273 MOV P.NAM+2(R2),(R0)+ ;
274 MOV P.REL(R2),(R0)+ ;STORE PARTITION BASE ADDRESS
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-5
275 MOV P.SIZE(R2),(R0)+ ;STORE PARTITION SIZE
276 MOV #$PARTB+2,R2 ;POINT TO MEMORY PARITY CSR TABLE
277 6$: MOV @(R2)+,(R0)+ ;STORE MEMORY PARITY CSR CONTENTS
278 CMP R2,#$PARTB+2+<16.*2> ;DONE YET?
279 BLO 6$ ;IF LO NO
280
281 .IFT
282
283 TST (R2)+ ;POINT TO CACHE PARITY CSR'S
284 7$: MOV (R2)+,(R0)+ ;STORE SAVED CACHE CSR CONTENTS
285 CMP R2,#MSTAT+14 ;DONE YET?
286 BLO 7$ ;IF LO NO
287
288 .ENDC
289
290
291 CALL $QEMB ;QUEUE ERROR MESSAGE BLOCK
292 8$: ;REF LABEL
293
294 .ENDC
295
296
297 .IFT
298
299 MOV #ERTRK,R1 ;POINT TO ERROR TRACKING TABLE
300 TST STAT ;WAS IT ONLY A CACHE ERROR?
301 BGT 14$ ;IF GT YES
302 BEQ 11$ ;
303
304 .IFTF
305
306 ;
307 ; CLEAR ALL PARITY REGISTERS AND REENABLE FOR PARITY ERRORS
308 ;
309
310 000160 CALL $CLPAR ;RESET ALL PARITY CSR'S ; TM108
311 ;**-4
312 ;
313 ; FREEZE CURRENT TASK IN MEMORY AND THEN ABORT TASK
314 ;
315
316 000164 016701 000000G MOV $TKTCB,R1 ;GET TCB ADDRESS OF CURRENT TASK
317 000170 052761 002000 000034 BIS #T2.FXD,T.ST2(R1) ;FIX TASK IN MEMORY
318 000176 042761 020000 000036 BIC #T3.REM,T.ST3(R1) ;CLEAR REMOVE ON EXIT BIT
319
320
321 .IF DF D$$SHF
322
323 MOV T.PCB(R1),R0 ;GET ADDRESS OF TASK PCB
324 BIT #PS.SYS,P.STAT(R0) ;SYSTEM CONTROLLED PARTITION?
325 BEQ 11$ ;IF EQ NO
326 BIS #PS.NSF,P.STAT(R0) ;FREEZE PARTITION FOR SHUFFLER
327
328 .ENDC
329
330
331 000204 012700 000034 11$: MOV #S.PRTY,R0 ;SET REASON FOR ABORT
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-6
332 000210 CALL $ABTSK ;ABORT TASK
333
334 .IFT
335
336 BR 16$ ;
337
338 ;
339 ; PDP-11/70 CACHE TRAP
340 ;
341
342 12$: MOV $TTNS-4,-(R1) ;;;SAVE TIME OF LAST ERROR
343 13$: TST (R1)+ ;;;POINT TO NEXT GROUP
344 14$: MOVB (R1)+,R0 ;;;GET CACHE DISABLE BITS
345 BEQ 16$ ;;;IF EQ END OF TABLE
346 BITB (R1)+,STAT ;;;ERROR IN THIS GROUP?
347 BEQ 13$ ;;;IF EQ NO
348 CMP (R1)+,$TTNS-4 ;;;OCCUR IN SAME MINUTE?
349 BNE 12$ ;;;IF NE NO
350 BIS R0,$MPCTL ;;;DISABLE THAT PART OF CACHE
351 BR 14$ ;;;PROCESS NEXT GROUP
352 16$: MOV $MPCTL,@$MPCSR+6 ;RELOAD 11/70 PARTIY CSR
353
354 .ENDC
355
356
357 ;
358 ; AT THIS POINT EVERYTHING HAS BEEN CLEANED UP AND THE USER MAY
359 ; INSERT CODE SPECIFIC TO HIS APPLICATION.
360 ;
361 ;***************
362 ; INSERT CODE HERE-ALL REGISTERS ARE AVAILABLE
363 ;***************
364 ;
365 ; EXIT SYSTEM
366 ;
367
368 000214 005367 177622 DEC PARLV ;RESET RECURSION LEVEL
369 000220 RETURN ;EXIT FROM TRAP
370
371 ;
372 ; PARITY ERROR OCCURED WHILE IN EXEC CODE. THIS IS A FATAL SITUATION
373 ; AND THE SYSTEM IS SHUT DOWN. THE USER MAY INSERT CODE SPECIFIC
374 ; TO HIS APPLICATION AT THIS POINT.
375 ;
376
377 000222 20$: ;;;REF LABEL
378
379 ;;;***************
380 ;;; INSERT CODE HERE-ALL REGISTERS HAVE NOT BEEN SAVED
381 ;;;***************
382
383 000222 012737 000256' 000004 MOV #60$,@#4 ;;;PLUG NONEX MEMORY VECTOR
384 000230 010046 MOV R0,-(SP) ;;;SAVE R0
385 000232 012700 000000' MOV #EXMSG,R0 ;;;GET ADDRESS OF PARITY STOP MESSAGE
386 000236 112067 177566 30$: MOVB (R0)+,TPS+2 ;;;OUTPUT NEXT BYTE
387 000242 001404 BEQ 50$ ;;;IF EQ DONE
388 000244 105767 177564 40$: TSTB TPS ;;;OUTPUT DONE?
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-7
389 000250 100375 BPL 40$ ;;;IF PL NO
390 000252 000771 BR 30$ ;;;GO AGAIN
391 000254 012600 50$: MOV (SP)+,R0 ;;;RESTORE R0
392 000256 000000 60$: HALT ;;;HALT SYSTEM
393 000260 000776 BR 60$ ;;;IF CONTINUED HALT AGAIN
394 .DSABL LSB
395
396 ;+ ; TM108
397 ; **-$CLPAR-CLEAR PARITY REGISTERS ; TM108
398 ; ; TM108
399 ; THIS ROUTINE CLEARS OUT ALL PARITY ERRORS IN THE MEMORY PARITY ERROR ; TM108
400 ; REGISTERS AND ENABLES PARITY ERROR NOTIFICATION. ; TM108
401 ; ; TM108
402 ; INPUTS: ; TM108
403 ; ; TM108
404 ; NONE. ; TM108
405 ; ; TM108
406 ; OUTPUTS: ; TM108
407 ; ; TM108
408 ; NONE. ; TM108
409 ; ; TM108
410 ; NOTE: IF THE SYMBOL M$$K11 IS DEFINED (11/70 TYPE ECC MEMORY),; TM108
411 ; THIS ROUTINE WILL NOT PROPERLY HANDLE UNIBUS ECC MEMORY ; TM108
412 ; (SUCH AS MF11S-K) SINCE THE ROUTINE ASSUMES THAT ANY ; TM108
413 ; OTHER MEMORY ON THE SYSTEM MUST BE PARITY MEMORY AND ; TM108
414 ; THAT AN ATTEMPT TO SET THE SINGLE-BIT ECC ERROR BIT ON ; TM108
415 ; SUCH A MEMORY WILL FAIL. THIS ASSUMPTION IS USED TO ; TM108
416 ; DISTINGUISH MK11 ECC MEMORY FROM PARITY MEMORY. ; TM108
417 ;- ; TM108
418 ; TM108
419 000262 012700 000050' $CLPAR::MOV #$PARTB+2,R0 ;POINT TO PARITY CSR VECTOR ; TM108
420 000266 10$: ;REF LABEL ; TM108
421 ; TM108
422 ; TM108
423 .IF DF M$$K11 ; TM108
424 ; TM108
425 TST (R0) ;EVEN WORD CSR PRESENT? ; TM108
426 BPL 20$ ;IF PL NO ; TM108
427 MOV #21,@(R1)+ ;SET ENABLE AND SINGLE-BIT ECC ERROR ; TM108
428 BIT #20,@-(R1) ;SINGLE-BIT ECC ERROR BIT SET (MK11)? ; TM108
429 BEQ 20$ ;IF EQ NO ; TM108
430 MOV #1,@(R0)+ ;SET ENABLE BIT AND CLR REST IN 1ST WORD; TM108
431 BIC #100000,@(R0)+ ;CLEAR ERROR BIT IN SECOND WORD ; TM108
432 BR 30$ ; ; TM108
433 20$: MOV #1,@(R0)+ ;ENABLE PARITY ERROR NOTIFICATION ; TM108
434 ; TM108
435 .ENDC ; TM108
436 ; TM108
437 ; TM108
438 000266 012730 000001 MOV #1,@(R0)+ ;ENABLE PARITY (OR UNIBUS MEM ECC) NOTIF; TM108
439 000272 020027 000110' 30$: CMP R0,#$PARTB+2+<16.*2> ;DONE YET? ; TM108
440 000276 103773 BLO 10$ ;IF LO NO ; TM108
441 000300 RETURN ; ; TM108
442 .ENDC
443
444
445 000001 .END
PARTY MACRO M1110 22-AUG-79 07:08 PAGE 3-8
SYMBOL TABLE
AS.DEL= 000010 KISDR7= 172316 P.BUSY 000024 TS.CKR= 000100 T2.CKD= 010000
AS.EXT= 000004 K$$CNT= 177546 P.IOC 000003 TS.EXE= 100000 T2.DST= 040000
AS.RED= 000001 K$$CSR= 177546 P.LNK 000000 TS.MSG= 020000 T2.FXD= 002000
AS.WRT= 000002 K$$IEN= 000115 P.MAIN 000012 TS.NRP= 010000 T2.HLT= 000200
A$$CHK= 000000 K$$LDC= 000001 P.NAM 000004 TS.OUT= 000400 T2.SPN= 000004
A$$CPS= 000000 K$$TPS= 000074 P.OWN 000026 TS.RDN= 040000 T2.STP= 000020
A$$TRP= 000000 L$$ASG= 000000 P.PRI 000002 TS.RUN= 004000 T2.TIO= 001000
A.IOC 000003 L$$DRV= 000000 P.REL 000014 T.ACTL 000052 T2.WFR= 000001
A.LGTH= 000014 MPAR = 172100 P.SIZE 000016 T.ASTL 000016 T3.ACP= 100000
A.MPCT 000011 MPCSR = 177746 P.STAT 000030 T.ATT 000054 T3.CAL= 000100
A.PCB 000012 M$$CRB= 000124 P.SUB 000010 T.CPCB 000004 T3.CLI= 001000
A.PCBL 000000 M$$MGE= 000000 P.SWSZ 000022 T.DPRI 000040 T3.MCR= 004000
A.PRI 000002 M$$NET= 000000 P.TCB 000026 T.EFLG 000022 T3.NET= 000020
A.STAT 000010 M$$NT2= 000000 P.WAIT 000020 T.IOC 000003 T3.NSD= 000200
A.TCB 000004 N$$LDV= 000001 RECURS 000130R T.LBN 000041 T3.PMD= 040000
A.TCBL 000006 PARER 000134R R$$DER= 000000 T.LDV 000044 T3.PRV= 010000
CMODE = 140000 PARLV 000042R R$$EXV= 000000 T.LNK 000000 T3.REM= 020000
C$$ORE= 002000 PIRQ = 177772 R$$SND= 000000 T.MXSZ 000050 T3.ROV= 000040
EXMSG 000000R PMODE = 030000 R$$11M= 000000 T.NAM 000006 T3.RST= 000400
FE.CAL= 000040 PR0 = 000000 R$$11S= 000000 T.NCRE= 000006 T3.SLV= 002000
FE.CEX= 020000 PR1 = 000040 SISDR0= 172200 T.NCWF= 000004 UBMPR = 170200
FE.DRV= 000010 PR4 = 000200 SR0 = 177572 T.NDMO= 000010 UDSAR0= 177660
FE.EXP= 000200 PR5 = 000240 SR3 = 172516 T.NDNR= 000000 UDSDR0= 177620
FE.EXT= 000001 PR6 = 000300 SWR = 177570 T.NDSE= 000002 UISAR0= 177640
FE.EXV= 000004 PR7 = 000340 S$$YSZ= 001740 T.NLDN= 000014 UISAR4= 177650
FE.LSI= 000400 PS = 177776 S.CABO= 000024 T.NLUP= 000016 UISAR5= 177652
FE.MUP= 000002 PS.APR= 000007 S.CAST= 000022 T.OFF 000060 UISAR6= 177654
FE.MXT= 040000 PS.CHK= 010000 S.CBPT= 000004 T.PCB 000046 UISAR7= 177656
FE.NLG= 100000 PS.CKP= 040000 S.CCRF= 000030 T.PRI 000002 UISDR0= 177600
FE.PKT= 000100 PS.CKR= 020000 S.CEMT= 000012 T.RCVL 000012 UISDR4= 177610
FE.PLA= 000020 PS.COM= 000200 S.CFLT= 000016 T.RRFL 000064 UISDR5= 177612
G$$TPP= 000000 PS.DEL= 000010 S.CILI= 000010 T.SRCT 000063 UISDR6= 177614
G$$TTK= 000000 PS.DRV= 000020 S.CIOT= 000006 T.STAT 000032 UISDR7= 177616
H$$RTZ= 000074 PS.FXD= 004000 S.CLRF= 000026 T.ST2 000034 V$$CTR= 001200
I$$RDN= 000000 PS.LIO= 001000 S.COAD= 000000 T.ST3 000036 V$$RSN= 000031
KDSAR0= 172360 PS.NSF= 000400 S.CSGF= 000002 T.TCBL 000030 X$$DBT= 000000
KDSDR0= 172320 PS.OUT= 100000 S.CSST= 000020 T.UCB 000026 $ABTSK= ****** GX
KISAR0= 172340 PS.PER= 002000 S.CTRP= 000014 T2.ABO= 000100 $CLPAR 000262RG
KISAR5= 172352 PS.PIC= 000100 S.IOMG= 000032 T2.AST= 100000 $DIRSV= ****** GX
KISAR6= 172354 PS.SYS= 000040 S.PRTY= 000034 T2.BFX= 004000 $MPCSR 000112RG
KISAR7= 172356 P$$RTY= 000000 TPS = 177564 T2.CAF= 000400 $PARTB 000046RG
KISDR0= 172300 P$$TPT= 000000 TS.BLK= 170700 T2.CHK= 020000 $TKTCB= ****** GX
KISDR6= 172314 P.BLKS 000016 TS.CKP= 000200
. ABS. 000120 000
000302 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 4020 WORDS ( 16 PAGES)
DYNAMIC MEMORY: 5092 WORDS ( 19 PAGES)
ELAPSED TIME: 00:00:23
[11,24]PARTY,SY0:[11,34]PARTY/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,PARTY