Program Detect486;

{Detect an 80486 CPU}
{Test for 386 first!}

function is_486: boolean;
assembler;
asm
   pushfl
   pop  eax
   mov  ecx,eax
   xor  eax,$200000
   push eax
   popfl
   pushfl
   pop  eax
   xor  ecx,eax
   setz al
   pushl ecx
   popfl
end ['eax','ecx'];
{Returning al=0 means FALSE}

begin
   writeln('486: ',is_486);
end.