58 lines
2.7 KiB
Plaintext
58 lines
2.7 KiB
Plaintext
' Gambas module file
|
|
|
|
Public Sub _inits()
|
|
Dim i As Integer
|
|
Dim hFile As File
|
|
If Exist(FReport_Gen.ButtonBox1.Text) Then
|
|
hFile = Open FReport_Gen.ButtonBox1.Text For Write Append
|
|
Else
|
|
hFile = Open FReport_Gen.ButtonBox1.Text For Write Create
|
|
Endif
|
|
Print #hFile, "==========================================================CPUID==================================================================="
|
|
Print #hFile, Finfosys.DATAT["VENDOR_STR"]
|
|
Print #hFile, Finfosys.DATAT["CPU_CODENAME"]
|
|
Print #hFile, Finfosys.DATAT["BRAND_STR"]
|
|
Print #hFile, "Cores: " & Finfosys.DATAT["NUM_CORES"] & ""
|
|
Print #hFile, "Logical CPUS: " & Finfosys.DATAT["NUM_LOGICAL_CPUS"] & ""
|
|
Print #hFile, "Total Logical CPUS: " & Finfosys.DATAT["TOTAL_LOGICAL_CPUS"] & ""
|
|
Print #hFile, "Family: " & Finfosys.DATAT["FAMILY"] & ""
|
|
Print #hFile, "Model: " & Finfosys.DATAT["MODEL"] & ""
|
|
Print #hFile, "Stepping: " & Finfosys.DATAT["STEPPING"] & ""
|
|
Print #hFile, "Ext Family: " & Finfosys.DATAT["EXT_FAMILY"] & ""
|
|
Print #hFile, "Ext Model: " & Finfosys.DATAT["EXT_MODEL"] & ""
|
|
Print #hFile, "CPU Clock: " & Finfosys.DATAT["CPU_CLOCK"] & ""
|
|
Print #hFile, "CPU Clock BY OS: " & Finfosys.DATAT["CPU_CLOCK_BY_OS"] & ""
|
|
Print #hFile, "CPU Clock BY IC: " & Finfosys.DATAT["CPU_CLOCK_BY_IC"] & ""
|
|
Print #hFile, "CPU Clock Measure: " & Finfosys.DATAT["CPU_CLOCK_MEASURE"] & ""
|
|
Print #hFile, "Mark TSC: " & Finfosys.DATAT["MARK_TSC"] & ""
|
|
Print #hFile, "Mark SYS Clock: " & Finfosys.DATAT["MARK_SYS_CLOCK"] & ""
|
|
Print #hFile, "L1 Data: " & Finfosys.DATAT["L1_DATA_CACHE"] & ""
|
|
Print #hFile, "L1 Instr: " & Finfosys.DATAT["L1_INSTRUCTION_CACHE"] & ""
|
|
Print #hFile, "L2 Cache: " & Finfosys.DATAT["L2_CACHE"] & ""
|
|
Print #hFile, "L3 Cache: " & Finfosys.DATAT["L3_CACHE"] & ""
|
|
Print #hFile, "L1 Assoc: " & Finfosys.DATAT["L1_ASSOC"] & ""
|
|
Print #hFile, "L2 Assoc: " & Finfosys.DATAT["L2_ASSOC"] & ""
|
|
Print #hFile, "L3 Assoc: " & Finfosys.DATAT["L3_ASSOC"] & ""
|
|
Print #hFile, "L1 Cacheline: " & Finfosys.DATAT["L1_CACHELINE"] & ""
|
|
Print #hFile, "L2 Cacheline: " & Finfosys.DATAT["L2_CACHELINE"] & ""
|
|
Print #hFile, "L3 Cacheline: " & Finfosys.DATAT["L3_CACHELINE"] & ""
|
|
Print #hFile, "SSE Size: " & Finfosys.DATAT["SSE_SIZE"] & ""
|
|
Print #hFile, "==========================================================FLAGS==================================================================="
|
|
For i = 1 To 94
|
|
FReport_Gen.ProgressBar1.Value = i / 94
|
|
Try Print #hFile, Finfosys.DATAT["Flags"][i]["DESC"] & " | " & Finfosys.DATAT["Flags"][i]["FEATURE"] & " | " & get_value(0, i)
|
|
Next
|
|
Close #hFile
|
|
End
|
|
|
|
Function get_value(Value As Integer, Pos As Integer) As String
|
|
|
|
If Finfosys.DATAT["Flags"][Pos][VALUE] = 1 Then
|
|
Return "Is Supported"
|
|
Else
|
|
Return "Not Supported"
|
|
Endif
|
|
|
|
End
|
|
|