Subversion Repositories Kolibri OS

Rev

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

Rev 2029 Rev 2094
Line 1... Line 1...
1
include "lang.inc"
1
include "lang.inc"
2
include "..\..\..\macros.inc"
2
include "../../../macros.inc"
Line 3... Line 3...
3
 
3
 
4
WND_SIZE_X		= 320
4
WND_SIZE_X		= 320
Line 5... Line 5...
5
WND_SIZE_Y		= 200
5
WND_SIZE_Y		= 200
Line 30... Line 30...
30
 
30
 
31
    or  eax,-1
31
    or  eax,-1
Line 32... Line 32...
32
    mcall
32
    mcall
-
 
33
 
-
 
34
.draw_screen:
33
 
35
    test [proc_info.wnd_state], 0x04
34
.draw_screen:
36
    jnz .event_loop
35
    add word [ver_counter],VC_DELTA
37
    add word [ver_counter],VC_DELTA
36
    add word [hor_counter],HC_DELTA
38
    add word [hor_counter],HC_DELTA
37
    call handle_animation
39
    call handle_animation
Line 41... Line 43...
41
    xor edx,edx
43
    xor edx,edx
42
    mcall
44
    mcall
43
    jmp .event_loop
45
    jmp .event_loop
Line 44... Line 46...
44
 
46
 
-
 
47
.paint_window:
45
.paint_window:
48
	mcall	9,proc_info,-1
46
    mov eax,12
49
    mov eax,12
47
    mov ebx,1
50
    mov ebx,1
Line 48... Line 51...
48
    mcall
51
    mcall
Line 52... Line 55...
52
    mov ecx,(100 shl 16)+(WND_SIZE_Y+26)
55
    mov ecx,(100 shl 16)+(WND_SIZE_Y+26)
53
    mov edx,0x74000000
56
    mov edx,0x74000000
54
    mov edi,title
57
    mov edi,title
55
    mcall
58
    mcall
Line -... Line 59...
-
 
59
 
-
 
60
    test [proc_info.wnd_state], 0x04
-
 
61
    jnz @f
56
 
62
 
57
    mov eax,7
63
    mov eax,7
58
    mov ebx,virtual_screen_32
64
    mov ebx,virtual_screen_32
59
    mov ecx,(WND_SIZE_X shl 16)+WND_SIZE_Y
65
    mov ecx,(WND_SIZE_X shl 16)+WND_SIZE_Y
60
    xor edx,edx
66
    xor edx,edx
61
    mcall
67
    mcall
62
 
68
  @@:
63
    mov eax,12
69
    mov eax,12
64
    mov ebx,2
70
    mov ebx,2
Line 65... Line 71...
65
    mcall
71
    mcall
Line 175... Line 181...
175
  	rb 256*256
181
  	rb 256*256
Line 176... Line 182...
176
 
182
 
177
  sinetable:
183
  sinetable:
Line -... Line 184...
-
 
184
  	rw 256
-
 
185
 
178
  	rw 256
186
  proc_info	process_information
179
 
187