Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. ;
  2. ;   TIMER
  3. ;
  4. ;   Compile with flat assembler
  5. ;
  6.  
  7. use32
  8.  
  9.     org    0x0
  10.  
  11.     db     'MENUET01'       ; 8 byte id
  12.     dd     0x01             ; header version
  13.     dd     START            ; start of code
  14.     dd     I_END            ; size of image
  15.     dd     0x1000           ; memory for app
  16.     dd     0x1000           ; esp
  17.     dd     0x0 , 0x0        ; I_Param , I_Icon
  18.  
  19. include 'lang.inc'
  20. include 'macros.inc'
  21.  
  22. START:                      ; start of execution
  23.     mov  eax, 40
  24.     mov  ebx, 101b
  25.     int  0x40
  26.  
  27. red:
  28.     call draw_window
  29.  
  30. still:
  31.  
  32.     mov  eax,23                 ; wait here for event
  33.     mov  ebx,50
  34.     int  0x40
  35.  
  36.     cmp  eax,1                  ; redraw request ?
  37.     je   red
  38.     cmp  eax,3                  ; button in buffer ?
  39.     je   button
  40.  
  41.     call draw_clock
  42.  
  43.     jmp  still
  44.  
  45.  
  46.   button:                       ; button
  47.     or   eax,-1                 ; close this program
  48.     int  0x40
  49.  
  50.  
  51. ;   *********************************************
  52. ;   *******  WINDOW DEFINITIONS AND DRAW ********
  53. ;   *********************************************
  54.  
  55. draw_clock:
  56.     mov  eax, 13           ; clear area
  57.     mov  ebx, 10*65536+55
  58.     mov  ecx, 30*65536+10
  59.     mov  edx, [sc.work]
  60.     int  0x40
  61.  
  62.     mov  eax, 26           ; get system counter
  63.     mov  ebx, 9
  64.     int  0x40
  65.  
  66.     cdq ;xor  edx,edx
  67.     mov  ebx,100
  68.     div  ebx
  69.  
  70.   push eax
  71.  
  72.   xor  edx,edx
  73.   mov  ebx,60
  74.   div  ebx
  75.   mov  ecx,eax
  76.  
  77.   push ecx
  78.   push ecx
  79.  
  80.   xor  edx,edx
  81.   mov  ebx,60
  82.   div  ebx
  83.   mov  ecx,eax
  84.  
  85.   mov  eax,47           ; HH
  86.   mov  esi,[sc.work_text]
  87.   or   esi,0x10000000
  88.   mov  ebx,0x00020000
  89.   mov  edx,10*65536+30
  90.   int  0x40
  91.  
  92.   pop  eax              ; MM
  93.   imul ecx,ecx,60
  94.   sub  eax,ecx
  95.   mov  ecx,eax
  96.   mov  eax,47
  97.   add  edx,20*65536
  98.   int  0x40
  99.  
  100.   pop  ecx
  101.   pop  eax
  102.  
  103.   imul ecx,ecx,60
  104.   sub  eax,ecx
  105.  
  106.   mov  ecx,eax          ; SS
  107.   mov  eax,47
  108.   add  edx,20*65536
  109.   int  0x40
  110.  
  111.   ret
  112.  
  113. draw_window:
  114.     mov  eax,48
  115.     mov  ebx,3
  116.     mov  ecx,sc
  117.     mov  edx,sizeof.system_colors
  118.     int  0x40
  119.  
  120.     mov  eax,12                    ; function 12:tell os about windowdraw
  121.     mov  ebx,1                     ; 1, start of draw
  122.     int  0x40
  123.  
  124.                                    ; DRAW WINDOW
  125.     mov  eax,0                     ; function 0 : define and draw window
  126.     mov  ebx,100*65536+75          ; [x start] *65536 + [x size]
  127.     mov  ecx,100*65536+45          ; [y start] *65536 + [y size]
  128.     mov  edx,[sc.work]             ; color of work area RRGGBB,8->color gl
  129.     mov  esi,[sc.grab]            ; color of grab bar  RRGGBB,8->color gl
  130.     or   esi,0x80000000
  131.     mov  edi,[sc.frame]            ; color of frames    RRGGBB
  132.     int  0x40
  133.  
  134.                                    ; WINDOW LABEL
  135.     mov  eax,4                     ; function 4 : write text to window
  136.     mov  ebx,6*65536+7             ; [x start] *65536 + [y start]
  137.     mov  ecx,[sc.grab_text]            ; font 1 & color ( 0xF0RRGGBB )
  138.     or   ecx,0x10000000
  139.     mov  edx,header                ; pointer to text beginning
  140.     mov  esi,header.len            ; text length
  141.     int  0x40
  142.  
  143.                                    ; CLOSE BUTTON
  144.     mov  eax,8                     ; function 8 : define and draw button
  145.     mov  ebx,(75-16)*65536+12      ; [x start] *65536 + [x size]
  146.     mov  ecx,4*65536+12            ; [y start] *65536 + [y size]
  147.     mov  edx,1                     ; button id
  148.     mov  esi,[sc.grab_button]      ; button color RRGGBB
  149.     int  0x40
  150.  
  151.     call draw_clock
  152.  
  153.     mov  eax,12                    ; function 12:tell os about windowdraw
  154.     mov  ebx,2                     ; 2, end of draw
  155.     int  0x40
  156.  
  157.     ret
  158.  
  159.  
  160. ; DATA AREA
  161.  
  162. if lang eq ru
  163.     header:
  164.          db   '’€‰Œ…'
  165.       .len = $ - header
  166. else
  167.     header:
  168.          db   'TIMER'
  169.       .len = $ - header
  170. end if
  171.  
  172.  
  173. I_END:
  174.  
  175. temp dd ?
  176. sc system_colors
  177.