C	OBJGO -- PROCEED OBJECT FILE
C			INSTRUCTS THE LIMPIT MODULE TO PROCEED
C			UPON RETURN TO THIS ROUTINE, IT IS THEN
C			DETERMINED IF AN AUTO-LOAD VECTOR, EXIT,
C			NORMAL, OR ABNORMAL BREAK POINT TRAP
C			WAS ENCOUNTERED.
C
C
	SUBROUTINE OBJGO(AUTOFG,EXITFG,CURPC,IERR,ERCODE)
	INTEGER AUTOFG,EXITFG,CURPC,IERR,ERCODE,ALBP2,EXIT1,EXIT2
	INTEGER  TASKNM(2),ITERM,IDSW,RECDAT(9),ITASK(2),IOVLAY
	COMMON /IONODE/TASKNM,ITERM,IDSW,RECDAT,ITASK
	COMMON /AUTO/ALBP2,EXIT1,EXIT2,IOVLAY
	IERR=.FALSE.
	AUTOFG=.FALSE.
	EXITFG=.FALSE.
	ISEQ=1
	RECDAT(3)=6
	CALL SNDREC(IERR,ISEQ)
	CURPC=RECDAT(4)-2
	ERCODE=RECDAT(3)
	IF(ERCODE.NE.3)GOTO10
	IF(CURPC.EQ.ALBP2)AUTOFG=.TRUE.
	IF(CURPC.EQ.EXIT1.OR.CURPC.EQ.EXIT2)EXITFG=.TRUE.
	RECDAT(3)=7
	RECDAT(4)=CURPC
	ISEQ=2
	CALL SNDREC(IERR,ISEQ)
	RETURN
10	IERR=.TRUE.
	RETURN
	END