	SUBROUTINE SEGDES
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
	INTEGER*2	BLK(256),	SEGTAB(3,50),	Q
	BYTE		SNAM(25),	ANS,		Z
	BYTE		BEG(6),		END(6)
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	DATA	Z	/.TRUE./
	IPAGE = 0
	ILINE = 53
10	WRITE  (5, 20)
20	FORMAT (/,' RETURN FOR OUTPUT TO TI OR ENTER ANY CHARACTER',
	1	  ' FOR OUTPUT TO PRINTER ',$)
	READ   (5, 30, ERR=10, END=9999) Q, ANS
30	FORMAT (Q,A1)
	LUN = 5
	IF (Q .NE. 0) LUN = 6
	IF (LUN .EQ. 5) WRITE (5, 40)
40	FORMAT ('  ')
	DO 1000 I = 1, 49
	IF (SEGTAB(1,I) .EQ. 0) GO TO 1100
	ILINE = ILINE + 1
	IF (ILINE.LE.53 .OR. LUN.EQ.5) GO TO 100
	ILINE = 0
	IPAGE = IPAGE + 1
	WRITE  (6, 50) SNAM, IPAGE
50	FORMAT ('1SEGMENT DESCRIPTION FROM FILE ',25A1,10X,
	1	'PAGE ',I1,//)
100	CALL OCTL (SEGTAB(2,I), BEG, Z)
	CALL OCTL (SEGTAB(3,I), END, Z)
	WRITE  (LUN, 200) I, BEG, END
200	FORMAT (' SEGMENT NUMBER ',I2,' -- PC ',6A1,' THRU ',6A1)
1000	CONTINUE
1100	RETURN
9999	CLOSE (UNIT=1)
	STOP
	END
