Subversion Repositories Kolibri OS

Rev

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

Rev 1421 Rev 1440
Line 16... Line 16...
16 
 
 16 
 
17 
include 'lang.inc'
 17 
include 'lang.inc'
18 
include '..\..\..\macros.inc'
 18 
include '..\..\..\macros.inc'
Line -... Line 19...
- 
 
 19 
include 'moi.inc'   ;à áª« ¤ª¨ ª« ¢¨ âãàë
- 
 
 20 
 
19 
include 'moi.inc'   ;à áª« ¤ª¨ ª« ¢¨ âãàë
 21 
time_bgr_color = 0x66cc
20 
 
 22 
 
21 
width		dd  305
 23 
width		dd  305
22 
buttons 	dd    1  ;  0 no frames  ; 1 frames
 24 
buttons 	dd    1  ;  0 no frames  ; 1 frames
23 
soften_up	dd    1  ;  0 no         ; 1 yes
 25 
soften_up	dd    1  ;  0 no         ; 1 yes
Line 1316... Line 1318...
1316 
    mov  eax,13
 1318 
    mov  eax,13
1317 
    int  0x40
 1319 
    int  0x40
1318 
    add  ebx,1 shl 16
 1320 
    add  ebx,1 shl 16
1319 
    sub  ebx,2
 1321 
    sub  ebx,2
1320 
    mov  ecx,4 shl 16+12
 1322 
    mov  ecx,4 shl 16+12
1321 
    mov  edx,0x66cc
 1323 
    mov  edx,time_bgr_color
1322 
    int  0x40
 1324 
    int  0x40
Line 1323... Line 1325...
1323 
 
 1325 
 
1324 
    popa
 1326 
    popa
Line 1865... Line 1867...
1865 
  no_y4:
 1867 
  no_y4:
1866 
    mov  ecx,eax
 1868 
    mov  ecx,eax
1867 
    shr  ecx,16
 1869 
    shr  ecx,16
1868 
    and  ecx,1
 1870 
    and  ecx,1
1869 
    mov  edx,[bte]
 1871 
    mov  edx,[bte]
1870 
    sub  edx,[wcolor]
 1872 
    sub  edx,time_bgr_color;[wcolor]
1871 
    imul ecx,edx
 1873 
    imul ecx,edx
1872 
    add  ecx,[wcolor]
 1874 
    add  ecx,time_bgr_color;[wcolor]
1873 
    mov  edx,sec
 1875 
    mov  edx,sec
1874 
    mov  eax,4
 1876 
    mov  eax,4
1875 
    mov  esi,1
 1877 
    mov  esi,1
1876 
    int  0x40
 1878 
    int  0x40