#
@ nr = 1
# get past master directory
# mt fsf
if ( $status != 0) exit(1)
# get past tape directory
mt fsf
# loop to pick up sdf files on the directory
loop: 
if ( $status == 0) then
	cat < /dev/nrmt0 > mmm$nr
	dd if=/dev/nrmt0 bs=10240 | sndout -is -R25600 -c2 /sndc/dgl/mmx$nr
	if ($status != 0) exit(1)
	@ nr++
	goto loop
endif
exit(1)
