There is this http://www.xess.com/ho03000.html
the first example is for a compact flash/harddisc interface.Haveing looked at their code before it is slightly wonky and based on their own card design but its easy enough to modify.There is another example on www.opencores.org as well