Subversion Repositories Kolibri OS

Rev

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

Rev 1643 Rev 6341
Line 249... Line 249...
249 
	mov	edx,[WorkScreen_SizeY]
 249 
	mov	edx,[WorkScreen_SizeY]
250 
	shl	ecx,16
 250 
	shl	ecx,16
251 
	add	ecx,edx
 251 
	add	ecx,edx
252 
	mov	edx,8*65536+20+15+49+5+1
 252 
	mov	edx,8*65536+20+15+49+5+1
Line 253... Line 253...
253 
 
 253 
 
254 
	mcall	7
 254 
	mcall SF_PUT_IMAGE
255 
	ret
 255 
	ret
256 
;----------------------------------------------------------
 256 
;----------------------------------------------------------
257 
;--------------------clear screen--------------------------
 257 
;--------------------clear screen--------------------------
258 
;----------------------------------------------------------
 258 
;----------------------------------------------------------
259 
cleare_screen:
 259 
cleare_screen:
260 
	mov	eax,[ScreenPointer]
 260 
	mov edi,[ScreenPointer]
261 
	mov	ebx,[WorkScreen_SizeX]
 261 
	mov ebx,[WorkScreen_SizeX]
262 
	imul	ebx,[WorkScreen_SizeY]
 262 
	imul ebx,[WorkScreen_SizeY]
263 
	lea	ebx,[ebx+ebx*2]
 - 
 
264 
	shr	ebx,3
 - 
 
265 
	inc	ebx
 263 
	lea ebx,[ebx+ebx*2]
266 
	mov	esi,0xffffff
 - 
 
267 
 
 - 
 
268 
clear_screen_loop:
 264 
	mov eax,0xffffffff
269 
	mov	[eax],esi
 265 
	mov ecx,ebx
270 
	mov	[eax+3],esi
 266 
	shr ecx,2
271 
	mov	[eax+6],si
 267 
	rep stosd
272 
	add	eax,4+4
 268 
	mov ecx,ebx
273 
	dec	ebx
 269 
	and ecx,3
274 
	jnz	clear_screen_loop
 270 
	rep stosb
275 
	ret
 271 
	ret
276 
;----------------------------------------------------------
 272 
;----------------------------------------------------------
277 
;-------------cleare work arrea(work screen)---------------
 273 
;-------------cleare work arrea(work screen)---------------
278 
;----------------------------------------------------------
 274 
;----------------------------------------------------------
279 
cleare_work_arrea:
 275 
cleare_work_arrea:
280 
	mov	eax,[PointerToPicture]
 276 
	mov edi,[PointerToPicture]
281 
	mov	ebx,[Picture_SizeX]
 277 
	mov ebx,[Picture_SizeX]
282 
	imul	ebx,[Picture_SizeY]
 278 
	imul ebx,[Picture_SizeY]
283 
	lea	ebx,[ebx+ebx*2]
 - 
 
284 
	shr	ebx,3
 - 
 
285 
	inc	ebx
 279 
	lea ebx,[ebx+ebx*2]
286 
	mov	esi,0xffffff
 - 
 
287 
 
 - 
 
288 
clear_work_arrea_loop:
 280 
	mov eax,0xffffffff
289 
	mov	[eax],esi
 281 
	mov ecx,ebx
290 
	mov	[eax+3],esi
 282 
	shr ecx,2
291 
	mov	[eax+6],si
 283 
	rep stosd
292 
	add	eax,4+4
 284 
	mov ecx,ebx
293 
	dec	ebx
 285 
	and ecx,3
294 
	jnz	clear_work_arrea_loop
 286 
	rep stosb
295 
	ret
 287 
	ret
296 
;-----------------------------------------------------------
 288 
;-----------------------------------------------------------
297 
;calculate position work screen on a picture
 289 
;calculate position work screen on a picture
298 
;-----------------------------------------------------------
 290 
;-----------------------------------------------------------