Program Disable_CPU_serial;

{Program to disable serial numbers
on p3 to allow CPU signatures}

Begin
   {Disable CPU serial number}
   Asm
      {ecx is register number}
      mov ecx,$119
      rdmsr {read register}
      {switch off the serial bit}
      and eax,$FFDFFFFF
      wrmsr {write register}
      {These registers changed}
   End ['eax','ecx','edx'];
   {Display results}
   writeln('CPU Serial disabled');
End;