Google
 

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