TKTN.MAC;2/AU=TKTN.OLD;1/-BF
\
-2,2
	.IDENT	/03.94N/
-76
;
;	NAPC --	PRINT PARITY CSR'S IF PARITY ERROR
;		PRINT KT11 REGISTERS ON SEGMENT FAULT
;		CORRECT SENSE OF TIME STAMP CONDITIONAL
%
-261,261,/;NAPC/
TKNBUF:	.BLKB	310.		;BUFFER FOR COMPLETE LINE
-275,275,/;NAPC/
	.IF DF	C$$OTM
-290,290,/;NAPC/
	.WORD	IO.WLB!TF.WBT	;FUNCTION CODE
-434,434,/;NAPC/
	.IF DF	C$$OTM
-519,,/;NAPC/
401$:	JMP	40$
-521,521,/;NAPC/
	BNE	401$		; YES, SKIP
-523,523,/;NAPC/
	BNE	401$		; NO
-530,530,/;NAPC/
	BEQ	401$		; NO REGS TO DUMP (LOAD ERROR)
-536,536,/;NAPC/
	BEQ	401$		; NO REGS TO DUMP (LOAD ERROR)
-565,565,/;NAPC/
	MOV	TKNTCB,R5	; GET TCB ADDRESS
	CMPB	T.EFLG(R5),#28.	; IS THIS PARITY ERROR?
	BNE	35$		; IF NE NO
	MOV	#$PARTB+2,R3	; GET ADDRESS OF PARITY CSR ADDRESS TABLE
	CLR	R2		; SUPPRESS ZEROES ON TYPEOUT
20$:	TST	@(R3)		; ERROR IN THIS CONTROLLER?
	BPL	30$		; IF PL NO
	.IF NDF	R$$11S
	.IF NDF	C$$OTM
	MOVB	#11,(R0)+	; INDENT PAST TIME STAMP
	MOVB	#SPA,(R0)	; SPACE
	MOVB	(R0)+,(R0)+	; ANOTHER SPACE
	.ENDC
	.ENDC
	MOV	(R3),R1		; PRINT PARITY CSR ADDRESS
	CALL	$CBOMG		; CONVERT TO ASCII
	MOVB	#':,(R0)+	; COLON
	MOV	@(R3),R1	; CONTENTS OF CSR
	BIC	#170037,R1	; STRIP OFF JUNK
	MOV	R1,R5		; SAVE BOTTOM ADDRESS
	CALL	$CBOMG		; CONVERT TO ASCII
	MOVB	#'0,(R0)	; TWO 0'S
	MOVB	(R0)+,(R0)+
	MOVB	#'-,(R0)+
	MOV	R5,R1
	BIS	#37,R1		; PRINT TOP ADDRESS
	CALL	$CBOMG
	MOVB	#'7,(R0)	; TWO 7'S
	MOVB	(R0)+,(R0)+
30$:	MOV	#1,@(R3)+	; RESET CSR
	CMP	R3,#$PARTB+2+<16.*2> ; ANY MORE?
	BLO	20$		; IF LO YES
	MOV	R0,MESPTR
	BR	40$		;
35$:	CMPB	T.EFLG(R5),#2.	;IS THIS A SEGMENT FAULT
	BNE	40$		;IF NE, NO
	.IF NDF	R$$11S
	.IF NDF	C$$OTM
	MOVB	#11,(R0)+	; INDENT PAST TIME STAMP
	MOVB	#SPA,(R0)	; SPACE
	MOVB	(R0)+,(R0)+	; ANOTHER SPACE
	.ENDC
	.ENDC
	MOV	R0,R2		;NO ZERO SUPP
	MOV	$SFSR0,R1	;PRINT SR0
	CALL	$CBOMG		; IN OCTAL
	MOVB	#',,(R0)+
	MOV	$SFSR1,R1	;PRINT SR1
	CALL	$CBOMG
	MOVB	#',,(R0)+
	MOV	$SFSR2,R1	;PRINT SR2
	CALL	$CBOMG
	MOV	R0,MESPTR
40$:	MOV	TKNTCB,R5	;GET TCB ADDRESS
-703,703,/;NAPC/
	.IF DF	C$$OTM
-725,725,/;NAPC/
	.IF DF	C$$OTM
-807,807,/;NAPC/
	.IF DF	C$$OTM
-824,824,/;NAPC/
	.IF DF	C$$OTM
-864,864,/;NAPC/
10$:	MOV	#IO.WLB!TF.WBT,TKNDPB+2  ; BREAKTHROUGH WRITES
-869,869,/;NAPC/
	.IF DF	C$$OTM
-927,927,/;NAPC/
	.IF DF	C$$OTM
-960,960,/;NAPC/
	.IF DF	C$$OTM
-1001,1001,/;NAPC/
	.IF DF	C$$OTM
/