	SUBROUTINE REG (R, LINE, LINSUB)
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	IBLK(256),	SEGTAB(3,50)
	BYTE		LINE(78),	R,		SNAM(25)
	COMMON	/TSKCOM/  BLK, IREC, ISUB, PC, SEGTAB, IZRWRD, SNAM
	IF (R .EQ. '6') GO TO 100
	IF (R .EQ. '7') GO TO 200
	LINE(LINSUB) = 'R'
	LINE(LINSUB+1) = R
	LINSUB = LINSUB + 2
	RETURN
100	LINE(LINSUB) = 'S'
	LINE(LINSUB+1) = 'P'
	LINSUB = LINSUB + 2
	RETURN
200	LINE(LINSUB) = 'P'
	LINE(LINSUB+1) = 'C'
	LINSUB = LINSUB + 2
	RETURN
	END
