SUBROUTINE BRA (INT, PC, LINE)
C
C	ROBERT WATSON
C	CISCO, INC.
C	(918)665-2110
C	4135 S. 100TH E. AVE.
C	TULSA OK 74145
C
C	THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN
C	AND IS NOT TO BE COPYRIGHTED.
C
	INTEGER*4	PC,		ADR,		XXX
	INTEGER*2	ADRDUM(2),	XXXDUM(2),	HIADR,
	1		LOADR,		HIXXX,		LOXXX
	BYTE		LINE(78),	ASCADR(6),	Z
	EQUIVALENCE	(ADR,ADRDUM(1)),	(XXX,XXXDUM(1)),
	1		(ADRDUM(1),LOADR),	(ADRDUM(2),HIADR),
	2		(XXXDUM(1),LOXXX),	(XXXDUM(2),HIXXX)
	XXX = (INT .AND. "377)
	IF ((XXX .AND. "200) .EQ. 0) GO TO 50
	XXX = (2 * XXX)
	HIXXX = -1
	LOXXX = (LOXXX .OR. "177400)
	GO TO 60
50	XXX = (2 * XXX)
60	ADR = PC + XXX
	CALL OCTL (LOADR, ASCADR, Z)
	J = 49
	DO 100 I=1,6
	IF (ASCADR(I) .EQ. ' ') GO TO 100
	LINE(J) = ASCADR(I)
	J = J + 1
100	CONTINUE
	RETURN
	END