home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0043_AMI BIOS Turbo Mode.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1995-02-28  |  541 b   |  28 lines
  1.  
  2. (* Program name, SPEED. Toggles the fast/slow turbo mode on most
  3. 386/486 mother boards with an AMI BIOS. *)
  4.  
  5. uses DOS;
  6. var
  7. reg : registers;
  8.  
  9. begin
  10.  
  11. if ParamCount = 0 then
  12.    writeln(#13,#10,'"SPEED +" toggles turbo to fast, "SPEED -" toggles turbo to slow ');
  13.  
  14. if ParamStr(1) = '+' then
  15. begin
  16.  reg.ah := $F0;
  17.  reg.al := $02;
  18.  intr($16,reg);
  19. end;              {Set turbo mode to fast}
  20.  
  21. if ParamStr(1) = '-'then
  22. begin
  23.  reg.ah := $F0;
  24.  reg.al := $01;
  25.  intr($16,reg);
  26. end;              {Set turbo node to slow}
  27. end.
  28.