[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]

    (* Program name, SPEED. Toggles the fast/slow turbo mode on most
    386/486 mother boards with an AMI BIOS. *)

    uses DOS;
    var
    reg : registers;

    begin

    if ParamCount = 0 then
       writeln(#13,#10,'"SPEED +" toggles turbo to fast, "SPEED -" toggles turbo to slow ');

    if ParamStr(1) = '+' then
    begin
     reg.ah := $F0;
     reg.al := $02;
     intr($16,reg);
    end;              {Set turbo mode to fast}

    if ParamStr(1) = '-'then
    begin
     reg.ah := $F0;
     reg.al := $01;
     intr($16,reg);
    end;              {Set turbo node to slow}
    end.

[Back to HARDWARE SWAG index] [Back to Main SWAG index] [Original]