Subversion Repositories Kolibri OS

Rev

Rev 3375 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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