Category : Utilities for DOS and Windows Machines
Archive   : TSPEED.ZIP
Filename : TSPEED.PAS

 
Output of file : TSPEED.PAS contained in archive : TSPEED.ZIP
Program Tspeed;
{
Written and sumbitted by
Henry A. Groover
Compuserve 70741,417
}
Uses dos;

Var
A:byte;
R:registers;
Argv:String;
I:integer;


begin
R. AX := $0100;
R. CX := $0607;
A := Port [$61];
If ParamCount = 0 then begin
Write ('Switching from ');
If (A and $04) = 0 then begin
Writeln ('slow to fast mode.');
R. CX := $0007
end else
Writeln ('fast to slow mode.');
Port [$61] := A xor $0C;
end else begin
Argv := ParamSTR (1);
For I := 1 to Length (Argv) do
Argv [i] := Upcase (Argv [i]);
If (argv = 'FAST') or (Argv = 'HIGH') or (argv = 'HI') then begin
R. CX := $0007;
If (A and $04) = 0 then begin
Writeln ('Switching to fast mode.');
Port [$61] := A xor $0C;
end else
Writeln ('Speed was already fast - no changes made.')
end else if argv = 'SLOW' then begin
If (A and $04) <> 0 then begin
Writeln ('Switching to slow mode.');
Port [$61] := A xor $0C;
end else
Writeln ('Speed was already slow - no changes made.')
end else begin
Writeln ('TSPEED - invalid argument.');
Writeln ('TSPEED toggles CPU speed on a TURBO XT board');
Writeln (' equipped with an 8088-2.');
Writeln ('TSPEED FAST forces a change to 8mhz.');
Writeln ('TSPEED SLOW forces a change to 4.77mhz.');
Write ('Your current speed is ');
If (A and $04) = 0 then Writeln ('slow (4.77mhz)')
else Writeln ('fast (8mhz)')
end;
end;
Intr ($10, R);
end.


  3 Responses to “Category : Utilities for DOS and Windows Machines
Archive   : TSPEED.ZIP
Filename : TSPEED.PAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/