Subversion Repositories Kolibri OS

Rev

Rev 318 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 318 Rev 450
Line 1... Line 1...
1
;******************************************************************************
1
;******************************************************************************
2
; project name:    CPUID                                                      *
2
; project name:    CPUID                                                      *
3
; target platform: KolibriOS, x86 (IA-32), x86-64 achitectures                *
3
; target platform: KolibriOS, x86 (IA-32), x86-64 achitectures                *
4
; compiler:        flat assembler 1.67.5                                      *
4
; compiler:        flat assembler 1.67.21                                     *
5
; version:         2.17                                                       *
5
; version:         2.18                                                       *
6
; last update:     3rd February  2007          1st 2nd 3rd 4th                *
6
; last update:     1st April  2007          1st 2nd 3rd 4th                   *
7
; maintained by:   Sergey Kuzmin aka Wildwest                                 *
7
; maintained by:   Sergey Kuzmin aka Wildwest                                 *
8
; e-mail:          kuzmin_serg@list.ru                                        *
8
; e-mail:          kuzmin_serg@list.ru                                        *
9
; site:            http://coolthemes.narod.ru/files.html                      *
9
; site:            http://coolthemes.narod.ru/files.html                      *
10
; license:         Copyright 2004-2007 Sergey Kuzmin and co-authors           *
10
; license:         Copyright 2004-2007 Sergey Kuzmin and co-authors           *
11
;                  Rules:                                                     *
11
;                  Rules:                                                     *
Line 1571... Line 1571...
1571
FREEZE:
1571
FREEZE:
1572
nop
1572
nop
1573
jmp FREEZE ; maybe we should close application or just made some Warning and jump to still:
1573
jmp FREEZE ; maybe we should close application or just made some Warning and jump to still:
1574
;----------------
1574
;----------------
1575
still:			
1575
still:
-
 
1576
 
-
 
1577
; çàòåì ïåðåõîäèì â öèêë îæèäàíèÿ ñîáûòèé
-
 
1578
event_wait:
-
 
1579
 
-
 
1580
    ;================_RAM_==============
-
 
1581
  Number 205,360,0,4,dword [ram_size_a],0xFFFFFF
-
 
1582
 
-
 
1583
  mov eax, 18
-
 
1584
  mov ebx, 16
-
 
1585
  int 0x40
-
 
1586
 
-
 
1587
  shr eax, 10
-
 
1588
 
-
 
1589
  mov [ram_size_a], eax
-
 
1590
 
-
 
1591
  mov eax, 18
-
 
1592
  mov ebx, 17
-
 
1593
  int 0x40
-
 
1594
 
-
 
1595
  shr eax, 10
-
 
1596
 
-
 
1597
  mov [ram_size_t], eax
-
 
1598
 
-
 
1599
  Text 120,360,0x00000000,ram, ramlen-ram
-
 
1600
 
-
 
1601
  Number 205,360,0,4,dword [ram_size_a],0x000000
-
 
1602
 
-
 
1603
  Number 275,360,0,4,dword [ram_size_t],0x000000
-
 
1604
  Text 305,360,0x00000000,mb, mblen-mb
-
 
1605
 
-
 
1606
;==============================
-
 
1607
 
-
 
1608
	mov	ebx,50	     ; æäåìñ 1 ñåê
-
 
1609
	mov	eax,23	     ; ôóíêöèÿ 23: îæèäàíèå ñîáûòèÿ
-
 
1610
	int	0x40
-
 
1611
 
1576
    mov  eax,10 	
1612
;    mov  eax,10
1577
    int  0x40		; 
1613
;    int  0x40           ;
1578
    cmp  eax,1		; 
1614
    cmp  eax,1		; 
1579
    je	 red		;  red
1615
    je	 red		;  redraw
1580
    cmp  eax,2		; 
1616
    cmp  eax,2		; 
1581
    je	 key		;  key
1617
    je	 key		;  key
1582
    cmp  eax,3		; 
1618
    cmp  eax,3		; 
1583
    je	 button 	;  button
1619
    je	 button 	;  button
1584
    jmp  still		; 
1620
    jmp  still		; 
Line 1598... Line 1634...
1598
    cmp  ah,3		;  = 3 ?
1634
    cmp  ah,3		;  = 3 ?
1599
    je	vybor		; vybor
1635
    je	vybor		; vybor
Line 1600... Line 1636...
1600
 
1636
 
Line -... Line 1637...
-
 
1637
    jne  noclose
1601
    jne  noclose
1638
 
Line 1602... Line 1639...
1602
 
1639
    jmp     event_wait
Line 1603... Line 1640...
1603
vybor:
1640
vybor:
Line 1892... Line 1929...
1892
    Text 250,110,0x00FFFFFF,FR, FRlen-FR
1929
    Text 250,110,0x00FFFFFF,FR, FRlen-FR
Line 1893... Line 1930...
1893
 
1930
 
Line 1894... Line 1931...
1894
   call newrating; !!!!
1931
   call newrating; !!!!
1895
 
-
 
1896
     cont:
-
 
1897
;================_RAM_==============
-
 
1898
  mov eax, 18
-
 
1899
  mov ebx, 16
-
 
1900
  int 0x40
-
 
1901
 
-
 
1902
  shr eax, 10
-
 
1903
 
-
 
1904
  mov [ram_size_a], eax
-
 
1905
 
-
 
1906
  mov eax, 18
-
 
1907
  mov ebx, 17
-
 
1908
  int 0x40
-
 
1909
 
-
 
1910
  shr eax, 10
-
 
Line 1911... Line -...
1911
 
-
 
1912
  mov [ram_size_t], eax
-
 
1913
 
-
 
1914
  Text 120,360,0x00000000,ram, ramlen-ram
-
 
1915
  Number 205,360,0,4,dword [ram_size_a],0x000000
-
 
1916
 
-
 
1917
  Number 275,360,0,4,dword [ram_size_t],0x000000
-
 
Line 1918... Line 1932...
1918
  Text 305,360,0x00000000,mb, mblen-mb
1932
 
1919
 
1933
     cont:
1920
;==============================
1934
 
1921
 
1935