Subversion Repositories Kolibri OS

Rev

Rev 2431 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;====================================================================
  2. ;===== ŽŠŽ …„Ž‘ŒŽ’€ ===========================================
  3. ;====================================================================
  4. scr_window:
  5. .start:
  6. .red:
  7.         call    .draw_window
  8. .still:
  9.         wait_event .red, .close
  10.         jmp     .still
  11.  
  12. .draw_window:
  13.         start_draw_window
  14.         xor     eax,eax
  15.         movsx   ebx,word [scr.width]
  16.         movsx   ecx,word [scr.height]
  17.         ;xor     edx,edx
  18.         mov     edx,0x01000000
  19.         xor     esi,esi
  20.         xor     edi,edi
  21.         mcall
  22.  
  23.         mov     eax,7
  24.         mov     ebx,dword [scr_buf.ptr]
  25.         mov     ecx,dword [scr_buf.size]
  26.         xor     edx,edx
  27.         mcall
  28.  
  29.         mov     eax,13
  30.         mov     ebx,19*65536+231
  31.         mov     ecx,19*65536+10
  32.         mov     edx,0x00FF00
  33.         mcall
  34.  
  35.         mov     edi,.label
  36.         call    draw_label
  37.  
  38.         stop_draw_window
  39. ret
  40. .close:
  41.         bt      word [ch3.flags],1   ; ¢®ááâ ­®¢¨âì ®ª­® ?
  42.         jnc     @f
  43.  
  44.         mov     eax,60
  45.         mov     ebx,2
  46.         mov     ecx,[app.pid]
  47.         mov     edx,messages.act_window
  48.         mov     esi,2
  49.         mcall
  50. @@:
  51.         jmp     close
  52.  
  53. .label label 20,20,0x80000000,keyforexit
  54.