	SUBROUTINE OCTL (INT, OCT, Z)
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)
	BYTE		OCT(6),		Z,		SNAM(25)
	BYTE		B
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	LEN = 6
	GO TO 50
	ENTRY OCTLB (B, OCT, Z)
	LEN = 3
	ENCODE (LEN, 100, OCT, ERR=300) B
	GO TO 150
50	ENCODE (LEN, 100, OCT, ERR=300) INT
100	FORMAT (O<LEN>)
150	IF (.NOT. Z) RETURN
	DO 200 I = 1, LEN
	IF (OCT(I) .EQ. ' ') OCT(I) = '0'
200	CONTINUE
	RETURN
300	WRITE  (5, 400) 7
400	FORMAT (/,' ENCODING ERROR',A1)
	STOP
	END
