Set_dor
Set_dor(fdc, ~((MOTEN(unit))|DRVSEL|RESET), 0);
Set_dor(fdc, RESET|DRVSEL, 1);
Set_dor(fdc, DRVSEL, 0);
Set_dor(fdc, RESET, 1);
Set_dor(fdc, MOTEN(unit), 0);
Set_dor(fdc, (MOTEN(unit)), 1);
Set_dor(fdc, DMAGATE, 0);
Set_dor(fdc, DMAGATE|RESET, 1);
Set_dor(fdc, DRVSEL, !on);
Set_dor(fdc, DRVSEL, on);
Set_dor(fdc, MOTEN(unit), 1);
Set_dor(fdc, EJECT, 1);
Set_dor(fdc, EJECT, 0);
Set_dor(fdc, MOTEN(unit), 1);
Set_dor(fdc, EJECT_DMA, 1);
Set_dor(fdc, EJECT_DMA, 0);
Set_dor(fdc, MOTEN(unit), 1);
Set_dor(fdc, MEDIUM_DENSITY, is_medium);