DataMuseum.dk

Presents historical artifacts from the history of:

ICL Comet 32

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about ICL Comet 32

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦5a5da5362⟧ TextFile

    Length: 1335 (0x537)
    Types: TextFile
    Notes: UNIX file
    Names: »flopfill«

Derivation

└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
    └─⟦28c352965⟧ »/a« UNIX Filesystem
        └─⟦this⟧ »usr/local/lib/flopfill« 

TextFile

umount /dev/flop
echo -n "Floppy fyld+test. Is{t en diskette og tryk y+<return> "
read something
case $something in
y*)
	continue
	;;
*)
	echo	"flopfill stopped"
	exit 0
	;;
esac

echo -n "Nu laves floppy-filsystem: "
echo `mkfs /dev/flop 800` >/dev/console
mount /dev/flop /tmp
chmod 700 /startlofo
cd /tmp
/startlofo
cd /
chmod 000 /startlofo
echo -n "Skrivning: ........"
echo -n "▶08◀ ▶08◀"
echo "123456789abcdefghijklmnopqrstuv" >/tmp/t32
echo -n "▶08◀ ▶08◀"
cat /tmp/t32 /tmp/t32 /tmp/t32 /tmp/t32 /tmp/t32 /tmp/t32 /tmp/t32 /tmp/t32 >/tmp/t256
echo -n "▶08◀ ▶08◀"
cat /tmp/t256 /tmp/t256 /tmp/t256 /tmp/t256 /tmp/t256 /tmp/t256 /tmp/t256 /tmp/t256 >/tmp/t2048
echo -n "▶08◀ ▶08◀"
cat /tmp/t2048 /tmp/t2048 /tmp/t2048 /tmp/t2048 /tmp/t2048 >/tmp/t10k
echo -n "▶08◀ ▶08◀"
cat /tmp/t10k /tmp/t10k /tmp/t10k /tmp/t10k /tmp/t10k /tmp/t10k /tmp/t10k /tmp/t10k /tmp/t10k /tmp/t10k >/tmp/100k
rm /tmp/t32 /tmp/t256 /tmp/t2048 /tmp/t10k
echo -n "▶08◀ ▶08◀"
cat /tmp/100k /tmp/100k /tmp/100k >/tmp/300ka
echo -n "▶08◀ ▶08◀"
cat /tmp/100k /tmp/100k /tmp/100k >/tmp/300kb
rm /tmp/100k
echo -n "▶08◀ ▶08◀"
echo -n "sammenligning: "
cmp -l /tmp/300ka /tmp/300kb >/tmp/300kdiff
if test -s /tmp/300kdiff
then
	echo "
▶07◀▶1b◀1▶1b◀4SAMMENLIGNINGS-FEJL UNDER FLOPPYTEST▶1b◀0▶07◀"
else
	echo "▶08◀▶08◀ ok."
fi
umount /dev/flop >/dev/null
sync
sync
echo -n "filsystemcheck: "
fsck -p /dev/flop
echo "flopfill slut."