WebSVN – Kolibri OS – Blame – /kernel/branches/kolibri_pe/core/memory.inc

Rev	Author	Line No.	Line
431	serge	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
		3	;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
		4	;; Distributed under terms of the GNU General Public License ;;
		5	;; ;;
		6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
164	serge	7
593	mikedld	8	$Revision: 890 $
		9
		10
164	serge	11	align 4
		12	proc map_page stdcall,lin_addr:dword,phis_addr:dword,flags:dword
321	diamond	13	push ebx
164	serge	14	mov eax, [phis_addr]
		15	and eax, not 0xFFF
		16	or eax, [flags]
		17	mov ebx, [lin_addr]
		18	shr ebx, 12
365	serge	19	mov [page_tabs+ebx*4], eax
164	serge	20	mov eax, [lin_addr]
		21	invlpg [eax]
321	diamond	22	pop ebx
164	serge	23	ret
		24	endp
		25
		26	align 4
281	serge	27	map_space: ;not implemented
		28
		29
		30	ret
		31
890	serge	32	align 4
		33	_MapIoMem:
741	serge	34	proc map_io_mem stdcall, base:dword, size:dword, flags:dword
		35
		36	push edi
864	serge	37
		38	mov ecx, [size]
		39	add ecx, 4095
		40	and ecx, -4096
		41	mov [size], ecx
		42	xor edx, edx
		43	call @mem_alloc@8
741	serge	44	test eax, eax
		45	jz .fail
		46
864	serge	47	mov edx, eax
		48	mov edi, eax
		49	shr edi, 10
		50	add edi, page_tabs
		51
		52	mov ecx, [size]
741	serge	53	shr ecx, 12
864	serge	54	mov eax, [base]
		55	and eax, -4096
		56	or eax, [flags]
741	serge	57	@@:
864	serge	58	stosd
		59	add eax, 0x1000
741	serge	60	loop @B
		61
864	serge	62	mov eax, [base]
		63	and eax, 4095
741	serge	64	add eax, edx
		65	.fail:
		66	pop edi
		67	ret
		68	endp
		69
279	serge	70	; param
328	serge	71	; eax= page base + page flags
819	serge	72	; ebx= linear address
281	serge	73	; ecx= count
		74
		75	align 4
890	serge	76	_CommitPages:
328	serge	77	commit_pages:
741	serge	78	push edi
328	serge	79	test ecx, ecx
		80	jz .fail
281	serge	81
328	serge	82	mov edi, ebx
		83	mov ebx, pg_data.pg_mutex
		84	call wait_mutex ;ebx
		85
		86	mov edx, 0x1000
		87	mov ebx, edi
		88	shr ebx, 12
		89	@@:
365	serge	90	mov [page_tabs+ebx*4], eax
819	serge	91	; push eax
		92	; invlpg [edi]
		93	; pop eax
328	serge	94	add edi, edx
		95	add eax, edx
		96	inc ebx
		97	dec ecx
		98	jnz @B
		99	mov [pg_data.pg_mutex],ecx
		100	.fail:
741	serge	101	pop edi
281	serge	102	ret
		103
328	serge	104
281	serge	105	; param
279	serge	106	; eax= base
281	serge	107	; ecx= count
279	serge	108
164	serge	109	align 4
279	serge	110	release_pages:
321	diamond	111
		112	pushad
279	serge	113	mov ebx, pg_data.pg_mutex
		114	call wait_mutex ;ebx
		115
		116	mov esi, eax
		117	mov edi, eax
		118
		119	shr esi, 10
365	serge	120	add esi, page_tabs
328	serge	121
279	serge	122	@@:
		123	xor eax, eax
		124	xchg eax, [esi]
837	serge	125	push eax
279	serge	126	invlpg [edi]
837	serge	127	pop eax
279	serge	128	.next:
		129	add edi, 0x1000
		130	add esi, 4
		131	dec ecx
		132	jnz @B
		133	and [pg_data.pg_mutex],0
321	diamond	134	popad
279	serge	135	ret
		136
819	serge	137	; param
		138	; eax= base
		139	; ecx= count
		140
279	serge	141	align 4
890	serge	142	_UnmapPages:
819	serge	143	unmap_pages:
		144
		145	push edi
		146
		147	mov edi, eax
		148	mov edx, eax
		149
		150	shr edi, 10
		151	add edi, page_tabs
		152
		153	xor eax, eax
		154	@@:
		155	stosd
		156	invlpg [edx]
		157	add edx, 0x1000
		158	loop @b
		159
		160	pop edi
		161	ret
		162
		163
		164	align 4
188	serge	165	proc map_page_table stdcall, lin_addr:dword, phis_addr:dword
321	diamond	166	push ebx
164	serge	167	mov ebx, [lin_addr]
		168	shr ebx, 22
		169	mov eax, [phis_addr]
		170	and eax, not 0xFFF
		171	or eax, PG_UW ;+PG_NOCACHE
378	serge	172	mov dword [master_tab+ebx*4], eax
164	serge	173	mov eax, [lin_addr]
		174	shr eax, 10
365	serge	175	add eax, page_tabs
164	serge	176	invlpg [eax]
321	diamond	177	pop ebx
164	serge	178	ret
		179	endp
		180
		181	align 4
		182	proc init_LFB
378	serge	183	locals
		184	pg_count dd ?
		185	endl
		186
164	serge	187	cmp dword [LFBAddress], -1
		188	jne @f
412	serge	189	mov [BOOT_VAR+0x901c],byte 2
864	serge	190	mov ecx, 0x280000
		191	mov edx, PG_SW
		192	call @mem_alloc@8
164	serge	193	mov [LFBAddress], eax
		194	ret
		195	@@:
		196	test [SCR_MODE],word 0100000000000000b
211	serge	197	jnz @f
412	serge	198	mov [BOOT_VAR+0x901c],byte 2
211	serge	199	ret
		200	@@:
490	serge	201	call init_mtrr
		202
839	serge	203	mov eax, [LFBAddress]
		204	or eax, PG_LARGE+PG_UW
848	serge	205	mov [_sys_pdbr+(LFB_BASE shr 20)], eax
839	serge	206	add eax, 0x00400000
848	serge	207	mov [_sys_pdbr+4+(LFB_BASE shr 20)], eax
164	serge	208
839	serge	209	mov dword [exp_lfb+4], LFB_BASE
164	serge	210
207	serge	211	bt [cpu_caps], CAPS_PGE
		212	jnc @F
848	serge	213	or dword [_sys_pdbr+(LFB_BASE shr 20)], PG_GLOBAL
207	serge	214	@@:
378	serge	215	mov dword [LFBAddress], LFB_BASE
164	serge	216	mov eax, cr3 ;flush TLB
		217	mov cr3, eax
		218
		219	ret
		220	endp
		221
		222	align 4
		223	proc new_mem_resize stdcall, new_size:dword
		224
276	serge	225	mov ebx, pg_data.pg_mutex
		226	call wait_mutex ;ebx
164	serge	227
		228	mov edi, [new_size]
		229	add edi,4095
		230	and edi,not 4095
		231	mov [new_size], edi
		232
465	serge	233	mov edx,[current_slot]
		234	cmp [edx+APPDATA.heap_base],0
172	serge	235	jne .exit
		236
465	serge	237	mov esi, [edx+APPDATA.mem_size]
164	serge	238	add esi, 4095
		239	and esi, not 4095
		240
		241	cmp edi, esi
		242	jae .expand
		243
		244	shr edi, 12
		245	shr esi, 12
		246	@@:
888	serge	247	mov ecx, [app_page_tabs+edi*4]
		248	test ecx, 1
164	serge	249	jz .next
889	serge	250
378	serge	251	mov dword [app_page_tabs+edi*4], 2
164	serge	252	mov ebx, edi
		253	shl ebx, 12
659	serge	254	invlpg [ebx]
888	serge	255	call @core_free@4
		256	.next:
		257	add edi, 1
164	serge	258	cmp edi, esi
		259	jb @B
		260
		261	.update_size:
465	serge	262	mov ebx, [new_size]
		263	call update_mem_size
164	serge	264
		265	xor eax, eax
		266	dec [pg_data.pg_mutex]
		267	ret
		268	.expand:
		269
		270	push esi
		271	push edi
		272
		273	add edi, 0x3FFFFF
		274	and edi, not(0x3FFFFF)
		275	add esi, 0x3FFFFF
		276	and esi, not(0x3FFFFF)
		277
		278	cmp esi, edi
		279	jae .grow
		280
		281	xchg esi, edi
		282
		283	@@:
854	serge	284	call _alloc_page
164	serge	285	test eax, eax
		286	jz .exit
		287
188	serge	288	stdcall map_page_table, edi, eax
164	serge	289
		290	push edi
		291	shr edi, 10
365	serge	292	add edi, page_tabs
164	serge	293	mov ecx, 1024
		294	xor eax, eax
		295	cld
		296	rep stosd
		297	pop edi
		298
		299	add edi, 0x00400000
		300	cmp edi, esi
		301	jb @B
		302	.grow:
		303	pop edi
		304	pop esi
		305	@@:
854	serge	306	call _alloc_page
164	serge	307	test eax, eax
		308	jz .exit
		309	stdcall map_page,esi,eax,dword PG_UW
		310
		311	push edi
		312	mov edi, esi
		313	xor eax, eax
		314	mov ecx, 1024
		315	cld
		316	rep stosd
		317	pop edi
		318
		319	add esi, 0x1000
		320	cmp esi, edi
294	diamond	321	jb @B
164	serge	322
		323	jmp .update_size
		324	.exit:
		325	xor eax, eax
		326	inc eax
		327	dec [pg_data.pg_mutex]
		328	ret
		329	endp
		330
294	diamond	331	update_mem_size:
465	serge	332	; in: edx = slot base
294	diamond	333	; ebx = new memory size
		334	; destroys eax,ecx,edx
		335
465	serge	336	mov [APPDATA.mem_size+edx],ebx
294	diamond	337	;search threads and update
		338	;application memory size infomation
465	serge	339	mov ecx,[APPDATA.dir_table+edx]
294	diamond	340	mov eax,2
		341
		342	.search_threads:
		343	;eax = current slot
		344	;ebx = new memory size
		345	;ecx = page directory
		346	cmp eax,[TASK_COUNT]
		347	jg .search_threads_end
		348	mov edx,eax
		349	shl edx,5
		350	cmp word [CURRENT_TASK+edx+TASKDATA.state],9 ;if slot empty?
		351	jz .search_threads_next
		352	shl edx,3
380	serge	353	cmp [SLOT_BASE+edx+APPDATA.dir_table],ecx ;if it is our thread?
294	diamond	354	jnz .search_threads_next
380	serge	355	mov [SLOT_BASE+edx+APPDATA.mem_size],ebx ;update memory size
294	diamond	356	.search_threads_next:
		357	inc eax
		358	jmp .search_threads
		359	.search_threads_end:
		360	ret
		361
285	serge	362	; param
		363	; eax= linear address
		364	;
		365	; retval
		366	; eax= phisical page address
		367
164	serge	368	align 4
890	serge	369	_GetPgAddr:
285	serge	370	get_pg_addr:
		371	shr eax, 12
365	serge	372	mov eax, [page_tabs+eax*4]
164	serge	373	and eax, 0xFFFFF000
		374	ret
		375
465	serge	376
188	serge	377	align 4
164	serge	378	proc page_fault_handler
465	serge	379
709	diamond	380	test byte [esp+12+2], 2
		381	jnz v86_page_fault
		382
465	serge	383	.err_code equ ebp+32
		384	.err_addr equ ebp-4
		385
164	serge	386	pushad
		387	mov ebp, esp
		388	mov eax, cr2
172	serge	389	push eax
164	serge	390
465	serge	391	mov ax, app_data
164	serge	392	mov ds, ax
188	serge	393	mov es, ax
164	serge	394
188	serge	395	inc [pg_data.pages_faults]
		396
465	serge	397	mov ebx, [.err_addr]
		398	mov eax, [.err_code]
164	serge	399
839	serge	400	cmp ebx, HEAP_BASE
465	serge	401	jb .user_space ;�� ;
188	serge	402
839	serge	403	cmp ebx, LFB_BASE
		404	jb .kernel_heap
		405
378	serge	406	cmp ebx, page_tabs
839	serge	407	jb .lfb
164	serge	408
861	serge	409	cmp ebx, heap_tabs
		410	jb .user_tabs
		411
839	serge	412	cmp ebx, OS_BASE
861	serge	413	jb .heap_tab
839	serge	414
		415
		416	; cmp ebx, kernel_tabs
		417	; jb .alloc;.app_tabs ;�� ;
465	serge	418	;��
378	serge	419
861	serge	420
		421
465	serge	422	.lfb:
839	serge	423	shr ebx, 22
848	serge	424	mov edx, [_sys_pdbr + ebx*4]
839	serge	425	mov [master_tab + ebx*4], edx
		426	jmp .exit
164	serge	427
861	serge	428	.user_tabs:
		429	shr ebx, 12
		430	and ebx, 0x3FF
		431	mov edx, [master_tab + ebx*4]
		432	test edx, PG_MAP
		433	jnz .fail
839	serge	434
861	serge	435	call _alloc_page
		436	test eax, eax
		437	jz .fail
		438
		439	lea edx, [eax + PG_UW]
		440	lea edi, [eax + OS_BASE]
		441	mov ecx, 1024
		442	xor eax, eax
		443	cld
		444	rep stosd
		445
		446	mov [master_tab + ebx*4], edx
		447	jmp .exit
		448
		449	.heap_tab:
839	serge	450	shr ebx, 12
		451	and ebx, 0x3FF
		452	mov edx, [master_tab + ebx*4]
		453	test edx, PG_MAP
		454	jz .check_ptab ;��
		455
861	serge	456	jmp .fail
		457
465	serge	458	align 4
839	serge	459	.kernel_heap:
		460
		461	shr ebx, 22
		462	mov edx, [master_tab + ebx*4]
862	serge	463
839	serge	464	test edx, PG_MAP
		465	jz .check_ptab ;��
		466
862	serge	467	jmp .exit
854	serge	468
839	serge	469	.check_ptab:
848	serge	470	mov edx, [_sys_pdbr + ebx*4]
839	serge	471	test edx, PG_MAP
		472	jnz @F
		473
864	serge	474	xor ecx, ecx
		475	call @core_alloc@4
839	serge	476	test eax, eax
		477	jz .fail
		478
		479	lea edx, [eax + PG_UW]
		480	lea edi, [eax + OS_BASE]
		481	mov ecx, 1024
		482	xor eax, eax
		483	cld
		484	rep stosd
		485
848	serge	486	mov [_sys_pdbr + ebx*4], edx
839	serge	487	@@:
		488	mov [master_tab + ebx*4], edx
		489	jmp .exit
		490
		491	align 4
164	serge	492	.user_space:
465	serge	493	test eax, PG_MAP
		494	jnz .err_access ;��
		495	;�� ?
		496
164	serge	497	shr ebx, 12
172	serge	498	mov ecx, ebx
		499	shr ecx, 10
839	serge	500	mov edx, [master_tab + ecx*4]
465	serge	501	test edx, PG_MAP
		502	jz .fail ;��
		503	;��
172	serge	504
365	serge	505	mov eax, [page_tabs+ebx*4]
164	serge	506	test eax, 2
465	serge	507	jz .fail ;�� ;
		508	;��. ��
188	serge	509	.alloc:
854	serge	510	call _alloc_page
566	serge	511	test eax, eax
465	serge	512	jz .fail
164	serge	513
		514	stdcall map_page,[ebp-4],eax,dword PG_UW
		515
188	serge	516	mov edi, [ebp-4]
		517	and edi, 0xFFFFF000
164	serge	518	mov ecx, 1024
		519	xor eax, eax
188	serge	520	cld
		521	rep stosd
164	serge	522	.exit:
		523	mov esp, ebp
		524	popad
		525	add esp, 4
		526	iretd
465	serge	527
		528	.err_access:
		529	;��
		530	jmp .fail
		531
		532	.kernel_space:
		533	test eax, PG_MAP
		534	jz .fail ;��
		535
		536	test eax, 4 ;U/S
		537	jnz .fail ;��
		538	;��
		539	test eax, 8
		540	jnz .fail ;��
		541	;� �� . �� P4/Xeon
		542
		543	;��
		544
		545	cmp ebx, tss._io_map_0
		546	jb .fail
		547
		548	cmp ebx, tss._io_map_0+8192
		549	jae .fail
		550
		551	; io permission map
		552	; copy-on-write protection
		553
854	serge	554	call _alloc_page
566	serge	555	test eax, eax
465	serge	556	jz .fail
		557
		558	push eax
		559	stdcall map_page,[ebp-4],eax,dword PG_SW
		560	pop eax
		561	mov edi, [.err_addr]
		562	and edi, -4096
		563	lea esi, [edi+(not tss._io_map_0)+1]; -tss._io_map_0
		564
		565	mov ebx, esi
		566	shr ebx, 12
		567	mov edx, [current_slot]
		568	or eax, PG_SW
		569	mov [edx+APPDATA.io_map+ebx*4], eax
		570
		571	add esi, [default_io_map]
		572	mov ecx, 4096/4
		573	cld
		574	rep movsd
		575	jmp .exit
		576
		577
		578	;�� . ��
		579
172	serge	580	.fail:
		581	mov esp, ebp
		582	popad
		583	add esp, 4
164	serge	584
465	serge	585	; iretd
		586
172	serge	587	save_ring3_context ;debugger support
		588
		589	mov bl, 14
		590	jmp exc_c
		591	iretd
164	serge	592	endp
		593
		594	align 4
		595	proc map_mem stdcall, lin_addr:dword,pdir:dword,\
		596	ofs:dword,buf_size:dword
		597	mov eax, [buf_size]
		598	test eax, eax
		599	jz .exit
		600
		601	mov eax, [pdir]
		602	and eax, 0xFFFFF000
		603
536	diamond	604	stdcall map_page,[ipc_pdir],eax,PG_UW
164	serge	605	mov ebx, [ofs]
		606	shr ebx, 22
		607	mov esi, [ipc_pdir]
		608	mov edi, [ipc_ptab]
		609	mov eax, [esi+ebx*4]
		610	and eax, 0xFFFFF000
		611	jz .exit
536	diamond	612	stdcall map_page,edi,eax,PG_UW
164	serge	613	; inc ebx
		614	; add edi, 0x1000
		615	; mov eax, [esi+ebx*4]
		616	; test eax, eax
		617	; jz @f
		618	; and eax, 0xFFFFF000
		619	; stdcall map_page, edi, eax
		620
		621	@@: mov edi, [lin_addr]
		622	and edi, 0xFFFFF000
		623	mov ecx, [buf_size]
		624	add ecx, 4095
		625	shr ecx, 12
		626	inc ecx
		627
		628	mov edx, [ofs]
		629	shr edx, 12
		630	and edx, 0x3FF
		631	mov esi, [ipc_ptab]
		632
		633	.map: mov eax, [esi+edx*4]
		634	and eax, 0xFFFFF000
536	diamond	635	jz .exit
		636	stdcall map_page,edi,eax,PG_UW
		637	dec ecx
		638	jz .exit
164	serge	639	add edi, 0x1000
		640	inc edx
536	diamond	641	cmp edx, 0x400
164	serge	642	jnz .map
536	diamond	643	inc ebx
		644	mov eax, [ipc_pdir]
		645	mov eax, [eax+ebx*4]
		646	and eax, 0xFFFFF000
		647	jz .exit
		648	stdcall map_page,esi,eax,PG_UW
		649	xor edx, edx
		650	jmp .map
164	serge	651
		652	.exit:
		653	ret
		654	endp
		655
		656	align 4
		657	proc map_memEx stdcall, lin_addr:dword,pdir:dword,\
		658	ofs:dword,buf_size:dword
		659	mov eax, [buf_size]
		660	test eax, eax
		661	jz .exit
		662
		663	mov eax, [pdir]
		664	and eax, 0xFFFFF000
		665
		666	stdcall map_page,[proc_mem_pdir],eax,dword PG_UW
		667	mov ebx, [ofs]
		668	shr ebx, 22
		669	mov esi, [proc_mem_pdir]
		670	mov edi, [proc_mem_tab]
		671	mov eax, [esi+ebx*4]
		672	and eax, 0xFFFFF000
		673	test eax, eax
		674	jz .exit
		675	stdcall map_page,edi,eax,dword PG_UW
		676
		677	@@: mov edi, [lin_addr]
		678	and edi, 0xFFFFF000
		679	mov ecx, [buf_size]
		680	add ecx, 4095
		681	shr ecx, 12
		682	inc ecx
		683
		684	mov edx, [ofs]
		685	shr edx, 12
		686	and edx, 0x3FF
		687	mov esi, [proc_mem_tab]
		688
		689	.map: mov eax, [esi+edx*4]
		690	; and eax, 0xFFFFF000
		691	; test eax, eax
		692	; jz .exit
		693	stdcall map_page,edi,eax,dword PG_UW
		694	add edi, 0x1000
		695	inc edx
		696	dec ecx
		697	jnz .map
		698	.exit:
		699	ret
		700	endp
		701
		702
		703
		704
		705	sys_IPC:
		706	;input:
		707	; eax=1 - set ipc buffer area
		708	; ebx=address of buffer
		709	; ecx=size of buffer
		710	; eax=2 - send message
		711	; ebx=PID
		712	; ecx=address of message
		713	; edx=size of message
		714
		715	cmp eax,1
		716	jne @f
		717	call set_ipc_buff
		718	mov [esp+36], eax
		719	ret
		720	@@:
		721	cmp eax, 2
		722	jne @f
		723	stdcall sys_ipc_send, ebx, ecx, edx
		724	mov [esp+36], eax
		725	ret
		726	@@:
		727	xor eax, eax
		728	not eax
		729	mov [esp+36], eax
		730	ret
		731
		732	align 4
		733	proc set_ipc_buff
		734
465	serge	735	mov eax,[current_slot]
164	serge	736	pushf
		737	cli
465	serge	738	mov [eax+APPDATA.ipc_start],ebx ;set fields in extended information area
		739	mov [eax+APPDATA.ipc_size],ecx
164	serge	740
		741	add ecx, ebx
		742	add ecx, 4095
		743	and ecx, not 4095
		744
		745	.touch: mov eax, [ebx]
		746	add ebx, 0x1000
		747	cmp ebx, ecx
536	diamond	748	jb .touch
164	serge	749
		750	popf
		751	xor eax, eax
		752	ret
		753	endp
		754
		755	proc sys_ipc_send stdcall, PID:dword, msg_addr:dword, msg_size:dword
		756	locals
		757	dst_slot dd ?
		758	dst_offset dd ?
		759	buf_size dd ?
536	diamond	760	used_buf dd ?
164	serge	761	endl
		762
		763	pushf
		764	cli
		765
		766	mov eax, [PID]
		767	call pid_to_slot
		768	test eax,eax
		769	jz .no_pid
		770
		771	mov [dst_slot], eax
		772	shl eax,8
380	serge	773	mov edi,[eax+SLOT_BASE+0xa0] ;is ipc area defined?
164	serge	774	test edi,edi
		775	jz .no_ipc_area
		776
		777	mov ebx, edi
		778	and ebx, 0xFFF
		779	mov [dst_offset], ebx
		780
380	serge	781	mov esi, [eax+SLOT_BASE+0xa4]
164	serge	782	mov [buf_size], esi
		783
536	diamond	784	mov ecx, [ipc_tmp]
		785	cmp esi, 0x40000-0x1000 ; size of [ipc_tmp] minus one page
		786	jbe @f
864	serge	787	push eax
		788	lea ecx, [esi+0x1000]
		789	xor edx, edx
		790	call @mem_alloc@8
536	diamond	791	mov ecx, eax
864	serge	792	pop eax
536	diamond	793	@@:
		794	mov [used_buf], ecx
		795	stdcall map_mem, ecx, [SLOT_BASE+eax+0xB8],\
164	serge	796	edi, esi
		797
		798	mov edi, [dst_offset]
536	diamond	799	add edi, [used_buf]
164	serge	800	cmp dword [edi], 0
		801	jnz .ipc_blocked ;if dword [buffer]<>0 - ipc blocked now
227	serge	802
566	serge	803	mov edx, dword [edi+4]
		804	lea ebx, [edx+8]
164	serge	805	add ebx, [msg_size]
		806	cmp ebx, [buf_size]
		807	ja .buffer_overflow ;esi<0 - not enough memory in buffer
227	serge	808
164	serge	809	mov dword [edi+4], ebx
		810	mov eax,[TASK_BASE]
		811	mov eax, [eax+0x04] ;eax - our PID
		812	add edi, edx
		813	mov [edi], eax
		814	mov ecx, [msg_size]
		815
		816	mov [edi+4], ecx
		817	add edi, 8
		818	mov esi, [msg_addr]
		819	cld
		820	rep movsb
		821
		822	mov ebx, [ipc_tmp]
		823	mov edx, ebx
		824	shr ebx, 12
		825	xor eax, eax
365	serge	826	mov [page_tabs+ebx*4], eax
164	serge	827	invlpg [edx]
		828
		829	mov ebx, [ipc_pdir]
		830	mov edx, ebx
		831	shr ebx, 12
		832	xor eax, eax
365	serge	833	mov [page_tabs+ebx*4], eax
164	serge	834	invlpg [edx]
		835
		836	mov ebx, [ipc_ptab]
		837	mov edx, ebx
		838	shr ebx, 12
		839	xor eax, eax
365	serge	840	mov [page_tabs+ebx*4], eax
164	serge	841	invlpg [edx]
		842
		843	mov eax, [dst_slot]
		844	shl eax, 8
380	serge	845	or [eax+SLOT_BASE+0xA8],dword 0x40
164	serge	846	cmp dword [check_idle_semaphore],20
		847	jge .ipc_no_cis
		848
		849	mov dword [check_idle_semaphore],5
		850	.ipc_no_cis:
536	diamond	851	push 0
		852	jmp .ret
164	serge	853	.no_pid:
		854	popf
536	diamond	855	mov eax, 4
164	serge	856	ret
		857	.no_ipc_area:
		858	popf
		859	xor eax, eax
		860	inc eax
		861	ret
		862	.ipc_blocked:
536	diamond	863	push 2
		864	jmp .ret
164	serge	865	.buffer_overflow:
536	diamond	866	push 3
		867	.ret:
890	serge	868	mov ecx, [used_buf]
		869	cmp ecx, [ipc_tmp]
536	diamond	870	jz @f
890	serge	871
		872	call @mem_free@4
536	diamond	873	@@:
		874	pop eax
164	serge	875	popf
		876	ret
		877	endp
		878
		879	align 4
170	serge	880	sysfn_meminfo:
164	serge	881
465	serge	882	; add ebx, new_app_base
		883	cmp ebx, OS_BASE
		884	jae .fail
172	serge	885
859	serge	886	mov eax, [_mem_amount]
		887	shr eax, 12
170	serge	888	mov [ebx], eax
172	serge	889	shl eax, 12
		890	mov [esp+36], eax
859	serge	891	call _get_free_mem
		892	mov [ebx+4], eax
170	serge	893	mov edx, [pg_data.pages_faults]
		894	mov [ebx+8], edx
		895	mov esi, [heap_size]
		896	mov [ebx+12], esi
		897	mov edi, [heap_free]
		898	mov [ebx+16], edi
		899	mov eax, [heap_blocks]
		900	mov [ebx+20], eax
		901	mov ecx, [free_blocks]
		902	mov [ebx+24], ecx
164	serge	903	ret
172	serge	904	.fail:
		905	mov dword [esp+36], -1
		906	ret
164	serge	907
		908	align 4
		909	new_services:
		910
		911	cmp eax,4
		912	jle sys_sheduler
		913
170	serge	914	cmp eax, 11
164	serge	915	jb .fail
		916	ja @f
		917
188	serge	918	call init_heap
164	serge	919	mov [esp+36], eax
		920	ret
		921	@@:
		922	cmp eax, 12
		923	ja @f
		924
		925	stdcall user_alloc, ebx
		926	mov [esp+36], eax
		927	ret
		928	@@:
		929	cmp eax, 13
		930	ja @f
		931	stdcall user_free, ebx
		932	mov [esp+36], eax
		933	ret
		934	@@:
		935	cmp eax, 14
		936	ja @f
465	serge	937	cmp ebx, OS_BASE
		938	jae .fail
227	serge	939	stdcall get_event_ex, ebx, ecx
		940	mov [esp+36], eax
164	serge	941	ret
		942	@@:
		943	cmp eax, 15
		944	ja @f
465	serge	945	mov ecx, [current_slot]
		946	mov eax, [ecx+APPDATA.fpu_handler]
		947	mov [ecx+APPDATA.fpu_handler], ebx
164	serge	948	mov [esp+36], eax
		949	ret
		950	@@:
		951	cmp eax, 16
		952	ja @f
		953
188	serge	954	test ebx, ebx
		955	jz .fail
465	serge	956	cmp ebx, OS_BASE
		957	jae .fail
164	serge	958	stdcall get_service, ebx
		959	mov [esp+36], eax
		960	ret
		961	@@:
		962	cmp eax, 17
		963	ja @f
378	serge	964	call srv_handlerEx ;ebx
164	serge	965	mov [esp+36], eax
		966	ret
168	serge	967	@@:
		968	cmp eax, 18
		969	ja @f
465	serge	970	mov ecx, [current_slot]
		971	mov eax, [ecx+APPDATA.sse_handler]
		972	mov [ecx+APPDATA.sse_handler], ebx
168	serge	973	mov [esp+36], eax
		974	ret
164	serge	975	@@:
198	serge	976	cmp eax, 19
448	diamond	977	ja @f
465	serge	978	cmp ebx, OS_BASE
		979	jae .fail
198	serge	980	stdcall load_library, ebx
		981	mov [esp+36], eax
		982	ret
448	diamond	983	@@:
490	serge	984	cmp eax, 20
740	serge	985	ja @F
490	serge	986	mov eax, ecx
		987	call user_realloc
		988	mov [esp+36], eax
		989	ret
740	serge	990	@@:
747	serge	991	cmp eax, 21 ;for test purposes only
		992	ja @f ;will be removed soon
740	serge	993	cmp ebx, OS_BASE
		994	jae .fail
		995
889	serge	996	mov ecx, ebx
		997	call @load_pe_driver@4
740	serge	998	mov [esp+36], eax
		999	ret
		1000
164	serge	1001	.fail:
		1002	xor eax, eax
		1003	mov [esp+36], eax
		1004	ret
		1005
		1006	align 4
		1007	proc init_mtrr
		1008
412	serge	1009	cmp [BOOT_VAR+0x901c],byte 2
164	serge	1010	je .exit
		1011
211	serge	1012	bt [cpu_caps], CAPS_MTRR
		1013	jnc .exit
		1014
164	serge	1015	mov eax, cr0
		1016	or eax, 0x60000000 ;disable caching
		1017	mov cr0, eax
		1018	wbinvd ;invalidate cache
		1019
		1020	mov ecx, 0x2FF
		1021	rdmsr ;
		1022	push eax
		1023
		1024	xor edx, edx
		1025	xor eax, eax
		1026	mov ecx, 0x2FF
		1027	wrmsr ;disable all MTRR
		1028
846	serge	1029	mov eax, [_mem_amount]
821	diamond	1030	; round eax up to next power of 2
		1031	dec eax
		1032	bsr ecx, eax
		1033	mov eax, 2
		1034	shl eax, cl
		1035	stdcall set_mtrr, edx,edx,eax,MEM_WB
		1036	stdcall set_mtrr, 1,[LFBAddress],[LFBSize],MEM_WC
164	serge	1037	xor edx, edx
		1038	xor eax, eax
		1039	mov ecx, 0x204
		1040	mov ebx, 6
		1041	@@:
		1042	wrmsr ;disable unused MTRR
		1043	inc ecx
		1044	wrmsr
		1045	inc ecx
		1046	dec ebx
		1047	jnz @b
		1048
		1049	wbinvd ;again invalidate
		1050
		1051	pop eax
		1052	or eax, 0x800 ;set default memtype to UC
		1053	and al, 0xF0
		1054	mov ecx, 0x2FF
		1055	wrmsr ;and enable MTRR
		1056
		1057	mov eax, cr0
		1058	and eax, not 0x60000000
		1059	mov cr0, eax ; enable caching
		1060	.exit:
		1061	ret
		1062	endp
		1063
		1064	align 4
		1065	proc set_mtrr stdcall, reg:dword,base:dword,size:dword,mem_type:dword
		1066
		1067	xor edx, edx
		1068	mov eax, [base]
		1069	or eax, [mem_type]
		1070	mov ecx, [reg]
		1071	lea ecx, [0x200+ecx*2]
		1072	wrmsr
		1073
		1074	mov ebx, [size]
		1075	dec ebx
		1076	mov eax, 0xFFFFFFFF
		1077	mov edx, 0x0000000F
		1078	sub eax, ebx
		1079	sbb edx, 0
		1080	or eax, 0x800
		1081	inc ecx
		1082	wrmsr
		1083	ret
		1084	endp
		1085
465	serge	1086	align 4
172	serge	1087	proc stall stdcall, delay:dword
		1088	push ecx
		1089	push edx
		1090	push ebx
		1091	push eax
		1092
		1093	mov eax, [delay]
		1094	mul [stall_mcs]
		1095	mov ebx, eax ;low
		1096	mov ecx, edx ;high
		1097	rdtsc
		1098	add ebx, eax
		1099	adc ecx,edx
		1100	@@:
		1101	rdtsc
		1102	sub eax, ebx
		1103	sbb edx, ecx
		1104	jb @B
		1105
		1106	pop eax
		1107	pop ebx
		1108	pop edx
		1109	pop ecx
		1110	ret
		1111	endp
		1112
520	serge	1113	align 4
890	serge	1114	_CreateRingBuffer:
520	serge	1115	proc create_ring_buffer stdcall, size:dword, flags:dword
		1116	locals
		1117	buf_ptr dd ?
		1118	endl
237	serge	1119
864	serge	1120	mov ecx, [size]
		1121	test ecx, 4095
		1122	jnz .fail
520	serge	1123
864	serge	1124	add ecx, ecx
		1125	xor edx, edx
		1126	call @mem_alloc@8
520	serge	1127	test eax, eax
864	serge	1128	mov [buf_ptr], eax
520	serge	1129	jz .fail
		1130
662	serge	1131	push ebx
		1132
864	serge	1133	xor ecx, ecx
		1134	mov edx, [size]
		1135	shr edx, 12
		1136	mov ebx, edx
		1137	dec edx
		1138	bsr ecx, edx
		1139	inc ecx
520	serge	1140
864	serge	1141	call @core_alloc@4
520	serge	1142	test eax, eax
		1143	jz .mm_fail
		1144
864	serge	1145	or eax, [flags]
		1146	mov edx, [buf_ptr]
		1147	lea ecx, [ebx*4]
		1148	shr edx, 10
520	serge	1149	@@:
864	serge	1150	mov [page_tabs+edx], eax
		1151	mov [page_tabs+edx+ecx], eax
520	serge	1152	add eax, 0x1000
864	serge	1153	add edx, 4
		1154	dec ebx
520	serge	1155	jnz @B
		1156
		1157	mov eax, [buf_ptr]
662	serge	1158	pop ebx
520	serge	1159	ret
		1160	.mm_fail:
890	serge	1161	mov ecx, [buf_ptr]
		1162	call @mem_free@4
864	serge	1163	pop ebx
520	serge	1164	xor eax, eax
		1165	.fail:
		1166	ret
		1167	endp
		1168
465	serge	1169
841	serge	1170	align 4
		1171	_balloc: ; gcc fastcall
843	serge	1172	@balloc@4:
841	serge	1173
843	serge	1174
		1175	mov eax, [_pg_balloc]
841	serge	1176	add ecx, 4095
		1177	and ecx, -4096
		1178	add ecx, eax
843	serge	1179	mov [_pg_balloc], ecx
841	serge	1180	add eax, OS_BASE
		1181	ret
		1182

Subversion Repositories Kolibri OS

(root)/kernel/branches/kolibri_pe/core/memory.inc – Rev 890