require '_h2ph_pre.ph';

no warnings 'redefine';

require 'dev/ic/nec765reg.ph';
unless(defined(&fdout)) {
    sub fdout () {	2;}
}
unless(defined(&FDO_FDSEL)) {
    sub FDO_FDSEL () {	0x3;}
}
unless(defined(&FDO_FRST)) {
    sub FDO_FRST () {	0x4;}
}
unless(defined(&FDO_FDMAEN)) {
    sub FDO_FDMAEN () {	0x8;}
}
unless(defined(&FDO_MOEN)) {
    sub FDO_MOEN {
	my($n) = @_;
	eval q(((1<< $n) * 0x10));
    }
}
unless(defined(&fdsts)) {
    sub fdsts () {	4;}
}
unless(defined(&fddata)) {
    sub fddata () {	5;}
}
unless(defined(&FDCTL_OFFSET)) {
    sub FDCTL_OFFSET () {	7;}
}
unless(defined(&fdctl)) {
    sub fdctl () {	0;}
}
unless(defined(&FDC_500KBPS)) {
    sub FDC_500KBPS () {	0x;}
}
unless(defined(&FDC_300KBPS)) {
    sub FDC_300KBPS () {	0x1;}
}
unless(defined(&FDC_250KBPS)) {
    sub FDC_250KBPS () {	0x2;}
}
unless(defined(&FDC_125KBPS)) {
    sub FDC_125KBPS () {	0x3;}
}
unless(defined(&fdin)) {
    sub fdin () {	0;}
}
unless(defined(&FDI_DCHG)) {
    sub FDI_DCHG () {	0x80;}
}
unless(defined(&FDC_NPORT)) {
    sub FDC_NPORT () {	6;}
}
unless(defined(&FDCTL_NPORT)) {
    sub FDCTL_NPORT () {	1;}
}
unless(defined(&FDC_MAXIOSIZE)) {
    sub FDC_MAXIOSIZE () {	 &NBPG;}
}
unless(defined(&FD_BSIZE)) {
    sub FD_BSIZE {
	my($fd) = @_;
	eval q((128<<  ($fd->{sc_type}->{secsize})));
    }
}
unless(defined(&FDUNIT)) {
    sub FDUNIT {
	my($dev) = @_;
	eval q((($dev & 0x80) >> 7));
    }
}
unless(defined(&FDTYPE)) {
    sub FDTYPE {
	my($dev) = @_;
	eval q((( &minor($dev) & 0x70) >> 4));
    }
}
unless(defined(&FDPART)) {
    sub FDPART {
	my($dev) = @_;
	eval q(( &minor($dev) & 0xf));
    }
}
1;
