C INITSG -- SET BREAK POINT TRAPS FOR ALL SEGMENT'S MODULE'S & C THEIR CODE(INITCD). C C SUBROUTINE INITSG(IOVLAY,IERR) INTEGER SEGTAB(5,200),SGTLNT,IOVLAY,IERR,IERR2 INTEGER TSEG(3),TMOD(3),IA1,IA2,ILST,ICNT INTEGER*4 IREC1,IREC2,IREC3,CODREC BYTE MESAGE(216) COMMON/RECS/IREC1,IREC2,IREC3 COMMON/SEGS/SEGTAB,SGTLNT COMMON/MESBUF/MESAGE C C IF(IOVLAY.EQ..TRUE.)GOTO5 CALL STRMOV('NONOVL',1,6,SEGTAB(1,1),1) SGTLNT=1 SEGTAB(4,1)=1 5 IREC1=1 IERR=.FALSE. READ(1'IREC1)TSEG,TMOD,IA1,IA2,ILST,ICNT,CODREC DO 100 I=1,SGTLNT IHIT=.FALSE. 10 IF(LTEQGT(TSEG,SEGTAB(1,I),0).EQ.0)GOTO20 READ(1'IREC1,ERR=60)TSEG,TMOD,IA1,IA2,ILST,ICNT,CODREC GOTO10 20 IHIT=.TRUE. IF(SEGTAB(4,I).EQ.1.AND.SEGTAB(5,I).EQ.0)GOTO30 GOTO100 30 SEGTAB(5,I)=1 IF(ILST.LE.0)GOTO40 CALL INITCD(TSEG,TMOD,IERR2,CODREC) IF(IERR2.EQ..TRUE.)GOTO40 35 READ(1'IREC1,ERR=60)TSEG,TMOD,IA1,IA2,ILST,ICNT,CODREC IF(LTEQGT(TSEG,SEGTAB(1,I),0).EQ.0)GOTO30 GOTO100 40 IREC1=IREC1-1 CALL GETCNT(IA1,ICNT) CALL SETRP(IA1) WRITE(1'IREC1)TSEG,TMOD,IA1,IA2,ILST,ICNT,CODREC GOTO35 100 CONTINUE RETURN 60 IF(IHIT.EQ..TRUE.)RETURN ENCODE(51,70,MESAGE) 70 FORMAT(' INIT. ERROR INTERNAL TABLES DO NOT MATCH .PRG FILE') IERR=.TRUE. RETURN END