// This is a 32-bit program for Microsoft Windows operating system. There is no Apple, phone, or Linux version. It will run on Windows ME, NT, 2000, XP, Vista, Windows 7, 8, 10, and Windows 11. It also runs fine on 64-bit systems.

// This program is Copyright © 2021 Michael Robinson. All Rights Reserved. Use this program at your own risk. No guarantees or warranties of any sort are claimed, made, or provided. You may give these files away free, but you may not sell them. Modification of the executable files is prohibited.

// This program uploaded Oct 27, 2021.

// https://elegantpie.com

// elegantpie@hotmail.com

Program showcpu;

{$APPTYPE CONSOLE}

Function GetCpu : String;
Var
  A2, B2, C2, D2 : Array[0..3] of Char;
  A3, B3, C3, D3 : Array[0..3] of Char;
  A4, B4, C4, D4 : Array[0..3] of Char;
Begin
  Result := '';

  Asm
    push ebx

    mov eax, $80000002
    cpuid
    mov A2, eax
    mov B2, ebx
    mov C2, ecx
    mov D2, edx

    mov eax, $80000003
    cpuid
    mov A3, eax
    mov B3, ebx
    mov C3, ecx
    mov D3, edx

    mov eax, $80000004
    cpuid
    mov A4, eax
    mov B4, ebx
    mov C4, ecx
    mov D4, edx

    pop ebx
  End;

  Result :=
  A2 + B2 + C2 + D2 +
  A3 + B3 + C3 + D3 +
  A4 + B4 + C4 + D4;
End;

Var
  S : String = '';

Begin
  WriteLn;
  WriteLn(GetCpu);
  ReadLn(S);
END.