#!/bin/sh
################################################################################
#	Hp64000ReadDisk	Simple script to read the raw data off HP64000
#			formatted 5.25inch disks.
#			T.Barnaby,	BEAM Ltd,	29/4/04
################################################################################
#

readDisk(){
	> $1
	tr=0
	len=`expr 16 "*" 256`
	while [ $tr -lt "40" ]
	do
		pcyl=`expr $tr "*" 2`
		echo "Read Head 0 Trk: $tr, Pcyl: $pcyl Len: $len"
		# Head,lcyl,lhead,secnr,secsiz,nrsect,gap,size2,pcyl
		fdrawcmd read 0  $tr 0 0 1  16 0x1b 0xff length=$len rate=1 need_seek track=$pcyl >> $1
		if [ $? != "0" ]
		then
			echo "Read Error" >&2
			exit 1
		fi

		echo "Read Head 1 Trk: $tr, Pcyl: $pcyl Len: $len"
		fdrawcmd read 4  $tr 1 0 1  16 0x1b 0xff length=$len rate=1 need_seek track=$pcyl >> $1
		if [ $? != "0" ]
		then
			echo "Read Error" >&2
			exit 1
		fi
#		sleep 1;
		tr=`expr $tr + 1`
	done
}

if [ "$#" != "1" ]
then
	echo "Usage: hp64000ReadDisk <filename>" >&2
	echo "	Reads a raw disk image from a HP64000 5.25 inch floppy using a 1.2M drive" >&2
	exit 1;
fi
	
readDisk $1
exit 0