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

 ;******************************************************************************
-; project name:    CPUID                                                      *
+; project name:  CPUID                                                        *
-; target platform: KolibriOS, x86 (IA-32), x86-64 achitectures                *
+; platform:      KolibriOS, x86 (IA-32), x86-64 achitectures                  *
-; compiler:        flat assembler 1.67.21                                     *
+; compiler:      flat assembler 1.70.03                                       *
-; version:         2.21                                                        *
+; version:       2.28                                                         *
-; last update:     18th May 2007         1st 2nd 3rd 4th 5th 6th 7th 8th 9th  *
+; last update:   23rd October 2013                                            *
-; maintained by:   Sergey Kuzmin aka Wildwest                                 *
+; maintained by: Sergey Kuzmin aka Wildwest                                   *
-; e-mail:          kuzmin_serg@list.ru                                        *
+; e-mail:        kuzmin_serg@list.ru                                          *
-; site:            http://coolthemes.narod.ru/files.html                      *
+; site:          http://coolthemes.narod.ru/files.html                        *
-; license:         Copyright 2004-2007 Sergey Kuzmin and co-authors           *
+; license:       Copyright 2004-2013 Sergey Kuzmin and co-authors             *
-;                  Rules:                                                     *
+;                Rules:                                                       *
-;                  1)you can use pieces of code in your project, but should   *
+;                1)you can use pieces of code in your project, but should     *
-;                    mention the original author (include copyright notice);  *
+;                mention the original author (include copyright notice);      *
-;                  2)if you modify CPUID (improve, port, translate, etc) send *
+;                2)if you modify CPUID (improve, port, translate, etc) send   *
-;                    your changes to the maintainer or make about post changes*
+;                your changes to the maintainer or make about post changes    *
-;                    at forum  http://meos.sysbin.com                         *
+;                at forum  http://board.kolibrios.org/viewtopic.php?f=42&t=594*
 ;-----------------------------------------------------------------------------*
 ; English comments                                                            *
 ;------------------------------------------------------------------------------
 use32
   org	 0x0
   dd U_END+4096
   dd	 0x0
   dd	 0x0
-include 'lang.inc'				; language support
 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)
 cmp dword[smallvendor], 'cAMD'
 jz maybe_athlon
 cmp dword[smallvendor], 'ntel'
 jnz no_full   ; if not AMD or Intel
-detect_it:
+;detect_it:
-cmp [f], 0Fh
+;cmp [f], 0Fh
-jne no_full
+;jne no_full   fixed calculation of extended model for Intel
 full:
 ; 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'
   jz Intel
   cmp dword[smallvendor], 'cAMD'
   jz AMD
   cmp dword[smallvendor], 'tead'
   jz Cyrix
   cmp dword[smallvendor], 'auls'
   jz Centaur
   cmp dword[smallvendor], 'Mx86'
   jz Transmeta
+  cmp dword[smallvendor], ' SoC'
+  jz Vortex
 ; cmp ecx, 'UMC '
 ; jz .UMC
 ; cmp ecx, 'iven'
         jmp     AA
 @@:
         Text    100,70,0x80000000
         jmp     MMXtest
 A6:
-        mov     [FRS], 266  ;!!!!!!
+;        mov     [FRS], 266  ;!!!!!!
-        Number  315,90,0,3,dword [FRS],0x000000; MHz
+;        Number  315,90,0,3,dword [FRS],0x000000; MHz
         mov     edx, At6
         jmp     @b
 A8:
-        mov     [FRS], 266	;!!!!!!
+;        mov     [FRS], 266	;!!!!!!
-        Number  315,90,0,3,dword [FRS],0x000000; MHz
+;        Number  315,90,0,3,dword [FRS],0x000000; MHz
         mov     edx, At8a
         jmp     @b
 AA:
-        mov     [FRS], 333; !!!!
+;        mov     [FRS], 333; !!!!
         Text    245,70,0x00000000,pr, prlen-pr
-        Number  315,90,0,3,dword [FRS],0x000000; MHz
+;        Number  315,90,0,3,dword [FRS],0x000000; MHz
     mov [micron], 25
 Text 110,70,0x00000000,P66, P66len-P66
     jmp MMXtest
 .I67:
     mov [micron], 25
-Text 110,70,0x00000000,P67, P67len-P67
+Text 110,70,0x00000000,P67, P67len-P67 ;but if SSE4.1 supported then it is Intel Core (Penryn)
     jmp MMXtest
 .I68:
     mov [micron], 18
     cmp [L2], 128
     jne .pp68  ; Pentium
     mov [micron], 13
 Text 110,70,0x00000000,P69 , P69len-P69
     jmp MMXtest
 .I6A:
     mov [micron], 18
-Text 110,70,0x00000000,P6A, P6Alen-P6A
+Text 110,70,0x00000000,P6A, P6Alen-P6A ;but if SSE4.2 supported then it is Intel Core (Nehalem)
     jmp MMXtest
 .I6B:
     mov [micron], 13
     cmp [L2], 256
     jne .pp6B  ; Pentium
 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
+;Text 110,70,0x00000000,V54, V54len-V54
+    jmp MMXtest
+;---------------------
 ;----
 MMXtest:	     ; MMX test and Brand ID decoding
 nop
 jmp FREEZE ; maybe we should close application or just made some Warning and jump to still:
 ;----------------
 still:
-; çàòåì ïåðåõîäèì â öèêë îæèäàíèÿ ñîáûòèé
+; waiting for events
 event_wait:
   Number 270,340,,,dword [ram_size_t]
 ;==============================
-	mov	eax,23	     ; ôóíêöèÿ 23: îæèäàíèå ñîáûòèÿ
+	mov	eax,23	     ; function 23 - event wait
-	mov	ebx,50	     ; æäåìñ 0.5 ñåê
+	mov	ebx,50	     ; wait for 0.5 second
 	mcall
     je	close		; close
     cmp  ah,2		;  = 2 ?
     je	thread_start	;
 			;
-    cmp  ah,3		;  = 3 ?
+;    cmp  ah,3		;  = 3 ?
-    jne  still
+    jne  still
-vybor:
- Number 310,70,0,4,dword [rating],0xFFFFFF ;
- Number 315,90,0,3,dword [FRS]; MHz
-cmp [FRS], 266
-jz .s1
-cmp [FRS], 333
-jz .s2
-cmp [FRS], 400
-jz .s3
-.s1:
+;vybor:
-mov [FRS], 333
+; Number 310,70,0,4,dword [rating],0xFFFFFF ;
+; Number 315,90,0,3,dword [FRS]; MHz
+;cmp [FRS], 266
+;jz .s1
+;cmp [FRS], 333
+;jz .s2
+;cmp [FRS], 400
+;jz .s3
+;.s1:
+;mov [FRS], 333
-.rating:
+;.rating:;
-call newrating
+;call newrating
- Number 310,70,0,4,dword [rating],0x000000
+; Number 310,70,0,4,dword [rating],0x000000
- Number 315,90,0,3,dword [FRS]; MHz
+; Number 315,90,0,3,dword [FRS]; MHz
-jmp  still
+;jmp  still
+;
-.s2:
+;.s2:
-mov [FRS], 400
+;mov [FRS], 400
-jmp .rating
+;jmp .rating
   cmp dword[smallvendor], 'cAMD'
   jne cont
   cmp [f], $6
   jne cont
-   Button 240,85,69,15,3,0x030000FF  ;  button for rating
+;   Button 240,85,69,15,3,0x030000FF  ;  button for rating
-    Text 245,90,0x00FFFFFF,FR, FRlen-FR
+;    Text 245,90,0x00FFFFFF,FR, FRlen-FR ; text at button
 COLOR_ORDER equ MENUETOS
 include 'gif_lite.inc'        ; parse GIF files
 ; DATA AREA
 title	 db   'CPUID 2.28 by S.Kuzmin & the KolibriOS team',0
 title	 db   'CPUID 2.21 by S.Kuzmin & the KolibriOS team',0
+tsum:
+if lang eq it
 tsum:
+                db 'Frequenza:     .   MHz'
 if lang eq it
+else
 		db 'Frequenza:     .   MHz'
+                db 'Frequency:     .   MHz'
+end if
 else
 		db 'Frequency:     .   MHz'
-end if
+tsumlen:
 total dd 0x0
+total1 dd 0x0
 tsumlen:
+rating dd 0x0
+rat dd 0x0  ;
 total dd 0x0
 total1 dd 0x0
+ram:
 rating dd 0x0
+if lang eq it
 rat dd 0x0  ;
+                db 'RAM libera:        su'
+else
+                db 'Available RAM:     out of'
-ram:
+end if
 if lang eq it
 		db 'RAM libera:        su'
+ramlen:
 else
 		db 'Available RAM:     out of'
+NEF:
 end if
+db 'EXTENDED FEATURES ARE NOT AVAILABLE'
 NEFlen:
-ramlen:
+mb :
+db 'MB'
+mblen:
 NEF:
 db 'EXTENDED FEATURES ARE NOT AVAILABLE'
+;logcpus :
 NEFlen:
+;db 'Number of logical CPU:'
+;logcpuslen:
 mb :
+speed :
 db 'MB'
+if lang eq it
-mblen:
+                db 'Performance'
 else
-;logcpus :
+                db 'PERFORMANCE:'
+end if
 ;db 'Number of logical CPU:'
 ;logcpuslen:
+speedlen:
 speed :
 if lang eq it
+kbpersec:
 		db 'Performance'
+db 'KB/SEC'
+kbperseclen:
 else
-		db 'PERFORMANCE:'
+instruct:
+if lang eq it
-end if
+                db 'Set istruzioni'
+else
+                db 'Instruction sets'
-speedlen:
+end if
 kbpersec:
+instructlen:
 db 'KB/SEC'
 kbperseclen:
+standard    db 'Standard and Extended features plus Performance test',0
-instruct:
+;FR:
-if lang eq it
+;    db 'Choose FSB:'
-		db 'Set istruzioni'
+;FRlen:
 else
+STDCA:
 		db 'Instruction sets'
+    db 'Highest STD call is         '
 end if
+STDCAlen:
+EXTCA:
 instructlen:
+    db 'Highest EXT call is         h'
 EXTCAlen:
 standard    db 'Standard and Extended features plus Performance test',0
 brandid:
-FR:
+    db 'Brand:'
-    db 'Choose FSB:'
+brandidlen:
 FRlen:
 oblom:
+if lang eq it
 STDCA:
+                db 'CPUID non e disponibile'
-    db 'Highest STD call is         '
+else
-STDCAlen:
+                db 'SORRY, CPUID IS NOT AVAILABLE'
 end if
 EXTCA:
-    db 'Highest EXT call is         h'
+oblomlen:
-EXTCAlen:
+other:
+if lang eq it
+                db 'Questo vendor non e supportato'
 brandid:
+else
     db 'Brand:'
+                db 'SORRY, THIS VENDOR IS NOT SUPPORTED YET'
 brandidlen:
+end if
 oblom:
+otherlen:
 if lang eq it
+cpuname:
 		db 'CPUID non e disponibile'
+if lang eq it
 else
+                db 'Vendor CPU              '
 		db 'SORRY, CPUID IS NOT AVAILABLE'
+else
 end if
+                db 'CPU VENDOR:             '
+end if
 oblomlen:
 other:
+cpunamelen:
-if lang eq it
+fam:
-		db 'Questo vendor non e supportato'
+if lang eq it
-else
+                db 'Famiglia:   std    ext'
-		db 'SORRY, THIS VENDOR IS NOT SUPPORTED YET'
+else
-end if
+                db 'FAMILY:     std    ext'
 end if
 otherlen:
+famlen:
-cpuname:
+mode:
+if lang eq it
 if lang eq it
+                db 'Modello:    std    ext'
 		db 'Vendor CPU              '
+else
-else
+                db 'MODEL:      std    ext'
-		db 'CPU VENDOR:             '
+end if
 end if
+modelen:
+step:
-cpunamelen:
+if lang eq it
-fam:
+                db 'Stepping:'
+else
 if lang eq it
+                db 'STEPPING:'
 		db 'Famiglia:   std    ext'
+end if
 else
-		db 'FAMILY:     std    ext'
+steplen:
 end if
+cache2:
     db 'L1(data):     KB       -way set     -byte line size'
-famlen:
+cache2len:
 mode:
-if lang eq it
+cache:
-		db 'Modello:    std    ext'
+    db 'L1(inst):     KB       -way set     -byte line size'
-else
+cachelen:
-		db 'MODEL:      std    ext'
+cache3:
 end if
+    db 'L2:      KB            -way set     -byte line size'
+cache3len:
 modelen:
 step:
+cache4:
 if lang eq it
+    db 'L3:      KB            -way set     -byte line size'
 		db 'Stepping:'
+cache4len:
 else
+cacheP4:
 		db 'STEPPING:'
 end if
+    db 'L1(inst):     Kuops    -way set     -byte line size'
+cacheP4len:
 steplen:
 tech:
-cache2:
+if lang eq it
+                db 'Tecnologia: 0.   micron '
+else
     db 'L1(data):     KB       -way set     -byte line size'
+                db 'Technology: 0.   micron '
 cache2len:
+end if
 cache:
-    db 'L1(inst):     KB       -way set     -byte line size'
+techlen:
 cachelen:
 typen:
-cache3:
+if lang eq it
+                db 'Tipo:'
+else
-    db 'L2:      KB            -way set     -byte line size'
+                db 'Type:'
-cache3len:
+end if
-cache4:
+typenlen:
     db 'L3:      KB            -way set     -byte line size'
-cache4len:
+pr:
   db 'P-rating:'
-cacheP4:
+prlen:
-    db 'L1(inst):     Kuops    -way set     -byte line size'
+multil:
-cacheP4len:
+  db 'Multiplier:   .'
 multillen:
 tech:
-if lang eq it
+freql:
-		db 'Tecnologia: 0.   micron '
+  db 'System clock:     .   MHz'
+freqllen:
 else
 		db 'Technology: 0.   micron '
+name:
 end if
+if lang eq it
+                db 'Codename:'
+else
                 db 'CODENAME:'
 end if
 techlen:
+namelen:
 typen:
+AMDn:
 if lang eq it
+    db 'AMD'
-		db 'Tipo:'
+AMDnlen:
-else
+Inteln:
-		db 'Type:'
+    db 'Intel'
+Intelnlen:
 end if
+Cyrixn:
+    db 'Cyrix'
 typenlen:
+Cyrixnlen:
 IDTn:
-pr:
+     db 'IDT/Centaur'
-  db 'P-rating:'
+IDTnlen:
-prlen:
+Centaurn:
      db 'VIA'
-multil:
+Centaurnlen:
   db 'Multiplier:   .'
-multillen:
+Tranmsmetan:
      db 'Transmeta'
+Tranmsmetanlen:
 freql:
+Vortexn:
-  db 'System clock:     .   MHz'
+    db 'Vortex86'
+Vortexnlen:
 freqllen:
 MMXs:
-name:
+    db 'MMX:         '
+MMXslen:
 if lang eq it
 		db 'Codename:'
+mmxp:
 else
+    db 'MMX+:         '
 		db 'CODENAME:'
+mmxplen:
 end if
+HTT:
 namelen:
+    db 'HTT:          '
+HTTlen:
 AMDn:
     db 'AMD'
+HTTn:
 AMDnlen:
+    db 'HTT:         '
 Inteln:
+HTTnlen:
     db 'Intel'
 Intelnlen:
+sse3:
 Cyrixn:
+    db 'SSE3:         '
     db 'Cyrix'
+sse3len:
 Cyrixnlen:
+now:
 IDTn:
+    db '3DNOW!:         '
      db 'IDT/Centaur'
+nowlen:
 IDTnlen:
+nowp:
 Centaurn:
+    db '3DNOW!+:         '
      db 'VIA'
+nowplen:
 Centaurnlen:
+;-Type
 Tranmsmetan:
      db 'Transmeta'
+t1      db      'OEM',0
 Tranmsmetanlen:
+t2      db      'Overdrive',0
+t3      db      'Dual',0
 MMXs:
+t4      db      'Unknown',0
     db 'MMX:         '
 MMXslen:
+;----------Intel
+P50:
 mmxp:
+db 'P5 A-step'
     db 'MMX+:         '
+P50len:
 mmxplen:
+P5:
+db 'P5'
 HTT:
+P5len:
     db 'HTT:          '
+P54T:
 HTTlen:
+db 'P24T Overdrive'
+P54Tlen:
 HTTn:
+P54C:
     db 'HTT:         '
+db 'P54C'
 HTTnlen:
+P54Clen:
+P55C:
 sse3:
+db 'P55C (with MMX)'
     db 'SSE3:         '
+P55Clen:
 sse3len:
+; ---
 now:
+P60:
     db '3DNOW!:         '
+db 'Pentium Pro A-step'
 nowlen:
+P60len:
 nowp:
+P61:
     db '3DNOW!+:         '
+db 'Pentium Pro'
 nowplen:
+P61len:
+P63:
 ;-Type
+db 'Pentium II (Klamath)'
+P63len:
 t1      db      'OEM',0
+P65:
 t2      db      'Overdrive',0
+db 'Pentium II (Deschutes)'
 t3      db      'Dual',0
+P65len:
 t4      db      'Unknown',0
+P66:
+db 'Celeron (Medocino)'
 ;----------Intel
+P66len:
 P50:
+P67:
 db 'P5 A-step'
+db 'Pentium III (Katmai)'
 P50len:
+P67len:
 P5:
+P68:
 db 'P5'
+db 'Pentium III (Coppermine)'
 P5len:
+P68len:
 P54T:
+P69:
 db 'P24T Overdrive'
+db 'Pentium M (Banias)'
 P54Tlen:
+P69len:
 P54C:
+P6A:
 db 'P54C'
+db 'Pentium III Xeon (Cascades)'
 P54Clen:
+P6Alen:
 P55C:
+P6B:
 db 'P55C (with MMX)'
+db 'Pentium III (Tualatin)'
 P55Clen:
+P6Blen:
 ; ---
+P6D:
 P60:
+db 'Pentium M (Dothan)'
 db 'Pentium Pro A-step'
+P6Dlen:
 P60len:
+P6E:
 P61:
+db 'Pentium M (Yonah)/ Core'
 db 'Pentium Pro'
+P6Elen:
 P61len:
+P6F:
 P63:
+db 'Pentium D (Conroe)/ Core 2 (Kentsfield)'
 db 'Pentium II (Klamath)'
+P6Flen:
 P63len:
+;---
 P65:
+PS0:
 db 'Pentium II (Deschutes)'
+db 'Itanium (IA-64)'
 P65len:
+PS0len:
 P66:
+;------------
 db 'Celeron (Medocino)'
+PF0:
 P66len:
+db 'Pentium 4 (Willamete)'
 P67:
+PF0len:
 db 'Pentium III (Katmai)'
+PF2:
 P67len:
+db 'Pentium 4 (Northwood)'
 P68:
+PF2len:
 db 'Pentium III (Coppermine)'
+PF3:
 P68len:
+db 'Pentium 4 (Prescott)'
 P69:
+PF3len:
 db 'Pentium M (Banias)'
+PF5:
 P69len:
+db 'Pentium 4 (Tejas)'
 P6A:
+PF5len:
 db 'Pentium III Xeon (Cascades)'
+PF6:
 P6Alen:
+db 'Pentium 4 (Presler)'
 P6B:
+PF6len:
 db 'Pentium III (Tualatin)'
+;----------------Intel Celerons
 P6Blen:
+P65c:
 P6D:
+db 'Celeron (Covington)'
 db 'Pentium M (Dothan)'
+P65clen:
 P6Dlen:
+P68c:
 P6E:
+db 'Celeron (Coppermine)'
 db 'Pentium M (Yonah)/ Core'
+P68clen:
 P6Elen:
+P6Bc:
 P6F:
+db 'Celeron (Tualatin)'
 db 'Pentium D (Conroe)/ Core 2 (Kentsfield)'
+P6Bclen:
 P6Flen:
+PF0c:
 ;---
+db 'Celeron (Willamete)'
 PS0:
+PF0clen:
 db 'Itanium (IA-64)'
+PF2c:
 PS0len:
+db 'Celeron (Northwood)'
 ;------------
+PF2clen:
 PF0:
+PF3c:
 db 'Pentium 4 (Willamete)'
+db 'Celeron (Prescott)'
 PF0len:
+PF3clen:
 PF2:
+PF5c:
 db 'Pentium 4 (Northwood)'
+db 'Celeron D (Texas)'
 PF2len:
+PF5clen:
 PF3:
+PF6c:
 db 'Pentium 4 (Prescott)'
+db 'Celeron D (Presler)'
 PF3len:
+PF6clen:
 PF5:
+;---------AMD
 db 'Pentium 4 (Tejas)'
+A50     db 'K5 (PR75, PR90, PR100)',0
 PF5len:
+A51     db '5k86 (PR120, PR133)',0
 PF6:
+A52     db '5k86 (PR166)',0
-db 'Pentium 4 (Presler)'
+A53     db '5k86 (PR200)',0
-PF6len:
+A56     db 'K6',0
-;----------------Intel Celerons
+A57     db 'K6',0
+A58     db 'K6-2',0
 P65c:
+A59     db 'K6-III',0
 db 'Celeron (Covington)'
+A5D     db 'K6-2+ or K6-III+',0
 P65clen:
+;-------------------
-P68c:
+At1     db 'Athlon',0
-db 'Celeron (Coppermine)'
+At2     db 'Athlon',0
-P68clen:
+At3     db 'Duron (Spitfire)',0
+At4     db 'Athlon (Thunderbird)',0
 P6Bc:
+At6     db 'AthlonXP (Palomino)',0
 db 'Celeron (Tualatin)'
+At7     db 'Duron (Morgan)',0
 P6Bclen:
+At8     db 'AthlonXP (Thoroughbred)',0
-PF0c:
+At8a    db 'Duron (Applebred)',0
-db 'Celeron (Willamete)'
+Ata     db 'AthlonXP (Barton)',0
-PF0clen:
+Atat    db 'AthlonXP (Thorton)',0
+;-------------------
 PF2c:
+AF1:
 db 'Celeron (Northwood)'
+db 'Dual-core Opteron'
 PF2clen:
+AF1len:
-PF3c:
+AF3:
-db 'Celeron (Prescott)'
+db 'Athlon 64 (Toledo)'
-PF3clen:
+AF3len:
-PF5c:
+AF4:
-db 'Celeron D (Texas)'
+db 'Athlon 64 (ClawHammer)'
-PF5clen:
+AF4len:
-PF6c:
+AF5:
-db 'Celeron D (Presler)'
+db 'Opteron/Athlon 64 FX (SledgeHammer)'
-PF6clen:
+AF5len:
 ;---------AMD
-A50     db 'K5 (PR75, PR90, PR100)',0
+AFC:
-A51     db '5k86 (PR120, PR133)',0
+db 'Athlon 64 (Newcastle)'
-A52     db '5k86 (PR166)',0
+AFClen:
 A53     db '5k86 (PR200)',0
-A56     db 'K6',0
+AFF:
-A57     db 'K6',0
+db 'Athlon 64 (Winchester)'
-A58     db 'K6-2',0
+AFFlen:
 A59     db 'K6-III',0
-A5D     db 'K6-2+ or K6-III+',0
+AFS:
-;-------------------
+db 'Athlon 64 (San Diego)'
-At1     db 'Athlon',0
+AFSlen:
 At2     db 'Athlon',0
-At3     db 'Duron (Spitfire)',0
+AFV:
-At4     db 'Athlon (Thunderbird)',0
+db 'Athlon 64 (Venice)'
-At6     db 'AthlonXP (Palomino)',0
+AFVlen:
 At7     db 'Duron (Morgan)',0
-At8     db 'AthlonXP (Thoroughbred)',0
+AFCs:
-At8a    db 'Duron (Applebred)',0
+db 'Sempron (Paris)'
-Ata     db 'AthlonXP (Barton)',0
+AFCslen:
 Atat    db 'AthlonXP (Thorton)',0
-;-------------------
+AFCsp:
-AF1:
+db 'Sempron (Palermo)'
-db 'Dual-core Opteron'
+AFCsplen:
 AF1len:
-AF3:
+;---------Cyrix
-db 'Athlon 64 (Toledo)'
+C52:
-AF3len:
+db '6x86 M1'
-AF4:
+C52len:
-db 'Athlon 64 (ClawHammer)'
+C54:
-AF4len:
+db 'MediaGX'
-AF5:
+C54len:
-db 'Opteron/Athlon 64 FX (SledgeHammer)'
+C60:
-AF5len:
+db '6x86MX M2'
 C60len:
-AFC:
+C65:
-db 'Athlon 64 (Newcastle)'
+db 'C3 (Cyrix M2)' ;?
-AFClen:
+C65len:
 ;--------IDT
-AFF:
+V54:
-db 'Athlon 64 (Winchester)'
+db 'WinChip C6'
+V54len:
 AFFlen:
+V58:
+db 'WinChip 2'
 AFS:
+V58len:
 db 'Athlon 64 (San Diego)'
+V59:
 AFSlen:
+db 'WinChip 3'
+V59len:
-AFV:
+;-------VIA
+V66:
 db 'Athlon 64 (Venice)'
+db 'C3 (Samuel)'  ; Joshua is unreleased 065
 AFVlen:
+V66len:
+V67:
 AFCs:
+db 'C3 (Samuel2/Ezra)' ; ?
 db 'Sempron (Paris)'
+V67len:
 AFCslen:
+V68:
+db 'C3 (Ezra-T/Eden)' ;?
 AFCsp:
+V68len:
-db 'Sempron (Palermo)'
+V69:
-AFCsplen:
+db 'C3 (Antaur/Nehemiah)' ;?
 V69len:
-;---------Cyrix
+VA:
-C52:
+db 'C7 (Esther)' ;?
+VAlen:
+;---------Transmeta
 db '6x86 M1'
-C52len:
+T5:
 C54:
-db 'MediaGX'
+db 'Crusoe' ;
 C54len:
-C60:
-db '6x86MX M2'
-C60len:
+T5len:
-C65:
+TF:
-db 'C3 (Cyrix M2)' ;?
+db 'Efficeon' ;
-C65len:
+TFlen:
-;--------IDT
+;---------
-V54:
+NG:
-db 'WinChip C6'
+    db 'Next generation CPU'
+NGlen:
 V54len:
-V58:
+stm:
-db 'WinChip 2'
+if lang eq it
-V58len:
+                db 'Nome:  '
-V59:
+else
-db 'WinChip 3'
+                db 'Internal name:'
-V59len:
+end if
 ;-------VIA
+stmlen:
 V66:
-db 'C3 (Samuel)'  ; Joshua is unreleased 065
+athloncoef      db      110, 115, 120, 125, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 120
-V66len:
+                db      190, 120, 200, 130, 135, 140, 210, 150, 220, 160, 165, 170, 180, 230, 240
-V67:
+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
 db 'C3 (Samuel2/Ezra)' ; ?
+athloncoef3     db      45, 50, 40, 55, 25, 30, 60, 35
 V67len:
+p4coef          db      160, 170, 180, 190, 200, 210, 220, 230, 80, 90, 100, 110, 120, 130, 140, 150    ; Pentium 4 (Willamete)
 V68:
+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
 db 'C3 (Ezra-T/Eden)' ;?
+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
 V68len:
 V69:
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 db 'C3 (Antaur/Nehemiah)' ;?
+;
-V69len:
+;  include images and unpacking- and hasharea
 VA:
+include 'logos.inc' ; include file where gif's are stored
 db 'C7 (Esther)' ;?
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-VAlen:
+I_END:
+img_area:          ; image is going to be unpacked to here
-;---------Transmeta
+rb 201*49*3+8      ; image resolution (bits to reserve)
-T5:
+img_area2:         ; image is going to be unpacked to here
+rb 93*24*3+8       ; image resolution (bits to reserve)
 db 'Crusoe' ;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-T5len:
+; RSA test data
-TF:
+align 4
+  num1 rd 40
 db 'Efficeon' ;
+  num2 rd 40
 TFlen:
+  num3 rd 40
-;---------
+  iter rd 1
-NG:
+  openkey rd 1
     db 'Next generation CPU'
+IncludeUGlobals
 NGlen:
 ost dd ?
-stm:
+sot dd ?
+f dd ?
 if lang eq it
+m dd ?
-		db 'Nome:  '
+s dd ?
+t dd ?
 else
 		db 'Internal name:'
+ef dd ?
 end if
+em dd ?
+multiplier dd ?
 stmlen:
+multa dd ?
+multb dd ?
 athloncoef	db	110, 115, 120, 125, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 120

Subversion Repositories Kolibri OS

(root)/programs/system/cpuid/trunk/CPUID.ASM – Rev 3587 → 4107