DEVOV.MAC;2/AU=DEVOV.OLD;1/-BF
\
-2,2
	.IDENT	/03.4N/
-44
;	NAPC --   PRINT UCB ADDRESS
;
%
-215,,/;NAPC/
	MOVB	#HT,(R0)+	;PUT IN TAB
	CLR	R2		;ZERO SUPPRESS UCB
	MOV	R4,R1		;GET UCB ADDRESS
	CALL	$CBOMG		;CONVERT TO OCTAL
/