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


;******************************************************************************
; project name:  CPUID							      *
; platform:	 KolibriOS, x86 (IA-32), x86-64 achitectures		      *
; compiler:	 flat assembler 1.70.03 				      *
; version:	 2.29							      *
; last update:	 12 October 2014					      *
; maintained by: Sergey Kuzmin aka Wildwest				      *
; e-mail:	 kuzmin_serg@list.ru					      *
; site: 	 http://coolthemes.narod.ru/files.html			      *
; license:	 Copyright 2004-2014 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 'lang.inc'				; language support
include 'macros.inc' ; useful macroses
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 'gif2img.inc'	      ;macros to convert gif to img
 
include 'rsatest.inc'
include 'variable.inc'
include 'load_lib.mac'
 
@use_library
 
START:			;
	mcall	68,11
	mcall	66,1,1
 
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
@@:
	Text	100,70,0x80000000
	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:
Text 110,70,0x00000000,P50, P50len-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:
Text 110,70,0x00000000,P5, P5len-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:
Text 110,70,0x00000000,P54C, P54Clen-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:
Text 110,70,0x00000000,P54T, P54Tlen-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:
Text 110,70,0x00000000,P55C, P55Clen-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:
Text 110,70,0x00000000,P54C, P54Clen-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:
Text 110,70,0x00000000,P55C, P55Clen-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
    Text 110,70,0x00000000,P60, P60len-P60
    mov esi, P60
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
 
.I61:
    mov [micron], 35
    Text 110,70,0x00000000,P61, P61len-P61
    mov esi, P61
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I63:
    mov [micron], 28
    Text 110,70,0x00000000,P63, P63len-P63
    mov esi, P63
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I65:
    mov [micron], 25
    cmp [L2], 0
    jne .pp65  ; Pentium
    Text 110,70,0x00000000,P65c, P65clen-P65c
    mov esi, P65c
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.pp65:
    Text 110,70,0x00000000,P65, P65len-P65
    mov esi, P65
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
.I66:
    mov [micron], 25
Text 110,70,0x00000000,P66, P66len-P66
mov esi, P66
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
.I67:
    mov [micron], 25
Text 110,70,0x00000000,P67, P67len-P67 ;but if SSE4.1 supported then it is Intel Core (Penryn)
    mov esi, P67
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I68:
    mov [micron], 18
    cmp [L2], 128
    jne .pp68  ; Pentium
Text 110,70,0x00000000,P68c, P68clen-P68c
mov esi, P68c
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
 .pp68:
Text 110,70,0x00000000,P68, P68len-P68
mov esi, P68
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I69:
    mov [micron], 13
Text 110,70,0x00000000,P69 , P69len-P69
mov esi, P69
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I6A:
    mov [micron], 18
Text 110,70,0x00000000,P6A, P6Alen-P6A ;but if SSE4.2 supported then it is Intel Core (Nehalem)
    mov esi, P6A
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I6B:
    mov [micron], 13
    cmp [L2], 256
    jne .pp6B  ; Pentium
Text 110,70,0x00000000,P6Bc, P6Bclen-P6Bc
mov esi, P6Bc
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.pp6B:
Text 110,70,0x00000000,P6B, P6Blen-P6B
mov esi, P6B
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I6D:
    mov [micron], 9
Text 110,70,0x00000000,P6D, P6Dlen-P6D
mov esi, P6D
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I6E:
    mov [micron], 6
Text 110,70,0x00000000,P6E, P6Elen-P6E
mov esi, P6E
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
    
.I6F:
    mov [micron], 6
Text 110,70,0x00000000,P6F, P6Flen-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
	jnz no_known
 
Inewunknown:
    jmp MMXtest
 
I3A:
mov [micron], 32
;Text 110,70,0x00000000,P3A, P3Alen-P3A
mov [cname], P3A
mov esi, P3A
mov edi, saveproc + 0x10
call concatname
jmp MMXtest
 
I2A:
mov [micron], 32
;Text 110,70,0x00000000,P2A, P2Alen-P2A
mov [cname], P2A
mov esi, P2A
mov edi, saveproc + 0x10
call concatname
jmp MMXtest
 
I2D:
mov [micron], 32
;Text 110,70,0x00000000,P2D, P2Dlen-P2D
mov [cname], P2D
mov esi, P2D
mov edi,saveproc + 0x10
call concatname
jmp MMXtest
 
I25:
mov [micron], 32
;Text 110,70,0x00000000,P25, P25len-P25
mov [cname], P25  ;P25
mov esi, P25   
mov edi, saveproc + 0x10  ;12
call concatname
jmp MMXtest
 
I2C:
mov [micron], 32
;Text 110,70,0x00000000,P2C, P2Clen-P2C
mov [cname], P2C
mov esi, P2C
mov edi,saveproc + 0x10
call concatname
    jmp MMXtest
 
I2F:
mov [micron], 32
;Text 110,70,0x00000000,P2F, P2Flen-P2F
mov [cname], P2F
mov esi, P2F
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
 
I1E:
mov [micron], 32
;Text 110,70,0x00000000,P1E, P1Elen-P1E
mov [cname], P1E
mov esi, P1E
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
 
I1A:
mov [micron], 45
;Text 110,70,0x00000000,P1A, P1Alen-P1A
mov [cname], P1A
mov esi, P1A
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
 
I2E:
mov [micron], 45
;Text 110,70,0x00000000,P2E, P2Elen-P2E
mov [cname], P2E
mov esi, P2E
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
 
I17:
mov [micron], 45
;Text 110,70,0x00000000,P17, P17len-P17
mov [cname], P17
mov esi, P17
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
    
I1D:
mov [micron], 45
;Text 110,70,0x00000000,P1D, P1Dlen-P1D
mov [cname], P1D
mov esi, P1D
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest    
    
I0F:
mov [micron], 65
;Text 110,70,0x00000000,P0F, P0Flen-P0F
mov [cname], P0F
mov esi, P0F
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest    
    
I16:
mov [micron], 65
;Text 110,70,0x00000000,P16, P16len-P16
mov [cname], P16
mov esi, P16
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest 
 
I06:
mov [micron], 32
;Text 110,70,0x00000000,P06, P06len-P06
mov [cname], P06
mov esi, P06
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest       
    
I03:
mov [micron], 32
;Text 110,70,0x00000000,P03, P03len-P03
mov [cname], P03
mov esi, P03
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
    
I0D:
mov [micron], 32
;Text 110,70,0x00000000,P0D, P0Dlen-P0D
mov [cname], P0D
mov esi, P0D
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
 
I36:
mov [micron], 32
;Text 110,70,0x00000000,P36, P36len-P36
mov [cname], P36
mov esi, P36
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
 
I26:
mov [micron], 32
;Text 110,70,0x00000000,P26, P26len-P26
mov [cname], P26
mov esi, P26
mov edi, saveproc + 0x10
call concatname
    jmp MMXtest
    
I1C:
mov [micron], 32
;Text 110,70,0x00000000,P1C, P1Clen-P1C 
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
Text 110,70,0x00000000,PS0, PS0len-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
Text 110,70,0x00000000,PF0c, PF0clen-PF0c
mov esi, PF0c
    mov edi, saveproc + 0x6
    call concatname
    jmp MMXtest
.ppF0:
Text 110,70,0x00000000,PF0, PF0len-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:
Text 110,70,0x00000000,PF0, PF0len-PF0
mov esi, PF0
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
.IF2:
    mov [micron], 13
    cmp [L2], 128
    jne .ppF2  ; Pentium
Text 110,70,0x00000000,PF2c, PF2clen-PF2c
mov esi, PF2c
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
.ppF2:
Text 110,70,0x00000000,PF2, PF2len-PF2
mov esi, PF2
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
.IF3:
    mov [micron], 09
    cmp [L2], 256
    jne .ppF3  ; Pentium
Text 110,70,0x00000000,PF3c, PF3clen-PF3c
mov esi, PF3c
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
.ppF3:
Text 110,70,0x00000000,PF3, PF3len-PF3
mov esi, PF3
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
 
.IF5:
    mov [micron], 09
    cmp [L2], 512
    jae .ppF5  ; Pentium
Text 110,70,0x00000000,PF5c, PF5clen-PF5c
mov esi, PF5c
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
.ppF5:
Text 110,70,0x00000000,PF5, PF5len-PF5
mov esi, PF5
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
 
 .IF6:
    mov [micron], 06  ; 065
    cmp [L2], 512
    ja .ppF6  ; Pentium
Text 110,70,0x00000000,PF6c, PF6clen-PF6c
mov esi, PF6c
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
.ppF6:
Text 110,70,0x00000000,PF6, PF6len-PF6
mov esi, PF6
    mov edi, saveproc + 0x6
    call concatname
 jmp MMXtest
 
 
 next_generation:
Text 110,70,0x00000000,NG, NGlen-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
Text 110,70,0x00000000,C52, C52len-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
Text 110,70,0x00000000,C54, C54len-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
Text 110,70,0x00000000,C60, C60len-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
;Text 110,70,0x00000000,V54, V54len-V54
    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
 
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:
 
    ;================_RAM_==============
  Number 200,350,0,4,dword [ram_size_a],0xFFFFFF ;Number 200,340,0,4,dword [ram_size_a],0xFFFFFF
 
  mov eax, 18
  mov ebx, 16
  mcall
 
  shr eax, 10
 
  mov [ram_size_a], eax
 
  mov eax, 18
  mov ebx, 17
  mcall
 
  shr eax, 10
 
  mov [ram_size_t], eax
  
  Text 115,350,0x00000000,ram, ramlen-ram
  Number 200,350,0,4,dword [ram_size_a],0x000000
  Number 270,350,,,dword [ram_size_t]
 
 
;==============================
 
	mov	eax,23	     ; function 23 - event wait
	mov	ebx,50	     ; wait for 0.5 second
	mcall
 
    cmp  eax,1		;
    je	 red		;  redraw
    je   red2
    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
 
;   *******  main window *******
 
draw_window:
   mov eax,12
   mov	ebx,1h
   mcall
 
 Window 150,150,350,430, 0x34FFFFFF, 0x805080d0, title
	  ; place size
 
   Button 15,345,92,23,2+0x40000000,0x03FFFFFF ; button "press for more"
 
	mov	esi, knopka
	mov	edi, img_area2
 	call	load_gif2
PutImage 15,345,93,24,img_area2+8 ; image "press for more"
;         place   size
 
 
  Button 15,380,92,23,3+0x40000000,0x03FFFFFF ; button "save" 
 
	mov	esi, knopka2
	mov	edi, img_area3
	call	load_gif2
  PutImage 15,380,93,24,img_area3+8   ; image "save"   
;         place   size
 
    mov  eax,12
    mov  ebx,2h
    mcall
 
    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:
    Text 15,50,0x00000000,tsum, tsumlen-tsum   ;
 
;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,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 115,350,0x00000000,ram, ramlen-ram
    Number 200,350,0,4,dword [ram_size_a],0x000000
    
    Number 270,350,0,4,dword [ram_size_t]
    Text 300,350,0x00000000,mb, mblen-mb
           
    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
    Text 110,70,0x00000000,dword[cname], 40
    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
    
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
 
    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 cx, cx
@@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
load_gif2:
 
COLOR_ORDER equ MENUETOS
include 'gif_lite.inc'	      ; parse GIF files
 
; DATA AREA
 
title	 db   'CPUID 2.29 by S.Kuzmin & the 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  ;
 
 
 
ram:
 
if lang eq it
 
		db 'RAM libera:        su'
 
else
 
		db 'Available RAM:     out of'
 
end if
 
 
 
 
 
ramlen:
 
 
 
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 '
 
;---------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
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
 
;  include images and unpacking- and hasharea
 
;
 
include 'logos.inc' ; include file where gif's are stored
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
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
 
;---------------------------------------------------------------------
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
 
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 0x0
 
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 0x0
 
 
align 4
 
 
 
  thread2_stack_area rb 64
 
  thread2_esp = $
 
U_END:

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

Subversion Repositories Kolibri OS

(root)/programs/system/cpuid/trunk/CPUID.ASM – Rev 6483 → 6484