Program DetectCyrix;

{Detect a Cyrix CPU}
{Use before enabling CPUID}

function detect_cyrix: boolean;
assembler;
asm
   xor  ax,ax
   sahf
   mov  ax,$5
   mov  bx,$2
   div  bl
   lahf
   cmp  ah,$2
   jne  @nocyrix
   mov  al,$1
   jmp  @tend
   @nocyrix:
   xor  al,al
   @tend:
end ['eax','ecx'];
{Returning al=0 means FALSE}

begin
   writeln('Cyrix: ',is_cyrix);
end.