Article #15035: Kaypro - Ever-spinning disk drive

 Technical Information Database

TI35D.txt - Kaypro - Ever-spinning disk drive

Category   :Turbo Pascal
Platform   :DOS
Product    :

Description:
Place this procedure into your program and call it when you would
like your disk drives to stop spinning.


{ This works for Kaypro 2, 4, 1984 or later }
procedure MotorOff;
const
  system = $14;                              {Kaypro System port}

begin
  port[system] :=port[system] and $EF;    {Turn off motor}
end;


{ This works for the original Kaypro 2 and 4 }

procedure MotorOff;
const
  system = $1C;
begin
  port[system] := port[system] or $140;
end;


Reference:
 

3/30/99 3:14:33 PM
 

Last Modified: 01-SEP-99