LDFIN.MAC;2/AU/-BF=LDFIN.OLD;1
\
-2,2
	.IDENT	/02.2N/
-36
;	NAPC -- ALLOW ERROR LOGGING DRIVERS TWO VECTORS
;
%
-56,,/;NAPC/
SAVSCT:	.BLKW	1		;SAVE SCB COUNT
-183,183,/;NAPC/
	BCS	160$		;IF CS NONE LEFT
-206,,/;NAPC/
160$:	JMP	FINISH		;
-238,238,/;NAPC/
20$:	CALL	ALLOC8		;ALLOCATE CORE BLOCKS
-244,,/;NAPC/
	MOV	$SCBCT,SAVSCT	;SAVE SCB COUNT FOR POSSIBLE OUTPUT INT.
-262,267,/;NAPC/
-275,275,/;NAPC/
	BNE	72$		;IF NE, DEFINED
	MOV	.DVINP,.ISR	;IS IT CALLED $XXINP?
72$:	CALL	GENISR		;SET UP PART OF ICB
	MOV	.DVOUT,.ISR	;GET OUTPUT ENTRY
	BEQ	78$		;IF EQ, NO OUTPUT
	MOV	SAVSCT,$SCBCT	;RESET SCB COUNT
	MOV	OUTICB,R0	;OUTPUT ICB ADDRESS
	CLR	R2		;INIT SCB ADDRESS
	MOV	#SCAN,-(SP)	;GET SCAN CO-ROUTINE ADDRESS
74$:	CALL	@(SP)+		;GET NEXT UCB ADDRESS
	BCS	76$		;IF CS NONE LEFT
	CMP	D.NAM(R3),$DVASG ; IS IT OUR DEVICE TYPE?
	BNE	74$		;IF NE NO
	CMP	R4,R2		;IS IT NEW SCB?
	BEQ	74$		;IF EQ, NO
	MOVB	S.VCT(R4),VCT	;GET VECTORE ADDRESS/4
	INC	VCT		;STEP TO OUTPUT VECTOR
	CALL	LNKVCT		;LINK VECTOR TO INT. ENTRY
	MOV	R4,R2		;COPY NEW SCB ADDRESS
	CALL	GENISE		;PLACE INT. SAVE CODE IN ICB
	BR	74$		;SEARCH FOR NEXT SCB
76$:	CALL	GENISR		;PLACE CALL TO INT SERVICE IN ICB
78$:
/