C MERGE		MH:RWK-ICD,MN.		06/05/75
C
C MERGE DIGITIZED SPEECH SOUNDS INTO ONE SOUND
C
C QUIET: LAST ADDRESS OF SILENCE
C
C READ FILE:  BLOCK # OF SOUND
C	  FIELD,ADDR BEGINNING OF SOUND
C         FIELD,ADDR END OF SOUND
C
C OUTPUT FILE BLOCK: BLOCK # OF NEW SOUND
C
C
C	.FORT
C	*MERGE/L
C	*IOH$
C
C
	COMMON IBUF,NOBUF
	DIMENSION IBUF(256),NOBUF(256)
	DIMENSION G1(1),G2(1)
	DIMENSION IG1(3),IG2(3)
	EQUIVALENCE (G1,IG1),(G2,IG2)
	ADR=-1024.
510	READ(1,100) IBWF
	CALL RLINC(1,IBWF,1,NOBUF,256)
	F3N=ADR
	IN=20
S\500,	JMS QUIET
S	JMS RFILE
	GOTO 500
100	FORMAT('OUTPUT FILE BLOCK?'O4)
C
C
SQUIET,	0
	READ(1,101) IG1(2),IG1(3)
S	TAD (2330 ; DCA \G1
	FI=G1-F3N-ADR
	ISL=0
S\501,	JMS WFILE
	FI=FI-1.
	IF(FI)502,502,501
S\502,	JMP I QUIET
101	FORMAT('QUIET? '2O4)
C
C
SWFILE,	0
	NOBUF(IN)=ISL
	F3N=F3N+1.
	IN=IN+1
	IF(IN-256)504,504,503
503	CALL WLINC(1,IBUF,1,NOBUF,256)
	IBWF=IBWF+1
	IBWFC=IBWFC-1
	IN=1
	IF(IBWFC)510,510,504
S\504,	JMP I WFILE
C
C
SRFILE,	0
	READ(1,102) IBRF,IG1(2),IG1(3),IG2(2),IG2(3)
S	TAD (2330 ; DCA \G1
S	TAD (2330 ; DCA \G2
	IBRFC=28
	CALL RLINC(1,IBRF,1,IBUF,256)
	F1N=-(ADR-20.)
	DO 508 IB=1,IBRFC
	DO 507 I=1,256
	F1N=F1N+1.
	IF(F1N-G1)507,505,505
505	IF(F1N-G2)506,506,509
506	ISL=IBUF(I)
S	JMS WFILE
507	CONTINUE
	CALL RLINC(1,IBRF,1,IBUF,256)
	IBRF=IBRF+1
508	CONTINUE
S\509,	JMP I READ
102	FORMAT('READ FILE?'5O4)
	END