Category : Pascal Source Code
Archive   : PASS_ALL.ZIP
Filename : TI115.ASC

 
Output of file : TI115.ASC contained in archive : PASS_ALL.ZIP









PRODUCT : TURBO PASCAL NUMBER : 115
VERSION : ALL
OS : CP/M-80
DATE : April 7, 1986 PAGE : 1/1
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;