SUBROUTINE STORE3(IBUF,J)
	BYTE IBUF(400)
C	IB IS BYTE INDEX TO IBUF
C	IS IS SHIFT COUNT IN THE WORD
	BYTE JJ,JSAVE
	IF(J.EQ.-77)GO TO 998
	IN=IN+1
C	TYPE 13,IN,IB,IS,JSAVE,J
  13	FORMAT(' IN=',1I5,'IB=',1I5,' IS=',1I5,' JSAVE=',1O7,' J=',1O5)
C	IF(IN.EQ.17)IS=5
	IF(IS.GE.0)GO TO 25
	IF(IS.EQ.-1)GO TO 20
	JJJ=IAND(J,3)
	JSAVE=ISHFT(JJJ,6)
	IBUF(IB+1)=JSAVE
	J=IAND(J,4)
	GO TO 25
   20	JJJ=IAND(J,1)
	JSAVE=ISHFT(JJJ,7)
	IBUF(IB+1)=JSAVE
	J=IAND(J,6)
   25	J=ISHFT(J,IS)
	JJJ=IBUF(IB)
C	TYPE 1133,J
1133	FORMAT(' JJJ=',1I7)
	IBUF(IB)=IOR(JJJ,J)
C	TYPE	113,(IBUF(IB))
C 113	FORMAT(' IBUF-IB=',1O3)
   	IF(IS.GT.0)GO TO 35
	IB=IB+1
	IS=IS+5
   	IF(IB.GT.400)GO TO 40
	GO TO 36
   35	IS=IS-3
   36 RETURN
   40	CONTINUE
	IF(IS.NE.5)GO TO 999
	RETURN
  999	TYPE 1000,IS,JSAVE,IB
	STOP ' OH! OH!'
 1000	FORMAT(' IS=',I5,' JSAVE=',I5,' IB=',I5)
  998	CONTINUE
  	IB=1
	IN=0
	IS=5
	RETURN
	END