Aktuelle Zeit: 19.01.2021 17:23

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 37 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4  Nächste
Autor Nachricht
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 04.03.2015 11:58 
Offline
Benutzeravatar

Registriert: 12.06.2005 11:15
Wohnort: Germany
Autonomus hat geschrieben:
Ich selber versuche mich auch schon mit dem Thema ASM, auseinander zu setzen, jedoch ohne Erfolg.

Schau mal hier: http://www.purebasic.fr/english/viewtop ... 35&t=47303
Jede menge Links zu interessanten Infos.

Ansonsten am besten ein gutes Buch kaufen. Es gibt halt viel Basiskram den man erstmal verstehen muss.
Ich hab mit diesem Buch angefangen. Ist sehr günstig und gibt nen guten Einstieg. Wobei man viel von dem 16Bit Kram heutzutage getrost überspringen kann.

_________________
Zu mir kommen behinderte Delphine um mit mir zu schwimmen.

Wir fordern mehr Aufmerksamkeit für umfallende Reissäcke! Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 04.03.2015 21:55 
Offline
Benutzeravatar

Registriert: 11.11.2004 16:13
Wohnort: Magdeburg
Auf Wunsch eines einzelnen Herrn habe ich obigen Code erweitert: Test auf PAE mit Angabe der max. Adress-Bereiches (getestet auf AMD Bulldozer und Intel Haswell). Macht den Code nicht unbedingt "schöner"; na, mal sehen. Dabei angepasst Test auf 64-Bit-Architektur.
Der Code ist natürlich frei.
@Nic: x86/x64 sollte nicht das Thema sein; alle relevanten Infos stehen ja im Array CPU_Info. Das Drumherum ist "Spielerei", aber ich als Linux- und Mac-Niete muss da passen. Ich könnte das Ganze komplett in Assembler schreiben, müsste dann aber doch wieder auf die Windows-API zurückgreifen...
Gruß
Helle

P.S.: PAE: Bulldozer=256 TByte; Haswell=512 GByte


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 29.12.2016 11:40 
Offline
Benutzeravatar

Registriert: 22.12.2016 12:49
Wohnort: :D_üsseldorf-Wersten
Hallo PB-Universum,

anbei eine kleine Ergänzungszeile zu HellesCPUInfo, die die Ascii CPU-Namen aus chinesichen Unicode Zeichen wieder in lateinische Buchstaben verwandelt.
Bitte nach Zeile 511 bzw. bei Kommando SG1 direkt nach Zeile 460 einfügen:

CompilerIf #PB_Compiler_Unicode : ProzessorString$ = PeekS(@ProzessorString$,-1,#PB_Ascii) : CompilerEndIf

_________________
Bitte stelle Deine Fragen, denn den Erkenntnisapparat einschalten entscheidet über das einzig bekannte Leben im Universum.

Jürgen Kulow Wersten :D_üsseldorf NRW D Europa Erde Sonnensystem Lokale_Flocke Lokale_Blase Orion-Arm
Milchstraße Lokale_Gruppe Virgo-Superhaufen Laniakea Sichtbares_Universum


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 24.10.2020 18:55 
Offline

Registriert: 27.08.2012 21:08
Hallo

Das Beispiel zum Auslesen der CPU-Daten funktioniert sehr gut.
Es geht um die Funktion VT-X / SVM.
Im Bios gibt es die Möglichkeit ein und aus zu schalten.

Wie kann ich prüfen ob bei Intel VT-X und bei AMD SVM enabled ist ?

Grüße

Lite


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 24.10.2020 23:27 
Offline
Benutzeravatar

Registriert: 11.11.2004 16:13
Wohnort: Magdeburg
Ich werde in den nächsten Tagen den Code aktualisieren und dann hier zum besten geben (auch weitestgehend Verzicht auf MS-Windows spezifische Dinge :D ).
Intels VT-X ist ja VMX und ob im BIOS aktiviert (wenn CPU-möglich) lässt sich mit MSR $3A auslesen. Und da ist das Problem der Rechtefrage in Windows. Mir schwebt vor den User auf Administrator zu testen und wenn ja dann mit WinRing0 das MSR auslesen.
AMD (SVM) muss ich dann mal schauen (habe z.Z. nur Intel am laufen).

Gruß
Helle


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 25.10.2020 08:15 
Offline

Registriert: 27.08.2012 21:08
@Helle

schon mal vorab Danke für die Bemühungen. Zum Testen hab ich einige AMD und Intel PC rum stehen.

Lite


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 26.10.2020 12:06 
Offline
Benutzeravatar

Registriert: 11.11.2004 16:13
Wohnort: Magdeburg
Habe den Code etwas überarbeitet. Bitte die Hinweise bei Ein/Aus von VMX(VT-x)/SVM beachten! Ich habe nunmal eine Vorliebe für WinRing0; habe es auch als Windows-Service installiert. Kann aber jeder nach seinem Gusto ändern.
Code:
;- Test-Version! Helle 09.11.2020
;- PureBasic 5.72 (x64), Test with Windows_7 64-bit and Windows_10 64-bit

Global PAE.q
Global BackColor.l = $CCFFFF
Global PAEBits.l
Global SichEAX.l             ;for CPUID
Global SichEBX.l
Global SichECX.l
Global SichEDX.l
Global MaxID.l
Global MaxIDExt.l
Global IsAMD.l
Global IsIntel.l
Global CLS.l                 ;Cache Line Size
Global OSXY.l
Global IsVMX.l
Global IsSVM.l

Global Bit0.l  = $1          ;for SSE3, XSAVEOPT, CLZERO
Global Bit1.l  = $2          ;for PCLMULQDQ
Global Bit2.l  = $4          ;for SVM
Global Bit3.l  = $8          ;for BMI1, MONITOR
Global Bit4.l  = $10         ;for HLE, RDTSC
Global Bit5.l  = $20         ;for AVX2, LZCNT, MSR, VMX 
Global Bit6.l  = $40         ;for SMX, SSE4A, PAE
Global Bit7.l  = $80         ;for AMDMISAL16
Global Bit8.l  = $100        ;for 3DNOWPREFETCH, BMI2, CMPXCHG8B, Invariant TSC
Global Bit9.l  = $200        ;for SSSE3, VAES
Global Bit10.l = $400        ;for INVPCID, VPCLMULQDQ
Global Bit11.l = $800        ;for RTM, SEP, XOP
Global Bit12.l = $1000       ;for FMA
Global Bit13.l = $2000       ;for CMPXCHG16B
Global Bit15.l = $8000       ;for (F)CMOVcc, LWP
Global Bit16.l = $10000      ;for FMA4, AVX512F
Global Bit18.l = $40000      ;for RDSEED
Global Bit19.l = $80000      ;for SSE4.1, CLFSH, ADX
Global Bit20.l = $100000     ;for SSE4.2, SMAP
Global Bit21.l = $200000     ;for TBM
Global Bit22.l = $400000     ;for EMMX, MOVBE
Global Bit23.l = $800000     ;for MMX, POPCNT, CLFLUSHOPT
Global Bit24.l = $1000000    ;for FXSR
Global Bit25.l = $2000000    ;for AES, SSE
Global Bit26.l = $4000000    ;for SSE2, XSAVE
Global Bit27.l = $8000000    ;for OSXSAVE, RDTSCP
Global Bit28.l = $10000000   ;for AVX
Global Bit29.l = $20000000   ;for ARCH64, F16C, SHA
Global Bit30.l = $40000000   ;for Extended 3DNow!, RDRAND
Global Bit31.l = $80000000   ;for 3DNow!

Enumeration CPU_Features
  #DNow            ;0
  #EXT3DNOW
  #DNOWPREF
  #ADX
  #AES
  #AMDMISAL16
  #ARCH64
  #AVX
  #AVX2
  #AVX512F
  #BMI1            ;10
  #BMI2
  #CLFSH
  #CLZERO
  #CMOV
  #CX8
  #CX16
  #F16C
  #FMA
  #FMA4
  #FXSR            ;20
  #HLE
  #INVPCID
  #LWP
  #LZCNT
  #MMX
  #EMMX
  #MONITOR
  #MOVBE
  #MSR
  #OSXSAVE         ;30
  #PAE
  #PCLMULQDQ
  #POPCNT
  #RDRAND
  #RDSEED
  #RDTSC
  #RDTSCP
  #RTM
  #SEP
  #SHA             ;40
  #SMAP
  #SMX
  #SSE
  #SSE2
  #SSE3
  #SSSE3
  #SSE41
  #SSE42
  #SSE4A
  #SVM             ;50
  #TBM
  #VMX
  #XOP
  #XSAVE
  #XSAVEOPT
EndEnumeration

Structure CPU
  Feature.s
  Info.s
  Pixel.l
  Color.l
EndStructure
Global Dim CPU_Info.CPU(#PB_Compiler_EnumerationValue - 1)
 
CPU_Info(#DNow)\Feature = "3DNOW!" : CPU_Info(#DNow)\Info = "AMD only" : CPU_Info(#DNow)\Pixel = 50
CPU_Info(#EXT3DNOW)\Feature = "EXT3DNOW!" : CPU_Info(#EXT3DNOW)\Info = "PF2IW, PFNACC, PFPNACC, PI2FW, PSWAPD / AMD only" : CPU_Info(#EXT3DNOW)\Pixel = 71
CPU_Info(#DNOWPREF)\Feature = "3DNOWPREF" : CPU_Info(#DNOWPREF)\Info = "3DNOWPREFETCH / AMD only" : CPU_Info(#DNOWPREF)\Pixel = 74
CPU_Info(#ADX)\Feature = "ADX" : CPU_Info(#ADX)\Info = "ADCX, ADOX / Intel and AMD" : CPU_Info(#ADX)\Pixel = 26
CPU_Info(#AES)\Feature = "AES" : CPU_Info(#AES)\Info = "Intel and AMD" : CPU_Info(#AES)\Pixel = 25
CPU_Info(#AMDMISAL16)\Feature = "AMDMISAL16" : CPU_Info(#AMDMISAL16)\Info = "Misaligned 16-Byte Memory Access / AMD only" : CPU_Info(#AMDMISAL16)\Pixel = 77
CPU_Info(#ARCH64)\Feature = "ARCH64" : CPU_Info(#ARCH64)\Info = "64-Bit-Architecture / AMD: Long Mode / Intel: Intel 64" : CPU_Info(#ARCH64)\Pixel = 48
CPU_Info(#AVX)\Feature = "AVX" : CPU_Info(#AVX)\Info = "Intel and AMD" : CPU_Info(#AVX)\Pixel = 25
CPU_Info(#AVX2)\Feature = "AVX2" : CPU_Info(#AVX2)\Info = "Intel and AMD" : CPU_Info(#AVX2)\Pixel = 32
CPU_Info(#AVX512F)\Feature = "AVX512F" : CPU_Info(#AVX512F)\Info = "AVX-512 Foundation Instructions (Base for other AVX512) / Intel only" : CPU_Info(#AVX512F)\Pixel = 53
CPU_Info(#BMI1)\Feature = "BMI1" : CPU_Info(#BMI1)\Info = "Bit Manipulation Instructions 1 / ANDN, BEXTR, BLSI, BLSMSK, BLSR, TZCNT / Intel and AMD" : CPU_Info(#BMI1)\Pixel = 30
CPU_Info(#BMI2)\Feature = "BMI2" : CPU_Info(#BMI2)\Info = "Bit Manipulation Instructions 2 / BZHI, MULX, PDEP, PEXT, RORX, SARX, SHLX, SHRX / Intel and AMD" : CPU_Info(#BMI2)\Pixel = 30
CPU_Info(#CLFSH)\Feature = "CLFSH" : CPU_Info(#CLFSH)\Info = "Flush Cache Line / Intel and AMD" : CPU_Info(#CLFSH)\Pixel = 39
CPU_Info(#CLZERO)\Feature = "CLZERO" : CPU_Info(#CLZERO)\Info = "AMD only" : CPU_Info(#CLZERO)\Pixel = 48
CPU_Info(#CMOV)\Feature = "(F)CMOV" : CPU_Info(#CMOV)\Info = "CMOVcc, FCMOVcc / Intel and AMD" : CPU_Info(#CMOV)\Pixel = 54
CPU_Info(#CX8)\Feature = "CX8" : CPU_Info(#CX8)\Info = "CMPXCHG8B / Intel and AMD" : CPU_Info(#CX8)\Pixel = 25
CPU_Info(#CX16)\Feature = "CX16" : CPU_Info(#CX16)\Info = "CMPXCHG16B / Intel and AMD" : CPU_Info(#CX16)\Pixel = 32
CPU_Info(#F16C)\Feature = "F16C" : CPU_Info(#F16C)\Info = "16-Bit Floating-Point Conversion / Intel and AMD" : CPU_Info(#F16C)\Pixel = 32
CPU_Info(#FMA)\Feature = "FMA" : CPU_Info(#FMA)\Info = "Fused Multiply Add (3 Operands) / Intel and AMD" : CPU_Info(#FMA)\Pixel = 28
CPU_Info(#FMA4)\Feature = "FMA4" : CPU_Info(#FMA4)\Info = "Fused Multiply Add (4 Operands) / AMD only" : CPU_Info(#FMA4)\Pixel = 36
CPU_Info(#FXSR)\Feature = "FXSR" : CPU_Info(#FXSR)\Info = "FXSAVE, FXRSTOR / Intel and AMD" : CPU_Info(#FXSR)\Pixel = 32
CPU_Info(#HLE)\Feature = "HLE" : CPU_Info(#HLE)\Info = "Hardware Lock Elision / Part of TSX (Transactional Synchronization Extensions) / XACQUIRE, XRELEASE, XTEST / Intel only" : CPU_Info(#HLE)\Pixel = 24
CPU_Info(#INVPCID)\Feature = "INVPCID" : CPU_Info(#INVPCID)\Info = "Intel and AMD" : CPU_Info(#INVPCID)\Pixel = 48
CPU_Info(#LWP)\Feature = "LWP" : CPU_Info(#LWP)\Info = "LightWeight Profiling / AMD only" : CPU_Info(#LWP)\Pixel = 27
CPU_Info(#LZCNT)\Feature = "LZCNT" : CPU_Info(#LZCNT)\Info = "Intel and AMD (ABM)" : CPU_Info(#LZCNT)\Pixel = 39
CPU_Info(#MMX)\Feature = "MMX" : CPU_Info(#MMX)\Info = "Multi Media Extension / Intel and AMD" : CPU_Info(#MMX)\Pixel = 31
CPU_Info(#EMMX)\Feature = "(E)MMX" : CPU_Info(#EMMX)\Info = "AMD Extensions to MMX / AMD only" : CPU_Info(#EMMX)\Pixel = 47
CPU_Info(#MONITOR)\Feature = "MONITOR" : CPU_Info(#MONITOR)\Info = "MONITOR, MWAIT / Intel and AMD" : CPU_Info(#MONITOR)\Pixel = 56
CPU_Info(#MOVBE)\Feature = "MOVBE" : CPU_Info(#MOVBE)\Info = "Intel and AMD" : CPU_Info(#MOVBE)\Pixel = 43
CPU_Info(#MSR)\Feature = "MSR" : CPU_Info(#MSR)\Info = "RDMSR, WRMSR / Intel and AMD" : CPU_Info(#MSR)\Pixel = 26
CPU_Info(#OSXSAVE)\Feature = "OSXSAVE" : CPU_Info(#OSXSAVE)\Info = "OS Support for Processor extended State Management using XSAVE/XRSTOR / Is not a CPU-Feature; is a copy of the CR4-OSXSAVE-Bit / Intel and AMD" : CPU_Info(#OSXSAVE)\Pixel = 53
CPU_Info(#PAE)\Feature = "PAE" : CPU_Info(#PAE)\Info = "Physical Address Extensions / Intel and AMD" : CPU_Info(#PAE)\Pixel = 24
CPU_Info(#PCLMULQDQ)\Feature = "PCLMULQDQ" : CPU_Info(#PCLMULQDQ)\Info = "Carryless Multiplication / Intel and AMD" : CPU_Info(#PCLMULQDQ)\Pixel = 76
CPU_Info(#POPCNT)\Feature = "POPCNT" : CPU_Info(#POPCNT)\Info = "Intel and AMD" : CPU_Info(#POPCNT)\Pixel = 49
CPU_Info(#RDRAND)\Feature = "RDRAND" : CPU_Info(#RDRAND)\Info = "Intel and AMD" : CPU_Info(#RDRAND)\Pixel = 51
CPU_Info(#RDSEED)\Feature = "RDSEED" : CPU_Info(#RDSEED)\Info = "Intel and AMD" : CPU_Info(#RDSEED)\Pixel = 48
CPU_Info(#RDTSC)\Feature = "RDTSC" : CPU_Info(#RDTSC)\Info = "Intel and AMD" : CPU_Info(#RDTSC)\Pixel = 39
CPU_Info(#RDTSCP)\Feature = "RDTSCP" : CPU_Info(#RDTSCP)\Info = "For Multi-Processor-Boards / Intel and AMD" : CPU_Info(#RDTSCP)\Pixel = 47
CPU_Info(#RTM)\Feature = "RTM" : CPU_Info(#RTM)\Info = "Restricted Transactional Memory / Part of TSX (Transactional Synchronization Extensions) / XBEGIN, XEND, XABORT, XTEST / Intel only" : CPU_Info(#RTM)\Pixel = 27
CPU_Info(#SEP)\Feature = "SEP" : CPU_Info(#SEP)\Info = "SYSENTER, SYSEXIT / Intel and AMD" : CPU_Info(#SEP)\Pixel = 25
CPU_Info(#SHA)\Feature = "SHA" : CPU_Info(#SHA)\Info = "Intel and AMD" : CPU_Info(#SHA)\Pixel = 25
CPU_Info(#SMAP)\Feature = "SMAP" : CPU_Info(#SMAP)\Info = "Supervisor-Mode Access Prevention / CLAC, STAC / Intel and AMD" : CPU_Info(#SMAP)\Pixel = 35
CPU_Info(#SMX)\Feature = "SMX" : CPU_Info(#SMX)\Info = "Safer Mode Extensions / Intel only" : CPU_Info(#SMX)\Pixel = 27
CPU_Info(#SSE)\Feature = "SSE" : CPU_Info(#SSE)\Info = "Intel and AMD" : CPU_Info(#SSE)\Pixel = 23
CPU_Info(#SSE2)\Feature = "SSE2" : CPU_Info(#SSE2)\Info = "Intel and AMD" : CPU_Info(#SSE2)\Pixel = 31
CPU_Info(#SSE3)\Feature = "SSE3" : CPU_Info(#SSE3)\Info = "Intel and AMD" : CPU_Info(#SSE3)\Pixel = 31
CPU_Info(#SSSE3)\Feature = "SSSE3" : CPU_Info(#SSSE3)\Info = "Intel and AMD" : CPU_Info(#SSSE3)\Pixel = 37
CPU_Info(#SSE41)\Feature = "SSE4.1" : CPU_Info(#SSE41)\Info = "Intel and AMD" : CPU_Info(#SSE41)\Pixel = 42
CPU_Info(#SSE42)\Feature = "SSE4.2" : CPU_Info(#SSE42)\Info = "Intel and AMD" : CPU_Info(#SSE42)\Pixel = 43
CPU_Info(#SSE4A)\Feature = "SSE4A" : CPU_Info(#SSE4A)\Info = "EXTRQ, INSERTQ, MOVNTSD, MOVNTSS / AMD only" : CPU_Info(#SSE4A)\Pixel = 39
CPU_Info(#SVM)\Feature = "SVM" : CPU_Info(#SVM)\Info = "Secure Virtual Machine / AMD only" : CPU_Info(#SVM)\Pixel = 28
CPU_Info(#TBM)\Feature = "TBM" : CPU_Info(#TBM)\Info = "Trailing Bit Manipulation / AMD only" : CPU_Info(#TBM)\Pixel = 28
CPU_Info(#VMX)\Feature = "VMX" : CPU_Info(#VMX)\Info = "Virtual Machine Extensions (VT-x) / Intel only" : CPU_Info(#VMX)\Pixel = 28
CPU_Info(#XOP)\Feature = "XOP" : CPU_Info(#XOP)\Info = "Extended Operations / AMD only" : CPU_Info(#XOP)\Pixel = 26
CPU_Info(#XSAVE)\Feature = "XSAVE" : CPU_Info(#XSAVE)\Info = "XSAVE/XRSTOR, XSETBV/XGETBV (XCR0) / Intel and AMD" : CPU_Info(#XSAVE)\Pixel = 39
CPU_Info(#XSAVEOPT)\Feature = "XSAVEOPT" : CPU_Info(#XSAVEOPT)\Info = "Intel and AMD" : CPU_Info(#XSAVEOPT)\Pixel = 62

For i = 0 To #PB_Compiler_EnumerationValue - 1
  CPU_Info(i)\Color = $0000D0          ;for CPUID, Red as Start (= not available)
Next

Procedure CPUID_Info()

  ;Instruction/Group   CPUID (EAX)     Register    Bit    Intel    AMD   Remarks
  ;--------------------------------------------------------------------------------------------------------
  ;3DNOW!               80000001h         EDX      31       -       x
  ;3DNOWPREFETCH        80000001h         ECX       8       -       x   
  ;ADX                  00000007h         EBX      19       x       x    Input ECX=0, ADCX, ADOX
  ;AES                  00000001h         ECX      25       x       x
  ;VAES                 00000007h         ECX       9       x       x    Input ECX=0
  ;ARCH64               80000001h         EDX      29       x       x    AMD: Long Mode, Intel: Intel 64 Architecture
  ;AMDMISAL16           80000001h         ECX       7       -       x    Misaligned 16-Byte Memory Access
  ;AVX                  00000001h         ECX      28       x       x
  ;AVX2                 00000007h         EBX       5       x       x    Input ECX=0
  ;AVX512F              00000007h         EBX      16       x       -    Input ECX=0, offizieller Name (Intel): AVX-512 Foundation Instructions, Xeon SP, Xeon Phi
  ;AVX512DQ             00000007h         EBX      17       x       -    Input ECX=0, Dword and Quad Instructions, Xeon SP
  ;AVX512FIMA           00000007h         EBX      21       x       -    Input ECX=0, Fused Multiply Add of Integers using 52-Bit Precision, Cannon Lake
  ;AVX512PF             00000007h         EBX      26       x       -    Input ECX=0, Perfetch Instructions, Xeon SP, Xeon Phi
  ;AVX512ER             00000007h         EBX      27       x       -    Input ECX=0, Exponential and Reciprocal Instructions, Xeon Phi
  ;AVX512CD             00000007h         EBX      28       x       -    Input ECX=0, Conflict Detection Instructions, Xeon SP, Xeon Phi
  ;AVX512BW             00000007h         EBX      30       x       -    Input ECX=0, Byte and Word Instructions, Xeon SP
  ;AVX512VL             00000007h         EBX      31       x       -    Input ECX=0, Vector Length, Xeon SP
  ;AVX512VBMI           00000007h         ECX       1       x       -    Input ECX=0, Extended Bit Manipulation, Cannon Lake
  ;AVX512_VPOPCNTDQ     00000007h         ECX      14       x       -    Input ECX=0, POPCOUNT DWord, QWord, Knights Mill
  ;AVX512_4VNNIW        00000007h         EDX       2       x       -    Input ECX=0, Vector Neural Network Instructions, Knights Mill
  ;AVX512_4FMAPS        00000007h         EDX       3       x       -    Input ECX=0, Fused Multiply Accumulation Packed Single Precision, Knights Mill
  ;BMI1                 00000007h         EBX       3       x       x    Input ECX=0, Bit Manipulation Instructions 1
  ;BMI2                 00000007h         EBX       8       x       x    Input ECX=0, Bit Manipulation Instructions 2
  ;CLFSH                00000001h         EDX      19       x       x    CLFLUSH
  ;CLFLUSHOPT           00000007h         EBX      23       x       x    Input ECX=0
  ;CLZERO               80000008h         EBX       0       -       x
  ;(F)CMOV              00000001h         EDX      15       x       x    CMOVcc, FCMOVcc
  ;CMPXCHG8B            00000001h         EDX       8       x       x
  ;CMPXCHG16B           00000001h         ECX      13       x       x
  ;EMMX                 80000001h         EDX      22       -       x    AMD Extensions for MMX
  ;EXT3DNOW!            80000001h         EDX      30       -       x    Extensions for 3DNOW!
  ;F16C                 00000001h         ECX      29       x       x
  ;FMA                  00000001h         ECX      12       x       x    Fused Multiply Add (3 Operands)
  ;FMA4                 80000001h         ECX      16       -       x    Fused Multiply Add (4 Operands)
  ;FXSR                 00000001h         EDX      24       x       x    FXSAVE, FXRSTOR
  ;HLE                  00000007h         EBX       4       x       -    Input ECX=0, Hardware Lock Elision
  ;INVPCID              00000007h         EBX      10       x       x    Input ECX=0
  ;LWP                  80000001h         ECX      15       -       x    LightWeight Profiling
  ;LZCNT                80000001h         ECX       5       x       x
  ;MMX                  00000001h         EDX      23       x       x
  ;MONITOR              00000001h         ECX       3       x       x    MONITOR, MWAIT
  ;MOVBE                00000001h         ECX      22       x       x
  ;MSR                  00000001h         EDX       5       x       x    RDMSR, WRMSR 
  ;OSXSAVE              00000001h         ECX      27       x       x    Ist kein CPU-Feature; ist das kopierte OSXSAVE-Bit von CR4. Dient der Ermittlung, ob das OS XSAVE freigeschaltet hat
  ;PAE                  00000001h         EDX       6       x       x    Physical Address Extensions
  ;PCLMULQDQ            00000001h         ECX       1       x       x    Carryless Multiplication
  ;VPCLMULQDQ           00000007h         ECX      10       x       x    Input ECX=0
  ;POPCNT               00000001h         ECX      23       x       x
  ;RDRAND               00000001h         ECX      30       x       x    This bit can be reset by clearing MSR C001_1004[62] (AMD Family 15h/16h, getestet mit Ryzen 1800X, Intel mal testen)
  ;RDSEED               00000007h         EBX      18       x       x    Input ECX=0
  ;RDTSC                00000001h         EDX       4       x       x 
  ;RDTSCP               80000001h         EDX      27       x       x
  ;RTM                  00000007h         EBX      11       x       -    Input ECX=0
  ;SEP                  00000001h         EDX      11       x       x    SYSENTER, SYSEXIT
  ;SHA                  00000007h         EBX      29       x       x    Input ECX=0
  ;SMAP                 00000007h         EBX      20       x       x    Input ECX=0
  ;SMX                  00000001h         ECX       6       x       -    Safer Mode Extensions
  ;SSE                  00000001h         EDX      25       x       x
  ;SSE2                 00000001h         EDX      26       x       x
  ;SSE3                 00000001h         ECX       0       x       x 
  ;SSSE3                00000001h         ECX       9       x       x 
  ;SSE4.1               00000001h         ECX      19       x       x 
  ;SSE4.2               00000001h         ECX      20       x       x 
  ;SSE4A                80000001h         ECX       6       -       x
  ;SVM                  80000001h         ECX       2       -       x    Secure Virtual Machine
  ;TBM                  80000001h         ECX      21       -       x    Trailing Bit Manipulation
  ;VMX                  00000001h         ECX       5       x       -    Virtual Machine Extensions
  ;XOP                  80000001h         ECX      11       -       x    Extended Operations, war mal das reservierte Flag für AMDs SSE5 (bis ca.2009) 
  ;XSAVE                00000001h         ECX      26       x       x    XSAVE/XRSTOR, XSETBV/XGETBV, XCR0. Voraussetzung ist OSXSAVE
  ;XSAVEOPT             0000000Dh         EAX       0       x       x    Input ECX=1

    ;No check for CPUID! 
    !xor eax,eax
    !cpuid
    !mov [v_MaxID],eax       ;max. ID
    !cmp ecx,6C65746Eh       ;"letn", Part of Intel-String
   !jne @f
    !mov [v_IsIntel],1
   !jmp .CPUEnd
  !@@:
    !cmp ecx,444D4163h       ;"DMAc", Part of AMD-String
   !jne .CPUEnd
    !mov [v_IsAMD],1
  !.CPUEnd:

    If IsIntel = 0 And IsAMD = 0
      MessageRequester("Error!", "This is not an Intel- or AMD-CPU!");, #PB_MessageRequester_Error)
      End
    EndIf

    !mov eax,80000000h       ;Check for max. Extended Level, Intel and AMD
    !cpuid
    !mov [v_MaxIDExt],eax    ;max. ExtID, 8000000xh

    !mov eax,1h              ;for 1 no Test for MaxID         
    !cpuid
    !mov [v_SichEBX],ebx     ;for cache line size
    !mov [v_SichECX],ecx
    !mov [v_SichEDX],edx

    !and edx,[v_Bit6]        ;PAE
   !jz NOPAE                 ;mit Dot nur short jump! Deshalb ausnahmsweise hier so!
    CPU_Info(#PAE)\Color = $008800
    If #PB_Compiler_Processor <> #PB_Processor_x86
      !mov eax,80000001h
      !cpuid
      !and edx,[v_Bit29]
     !jz NOPAE               ;no more Infos
      !cmp [v_MaxIDExt],80000008h ;2.Test
     !jb NOPAE               ;no more Infos
      !mov eax,80000008h
      !cpuid
      !and eax,11111111b     ;Bits 07-00: #Physical Address Bits
      !mov [v_PAEBits],eax
      PAE = Int(Pow(2, PAEBits))
      PAE >> 30
      Einheit$ = " G"
      If PAE > 1024
        PAE >> 10
        Einheit$ = " T"
      EndIf
      CPU_Info(#PAE)\Info + " / This CPU: Max. " + Str(PAE) + Einheit$ + "Byte"
    EndIf
  !NOPAE:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit23]      ;MMX
   !jz .NOMMX
    CPU_Info(#MMX)\Color = $008800     ;Green for available
  !.NOMMX:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit25]      ;SSE 
   !jz .NOSSE
    CPU_Info(#SSE)\Color = $008800
  !.NOSSE:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit26]      ;SSE2 
   !jz .NOSSE2
    CPU_Info(#SSE2)\Color = $008800
  !.NOSSE2:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit0]       ;SSE3
   !jz .NOSSE3
    CPU_Info(#SSE3)\Color = $008800
  !.NOSSE3:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit9]       ;SSSE3
   !jz .NOSSSE3
    CPU_Info(#SSSE3)\Color = $008800
  !.NOSSSE3:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit19]      ;SSE4.1
   !jz .NOSSE41
    CPU_Info(#SSE41)\Color = $008800
  !.NOSSE41:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit20]      ;SSE4.2
   !jz .NOSSE42
    CPU_Info(#SSE42)\Color = $008800
  !.NOSSE42:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit23]      ;POPCNT
   !jz .NOPOPCNT
    CPU_Info(#POPCNT)\Color = $008800
  !.NOPOPCNT:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit1]       ;PCLMULQDQ
   !jz .NOPCLMULQDQ
    CPU_Info(#PCLMULQDQ)\Color = $008800
    !xor ecx,ecx
    !mov eax,7
    !cpuid
    !test ecx,[v_Bit10]
   !jz .NOVPCLMULQDQ
    CPU_Info(#PCLMULQDQ)\Info + " / VPCLMULQDQ: Yes"
   !jmp .NOPCLMULQDQ
  !.NOVPCLMULQDQ:
    CPU_Info(#PCLMULQDQ)\Info + " / VPCLMULQDQ: No"
  !.NOPCLMULQDQ:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit3]       ;MONITOR
   !jz .NOMONITOR
    CPU_Info(#MONITOR)\Color = $008800
  !.NOMONITOR:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit5]       ;VMX
   !jz .NOVMX
    CPU_Info(#VMX)\Color = $008800
    IsVMX = 1                ;für Test Ein/Aus
  !.NOVMX:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit6]       ;SMX
   !jz .NOSMX
    CPU_Info(#SMX)\Color = $008800
  !.NOSMX:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit12]      ;FMA
   !jz .NOFMA
    CPU_Info(#FMA)\Color = $008800
  !.NOFMA:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit11]      ;SEP
   !jz .NOSEP
    CPU_Info(#SEP)\Color = $008800
  !.NOSEP:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit24]      ;FXSR
   !jz .NOFXSR
    CPU_Info(#FXSR)\Color = $008800
  !.NOFXSR:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit8]       ;CMPXCHG8B
   !jz .NOCX8
    CPU_Info(#CX8)\Color = $008800
  !.NOCX8:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit13]      ;CMPXCHG16B
   !jz .NOCX16
    CPU_Info(#CX16)\Color = $008800
  !.NOCX16:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit25]      ;AES
   !jz .NOAES
    CPU_Info(#AES)\Color = $008800
    !xor ecx,ecx
    !mov eax,7
    !cpuid
    !test ecx,[v_Bit9]
   !jz .NOVAES
    CPU_Info(#AES)\Info + " / VAES: Yes"
   !jmp .NOAES
  !.NOVAES:
    CPU_Info(#AES)\Info + " / VAES: No"
  !.NOAES:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit27]      ;OSXSAVE
   !jz .NOOSXSAVE
    CPU_Info(#OSXSAVE)\Color = $008800
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit26]      ;XSAVE
   !jz .NOXSAVE
    CPU_Info(#XSAVE)\Color = $008800
  !.NOXSAVE:
    !mov eax,0Dh
    !cmp [v_MaxID],eax       ;max. ID
   !jb .NOXSAVEOPT
    !mov ecx,1
    !cpuid
    !test eax,[v_Bit0]       ;XSAVEOPT
   !jz .NOXSAVEOPT
    CPU_Info(#XSAVEOPT)\Color = $008800
  !.NOXSAVEOPT:

  !.NOOSXSAVE:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit28]      ;AVX
   !jz .NOAVX

;1) Detect CPUID.1:ECX.OSXSAVE[bit 27] = 1 (XGETBV enabled for application use1)
;2) Execute XGETBV and verify that XCR0[7:5] = ‘111b’ (OPMASK state, upper 256-bit of ZMM0-ZMM15 and
;ZMM16-ZMM31 state are enabled by OS) and that XCR0[2:1] = ‘11b’ (XMM state and YMM state are enabled by OS).
;3) Detect CPUID.0x7.0:EBX.AVX512F[bit 16] = 1.
    !xor ecx,ecx             ;read XCR0
    !xgetbv                  ;eax=Bits 0-31
    !test eax,[v_Bit2]       ;Bit0=x87, Bit1=SSE, Bit2=AVX. Bit2 kann nur vom OS gesetzt werden wenn auch Bit1 gesetzt ist. Bit0 ist immer gesetzt
   !jz .NOAVX
    CPU_Info(#AVX)\Color = $008800
  !.NOAVX:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit29]      ;F16C
   !jz .NOF16C
    CPU_Info(#F16C)\Color = $008800
  !.NOF16C:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit22]      ;MOVBE
   !jz .NOMOVBE
    CPU_Info(#MOVBE)\Color = $008800
  !.NOMOVBE:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit15]      ;(F)CMOVcc
   !jz .NOCMOV
    CPU_Info(#CMOV)\Color = $008800
  !.NOCMOV:       
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit19]      ;CLFSH
   !jz .NOCLFSH
    CPU_Info(#CLFSH)\Color = $008800
   ;The aligned cache line size affected is also indicated with the CPUID instruction (bits 8 through 15 of the EBX register when the initial value in the EAX register is 1). In Quadwords!
    !mov ebx,[v_SichEBX]
    !shr ebx,8
    !and ebx,11111111b
    !shl ebx,3               ;weil in Quadwords
    !mov [v_CLS],ebx
    CPU_Info(#CLFSH)\Info + " / This CPU: Cache Line Size=" + Str(CLS) + " Bytes"
    !xor ecx,ecx
    !mov eax,7
    !cpuid
    !test ebx,[v_Bit23]
   !jz .NOCLFLUSHOPT
    CPU_Info(#CLFSH)\Info + " / CLFLUSHOPT: Yes"
   !jmp .NOCLFSH
  !.NOCLFLUSHOPT:
    CPU_Info(#CLFSH)\Info + " / CLFLUSHOPT: No"
  !.NOCLFSH:       
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit5]       ;MSR
   !jz .NOMSR
    CPU_Info(#MSR)\Color = $008800
  !.NOMSR:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit30]      ;RDRAND
   !jz .NORDRAND
    CPU_Info(#RDRAND)\Color = $008800
  !.NORDRAND:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit4]       ;RDTSC
   !jz .NORDTSC
    Inv$ = " / Invariant: No"
    CPU_Info(#RDTSC)\Color = $008800
    !mov eax,80000007h
    !cmp [v_MaxIDExt],eax
   !jb .YESRDTSC
    !cpuid
    !test edx,[v_Bit8]
   !jz .YESRDTSC
    Inv$ = " / Invariant: Yes"
  !.YESRDTSC:
    CPU_Info(#RDTSC)\Info + Inv$
  !.NORDTSC:
    !mov eax,7
    !cmp [v_MaxID],eax       ;max. ID
   !jb NORTM                 ;Dot wie PAE
    !xor ecx,ecx
    !cpuid
    !mov [v_SichEBX],ebx
    !test ebx,[v_Bit19]      ;ADX
   !jz .NOADX
    CPU_Info(#ADX)\Color = $008800
  !.NOADX:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit5]       ;AVX2
   !jz .NOAVX2
    CPU_Info(#AVX2)\Color = $008800
  !.NOAVX2:   
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit16]      ;AVX512F
   !jz .NOAVX512F
    CPU_Info(#AVX512F)\Color = $008800
  !.NOAVX512F:   
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit3]       ;BMI(1)
   !jz .NOBMI1
    CPU_Info(#BMI1)\Color = $008800
  !.NOBMI1:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit8]       ;BMI2
   !jz .NOBMI2
    CPU_Info(#BMI2)\Color = $008800
  !.NOBMI2:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit4]       ;HLE
   !jz .NOHLE
    CPU_Info(#HLE)\Color = $008800
  !.NOHLE:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit10]      ;INVPCID
  !jz .NOINVPCID
    CPU_Info(#INVPCID)\Color = $008800
  !.NOINVPCID:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit18]      ;RDSEED
   !jz .NORDSEED
    CPU_Info(#RDSEED)\Color = $008800
  !.NORDSEED:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit11]      ;RTM
   !jz NORTM
    CPU_Info(#RTM)\Color = $008800
  !NORTM:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit29]      ;SHA
   !jz .NOSHA
    CPU_Info(#SHA)\Color = $008800
  !.NOSHA:
    !mov ebx,[v_SichEBX]
    !test ebx,[v_Bit20]      ;SMAP
   !jz .NOSMAP
    CPU_Info(#SMAP)\Color = $008800
  !.NOSMAP:
    !mov eax,80000001h
    !cmp [v_MaxIDExt],eax
    !jb NOEXTE
;    !cmp [v_MaxIDExt],80000004h   ;Test, if the CPU gives the Prozessor-String
;    !jb .NOCPUSTR
;!.NOCPUSTR:
    !cpuid
    !mov [v_SichECX],ecx
    !mov [v_SichEDX],edx

    !test edx,[v_Bit29]      ;AMD: Long Mode, Intel: Intel 64 Architecture
   !jz .NOARCH64
    CPU_Info(#ARCH64)\Color = $008800
  !.NOARCH64:     
    ;Test for Intel-Prozessor
    !cmp [v_IsIntel],1
    !je NOAMD                ;is Intel-Prozessor
    ;is AMD-Prozessor
    !test edx,[v_Bit31]      ;AMD 3DNow!
   !jz .NOEXT
    CPU_Info(#DNow)\Color = $008800
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit30]      ;AMD Extended 3DNow!  DSP: PF2IW, PFNACC, PFPNACC, PI2FW, PSWAPD
   !jz .NOEXT
    CPU_Info(#EXT3DNOW)\Color = $008800
  !.NOEXT:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit8]       ;AMD 3DNOWPREFETCH
   !jz .NODNOWPREF
    CPU_Info(#DNOWPREF)\Color = $008800
  !.NODNOWPREF:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit6]       ;AMD SSE4A: EXTRQ, INSERTQ, MOVNTSD, MOVNTSS
   !jz .NOSSE4A
    CPU_Info(#SSE4A)\Color = $008800
  !.NOSSE4A:     
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit7]       ;AMDMISAL16
   !jz .NOAMDMISAL16
    CPU_Info(#AMDMISAL16)\Color = $008800
  !.NOAMDMISAL16:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit22]      ;EMMX
   !jz .NOEMMX
    CPU_Info(#EMMX)\Color = $008800
  !.NOEMMX:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit16]      ;FMA4
   !jz .NOFMA4
    CPU_Info(#FMA4)\Color = $008800
  !.NOFMA4:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit15]      ;LWP
   !jz .NOLWP
    !xor ecx,ecx
    !xgetbv                  ;if LWP available, is XGETBV also available
    !test edx,[v_Bit30]
   !jnz @f
    CPU_Info(#LWP)\Color = $FF0000     ;Blue, OS (Windows) no unlocked
   !jmp .NOLWP
  !@@:
    CPU_Info(#LWP)\Color = $008800     ;Green, OS (Windows) unlocked
  !.NOLWP:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit2]       ;SVM
   !jz .NOSVM
    CPU_Info(#SVM)\Color = $008800
    IsSVM = 1                ;für Test Ein/Aus
  !.NOSVM:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit21]      ;TBM
   !jz .NOTBM
    CPU_Info(#TBM)\Color = $008800
  !.NOTBM:
    !mov ecx,[v_SichECX]
    !test ecx,[v_Bit11]      ;XOP
   !jz .NOXOP
    CPU_Info(#XOP)\Color = $008800
  !.NOXOP:
    !cmp [v_MaxIDExt],80000008h
   !jb NOAMD
    !mov eax,80000008h
    !cpuid
    !test ebx,[v_Bit0]       ;CLZERO
   !jz NOAMD
    CPU_Info(#CLZERO)\Color = $008800

  !NOAMD:
    !mov ecx,[v_SichECX]     ;noch von oben
    !test ecx,[v_Bit5]       ;LZCNT
   !jz .NOLZCNT
    CPU_Info(#LZCNT)\Color = $008800
  !.NOLZCNT:
    !mov edx,[v_SichEDX]
    !test edx,[v_Bit27]      ;RDTSCP
   !jz NOEXTE
    CPU_Info(#RDTSCP)\Color = $008800
  !NOEXTE:

  X = 10
  Y = 18                     ;1.Row
  For i = 0 To #PB_Compiler_EnumerationValue - 1
    StringGadget(i, X, Y, CPU_Info(i)\Pixel, 15, CPU_Info(i)\Feature, #PB_String_BorderLess | #PB_String_ReadOnly)
    SetGadgetColor(i, #PB_Gadget_FrontColor, CPU_Info(i)\Color)
    SetGadgetColor(i, #PB_Gadget_BackColor, BackColor)
    SetGadgetFont(i, FontID(0))
    X + 7 + CPU_Info(i)\Pixel
    If X > 970 And Y = 18
      X = 10
      Y = 33                 ;2.Row
     ElseIf X > 970 And Y = 33
      X = 10
      Y = 48                 ;3.Row
    EndIf
  Next

  Select OSVersion()         ;simple Info
    Case #PB_OS_Windows_2000
      OS$ = "Windows_2000"   
    Case #PB_OS_Windows_XP
      OS$ = "Windows_XP"
    Case #PB_OS_Windows_7
      OS$ = "Windows_7"
    Case #PB_OS_Windows_8
      OS$ = "Windows_8"   
    Case #PB_OS_Windows_8_1
      OS$ = "Windows_8_1"
    Case #PB_OS_Windows_10
      OS$ = "Windows_10"
    Default
      OS$ = "Wird schon eins da sein... ;-)"
  EndSelect                  ;kann jeder für sein OS erweitern

  If #PB_Compiler_Processor = #PB_Processor_x86
    Bit$ = " 32-Bit"
    OSXY = 32
   ElseIf #PB_Compiler_Processor = #PB_Processor_x64  ;sicher ist sicher
    Bit$ = " 64-Bit"
    OSXY = 64
  EndIf   

  TextGadget(#PB_Compiler_EnumerationValue, 10, 2, 580, 15, "CPU: " + CPUName() + Space(20) + "OS: " + OS$ + Bit$)
                                                                             
  TextGadget(#PB_Compiler_EnumerationValue + 1, 600, 2, 80, 15, "Red: CPU No")
  TextGadget(#PB_Compiler_EnumerationValue + 2, 700, 2, 140, 15, "Green: CPU Yes, OS Yes")
  TextGadget(#PB_Compiler_EnumerationValue + 3, 860, 2, 130, 15, "Blue: CPU Yes, OS No")   

  TextGadget(#PB_Compiler_EnumerationValue + 4, 10, 63, 30, 15, "OS:")
  TextGadget(#PB_Compiler_EnumerationValue + 5, 40, 63, 70, 15, "x87-State")
  TextGadget(#PB_Compiler_EnumerationValue + 6, 110, 63, 70, 15, "SSE-State")
  TextGadget(#PB_Compiler_EnumerationValue + 7, 180, 63, 70, 15, "AVX-State")
  TextGadget(#PB_Compiler_EnumerationValue + 8, 255, 63, 90, 15, "AVX512-State")

  For i = #PB_Compiler_EnumerationValue To #PB_Compiler_EnumerationValue + 8
    SetGadgetFont(i, FontID(0))   
    SetGadgetColor(i, #PB_Gadget_BackColor, BackColor)
  Next   
  SetGadgetColor(#PB_Compiler_EnumerationValue + 1, #PB_Gadget_FrontColor, $0000D0)
  SetGadgetColor(#PB_Compiler_EnumerationValue + 2, #PB_Gadget_FrontColor, $008800)
  SetGadgetColor(#PB_Compiler_EnumerationValue + 3, #PB_Gadget_FrontColor, $FF0000)
  SetGadgetColor(#PB_Compiler_EnumerationValue + 5, #PB_Gadget_FrontColor, $008800) ;sollte immer gesetzt sein
  SetGadgetColor(#PB_Compiler_EnumerationValue + 6, #PB_Gadget_FrontColor, $0000D0)
  SetGadgetColor(#PB_Compiler_EnumerationValue + 7, #PB_Gadget_FrontColor, $0000D0)
  SetGadgetColor(#PB_Compiler_EnumerationValue + 8, #PB_Gadget_FrontColor, $0000D0)

  If CPU_Info(#OSXSAVE)\Color = $008800     ;OSXSAVE available   na ja...
    !xor ecx,ecx
    !xgetbv                  ;read XCR0
    !test eax,[v_Bit1]
   !jz .NO_SSE_STATE         ;without SSE no AVX
    !mov [v_SichEAX],eax
    SetGadgetColor(#PB_Compiler_EnumerationValue + 6, #PB_Gadget_FrontColor, $008800)    ;SSE
    !mov eax,[v_SichEAX]
    !test eax,[v_Bit2]
   !jz .NO_SSE_STATE
    SetGadgetColor(#PB_Compiler_EnumerationValue + 7, #PB_Gadget_FrontColor, $008800)    ;AVX
    !mov eax,[v_SichEAX]
    !shr eax,5
    !and eax,111b            ;evtl.einzeln
    !cmp eax,111b
   !jne .NO_SSE_STATE
    SetGadgetColor(#PB_Compiler_EnumerationValue + 8, #PB_Gadget_FrontColor, $008800)    ;AVX-512
  !.NO_SSE_STATE:
  EndIf

EndProcedure

If OpenWindow(0, 0, 0, 1020, 100, "Helles CPU-Info", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
  SetWindowColor(0, BackColor)

  FontHigh = 9
  LoadFont(0, "Trebuchet MS Fett", FontHigh)     ;available in Windows 7 und 10; evtl. selber wählen! Dann evtl. Pixel anpassen
 
  CPUID_Info()
 
  ;=========================================================================================================================
  ;Dies ist nur ein Goodie und hat mit der eigentlichen CPU-Info nichts zu tun! Kann auch entfernt werden!
  ;Hier schiebe ich mal den Test auf Disabled/Enabled von VT-x (Intel) bzw. SVM (AMD) ein
  ;Für den Zugriff auf die CPU-MSRs verwende ich WinRing0; deshalb ist dies hier nur für Windows64 und Administrator gültig!
  ;Vor starten des Codes ist in den Compiler-Optionen das temporäre Erstellen der Exe auszuwählen!
  ;Im Code-Ordner werden die Dateien "WinRing0x64.dll" und "WinRing0x64.sys" erwartet!
  If UserName() = "Administrator" And OSXY = 64   
    DLLOK = OpenLibrary(0, "WinRing0x64.dll")    ;64-Bit-Version laden
    If DLLOK
      #MSR_Intel_VTX = $3A
      #MSR_AMD_SVM = $C0010114
      Lo.l
      Hi.l
      En$ = " / Enabled"
      Dis$ = " / Disabled"

      Prototype.i ProtoWinRing0_0()
      WR0_InitializeOls.ProtoWinRing0_0    = GetFunction(0, "InitializeOls")
      WR0_DeinitializeOls.ProtoWinRing0_0  = GetFunction(0, "DeinitializeOls")
      WR0_IsMsr.ProtoWinRing0_0            = GetFunction(0, "IsMsr")

      Prototype.i ProtoWinRing0_3(V1l.l, V2l.l, V3l.l)
      WR0_Rdmsr.ProtoWinRing0_3 = GetFunction(0, "Rdmsr")

      If WR0_InitializeOls()
        If WR0_IsMsr()
          If IsIntel And IsVMX
            WR0_Rdmsr(#MSR_Intel_VTX, @Lo, @Hi)
            If (Lo & %111) <> 1                  ;s.http://heise.de/-323506
              CPU_Info(#VMX)\Info + En$
             Else
              CPU_Info(#VMX)\Info + Dis$
            EndIf
           ElseIf IsAMD And IsSVM
            WR0_Rdmsr(#MSR_AMD_SVM, @Lo, @Hi)
            If (Lo & %10000) = 0                 ;s.http://heise.de/-323506
              CPU_Info(#SVM)\Info + En$
             Else
              CPU_Info(#SVM)\Info + Dis$
            EndIf
          EndIf
        EndIf
        WR0_DeinitializeOls() 
      EndIf
      CloseLibrary(0)
    EndIf
  EndIf
  ;=========================================================================================================================

  For i = 0 To #PB_Compiler_EnumerationValue - 1 ;erst hier wegen VTX/SVM
    GadgetToolTip(i, CPU_Info(i)\Info)
  Next

  Repeat : Event = WaitWindowEvent() : Until Event = #PB_Event_CloseWindow
 
EndIf


Viel Spaß!
Helle

Edit 2.11.2020: Aktualisierung und Kosmetik
Edit 9.11.2020: Weitere Aktualisierung


Zuletzt geändert von Helle am 09.11.2020 13:49, insgesamt 2-mal geändert.

Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 26.10.2020 12:15 
Offline
Ein Admin
Benutzeravatar

Registriert: 29.08.2004 20:20
Wohnort: Saarbrücken
@Helle: Nutzt du immer noch Windows 7? :? Steht zumindest in dem Kommentar ganz oben.

_________________
Ubuntu Gnome 20.04 LTS x64, PureBasic 5.72 x64 (außerdem 4.41, 4.50, 4.61, 5.00, 5.10, 5.11, 5.21, 5.22, 5.30, 5.31, 5.40, 5.50, 5.60, 5.71b2)
"Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen."


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 26.10.2020 12:30 
Offline
Benutzeravatar

Registriert: 11.11.2004 16:13
Wohnort: Magdeburg
@Nic: In meinem Alter wechselt man bestenfalls noch die Alte, aber nicht mehr das Betriebssystem :mrgreen: !


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: Was unterstützt mein Prozessor?
BeitragVerfasst: 26.10.2020 18:47 
Offline
Benutzeravatar

Registriert: 22.12.2016 12:49
Wohnort: :D_üsseldorf-Wersten
Hallo Helle,

ich habe bei mir die Windows7 SSD ausgebaut und ein Linux Mint 19.3 Tricia eingebaut.
Die Helles CPU-Info Ausgabe sieht bei mir so aus:
Bild

HIer die CPU-Daten:
Topology: Quad Core model: Intel Core i7 Q 740 bits: 64 type: MT MCP arch: Nehalem
rev: 5 L2 cache: 6144 KiB
flags: lm nx pae sse sse2 sse3 sse4_1 sse4_2 ssse3 vmx bogomips: 29605
Speed: 2060 MHz min/max: 933/1734 MHz Core speeds (MHz): 1: 2115 2: 2343 3: 2541
4: 2252 5: 2180 6: 2210 7: 2545 8: 2024
Gruß
Jürgen Kulow


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 37 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4  Nächste

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 19 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye