;******************************************************************************
; project name:  CPUID							      *
; platform:	 KolibriOS, x86 (IA-32), x86-64 achitectures		      *
; compiler:	 flat assembler 1.71.22 				      *
; version:	 2.43							      *
; last update:	 15 Ausust 2016 					      *
; maintained by: Sergey Kuzmin aka Wildwest				      *
; e-mail:	 kuzmin_serg@list.ru					      *
; forum topic:	 http://board.kolibrios.org/viewtopic.php?f=42&t=594	      *
; 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*
;-----------------------------------------------------------------------------*
; Comments are in English						      *
;------------------------------------------------------------------------------
use32 
  org	 0x0
  db	 'MENUET01'
  dd	 0x01
  dd	 START
  dd	 I_END
  dd U_END+4096
  dd U_END+4096
  dd	 0x0
  dd	 path

include '..\..\..\develop\libraries\box_lib\load_lib.mac'
include '..\..\..\macros.inc'
include 'lang.inc'
include 'draw.inc'
include 'brand.inc'     ; brand ID decoding
include 'caches.inc'    ; L1 and L2 cashes decoding for Intel
include 'multipli.inc'  ; multiplier decoding
include 'features.inc'  ; features decoding
include 'logos.inc'     ; include file where gif's are stored
include 'rsatest.inc'
include 'variable.inc'

@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

mov [nomultiplier], 1  ;dont detect multipl for new AMD
;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

; checking sse3 for new AMD's is needed
    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  
    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  
    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

;Opteron (Barcelona)
cmp [m],$2  ;model 2, stepping 1, Opteron processor 2347
   jz AB23.
cmp [m], $8 ;model 2, stepping 2, opteron processor 8356
   jz AB83.
   
;Phenom X4 (9-series) (Agena) 
cmp [m], $9    
  jz AB9.      ; 4 cores, cache 4x64
  
;Phenom X3 (8-series) (Toliman) 
cmp [m], $2	     ;3 cores, cache 3x63
  jz AB8check2.
  
AB8check2.:
cmp [s],03h	     
    jz AB8right2.

;Athlon 6-series 
cmp [m],$2
  jz athlonCheck
  
athlonCheck:	   ;stepping 03h, Athlon X2 7450 ; DONE
cmp [s],03h
    jz athlonKuma

;Athlon X2 (Rana)
cmp [m], $5    ;Model 5, 05h, stepping 3, 03h, AMD Athlon(tm) II X3 
 jz AB4.

;Opteron (Budapest)	0.065 micron, Core stepping(s)
cmp [m],$1     ;AMD Opteron 1354 (rev. B3) specifications
   jz AB1.	   ;model 2 02h, stepping 3 03h

;Opteron (Shanghai)  0.045 micron, Cores
cmp [m],$4	  
    jz AB8check.
    
AB8check.:
cmp [s],02h    ;2387
    jz ABC2.
cmp [s],01h    ;8300
     jz ABC3.

;Opteron (Magny-Cours) 
cmp [m], $9		
    jz AB6.
    
;Athlon II X2 0.045 micron
cmp [m], $2
    jz AB8check. 

;Turion II (Caspian)
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	;75,70
	mov esi, IntelnNew   ;un comment this four lines
	mov edi, saveproc
	call concatname
	mov	esi, intel
	call	load_gif
PutImage 135,107,201,49,img_area+8  ;this one
  

;PutImage 125,107,201,49,img_area+8
;	  place   size

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:    ;http://www.cpu-world.com/info/Intel/Intel_Core_i7.html

   cmp [em],$3A   ;IvyBridge ; only one
    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	     
   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
	jmp 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:
;Text 110,70,0x00000000,P25, P25len-P25
mov [micron], 32
mov [cname], P25  ;P25
mov esi, P25   ;un comment this four lines
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


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
    cmp [f], $5
    jz .V54 ;fivvtx

.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
  ;Text 300,350,,mb, mblen-mb

  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:

    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

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

;added
Text 115,335,0x00000000,EAS, EASlen-EAS   ;115,335

Text 115,375,0x00000000,DNP, DNPlen-DNP   ;115,375


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   ;try here
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 15,330,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 ;PutImage 15,330,93,24,img_area2+8   ; image "press for more"
;	  place   size


  Button 15,380,92,23,3+0x40000000,0x03FFFFFF ; button "save"  ;370 

	mov	esi, knopka2
	mov	edi, img_area3
	call	load_gif2
  PutImage 15,380,93,24,img_area3+8   ; image "save"	;370
;	  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

   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 + 0xF	  ;0xE
    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 PROCCORE 
    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
    
     ;try here
    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 
	
	 
	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_areasss
load_gif2:
 
COLOR_ORDER equ MENUETOS


; DATA AREA

title	 db   'CPUID 2.43 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 ; stepping M1, micron 0.032 

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 'Caspian',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

;;added
cname dd ? 

codeN dd ?

myname:

   rb 48

mynamelen:
   db 0x0


align 4

  thread2_stack_area rb 64

  thread2_esp = $

U_END: