Merlin’s Delphi Forge

AMD K6-2, K6-III and Athlon support 3DNow! instructions. This instruction set improves 3D and multimedia performance. But before you use these in your program you may want to check if the CPU supports 3DNow! This is the code to use:

{$ifndef ver80} // Because of 32 bit register use
function Get3DNowSupport: Boolean; assembler;
[...]

Sometimes you may want to find out if the CPU supports the CPUID instruction (late 486+ or Pentium+) to find out the CPU type. Well, this code should be what you need:
<pre>
<i>{$ifndef ver80} // Because of 32 bit register use</i>
<b>function</b> GetCpuIDSupport: Boolean; <b>assembler</b>;
<b>asm</b>
push ebx
mov @Result, True
pushfd [...]