C	INITCD -- SET BREAK POINT TRAPS FOR ALL SYMBOLIC EXCUTABLE CODE
C		IN TABLE IN THE CURRENT SEGMENT
C
C
	SUBROUTINE INITCD(SAVSEG,SAVMOD,IERR,CODREC)
	INTEGER SAVSEG(3),SAVMOD(3),TSEG(3),TMOD(3)
	INTEGER ILINE,IADD,CODE(40),ICNT,IERR
	INTEGER*4 IREC1,IREC2,IREC3,CODREC
	COMMON/RECS/IREC1,IREC2,IREC3
	IHIT=.FALSE.
	IERR=.FALSE.
	IREC3=CODREC
100	READ(3'IREC3,ERR=200)TSEG,TMOD,ILINE,IADD,CODE,ICNT
	IF(LTEQGT(SAVSEG,TSEG,0).NE.0.OR.
     +     LTEQGT(SAVMOD,TMOD,0).NE.0)GOTO100
	IHIT=.TRUE.
	CALL GETCNT(IADD,ICNT)
	CALL SETRP(IADD)
	IREC3=IREC3-1
	WRITE(3'IREC3)TSEG,TMOD,ILINE,IADD,CODE,ICNT
	GOTO100
200	IF(IHIT.EQ..TRUE.)RETURN
	IERR=.TRUE.
	RETURN
	END