	SUBROUTINE REPORT
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*2	BLK(256),	Q,		PCDUM(2)
	INTEGER*2	HIPC,		LOPC,		IDUM
	INTEGER*2	SEGTAB(3,50)
	INTEGER*4	PC,		IBEG,		IENDS
	BYTE		LOC(6),		MAC(6),		RAD(3)
	BYTE		ANS,		TODO,		Z
	BYTE		BDUM(2),	SNAM(25),	OCTB1(3)
	BYTE		OCTB2(3)
	EQUIVALENCE	(PC,PCDUM(1)),		(PCDUM(1),LOPC),
	1		(PCDUM(2),HIPC),	(BDUM(1),IDUM)
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	DATA		Z	/.TRUE./
300	WRITE  (5, 400)
400	FORMAT (/,' ENTER SEGMENT NUMBER, ADDRESS OR RETURN',
	1	  ' TO CHANGE MODES ',$)
	READ   (5, 500, ERR=300, END=2000) Q, ISEG, IBEG
500	FORMAT (Q,I3,O6)
	IF (Q .LE. 0) GO TO 1900
	IF ((IBEG.AND.1) .EQ. 0) GO TO 700
	WRITE  (5, 600) 7
600	FORMAT (/,' ADDRESS MUST BE EVEN',A1)
	GO TO 300
700	CALL INIT (ISEG, IBEG)
	IF (ISUB .LT. 0) GO TO 300
	IENDS = SEGTAB(3,ISEG)
	IENDS = (IENDS .AND. "177777)
800	WRITE  (5, 900)
900	FORMAT (/,' ENTER A TO VIEW AS ASCII',/,
	1	  ' ENTER W TO VIEW AS OCTAL WORD',/,
	2	  ' ENTER B TO VIEW AS OCTAL BYTE',/,
	3	  ' ENTER R TO VIEW AS ASCII ENCODING OF RAD50 ',$)
	READ   (5,1000,END=2000) ANS
1000	FORMAT (A1)
	IF (ANS.NE.'A' .AND. ANS.NE.'W' .AND. ANS.NE.'B' .AND.
	1   ANS.NE.'R') GO TO 800
1100	WRITE  (5, 1200)
1200	FORMAT (/,' RETURN TO VIEW NEXT WORD',/,
	1	  ' ENTER N TO GO TO NEW LOCATION',/,
	2	  ' ENTER V TO VIEW IN NEW FORMAT',/,
	3	  ' ENTER X TO CHANGE MODES',/)
1250	IDUM = BLK(ISUB)
	CALL OCTL (LOPC, LOC, Z)
	CALL OCTL (BLK(ISUB), MAC, Z)
	IF (ANS .NE. 'W') GO TO 1256
	WRITE  (5, 1255) LOC, MAC
1255	FORMAT (X,6A1,2X,6A1,10X,$)
	GO TO 1600
1256	IF (ANS .NE. 'B') GO TO 1260
	CALL OCTLB (BDUM(1), OCTB1, Z)
	CALL OCTLB (BDUM(2), OCTB2, Z)
	WRITE  (5, 1257) LOC, MAC, OCTB1, OCTB2
1257	FORMAT (X,6A1,2X,6A1,2X,3A1,X,3A1,X,$)
	GO TO 1600
1260	IF (ANS .NE. 'A') GO TO 1400
	IF (BDUM(1).LT."40 .OR. BDUM(1).GT."176) BDUM(1) = '?'
	IF (BDUM(2).LT."40 .OR. BDUM(2).GT."176) BDUM(2) = '?'
	WRITE  (5, 1300) LOC, MAC, BDUM
1300	FORMAT (X,6A1,2X,6A1,2X,2A1,6X,$)
	GO TO 1600
1400	CALL R50ASC (3, BLK(ISUB), RAD)
1490	WRITE  (5, 1500) LOC, MAC, RAD
1500	FORMAT (X,6A1,2X,6A1,2X,3A1,5X,$)
1600	READ   (5, 1700, ERR=1490, END=2000) Q, TODO
1700	FORMAT (Q,A1)
	IF (Q .LE. 0) GO TO 1800
	IF (TODO.NE.'N' .AND. TODO.NE.'V' .AND. TODO.NE.'X') GO TO 1100
	IF (TODO .EQ. 'N') GO TO 300
	IF (TODO .EQ. 'V') GO TO 800
	IF (TODO .EQ. 'X') GO TO 1900
1800	PC = PC + 2
	IF (PC .LT. IENDS) GO TO 1850
	WRITE  (5, 1810) 7
1810	FORMAT (/,' END OF SEGMENT',A1)
	GO TO 1900
1850	ISUB = ISUB + 1
	IF (ISUB .LE. 256) GO TO 1250
	IREC = IREC + 1
	CALL FILL (BLK, IREC, ISUB, PC)
	GO TO 1250
1900	RETURN
2000	CLOSE (UNIT=1)
	STOP
	END
