	SUBROUTINE BRA (LINE)
C
C	FOR FURTHER INFORMATION CONTACT:
C
C	ROBERT WATSON
C	CISCO, INC.
C	4135 S. 100 E. AVE.
C	TULSA OK 74145
C
	INTEGER*4	PC,		ADR,		XXX
	INTEGER*2	ADRDUM(2),	XXXDUM(2),	HIADR
	INTEGER*2	LOADR,		HIXXX,		LOXXX
	INTEGER*2	BLK(256),	SEGTAB(3,50)
	BYTE		LINE(78),	ASCADR(6),	Z
	BYTE		SNAM(25)
	EQUIVALENCE	(ADR,ADRDUM(1)),	(XXX,XXXDUM(1)),
	1		(ADRDUM(1),LOADR),	(ADRDUM(2),HIADR),
	2		(XXXDUM(1),LOXXX),	(XXXDUM(2),HIXXX)
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	INT = BLK(ISUB)
	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
