Subversion Repositories Kolibri OS

Rev

Rev 3105 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3105 Rev 8271
Line 1... Line 1...
1 
use32
 1 
use32
2 
	org 0x0
 2 
	org 0
3 
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
 3 
	db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
4 
	dd 0x1
 - 
 
5 
	dd start
 - 
 
6 
	dd i_end ;à §¬¥à ¯à¨«®¦¥­¨ï
 - 
 
7 
	dd mem,stacktop
 - 
 
8 
	dd 0,cur_dir_path
 4 
	dd 1,start,i_end,mem,stacktop,0,cur_dir_path
Line 9... Line 5...
9 
 
 5 
 
10 
include '../../../../../macros.inc'
 6 
include '../../../../../macros.inc'
- 
 
 7 
include '../../../../../proc32.inc'
11 
include '../../../../../proc32.inc'
 8 
include '../../../../../KOSfuncs.inc'
12 
include '../../../../../develop/libraries/box_lib/load_lib.mac'
 9 
include '../../../../../load_lib.mac'
Line 13... Line 10...
13 
include '../../../../../dll.inc'
 10 
include '../../../../../dll.inc'
Line 14... Line 11...
14 
 
 11 
 
15 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc, 0 ;dll.Load
 12 
@use_library mem.Alloc,mem.Free,mem.ReAlloc, 0 ;dll.Load
16 
 
 13 
 
17 
struct FileInfoBlock
 14 
struct FileInfoBlock
Line 58... Line 55...
58 
 
 55 
 
59 
 
 56 
 
60 
 
 57 
 
61 
align 4
 - 
 
62 
start:
 58 
align 4
63 
	load_library vectors_name, cur_dir_path, library_path, system_path, \
 59 
start:
Line 64... Line 60...
64 
		err_message_found_lib, head_f_l, import_buf2d_lib, err_message_import, head_f_i
 60 
	load_library name_buf2d, library_path, system_path, import_buf2d_lib
65 
	cmp eax,-1
 61 
	cmp eax,-1
66 
	jz button.exit
 62 
	jz button.exit
Line 67... Line 63...
67 
 
 63 
 
68 
	mcall 40,0x27
 64 
	mcall SF_SET_EVENTS_MASK,0x27
Line 69... Line 65...
69 
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ¥¬ ¡ãä¥à
 65 
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ¥¬ ¡ãä¥à
Line 70... Line 66...
70 
	stdcall [buf2d_create], buf_z
 66 
	stdcall [buf2d_create], buf_z
71 
 
 67 
 
72 
	stdcall mem.Alloc,max_open_file_size
 68 
	stdcall mem.Alloc,max_open_file_size
73 
	mov dword[open_file_vox],eax
 69 
	mov dword[open_file_vox],eax
Line 97... Line 93...
97 
red_win:
 93 
red_win:
98 
	call draw_window
 94 
	call draw_window
Line 99... Line 95...
99 
 
 95 
 
100 
align 4
 96 
align 4
101 
still:
 97 
still:
102 
	mcall 10
 98 
	mcall SF_WAIT_EVENT
103 
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
 99 
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
104 
	jz red_win
 100 
	jz red_win
105 
	cmp al,2
 101 
	cmp al,2
106 
	jz key
 102 
	jz key
Line 109... Line 105...
109 
	jmp still
 105 
	jmp still
Line 110... Line 106...
110 
 
 106 
 
111 
align 4
 107 
align 4
112 
draw_window:
 108 
draw_window:
113 
	pushad
 109 
	pushad
Line 114... Line 110...
114 
	mcall 12,1
 110 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
115 
 
 111 
 
Line 116... Line 112...
116 
	mov edx,0x33000000
 112 
	mov edx,0x33000000
Line 117... Line 113...
117 
	mcall 0,(50 shl 16)+330,(30 shl 16)+295,,,caption
 113 
	mcall SF_CREATE_WINDOW,(50 shl 16)+330,(30 shl 16)+295,,,caption
118 
 
 114 
 
119 
	stdcall [buf2d_draw], buf_0
 115 
	stdcall [buf2d_draw], buf_0
Line 120... Line 116...
120 
 
 116 
 
121 
	mcall 12,2
 117 
	mcall SF_REDRAW,SSF_END_DRAW
122 
	popad
 118 
	popad
Line 123... Line 119...
123 
	ret
 119 
	ret
124 
 
 120 
 
Line 125... Line 121...
125 
align 4
 121 
align 4
Line 126... Line 122...
126 
key:
 122 
key:
127 
	mcall 2
 123 
	mcall SF_GET_KEY
128 
 
 124 
 
129 
	cmp ah,27 ;Esc
 125 
	cmp ah,27 ;Esc
130 
	je button.exit
 126 
	je button.exit
131 
 
 127 
 
132 
	jmp still
 128 
	jmp still
133 
 
 129 
 
134 
align 4
 130 
align 4
135 
button:
 131 
button:
Line 136... Line 132...
136 
	mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
 132 
	mcall SF_GET_BUTTON
Line 137... Line 133...
137 
	cmp ah,1
 133 
	cmp ah,1
138 
	jne still
 134 
	jne still
Line 204... Line 200...
204 
	dd 0 ;+16 color
 200 
	dd 0 ;+16 color
205 
	db 32 ;+20 bit in pixel
 201 
	db 32 ;+20 bit in pixel
Line 206... Line 202...
206 
 
 202 
 
207 
;--------------------------------------------------
 203 
;--------------------------------------------------
208 
system_path db '/sys/lib/'
 204 
system_path db '/sys/lib/'
209 
vectors_name db 'buf2d.obj',0
 - 
 
210 
err_message_found_lib db 'Sorry I cannot load library buf2d.obj',0
 - 
 
211 
head_f_i:
 - 
 
212 
head_f_l db 'System error',0
 - 
 
213 
err_message_import db 'Error on load import library buf2d.obj',0
 205 
name_buf2d db 'buf2d.obj',0
Line -... Line 206...
- 
 
 206 
;--------------------------------------------------
214 
;--------------------------------------------------
 207 
 
215 
 
 - 
 
216 
i_end: ;ª®­¥æ ª®¤ 
 - 
 
217 
	rb 1024
 208 
align 16
218 
stacktop:
 209 
i_end: ;ª®­¥æ ª®¤ 
219 
	file_name:
 210 
file_name:
220 
		rb 4096
 211 
	rb 4096
221 
cur_dir_path:
 212 
cur_dir_path:
222 
	rb 4096
 213 
	rb 4096
- 
 
 214 
library_path:
- 
 
 215 
	rb 4096
223 
library_path:
 216 
	rb 1024