WebSVN – Kolibri OS – Diff – /programs/testing/cpuid/trunk/CPUID.ASM


;******************************************************************************
; project name:  CPUID                                                        *
; platform:      KolibriOS, x86 (IA-32), x86-64 achitectures                  *
; compiler:      flat assembler 1.70.03                                       *
; version:       2.31                                                        *
; last update:   9 October 2018                                              *
; maintained by: Sergey Kuzmin aka Wildwest                                   *
; e-mail:        kuzmin_serg@list.ru                                          *
; site:          http://coolthemes.narod.ru/files.html                        *
; license:       Copyright 2004-2018 Sergey Kuzmin and co-authors             *
;                Rules:                                                       *
;                1)you can use pieces of code in your project, but should     *
;                mention the original author (include copyright notice);      *
;                2)if you modify CPUID (improve, port, translate,  etc) send   *
;                your changes to the maintainer or make about post changes    *
;                at forum  http://board.kolibrios.org/viewtopic.php?f=42&t=594*
;-----------------------------------------------------------------------------*
; English comments                                                            *
;------------------------------------------------------------------------------
use32
  org    0x0
  db     'MENUET01'
  dd     0x01
  dd     START
  dd     I_END
  dd U_END+4096
  dd U_END+4096
  dd     0x0
  dd     path
 
include '..\..\..\develop\libraries\box_lib\load_lib.mac'
include '..\..\..\macros.inc'
include '../../../gui_patterns.inc'
include '../../../KOSfuncs.inc'
include 'lang.inc'
include 'draw.inc'
include 'brand.inc'     ; brand ID decoding
include 'caches.inc'    ; L1 and L2 cashes decoding for Intel
include 'multipli.inc'  ; multiplier decoding
include 'features.inc'  ; features decoding
include 'logos.inc'     ; include file where gif's are stored
include 'rsatest.inc'
include 'variable.inc'
include 'gif_lite.inc'
 
@use_library
 
START:
        mcall   68,11
        mcall   66,1,1
        mcall   SF_STYLE_SETTINGS, SSF_GET_COLORS, sc, sizeof.system_colors
 
load_libraries l_libs_start,end_l_libs
;-----------------------------------------------------------------------------
;OpenDialog     initialisation
        push    dword OpenDialog_data
        call    [OpenDialog_Init]
 
        mov     edi,filename_area
        mov     esi,start_temp_file_name
        call    copy_file_name_path
;-----------------------------------------------------------------------------
        mcall   68,12,4096*8 ; 16 Kb - I hope this will be enough for store of data
        mov     [store_text_area_start],eax
 
 
;------------
CYCLES:
;   CPU speed
        mov eax, 18
        mov ebx,5
        mcall
        mov [total1],eax  ;in Hz,  example 1600490000
        xor  edx,edx
        mov  ebx,1000000
        div  ebx
        mov [total], eax  ; in Mhz,  example 1600
        xor edx, edx
        mov eax, [total1]
        mov ebx, 10000
        div ebx
        mov [ost], eax    ; example 160049
        mov ecx, [total]
        imul ecx, 100
        neg  ecx
        add  ecx, eax
        mov [sot], ecx    ; example 49
;------------
cpu:                  ;is CPUID supported?
        pushfd              ;push original EFLAGS
        pop eax             ;get original EFLAGS
        mov ebx, eax        ;save original EFLAGS
        xor eax, 00200000h  ;flip 21th bit in EFLAGS
        push eax            ;save new EFLAGS value on stack
        popfd               ;replace current EFLAGS value
        pushfd              ;get new EFLAGS
        pop eax             ;store new EFLAGS in EAX
        cmp eax, ebx        ;compare values of 21th bit
        jz NO_CPUID         ;CPUID isn't supported
;------------
CPUNAME:              ; VENDOR
        mov   eax,0       ; eax=0
        cpuid
 
        mov [stdc], eax   ; number of calls
        mov   [cpuname+ 12],ebx
        mov   [cpuname+ 16],edx
        mov   [cpuname+ 20],ecx
        mov   [smallvendor],ecx
 
; for various vendors we should later use different methods
 
;Decoding cache L1 and L2 for Intel
 
        cmp ecx, 'ntel'
        jne cpu1     ;is not Intel
 
;Starting L1, L2, L3 caches detection (Intel made it VERY HARD)
 
        mov eax, 2
        cpuid
 
        mov [che], al        ; number of calls
multik:
 
.eaxl:
        test  eax, eax       ;    Test bit 31
        js    .ebxl          ;    <> 0 =>invalid values
        call decodecache24
.ebxl:
        test  ebx, ebx
        js    .ecxl
        mov eax, ebx
        call decodecache32
.ecxl:
        test  ecx, ecx
        js    .edxl
        mov eax, ecx
        call decodecache32
.edxl:
        test  edx, edx
        js    cpu1
        mov eax, edx
        call decodecache32
 
        dec [che]    ; we made all calls
        je cpu1
 
multi: ; not yet
 
        mov eax, 2  ; so we made call again
        cpuid
 
        jmp multik
 
;  FAMILY MODEL STEPPING
cpu1:
        xor eax, eax
        inc eax   ; eax=1
        cpuid
 
        mov ecx, eax
        shr ecx,8         ;   shift it to the correct position
        and ecx,0000000Fh ;   get CPU family
        mov dword[f],ecx
 
        mov ecx, eax
        shr ecx,4
        and ecx,0000000Fh ;    get CPU model
        mov dword[m],ecx
 
        mov ecx, eax
        and ecx,0000000Fh ;   get CPU stepping
        mov dword[s],ecx
 
        ;-
        mov ecx, eax      ; get Type
        shl ecx, 18
        shr ecx,30
        ;and ecx, 0000000Fh ; only two lower bits can be nonzero
        mov dword[t], ecx
;=======================================================
 
        cmp dword[smallvendor], 'cAMD'
        jz maybe_athlon
        cmp dword[smallvendor], 'ntel'
        jnz no_full   ; if not AMD or Intel
 
;detect_it:
;cmp [f], 0Fh
;jne no_full   fixed calculation of extended model for Intel
 
full:
 
        mov ecx, eax          ; get Extended model
        shr ecx,16            ;shift it to the correct position
        and ecx, 0000000Fh
        shl ecx, 4
        mov dword[newpc],ecx     ;  this value for old pc=0 and for new pc>0
        add ecx, [m]
        mov dword[em],ecx     ;  effective    model
 
        mov ecx, eax          ; get Extended family
        shr ecx, 20           ;shift it to the correct position
        and ecx, 000000FFh
        add ecx, [f]
        mov dword[ef],ecx     ; effective family
 
 
        jmp fut
 
no_full:
 
        mov ecx, [m]
        mov [em], ecx
 
        mov ecx, [f]
        mov [ef], ecx
 
        jmp fut
 
maybe_athlon:
        mov eax, 0x80000001               ; CPUID ext. function 0x80000001
        cpuid
        mov ecx, eax
        shr ecx,8         ;   shift it to the correct position
        and ecx,0000000Fh ;   get CPU family
        mov dword[ef],ecx
 
        mov ecx, eax
        shr ecx,4
        and ecx,0000000Fh ;    get CPU model
        mov dword[em],ecx
 
fut:
 
        call decode_sse3_5
 
 
 
        ;call decode_sse3_5
        ;-
        call decode_extended
 
        mov   eax,$80000000
        cpuid
 
        mov   [extc], eax  ; max number of calls
 
        test  eax, $80000000 ;// Test bit 31
        jz .noname
 
        cmp  eax,$80000003
        ja .mynameis
        jmp .noname
 
.mynameis:
        mov       eax,$80000002
        cpuid
        mov   [myname],eax
        mov   [myname+4],ebx
        mov   [myname+8],ecx
        mov   [myname+12],edx
        mov   eax,$80000003
        cpuid
        mov   [myname+16],eax
        mov   [myname+20],ebx
        mov   [myname+24],ecx
        mov   [myname+28],edx
        mov   eax,$80000004
        cpuid
        mov   [myname+32],eax
        mov   [myname+36],ebx
        mov   [myname+40],ecx
        mov   [myname+44],edx
        jmp   red
 
.noname:
 
red:
 
        ;mov byte [multiplier], 115;     ; for testing
 
        call decode_sse3
 
        call multipl                          ; get multiplier
        mov byte [multiplier], cl
 
        mov   dword [freqbb], 0
        mov   dword [freqll], 0
 
        mov   ebx, dword [multiplier]
        test  ebx, ebx
        jz output
 
        calc:
 
        mov eax,dword [ost]   ; example 166474
        imul eax, 10          ; example 1664740
        xor edx,edx
        div ebx               ; get system clock (if multiplier detected)
 
        xor edx, edx                    ; example eax=16647
        mov ebx, 100
        div ebx
        mov dword [freqbb], eax         ; example 166
        mov dword [freqll], edx         ; example 47
 
        xor edx, edx
        mov eax,dword[multiplier]  ; example 115
        mov  ebx,10
        div  ebx
        mov dword[multb], eax  ;   example 11
        mov dword[multa], edx    ; example 5
 
output:
 
        call draw_window    ;     Draw window
 
;HRERE
 
PROCCORE:    ;   Who are you?
; Intel - "GenuineIntel"           +
; AMD - "AuthenticAMD"             +
; Cyrix - "CyrixInstead"           +
; UMC - "UMC UMC UMC "
; NexGen - "NexGenDriven"
; Centaur - "CentaurHauls"         +
; Rise Technology - "RiseRiseRise"
; SiS - "SiS SiS SiS "
; Transmeta - "GenuineTMx86"       +
; National Semiconductor - "Geode by NSC"
; Vortex - "Vortex86 SoC"       + initial support
        cmp dword[smallvendor], 'ntel'   ;1
        jz Intel
        cmp dword[smallvendor], 'cAMD'   ;2
        jz AMD
        cmp dword[smallvendor], 'tead'   ;3
        jz Cyrix
        cmp dword[smallvendor], 'auls'    ;4
        jz Centaur
        cmp dword[smallvendor], 'Mx86'    ;5
        jz Transmeta
        cmp dword[smallvendor], ' SoC'    ;6
        jz Vortex
 
; cmp ecx, 'UMC '
; jz .UMC
; cmp ecx, 'iven'
; jz .NexGen
; cmp ecx, 'Rise'
;  jz .Rise
; cmp ecx, 'SiS '
; jz .SiS
; cmp ecx, ' NSC'
; jz .NSC
; jmp Other   ;  I don't know what to do with you...
Other:
        Text 75,70,0x00000000,other, otherlen-other
 
        mov esi, other
        mov edi, [saveproc]
        call concatname
 
        jmp MMXtest
;-------------------------
 
AMD:
 
;-------------------------------------------------------------------------------
 
        Text 15, 190,0x00000000,cache, cachelen-cache
 
        Text 75,70,,AMDn, AMDnlen-AMDn
        mov esi, AMDnNew
        mov edi, saveproc
        call concatname
        mov     esi, amd
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        MOV [codeN], 2
;         place   size
 
; Relax, man. AMD made PRETTY SIMPLE cache detection routine
;CACHE1:
        mov eax, 80000005h
        cpuid
 
        movzx eax, cl
        mov [lineld], eax
 
        mov eax, ecx
        ;shl eax, 8
        ;shr eax, 24
 
        and eax,00FF0000h
        shr eax, 16
        mov [wayld], eax
 
        shr ecx, 24
        mov [L1d], ecx
 
 
        movzx eax, dl
        mov [lineli], eax
 
        mov eax, edx
        ;shl eax, 8
        ;shr eax, 24
 
        and eax,00FF0000h
        shr eax, 16
        mov [wayli], eax
 
 
        shr edx, 24
        mov [L1i], edx
 
 
;CACHE2:
        mov eax, 80000006h
        cpuid
 
        movzx eax, cl
        mov dword[linel2], eax
 
        push ecx
        shr ecx, 12+1
        and ecx, 0x7
        mov eax, 1
        shl eax, cl
        mov dword [wayl2], eax
        pop ecx
 
        shr ecx, 16
        mov [L2],ecx
 
;CACHE3: edx provides l3
 
        mov eax, 80000006h
        cpuid
 
        movzx eax, cl       ;mov cl to eax, zero extend; cl is counter reg for loop,shifts
        mov dword[linel3], eax
 
        push edx
        shr edx, 12+1
        and edx, 0x7
        mov eax, 1
        shl eax, cl
        mov dword [wayl3], eax
        pop edx
 
        shr edx, 18
        mov [L3],ecx
 
        cmp [f], $5
        jz .fiv
        cmp [f], $6
        jz .si
        cmp [f], $F
        jz fif
        cmp [f], $10   ;family 16, 010h,
        jz ten
 
 
.fiv:    ;     Family=5
        mov     [micron], 50
        mov     edx, A50
        cmp     [m], $0
        jz      @f
        mov     [micron], 35
        mov     edx, A51
        cmp     [m], $1
        jz      @f
        mov     edx, A52
        cmp     [m], $2
        jz      @f
        mov     edx, A53
        cmp     [m], $3
        jz      @f
        mov     [micron], 30
        mov     edx, A56
        cmp     [m], $6
        jz      @f
        mov     [micron], 25
        mov     edx, A57
        cmp     [m], $7
        jz      @f
        mov     edx, A58
        cmp     [m], $8
        jz      @f
        mov     edx, A59
        cmp     [m], $9
        jz      @f
        mov     [micron], 18
        mov     edx, A5D
@@:
        jmp     @f
 
.si:   ;    Family=6
        mov     [micron], 25
        mov     edx, At1
        cmp     [m], $1
        jz      @f
        mov     [micron], 18
        mov     edx, At2
        cmp     [m], $2
        jz      @f
        mov     edx, At3
        cmp     [m], $3
        jz      @f
        mov     edx, At4
        cmp     [m], $4
        jz      @f
        cmp     [m], $6
        jz      A6
        mov     [micron], 13
        mov     edx, At7
        cmp     [m], $7
        jz      @f
        cmp     [m], $8
        jz      A8
        jmp     AA
@@:
        mov     [cname], edx
        jmp     MMXtest
A6:
;mov     [FRS], 266  ;!!!!!!
;Number  315,90,0,3,dword [FRS],0x000000; MHz
 
        call    newrating; !!!!
 
        Text    245,70,0x00000000,pr, prlen-pr
        Number  310,70,0,4,dword [rating],0x000000
        mov     edx, At6
        jmp     @b
 
A8:
 
;mov     [FRS], 266     ;!!!!!!
;Number  315,90,0,3,dword [FRS],0x000000; MHz
 
        cmp     [L2], 256
        jl      .App  ; Applebred
 
        call    newrating;!!!!
 
        Text    245,70,0x00000000,pr, prlen-pr
        Number  310,70,0,4,dword [rating],0x000000
        mov     edx, At8
        jmp     @b
 
.App:
        mov     edx, At8a
        jmp     @b
 
AA:
 
;        mov     [FRS], 333; !!!!
        Text    245,70,0x00000000,pr, prlen-pr
 
;        Number  315,90,0,3,dword [FRS],0x000000; MHz
 
        mov     edx, Atat
        cmp     [L2], 256
        jl      .Tho ; Thorton
        mov     edx, Ata
.Tho:
        push    edx
 
        call    newrating;!!!!!
 
        Number  310,70,0,4,dword [rating],0x000000
        pop     edx
        jmp     @b
 
fif:  ;  AMD-64    Family=15
 
;here is a need to rewrite detection of AMD F-th family according to "Revision Guide for
;AMD AthlonTM 64 and  AMD OpteronTM  Processors" 25759.pdf
 
 
        cmp [m],$1   ;Dual-core Opteron
        jz   AF1.
        cmp [m],$3   ;Toledo 1024 0.09
        jz  AF3.
        cmp [m],$4   ;Athlon 64 Mobile Athlon 64 FX  ClawHammer (1024) 0.13
        jz AF4.
        cmp [m],$5   ;Opteron Athlon 64 FX 0.13 (1024)
        jz AF5.
        cmp [m],$7   ;Athlon 64 Athlon 64 FX  Clawhammer(1024) 0.13   Sledgehammer(1024)  0.13  // SSE3+ SanDiego(1024)
        jz AF7.
        cmp [m],$8   ;Athlon 64 Mobile Athlon 64 FX ClawHammer (1024) 0.13
        jz AF8.
        cmp [m],$B   ;Athlon 64
        jz AFB.
        cmp [m],$C   ;Athlon 64 Newcastle(512) 0.13  Sempron> Paris (256)   0.13  |SSE3+ Sempron >  Palermo FC0 0.09  // (Venice)
        jz AFC.
        cmp [m],$E   ;Athlon 64
        jz AFE.
        cmp [m],$F   ;Athlon 64 Winchester(512) |SSE3+ SanDiego(1024)  Venice (512)  Palermo (256) 0.09
        jz AFF.
        jmp next_generation
 
ten:      ;family = 10h
 
        cmp [m],$2
        jz AB23.
        cmp [m], $8
        jz AB83.
        cmp [m], $9
        jz AB9.
        cmp [m], $2
        jz AB8check2.
 
AB8check2.:
        cmp [s],03h
        jz AB8right2.
        cmp [m],$2
        jz athlonCheck
 
athlonCheck:
        cmp [s],03h
        jz athlonKuma
 
        cmp [m], $5
        jz AB4.
        cmp [m],$1
        jz AB1.
        cmp [m],$4
        jz AB8check.
 
AB8check.:
        cmp [s],02h
        jz ABC2.
        cmp [s],01h
        jz ABC3.
        cmp [m], $9
        jz AB6.
        cmp [m], $2
        jz AB8check.
        cmp [m], 06h
        jz ABM.
 
athlonKuma:
        mov [micron], 65
        Text 100,70,0x00000000,AthlonKuma, AthlonKumalen-AthlonKuma
        mov esi, AthlonKuma
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AB23.:
        mov [micron], 65
        Text 100,70,0x00000000,AB23, AB23len-AB23
        mov esi, AB23
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AB83.:
        mov [micron], 65
        Text 100,70,0x00000000,AB83, AB83len-AB83
        mov esi, AB83
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AB9.:
        mov [micron], 65
        Text 100,70,0x00000000,AB9, AB9len-AB9
        mov esi, AB9
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AB8right2.:
        mov [micron], 65
        Text 100,70,0x00000000,AB8right2, AB8right2len-AB8right2
        mov esi, AB8right2
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AB4.:
        mov [micron], 45
        Text 100,70,0x00000000,AB4, AB4len-AB4
        mov esi, AB4
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AB1.:
        mov [micron], 65
        Text 100,70,0x00000000,AB1, AB1len-AB1
        mov esi, AB1
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
ABC2.:
        mov [micron], 45
        Text 100,70,0x00000000,ABC2, ABC2len-ABC2
        mov esi, ABC2
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AB6.:
        mov [micron], 45
        Text 100,70,0x00000000,AB6, AB6len-AB6
        mov esi, AB6
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
ABC3.:
        mov [micron], 45
        Text 100,70,0x00000000,ABC3, ABC3len-ABC3
        mov esi, ABC3
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
ABM.:
        mov [micron], 45
        Text 100,70,0x00000000,ABM2, ABM2len-ABM
        mov esi, ABM2
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AF1.:
        mov [micron], 09  ;?
        Text 100,70,0x00000000,AF1, AF1len-AF1
        mov esi, AF1
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
AF3.:
        mov [micron], 09
        Text 100,70,0x00000000,AF3, AF3len-AF3
        mov esi, AF3
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
AF4.:
        mov [micron], 13
        Text 100,70,0x00000000,AF4, AF4len-AF4
        mov esi, AF4
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
AF5.:
        mov [micron], 13
        Text 100,70,0x00000000,AF5, AF5len-AF5
        jmp MMXtest
 
AF7.:
        mov [micron], 13
        Text 100,70,0x00000000,AF5, AF5len-AF5
        mov esi, AF5
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AF8.:
        mov [micron], 13
        Text 100,70,0x00000000,AF4, AF4len-AF4
        mov esi, AF4
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AFB.:
        mov [micron], 13
        Text 100,70,0x00000000,AF4, AF4len-AF4
        mov esi, AF4
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AFC.:
        cmp [L2], 512
        je AFC.n
 
        cmp [sse3sup], 1
        je AFC.npal
 
AFC.npar:  ; paris
        mov [micron], 13
        Text 100,70,0x00000000,AFCs, AFCslen-AFCs
        mov esi, AFCs
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AFC.npal: ; palermo
        mov [micron], 9
        Text 100,70,0x00000000,AFCsp, AFCsplen-AFCsp
        mov esi, AFCsp
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AFC.n: ;newcastle
        mov [micron], 13
        Text 100,70,0x00000000,AFC, AFClen-AFC
        mov esi, AFC
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
AFE.:   ; error in cpu
        jmp AFC.
 
AFF.:
 
        cmp [sse3sup], 1
        je .AFFsse
 
.win:
        mov [micron], 9    ; winchester
        jmp MMXtest
 
.AFFsse:
        mov [micron], 9
        cmp [L2], 1024
        jz .AFs
        cmp [L2], 512
        jz .AFd
        cmp [L2], 256
        jz .AFp
 
.AFs:
        Text 100,70,0x00000000,AFS, AFSlen-AFS
        mov esi, AFS
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
.AFd:
        Text 100,70,0x00000000,AFV, AFVlen-AFV
        mov esi, AFV
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
 
.AFp:
        Text 100,70,0x00000000,AFCsp, AFCsplen-AFCsp
        mov esi, AFCsp
        mov edi, saveproc + 0x4
        call concatname
        jmp MMXtest
;-----------------------------------------------
Intel:
        mov [codeN], $1
        Text 75,70,0x00000000,Inteln, Intelnlen-Inteln
        mov esi, IntelnNew
        mov edi, saveproc
        call concatname
        mov     esi, intel
        call    load_gif
        PutImage 135,107,201,49,img_area+8
 
det:
        cmp [f], $5
        jz five
        cmp [f], $6
        jz six
        cmp [f], $7
        jz sev
        cmp [f], $F
        jz fift
five:        ;Family=5
 
        Text 15, 190,0x00000000,cache, cachelen-cache
 
        cmp [m],$0
        jz .I0
        cmp [m],$1
        jz .I1
        cmp [m],$2
        jz .I2
        cmp [m],$3
        jz .I3
        cmp [m],$4
        jz .I4
        cmp [m],$7
        jz .I7
        cmp [m],$8
        jz .I8
.I0:
        mov [cname], P50
        mov esi, P50
        mov edi, saveproc + 0x6
        call concatname
        mov [L1d], 8
        mov [L1i], 8
        mov [L2], 256
        mov [micron], 80
        jmp MMXtest
.I1:
        mov [cname], P5
        mov esi, P5
        mov edi, saveproc + 0x6
        call concatname
        mov [L1d], 8
        mov [L1i], 8
        mov [L2], 256
        mov [micron], 50
        jmp MMXtest
 
.I2:
        mov [cname], P54C
        mov esi, P54C
        mov edi, saveproc + 0x6
        call concatname
        mov [L1d], 8
        mov [L1i], 8
        mov [L2], 256
        mov [micron], 50
        jmp MMXtest
 
.I3:
        mov [cname], P54T
        mov esi, P54T
        mov edi, saveproc + 0x6
        call concatname
        mov [L1d], 8
        mov [L1i], 8
        mov [L2], 256
        mov [micron], 50
        jmp MMXtest
 
.I4:
        mov [cname], P55C
        mov esi, P55C
        mov edi, saveproc + 0x6
        call concatname
        mov [L1d], 8
        mov [L1i], 8
        mov [L2], 256
        mov [micron], 35
        jmp MMXtest
 
 
.I7:
        mov [cname], P54C
        mov esi, P54C
        mov edi, saveproc + 0x6
        call concatname
        mov [L1d], 8
        mov [L1i], 8
        mov [L2], 256
        mov [micron], 35
        jmp MMXtest
 
.I8:
        mov [cname], P55C
        mov esi, P55C
        mov edi, saveproc + 0x6
        call concatname
        mov [L1d], 16
        mov [L1i], 16
        mov [L2], 256
        mov [micron], 35
        jmp MMXtest
 
six:              ;Family=6
 
        Text 15, 190,0x00000000,cache, cachelen-cache
        cmp [newpc],$0
        jnz NEWintel
 
        cmp [m],$0
        jz .I60
        cmp [m],$1
        jz .I61
        cmp [m],$3
        jz .I63
        cmp [m],$5
        jz .I65
        cmp [m],$6
        jz .I66
        cmp [m],$7
        jz .I67
        cmp [m],$8
        jz .I68
        cmp [m],$9
        jz .I69
        cmp [m],$A
        jz .I6A
        cmp [m],$B
        jz .I6B
        cmp [m],$D
        jz .I6D
        cmp [m],$E
        jz .I6E
        cmp [m],$F
        jz .I6F
.I60:
        mov [micron], 50
        mov [cname], P60
        mov esi, P60
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I61:
        mov [micron], 35
        mov [cname], P61
        mov esi, P61
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I63:
        mov [micron], 28
        mov [cname], P63
        mov esi, P63
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I65:
        mov [micron], 25
        cmp [L2], 0
        jne .pp65  ; Pentium
        mov [cname], P65c
        mov esi, P65c
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.pp65:
        mov [cname], P65
        mov esi, P65
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.I66:
        mov [micron], 25
        mov [cname], P66
        mov esi, P66
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.I67:
        mov [micron], 25
        ;but if SSE4.1 supported then it is Intel Core (Penryn)
        mov [cname], P67
        mov esi, P67
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I68:
        mov [micron], 18
        cmp [L2], 128
        jne .pp68  ; Pentium
        mov [cname], P68c
        mov esi, P68c
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
 .pp68:
        mov [cname], P68
        mov esi, P68
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I69:
        mov [micron], 13
        mov [cname], P69
        mov esi, P69
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I6A:
        mov [micron], 18
        ;but if SSE4.2 supported then it is Intel Core (Nehalem)
        mov [cname], P6A
        mov esi, P6A
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I6B:
        mov [micron], 13
        cmp [L2], 256
        jne .pp6B  ; Pentium
        mov [cname], P6Bc
        mov esi, P6Bc
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.pp6B:
        mov [cname], P6B
        mov esi, P6B
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I6D:
        mov [micron], 9
        mov [cname], P6D
        mov esi, P6D
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I6E:
        mov [micron], 6
        mov [cname], P6E
        mov esi, P6E
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.I6F:
        mov [micron], 6
        mov [cname], P6F
        mov esi, P6F
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
;06Ex - Pentium M Yonah 0.065
;06Fx - Pentium D Conroe 0.065, Xeon Woodcrest, Celeron D AllenDale, Core 2 Kentsfield
 
NEWintel:
 
        cmp [em],$3A   ;IvyBridge
        jz I3A
        cmp [em],$2A   ;SandyBridge
        jz I2A
        cmp [em],$2D  ;SandyBridge-E/EN/EP
        jz I2D
        cmp [em],$25   ;Arrandale/Clarksdale
        jz I25
        cmp [em],$2C   ;Gulftown/Westmere-EP
        jz I2C        ;westmere-EP stepping B1 -> micron 0.032
        cmp [em],$2F   ;Westmere-EX
        jz I2F
        cmp [em],$1E   ;Clarksfield/Lynnfield/Jasper Forest
        jz I1E
        cmp [em],$1A   ;Bloomfield/Nehalem-EP
        jz I1A
        cmp [em],$2E   ;Nehalem-EX
        jz I2E
        cmp [em],$17   ;Yorkfield/Wolfdale/Penryn/Harpertown (DP)
        jz I17
        cmp [em],$1D   ;Dunnington (MP)
        jz I1D
        cmp [em],$0F   ;Clovertown/Kentsfield/Conroe/Merom/Woodcrest
        jz I0F
        cmp [em],$16   ;Merom Conroe
        jz I16
        cmp [em],$06   ;Cedar Mill/Presler
        jz I06
        cmp [em],$03   ;Nocona Irwindale / Prescott
        jz I03
        cmp [em],$04   ;NoconaIrwindale / Prescott
        jz I03
        cmp [em],$0D   ;Dothan
        jz I0D
        cmp [em],$36   ;Cedarview
        jz I36
        cmp [em],$26   ;Lincroft
        jz I26
        cmp [em],$1C   ;Pineview/Silverthorne
        jz I1C
        mov [cname], no_known
 
Inewunknown:
        jmp MMXtest
 
I3A:
        mov [micron], 32
        mov [cname], P3A
        mov esi, P3A
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I2A:
        mov [micron], 32
        mov [cname], P2A
        mov esi, P2A
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I2D:
        mov [micron], 32
        mov [cname], P2D
        mov esi, P2D
        mov edi,saveproc + 0x10
        call concatname
        jmp MMXtest
 
I25:
        mov [micron], 32
        mov [cname], P25  ;P25
        mov esi, P25
        mov edi, saveproc + 0x10  ;12
        call concatname
        jmp MMXtest
 
I2C:
        mov [micron], 32
        mov [cname], P2C
        mov esi, P2C
        mov edi,saveproc + 0x10
        call concatname
        jmp MMXtest
 
I2F:
        mov [micron], 32
        mov [cname], P2F
        mov esi, P2F
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I1E:
        mov [micron], 32
        mov [cname], P1E
        mov esi, P1E
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I1A:
        mov [micron], 45
        mov [cname], P1A
        mov esi, P1A
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I2E:
        mov [micron], 45
        mov [cname], P2E
        mov esi, P2E
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I17:
        mov [micron], 45
        mov [cname], P17
        mov esi, P17
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I1D:
        mov [micron], 45
        mov [cname], P1D
        mov esi, P1D
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I0F:
        mov [micron], 65
        mov [cname], P0F
        mov esi, P0F
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I16:
        mov [micron], 65
        mov [cname], P16
        mov esi, P16
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I06:
        mov [micron], 32
        mov [cname], P06
        mov esi, P06
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I03:
        mov [micron], 32
        mov [cname], P03
        mov esi, P03
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I0D:
        mov [micron], 32
        mov [cname], P0D
        mov esi, P0D
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I36:
        mov [micron], 32
        mov [cname], P36
        mov esi, P36
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I26:
        mov [micron], 32
        mov [cname], P26
        mov esi, P26
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
I1C:
        mov [micron], 32
        mov [cname], P1C
        mov esi, P1C
        mov edi, saveproc + 0x10
        call concatname
        jmp MMXtest
 
 
;;;;;;;;;;;;;;;;;;;
sev:    ;Family=7
.IS0:
 
        Text 15, 190,0x00000000,cache, cachelen-cache
        mov [micron], 18
        mov [cname], PS0
        mov esi, PS0
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
fift:    ;Family=15
 
        Text 15, 190,0x00000000,cacheP4, cacheP4len-cacheP4
 
        cmp [m],$0
        jz .IF0
        cmp [m],$1
        jz .IF1
        cmp [m],$2
        jz .IF2
        cmp [m],$3
        jz .IF3
        cmp [m],$4
        jz .IF3 ;identical to F3xh
        cmp [m],$5
        jz .IF5
        cmp [m],$6
        jz .IF6
        jmp next_generation
.IF0:
        mov [micron], 18
        cmp [L2], 128
        jne .ppF0  ; Pentium
        mov [cname], PF0c
        mov esi, PF0c
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.ppF0:
        mov [cname], PF0
        mov esi, PF0
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.IF1:
        mov [micron], 18
        cmp [L2], 128
        je .IF0;jne.ppF1  ; Pentium
        ;  mov   eax,dword 0x00000004
        ;  mov   ebx,115*65536+80
        ;  mov   ecx,dword 0x00000000
        ;  mov   edx,PF0c
        ;  mov   esi,PF0clen-PF0c
        ;  mcall
        ;jmp MMXtest
;.ppF1:
        mov [cname], PF0
        mov esi, PF0
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.IF2:
        mov [micron], 13
        cmp [L2], 128
        jne .ppF2  ; Pentium
        mov [cname], PF2c
        mov esi, PF2c
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.ppF2:
        mov [cname], PF2
        mov esi, PF2
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.IF3:
        mov [micron], 09
        cmp [L2], 256
        jne .ppF3  ; Pentium
        mov [cname], PF3c
        mov esi, PF3c
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.ppF3:
        mov [cname], PF3
        mov esi, PF3
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.IF5:
        mov [micron], 09
        cmp [L2], 512
        jae .ppF5  ; Pentium
        mov [cname], PF5c
        mov esi, PF5c
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.ppF5:
        mov [cname], PF5
        mov esi, PF5
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
 .IF6:
        mov [micron], 06  ; 065
        cmp [L2], 512
        ja .ppF6  ; Pentium
        mov [cname], PF6c
        mov esi, PF6c
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.ppF6:
        mov [cname], PF6
        mov esi, PF6
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
 
 next_generation:
        mov [cname], NG
        mov esi, NG
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
;----------------------------------
Cyrix:
 
        mov [codeN], 3
        Text 15, 190,0x00000000,cache, cachelen-cache
 
        mov     esi, cyrix
        call    load_gif
        PutImage 135,107,201,49,img_area+8
 
 
        cmp [f], $5
        jz .fivv
        cmp [f], $6
        jz .sixx
.fivv:    ;Family=5
        cmp [m],$2
        jz .C52
        cmp [m],$4
        jz .C54
.C52:
        mov [micron], 50 ;35?
        mov [L1i], 8
        mov [L1d], 8
        mov [L2], 512
        Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn
        mov esi, Cyrixn
        mov edi, saveproc
        call concatname
        mov [cname], C52
        mov esi, C52
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.C54:
        mov [micron], 50
        mov [L1i], 8
        mov [L1d], 8
        mov [L2], 512
        Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn
        mov esi, Cyrixn
        mov edi, saveproc
        call concatname
        mov [cname], C54
        mov esi, C54
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
 
.sixx:     ;Family=6
       cmp [m],$0
       jz .C60
       cmp [m],$5
       jz .C65
.C60:
        mov [micron], 25
        mov [L1i], 32
        mov [L1d], 32
        mov [L2], 512
        Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn
        mov esi, Cyrixn
        mov edi, saveproc
        call concatname
        mov [cname], C60
        mov esi, C60
        mov edi, saveproc + 0x6
        call concatname
        jmp MMXtest
.C65:
        mov [micron], 25 ;35?
        mov [L1i], 32
        mov [L1d], 32
        mov [L2], 512
        Text 75,70,0x00000000,Centaurn, Centaurnlen-Centaurn
        mov esi, Centaurn
        mov edi, saveproc
        call concatname
        mov edx,C65
        mov esi,C65len-C65
        jmp OutProcName
;---------------------
Centaur:
 
        Text 15, 190,0x00000000,cache, cachelen-cache
 
;CACHE1:
        mov eax, 80000005h
                cpuid
        shr ecx, 24
        mov [L1d], ecx
        shr edx, 24
        mov [L1i], edx
 
; cache detection routine
;CACHE1:
        mov eax, 80000005h
                cpuid
 
        movzx eax, cl
        mov [lineld], eax
 
        mov eax, ecx
        shr eax, 16
        and eax,000000FFh
        mov [wayld], eax
 
        shr ecx, 24
        mov [L1d], ecx
 
        movzx eax, dl
        mov [lineli], eax
 
        mov eax, edx
 
        shr eax, 16
        and eax,000000FFh
        mov [wayli], eax
 
        shr edx, 24
        mov [L1i], edx
 
 
;CACHE2:
        mov eax, 80000006h
        cpuid
 
        cmp [f], $6
        jz vn
        jmp vl2old      ; if not then old identification
vn:
        cmp [m],$9
        jl vl2old
        ; else  new
        movzx eax, cl
        mov dword[linel2], eax
 
        mov eax, ecx
        shl eax, 16
        shr eax, 28
 
        mov dword[wayl2], eax
 
        shr ecx, 16  ; it is 16 bits now
        mov [L2],ecx
 
 
 
vl2old:
        movzx eax, cl
        mov dword[linel2], eax
 
        mov eax, ecx
        shl eax, 8
        shr eax, 24
 
        mov dword[wayl2], eax
 
        shr ecx, 24  ; it was 8 bits earlier
        mov [L2],ecx
 
 
        cmp [f], $5
        jz fivC
        cmp [f], $6
        jz sixC
 
fivC:              ;Family=5
 
        mov     esi, idt
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        ;PutImage 125,107,201,49,img_area+8
        ;         place   size
 
        Text 75,70,0x00000000,IDTn, IDTnlen-IDTn
        mov esi, IDTn
        mov edi, saveproc + 0x4
        call concatname
        cmp [m],$4
        jz .V54
        cmp [m],$8
        jz .V58
        cmp [m],$9
        jz .V59
.V54:
        mov [micron], 35
        mov edx,V54
        mov esi,V54len-V54
        jmp OutProcName
.V58:
        mov [micron], 25
        mov edx,V58
        mov esi,V58len-V58
        jmp OutProcName
.V59:
        mov [micron], 25
        mov edx,V59
        mov esi,V59len-V59
        jmp OutProcName
 
sixC:   ;Family=6
 
        mov     esi, via
        call    load_gif
        PutImage 135,107,201,49,img_area+8
 
 
        Text 75,70,0x00000000,Centaurn, Centaurnlen-Centaurn
        mov esi, Centaurn
        mov edi, saveproc
        call concatname
        cmp [m],$6
        jz .V66
        cmp [m],$7
        jz .V67
        cmp [m],$8
        jz .V68
        cmp [m],$9
        jz .V69
        cmp [m],$A
        jz .V6A
.V66:
        mov [micron], 18 ; 25?
        mov edx,V66
        mov esi,V66len-V66
        jmp OutProcName
.V67:
        mov [micron], 15
        mov edx,V67
        mov esi,V67len-V67
        jmp OutProcName
.V68:
        mov [micron], 13
        mov edx,V68
        mov esi,V68len-V68
        jmp OutProcName
.V69:
        mov [micron], 13
        mov edx,V69
        mov esi,V69len-V69
        jmp OutProcName
.V6A:
        mov [micron], 9
        mov edx,VA
        mov esi,VAlen-VA
        jmp OutProcName
;-----------
Transmeta:
 
        Text 15, 190,0x00000000,cache, cachelen-cache
 
        Text 75,70,,Tranmsmetan, Tranmsmetanlen-Tranmsmetan
        mov esi, Tranmsmetan
        mov edi, saveproc
        call concatname
 
        mov     esi, transmeta
        call    load_gif
        PutImage 135,107,201,49,img_area+8
 
; cache detection routine - it is the same as for AMD (almost)
;CACHE1:
        mov eax, 80000005h
        cpuid
 
        movzx eax, cl
        mov [lineld], eax
 
        mov eax, ecx
 
        shr eax,16
        and eax,000000FFh
        mov [wayld], eax
 
        shr ecx, 24
        mov [L1d], ecx
 
        movzx eax, dl
        mov [lineli], eax
 
        mov eax, edx
 
        shr eax, 16
        and eax,000000FFh
        mov [wayli], eax
 
        shr edx, 24
        mov [L1i], edx
 
 
;CACHE2:
        mov eax, 80000006h
        cpuid
 
        movzx eax, cl
        mov dword[linel2], eax
 
        mov eax, ecx
        shl eax, 16
        shr eax, 28
 
        mov dword[wayl2], eax
 
        shr ecx, 16
        mov [L2],ecx
 
 
        cmp [f], $5
        jz .fivt
        cmp [f], $F
        jz .fift
.fivt:    ;     Family=5
 
        mov edx,T5
        mov esi,T5len-T5
        jmp @f
 
.fift:    ;     Family=F
        mov edx,TF
        mov esi,TFlen-TF
@@:
        mov [micron], 13 ;
        Text 140,70,0
        jmp MMXtest
 
OutProcName:
        Text    100,70,0
 
;----
;---------------------------------- new
Vortex:
 
        Text 15, 190,0x00000000,cache, cachelen-cache
 
        mov     esi, vortex
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        ;PutImage 130,127,201,49,img_area+8
        ;         place   size
 
        cmp [f], $5
        jz .V54 ;fivvtx
;.fivvtx:         ;Family=5
;       cmp [m],$4
;       jz .V54
.V54:
        mov [micron], 13
        mov [L1i], 16
        mov [L1d], 16
        mov [L2], 256
        mov [wayl2], 4
        mov [wayli], 4
        mov [wayld], 4
        Text 75,70,0x00000000,Vortexn, Vortexnlen-Vortexn
        mov esi, Vortexn
        mov edi, saveproc
        call concatname
        jmp MMXtest
 
;---------------------
 
 
 
MMXtest:             ; MMX test and Brand ID decoding
 
        call decodebrand  ; get Brand ID
 
        call decode_standard_features
 
        call decode_extended_features
 
        xor eax,eax
        inc eax
        cpuid
HTTtest:
        test  edx, $10000000; ;Test bit 28
        jz .ELN
 
.EL:   ;HTT technology is supported
        and ebx,00FF0000h ; numbers of logical processors
        cmp ebx, 1 shl 16
        ;   mov [number_of_log_cpus], ebx
        je .ELN  ; HHT not enabled (Celeron)
 
        mov  dword [HTTn+9], $736579
        mov  dword [HTT+ 6], $736579
        jmp TEXTOUT
.ELN:
 
        mov  dword [HTTn+ 9],  $6F6E
        mov  dword [HTT+ 6],  $6F6E
 
TEXTOUT:
 
        Text 275,290,0x00000000,HTT, HTTlen-HTT
        Text 275,310,,sse3, sse3len-sse3
        Text 15,290,,MMXs, MMXslen-MMXs
        Text 15,310,,SSE, SSElen-SSE
        Text 95,310,,SSE2, SSE2len-SSE2
 
;-------------------
TEST3DNOW:
 
        xor edx, edx
        cmp [smallvendor], 'ntel'
        ;  je @f  ;recent change
        jne .t
 
.t:
 
        mov   eax, $80000001 ;// Setup extended function 8000_0001h
        cpuid
 
        test  edx, $80000000 ;// Test bit 31
        jnz   .XIT
 
.NOEXTENDED: ;// 3DNow! technology is supported
        mov  dword [now+ 9], $6F6E
        jmp TEST3DNOWP
.XIT:
        mov  dword [now+ 9],  $736579
        jmp TEST3DNOWP
 
TEST3DNOWP:
 
        cmp [smallvendor], 'ntel'
        je .NOEXTENDEDP
 
.tp:
 
        mov   eax, $80000001 ;// Setup extended function 8000_0001h
        cpuid
 
        test    edx, $40000000 ;// Test bit 30
        jnz   .XITP  ;// 3DNow! technology is supported
 
.NOEXTENDEDP:
        mov  dword [nowp+ 9], $6F6E
        jmp TESTMMXP
.XITP:
        mov  dword [nowp+ 9],  $736579
        jmp TESTMMXP
 
 
TESTMMXP:
 
        mov   eax,$80000000
        cpuid
 
        test eax, 80000000h
        jna NOEXTENDEDM
 
        ;cmp   eax, $80000000 ;// Is 800_0001h supported?
        ;jz   .NOEXTENDEDM    ;// If not, 3DNow! technology is not supported
        mov   eax, $80000001 ;// Setup extended function 8000_0001h
        cpuid
        cmp [smallvendor], 'tead'
        jne noCyr
Cyrmx:
        test  edx, $01000000 ;// Test bit 24
        jnz   XITM  ;// 3DNow! technology is supported
        jz NOEXTENDEDM
noCyr:
        test  edx, $00400000 ;// Test bit 22
        jnz   XITM  ;// 3DNow! technology is supported
        ;jz   .NOEXTENDEDM
 
NOEXTENDEDM:
        mov  dword [mmxp+ 7], $6F6E
        mov  dword [MMXPi+ 8], $6F6E
        jmp text3d
XITM:
        mov  dword [mmxp+ 7],  $736579
        mov  dword [MMXPi+ 8],  $736579
 
text3d:
 
        Text 15,330,0x00000000,now, nowlen-now
        Text 95,330,,nowp, nowplen-nowp
        Text 95,290,,mmxp, mmxplen-mmxp
        Text 110,70,0x80000000,dword[cname]
 
        jmp still
 
;--------------------------
NO_CPUID:
        mov [nocpuid], 1
        Text 15,50,0x00000000,oblom, oblomlen-oblom
 
FREEZE:
        nop
        jmp FREEZE ; maybe we should close application or just made some Warning and jump to still:
;----------------
still:
 
; waiting for events
event_wait:
 
        mov     eax,23       ; function 23 - event wait
        mov     ebx,50       ; wait for 0.5 second
        mcall
 
        cmp  eax,1              ;
        je       red            ;  redraw
        cmp  eax,2              ;
        je       key            ;  key
        cmp  eax,3              ;
        je       button         ;  button
        jmp  still              ;
  key:                  ;
        mcall           ;
        jmp  still              ;
  button:               ;
        mov  eax,17     ;
        mcall           ;
        cmp  ah,1               ;  = 1 ?
        je      close           ; close
 
        cmp  ah,2               ;  = 2 ?
        je      thread_start    ;
 
        cmp  ah, 3
        je call_OpenDialog
 
         mov    eax,11       ; function 23 - event wait
        mov  ebx,1
        mcall
 
        mov  eax,15       ; function 23 - event wait
        mov  ebx,3
        mcall
 
;    cmp  ah,3          ;  = 3 ?
        jne  still
 
close:
        mov   eax,-1
        mcall
 
;**************************** THREAD-SECOND WINDOW
thread_start:
 
        cmp  [num_win2],0
        jne  still
 
;================================================RSA test
 
;test rsa coding speed
        call    init_test
;length of module - 256 bit
        mov  eax,26
        mov  ebx,9
        mcall
        add  eax,100 ;test lasts 1 second.
        push eax
.loop:
        push 4     ;do 4 iterations - this reduces number of calls mcall.
.loop1:
        call rsa_test   ;this procedure change all registers
        dec  dword [esp]
        jnz  .loop1
        pop  ecx
        mov  eax,26
        mov  ebx,9
        mcall
        cmp  eax,dword [esp]   ;Is time changed?
        jl   .loop
        pop  eax
        shr  dword [iter],4 ;[iter] - speed in Kb/sec. (every iteration codes 64 bytes)
        CreateTread window_2,thread2_esp
        jmp  still
 
window_2:
        mov  [num_win2],1
        call draw_window_2
 
still_2:
 
        mov  eax,10
        mcall
 
        cmp  eax,1
        je       window_2       ;  window_2
        cmp  eax,2              ;
        je       key_2          ;  key_2
        cmp  eax,3              ;
        je       button_2       ;  button_2
 
        jmp  still_2    ;
 
  key_2:                ;
        mcall           ;
        jmp  still_2    ;
 
  button_2:             ;
        mov  eax,17     ; 17
        mcall           ;
 
        cmp  ah,1               ; = 1 ?
        jne  still_2    ; noclose
 
        mov  [num_win2],0       ;
 
        or       eax,-1         ;
        mcall
 
 
draw_window_2:
 
        ;call prepare_text_area
 
        mov  eax,12                ; function 12:tell os about windowdraw
        mov  ebx,1h                 ; 1, start of draw
        mcall
 
 
        Window 250,250,420,520, 0x33FFFFFF, 0x805080d0, standard  ;460
        ; place size
 
 
        Text 15, 10,0x00000000, STDCA, STDCAlen-STDCA
        Text 215, 10,, EXTCA, EXTCAlen-EXTCA
 
        Text 15, 30,0x00000000, FPU, FPUlen-FPU
        Text 115, 30,, VME, VMElen-VME
        Text 215, 30,, DE,  DElen-DE
        Text 315, 30,, PSE, PSElen-PSE
 
        Text 15, 50,,TSC, TSClen-TSC
        Text 115,50,,MSR, MSRlen-MSR
        Text 215,50,,PAE, PAElen-PAE
        Text 315,50,,MCE, MCElen-MCE
 
        Text 15,70,,CX8, CX8len-CX8
        Text 115,70,,APIC, APIClen-APIC
        Text 215,70,,Res, Reslen-Res
        Text 315,70,,SEP, SEPlen-SEP
 
        Text 15,90,,MTRR, MTRRlen-MTRR
        Text 115,90,,PGE, PGElen-PGE
        Text 215,90,,MCA, MCAlen-MCA
        Text 315,90,,CMOV, CMOVlen-CMOV
 
        Text 15,110,,PAT, PATlen-PAT
        Text 115,110,,PSE36, PSE36len-PSE36
        Text 215,110,,PSNUM, PSNUMlen-PSNUM
        Text 315,110,,CLFLUSHn, CLFLUSHnlen-CLFLUSHn
 
        Text 15,130,,Res, Reslen-Res
        Text 115,130,,DTS, DTSlen-DTS
        Text 215,130,,ACPI, ACPIlen-ACPI
        Text 315,130,,MMX, MMXlen-MMX
 
        Text 15,150,,FXSR, FXSRlen-FXSR
        Text 115,150,,SSE, SSElen-SSE
        Text  215,150,,SSE2, SSE2len-SSE2
        Text 315,150,,SSn, SSnlen-SSn
 
        Text 15,170,,HTT, HTTnlen-HTTn
        Text 115,170,,TM, TMlen-TM
        Text 215,170,,IA64, IA64len-IA64
        Text 315,170,,PBE, PBElen-PBE
        ;---------------
        DrawLine 0,  410, 185,185,0x8080FF  ;10
 
        mov   eax,$80000000
        cpuid
        ;mov eax, $03020101  \A0for test of reaction
        test eax, eax
        js  goooddd
 
baaadd:
        Text 95,235,0x00000000,NEF, NEFlen-NEF
        jmp too
 
goooddd:
        Text 15,195,0x00000000,SS3, SS3len-SS3
        Text 15,215,,MON, MONlen-MON
        Text 15,235,,DS_CPL, DS_CPLlen-DS_CPL
        Text 15,255,,EST, ESTlen-EST
        Text 15,275,,TM2, TM2len-TM2
        Text 15,295,,VMX, VMXlen-VMX
        Text 15,315,,SVM, SVMlen-SVM
 
        Text 15,355,0x00000000,SMX, SMXlen-SMX
        Text 15,335,0x00000000,PAGE, PAGElen-PAGE
        Text 15,375,0x00000000,MIS, MISlen-MIS
        Text 115,355,0x00000000,WDT, WDTlen-WDT
 
        Text 115,195,,CNXT_ID, CNXT_IDlen-CNXT_ID
        Text 115,215,,CX16, CX16len-CX16
        Text 115,235,,ETPRD, ETPRDlen-ETPRD
        Text 115,255,,SYS, SYSlen-SYS
        Text 115,275,,LAF, LAFlen-LAF
        Text 115,295,,SSSE3, SSSE3len-SSSE3
        Text 115,315,,MCR8, MCR8len-MCR8
 
 
        Text 115,335,0x00000000,EAS, EASlen-EAS
 
        Text 115,375,0x00000000,DNP, DNPlen-DNP
 
 
        Text 315,375,0x00000000,SSE5, SSE5len-SSE5
 
        Text 215,195,,MP, MPlen-MP
        Text 215,215,,NX, NXlen-NX
        Text 215,235,,MMXPi, MMXPilen-MMXPi
        Text 215,255,,MMXn, MMXnlen-MMXn
        Text 215,275,,FXSRn, FXSRnlen-FXSRn
        Text 215,295,,DCA,DCAlen-DCA
 
        Text 315,295,0x00000000,SSE41,SSE41len-SSE41
        Text 215,335,0x00000000,x2APIC,x2APIClen-x2APIC
        Text 215,355,0x00000000,ABM,ABMlen-ABM
        Text 215,375,0x00000000,OSVW,OSVWlen-OSVW
 
        Text 315,195,,FFXSR, FFXSRlen-FFXSR
        Text 315,215,,TSCP, TSCPlen-TSCP
        Text 315,235,,LM, LMlen-LM
        Text 315,255,,DNo, DNolen-DNo
        Text 315,275,,DN, DNlen-DN
        Text 215,315,,CMPL, CMPLlen-CMPL
        Text 315,315,0x00000000,SS42,SS42len-SS42
        Text 315,335,0x00000000,PPCNT,PPCNTlen-PPCNT
        Text 315,295,0x00000000,SSE4A,SSE4Alen-SSE4A
        Text 315,355,0x00000000,SKINIT_,SKINIT_len-SKINIT_
 
too:
        DrawLine 10,  400, 430,430,0x8080FF  ;10
 
        Text 15,415,0x00000000,speed, speedlen-speed
        Text 130,415,,kbpersec, kbperseclen-kbpersec
 
        DrawLine 10, 80, 400, 400, 0x8080FF
 
        Text 90,400,0x80000000,performancestr, 0
        DrawLine 322, 400, 400, 400, 0x8080FF
        DrawLine 10, 10, 400, 490, 0x8080FF
        DrawLine 400, 400, 400, 490, 0x8080FF
 
        DrawLine 10, 400, 490, 490, 0x8080FF
 
          ; your proc
        Text 20,415,0x808080FF,currentcpu, 0
        Number 170,415,0,5,dword [iter],0x000000       ; + 15
        ;Text 115,370,,kbpersec, kbperseclen-kbpersec  ;+ 355
        mov eax, dword[iter]
        ;mov ebx, 100
        ;mul ebx
        add eax, 215
        mov word[linelen], ax   ; need to store it as drawline corrupts eax
        DrawLine 215,  [linelen], 416,416,0x8080FF  ;10 + 355 , 357
        DrawLine 215,  [linelen], 417,417,0x8080FF  ;10
        DrawLine 215,  [linelen], 418,418,0x8080FF  ;10
;;;     DrawLine 20,  390, 371,371,0x8080FF  ;10
 
        ; sample proc 1
        Text 20,435,0x80000000,samplename1,0       ; 10 + 40 + 40 +40 + 380
        Number 170,435,0,5,dword [samplespeed1],0x000000;   ; 25 + 40 + 40 +40 + 380
        ;Text 115,470,0,kbpersec, kbperseclen-kbpersec  ; 25 + 40 + 40 +40 + 380
        mov eax, dword[samplespeed1]
        add eax, 215
        mov dword[linelen], eax   ; need to store it as drawline corrupts eax
        DrawLine 215,  [linelen], 436,436,0x8080FF  ;27+40 + 40 +40  + 380
        DrawLine 215,  [linelen], 437,437,0x8080FF  ;10
        DrawLine 215,  [linelen], 438,438,0x8080FF  ;10
 
        ; sample proc 2
        Text 20,455,0x80000000,samplename2,0     ; 10 + 40 + 350
        Number 170,455,0,5,dword [samplespeed2],0x000000;   ; 25 + 40 + 350
        ;Text 115,410,0,kbpersec, kbperseclen-kbpersec  ; 25 + 40 + 350
        mov eax, dword[samplespeed2]
        add eax, 215
        mov dword[linelen], eax   ; need to store it as drawline corrupts eax
        DrawLine 215,  [linelen], 456,456,0x8080FF  ;27+40 + 355
        DrawLine 215,  [linelen], 457,457,0x8080FF  ;10
        DrawLine 215,  [linelen], 458,458,0x8080FF  ;10
 
           ; sample proc 3
        Text 20,475,0x80000000,samplename3,0     ; 10 + 40 + 40 + 38
        Number 170,475,0,5,dword [samplespeed3],0x000000;   ; 25 + 40 + 40 + 355
        ;Text 115,440,0,kbpersec, kbperseclen-kbpersec  ; 25 + 40 + 40 + 380
        mov eax, dword[samplespeed3]
        add eax, 215
        mov dword[linelen], eax   ; need to store it as drawline corrupts eax
        DrawLine 215,  [linelen], 476,476,0x8080FF  ;27+40 + 40
        DrawLine 215,  [linelen], 477,477,0x8080FF  ;10
        DrawLine 215,  [linelen], 478,478,0x8080FF  ;10
 
        mov  eax,12
        mov  ebx,2h
        mcall
 
        ret
 
linelen  dd 0
currentcpu db 'Current CPU',0
samplename1 db 'Intel Core i5 CPU', 0x000000    ; not real results!
samplespeed1 dd 62
samplename2 db 'Intel Core i3 CPU', 0
samplespeed2 dd 48
samplename3 db 'Intel Pentium Dual CPU', 0
samplespeed3 dd 35
performancestr db 'PERFORMANCE (KB/S in RSA test 256 bit)',0
ptsstring db ''
num_win2 db 0
 
draw_window:
        mcall SF_REDRAW, SSF_BEGIN_DRAW
 
        Window 150, 150, 350, 405, 0x34FFFFFF, 0x805080d0, title
 
        mov   esi, [sc.work_button]
        DefineButton 138, 345, 92, 24, 2,
        DefineButton 238, 345, 92, 24, 3,
 
        mov   ecx, [sc.work_button_text]
        or    ecx, 0x90000000
        mov   edx, btn_more_cap
        mcall SF_DRAW_TEXT, (138 + (92 - 7 * 8) / 2) shl 16 + 350
        mov   edx, btn_save_cap
        mcall SF_DRAW_TEXT, (238 + (92 - 4 * 8) / 2) shl 16 + 350
 
        Text 130,270,0x00000000,instruct, instructlen-instruct
        DrawLine  10,  330, 340,340,0x8080FF
        DrawLine 330,  330, 275,340;,0x8080FF
        DrawLine  10,   10, 275,340;,0x8080FF
        DrawLine  10,  125, 275,275;,0x8080FF
        DrawLine 230,  330, 275,275;,0x8080FF
 
        cmp dword[smallvendor], 'cAMD'
        jne cont
        cmp [f], $6
        jne cont
 
;       Button 240,85,69,15,3,0x030000FF  ;  button for rating
;       Text 245,90,0x00FFFFFF,FR, FRlen-FR ; text at button
 
        call newrating; !!!!
 
cont:
        ;Number 82,50,0,4,dword [total],0x000000; MHz
        mov esi, total
        mov edi, tsum + 0xB  ;0xA
        call savenumber
 
        ;Number 110,50,0,2,dword [sot]; KHz
        mov esi, sot
        mov edi, tsum + 0x10
        call savenumber
 
        ;Number 75,110,1*256,1,dword [f],0x000000 ;
        mov esi, f
        mov edi, fam + 0x8     ;0x9
        call savenumber
 
        ;Number 75,130,,,dword [m]
        mov esi, m
        mov edi, mode + 0x7
        call savenumber
 
        ;Number 75,150,,,dword [s]
        mov esi, s
        mov edi, step + 0xa   ;0x9
        call savenumber
 
        ;Number 110,110,1*256,2,dword [ef]
        mov esi, ef
        mov edi, fam + 0xE    ;0x9
        call savenumber
 
        ;Number 110,130,,,dword [em]
        mov esi, em
        mov edi, mode + 0xE   ;0xD
        call savenumber
 
        mov esi, multb
        mov edi, multil + 0xB
        call savenumber
 
        ;Number 105,30,0,1,dword [multa]
        mov esi, multa
        mov edi, multil + 0xf
        call savenumber
 
        ;Number 140,170,0,2,dword [wayld],0x000000
        mov esi, wayld
        mov edi, cache2 + 0x14   ;0x14
        call savenumber
 
        ;Number 218,170,,,dword [lineld]
        mov esi, lineld
        mov edi, cache2 + 0x21
        call savenumber
 
        ;Number 140,190,,,dword [wayli]
        mov esi, wayli
        mov edi, cache + 0x14
        call savenumber
        ;Number 218,190,,,dword [lineli]
        mov esi, lineli
        mov edi, cache + 0x21
        call savenumber
 
        ;Number 140,210,,,dword [wayl2]
        mov esi, wayl2
        mov edi, cache3 + 0x14
        call savenumber
        ;Number 218,210,,,dword [linel2]
        mov esi, linel2
        mov edi, cache3 + 0x21
        call savenumber
 
        ;Number 140,230,,,dword [wayl3]
        mov esi, wayl3
        mov edi, cache4 + 0x14
        call savenumber
        ;Number 218,230,,,dword [linel3]
        mov esi, linel3
        mov edi, cache4 + 0x21
        call savenumber
 
        mov esi, L1d
        mov edi, cache2 + 0xa
        call savenumber
 
        ;Number 75,190,,,dword [ L1i]
        mov esi, L1i
        mov edi, cache + 0xa
        call savenumber
 
        ;Number 41,210,0,4,dword[L2]
        mov esi, L2
        mov edi, cache3 + 0x4    ;0x3
        call savenumber
 
        ;Number 35,230,0,5,dword[L3]
        mov esi, L3
        mov edi, cache4 + 0x4   ;0x3
        call savenumber
 
        ;-----------Features
        ;Number 258,50,0,2,dword [micron]  ; micron
        mov esi, micron
        mov edi, tech + 0xE
        call savenumber
 
        mov esi, stdc
        mov edi, STDCA + 0x14
        call savenumber
 
        ;Number 335,10,,,dword [extc],
        mov esi, extc
        mov edi, EXTCA + 0x14
        call savenumber
 
        Text 15,90,,cpuname, cpunamelen-cpuname;
        Text 255,250,,typen, typenlen-typen
        Text 175, 50,,tech, techlen-tech;
 
   red2:
 
    ;;;;;;;;;;;;;;;;;;;;;;;;
    goon:
 
        call decodebrand
 
   typedetect:
        mov     edx, t1
        cmp     [t], 00b
        jz      @f
        mov     edx, t2
        cmp     [t], 01b
        jz      @f
        mov     edx, t3
        cmp     [t], 11b
        jz      @f
        mov     edx, t4
@@:
        mov     ebx, 290*65536 + 250
        mov     ecx, 0x80000000
        mcall   4
 
        Text 15,250,,brandid, brandidlen-brandid
 
        Text 15,50,0x00000000,tsum, tsumlen-tsum
        Text 15,110,0x00000000,fam, famlen-fam
        Text 15,130,0x00000000,mode, modelen-mode
        Text 15,150,0x00000000,step, steplen-step
 
        Text 275,290,0x00000000,HTT, HTTlen-HTT
        Text 275,310,,sse3, sse3len-sse3
 
        Text 175,290,0x00000000,SSE41, SSE41len-SSE41
        Text 175,310,0x00000000,SSE42, SSE42len-SSE42
        Text 175,330,0x00000000,SSE5, SSE5len-SSE5
 
 
        Text 15,70,,name, namelen-name
        Text 15,290,,MMXs, MMXslen-MMXs
        Text 15,310,,SSE, SSElen-SSE
        Text 95,310,,SSE2, SSE2len-SSE2
 
        Text 95,290,,mmxp, mmxplen-mmxp
        Text 15,330,0x00000000,now, nowlen-now
        Text 95,330,,nowp, nowplen-nowp
 
        Text 15, 190,0x00000000,cache, cachelen-cache
        Text 15,170,0x00000000,cache2, cache2len-cache2
        Text 15,210,,cache3, cache3len-cache3
        Text 15,230,,cache4, cache4len-cache4
        call    load_gif
 
        cmp [nomultiplier], $1
        je nomultip
        Text   15,30,0x00000000,multil2, multil2len-multil2
        Text   175,30,0x00000000,freql2, freql2len-freql2
        Number 85,30,0,2,dword [multb],0x000000;
        Number 105,30,0,1,dword [multa]
        Number 259,30,0,4,dword [freqbb]
        Number 289,30,0,2,dword [freqll]
 
JumpForCodename:
        cmp [codeN], $1
        je codeNIntel
        cmp [codeN], $2
        je codeNAMD
        cmp [codeN], $3
        je codeNCyrix
        cmp [codeN], $4
        je codeNCentaur
        cmp [codeN],$5
        je codeNTransmeta
        cmp [codeN], $6
        je codeNVortex
        jmp nnn
 
codeNIntel:
        Text 75,70,0x00000000,Inteln, Intelnlen-Inteln
        mov     esi, intel
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        jmp nnn
 
codeNAMD:
        Text 75,70,,AMDn, AMDnlen-AMDn
        mov     esi, amd
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        jmp nnn
 
codeNCyrix:
        Text 75,70,0x00000000,Cyrixn, Cyrixnlen-Cyrixn
        mov     esi, cyrix
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        jmp nnn
 
codeNCentaur:
        Text 75,70,0x00000000,IDTn, IDTnlen-IDTn
        mov     esi, idt
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        jmp nnn
 
codeNTransmeta:
        Text 75,70,,Tranmsmetan, Tranmsmetanlen-Tranmsmetan
        mov     esi, transmeta
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        jmp nnn
 
codeNVortex:
        Text 75,70,0x00000000,Vortexn, Vortexnlen-Vortexn
        mov     esi, vortex
        call    load_gif
        PutImage 135,107,201,49,img_area+8
        jmp nnn
 
nomultip:
        Text   15,30,0x00000000,multi3, multi3len-multi3
        Text   175,30,0x00000000,freql3, freql3len-freql3
        Text 259,30,0x00000000, clock0, clock0len-clock0
 
        jmp JumpForCodename
 
 nnn:
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
        Text 15,10,0x00000000,stm, stmlen-stm
        ;  Fix for deleting leading whitespaces
        ;  in Intel P4's internal name
        ;  by Madis Calme
        ;  23.12.2004 ver. 0.81
        cld
        mov  edi,myname
        mov  al,20h
        or       ecx,-1
        repe scasb
        dec  edi
        mov  esi,mynamelen
        sub  esi,edi
        Text 105, 10, 0x00000000, edi, esi
;-
        Text 15,250,,brandid, brandidlen-brandid
 
        mcall SF_REDRAW, SSF_END_DRAW
 
        ret             ;
 
call_OpenDialog:
 
        mov     [OpenDialog_data.type],1            ; Save
 
        push    dword OpenDialog_data
        call    [OpenDialog_Start]
 
        cmp     [OpenDialog_data.status],2          ; OpenDialog does not start
        je          .save_file_default_path
 
        cmp     [OpenDialog_data.status],1
        jne     still
 
        call    store_data
        jmp     still
 
.save_file_default_path:
         mov     edi,file_name
         mov     esi,file_default_path
         call    copy_file_name_path
         call    store_data
         jmp     still
 
copy_file_name_path:
        xor     eax,eax
        cld
@@:
        lodsb
        stosb
        test    eax,eax
        jnz     @r
        ret
 
;-----------------------------------------------------------------------------
prepare_text_area:
        mov     edi,[store_text_area_start]
 
        push    edi
        mov     ecx,4096
        mov     eax,dword '    '
        cld
        rep     stosd
        pop     edi
        mov     [store_text_area_end], edi
 
        mov esi,title
        call addstring
 
        mov esi, stm
        call addstring
 
        mov esi, myname
        call addstring
 
        cmp [nomultiplier], $1
        je noMult
        jne detMulti
         ;jne detFreq
 
        detMulti:
        mov esi,multil
        call addstring
        jmp detFreq
 
        detFreq:
        mov esi, freql
        call addstring
 
        noMult:
        mov esi,multi3
        call addstring
 
        mov esi,freql3
        call addstring
 
        mov esi, tech
        call addstring
 
        mov esi, saveproc
        call addstring
 
        mov esi, cpuname
        call addstring
 
        mov esi, fam
        call addstring
 
        mov esi, mode
        call addstring
 
        mov esi, step
        call addstring
 
        mov esi, cache2
        call addstring
 
        mov esi, cache
        call addstring
 
        mov esi, cache3
        call addstring
 
        mov esi, cache4
        call addstring
 
        mov esi, brandid
        call addstring
 
        mov esi, MMXs
        call addstring
 
        mov esi, mmxp
        call addstring
 
        mov esi, now
        call addstring
 
        mov esi, HTT
        call addstring
 
        mov esi, SSE
        call addstring
 
        mov esi, SSE41
        call addstring
 
        mov esi, SSE42
        call addstring
 
        mov esi, SSE5
        call addstring
 
        mov esi, SSE2
        call addstring
 
        mov esi, nowp
        call addstring
 
        mov esi, sse3
        call addstring
 
        mov esi, standard
        call addstring
 
        mov esi, STDCA
        call addstring
 
        mov esi, EXTCA
        call addstring
 
        mov esi, FPU
        call addstring
 
        mov esi, VME
        call addstring
 
        mov esi, DE
        call addstring
 
        mov esi, PSE
        call addstring
 
        mov esi, TSC
        call addstring
 
        mov esi, MSR
        call addstring
 
        mov esi, PAE
        call addstring
 
        mov esi, MCE
        call addstring
 
        mov esi, CX8
        call addstring
 
        mov esi, APIC
        call addstring
 
        mov esi, Res
        call addstring
 
        mov esi, SEP
        call addstring
 
        mov esi, MTRR
        call addstring
 
        mov esi, PGE
        call addstring
 
        mov esi, MCA
        call addstring
 
        mov esi, CMOV
        call addstring
 
        mov esi, PAT
        call addstring
 
        mov esi, PSE36
        call addstring
 
        mov esi, PSNUM
        call addstring
 
        mov esi, CLFLUSHn
        call addstring
 
        mov esi, Res
        call addstring
 
        mov esi, DTS
        call addstring
 
        mov esi, ACPI
        call addstring
 
        mov esi, MMX
        call addstring
 
        mov esi, FXSR
        call addstring
 
        mov esi, SSE
        call addstring
 
 
        mov esi, SSn
        call addstring
 
        mov esi, HTT
        call addstring
 
        mov esi, TM
        call addstring
 
        mov esi, IA64
        call addstring
 
        mov esi, PBE
        call addstring
 
        mov esi, SS3
        call addstring
 
        mov esi, CNXT_ID
        call addstring
 
        mov esi, MP
        call addstring
 
        mov esi, FFXSR
        call addstring
 
        mov esi, MON
        call addstring
 
        mov esi, CX16
        call addstring
 
        mov esi, NX
        call addstring
 
        mov esi, TSCP
        call addstring
 
        mov esi, DS_CPL
        call addstring
 
        mov esi, ETPRD
        call addstring
 
        mov esi, MMXPi
        call addstring
 
        mov esi, LM
        call addstring
 
        mov esi, EST
        call addstring
 
        mov esi, SYS
        call addstring
 
        mov esi, MMXn
        call addstring
 
        mov esi, DNo
        call addstring
 
        mov esi, TM2
        call addstring
 
        mov esi, LAF
        call addstring
 
        mov esi, FFXSR
        call addstring
 
        mov esi, DN
        call addstring
 
        mov esi, VMX
        call addstring
 
        mov esi, SSSE3
        call addstring
 
        mov esi, DCA
        call addstring
 
        mov esi, CMPL
        call addstring
 
        mov esi, SVM
        call addstring
 
        mov esi, MCR8
        call addstring
 
        mov esi, SMX
        call addstring
 
        mov esi, x2APIC
        call addstring
 
        mov esi, PPCNT
        call addstring
 
        mov esi, PAGE
        call addstring
 
        mov esi, EAS
        call addstring
 
        mov esi, ABM
        call addstring
 
        mov esi, MIS
        call addstring
 
        mov  esi,OSVW
        call addstring
 
        mov esi,SKINIT_
        call addstring
 
        mov esi, WDT
        call addstring
 
        ret
 
addstring:
        mov edi, [store_text_area_end]
        xor eax, eax
        xor ecx, ecx
        cld
@@:
        lodsb
        stosb
        inc     [store_text_area_end]
        cmp     [esi], byte 0x0
        jnz     @r
        mov     al,0Ah
        stosb
 
        mov     [store_text_area_end],edi
        xor     edi,edi
        xor     esi, esi
        ret
 
savenumber:
        xor eax, eax
        cld
        lodsw
        call numbertostring
        xor esi, esi
        xor edi, edi
 
        ret
 
savestring:
        xor eax, eax
        cld
        lodsw
        ;call numbertostring
        xor esi, esi
        xor edi, edi
 
        ret
 
numbertostring:
        mov bx, 10
        xor ecx, ecx
@@m1:
        xor dx, dx
        div bx
        push dx
        inc cx
        test ax, ax
        jnz @@m1
@@m2:
        pop ax
        add al, '0'
        stosb
        loop @@m2
        ret
 
concatname:
        ;mov edi, [saveproc]
        xor eax, eax
        xor ecx, ecx
        cld
@@:
        lodsb
        stosb
        cmp     [esi], byte 0x0
        jnz     @r
 
        xor     edi,edi
        xor     esi, esi
        ret
 
store_data:
        call prepare_text_area
        mov     eax,[store_text_area_start]
        mov     [fileinfo.return],eax
        mov     ebx,[store_text_area_end]
        sub     ebx,eax
        inc     ebx
        mov     [fileinfo.size],ebx
        mcall   70,fileinfo
        ret
 
load_gif:
        mov     edi, img_area
        jmp     ReadGIF
 
 
; DATA AREA
 
title    db   'CPUID 2.31 by S.Kuzmin & KolibriOS Team',0
 
stm:
   db 'Internal name:', 0
 
stmlen:
 
SS42:
        db 'SSE4.2:       ',0
SS42len:
 
SMX:
        db 'SMX:       ',0
SMXlen:
 
x2APIC:
        db 'x2APIC:       '
x2APIClen:
 
PPCNT:
        db 'POPCNT:          '
PPCNTlen:
 
PAGE:
        db 'Page1Gb:     '
PAGElen:
 
EAS:
        db 'EAS:                       ',0
EASlen:
 
newLabel:
        db '3DNP:                       ',0
newLabellen:
 
 
ABM:
        db 'ABM:      '
ABMlen:
 
SSE4A:
        db 'SSE4A:       '
SSE4Alen:
 
MIS:
        db 'MIS:      ',0
MISlen:
 
DNP:
        db '3DNP:       '
DNPlen:
 
OSVW:
        db 'OSVW:       ',0
OSVWlen:
 
SKINIT_:
        db 'SKINIT:          ',0
SKINIT_len:
 
WDT:
        db 'WDT:            ',0
WDTlen:
 
 
saveproc:
   db '                                                   ',0
 
multil:
  db 'Multiplier:   .  ', 0
 
multillen:
 
multil2:
 
  db 'Multiplier:   .  '
 
multil2len:
 
multi3:
 
  db 'Multiplier: n/a',0
 
multi3len:
 
freql:
 
  db 'System clock:     .   MHz', 0
freqllen:
 
freql2:
 
  db 'System clock:     .   MHz'
 
 
freql2len:
 
freql3:
 
  db 'System clock: n/a '
 
 
freql3len:
 
tsum:
 
        db 'Frequency:     .    MHz  ',0
 
tsumlen:
 
tech:
 
        db 'Technology: 0.   micron ', 0
 
techlen:
 
name:
 
if lang eq it
 
        db 'Codename:',0
 
else
 
        db 'CODENAME:',0
 
 
end if
 
namelen:
 
vendorname:
 
if lang eq it
 
         db 'Vendor CPU              ', 0
 
else
 
         db 'CPU VENDOR:             ', 0
 
end if
 
vendornamelen:
 
cpuname:
 
if lang eq it
 
         db 'Vendor CPU              ', 0
 
else
 
         db 'CPU VENDOR:             ', 0
 
end if
 
cpunamelen:
 
 
fam:
 
if lang eq it
 
         db 'Famiglia:   std   ext', 0
 
else
 
         db 'FAMILY:   std   ext', 0
 
end if
 
famlen:
 
mode:
 
if lang eq it
 
          db 'Modello:    std    ext', 0
 
else
 
          db 'MODEL:    std    ext', 0
 
end if
 
modelen:
 
step:
 
if lang eq it
 
           db 'Stepping:        ', 0
 
else
 
           db 'STEPPING:        ', 0
 
end if
 
steplen:
 
cache:
 
        db 'L1(inst):     KB       -way set     -byte line size',0
 
cachelen:
 
cache2:
 
         db 'L1(data):     KB       -way set     -byte line size',0
 
cache2len:
 
 
cache3:
 
        db 'L2:      KB            -way set     -byte line size',0
 
cache3len:
 
cache4:
 
   db 'L3:      KB            -way set     -byte line size',0
 
cache4len:
 
brandid:
 
        db 'Brand:', 0
 
brandidlen:
 
MMXs:
 
        db 'MMX:         ',0
 
MMXslen:
 
 
total dd 0x0
 
total1 dd 0x0
 
rating dd 0x0
 
rat dd 0x0  ;
 
NEF:
 
db 'EXTENDED FEATURES ARE NOT AVAILABLE',0
 
NEFlen:
 
 
 
mb :
 
db 'MB'
 
mblen:
 
 
 
logcpus :
 
db 'Number of logical CPU:'
 
logcpuslen:
 
 
 
speed :
 
if lang eq it
 
;               db 'Performance',0
 
else
 
;               db 'PERFORMANCE:',0
 
end if
 
speedlen:
 
 
 
kbpersec:
 
db 'KB/SEC'
 
kbperseclen:
 
 
 
instruct:
 
if lang eq it
 
                db 'Set istruzioni'
 
else
 
                db 'Instruction sets'
 
end if
 
instructlen:
 
 
 
standard    db 'Standard and Extended features plus Performance test',0
 
 
STDCA:
 
        db 'Highest STD call is         ',0
 
STDCAlen:
 
 
 
EXTCA:
 
        db 'Highest EXT call is         h',0
 
EXTCAlen:
 
 
oblom:
 
if lang eq it
 
                db 'CPUID non e disponibile'
 
else
 
                db 'SORRY, CPUID IS NOT AVAILABLE'
 
end if
 
oblomlen:
 
 
other:
 
if lang eq it
 
                db 'Questo vendor non e supportato'
 
else
 
                db 'SORRY, THIS VENDOR IS NOT SUPPORTED YET'
 
end if
 
otherlen:
 
cacheP4:
 
        db 'L1(inst):     Kuops    -way set     -byte line size'
 
cacheP4len:
 
 
 
 
typen:
 
if lang eq it
 
                db 'Tipo:'
 
else
 
                db 'Type:'
 
end if
 
 
 
typenlen:
 
 
 
pr:
 
  db 'P-rating:'
 
prlen:
 
 
 
 
AMDn:
 
        db 'AMD',0
 
AMDnlen:
 
AMDnNew:
 
        db 'CODENAME: AMD',0
 
AMDnNewlen:
 
Inteln:
 
        db 'Intel',0
 
Intelnlen:
 
IntelnNew:
 db 'CODENAME: Intel',0
 
IntelnNewlen:
 
 
Cyrixn:
 
        db 'Cyrix',0
 
Cyrixnlen:
 
IDTn:
 
         db 'IDT/Centaur',0
 
IDTnlen:
 
Centaurn:
 
         db 'VIA',0
 
Centaurnlen:
 
 
 
Tranmsmetan:
 
         db 'Transmeta',0
 
Tranmsmetanlen:
 
 
Vortexn:
        db 'Vortex86',0
Vortexnlen:
 
 
mmxp:
 
        db 'MMX+:         ',0
 
mmxplen:
 
 
 
HTT:
 
        db 'HTT:          ',0
 
HTTlen:
 
 
HTTn:
 
        db 'HTT:         ',0
 
HTTnlen:
 
 
sse3:
 
        db 'SSE3:         ',0
 
sse3len:
 
SSE41:
        db 'SSE4.1:          ',0
SSE41len:
 
SSE42:
        db 'SSE4.2:             ',0
SSE42len:
 
SSE5:
        db 'SSE5:               ',0
SSE5len:
 
now:
 
        db '3DNOW!:         ',0
 
nowlen:
 
nowp:
 
        db '3DNOW!+:         ',0
 
nowplen:
 
;-Type
 
t1      db      'OEM',0
 
t2      db      'Overdrive',0
 
t3      db      'Dual',0
 
t4      db      'Unknown',0
 
 
 
;----------Intel
 
P50:
 
db 'P5 A-step',0
 
P50len:
 
P5:
 
db 'P5',0
 
P5len:
 
P54T:
 
db 'P24T Overdrive',0
 
P54Tlen:
 
P54C:
 
db 'P54C',0
 
P54Clen:
 
P55C:
 
db 'P55C (with MMX)',0
 
P55Clen:
 
; ---
 
P60:
 
db 'Pentium Pro A-step',0
 
P60len:
 
P61:
 
db 'Pentium Pro',0
 
P61len:
 
P63:
 
db 'Pentium II (Klamath)',0
 
P63len:
 
P65:
 
db 'Pentium II (Deschutes)',0
 
P65len:
 
P66:
 
db 'Celeron (Medocino)',0
 
P66len:
 
P67:
 
db 'Pentium III (Katmai)',0
 
P67len:
 
P68:
 
db 'Pentium III (Coppermine)',0
 
P68len:
 
P69:
 
db 'Pentium M (Banias)',0
 
P69len:
 
P6A:
 
db 'Pentium III Xeon (Cascades)',0
 
P6Alen:
 
P6B:
 
db 'Pentium III (Tualatin)',0
 
P6Blen:
 
P6D:
 
db 'Pentium M (Dothan)',0
 
P6Dlen:
 
P6E:
 
db 'Pentium M (Yonah)/ Core',0
 
P6Elen:
 
P6F:
 
db 'Pentium D (Conroe)/ Core 2 (Kentsfield)',0
 
P6Flen:
 
;---
 
PS0:
 
db 'Itanium (IA-64)',0
 
PS0len:
 
;------------
 
PF0:
 
db 'Pentium 4 (Willamete)',0
 
PF0len:
 
PF2:
 
db 'Pentium 4 (Northwood)',0
 
PF2len:
 
PF3:
 
db 'Pentium 4 (Prescott)',0
 
PF3len:
 
PF5:
 
db 'Pentium 4 (Tejas)',0
 
PF5len:
 
PF6:
 
db 'Pentium 4 (Presler)',0
 
PF6len:
 
;----------------Intel Celerons
 
P65c:
 
db 'Celeron (Covington)',0
 
P65clen:
 
P68c:
 
db 'Celeron (Coppermine)',0
 
P68clen:
 
P6Bc:
 
db 'Celeron (Tualatin)',0
 
P6Bclen:
 
PF0c:
 
db 'Celeron (Willamete)',0
 
PF0clen:
 
PF2c:
 
db 'Celeron (Northwood)',0
 
PF2clen:
 
PF3c:
 
db 'Celeron (Prescott)',0
 
PF3clen:
 
PF5c:
 
db 'Celeron D (Texas)',0
 
PF5clen:
 
PF6c:
 
db 'Celeron D (Presler)',0
 
PF6clen:
 
;---------New Intel
P3A:
 
db 'IvyBridge',0
 
P3Alen:
 
P2A:
 
db 'Sandy Bridge',0
 
P2Alen:
 
P2D:
db 'Sandy bridge-E',0
 
P2Dlen:
 
 
P25:
db 'Arrandale',0
P25len:
 
P2C:
db 'Gulftown',0
P2Clen:
 
P2F:
db 'Westmere-EX',0
P2Flen:
 
P1E:
db 'Clarksfield',0
P1Elen:
 
P1A:
db 'Bloomfield',0
P1Alen:
 
P2E:
db 'Nehalem-EX',0
P2Elen:
 
P17:
db 'Yorkfield',0
P17len:
 
P1D:
db 'Dunnington',0
P1Dlen:
 
P0F:
db 'Clovertown',0
P0Flen:
 
P16:
db 'Merom Conroe',0
P16len:
 
P06:
db 'Cedar Mill',0
P06len:
 
P03:
db 'Nocona Irwindale',0
P03len:
 
P04:
db 'NoconaIrwindale',0
P04len:
 
P0D:
db 'Dothan',0
P0Dlen:
 
P36:
db 'Cedarview',0
P36len:
 
P26:
db 'Lincroft',0
P26len:
 
P1C:
db 'Pineview',0
P1Clen:
 
no_known:
db 'SORRY, CODENAME IS NOT SUPPORTED YET ', 0
 
;---------AMD
 
A50     db 'K5 (PR75, PR90, PR100)',0
 
A51     db '5k86 (PR120, PR133)',0
 
A52     db '5k86 (PR166)',0
 
A53     db '5k86 (PR200)',0
 
A56     db 'K6',0
 
A57     db 'K6',0
 
A58     db 'K6-2',0
 
A59     db 'K6-III',0
 
A5D     db 'K6-2+ or K6-III+',0
 
;-------------------
 
At1     db 'Athlon',0
 
At2     db 'Athlon',0
 
At3     db 'Duron (Spitfire)',0
 
At4     db 'Athlon (Thunderbird)',0
 
At6     db 'AthlonXP (Palomino)',0
 
At7     db 'Duron (Morgan)',0
 
At8     db 'AthlonXP (Thoroughbred)',0
 
At8a    db 'Duron (Applebred)',0
 
Ata     db 'AthlonXP (Barton)',0
 
Atat    db 'AthlonXP (Thorton)',0
 
;-------------------
AthlonKuma:
 
db 'AMD Athlon 7750 Black Edition',0
 
AthlonKumalen:
 
AB23:
 
db 'Opteron 2300-series',0
 
AB23len:
 
AB83:
 
db 'Opteron 8300-series',0
 
AB83len:
 
AB9:
db 'Phenom X4',0
 
AB9len:
 
AB8right2:
 
db 'Phenom X3',0
 
AB8right2len:
 
AB4:
 
db 'Athlon X2',0
 
AB4len:
 
AB1:
 
db 'Sempron',0
 
AB1len:
 
ABC2:
 
db 'Opteron (Shanghai) 2387',0
 
ABC2len:
 
AB6:
 
db 'Opteron (Magny-Cours)',0
 
AB6len:
 
ABC3:
 
db 'Opteron (Shanghai) 8300 series',0
 
ABC3len:
 
ABM2:
 
db 'Turion II ',0
 
ABM2len:
 
;---
 
AF1:
 
db 'Dual-core Opteron',0
 
AF1len:
 
AF3:
 
db 'Athlon 64 (Toledo)',0
 
AF3len:
 
AF4:
 
db 'Athlon 64 (ClawHammer)',0
 
AF4len:
 
AF5:
 
db 'Opteron/Athlon 64 FX (SledgeHammer)',0
 
AF5len:
 
 
AFC:
 
db 'Athlon 64 (Newcastle)',0
 
AFClen:
 
 
AFF:
 
db 'Athlon 64 (Winchester)',0
 
AFFlen:
 
 
AFS:
 
db 'Athlon 64 (San Diego)',0
 
AFSlen:
 
 
AFV:
 
db 'Athlon 64 (Venice)',0
 
AFVlen:
 
 
AFCs:
 
db 'Sempron (Paris)',0
 
AFCslen:
 
 
 
AFCsp:
 
db 'Sempron (Palermo)',0
 
AFCsplen:
 
 
 
;---------Cyrix
 
C52:
 
db '6x86 M1',0
 
C52len:
 
C54:
 
db 'MediaGX',0
 
C54len:
 
C60:
 
db '6x86MX M2',0
 
C60len:
 
C65:
 
db 'C3 (Cyrix M2)',0 ;?
 
C65len:
 
;--------IDT
 
V54:
 
db 'WinChip C6',0
 
V54len:
 
V58:
 
db 'WinChip 2',0
 
V58len:
 
V59:
 
db 'WinChip 3',0
 
V59len:
 
;-------VIA
 
V66:
 
db 'C3 (Samuel)',0  ; Joshua is unreleased 065
 
V66len:
 
V67:
 
db 'C3 (Samuel2/Ezra)',0 ; ?
 
V67len:
 
V68:
 
db 'C3 (Ezra-T/Eden)',0 ;?
 
V68len:
 
V69:
 
db 'C3 (Antaur/Nehemiah)',0 ;?
 
V69len:
 
VA:
 
db 'C7 (Esther)',0 ;?
 
VAlen:
 
;---------Transmeta
 
T5:
 
db 'Crusoe',0 ;
 
T5len:
 
TF:
 
db 'Efficeon',0 ;
 
TFlen:
 
;---------
 
NG:
 
        db 'Next generation CPU',0
 
NGlen:
 
 
athloncoef      db      110, 115, 120, 125, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 120
 
                db      190, 120, 200, 130, 135, 140, 210, 150, 220, 160, 165, 170, 180, 230, 240
 
athlonmcoef:    db      110, 115, 120, 125, 50, 55, 60, 65,  70, 75, 80, 85, 90, 95, 100, 105
 
                db      30, 190, 40, 200, 130, 135, 14, 210, 150, 220, 160, 165, 170, 230, 240
 
athloncoef3     db      45, 50, 40, 55, 25, 30, 60, 35
 
p4coef          db      160, 170, 180, 190, 200, 210, 220, 230, 80, 90, 100, 110, 120, 130, 140, 150    ; Pentium 4 (Willamete)
 
coppercoeff     db       50, 30, 40, 20, 55, 35,  45, 25,  35, 70, 80, 60, 20, 75, 15, 65, 90, 110, 120, 20, 95, 115, 85, 25, 35, 70,  80, 100,  20, 75,  15, 105
 
tualatcoeff     db      120, 35, 35, 40, 55, 35, 115, 35, 160, 70, 80, 60, 40, 75, 35, 65, 90, 110,  35, 35, 95,  35, 85, 35, 35, 35, 130, 100, 140, 35, 150, 105
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
I_END:
 
img_area:          ; image is going to be unpacked to here
rb 201*49*3+8      ; image resolution (bits to reserve)
 
img_area2:         ; image is going to be unpacked to here
rb 93*24*3+8       ; image resolution (bits to reserve)
 
img_area3:         ; image is going to be unpacked to here
rb 93*24*3+8       ; image resolution (bits to reserve)
 
gif_hash_area:
rd 4096+1          ;hash area size for unpacking gif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
system_dir_ProcLib      db '/sys/lib/proc_lib.obj',0
 
err_message_found_lib2  db 'proc_lib.obj - Not found!',0
 
err_message_import2     db 'proc_lib.obj - Wrong import!',0
 
head_f_i:
head_f_l        db 'error',0
;---------------------------------------------------------------------
l_libs_start:
 
library02  l_libs system_dir_ProcLib+9, path, library_path, system_dir_ProcLib, \
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i
 
end_l_libs:
;---------------------------------------------------------------------
align 4
ProcLib_import:
OpenDialog_Init         dd aOpenDialog_Init
OpenDialog_Start        dd aOpenDialog_Start
;OpenDialog__Version    dd aOpenDialog_Version
        dd      0
        dd      0
aOpenDialog_Init        db 'OpenDialog_init',0
aOpenDialog_Start       db 'OpenDialog_start',0
;aOpenDialog_Version    db 'Version_OpenDialog',0
;---------------------------------------------------------------------
align 4
OpenDialog_data:
.type                   dd 0
.procinfo               dd Proc_Info    ;+4
.com_area_name          dd communication_area_name      ;+8
.com_area               dd 0    ;+12
.opendir_pach           dd temp_dir_pach        ;+16
.dir_default_pach       dd communication_area_default_pach      ;+20
.start_path             dd open_dialog_path     ;+24
.draw_window            dd draw_window  ;+28
.status                 dd 0    ;+32
.openfile_pach          dd file_name    ;+36
.filename_area          dd filename_area        ;+40
.filter_area            dd Filter
.x:
.x_size                 dw 420 ;+48 ; Window X size
.x_start                dw 10 ;+50 ; Window X position
.y:
.y_size                 dw 320 ;+52 ; Window y size
.y_start                dw 10 ;+54 ; Window Y position
 
communication_area_name:
        db 'FFFFFFFF_open_dialog',0
open_dialog_path:
        db '/sys/File Managers/opendial',0
communication_area_default_pach:
        db '/sys',0
Filter:
dd      Filter.end - Filter.1
.1:
db      'TXT',0
db      'LOG',0
.end:
dd      0
 
file_default_path:
        db '/sys/'
start_temp_file_name:
        db 'CPUID.txt',0
btn_more_cap:
        db 'Details', 0
btn_save_cap:
        db 'Save', 0
;---------------------------------------------------------------------
align   4
fileinfo:
.subfunction    dd 2
.Offset         dd 0
.Offset_1       dd 0
.size           dd 4096
.return         dd 0
                db 0
.name:          dd file_name
 
align 4
sc system_colors
 
store_text_area_start   dd ?
store_text_area_end     dd ?
store_text_size         dd ?
 
;---------------------------------------------------------------------
library_path:
        rb 4096
;---------------------------------------------------------------------
path:
        rb 4096
;---------------------------------------------------------------------
temp_dir_pach:
        rb 4096
;---------------------------------------------------------------------
file_name:
        rb 4096
;---------------------------------------------------------------------
file_name_1:
        rb 4096
;---------------------------------------------------------------------
filename_area:
        rb 256
;---------------------------------------------------------------------
        rb 4096
stacktop:
;---------------------------------------------------------------------
Proc_Info       process_information
; RSA test data
align 4
  num1 rd 40
  num2 rd 40
  num3 rd 40
  iter rd 1
  openkey rd 1
 
 
IncludeUGlobals
 
nocpuid db ?
ost dd ?
sot dd ?
f dd ?
m dd ?
s dd ?
t dd ?
 
ef dd ?
em dd ?
 
multiplier dd ?
multa dd ?
multb dd ?
smallvendor dd ?
L1d  dd ?
L1i  dd ?
L2   dd ?
L3   dd ?
micron dd ?
brand  dd ?
newpc  dd ?
nomultiplier dd ?
ram_size_a dd ?
ram_size_t dd ?
 
stdc dd ?
extc dd ?
 
FRS dd ?
freqsel db ?
sse3sup db ?
sse41sup dd ?
sse42sup dd ?
sse5sup dd ?
 
freqbb dd ?
freqll dd ?
 
wayli dd ?
lineli dd ?
 
wayld dd ?
lineld dd ?
 
wayl2 dd ?
linel2 dd ?
 
wayl3 dd ?
linel3 dd ?
che db ? ; numbers of calls for Intel caches detection
cname dd ?
codeN dd ?
 
myname:
   rb 48
 
mynamelen:
   db ?
 
align 4
  thread2_stack_area rb 64
  thread2_esp = $
U_END:

Rev 7900	Rev 8015
1	;******************************************************************************	1	;******************************************************************************
2	; project name: CPUID *	2	; project name: CPUID *
3	; platform: KolibriOS, x86 (IA-32), x86-64 achitectures *	3	; platform: KolibriOS, x86 (IA-32), x86-64 achitectures *
4	; compiler: flat assembler 1.70.03 *	4	; compiler: flat assembler 1.70.03 *
5	; version: 2.31 *	5	; version: 2.31 *
6	; last update: 9 October 2018 *	6	; last update: 9 October 2018 *
7	; maintained by: Sergey Kuzmin aka Wildwest *	7	; maintained by: Sergey Kuzmin aka Wildwest *
8	; e-mail: kuzmin_serg@list.ru *	8	; e-mail: kuzmin_serg@list.ru *
9	; site: http://coolthemes.narod.ru/files.html *	9	; site: http://coolthemes.narod.ru/files.html *
10	; license: Copyright 2004-2018 Sergey Kuzmin and co-authors *	10	; license: Copyright 2004-2018 Sergey Kuzmin and co-authors *
11	; Rules: *	11	; Rules: *
12	; 1)you can use pieces of code in your project, but should *	12	; 1)you can use pieces of code in your project, but should *
13	; mention the original author (include copyright notice); *	13	; mention the original author (include copyright notice); *
14	; 2)if you modify CPUID (improve, port, translate, etc) send *	14	; 2)if you modify CPUID (improve, port, translate, etc) send *
15	; your changes to the maintainer or make about post changes *	15	; your changes to the maintainer or make about post changes *
16	; at forum http://board.kolibrios.org/viewtopic.php?f=42&t=594*	16	; at forum http://board.kolibrios.org/viewtopic.php?f=42&t=594*
17	;-----------------------------------------------------------------------------*	17	;-----------------------------------------------------------------------------*
18	; English comments *	18	; English comments *
19	;------------------------------------------------------------------------------	19	;------------------------------------------------------------------------------
20	use32	20	use32
21	org 0x0	21	org 0x0
22	db 'MENUET01'	22	db 'MENUET01'
23	dd 0x01	23	dd 0x01
24	dd START	24	dd START
25	dd I_END	25	dd I_END
26	dd U_END+4096	26	dd U_END+4096
27	dd U_END+4096	27	dd U_END+4096
28	dd 0x0	28	dd 0x0
29	dd path	29	dd path
30		30
31	include '..\..\..\develop\libraries\box_lib\load_lib.mac'	31	include '..\..\..\develop\libraries\box_lib\load_lib.mac'
32	include '..\..\..\macros.inc'	32	include '..\..\..\macros.inc'
33	include '../../../gui_patterns.inc'	33	include '../../../gui_patterns.inc'
34	include '../../../KOSfuncs.inc'	34	include '../../../KOSfuncs.inc'
35	include 'lang.inc'	35	include 'lang.inc'
36	include 'draw.inc'	36	include 'draw.inc'
37	include 'brand.inc' ; brand ID decoding	37	include 'brand.inc' ; brand ID decoding
38	include 'caches.inc' ; L1 and L2 cashes decoding for Intel	38	include 'caches.inc' ; L1 and L2 cashes decoding for Intel
39	include 'multipli.inc' ; multiplier decoding	39	include 'multipli.inc' ; multiplier decoding
40	include 'features.inc' ; features decoding	40	include 'features.inc' ; features decoding
41	include 'logos.inc' ; include file where gif's are stored	41	include 'logos.inc' ; include file where gif's are stored
42	include 'rsatest.inc'	42	include 'rsatest.inc'
43	include 'variable.inc'	43	include 'variable.inc'
44	include 'gif_lite.inc'	44	include 'gif_lite.inc'
45		45
46	@use_library	46	@use_library
47		47
48	START:	48	START:
49	mcall 68,11	49	mcall 68,11
50	mcall 66,1,1	50	mcall 66,1,1
51	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc, sizeof.system_colors	51	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc, sizeof.system_colors
52		52
53	load_libraries l_libs_start,end_l_libs	53	load_libraries l_libs_start,end_l_libs
54	;-----------------------------------------------------------------------------	54	;-----------------------------------------------------------------------------
55	;OpenDialog initialisation	55	;OpenDialog initialisation
56	push dword OpenDialog_data	56	push dword OpenDialog_data
57	call [OpenDialog_Init]	57	call [OpenDialog_Init]
58		58
59	mov edi,filename_area	59	mov edi,filename_area
60	mov esi,start_temp_file_name	60	mov esi,start_temp_file_name
61	call copy_file_name_path	61	call copy_file_name_path
62	;-----------------------------------------------------------------------------	62	;-----------------------------------------------------------------------------
63	mcall 68,12,4096*8 ; 16 Kb - I hope this will be enough for store of data	63	mcall 68,12,4096*8 ; 16 Kb - I hope this will be enough for store of data
64	mov [store_text_area_start],eax	64	mov [store_text_area_start],eax
65		65
66		66
67	;------------	67	;------------
68	CYCLES:	68	CYCLES:
69	; CPU speed	69	; CPU speed
70	mov eax, 18	70	mov eax, 18
71	mov ebx,5	71	mov ebx,5
72	mcall	72	mcall
73	mov [total1],eax ;in Hz, example 1600490000	73	mov [total1],eax ;in Hz, example 1600490000
74	xor edx,edx	74	xor edx,edx
75	mov ebx,1000000	75	mov ebx,1000000
76	div ebx	76	div ebx
77	mov [total], eax ; in Mhz, example 1600	77	mov [total], eax ; in Mhz, example 1600
78	xor edx, edx	78	xor edx, edx
79	mov eax, [total1]	79	mov eax, [total1]
80	mov ebx, 10000	80	mov ebx, 10000
81	div ebx	81	div ebx
82	mov [ost], eax ; example 160049	82	mov [ost], eax ; example 160049
83	mov ecx, [total]	83	mov ecx, [total]
84	imul ecx, 100	84	imul ecx, 100
85	neg ecx	85	neg ecx
86	add ecx, eax	86	add ecx, eax
87	mov [sot], ecx ; example 49	87	mov [sot], ecx ; example 49
88	;------------	88	;------------
89	cpu: ;is CPUID supported?	89	cpu: ;is CPUID supported?
90	pushfd ;push original EFLAGS	90	pushfd ;push original EFLAGS
91	pop eax ;get original EFLAGS	91	pop eax ;get original EFLAGS
92	mov ebx, eax ;save original EFLAGS	92	mov ebx, eax ;save original EFLAGS
93	xor eax, 00200000h ;flip 21th bit in EFLAGS	93	xor eax, 00200000h ;flip 21th bit in EFLAGS
94	push eax ;save new EFLAGS value on stack	94	push eax ;save new EFLAGS value on stack
95	popfd ;replace current EFLAGS value	95	popfd ;replace current EFLAGS value
96	pushfd ;get new EFLAGS	96	pushfd ;get new EFLAGS
97	pop eax ;store new EFLAGS in EAX	97	pop eax ;store new EFLAGS in EAX
98	cmp eax, ebx ;compare values of 21th bit	98	cmp eax, ebx ;compare values of 21th bit
99	jz NO_CPUID ;CPUID isn't supported	99	jz NO_CPUID ;CPUID isn't supported
100	;------------	100	;------------
101	CPUNAME: ; VENDOR	101	CPUNAME: ; VENDOR
102	mov eax,0 ; eax=0	102	mov eax,0 ; eax=0
103	cpuid	103	cpuid
104		104
105	mov [stdc], eax ; number of calls	105	mov [stdc], eax ; number of calls
106	mov [cpuname+ 12],ebx	106	mov [cpuname+ 12],ebx
107	mov [cpuname+ 16],edx	107	mov [cpuname+ 16],edx
108	mov [cpuname+ 20],ecx	108	mov [cpuname+ 20],ecx
109	mov [smallvendor],ecx	109	mov [smallvendor],ecx
110		110
111	; for various vendors we should later use different methods	111	; for various vendors we should later use different methods
112		112
113	;Decoding cache L1 and L2 for Intel	113	;Decoding cache L1 and L2 for Intel
114		114
115	cmp ecx, 'ntel'	115	cmp ecx, 'ntel'
116	jne cpu1 ;is not Intel	116	jne cpu1 ;is not Intel
117		117
118	;Starting L1, L2, L3 caches detection (Intel made it VERY HARD)	118	;Starting L1, L2, L3 caches detection (Intel made it VERY HARD)
119		119
120	mov eax, 2	120	mov eax, 2
121	cpuid	121	cpuid
122		122
123	mov [che], al ; number of calls	123	mov [che], al ; number of calls
124	multik:	124	multik:
125		125
126	.eaxl:	126	.eaxl:
127	test eax, eax ; Test bit 31	127	test eax, eax ; Test bit 31
128	js .ebxl ; <> 0 =>invalid values	128	js .ebxl ; <> 0 =>invalid values
129	call decodecache24	129	call decodecache24
130	.ebxl:	130	.ebxl:
131	test ebx, ebx	131	test ebx, ebx
132	js .ecxl	132	js .ecxl
133	mov eax, ebx	133	mov eax, ebx
134	call decodecache32	134	call decodecache32
135	.ecxl:	135	.ecxl:
136	test ecx, ecx	136	test ecx, ecx
137	js .edxl	137	js .edxl
138	mov eax, ecx	138	mov eax, ecx
139	call decodecache32	139	call decodecache32
140	.edxl:	140	.edxl:
141	test edx, edx	141	test edx, edx
142	js cpu1	142	js cpu1
143	mov eax, edx	143	mov eax, edx
144	call decodecache32	144	call decodecache32
145		145
146	dec [che] ; we made all calls	146	dec [che] ; we made all calls
147	je cpu1	147	je cpu1
148		148
149	multi: ; not yet	149	multi: ; not yet
150		150
151	mov eax, 2 ; so we made call again	151	mov eax, 2 ; so we made call again
152	cpuid	152	cpuid
153		153
154	jmp multik	154	jmp multik
155		155
156	; FAMILY MODEL STEPPING	156	; FAMILY MODEL STEPPING
157	cpu1:	157	cpu1:
158	xor eax, eax	158	xor eax, eax
159	inc eax ; eax=1	159	inc eax ; eax=1
160	cpuid	160	cpuid
161		161
162	mov ecx, eax	162	mov ecx, eax
163	shr ecx,8 ; shift it to the correct position	163	shr ecx,8 ; shift it to the correct position
164	and ecx,0000000Fh ; get CPU family	164	and ecx,0000000Fh ; get CPU family
165	mov dword[f],ecx	165	mov dword[f],ecx
166		166
167	mov ecx, eax	167	mov ecx, eax
168	shr ecx,4	168	shr ecx,4
169	and ecx,0000000Fh ; get CPU model	169	and ecx,0000000Fh ; get CPU model
170	mov dword[m],ecx	170	mov dword[m],ecx
171		171
172	mov ecx, eax	172	mov ecx, eax
173	and ecx,0000000Fh ; get CPU stepping	173	and ecx,0000000Fh ; get CPU stepping
174	mov dword[s],ecx	174	mov dword[s],ecx
175		175
176	;-	176	;-
177	mov ecx, eax ; get Type	177	mov ecx, eax ; get Type
178	shl ecx, 18	178	shl ecx, 18
179	shr ecx,30	179	shr ecx,30
180	;and ecx, 0000000Fh ; only two lower bits can be nonzero	180	;and ecx, 0000000Fh ; only two lower bits can be nonzero
181	mov dword[t], ecx	181	mov dword[t], ecx
182	;=======================================================	182	;=======================================================
183		183
184	cmp dword[smallvendor], 'cAMD'	184	cmp dword[smallvendor], 'cAMD'
185	jz maybe_athlon	185	jz maybe_athlon
186	cmp dword[smallvendor], 'ntel'	186	cmp dword[smallvendor], 'ntel'
187	jnz no_full ; if not AMD or Intel	187	jnz no_full ; if not AMD or Intel
188		188
189	;detect_it:	189	;detect_it:
190	;cmp [f], 0Fh	190	;cmp [f], 0Fh
191	;jne no_full fixed calculation of extended model for Intel	191	;jne no_full fixed calculation of extended model for Intel
192		192
193	full:	193	full:
194		194
195	mov ecx, eax ; get Extended model	195	mov ecx, eax ; get Extended model
196	shr ecx,16 ;shift it to the correct position	196	shr ecx,16 ;shift it to the correct position
197	and ecx, 0000000Fh	197	and ecx, 0000000Fh
198	shl ecx, 4	198	shl ecx, 4
199	mov dword[newpc],ecx ; this value for old pc=0 and for new pc>0	199	mov dword[newpc],ecx ; this value for old pc=0 and for new pc>0
200	add ecx, [m]	200	add ecx, [m]
201	mov dword[em],ecx ; effective model	201	mov dword[em],ecx ; effective model
202		202
203	mov ecx, eax ; get Extended family	203	mov ecx, eax ; get Extended family
204	shr ecx, 20 ;shift it to the correct position	204	shr ecx, 20 ;shift it to the correct position
205	and ecx, 000000FFh	205	and ecx, 000000FFh
206	add ecx, [f]	206	add ecx, [f]
207	mov dword[ef],ecx ; effective family	207	mov dword[ef],ecx ; effective family
208		208
209		209
210	jmp fut	210	jmp fut
211		211
212	no_full:	212	no_full:
213		213
214	mov ecx, [m]	214	mov ecx, [m]
215	mov [em], ecx	215	mov [em], ecx
216		216
217	mov ecx, [f]	217	mov ecx, [f]
218	mov [ef], ecx	218	mov [ef], ecx
219		219
220	jmp fut	220	jmp fut
221		221
222	maybe_athlon:	222	maybe_athlon:
223	mov eax, 0x80000001 ; CPUID ext. function 0x80000001	223	mov eax, 0x80000001 ; CPUID ext. function 0x80000001
224	cpuid	224	cpuid
225	mov ecx, eax	225	mov ecx, eax
226	shr ecx,8 ; shift it to the correct position	226	shr ecx,8 ; shift it to the correct position
227	and ecx,0000000Fh ; get CPU family	227	and ecx,0000000Fh ; get CPU family
228	mov dword[ef],ecx	228	mov dword[ef],ecx
229		229
230	mov ecx, eax	230	mov ecx, eax
231	shr ecx,4	231	shr ecx,4
232	and ecx,0000000Fh ; get CPU model	232	and ecx,0000000Fh ; get CPU model
233	mov dword[em],ecx	233	mov dword[em],ecx
234		234
235	fut:	235	fut:
236		236
237	call decode_sse3_5	237	call decode_sse3_5
238		238
239		239
240		240
241	;call decode_sse3_5	241	;call decode_sse3_5
242	;-	242	;-
243	call decode_extended	243	call decode_extended
244		244
245	mov eax,$80000000	245	mov eax,$80000000
246	cpuid	246	cpuid
247		247
248	mov [extc], eax ; max number of calls	248	mov [extc], eax ; max number of calls
249		249
250	test eax, $80000000 ;// Test bit 31	250	test eax, $80000000 ;// Test bit 31
251	jz .noname	251	jz .noname
252		252
253	cmp eax,$80000003	253	cmp eax,$80000003
254	ja .mynameis	254	ja .mynameis
255	jmp .noname	255	jmp .noname
256		256
257	.mynameis:	257	.mynameis:
258	mov eax,$80000002	258	mov eax,$80000002
259	cpuid	259	cpuid
260	mov [myname],eax	260	mov [myname],eax
261	mov [myname+4],ebx	261	mov [myname+4],ebx
262	mov [myname+8],ecx	262	mov [myname+8],ecx
263	mov [myname+12],edx	263	mov [myname+12],edx
264	mov eax,$80000003	264	mov eax,$80000003
265	cpuid	265	cpuid
266	mov [myname+16],eax	266	mov [myname+16],eax
267	mov [myname+20],ebx	267	mov [myname+20],ebx
268	mov [myname+24],ecx	268	mov [myname+24],ecx
269	mov [myname+28],edx	269	mov [myname+28],edx
270	mov eax,$80000004	270	mov eax,$80000004
271	cpuid	271	cpuid
272	mov [myname+32],eax	272	mov [myname+32],eax
273	mov [myname+36],ebx	273	mov [myname+36],ebx
274	mov [myname+40],ecx	274	mov [myname+40],ecx
275	mov [myname+44],edx	275	mov [myname+44],edx
276	jmp red	276	jmp red
277		277
278	.noname:	278	.noname:
279		279
280	red:	280	red:
281		281
282	;mov byte [multiplier], 115; ; for testing	282	;mov byte [multiplier], 115; ; for testing
283		283
284	call decode_sse3	284	call decode_sse3
285		285
286	call multipl ; get multiplier	286	call multipl ; get multiplier
287	mov byte [multiplier], cl	287	mov byte [multiplier], cl
288		288
289	mov dword [freqbb], 0	289	mov dword [freqbb], 0
290	mov dword [freqll], 0	290	mov dword [freqll], 0
291		291
292	mov ebx, dword [multiplier]	292	mov ebx, dword [multiplier]
293	test ebx, ebx	293	test ebx, ebx
294	jz output	294	jz output
295		295
296	calc:	296	calc:
297		297
298	mov eax,dword [ost] ; example 166474	298	mov eax,dword [ost] ; example 166474
299	imul eax, 10 ; example 1664740	299	imul eax, 10 ; example 1664740
300	xor edx,edx	300	xor edx,edx
301	div ebx ; get system clock (if multiplier detected)	301	div ebx ; get system clock (if multiplier detected)
302		302
303	xor edx, edx ; example eax=16647	303	xor edx, edx ; example eax=16647
304	mov ebx, 100	304	mov ebx, 100
305	div ebx	305	div ebx
306	mov dword [freqbb], eax ; example 166	306	mov dword [freqbb], eax ; example 166
307	mov dword [freqll], edx ; example 47	307	mov dword [freqll], edx ; example 47
308		308
309	xor edx, edx	309	xor edx, edx
310	mov eax,dword[multiplier] ; example 115	310	mov eax,dword[multiplier] ; example 115
311	mov ebx,10	311	mov ebx,10
312	div ebx	312	div ebx
313	mov dword[multb], eax ; example 11	313	mov dword[multb], eax ; example 11
314	mov dword[multa], edx ; example 5	314	mov dword[multa], edx ; example 5
315		315
316	output:	316	output:
317		317
318	call draw_window ; Draw window	318	call draw_window ; Draw window
319		319
320	;HRERE	320	;HRERE
321		321
322	PROCCORE: ; Who are you?	322	PROCCORE: ; Who are you?
323	; Intel - "GenuineIntel" +	323	; Intel - "GenuineIntel" +
324	; AMD - "AuthenticAMD" +	324	; AMD - "AuthenticAMD" +
325	; Cyrix - "CyrixInstead" +	325	; Cyrix - "CyrixInstead" +
326	; UMC - "UMC UMC UMC "	326	; UMC - "UMC UMC UMC "
327	; NexGen - "NexGenDriven"	327	; NexGen - "NexGenDriven"
328	; Centaur - "CentaurHauls" +	328	; Centaur - "CentaurHauls" +
329	; Rise Technology - "RiseRiseRise"	329	; Rise Technology - "RiseRiseRise"
330	; SiS - "SiS SiS SiS "	330	; SiS - "SiS SiS SiS "
331	; Transmeta - "GenuineTMx86" +	331	; Transmeta - "GenuineTMx86" +
332	; National Semiconductor - "Geode by NSC"	332	; National Semiconductor - "Geode by NSC"
333	; Vortex - "Vortex86 SoC" + initial support	333	; Vortex - "Vortex86 SoC" + initial support
334	cmp dword[smallvendor], 'ntel' ;1	334	cmp dword[smallvendor], 'ntel' ;1
335	jz Intel	335	jz Intel
336	cmp dword[smallvendor], 'cAMD' ;2	336	cmp dword[smallvendor], 'cAMD' ;2
337	jz AMD	337	jz AMD
338	cmp dword[smallvendor], 'tead' ;3	338	cmp dword[smallvendor], 'tead' ;3
339	jz Cyrix	339	jz Cyrix
340	cmp dword[smallvendor], 'auls' ;4	340	cmp dword[smallvendor], 'auls' ;4
341	jz Centaur	341	jz Centaur
342	cmp dword[smallvendor], 'Mx86' ;5	342	cmp dword[smallvendor], 'Mx86' ;5
343	jz Transmeta	343	jz Transmeta
344	cmp dword[smallvendor], ' SoC' ;6	344	cmp dword[smallvendor], ' SoC' ;6
345	jz Vortex	345	jz Vortex
346		346
347	; cmp ecx, 'UMC '	347	; cmp ecx, 'UMC '
348	; jz .UMC	348	; jz .UMC
349	; cmp ecx, 'iven'	349	; cmp ecx, 'iven'
350	; jz .NexGen	350	; jz .NexGen
351	; cmp ecx, 'Rise'	351	; cmp ecx, 'Rise'
352	; jz .Rise	352	; jz .Rise
353	; cmp ecx, 'SiS '	353	; cmp ecx, 'SiS '
354	; jz .SiS	354	; jz .SiS
355	; cmp ecx, ' NSC'	355	; cmp ecx, ' NSC'
356	; jz .NSC	356	; jz .NSC
357	; jmp Other ; I don't know what to do with you...	357	; jmp Other ; I don't know what to do with you...
358	Other:	358	Other:
359	Text 75,70,0x00000000,other, otherlen-other	359	Text 75,70,0x00000000,other, otherlen-other
360		360
361	mov esi, other	361	mov esi, other
362	mov edi, [saveproc]	362	mov edi, [saveproc]
363	call concatname	363	call concatname
364		364
365	jmp MMXtest	365	jmp MMXtest
366	;-------------------------	366	;-------------------------
367		367
368	AMD:	368	AMD:
369		369
370	;-------------------------------------------------------------------------------	370	;-------------------------------------------------------------------------------
371		371
372	Text 15, 190,0x00000000,cache, cachelen-cache	372	Text 15, 190,0x00000000,cache, cachelen-cache
373		373
374	Text 75,70,,AMDn, AMDnlen-AMDn	374	Text 75,70,,AMDn, AMDnlen-AMDn
375	mov esi, AMDnNew	375	mov esi, AMDnNew
376	mov edi, saveproc	376	mov edi, saveproc
377	call concatname	377	call concatname
378	mov esi, amd	378	mov esi, amd
379	call load_gif	379	call load_gif
380	PutImage 135,107,201,49,img_area+8	380	PutImage 135,107,201,49,img_area+8
381	MOV [codeN], 2	381	MOV [codeN], 2
382	; place size	382	; place size
383		383
384	; Relax, man. AMD made PRETTY SIMPLE cache detection routine	384	; Relax, man. AMD made PRETTY SIMPLE cache detection routine
385	;CACHE1:	385	;CACHE1:
386	mov eax, 80000005h	386	mov eax, 80000005h
387	cpuid	387	cpuid
388		388
389	movzx eax, cl	389	movzx eax, cl
390	mov [lineld], eax	390	mov [lineld], eax
391		391
392	mov eax, ecx	392	mov eax, ecx
393	;shl eax, 8	393	;shl eax, 8
394	;shr eax, 24	394	;shr eax, 24
395		395
396	and eax,00FF0000h	396	and eax,00FF0000h
397	shr eax, 16	397	shr eax, 16
398	mov [wayld], eax	398	mov [wayld], eax
399		399
400	shr ecx, 24	400	shr ecx, 24
401	mov [L1d], ecx	401	mov [L1d], ecx
402		402
403		403
404	movzx eax, dl	404	movzx eax, dl
405	mov [lineli], eax	405	mov [lineli], eax
406		406
407	mov eax, edx	407	mov eax, edx
408	;shl eax, 8	408	;shl eax, 8
409	;shr eax, 24	409	;shr eax, 24
410		410
411	and eax,00FF0000h	411	and eax,00FF0000h
412	shr eax, 16	412	shr eax, 16
413	mov [wayli], eax	413	mov [wayli], eax
414		414
415		415
416	shr edx, 24	416	shr edx, 24
417	mov [L1i], edx	417	mov [L1i], edx
418		418
419		419
420	;CACHE2:	420	;CACHE2:
421	mov eax, 80000006h	421	mov eax, 80000006h
422	cpuid	422	cpuid
423		423
424	movzx eax, cl	424	movzx eax, cl
425	mov dword[linel2], eax	425	mov dword[linel2], eax
426		426
427	push ecx	427	push ecx
428	shr ecx, 12+1	428	shr ecx, 12+1
429	and ecx, 0x7	429	and ecx, 0x7
430	mov eax, 1	430	mov eax, 1
431	shl eax, cl	431	shl eax, cl
432	mov dword [wayl2], eax	432	mov dword [wayl2], eax
433	pop ecx	433	pop ecx
434		434
435	shr ecx, 16	435	shr ecx, 16
436	mov [L2],ecx	436	mov [L2],ecx
437		437
438	;CACHE3: edx provides l3	438	;CACHE3: edx provides l3
439		439
440	mov eax, 80000006h	440	mov eax, 80000006h
441	cpuid	441	cpuid
442		442
443	movzx eax, cl ;mov cl to eax, zero extend; cl is counter reg for loop,shifts	443	movzx eax, cl ;mov cl to eax, zero extend; cl is counter reg for loop,shifts
444	mov dword[linel3], eax	444	mov dword[linel3], eax
445		445
446	push edx	446	push edx
447	shr edx, 12+1	447	shr edx, 12+1
448	and edx, 0x7	448	and edx, 0x7
449	mov eax, 1	449	mov eax, 1
450	shl eax, cl	450	shl eax, cl
451	mov dword [wayl3], eax	451	mov dword [wayl3], eax
452	pop edx	452	pop edx
453		453
454	shr edx, 18	454	shr edx, 18
455	mov [L3],ecx	455	mov [L3],ecx
456		456
457	cmp [f], $5	457	cmp [f], $5
458	jz .fiv	458	jz .fiv
459	cmp [f], $6	459	cmp [f], $6
460	jz .si	460	jz .si
461	cmp [f], $F	461	cmp [f], $F
462	jz fif	462	jz fif
463	cmp [f], $10 ;family 16, 010h,	463	cmp [f], $10 ;family 16, 010h,
464	jz ten	464	jz ten
465		465
466		466
467	.fiv: ; Family=5	467	.fiv: ; Family=5
468	mov [micron], 50	468	mov [micron], 50
469	mov edx, A50	469	mov edx, A50
470	cmp [m], $0	470	cmp [m], $0
471	jz @f	471	jz @f
472	mov [micron], 35	472	mov [micron], 35
473	mov edx, A51	473	mov edx, A51
474	cmp [m], $1	474	cmp [m], $1
475	jz @f	475	jz @f
476	mov edx, A52	476	mov edx, A52
477	cmp [m], $2	477	cmp [m], $2
478	jz @f	478	jz @f
479	mov edx, A53	479	mov edx, A53
480	cmp [m], $3	480	cmp [m], $3
481	jz @f	481	jz @f
482	mov [micron], 30	482	mov [micron], 30
483	mov edx, A56	483	mov edx, A56
484	cmp [m], $6	484	cmp [m], $6
485	jz @f	485	jz @f
486	mov [micron], 25	486	mov [micron], 25
487	mov edx, A57	487	mov edx, A57
488	cmp [m], $7	488	cmp [m], $7
489	jz @f	489	jz @f
490	mov edx, A58	490	mov edx, A58
491	cmp [m], $8	491	cmp [m], $8
492	jz @f	492	jz @f
493	mov edx, A59	493	mov edx, A59
494	cmp [m], $9	494	cmp [m], $9
495	jz @f	495	jz @f
496	mov [micron], 18	496	mov [micron], 18
497	mov edx, A5D	497	mov edx, A5D
498	@@:	498	@@:
499	jmp @f	499	jmp @f
500		500

Subversion Repositories Kolibri OS

(root)/programs/testing/cpuid/trunk/CPUID.ASM – Rev 7900 → 8015