Ausam/sys/sysd/dumps/save

Find at most related files.
including files from this version of Unix. 
if $1x != x goto ok
echo "save suffix [ optional unix file ]"
exit
: ok
: note that the count must be altered to reflect local core size
dd if=/dev/rmt0 of=../cores/core.$1 count=1281
chown sysdump ../cores/core.$1
if $2x = x goto default
cp $2 ../unices/unix.$1
goto cont
: default
cp /unix ../unices/unix.$1
: cont
chown sysdump ../unices/unix.$1
chmod 600 ../unices/unix.$1
echo "Give particulars of this crash!"
ed -e ../particulars/$1 < /dev/tty > /dev/tty
echo "" >> ../particulars/$1
echo this is dump $1 >> ../particulars/$1
chown sysdump ../particulars/$1
date >> log
echo unix.$1 and core.$1 created from system dump >> log
df /dev/ms01
echo "above is the number of free blocks on this disc, and you will need >140"
if ! { ask "shall I save the /usr/include files also" } exit
mkdir ../include/$1
cd /usr/include
copy -r . /user3/EECF-Maint/sysdump/include/$1
cd /user3/EECF-Maint/sysdump/include/$1
chown sysdump .
chown sysdump *