# UNSPLIT -- Remove split objects and reset remaining object flags

procedure t_unsplit ()

pointer	sp, input, output

begin
	call smark (sp)
	call salloc (input, SZ_FNAME, TY_CHAR)
	call salloc (output, SZ_FNAME, TY_CHAR)

	call clgstr ("input", Memc[input], SZ_FNAME)
	call clgstr ("output", Memc[output], SZ_FNAME)
	call strpak (Memc[input], Memc[input], SZ_FNAME)
	call strpak (Memc[output], Memc[output], SZ_FNAME)

	call unsplit (Memc[input], Memc[output])

	call sfree (sp)
end