[comp.sys.ibm.pc] Wanted: Software to park disk drive head on XT

bob@acornrc.UUCP (Bob Weissman) (05/08/88)

Does anyone have software to park the drive head on a Seagate ST-238R
disk drive?

-- 
Bob Weissman
Internet:	bob@acornrc.uucp
UUCP:		...!{ ames | decwrl | oliveb | pyramid }!acornrc!bob
Arpanet:	bob%acornrc.uucp@ames.arc.nasa.gov

bill@ssbn.WLK.COM (Bill Kennedy) (05/11/88)

In article <775@acornrc.UUCP> bob@acornrc.UUCP (Bob Weissman) writes:
>Does anyone have software to park the drive head on a Seagate ST-238R
>disk drive?

This one will park anything.  It asks the controller for the number of
drives, then for each drive, the maximum cylinder, and seeks one beyond
that.  Not trying to make it pretty, but to be brief, type it in with
debug and save it.

	mov	ah,08
	mov	dl,80h
	int	13h	;Get # of drives
	jb	error	;Couldn't do it, exit gracefully
	cmp	dl,0	;Maybe no drives?
	jz	error
	mov	count,dl	;Choose your own address
	mov	drive,80h	;ditto, 80h is zero
park:	mov	ah,8
	mov	dl,drive
	int	13	;Get max cylinder for this drive
	xchg	cl,ch
	and	ch,0c0h
	rol	ch,1
	rol	ch,1
	inc	cx
	xchg	cl,ch
	ror	cl,1
	ror	cl,1
	add	cl,1
	mov	ah,0c
	mov	dl,drive
	mov	dh,0
	int	13
	inc	drive
	dec	count
	jnz	park
	cli		;Disable interrupts
	jmp	$	;Replace $ with IP
You should probably set up a stack, and you should provide some graceful
exit if there aren't any drives or the controller can't talk.  This was
intended more as an example rather than a recipe.  The best part is that
it makes no assumptions about your drive(s) other than what the controller
already knows, so you don't need a special park for different ones.
-- 
Bill Kennedy  usenet      {rutgers,ihnp4!killer,cbosgd}!ssbn!bill
              internet    bill@ssbn.WLK.COM

patrick@crcmar.crc.uucp (Andrew Patrick) (05/13/88)

In article <775@acornrc.UUCP>, bob@acornrc.UUCP (Bob Weissman) writes:
> Does anyone have software to park the drive head on a Seagate ST-238R
> disk drive?

I have posted 2 utilities to comp.binaries.ibm.pc.  PARKIT will park
the disk head just before you turn the machine off.  This is useful if
you will be moving it around.  TIMEPARK will park the disk-head if it
has been idle for some (user specified) period of time.

Both of these work fine on my AT but I don't know how they will do on
an XT.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Andrew Patrick, Ph.D.
Communications Research Center, Ottawa, CANADA     (613) 990-4675

SMARTMAIL: patrick@crcmar.uucp  UUCP: ...utzoo!dciem!nrcaer!crcmar!patrick
BITNET: patrick%crcmar@UTORGPU  ARPA: dgbt@ncs-dre.arpa 

              "...of all the gin joints in all the world..."
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Henry_A_Schade@cup.portal.com (05/16/88)

Timepark will work on XT's...

charlie@hpldola.HP.COM (Charlie Duke) (05/23/88)

> I have posted 2 utilities to comp.binaries.ibm.pc.  PARKIT will park
> the disk head just before you turn the machine off.  This is useful if
> you will be moving it around.  TIMEPARK will park the disk-head if it
> has been idle for some (user specified) period of time.
> 
> Both of these work fine on my AT but I don't know how they will do on
> an XT.

   Unless I've had a cerebral seizure, those postings never made it to our
system.  Could you be so kind as to repost?  Thanks in advance.

Charlie.

patrick@crcmar.crc.uucp (Andrew Patrick) (06/03/88)

In article <11250025@hpldola.HP.COM>, charlie@hpldola.HP.COM (Charlie
Duke) writes:

>> I have posted 2 utilities to comp.binaries.ibm.pc.  PARKIT will park
>> the disk head just before you turn the machine off.  This is useful if
>> you will be moving it around.  TIMEPARK will park the disk-head if it
>> has been idle for some (user specified) period of time.
>> 
>> Both of these work fine on my AT but I don't know how they will do on
>> an XT.
> 
>    Unless I've had a cerebral seizure, those postings never made it to our
> system.  Could you be so kind as to repost?  Thanks in advance.

These binaries were posted in comp.binaries.ibm.pc on May 23rd
<3176@bsu-cs.UUCP>.  I have e-mailed them to charlie@hpldola.HP.COM,
and others who missed them can contact me by e-mail.


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Andrew Patrick, Ph.D.
Communications Research Center, Ottawa, CANADA     (613) 990-4675

SMARTMAIL: patrick@crcmar.uucp  UUCP: ...utzoo!dciem!nrcaer!crcmar!patrick
BITNET: patrick%crcmar@UTORGPU  ARPA: dgbt@ncs-dre.arpa 

            "Home of the world's first microwave airplane!"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~