Subversion Repositories Kolibri OS

Rev

Rev 3105 | Go to most recent revision | 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 59... Line 56...
59 
 
 56 
 
60 
 
 57 
 
61 
 
 58 
 
62 
align 4
 - 
 
63 
start:
 59 
align 4
64 
	load_library vectors_name, cur_dir_path, library_path, system_path, \
 60 
start:
Line 65... Line 61...
65 
		err_message_found_lib, head_f_l, import_buf2d_lib, err_message_import, head_f_i
 61 
	load_library name_buf2d, library_path, system_path, import_buf2d_lib
66 
	cmp eax,-1
 62 
	cmp eax,-1
67 
	jz button.exit
 63 
	jz button.exit
68 
 
 64 
 
Line 69... Line 65...
69 
	mcall 40,0x27
 65 
	mcall SF_SET_EVENTS_MASK,0x27
70 
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ¥¬ ¡ãä¥à
 66 
	stdcall [buf2d_create], buf_0 ;ᮧ¤ ¥¬ ¡ãä¥à
Line 71... Line 67...
71 
	stdcall [buf2d_create], buf_z
 67 
	stdcall [buf2d_create], buf_z
Line 72... Line 68...
72 
	stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z ;ᮧ¤ ¥¬ ¢®ªá¥«ì­ãî ª¨áâì
 68 
	stdcall [buf2d_vox_brush_create], buf_vox, vox_6_7_z ;ᮧ¤ ¥¬ ¢®ªá¥«ì­ãî ª¨áâì
73 
 
 69 
 
74 
	stdcall mem.Alloc,max_open_file_size
 70 
	stdcall mem.Alloc,max_open_file_size
75 
	mov dword[open_file_vox],eax
 71 
	mov dword[open_file_vox],eax
Line 103... Line 99...
103 
red_win:
 99 
red_win:
104 
	call draw_window
 100 
	call draw_window
Line 105... Line 101...
105 
 
 101 
 
106 
align 4
 102 
align 4
107 
still:
 103 
still:
108 
	mcall 10
 104 
	mcall SF_WAIT_EVENT
109 
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
 105 
	cmp al,1 ;¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
110 
	jz red_win
 106 
	jz red_win
111 
	cmp al,2
 107 
	cmp al,2
112 
	jz key
 108 
	jz key
Line 115... Line 111...
115 
	jmp still
 111 
	jmp still
Line 116... Line 112...
116 
 
 112 
 
117 
align 4
 113 
align 4
118 
draw_window:
 114 
draw_window:
119 
	pushad
 115 
	pushad
Line 120... Line 116...
120 
	mcall 12,1
 116 
	mcall SF_REDRAW,SSF_BEGIN_DRAW
121 
 
 117 
 
Line 122... Line 118...
122 
	mov edx,0x33000000
 118 
	mov edx,0x33000000
Line 123... Line 119...
123 
	mcall 0,(50 shl 16)+410,(30 shl 16)+480,,,caption
 119 
	mcall SF_CREATE_WINDOW,(50 shl 16)+410,(30 shl 16)+480,,,caption
124 
 
 120 
 
125 
	stdcall [buf2d_draw], buf_0
 121 
	stdcall [buf2d_draw], buf_0
Line 126... Line 122...
126 
 
 122 
 
127 
	mcall 12,2
 123 
	mcall SF_REDRAW,SSF_END_DRAW
128 
	popad
 124 
	popad
Line 129... Line 125...
129 
	ret
 125 
	ret
130 
 
 126 
 
Line 131... Line 127...
131 
align 4
 127 
align 4
Line 132... Line 128...
132 
key:
 128 
key:
133 
	mcall 2
 129 
	mcall SF_GET_KEY
134 
 
 130 
 
135 
	cmp ah,27 ;Esc
 131 
	cmp ah,27 ;Esc
136 
	je button.exit
 132 
	je button.exit
137 
 
 133 
 
138 
	jmp still
 134 
	jmp still
139 
 
 135 
 
140 
align 4
 136 
align 4
141 
button:
 137 
button:
142 
	mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
 138 
	mcall SF_GET_BUTTON
Line 143... Line 139...
143 
	cmp ah,1
 139 
	cmp ah,1
Line 144... Line 140...
144 
	jne still
 140 
	jne still
145 
.exit:
 141 
.exit:
Line 227... Line 223...
227 
	db 6,7,4,3 ;w,h,h_osn,n
 223 
	db 6,7,4,3 ;w,h,h_osn,n
228 
	rb BUF_STRUCT_SIZE*(2+1)
 224 
	rb BUF_STRUCT_SIZE*(2+1)
Line 229... Line 225...
229 
 
 225 
 
230 
;--------------------------------------------------
 226 
;--------------------------------------------------
231 
system_path db '/sys/lib/'
 227 
system_path db '/sys/lib/'
232 
vectors_name db 'buf2d.obj',0
 - 
 
233 
err_message_found_lib db 'Sorry I cannot load library buf2d.obj',0
 - 
 
234 
head_f_i:
 - 
 
235 
head_f_l db 'System error',0
 - 
 
236 
err_message_import db 'Error on load import library buf2d.obj',0
 228 
name_buf2d db 'buf2d.obj',0
Line -... Line 229...
- 
 
 229 
;--------------------------------------------------
237 
;--------------------------------------------------
 230 
 
238 
 
 - 
 
239 
i_end: ;ª®­¥æ ª®¤ 
 - 
 
240 
	rb 1024
 231 
align 16
241 
stacktop:
 232 
i_end: ;ª®­¥æ ª®¤ 
242 
	file_name:
 233 
file_name:
243 
		rb 4096
 234 
		rb 4096
244 
cur_dir_path:
 235 
cur_dir_path:
245 
	rb 4096
 236 
	rb 4096
- 
 
 237 
library_path:
- 
 
 238 
	rb 4096
246 
library_path:
 239 
	rb 1024