ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/PASCAL/MISCTI10.ZIP/TI115.ASC

Text File | 1988-04-15 | 644 b | 33 lines

PRODUCT : TURBO PASCAL     NUMBER : 115
VERSION : ALL
     OS : CP/M-80
   DATE : April 7, 1986

  TITLE : KAYPRO - EVER-SPINNING DISK DRIVE

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;