WebSVN – Kolibri OS – Blame – /kernel/trunk/kernel.asm

Rev	Author	Line No.	Line
2288	clevermous	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;;
9715	Doczom	3	;; Copyright (C) KolibriOS team 2004-2022. All rights reserved.
2288	clevermous	4	;; PROGRAMMING:
		5	;; Ivan Poddubny
		6	;; Marat Zakiyanov (Mario79)
		7	;; VaStaNi
		8	;; Trans
		9	;; Mihail Semenyako (mike.dld)
		10	;; Sergey Kuzmin (Wildwest)
		11	;; Andrey Halyavin (halyavin)
		12	;; Mihail Lisovin (Mihasik)
		13	;; Andrey Ignatiev (andrew_programmer)
		14	;; NoName
		15	;; Evgeny Grechnikov (Diamond)
		16	;; Iliya Mihailov (Ghost)
		17	;; Sergey Semyonov (Serge)
		18	;; Johnny_B
		19	;; SPraid (simba)
		20	;; Hidnplayr
		21	;; Alexey Teplov ()
		22	;; Rus
		23	;; Nable
		24	;; shurf
		25	;; Alver
		26	;; Maxis
		27	;; Galkov
		28	;; CleverMouse
		29	;; tsdima
		30	;; turbanoff
		31	;; Asper
		32	;; art_zh
8858	rgimad	33	;; dunkaist
		34	;; Coldy
		35	;; rgimad
		36	;; Boppan
		37	;; Doczom
		38	;; and others
2288	clevermous	39	;;
		40	;; Data in this file was originally part of MenuetOS project which is
		41	;; distributed under the terms of GNU GPL. It is modified and redistributed as
		42	;; part of KolibriOS project under the terms of GNU GPL.
		43	;;
		44	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
		45	;; PROGRAMMING:
		46	;;
		47	;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
		48	;; - main os coding/design
		49	;; Jan-Michael Brummer, BUZZ2@gmx.de
		50	;; Felix Kaiser, info@felix-kaiser.de
		51	;; Paolo Minazzi, paolo.minazzi@inwind.it
		52	;; quickcode@mail.ru
		53	;; Alexey, kgaz@crosswinds.net
		54	;; Juan M. Caravaca, bitrider@wanadoo.es
		55	;; kristol@nic.fi
		56	;; Mike Hibbett, mikeh@oceanfree.net
		57	;; Lasse Kuusijarvi, kuusijar@lut.fi
		58	;; Jarek Pelczar, jarekp3@wp.pl
		59	;;
		60	;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
		61	;; WARRANTY. No author or distributor accepts responsibility to anyone for the
		62	;; consequences of using it or for whether it serves any particular purpose or
		63	;; works at all, unless he says so in writing. Refer to the GNU General Public
		64	;; License (the "GPL") for full details.
		65	;
		66	;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
		67	;; but only under the conditions described in the GPL. A copy of this license
		68	;; is supposed to have been given to you along with KolibriOS so you can know
		69	;; your rights and responsibilities. It should be in a file named COPYING.
		70	;; Among other things, the copyright notice and this notice must be preserved
		71	;; on all copies.
		72	;;
		73	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		74
3383	hidnplayr	75	format binary as "mnt"
		76
2288	clevermous	77	include 'macros.inc'
2381	hidnplayr	78	include 'struct.inc'
2288	clevermous	79
		80	$Revision: 9925 $
		81
		82
7136	dunkaist	83	USE_COM_IRQ = 1 ; make irq 3 and irq 4 available for PCI devices
		84	VESA_1_2_VIDEO = 0 ; enable vesa 1.2 bank switch functions
2288	clevermous	85
		86	; Enabling the next line will enable serial output console
7136	dunkaist	87	;debug_com_base = 0x3f8 ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used
2288	clevermous	88
		89	include "proc32.inc"
		90	include "kglobals.inc"
		91	include "lang.inc"
3539	clevermous	92	include "encoding.inc"
2288	clevermous	93
		94	include "const.inc"
3777	yogev_ezra	95
		96	iglobal
		97	; The following variable, if equal to 1, duplicates debug output to the screen.
		98	debug_direct_print db 0
		99	; Start the first app (LAUNCHER) after kernel is loaded? (1=yes, 2 or 0=no)
		100	launcher_start db 1
		101	endg
		102
7136	dunkaist	103	max_processes = 255
		104	tss_step = 128 + 8192 ; tss & i/o - 65535 ports, * 256=557056*4
2288	clevermous	105
7136	dunkaist	106	os_stack = os_data_l - gdts ; GDTs
		107	os_code = os_code_l - gdts
		108	graph_data = 3 + graph_data_l - gdts
		109	tss0 = tss0_l - gdts
		110	app_code = 3 + app_code_l - gdts
		111	app_data = 3 + app_data_l - gdts
		112	app_tls = 3 + tls_data_l - gdts
		113	pci_code_sel = pci_code_32-gdts
		114	pci_data_sel = pci_data_32-gdts
2288	clevermous	115
		116
		117	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		118	;;
		119	;; Included files:
		120	;;
		121	;; Kernel16.inc
		122	;; - Booteng.inc English text for bootup
		123	;; - Bootcode.inc Hardware setup
		124	;; - Pci16.inc PCI functions
		125	;;
		126	;; Kernel32.inc
		127	;; - Sys32.inc Process management
		128	;; - Shutdown.inc Shutdown and restart
		129	;; - Fat32.inc Read / write hd
		130	;; - Vesa12.inc Vesa 1.2 driver
		131	;; - Vesa20.inc Vesa 2.0 driver
		132	;; - Vga.inc VGA driver
		133	;; - Stack.inc Network interface
		134	;; - Mouse.inc Mouse pointer
		135	;; - Scincode.inc Window skinning
		136	;; - Pci32.inc PCI functions
		137	;;
		138	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		139
7129	dunkaist	140	; In bios boot mode the kernel code below is appended to bootbios.bin file.
		141	; That is a loading and initialization code that also draws the blue screen
		142	; menu with svn revision number near top right corner of the screen. This fasm
		143	; preprocessor code searches for '****' signature inside bootbios.bin and
		144	; places revision number there.
		145	if ~ defined UEFI
		146	bootbios:
9249	Boppan	147	if defined extended_primary_loader
		148	file 'bootbios.bin.ext_loader'
		149	else if defined pretest_build
		150	file 'bootbios.bin.pretest'
		151	else
8091	dunkaist	152	file 'bootbios.bin'
		153	end if
7129	dunkaist	154	if __REV__ > 0
		155	cur_pos = 0
		156	cnt = 0
		157	repeat $ - bootbios
		158	load a byte from %
		159	if a = '*'
		160	cnt = cnt + 1
		161	else
		162	cnt = 0
		163	end if
		164	if cnt = 4
		165	cur_pos = % - 1
		166	break
		167	end if
		168	end repeat
		169	store byte ' ' at cur_pos + 1
		170	rev_var = __REV__
		171	while rev_var > 0
		172	store byte rev_var mod 10 + '0' at cur_pos
		173	cur_pos = cur_pos - 1
		174	rev_var = rev_var / 10
		175	end while
		176	store byte ' ' at cur_pos
		177	store dword ' SVN' at cur_pos - 4
		178	end if
3287	esevece	179	end if
2288	clevermous	180
		181	use32
		182	org $+0x10000
		183
		184	align 4
		185	B32:
		186	mov ax, os_stack ; Selector for os
		187	mov ds, ax
		188	mov es, ax
		189	mov fs, ax
		190	mov gs, ax
		191	mov ss, ax
6244	serge	192	mov esp, TMP_STACK_TOP ; Set stack
2288	clevermous	193
		194	; CLEAR 0x280000 - HEAP_BASE
		195
		196	xor eax, eax
		197	mov edi, CLEAN_ZONE
9715	Doczom	198	mov ecx, (HEAP_BASE - OS_BASE - CLEAN_ZONE) / 4
2288	clevermous	199	cld
		200	rep stosd
		201
		202	; CLEAR KERNEL UNDEFINED GLOBALS
9715	Doczom	203	mov edi, endofcode - OS_BASE
2288	clevermous	204	mov ecx, 0x90000
		205	sub ecx, edi
		206	shr ecx, 2
		207	rep stosd
		208
		209	; SAVE & CLEAR 0-0xffff
		210
		211	mov edi, 0x1000
3732	Serge	212	mov ecx, 0x8000 / 4
2288	clevermous	213	rep stosd
3732	Serge	214	mov edi, 0xa000
		215	mov ecx, 0x6000 / 4
		216	rep stosd
2288	clevermous	217
		218	call test_cpu
9715	Doczom	219	bts [cpu_caps - OS_BASE], CAPS_TSC ;force use rdtsc
2288	clevermous	220
8111	dunkaist	221	call acpi_locate
2288	clevermous	222	call init_BIOS32
		223	; MEMORY MODEL
		224	call mem_test
		225	call init_mem
		226	call init_page_map
		227
		228	; ENABLE PAGING
		229
9715	Doczom	230	mov eax, sys_proc - OS_BASE + PROC.pdt_0
2288	clevermous	231	mov cr3, eax
		232
		233	mov eax, cr0
9715	Doczom	234	or eax, CR0_PG + CR0_WP
2288	clevermous	235	mov cr0, eax
		236
		237	lgdt [gdts]
		238	jmp pword os_code:high_code
		239
		240	align 4
		241	bios32_entry dd ?
		242	tmp_page_tabs dd ?
		243	use16
5033	clevermous	244	ap_init16:
		245	cli
9715	Doczom	246	lgdt [cs:gdts_ap - ap_init16]
		247	mov eax, [cs:cr3_ap - ap_init16]
5033	clevermous	248	mov cr3, eax
9715	Doczom	249	mov eax, [cs:cr4_ap - ap_init16]
5033	clevermous	250	mov cr4, eax
9715	Doczom	251	mov eax, CR0_PE + CR0_PG + CR0_WP
5033	clevermous	252	mov cr0, eax
		253	jmp pword os_code:ap_init_high
		254	align 16
		255	gdts_ap:
		256	dw gdte-gdts-1
		257	dd gdts
		258	dw 0
		259	cr3_ap dd ?
		260	cr4_ap dd ?
		261	ap_init16_size = $ - ap_init16
2288	clevermous	262	use32
		263
		264	__DEBUG__ fix 1
		265	__DEBUG_LEVEL__ fix 1
		266	include 'init.inc'
		267
		268	org OS_BASE+$
		269
2443	Serge	270	include 'fdo.inc'
		271
2288	clevermous	272	align 4
		273	high_code:
		274	mov ax, os_stack
		275	mov bx, app_data
		276	mov cx, app_tls
		277	mov ss, ax
		278	add esp, OS_BASE
		279
		280	mov ds, bx
		281	mov es, bx
		282	mov fs, cx
		283	mov gs, bx
		284
5360	serge	285	xor eax, eax
9715	Doczom	286	mov ebx, 0xFFFFF000 + PG_SHARED + PG_NOCACHE + PG_UWR
5360	serge	287	bt [cpu_caps], CAPS_PAT
		288	setc al
		289	shl eax, 7
		290	or ebx, eax
		291
5359	serge	292	mov eax, PG_GLOBAL
2288	clevermous	293	bt [cpu_caps], CAPS_PGE
		294	jnc @F
		295
9715	Doczom	296	or [sys_proc + PROC.pdt_0 + (OS_BASE shr 20)], eax
5360	serge	297	or ebx, eax
2288	clevermous	298
5360	serge	299	mov eax, cr4
		300	or eax, CR4_PGE
		301	mov cr4, eax
2288	clevermous	302	@@:
5360	serge	303	mov [pte_valid_mask], ebx
		304
2288	clevermous	305	xor eax, eax
9715	Doczom	306	mov dword [sys_proc + PROC.pdt_0], eax
		307	mov dword [sys_proc + PROC.pdt_0+4], eax
2288	clevermous	308
		309	mov eax, cr3
		310	mov cr3, eax ; flush TLB
		311
		312	mov ecx, pg_data.mutex
		313	call mutex_init
		314
		315	mov ecx, disk_list_mutex
		316	call mutex_init
		317
2601	clevermous	318	mov ecx, keyboard_list_mutex
		319	call mutex_init
		320
2489	mario79	321	mov ecx, unpack_mutex
		322	call mutex_init
		323
3534	clevermous	324	mov ecx, application_table_mutex
		325	call mutex_init
		326
3742	clevermous	327	mov ecx, ide_mutex
		328	call mutex_init
		329	mov ecx, ide_channel1_mutex
		330	call mutex_init
		331	mov ecx, ide_channel2_mutex
		332	call mutex_init
4700	mario79	333	mov ecx, ide_channel3_mutex
		334	call mutex_init
		335	mov ecx, ide_channel4_mutex
		336	call mutex_init
		337	mov ecx, ide_channel5_mutex
		338	call mutex_init
		339	mov ecx, ide_channel6_mutex
		340	call mutex_init
3774	mario79	341	;-----------------------------------------------------------------------------
2288	clevermous	342	; SAVE REAL MODE VARIABLES
3774	mario79	343	;-----------------------------------------------------------------------------
2288	clevermous	344	; --------------- APM ---------------------
		345
		346	; init selectors
7132	dunkaist	347	mov ebx, [BOOT.apm_entry] ; offset of APM entry point
		348	movzx eax, word [BOOT.apm_code_32] ; real-mode segment base address of
		349	; protected-mode 32-bit code segment
		350	movzx ecx, word [BOOT.apm_code_16] ; real-mode segment base address of
		351	; protected-mode 16-bit code segment
		352	movzx edx, word [BOOT.apm_data_16] ; real-mode segment base address of
		353	; protected-mode 16-bit data segment
2288	clevermous	354
		355	shl eax, 4
		356	mov [dword apm_code_32 + 2], ax
		357	shr eax, 16
		358	mov [dword apm_code_32 + 4], al
		359
		360	shl ecx, 4
		361	mov [dword apm_code_16 + 2], cx
		362	shr ecx, 16
		363	mov [dword apm_code_16 + 4], cl
		364
		365	shl edx, 4
		366	mov [dword apm_data_16 + 2], dx
		367	shr edx, 16
		368	mov [dword apm_data_16 + 4], dl
		369
		370	mov dword[apm_entry], ebx
		371	mov word [apm_entry + 4], apm_code_32 - gdts
		372
7132	dunkaist	373	mov eax, dword[BOOT.apm_version] ; version & flags
2288	clevermous	374	mov [apm_vf], eax
		375	; -----------------------------------------
7132	dunkaist	376	mov al, [BOOT.dma] ; DMA access
2288	clevermous	377	mov [allow_dma_access], al
6263	serge	378
7132	dunkaist	379	mov al, [BOOT.debug_print] ; If nonzero, duplicates debug output to the screen
3777	yogev_ezra	380	mov [debug_direct_print], al
6263	serge	381
7132	dunkaist	382	mov al, [BOOT.launcher_start] ; Start the first app (LAUNCHER) after kernel is loaded?
3777	yogev_ezra	383	mov [launcher_start], al
2288	clevermous	384
8092	dunkaist	385	mov eax, [BOOT.devicesdat_size]
		386	mov [acpi_dev_size], eax
		387	mov eax, [BOOT.devicesdat_data]
		388	mov [acpi_dev_data], eax
		389
7132	dunkaist	390	mov esi, BOOT.bios_hd
2288	clevermous	391	movzx ecx, byte [esi-1]
		392	mov [NumBiosDisks], ecx
		393	mov edi, BiosDisksData
6843	dunkaist	394	shl ecx, 2
2288	clevermous	395	rep movsd
		396
		397	; -------- Fast System Call init ----------
		398	; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
		399	bt [cpu_caps], CAPS_SEP
		400	jnc .SEnP ; SysEnter not Present
		401	xor edx, edx
		402	mov ecx, MSR_SYSENTER_CS
		403	mov eax, os_code
		404	wrmsr
		405	mov ecx, MSR_SYSENTER_ESP
		406	; mov eax, sysenter_stack ; Check it
		407	xor eax, eax
		408	wrmsr
		409	mov ecx, MSR_SYSENTER_EIP
		410	mov eax, sysenter_entry
		411	wrmsr
		412	.SEnP:
		413	; AMD SYSCALL/SYSRET
		414	cmp byte[cpu_vendor], 'A'
		415	jne .noSYSCALL
		416	mov eax, 0x80000001
		417	cpuid
		418	test edx, 0x800 ; bit_11 - SYSCALL/SYSRET support
		419	jz .noSYSCALL
		420	mov ecx, MSR_AMD_EFER
		421	rdmsr
		422	or eax, 1 ; bit_0 - System Call Extension (SCE)
		423	wrmsr
		424
		425	; !!!! It`s dirty hack, fix it !!!
		426	; Bits of EDX :
3539	clevermous	427	; Bit 31–16 During the SYSRET instruction, this field is copied into the CS register
2288	clevermous	428	; and the contents of this field, plus 8, are copied into the SS register.
3539	clevermous	429	; Bit 15–0 During the SYSCALL instruction, this field is copied into the CS register
2288	clevermous	430	; and the contents of this field, plus 8, are copied into the SS register.
		431
		432	; mov edx, (os_code + 16) * 65536 + os_code
		433	mov edx, 0x1B0008
		434
		435	mov eax, syscall_entry
		436	mov ecx, MSR_AMD_STAR
		437	wrmsr
		438	.noSYSCALL:
		439	; -----------------------------------------
		440	stdcall alloc_page
5356	serge	441	stdcall map_page, tss-0xF80, eax, PG_SWR
2288	clevermous	442	stdcall alloc_page
5356	serge	443	stdcall map_page, tss+0x80, eax, PG_SWR
2288	clevermous	444	stdcall alloc_page
5356	serge	445	stdcall map_page, tss+0x1080, eax, PG_SWR
2288	clevermous	446
		447	; LOAD IDT
		448
		449	call build_interrupt_table ;lidt is executed
		450	;lidt [idtreg]
		451
		452	call init_kernel_heap
7276	dunkaist	453	call init_fpu
		454	mov eax, [xsave_area_size]
		455	lea eax, [eax2 + RING0_STACK_SIZE2]
		456	stdcall kernel_alloc, eax
2288	clevermous	457	mov [os_stack_seg], eax
		458
9715	Doczom	459	lea esp, [eax + RING0_STACK_SIZE]
2288	clevermous	460
		461	mov [tss._ss0], os_stack
		462	mov [tss._esp0], esp
		463	mov [tss._esp], esp
		464	mov [tss._cs], os_code
		465	mov [tss._ss], os_stack
		466	mov [tss._ds], app_data
		467	mov [tss._es], app_data
		468	mov [tss._fs], app_data
		469	mov [tss._gs], app_data
		470	mov [tss._io], 128
		471	;Add IO access table - bit array of permitted ports
		472	mov edi, tss._io_map_0
		473	xor eax, eax
		474	not eax
		475	mov ecx, 8192/4
		476	rep stosd ; access to 4096*8=65536 ports
		477
		478	mov ax, tss0
		479	ltr ax
		480
6263	serge	481	mov eax, sys_proc
		482	list_init eax
		483	add eax, PROC.thr_list
		484	list_init eax
		485
		486	call init_video
		487	call init_mtrr
		488	mov [LFBAddress], LFB_BASE
		489	mov ecx, bios_fb
		490	call set_framebuffer
2288	clevermous	491	call init_malloc
		492
5130	serge	493	stdcall alloc_kernel_space, 0x50000 ; FIXME check size
2288	clevermous	494	mov [default_io_map], eax
		495
		496	add eax, 0x2000
		497	mov [ipc_tmp], eax
		498	mov ebx, 0x1000
		499
		500	add eax, 0x40000
		501	mov [proc_mem_map], eax
		502
		503	add eax, 0x8000
		504	mov [proc_mem_pdir], eax
		505
		506	add eax, ebx
		507	mov [proc_mem_tab], eax
		508
		509	add eax, ebx
		510	mov [tmp_task_ptab], eax
		511
		512	add eax, ebx
		513	mov [ipc_pdir], eax
		514
		515	add eax, ebx
		516	mov [ipc_ptab], eax
		517
9715	Doczom	518	stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE + (unpack.LZMA_LIT_SIZE shl \
		519	(unpack.lc + unpack.lp)))*4
2288	clevermous	520
		521	mov [unpack.p], eax
		522
		523	call init_events
9715	Doczom	524	mov eax, srv.fd - SRV.fd
2288	clevermous	525	mov [srv.fd], eax
		526	mov [srv.bk], eax
		527
		528	;Set base of graphic segment to linear address of LFB
		529	mov eax, [LFBAddress] ; set for gs
		530	mov [graph_data_l+2], ax
		531	shr eax, 16
		532	mov [graph_data_l+4], al
		533	mov [graph_data_l+7], ah
		534
5351	serge	535	stdcall kernel_alloc, [_display.win_map_size]
		536	mov [_display.win_map], eax
2288	clevermous	537
		538	xor eax, eax
		539	inc eax
		540
		541	; set background
		542
		543	mov [BgrDrawMode], eax
		544	mov [BgrDataWidth], eax
		545	mov [BgrDataHeight], eax
		546	mov [mem_BACKGROUND], 4
		547	mov [img_background], static_background_data
		548
4199	mario79	549	; set clipboard
		550
		551	xor eax, eax
		552	mov [clipboard_slots], eax
		553	mov [clipboard_write_lock], eax
		554	stdcall kernel_alloc, 4096
		555	test eax, eax
		556	jnz @f
		557
		558	dec eax
		559	@@:
		560	mov [clipboard_main_list], eax
		561
8111	dunkaist	562	call check_acpi
		563
5787	serge	564	mov eax, [hpet_base]
		565	test eax, eax
		566	jz @F
9715	Doczom	567	stdcall map_io_mem, [hpet_base], 1024, PG_GLOBAL + PAT_UC + PG_SWR
5787	serge	568	mov [hpet_base], eax
8111	dunkaist	569	mov eax, [eax+HPET_ID]
5787	serge	570	DEBUGF 1, "K : HPET caps %x\n", eax
8111	dunkaist	571	call init_hpet
5787	serge	572	@@:
3296	clevermous	573	; SET UP OS TASK
		574
		575	mov esi, boot_setostask
		576	call boot_log
		577
9715	Doczom	578	mov edi, sys_proc + PROC.heap_lock
		579	mov ecx, (PROC.ht_free - PROC.heap_lock)/4
5130	serge	580
5595	serge	581	xor eax, eax
		582	cld
		583	rep stosd
		584
		585	mov [edi], dword (PROC.pdt_0 - PROC.htab)/4 - 3
		586	mov [edi+4], dword 3 ;reserve handles for stdin stdout and stderr
		587	mov ecx, (PROC.pdt_0 - PROC.htab)/4
		588	add edi, 8
		589	inc eax
		590	@@:
		591	stosd
		592	inc eax
		593	cmp eax, ecx
		594	jbe @B
		595
9715	Doczom	596	mov [sys_proc + PROC.pdt_0_phys], sys_proc - OS_BASE + PROC.pdt_0
5595	serge	597
5130	serge	598	mov eax, -1
		599	mov edi, thr_slot_map+4
		600	mov [edi-4], dword 0xFFFFFFF8
		601	stosd
		602	stosd
		603	stosd
		604	stosd
		605	stosd
		606	stosd
		607	stosd
		608
		609	mov [current_process], sys_proc
		610
9715	Doczom	611	mov edx, SLOT_BASE + sizeof.APPDATA*1
3534	clevermous	612	mov ebx, [os_stack_seg]
7276	dunkaist	613	add ebx, RING0_STACK_SIZE
		614	add ebx, [xsave_area_size]
3534	clevermous	615	call setup_os_slot
		616	mov dword [edx], 'IDLE'
9715	Doczom	617	sub [edx + APPDATA.saved_esp], 4
		618	mov eax, [edx + APPDATA.saved_esp]
3534	clevermous	619	mov dword [eax], idle_thread
		620	mov ecx, IDLE_PRIORITY
		621	call scheduler_add_thread
3296	clevermous	622
9715	Doczom	623	mov edx, SLOT_BASE + sizeof.APPDATA*2
3534	clevermous	624	mov ebx, [os_stack_seg]
		625	call setup_os_slot
		626	mov dword [edx], 'OS'
		627	xor ecx, ecx
		628	call scheduler_add_thread
3296	clevermous	629
8869	rgimad	630	mov dword [current_slot_idx], 2
8867	rgimad	631	mov [thread_count], 2
8093	dunkaist	632	mov dword [current_slot], SLOT_BASE + sizeof.APPDATA*2
3296	clevermous	633
5033	clevermous	634	; Move other CPUs to deep sleep, if it is useful
		635	uglobal
		636	use_mwait_for_idle db 0
		637	endg
		638	cmp [cpu_vendor+8], 'ntel'
		639	jnz .no_wake_cpus
		640	bt [cpu_caps+4], CAPS_MONITOR-32
		641	jnc .no_wake_cpus
		642	dbgstr 'using mwait for idle loop'
		643	inc [use_mwait_for_idle]
		644	mov ebx, [cpu_count]
		645	cmp ebx, 1
		646	jbe .no_wake_cpus
		647	call create_trampoline_pgmap
9715	Doczom	648	mov [cr3_ap + OS_BASE], eax
5033	clevermous	649	mov eax, cr4
9715	Doczom	650	mov [cr4_ap + OS_BASE], eax
5033	clevermous	651	mov esi, OS_BASE + ap_init16
		652	mov edi, OS_BASE + 8000h
		653	mov ecx, (ap_init16_size + 3) / 4
		654	rep movsd
8119	dunkaist	655	mov eax, [LAPIC_BASE]
		656	test eax, eax
		657	jnz @f
9715	Doczom	658	stdcall map_io_mem, [acpi_lapic_base], 0x1000, PG_GLOBAL + PG_NOCACHE + PG_SWR
5033	clevermous	659	mov [LAPIC_BASE], eax
8119	dunkaist	660	@@:
9715	Doczom	661	lea edi, [eax + APIC_ICRL]
5033	clevermous	662	mov esi, smpt+4
		663	dec ebx
		664	.wake_cpus_loop:
		665	lodsd
5049	clevermous	666	push esi
		667	xor esi, esi
		668	inc esi
5033	clevermous	669	shl eax, 24
		670	mov [edi+10h], eax
		671	; assert INIT IPI
		672	mov dword [edi], 0C500h
5049	clevermous	673	call delay_ms
5033	clevermous	674	@@:
		675	test dword [edi], 1000h
		676	jnz @b
		677	; deassert INIT IPI
		678	mov dword [edi], 8500h
5049	clevermous	679	call delay_ms
5033	clevermous	680	@@:
		681	test dword [edi], 1000h
		682	jnz @b
		683	; send STARTUP IPI
		684	mov dword [edi], 600h + (8000h shr 12)
5049	clevermous	685	call delay_ms
5033	clevermous	686	@@:
		687	test dword [edi], 1000h
		688	jnz @b
5049	clevermous	689	pop esi
5033	clevermous	690	dec ebx
		691	jnz .wake_cpus_loop
		692	mov eax, [cpu_count]
		693	dec eax
		694	@@:
		695	cmp [ap_initialized], eax
		696	jnz @b
9715	Doczom	697	mov eax, [cr3_ap + OS_BASE]
5033	clevermous	698	call free_page
		699	.no_wake_cpus:
2288	clevermous	700
		701	; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
2642	mario79	702	mov esi, boot_initirq
		703	call boot_log
		704	call init_irqs
2288	clevermous	705
2642	mario79	706	mov esi, boot_picinit
		707	call boot_log
2288	clevermous	708	call PIC_init
		709
2642	mario79	710	mov esi, boot_v86machine
		711	call boot_log
2288	clevermous	712	; Initialize system V86 machine
		713	call init_sys_v86
		714
2642	mario79	715	mov esi, boot_inittimer
		716	call boot_log
2288	clevermous	717	; Initialize system timer (IRQ0)
		718	call PIT_init
		719
4273	clevermous	720	; Register ramdisk file system
8091	dunkaist	721	if ~ defined extended_primary_loader
8089	dunkaist	722	cmp [BOOT.rd_load_from], RD_LOAD_FROM_HD ; will be loaded later
4772	mario79	723	je @f
8091	dunkaist	724	end if
8089	dunkaist	725	cmp [BOOT.rd_load_from], RD_LOAD_FROM_NONE
		726	je @f
		727	call register_ramdisk
4772	mario79	728	;--------------------------------------
		729	@@:
2642	mario79	730	mov esi, boot_initapic
		731	call boot_log
2288	clevermous	732	; Try to Initialize APIC
		733	call APIC_init
		734
2642	mario79	735	mov esi, boot_enableirq
		736	call boot_log
3785	mario79	737	; Enable timer IRQ (IRQ0) and co-processor IRQ (IRQ13)
2288	clevermous	738	; they are used: when partitions are scanned, hd_read relies on timer
		739	call unmask_timer
7733	dunkaist	740	; Prevent duplicate timer IRQs in APIC mode
		741	cmp [irq_mode], IRQ_APIC
		742	jz @f
2288	clevermous	743	stdcall enable_irq, 2 ; @#$%! PIC
7733	dunkaist	744	@@:
2288	clevermous	745	stdcall enable_irq, 13 ; co-processor
4741	hidnplayr	746
		747	; Setup serial output console (if enabled)
		748	if defined debug_com_base
		749
		750	; reserve port so nobody else will use it
		751	xor ebx, ebx
		752	mov ecx, debug_com_base
		753	mov edx, debug_com_base+7
		754	call r_f_port_area
		755
		756	; enable Divisor latch
		757	mov dx, debug_com_base+3
		758	mov al, 1 shl 7
		759	out dx, al
		760
		761	; Set speed to 115200 baud (max speed)
		762	mov dx, debug_com_base
		763	mov al, 0x01
		764	out dx, al
		765
		766	mov dx, debug_com_base+1
		767	mov al, 0x00
		768	out dx, al
		769
		770	; No parity, 8bits words, one stop bit, dlab bit back to 0
		771	mov dx, debug_com_base+3
		772	mov al, 3
		773	out dx, al
		774
		775	; disable interrupts
		776	mov dx, debug_com_base+1
		777	mov al, 0
		778	out dx, al
		779
		780	; clear + enable fifo (64 bits)
		781	mov dx, debug_com_base+2
		782	mov al, 0x7 + 1 shl 5
		783	out dx, al
		784
		785	end if
		786
		787
4575	mario79	788	;-----------------------------------------------------------------------------
		789	; show SVN version of kernel on the message board
		790	;-----------------------------------------------------------------------------
		791	mov eax, [version_inf.rev]
		792	DEBUGF 1, "K : kernel SVN r%d\n", eax
		793	;-----------------------------------------------------------------------------
		794	; show CPU count on the message board
		795	;-----------------------------------------------------------------------------
		796	mov eax, [cpu_count]
		797	test eax, eax
		798	jnz @F
		799	mov al, 1 ; at least one CPU
		800	@@:
		801	DEBUGF 1, "K : %d CPU detected\n", eax
		802	;-----------------------------------------------------------------------------
		803	; detect Floppy drives
		804	;-----------------------------------------------------------------------------
		805	mov esi, boot_detectfloppy
		806	call boot_log
		807	include 'detect/dev_fd.inc'
		808	;-----------------------------------------------------------------------------
4624	mario79	809	; create pci-devices list
4575	mario79	810	;-----------------------------------------------------------------------------
4624	mario79	811	mov [pci_access_enabled], 1
		812	call pci_enum
3762	mario79	813	;-----------------------------------------------------------------------------
4624	mario79	814	; initialisation IDE ATA code
4575	mario79	815	;-----------------------------------------------------------------------------
4624	mario79	816	include 'detect/init_ata.inc'
4575	mario79	817	;-----------------------------------------------------------------------------
9183	rgimad	818	; initialisation AHCI code
		819	;-----------------------------------------------------------------------------
		820	jmp ahci_code_end
		821	include 'blkdev/ahci.inc'
		822	ahci_code_end:
		823	call ahci_init
		824	;-----------------------------------------------------------------------------
2288	clevermous	825	if 0
8089	dunkaist	826	mov ax, [BOOT.sys_disk]
2288	clevermous	827	cmp ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}
		828	je no_lib_load
2642	mario79	829
		830	mov esi, boot_loadlibs
		831	call boot_log
2288	clevermous	832	; LOADING LIBRARES
		833	stdcall dll.Load, @IMPORT ; loading librares for kernel (.obj files)
		834	call load_file_parse_table ; prepare file parse table
		835	call set_kernel_conf ; configure devices and gui
		836	no_lib_load:
		837	end if
		838
		839	; Display APIC status
		840	mov esi, boot_APIC_found
		841	cmp [irq_mode], IRQ_APIC
		842	je @f
		843	mov esi, boot_APIC_nfound
		844	@@:
2642	mario79	845	call boot_log
2288	clevermous	846
		847	; PRINT AMOUNT OF MEMORY
		848	mov esi, boot_memdetect
		849	call boot_log
		850
		851	movzx ecx, word [boot_y]
		852	if lang eq ru
		853	or ecx, (10+30*6) shl 16
3274	esevece	854	else if lang eq sp
		855	or ecx, (10+33*6) shl 16
		856	else
2288	clevermous	857	or ecx, (10+29*6) shl 16
3274	esevece	858	end if
2288	clevermous	859	sub ecx, 10
		860	mov edx, 0xFFFFFF
		861	mov ebx, [MEM_AMOUNT]
		862	shr ebx, 20
		863	xor edi, edi
		864	mov eax, 0x00040000
		865	inc edi
		866	call display_number_force
		867
		868	; BUILD SCHEDULER
		869
2642	mario79	870	; call build_scheduler; sys32.inc
2288	clevermous	871
2642	mario79	872	; mov esi, boot_devices
		873	; call boot_log
2288	clevermous	874
4297	yogev_ezra	875	include "detect/vortex86.inc" ; Vortex86 SoC detection code
		876
5039	clevermous	877	stdcall load_pe_driver, szVidintel, 0
3508	clevermous	878
3520	clevermous	879	call usb_init
		880
2288	clevermous	881	; SET PRELIMINARY WINDOW STACK AND POSITIONS
		882
		883	mov esi, boot_windefs
		884	call boot_log
		885	call set_window_defaults
		886
		887	; SET BACKGROUND DEFAULTS
		888
		889	mov esi, boot_bgr
		890	call boot_log
		891	call init_background
		892	call calculatebackground
		893
		894	; RESERVE SYSTEM IRQ'S JA PORT'S
		895
		896	mov esi, boot_resirqports
		897	call boot_log
		898	call reserve_irqs_ports
		899
		900	call init_display
		901	mov eax, [def_cursor]
9715	Doczom	902	mov [SLOT_BASE + APPDATA.cursor + sizeof.APPDATA], eax
		903	mov [SLOT_BASE + APPDATA.cursor + sizeof.APPDATA*2], eax
2288	clevermous	904
3501	Serge	905	; PRINT CPU FREQUENCY
2288	clevermous	906
3501	Serge	907	mov esi, boot_cpufreq
2288	clevermous	908	call boot_log
3501	Serge	909
5792	serge	910	cli
		911	mov ebx, [hpet_base]
		912	test ebx, ebx
		913	jz @F
9715	Doczom	914	mov ebx, [ebx + HPET_COUNTER]
5792	serge	915
3501	Serge	916	rdtsc
5792	serge	917	mov ecx, 1000
		918	sub eax, [hpet_tsc_start]
9715	Doczom	919	sbb edx, [hpet_tsc_start + 4]
5792	serge	920	shld edx, eax, 10
		921	shl eax, 10
		922	mov esi, eax
		923	mov eax, edx
		924	mul ecx
		925	xchg eax, esi
		926	mul ecx
		927	adc edx, esi
		928	div ebx
		929	mul ecx
		930	div [hpet_period]
		931	mul ecx
		932	DEBUGF 1, "K : cpu frequency %u Hz\n", eax
		933	jmp .next
		934	@@:
		935	rdtsc
2288	clevermous	936	mov ecx, eax
		937	mov esi, 250 ; wait 1/4 a second
		938	call delay_ms
3501	Serge	939	rdtsc
		940
2288	clevermous	941	sub eax, ecx
3481	Serge	942	xor edx, edx
		943	shld edx, eax, 2
2288	clevermous	944	shl eax, 2
5792	serge	945	.next:
3481	Serge	946	mov dword [cpu_freq], eax
9715	Doczom	947	mov dword [cpu_freq + 4], edx
3502	Serge	948	mov ebx, 1000000
		949	div ebx
3501	Serge	950	mov ebx, eax
2288	clevermous	951
		952	movzx ecx, word [boot_y]
		953	if lang eq ru
3501	Serge	954	add ecx, (10+19*6) shl 16 - 10
3274	esevece	955	else if lang eq sp
3501	Serge	956	add ecx, (10+25*6) shl 16 - 10
3274	esevece	957	else
3501	Serge	958	add ecx, (10+17*6) shl 16 - 10
3274	esevece	959	end if
3501	Serge	960
2288	clevermous	961	mov edx, 0xFFFFFF
		962	xor edi, edi
		963	mov eax, 0x00040000
		964	inc edi
		965	call display_number_force
		966
		967	; SET VARIABLES
		968
		969	call set_variables
		970
		971	; STACK AND FDC
		972
		973	call stack_init
		974	call fdc_init
		975
		976	; PALETTE FOR 320x200 and 640x480 16 col
		977
		978	cmp [SCR_MODE], word 0x12
		979	jne no_pal_vga
		980	mov esi, boot_pal_vga
		981	call boot_log
		982	call paletteVGA
		983	no_pal_vga:
		984
		985	cmp [SCR_MODE], word 0x13
		986	jne no_pal_ega
		987	mov esi, boot_pal_ega
		988	call boot_log
		989	call palette320x200
		990	no_pal_ega:
		991
		992	; LOAD DEFAULT SKIN
		993
		994	call load_default_skin
		995
5635	hidnplayr	996	; Protect I/O permission map
2288	clevermous	997
		998	mov esi, [default_io_map]
9715	Doczom	999	stdcall map_page, esi, [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map], PG_READ
2288	clevermous	1000	add esi, 0x1000
9715	Doczom	1001	stdcall map_page, esi, [SLOT_BASE + sizeof.APPDATA + APPDATA.io_map + 4], PG_READ
2288	clevermous	1002
		1003	stdcall map_page, tss._io_map_0, \
9715	Doczom	1004	[SLOT_BASE + sizeof.APPDATA + APPDATA.io_map], PG_READ
2288	clevermous	1005	stdcall map_page, tss._io_map_1, \
9715	Doczom	1006	[SLOT_BASE + sizeof.APPDATA + APPDATA.io_map + 4], PG_READ
2288	clevermous	1007
		1008	; SET KEYBOARD PARAMETERS
		1009	mov al, 0xf6 ; reset keyboard, scan enabled
5012	clevermous	1010	call kb_write_wait_ack
2601	clevermous	1011	test ah, ah
		1012	jnz .no_keyboard
2288	clevermous	1013
2601	clevermous	1014	iglobal
		1015	align 4
		1016	ps2_keyboard_functions:
		1017	dd .end - $
		1018	dd 0 ; no close
		1019	dd ps2_set_lights
		1020	.end:
		1021	endg
		1022	stdcall register_keyboard, ps2_keyboard_functions, 0
2288	clevermous	1023	; mov al, 0xED ; Keyboard LEDs - only for testing!
5012	clevermous	1024	; call kb_write_wait_ack
2288	clevermous	1025	; mov al, 111b
5012	clevermous	1026	; call kb_write_wait_ack
2288	clevermous	1027
		1028	mov al, 0xF3 ; set repeat rate & delay
5012	clevermous	1029	call kb_write_wait_ack
2288	clevermous	1030	mov al, 0; 30 250 ;00100010b ; 24 500 ;00100100b ; 20 500
5012	clevermous	1031	call kb_write_wait_ack
2288	clevermous	1032	;// mike.dld [
		1033	call set_lights
		1034	;// mike.dld ]
		1035	stdcall attach_int_handler, 1, irq1, 0
4734	mario79	1036	DEBUGF 1, "K : IRQ1 return code %x\n", eax
2601	clevermous	1037	.no_keyboard:
2288	clevermous	1038
4553	hidnplayr	1039	; Load PS/2 mouse driver
2288	clevermous	1040	mov esi, boot_setmouse
		1041	call boot_log
9514	rgimad	1042	stdcall load_pe_driver, szPS2MDriver, 0
2288	clevermous	1043
5031	clevermous	1044	; LOAD FIRST APPLICATION
		1045	cmp byte [launcher_start], 1 ; Check if starting LAUNCHER is selected on blue screen (1 = yes)
		1046	jnz first_app_found
		1047
		1048	cli
		1049	mov ebp, firstapp
		1050	call fs_execute_from_sysdir
		1051	test eax, eax
		1052	jns first_app_found
		1053
		1054	mov esi, boot_failed
		1055	call boot_log
		1056
		1057	mov eax, 0xDEADBEEF ; otherwise halt
		1058	hlt
		1059
		1060	first_app_found:
		1061
2288	clevermous	1062	; START MULTITASKING
7129	dunkaist	1063	preboot_blogesc = 0 ; start immediately after bootlog
2288	clevermous	1064
		1065	; A 'All set - press ESC to start' messages if need
		1066	if preboot_blogesc
		1067	mov esi, boot_tasking
		1068	call boot_log
		1069	.bll1:
		1070	in al, 0x60 ; wait for ESC key press
		1071	cmp al, 129
		1072	jne .bll1
		1073	end if
		1074
		1075	mov [timer_ticks_enable], 1 ; for cd driver
		1076	sti
4734	mario79	1077
4608	clevermous	1078	call mtrr_validate
		1079
2288	clevermous	1080	jmp osloop
		1081	; Fly :)
		1082
5033	clevermous	1083	uglobal
		1084	align 4
		1085	ap_initialized dd 0
		1086	endg
		1087
		1088	ap_init_high:
		1089	mov ax, os_stack
		1090	mov bx, app_data
		1091	mov cx, app_tls
		1092	mov ss, ax
		1093	mov ds, bx
		1094	mov es, bx
		1095	mov fs, cx
		1096	mov gs, bx
		1097	xor esp, esp
9715	Doczom	1098	mov eax, sys_proc - OS_BASE + PROC.pdt_0
5033	clevermous	1099	mov cr3, eax
		1100	lock inc [ap_initialized]
		1101	jmp idle_loop
		1102
		1103
2288	clevermous	1104	include 'unpacker.inc'
		1105
		1106	align 4
		1107	boot_log:
		1108	pushad
		1109
		1110	mov ebx, 10*65536
		1111	mov bx, word [boot_y]
		1112	add [boot_y], dword 10
		1113	mov ecx, 0x80ffffff; ASCIIZ string with white color
		1114	xor edi, edi
		1115	mov edx, esi
		1116	inc edi
		1117	call dtext
		1118
		1119	mov [novesachecksum], 1000
		1120	call checkVga_N13
		1121
		1122	popad
		1123
		1124	ret
		1125
8091	dunkaist	1126	;-----------------------------------------------------------------------------
		1127	; Register ramdisk file system
		1128	register_ramdisk:
		1129	mov esi, boot_initramdisk
		1130	call boot_log
		1131	call ramdisk_init
		1132	ret
		1133
3534	clevermous	1134	; in: edx -> APPDATA for OS/IDLE slot
		1135	; in: ebx = stack base
		1136	proc setup_os_slot
		1137	xor eax, eax
8093	dunkaist	1138	mov ecx, sizeof.APPDATA/4
3534	clevermous	1139	mov edi, edx
		1140	rep stosd
		1141
3535	clevermous	1142	mov eax, tss+0x80
		1143	call get_pg_addr
		1144	inc eax
9715	Doczom	1145	mov [edx + APPDATA.io_map], eax
3535	clevermous	1146	mov eax, tss+0x1080
		1147	call get_pg_addr
		1148	inc eax
9715	Doczom	1149	mov [edx + APPDATA.io_map + 4], eax
3535	clevermous	1150
9715	Doczom	1151	mov dword [edx + APPDATA.pl0_stack], ebx
		1152	lea edi, [ebx + RING0_STACK_SIZE]
		1153	mov dword [edx + APPDATA.fpu_state], edi
		1154	mov dword [edx + APPDATA.saved_esp0], edi
		1155	mov dword [edx + APPDATA.saved_esp], edi
		1156	mov dword [edx + APPDATA.terminate_protection], 1 ; make unkillable
3534	clevermous	1157
		1158	mov esi, fpu_data
7165	clevermous	1159	mov ecx, [xsave_area_size]
		1160	add ecx, 3
		1161	shr ecx, 2
3534	clevermous	1162	rep movsd
		1163
9715	Doczom	1164	lea eax, [edx + APP_EV_OFFSET]
		1165	mov dword [edx + APPDATA.fd_ev], eax
		1166	mov dword [edx + APPDATA.bk_ev], eax
8087	dunkaist	1167
9715	Doczom	1168	lea eax, [edx + APP_OBJ_OFFSET]
		1169	mov dword [edx + APPDATA.fd_obj], eax
		1170	mov dword [edx + APPDATA.bk_obj], eax
3534	clevermous	1171
9715	Doczom	1172	mov dword [edx + APPDATA.cur_dir], sysdir_path-2
3534	clevermous	1173
5130	serge	1174	mov [edx + APPDATA.process], sys_proc
3534	clevermous	1175
9715	Doczom	1176	lea ebx, [edx + APPDATA.list]
		1177	lea ecx, [sys_proc + PROC.thr_list]
5130	serge	1178	list_add_tail ebx, ecx
		1179
9715	Doczom	1180	mov [edx + APPDATA.wnd_number], dh
		1181	mov byte [edx + APPDATA.tid], dh
3534	clevermous	1182
		1183	ret
		1184	endp
		1185
2288	clevermous	1186	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1187	; ;
		1188	; MAIN OS LOOP START ;
		1189	; ;
		1190	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1191	align 32
		1192	osloop:
3534	clevermous	1193	mov edx, osloop_has_work?
		1194	xor ecx, ecx
		1195	call Wait_events
		1196	xor eax, eax
		1197	xchg eax, [osloop_nonperiodic_work]
		1198	test eax, eax
		1199	jz .no_periodic
4734	mario79	1200
2453	mario79	1201	call __sys_draw_pointer
2288	clevermous	1202	call window_check_events
		1203	call mouse_check_events
		1204	call checkmisc
		1205	call checkVga_N13
4734	mario79	1206	;--------------------------------------
3534	clevermous	1207	.no_periodic:
2288	clevermous	1208	call stack_handler
		1209	call check_fdd_motor_status
		1210	call check_ATAPI_device_event
2601	clevermous	1211	call check_lights_state
2288	clevermous	1212	call check_timers
4734	mario79	1213
2288	clevermous	1214	jmp osloop
		1215	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1216	; ;
		1217	; MAIN OS LOOP END ;
		1218	; ;
		1219	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3534	clevermous	1220	proc osloop_has_work?
		1221	cmp [osloop_nonperiodic_work], 0
		1222	jnz .yes
		1223	call stack_handler_has_work?
		1224	jnz .yes
4273	clevermous	1225	call check_fdd_motor_status_has_work?
		1226	jnz .yes
3534	clevermous	1227	call check_ATAPI_device_event_has_work?
		1228	jnz .yes
		1229	call check_lights_state_has_work?
		1230	jnz .yes
		1231	call check_timers_has_work?
		1232	jnz .yes
		1233	.no:
		1234	xor eax, eax
2288	clevermous	1235	ret
3534	clevermous	1236	.yes:
		1237	xor eax, eax
		1238	inc eax
		1239	ret
		1240	endp
2288	clevermous	1241
3534	clevermous	1242	proc wakeup_osloop
		1243	mov [osloop_nonperiodic_work], 1
		1244	ret
		1245	endp
		1246
2288	clevermous	1247	uglobal
3534	clevermous	1248	align 4
		1249	osloop_nonperiodic_work dd ?
2288	clevermous	1250	endg
		1251
5033	clevermous	1252	uglobal
		1253	align 64
		1254	idle_addr rb 64
		1255	endg
		1256
3534	clevermous	1257	idle_thread:
		1258	sti
5033	clevermous	1259
		1260	; The following code can be executed by all CPUs in the system.
		1261	; All other parts of the kernel do not expect multi-CPU.
		1262	; Also, APs don't even have a stack here.
		1263	; Beware. Don't do anything here. Anything at all.
3534	clevermous	1264	idle_loop:
5033	clevermous	1265	cmp [use_mwait_for_idle], 0
9911	Doczom	1266	jnz .mwait
5033	clevermous	1267
9911	Doczom	1268	.hlt:
3534	clevermous	1269	hlt
9911	Doczom	1270	jmp .hlt
2288	clevermous	1271
9911	Doczom	1272	.mwait:
5033	clevermous	1273	mov eax, idle_addr
		1274	xor ecx, ecx
		1275	xor edx, edx
		1276	monitor
		1277	xor ecx, ecx
		1278	mov eax, 20h ; or 10h
		1279	mwait
9911	Doczom	1280	jmp .mwait
2288	clevermous	1281
3534	clevermous	1282
2288	clevermous	1283	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1284	; ;
		1285	; INCLUDED SYSTEM FILES ;
		1286	; ;
		1287	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1288
		1289
		1290	include "kernel32.inc"
		1291
		1292
		1293	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1294	; ;
		1295	; KERNEL FUNCTIONS ;
		1296	; ;
		1297	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1298
		1299	reserve_irqs_ports:
		1300
		1301
		1302	; RESERVE PORTS
		1303	mov eax, RESERVED_PORTS
		1304	mov ecx, 1
		1305
		1306	mov [eax], dword 4
		1307
		1308	mov [eax+16], ecx
		1309	mov [eax+16+4], dword 0
3426	hidnplayr	1310	mov [eax+16+8], dword 0x2D
2288	clevermous	1311
		1312	mov [eax+32], ecx
		1313	mov [eax+32+4], dword 0x30
		1314	mov [eax+32+8], dword 0x4D
		1315
		1316	mov [eax+48], ecx
		1317	mov [eax+48+4], dword 0x50
3426	hidnplayr	1318	mov [eax+48+8], dword 0xDF
2288	clevermous	1319
		1320	mov [eax+64], ecx
		1321	mov [eax+64+4], dword 0xE5
		1322	mov [eax+64+8], dword 0xFF
		1323
		1324	ret
		1325
		1326
		1327	iglobal
3534	clevermous	1328	process_number dd 0x2
2288	clevermous	1329	endg
		1330
		1331	set_variables:
		1332
		1333	mov ecx, 0x16 ; flush port 0x60
9911	Doczom	1334	@@:
2288	clevermous	1335	in al, 0x60
9911	Doczom	1336	loop @b
2288	clevermous	1337	push eax
		1338
7132	dunkaist	1339	mov ax, [BOOT.y_res]
2288	clevermous	1340	shr ax, 1
		1341	shl eax, 16
7132	dunkaist	1342	mov ax, [BOOT.x_res]
2288	clevermous	1343	shr ax, 1
		1344	mov [MOUSE_X], eax
3534	clevermous	1345	call wakeup_osloop
2288	clevermous	1346
		1347	xor eax, eax
		1348	mov [BTN_ADDR], dword BUTTON_INFO ; address of button list
		1349
		1350	mov byte [KEY_COUNT], al ; keyboard buffer
		1351	mov byte [BTN_COUNT], al ; button buffer
		1352	; mov [MOUSE_X],dword 100*65536+100 ; mouse x/y
		1353
		1354	pop eax
		1355	ret
9488	rgimad	1356	;-----------------------------------------------------------------------------
2288	clevermous	1357
		1358	align 4
		1359	display_number:
8713	Doczom	1360	; add check pointers
		1361	test bl, bl
		1362	jz @f
9910	Doczom	1363	bt ebx, 30 ; check 30 bit
		1364	jb @f
		1365	stdcall is_region_userspace, ecx, 4
9045	dunkaist	1366	jz @f
8713	Doczom	1367	ret
		1368	@@:
9910	Doczom	1369	jz @f
		1370	stdcall is_region_userspace, ecx, 8
		1371	jz @f
		1372	ret
		1373	@@:
8713	Doczom	1374	test esi, 0x08000000
		1375	jz @f
		1376	stdcall is_region_userspace, edi, 1
9045	dunkaist	1377	jz @f
8713	Doczom	1378	ret
		1379	@@:
2288	clevermous	1380	;It is not optimization
		1381	mov eax, ebx
		1382	mov ebx, ecx
		1383	mov ecx, edx
		1384	mov edx, esi
		1385	mov esi, edi
		1386	; eax = print type, al=0 -> ebx is number
		1387	; al=1 -> ebx is pointer
		1388	; ah=0 -> display decimal
		1389	; ah=1 -> display hexadecimal
		1390	; ah=2 -> display binary
		1391	; eax bits 16-21 = number of digits to display (0-32)
		1392	; eax bits 22-31 = reserved
		1393	;
		1394	; ebx = number or pointer
		1395	; ecx = x shl 16 + y
		1396	; edx = color
		1397	xor edi, edi
		1398	display_number_force:
		1399	push eax
		1400	and eax, 0x3fffffff
		1401	cmp eax, 0xffff ; length > 0 ?
		1402	pop eax
9911	Doczom	1403	jge .cont_displ
2288	clevermous	1404	ret
9911	Doczom	1405	.cont_displ:
2288	clevermous	1406	push eax
		1407	and eax, 0x3fffffff
		1408	cmp eax, 61*0x10000 ; length <= 60 ?
		1409	pop eax
9911	Doczom	1410	jb .cont_displ2
2288	clevermous	1411	ret
9911	Doczom	1412	.cont_displ2:
2288	clevermous	1413
		1414	pushad
		1415
		1416	cmp al, 1 ; ecx is a pointer ?
9911	Doczom	1417	jne @f
2288	clevermous	1418	mov ebp, ebx
		1419	add ebp, 4
9911	Doczom	1420	mov ebp, [ebp] ;[ebp + std_application_base_address]
		1421	mov ebx, [ebx] ;[ebx + std_application_base_address]
		1422	@@:
2288	clevermous	1423	sub esp, 64
		1424
		1425	test ah, ah ; DECIMAL
9911	Doczom	1426	jnz .no_display_desnum
		1427
2288	clevermous	1428	shr eax, 16
		1429	and eax, 0xC03f
		1430	; and eax,0x3f
		1431	push eax
		1432	and eax, 0x3f
		1433	mov edi, esp
		1434	add edi, 4+64-1
		1435	mov ecx, eax
		1436	mov eax, ebx
		1437	mov ebx, 10
9911	Doczom	1438	@@:
2288	clevermous	1439	xor edx, edx
		1440	call division_64_bits
		1441	div ebx
		1442	add dl, 48
		1443	mov [edi], dl
		1444	dec edi
9911	Doczom	1445	loop @b
		1446
2288	clevermous	1447	pop eax
		1448	call normalize_number
		1449	call draw_num_text
		1450	add esp, 64
		1451	popad
		1452	ret
9911	Doczom	1453	.no_display_desnum:
2288	clevermous	1454
		1455	cmp ah, 0x01 ; HEXADECIMAL
9911	Doczom	1456	jne .no_display_hexnum
		1457
2288	clevermous	1458	shr eax, 16
		1459	and eax, 0xC03f
		1460	; and eax,0x3f
		1461	push eax
		1462	and eax, 0x3f
		1463	mov edi, esp
		1464	add edi, 4+64-1
		1465	mov ecx, eax
		1466	mov eax, ebx
		1467	mov ebx, 16
9911	Doczom	1468	@@:
2288	clevermous	1469	xor edx, edx
		1470	call division_64_bits
		1471	div ebx
9911	Doczom	1472	;hexletters = __fdo_hexdigits
		1473	add edx, __fdo_hexdigits ;hexletters
2288	clevermous	1474	mov dl, [edx]
		1475	mov [edi], dl
		1476	dec edi
9911	Doczom	1477	loop @b
		1478
2288	clevermous	1479	pop eax
		1480	call normalize_number
		1481	call draw_num_text
		1482	add esp, 64
		1483	popad
		1484	ret
9911	Doczom	1485	.no_display_hexnum:
2288	clevermous	1486
		1487	cmp ah, 0x02 ; BINARY
9911	Doczom	1488	jne .no_display_binnum
		1489
2288	clevermous	1490	shr eax, 16
		1491	and eax, 0xC03f
		1492	; and eax,0x3f
		1493	push eax
		1494	and eax, 0x3f
		1495	mov edi, esp
		1496	add edi, 4+64-1
		1497	mov ecx, eax
		1498	mov eax, ebx
		1499	mov ebx, 2
9911	Doczom	1500	@@:
2288	clevermous	1501	xor edx, edx
		1502	call division_64_bits
		1503	div ebx
		1504	add dl, 48
		1505	mov [edi], dl
		1506	dec edi
9911	Doczom	1507	loop @b
		1508
2288	clevermous	1509	pop eax
		1510	call normalize_number
		1511	call draw_num_text
		1512	add esp, 64
		1513	popad
		1514	ret
9911	Doczom	1515	.no_display_binnum:
2288	clevermous	1516
		1517	add esp, 64
		1518	popad
		1519	ret
		1520
		1521	normalize_number:
		1522	test ah, 0x80
		1523	jz .continue
		1524	mov ecx, 48
		1525	and eax, 0x3f
		1526	@@:
		1527	inc edi
		1528	cmp [edi], cl
		1529	jne .continue
		1530	dec eax
		1531	cmp eax, 1
		1532	ja @r
		1533	mov al, 1
		1534	.continue:
		1535	and eax, 0x3f
		1536	ret
		1537
		1538	division_64_bits:
		1539	test [esp+1+4], byte 0x40
		1540	jz .continue
		1541	push eax
		1542	mov eax, ebp
		1543	div ebx
		1544	mov ebp, eax
		1545	pop eax
		1546	.continue:
		1547	ret
		1548
		1549	draw_num_text:
		1550	mov esi, eax
		1551	mov edx, 64+4
		1552	sub edx, eax
		1553	add edx, esp
		1554	mov ebx, [esp+64+32-8+4]
		1555	; add window start x & y
		1556
8869	rgimad	1557	mov edi, [current_slot_idx]
9592	Doczom	1558	mov ecx, edi
9715	Doczom	1559	shl edi, BSF sizeof.APPDATA
		1560	shl ecx, BSF sizeof.WDATA
2288	clevermous	1561
9715	Doczom	1562	mov eax, [window_data + ecx + WDATA.box.left]
		1563	add eax, [SLOT_BASE + edi + APPDATA.wnd_clientbox.left]
2288	clevermous	1564	shl eax, 16
9715	Doczom	1565	add eax, [window_data + ecx + WDATA.box.top]
		1566	add eax, [SLOT_BASE + edi + APPDATA.wnd_clientbox.top]
2288	clevermous	1567	add ebx, eax
		1568	mov ecx, [esp+64+32-12+4]
		1569	mov eax, [esp+64+8] ; background color (if given)
		1570	mov edi, [esp+64+4]
6272	pathoswith	1571	and ecx, 5FFFFFFFh
		1572	bt ecx, 27
		1573	jnc @f
		1574	mov edi, eax
		1575	@@:
2288	clevermous	1576	jmp dtext
4700	mario79	1577	;-----------------------------------------------------------------------------
2288	clevermous	1578	align 4
		1579	sys_setup:
4700	mario79	1580	; 1 = roland mpu midi base , base io address
		1581	; 2 = keyboard 1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
		1582	; 3 = not used
		1583	; 4 = not used
		1584	; 5 = system language, 1eng 2fi 3ger 4rus
		1585	; 6 = not used
		1586	; 7 = not used
		1587	; 8 = not used
		1588	; 9 = not used
		1589	; 10 = not used
2288	clevermous	1590	; 11 = enable lba read
		1591	; 12 = enable pci access
4700	mario79	1592	;-----------------------------------------------------------------------------
9831	dunkaist	1593	and [esp + SYSCALL_STACK.eax], dword 0
4700	mario79	1594	; F.21.1 - set MPU MIDI base port
		1595	dec ebx
		1596	jnz @f
2288	clevermous	1597
		1598	cmp ecx, 0x100
4700	mario79	1599	jb @f
2288	clevermous	1600
		1601	mov esi, 65535
		1602	cmp esi, ecx
4700	mario79	1603	jb @f
2288	clevermous	1604
4700	mario79	1605	mov [midi_base], cx
		1606	mov word [mididp], cx
		1607	inc cx
		1608	mov word [midisp], cx
2288	clevermous	1609	ret
4700	mario79	1610	;--------------------------------------
		1611	@@:
		1612	; F.21.2 - set keyboard layout
		1613	dec ebx
		1614	jnz @f
2288	clevermous	1615
9710	Doczom	1616	mov eax, edx
4700	mario79	1617	; 1 = normal layout
		1618	dec ecx
		1619	jnz .shift
2288	clevermous	1620
		1621	mov ebx, keymap
		1622	mov ecx, 128
		1623	call memmove
		1624	ret
4700	mario79	1625	;--------------------------------------
		1626	.shift:
		1627	; 2 = layout at pressed Shift
2288	clevermous	1628	dec ecx
4700	mario79	1629	jnz .alt
2288	clevermous	1630
		1631	mov ebx, keymap_shift
		1632	mov ecx, 128
		1633	call memmove
		1634	ret
4700	mario79	1635	;--------------------------------------
		1636	.alt:
		1637	; 3 = layout at pressed Alt
2288	clevermous	1638	dec ecx
4700	mario79	1639	jnz .country
		1640
2288	clevermous	1641	mov ebx, keymap_alt
		1642	mov ecx, 128
		1643	call memmove
		1644	ret
4700	mario79	1645	;--------------------------------------
		1646	.country:
		1647	; country identifier
2288	clevermous	1648	sub ecx, 6
4700	mario79	1649	jnz .error
		1650
2288	clevermous	1651	mov word [keyboard], dx
		1652	ret
4700	mario79	1653	;--------------------------------------
		1654	@@:
		1655	; F.21.5 - set system language
		1656	sub ebx, 3
		1657	jnz @f
2288	clevermous	1658
		1659	mov [syslang], ecx
		1660	ret
4700	mario79	1661	;--------------------------------------
		1662	@@:
		1663	; F.21.11 - enable/disable low-level access to HD
		1664	and ecx, 1
		1665	sub ebx, 6
		1666	jnz @f
2288	clevermous	1667
4700	mario79	1668	mov [lba_read_enabled], ecx
2288	clevermous	1669	ret
4700	mario79	1670	;--------------------------------------
		1671	@@:
		1672	; F.21.12 - enable/disable low-level access to PCI
2288	clevermous	1673	dec ebx
4700	mario79	1674	jnz .error
2288	clevermous	1675
		1676	mov [pci_access_enabled], ecx
		1677	ret
4700	mario79	1678	;--------------------------------------
		1679	.error:
9831	dunkaist	1680	or [esp + SYSCALL_STACK.eax], dword -1
2288	clevermous	1681	ret
4700	mario79	1682	;-----------------------------------------------------------------------------
2288	clevermous	1683	align 4
		1684	sys_getsetup:
4700	mario79	1685	; 1 = roland mpu midi base , base io address
		1686	; 2 = keyboard 1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
		1687	; 3 = not used
		1688	; 4 = not used
		1689	; 5 = system language, 1eng 2fi 3ger 4rus
		1690	; 6 = not used
		1691	; 7 = not used
		1692	; 8 = not used
		1693	; 9 = get hs timer tic
		1694	; 10 = not used
		1695	; 11 = get the state "lba read"
		1696	; 12 = get the state "pci access"
		1697	;-----------------------------------------------------------------------------
		1698	; F.26.1 - get MPU MIDI base port
		1699	dec ebx
		1700	jnz @f
2288	clevermous	1701
		1702	movzx eax, [midi_base]
9831	dunkaist	1703	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	1704	ret
4700	mario79	1705	;--------------------------------------
		1706	@@:
		1707	; F.26.2 - get keyboard layout
2288	clevermous	1708	dec ebx
4700	mario79	1709	jnz @f
2288	clevermous	1710
9710	Doczom	1711	mov ebx, edx
		1712	; if given memory address belongs to kernel then error
		1713	stdcall is_region_userspace, ebx, 128
		1714	jnz .addr_error
4700	mario79	1715	; 1 = normal layout
		1716	dec ecx
		1717	jnz .shift
2288	clevermous	1718
		1719	mov eax, keymap
		1720	mov ecx, 128
		1721	call memmove
		1722	ret
4700	mario79	1723	;--------------------------------------
		1724	.shift:
		1725	; 2 = layout with pressed Shift
2288	clevermous	1726	dec ecx
4700	mario79	1727	jnz .alt
2288	clevermous	1728
		1729	mov eax, keymap_shift
		1730	mov ecx, 128
		1731	call memmove
		1732	ret
4700	mario79	1733	;--------------------------------------
		1734	.alt:
		1735	; 3 = layout with pressed Alt
2288	clevermous	1736	dec ecx
4700	mario79	1737	jne .country
2288	clevermous	1738
		1739	mov eax, keymap_alt
		1740	mov ecx, 128
		1741	call memmove
		1742	ret
4700	mario79	1743	;--------------------------------------
		1744	.country:
		1745	; 9 = country identifier
2288	clevermous	1746	sub ecx, 6
4700	mario79	1747	jnz .error
		1748
2288	clevermous	1749	movzx eax, word [keyboard]
9831	dunkaist	1750	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	1751	ret
8158	rgimad	1752
		1753	.addr_error: ; if given memory address is illegal
9831	dunkaist	1754	or dword [esp + SYSCALL_STACK.eax], -1
8158	rgimad	1755	ret
4700	mario79	1756	;--------------------------------------
		1757	@@:
		1758	; F.26.5 - get system language
		1759	sub ebx, 3
		1760	jnz @f
2288	clevermous	1761
		1762	mov eax, [syslang]
9831	dunkaist	1763	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	1764	ret
4700	mario79	1765	;--------------------------------------
		1766	@@:
		1767	; F.26.9 - get the value of the time counter
4573	clevermous	1768	sub ebx, 4
4700	mario79	1769	jnz @f
		1770
		1771	mov eax, [timer_ticks]
9831	dunkaist	1772	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	1773	ret
4700	mario79	1774	;--------------------------------------
		1775	@@:
5794	serge	1776	; F.26.10 - get the time from kernel launch in nanoseconds
9571	Doczom	1777	dec ebx
5794	serge	1778	jnz @f
		1779
		1780	call get_clock_ns
9831	dunkaist	1781	mov [esp + SYSCALL_STACK.edx], edx
		1782	mov [esp + SYSCALL_STACK.eax], eax
5794	serge	1783	ret
		1784	;--------------------------------------
		1785	@@:
4700	mario79	1786	; F.26.11 - Find out whether low-level HD access is enabled
9571	Doczom	1787	dec ebx
4700	mario79	1788	jnz @f
		1789
2288	clevermous	1790	mov eax, [lba_read_enabled]
9831	dunkaist	1791	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	1792	ret
4700	mario79	1793	;--------------------------------------
		1794	@@:
		1795	; F.26.12 - Find out whether low-level PCI access is enabled
2288	clevermous	1796	dec ebx
4700	mario79	1797	jnz .error
		1798
2288	clevermous	1799	mov eax, [pci_access_enabled]
9831	dunkaist	1800	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	1801	ret
4700	mario79	1802	;--------------------------------------
		1803	.error:
9831	dunkaist	1804	or [esp + SYSCALL_STACK.eax], dword -1
2288	clevermous	1805	ret
4700	mario79	1806	;-----------------------------------------------------------------------------
2288	clevermous	1807	get_timer_ticks:
		1808	mov eax, [timer_ticks]
		1809	ret
4700	mario79	1810	;-----------------------------------------------------------------------------
9911	Doczom	1811	iglobal
		1812	midi_base dw 0
		1813	endg
5851	pathoswith	1814
9911	Doczom	1815	align 4
		1816	sys_midi:
		1817	cmp word [mididp], 0
		1818	jnz @f
		1819	mov [esp + SYSCALL_STACK.eax], 1
		1820	ret
		1821	@@:
		1822	and [esp + SYSCALL_STACK.eax], 0
		1823	dec ebx
		1824	jnz .smn1
		1825	; call setuart
		1826	@@:
		1827	call .is_output
		1828	test al, al
		1829	jnz @b
		1830	mov dx, word [midisp]
		1831	mov al, 0xff
		1832	out dx, al
		1833	@@:
		1834	mov dx, word [midisp]
		1835	mov al, 0xff
		1836	out dx, al
		1837	call .is_input
		1838	test al, al
		1839	jnz @b
		1840	call .get_mpu_in
		1841	cmp al, 0xfe
		1842	jnz @b
		1843	@@:
		1844	call .is_output
		1845	test al, al
		1846	jnz @b
		1847	mov dx, word [midisp]
		1848	mov al, 0x3f
		1849	out dx, al
		1850	ret
		1851	.smn1:
		1852	dec ebx
		1853	jnz .ret
		1854	@@:
		1855	call .get_mpu_in
		1856	call .is_output
		1857	test al, al
		1858	jnz @b
		1859	mov al, bl
		1860	call .put_mpu_out
		1861	.ret:
		1862	ret
		1863
		1864	.is_input:
2288	clevermous	1865	push edx
		1866	mov dx, word [midisp]
		1867	in al, dx
		1868	and al, 0x80
		1869	pop edx
		1870	ret
		1871
9911	Doczom	1872	.is_output:
2288	clevermous	1873	push edx
		1874	mov dx, word [midisp]
		1875	in al, dx
		1876	and al, 0x40
		1877	pop edx
		1878	ret
		1879
9911	Doczom	1880	.get_mpu_in:
2288	clevermous	1881	push edx
		1882	mov dx, word [mididp]
		1883	in al, dx
		1884	pop edx
		1885	ret
		1886
9911	Doczom	1887	.put_mpu_out:
2288	clevermous	1888	push edx
		1889	mov dx, word [mididp]
		1890	out dx, al
		1891	pop edx
		1892	ret
		1893
9911	Doczom	1894	;-----------------------------------------------------------------------------
2288	clevermous	1895	sys_end:
2430	mario79	1896	cmp [_display.select_cursor], 0
		1897	je @f
		1898	; restore default cursor before killing
		1899	pusha
		1900	mov ecx, [current_slot]
2435	mario79	1901	call restore_default_cursor_before_killing
2430	mario79	1902	popa
		1903	@@:
		1904	;--------------------------------------
3545	hidnplayr	1905	; kill all sockets this process owns
		1906	pusha
9612	Doczom	1907	mov edx, [current_slot]
9715	Doczom	1908	mov edx, [edx + APPDATA.tid]
6011	hidnplayr	1909	call socket_process_end
3545	hidnplayr	1910	popa
		1911	;--------------------------------------
2288	clevermous	1912	mov ecx, [current_slot]
9715	Doczom	1913	mov eax, [ecx + APPDATA.tls_base]
2288	clevermous	1914	test eax, eax
		1915	jz @F
		1916
		1917	stdcall user_free, eax
		1918	@@:
		1919
9612	Doczom	1920	mov eax, [current_slot]
9715	Doczom	1921	mov [eax + APPDATA.state], TSTATE_ZOMBIE
3534	clevermous	1922	call wakeup_osloop
2288	clevermous	1923
3597	Serge	1924	.waitterm: ; wait here for termination
		1925	call change_task
		1926	jmp .waitterm
2435	mario79	1927	;------------------------------------------------------------------------------
2452	mario79	1928	align 4
2435	mario79	1929	restore_default_cursor_before_killing:
2468	mario79	1930	pushfd
		1931	cli
2435	mario79	1932	mov eax, [def_cursor]
9715	Doczom	1933	mov [ecx + APPDATA.cursor], eax
2288	clevermous	1934
2435	mario79	1935	movzx eax, word [MOUSE_Y]
		1936	movzx ebx, word [MOUSE_X]
2446	mario79	1937	mov eax, [d_width_calc_area + eax*4]
		1938
5351	serge	1939	add eax, [_display.win_map]
9715	Doczom	1940	movzx edx, byte [ebx + eax]
9709	Doczom	1941	shl edx, BSF sizeof.APPDATA
9715	Doczom	1942	mov esi, [SLOT_BASE + edx + APPDATA.cursor]
2452	mario79	1943
		1944	cmp esi, [current_cursor]
		1945	je @f
		1946
2435	mario79	1947	push esi
		1948	call [_display.select_cursor]
		1949	mov [current_cursor], esi
2452	mario79	1950	@@:
2450	mario79	1951	mov [redrawmouse_unconditional], 1
3534	clevermous	1952	call wakeup_osloop
2468	mario79	1953	popfd
2435	mario79	1954	ret
		1955	;------------------------------------------------------------------------------
2288	clevermous	1956	iglobal
		1957	align 4
		1958	sys_system_table:
		1959	dd sysfn_deactivate ; 1 = deactivate window
		1960	dd sysfn_terminate ; 2 = terminate thread
		1961	dd sysfn_activate ; 3 = activate window
		1962	dd sysfn_getidletime ; 4 = get idle time
		1963	dd sysfn_getcpuclock ; 5 = get cpu clock
		1964	dd sysfn_saveramdisk ; 6 = save ramdisk
		1965	dd sysfn_getactive ; 7 = get active window
		1966	dd sysfn_sound_flag ; 8 = get/set sound_flag
		1967	dd sysfn_shutdown ; 9 = shutdown with parameter
		1968	dd sysfn_minimize ; 10 = minimize window
		1969	dd sysfn_getdiskinfo ; 11 = get disk subsystem info
9268	Doczom	1970	dd undefined_syscall ; 12 = get last pressed key. function removed. sysfn_lastkey
2288	clevermous	1971	dd sysfn_getversion ; 13 = get kernel version
		1972	dd sysfn_waitretrace ; 14 = wait retrace
		1973	dd sysfn_centermouse ; 15 = center mouse cursor
		1974	dd sysfn_getfreemem ; 16 = get free memory size
		1975	dd sysfn_getallmem ; 17 = get total memory size
		1976	dd sysfn_terminate2 ; 18 = terminate thread using PID
		1977	; instead of slot
		1978	dd sysfn_mouse_acceleration; 19 = set/get mouse acceleration
		1979	dd sysfn_meminfo ; 20 = get extended memory info
		1980	dd sysfn_pid_to_slot ; 21 = get slot number for pid
		1981	dd sysfn_min_rest_window ; 22 = minimize and restore any window
2648	mario79	1982	dd sysfn_min_windows ; 23 = minimize all windows
2654	mario79	1983	dd sysfn_set_screen_sizes ; 24 = set screen sizes for Vesa
5836	GerdtR	1984
		1985	dd sysfn_zmodif ; 25 = get/set window z modifier ;Fantomer
2288	clevermous	1986	sysfn_num = ($ - sys_system_table)/4
		1987	endg
		1988	;------------------------------------------------------------------------------
		1989	sys_system:
		1990	dec ebx
		1991	cmp ebx, sysfn_num
		1992	jae @f
		1993	jmp dword [sys_system_table + ebx*4]
		1994	@@:
		1995	ret
		1996	;------------------------------------------------------------------------------
		1997	sysfn_shutdown: ; 18.9 = system shutdown
7122	dunkaist	1998	cmp ecx, SYSTEM_SHUTDOWN
2288	clevermous	1999	jl exit_for_anyone
7122	dunkaist	2000	cmp ecx, SYSTEM_RESTART
2288	clevermous	2001	jg exit_for_anyone
7132	dunkaist	2002	mov [BOOT.shutdown_type], cl
2288	clevermous	2003
8866	rgimad	2004	mov eax, [thread_count]
2288	clevermous	2005	mov [SYS_SHUTDOWN], al
		2006	mov [shutdown_processes], eax
3534	clevermous	2007	call wakeup_osloop
9831	dunkaist	2008	and dword [esp + SYSCALL_STACK.eax], 0
2288	clevermous	2009	exit_for_anyone:
		2010	ret
		2011	uglobal
		2012	shutdown_processes:
		2013	dd 0x0
		2014	endg
		2015	;------------------------------------------------------------------------------
8270	dunkaist	2016	; in: eax -- APPDATA ptr
		2017	; out: Z/z -- is/not kernel thread
		2018	is_kernel_thread:
9715	Doczom	2019	mov eax, [eax + APPDATA.process]
		2020	cmp eax, [SLOT_BASE + 2*sizeof.APPDATA + APPDATA.process] ; OS
8270	dunkaist	2021	ret
		2022	;------------------------------------------------------------------------------
2288	clevermous	2023	sysfn_terminate: ; 18.2 = TERMINATE
2472	mario79	2024	push ecx
2288	clevermous	2025	cmp ecx, 2
9910	Doczom	2026	jb .noprocessterminate
8866	rgimad	2027	mov edx, [thread_count]
2288	clevermous	2028	cmp ecx, edx
9910	Doczom	2029	ja .noprocessterminate
8866	rgimad	2030	mov eax, [thread_count]
9709	Doczom	2031	shl ecx, BSF sizeof.APPDATA
		2032	add ecx, SLOT_BASE
9911	Doczom	2033
9709	Doczom	2034	mov edx, [ecx + APPDATA.tid]
		2035	cmp byte [ecx + APPDATA.state], TSTATE_FREE
9910	Doczom	2036	jz .noprocessterminate
8270	dunkaist	2037	push eax
9709	Doczom	2038	mov eax, ecx
8270	dunkaist	2039	call is_kernel_thread
		2040	pop eax
9910	Doczom	2041	jz .noprocessterminate
3296	clevermous	2042	push ecx edx
9709	Doczom	2043	mov edx, ecx
3296	clevermous	2044	call request_terminate
		2045	pop edx ecx
		2046	test eax, eax
9910	Doczom	2047	jz .noprocessterminate
2430	mario79	2048	;--------------------------------------
3545	hidnplayr	2049	; terminate all network sockets it used
		2050	pusha
9709	Doczom	2051	mov eax, edx ;TODO: check function
6011	hidnplayr	2052	call socket_process_end
3545	hidnplayr	2053	popa
		2054	;--------------------------------------
2430	mario79	2055	cmp [_display.select_cursor], 0
2452	mario79	2056	je .restore_end
2430	mario79	2057	; restore default cursor before killing
		2058	pusha
		2059	mov ecx, [esp+32]
9911	Doczom	2060	shl ecx, BSF sizeof.APPDATA
2435	mario79	2061	add ecx, SLOT_BASE
2452	mario79	2062	mov eax, [def_cursor]
9715	Doczom	2063	cmp [ecx + APPDATA.cursor], eax
2452	mario79	2064	je @f
2435	mario79	2065	call restore_default_cursor_before_killing
2452	mario79	2066	@@:
2430	mario79	2067	popa
2452	mario79	2068	.restore_end:
2430	mario79	2069	;--------------------------------------
2288	clevermous	2070	;call MEM_Heap_Lock ;guarantee that process isn't working with heap
9709	Doczom	2071	mov [ecx + APPDATA.state], TSTATE_ZOMBIE; clear possible i40's
3534	clevermous	2072	call wakeup_osloop
2288	clevermous	2073	;call MEM_Heap_UnLock
		2074
3534	clevermous	2075	cmp edx, [application_table_owner]; clear app table stat
9910	Doczom	2076	jne .noatsc
3534	clevermous	2077	call unlock_application_table
9910	Doczom	2078	.noatsc:
		2079	.noprocessterminate:
2472	mario79	2080	add esp, 4
2288	clevermous	2081	ret
		2082	;------------------------------------------------------------------------------
		2083	sysfn_terminate2:
3534	clevermous	2084	call lock_application_table
2288	clevermous	2085	mov eax, ecx
		2086	call pid_to_slot
		2087	test eax, eax
		2088	jz .not_found
		2089	mov ecx, eax
		2090	cli
		2091	call sysfn_terminate
3534	clevermous	2092	call unlock_application_table
2288	clevermous	2093	sti
9831	dunkaist	2094	and dword [esp + SYSCALL_STACK.eax], 0
2288	clevermous	2095	ret
		2096	.not_found:
3534	clevermous	2097	call unlock_application_table
9831	dunkaist	2098	or dword [esp + SYSCALL_STACK.eax], -1
2288	clevermous	2099	ret
		2100	;------------------------------------------------------------------------------
		2101	sysfn_deactivate: ; 18.1 = DEACTIVATE WINDOW
		2102	cmp ecx, 2
		2103	jb .nowindowdeactivate
8866	rgimad	2104	cmp ecx, [thread_count]
2288	clevermous	2105	ja .nowindowdeactivate
2408	Serge	2106
2288	clevermous	2107	movzx esi, word [WIN_STACK + ecx*2]
		2108	cmp esi, 1
		2109	je .nowindowdeactivate ; already deactive
		2110
		2111	mov edi, ecx
		2112	shl edi, 5
		2113	add edi, window_data
		2114	movzx esi, word [WIN_STACK + ecx * 2]
		2115	lea esi, [WIN_POS + esi * 2]
		2116	call window._.window_deactivate
6800	pathoswith	2117	call syscall_display_settings.calculateScreen
		2118	call syscall_display_settings.redrawScreen
2288	clevermous	2119	.nowindowdeactivate:
		2120	ret
3455	mario79	2121	;------------------------------------------------------------------------------
2288	clevermous	2122	sysfn_activate: ; 18.3 = ACTIVATE WINDOW
5675	leency	2123	cmp ecx, 2
		2124	jb .nowindowactivate
8866	rgimad	2125	cmp ecx, [thread_count]
2288	clevermous	2126	ja .nowindowactivate
3455	mario79	2127	;-------------------------------------
		2128	@@:
		2129	; If the window is captured and moved by the user,
		2130	; then you can't change the position in window stack!!!
		2131	mov al, [mouse.active_sys_window.action]
		2132	and al, WINDOW_MOVE_AND_RESIZE_FLAGS
		2133	test al, al
		2134	jz @f
		2135	call change_task
		2136	jmp @b
		2137	@@:
		2138	;-------------------------------------
2288	clevermous	2139	mov [window_minimize], 2; restore window if minimized
3534	clevermous	2140	call wakeup_osloop
2288	clevermous	2141
		2142	movzx esi, word [WIN_STACK + ecx*2]
8866	rgimad	2143	cmp esi, [thread_count]
2288	clevermous	2144	je .nowindowactivate; already active
		2145
		2146	mov edi, ecx
9715	Doczom	2147	shl edi, BSF sizeof.WDATA
2288	clevermous	2148	add edi, window_data
		2149	movzx esi, word [WIN_STACK + ecx * 2]
		2150	lea esi, [WIN_POS + esi * 2]
		2151	call waredraw
		2152	.nowindowactivate:
		2153	ret
		2154	;------------------------------------------------------------------------------
5865	GerdtR	2155	align 4
5836	GerdtR	2156	sysfn_zmodif:
		2157	;18,25,1 - get z_modif
		2158	;18,25,2 - set z_modif
		2159	;edx = -1(for current task) or TID
		2160	;esi(for 2) = new value z_modif
		2161	;return:
		2162	;1: eax = z_modif
		2163	;2: eax=0(fail),1(success) for set z_modif
		2164
		2165	cmp edx, -1
		2166	jne @f
8869	rgimad	2167	mov edx, [current_slot_idx]
5836	GerdtR	2168	@@:
8866	rgimad	2169	cmp edx, [thread_count]
5865	GerdtR	2170	ja .fail
5836	GerdtR	2171	cmp edx, 1
5865	GerdtR	2172	je .fail
5836	GerdtR	2173
5865	GerdtR	2174	mov eax, edx
9715	Doczom	2175	shl edx, BSF sizeof.WDATA
5836	GerdtR	2176
9709	Doczom	2177	cmp [edx*8 + SLOT_BASE + APPDATA.state], TSTATE_FREE
5865	GerdtR	2178	je .fail
5836	GerdtR	2179
		2180	cmp ecx, 1
		2181	jnz .set_zmod
		2182
9715	Doczom	2183	mov al, [window_data + edx + WDATA.z_modif]
5865	GerdtR	2184	jmp .exit
5836	GerdtR	2185
		2186	.set_zmod:
		2187	cmp ecx, 2
5865	GerdtR	2188	jnz .fail
5836	GerdtR	2189
5865	GerdtR	2190	mov ebx, esi
		2191	mov esi, eax
5836	GerdtR	2192
5865	GerdtR	2193	cmp bl, ZPOS_ALWAYS_TOP
		2194	jg .fail
5836	GerdtR	2195
9715	Doczom	2196	mov [window_data + edx + WDATA.z_modif], bl
5836	GerdtR	2197
9715	Doczom	2198	mov eax, [window_data + edx + WDATA.box.left]
		2199	mov ebx, [window_data + edx + WDATA.box.top]
		2200	mov ecx, [window_data + edx + WDATA.box.width]
		2201	mov edx, [window_data + edx + WDATA.box.height]
5836	GerdtR	2202	add ecx, eax
		2203	add edx, ebx
5865	GerdtR	2204	call window._.set_screen
5836	GerdtR	2205	call window._.set_top_wnd
5865	GerdtR	2206	call window._.redraw_top_wnd
5836	GerdtR	2207
9715	Doczom	2208	shl esi, BSF sizeof.WDATA
5865	GerdtR	2209	mov [esi + window_data + WDATA.fl_redraw], 1
		2210
		2211
5836	GerdtR	2212	mov eax, 1
5865	GerdtR	2213	jmp .exit
		2214	.fail:
		2215	xor eax, eax
5836	GerdtR	2216	.exit:
9831	dunkaist	2217	mov [esp + SYSCALL_STACK.eax], eax
5836	GerdtR	2218	ret
		2219
		2220	;------------------------------------------------------------------------------
2288	clevermous	2221	sysfn_getidletime: ; 18.4 = GET IDLETIME
9590	Doczom	2222	;mov eax, [TASK_TABLE+32+TASKDATA.cpu_usage]
9715	Doczom	2223	mov eax, [SLOT_BASE + APPDATA.cpu_usage]
9831	dunkaist	2224	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2225	ret
		2226	;------------------------------------------------------------------------------
		2227	sysfn_getcpuclock: ; 18.5 = GET TSC/SEC
3481	Serge	2228	mov eax, dword [cpu_freq]
9831	dunkaist	2229	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2230	ret
		2231	;------------------------------------------------------------------------------
3481	Serge	2232	get_cpu_freq:
		2233	mov eax, dword [cpu_freq]
		2234	mov edx, dword [cpu_freq+4]
		2235	ret
9268	Doczom	2236	; SAVE ramdisk to /hd/1/kolibri.img
2288	clevermous	2237	;!!!!!!!!!!!!!!!!!!!!!!!!
		2238	include 'blkdev/rdsave.inc'
		2239	;!!!!!!!!!!!!!!!!!!!!!!!!
		2240	;------------------------------------------------------------------------------
		2241	align 4
		2242	sysfn_getactive: ; 18.7 = get active window
8866	rgimad	2243	mov eax, [thread_count]
2288	clevermous	2244	movzx eax, word [WIN_POS + eax*2]
9831	dunkaist	2245	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2246	ret
		2247	;------------------------------------------------------------------------------
		2248	sysfn_sound_flag: ; 18.8 = get/set sound_flag
		2249	; cmp ecx,1
		2250	dec ecx
9911	Doczom	2251	jnz .set_flag
2288	clevermous	2252	movzx eax, byte [sound_flag]; get sound_flag
9831	dunkaist	2253	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2254	ret
9911	Doczom	2255	.set_flag:
2288	clevermous	2256	; cmp ecx,2
		2257	dec ecx
9911	Doczom	2258	jnz .err
2288	clevermous	2259	xor byte [sound_flag], 1
9911	Doczom	2260	.err:
2288	clevermous	2261	ret
		2262	;------------------------------------------------------------------------------
		2263	sysfn_minimize: ; 18.10 = minimize window
		2264	mov [window_minimize], 1
3534	clevermous	2265	call wakeup_osloop
2288	clevermous	2266	ret
		2267	;------------------------------------------------------------------------------
		2268	align 4
		2269	sysfn_getdiskinfo: ; 18.11 = get disk info table
		2270	dec ecx
4641	mario79	2271	jnz .exit
		2272	.small_table:
8598	rgimad	2273	stdcall is_region_userspace, edx, DRIVE_DATA_SIZE
9045	dunkaist	2274	jnz .exit
2288	clevermous	2275	mov edi, edx
		2276	mov esi, DRIVE_DATA
4641	mario79	2277	mov ecx, DRIVE_DATA_SIZE ;10
2288	clevermous	2278	cld
4641	mario79	2279	rep movsb
		2280	.exit:
2288	clevermous	2281	ret
		2282	;------------------------------------------------------------------------------
		2283	sysfn_getversion: ; 18.13 = get kernel ID and version
8247	rgimad	2284	; if given memory address belongs to kernel then error
9917	Doczom	2285	stdcall is_region_userspace, ecx, version_inf.size
9045	dunkaist	2286	jnz .addr_error
8247	rgimad	2287
2288	clevermous	2288	mov edi, ecx
		2289	mov esi, version_inf
9917	Doczom	2290	mov ecx, version_inf.size
2288	clevermous	2291	rep movsb
		2292	ret
8247	rgimad	2293	.addr_error: ; if given memory address is illegal
9831	dunkaist	2294	mov dword [esp + SYSCALL_STACK.eax], -1
8247	rgimad	2295	ret
2288	clevermous	2296	;------------------------------------------------------------------------------
		2297	sysfn_waitretrace: ; 18.14 = sys wait retrace
9911	Doczom	2298	;wait retrace functions
2288	clevermous	2299	mov edx, 0x3da
9911	Doczom	2300	.loop:
2288	clevermous	2301	in al, dx
		2302	test al, 1000b
9911	Doczom	2303	jz .loop
9831	dunkaist	2304	and [esp + SYSCALL_STACK.eax], dword 0
2288	clevermous	2305	ret
		2306	;------------------------------------------------------------------------------
		2307	align 4
		2308	sysfn_centermouse: ; 18.15 = mouse centered
5350	serge	2309	mov eax, [_display.width]
2288	clevermous	2310	shr eax, 1
		2311	mov [MOUSE_X], ax
5350	serge	2312	mov eax, [_display.height]
2288	clevermous	2313	shr eax, 1
		2314	mov [MOUSE_Y], ax
3534	clevermous	2315	call wakeup_osloop
2288	clevermous	2316	xor eax, eax
9831	dunkaist	2317	and [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2318	ret
		2319	;------------------------------------------------------------------------------
5851	pathoswith	2320	sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
		2321	cmp ecx, 8
		2322	jnc @f
9715	Doczom	2323	jmp dword [.table + ecx*4]
5851	pathoswith	2324	.get_mouse_acceleration:
2288	clevermous	2325	xor eax, eax
		2326	mov ax, [mouse_speed_factor]
9831	dunkaist	2327	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2328	ret
5851	pathoswith	2329	.set_mouse_acceleration:
2288	clevermous	2330	mov [mouse_speed_factor], dx
		2331	ret
5851	pathoswith	2332	.get_mouse_delay:
5853	pathoswith	2333	xor eax, eax
		2334	mov al, [mouse_delay]
9831	dunkaist	2335	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2336	ret
5851	pathoswith	2337	.set_mouse_delay:
5853	pathoswith	2338	mov [mouse_delay], dl
5851	pathoswith	2339	@@:
2288	clevermous	2340	ret
5851	pathoswith	2341	.set_pointer_position:
5350	serge	2342	cmp dx, word[_display.height]
5851	pathoswith	2343	jae @b
2288	clevermous	2344	rol edx, 16
5350	serge	2345	cmp dx, word[_display.width]
5851	pathoswith	2346	jae @b
2288	clevermous	2347	mov [MOUSE_X], edx
4381	hidnplayr	2348	mov [mouse_active], 1
5851	pathoswith	2349	jmp wakeup_osloop
		2350	.set_mouse_button:
		2351	mov [BTN_DOWN], edx
2288	clevermous	2352	mov [mouse_active], 1
5851	pathoswith	2353	jmp wakeup_osloop
		2354	.get_doubleclick_delay:
		2355	xor eax, eax
		2356	mov al, [mouse_doubleclick_delay]
9831	dunkaist	2357	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2358	ret
5851	pathoswith	2359	.set_doubleclick_delay:
		2360	mov [mouse_doubleclick_delay], dl
		2361	ret
		2362	align 4
		2363	.table:
		2364	dd .get_mouse_acceleration
		2365	dd .set_mouse_acceleration
		2366	dd .get_mouse_delay
		2367	dd .set_mouse_delay
		2368	dd .set_pointer_position
		2369	dd .set_mouse_button
		2370	dd .get_doubleclick_delay
		2371	dd .set_doubleclick_delay
2288	clevermous	2372	;------------------------------------------------------------------------------
		2373	sysfn_getfreemem:
		2374	mov eax, [pg_data.pages_free]
		2375	shl eax, 2
9831	dunkaist	2376	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2377	ret
2648	mario79	2378	;------------------------------------------------------------------------------
2288	clevermous	2379	sysfn_getallmem:
		2380	mov eax, [MEM_AMOUNT]
		2381	shr eax, 10
9831	dunkaist	2382	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2383	ret
2648	mario79	2384	;------------------------------------------------------------------------------
2288	clevermous	2385	sysfn_pid_to_slot:
		2386	mov eax, ecx
		2387	call pid_to_slot
9831	dunkaist	2388	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2389	ret
2648	mario79	2390	;------------------------------------------------------------------------------
2288	clevermous	2391	sysfn_min_rest_window:
		2392	pushad
		2393	mov eax, edx ; ebx - operating
		2394	shr ecx, 1
		2395	jnc @f
		2396	call pid_to_slot
		2397	@@:
		2398	or eax, eax ; eax - number of slot
		2399	jz .error
9828	Doczom	2400	cmp eax, max_processes ; varify maximal slot number
2288	clevermous	2401	ja .error
		2402	movzx eax, word [WIN_STACK + eax*2]
		2403	shr ecx, 1
		2404	jc .restore
		2405	; .minimize:
		2406	call minimize_window
		2407	jmp .exit
		2408	.restore:
		2409	call restore_minimized_window
		2410	.exit:
		2411	popad
		2412	xor eax, eax
9831	dunkaist	2413	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2414	ret
		2415	.error:
		2416	popad
		2417	xor eax, eax
		2418	dec eax
9831	dunkaist	2419	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2420	ret
2648	mario79	2421	;------------------------------------------------------------------------------
		2422	sysfn_min_windows:
		2423	call minimize_all_window
9831	dunkaist	2424	mov [esp + SYSCALL_STACK.eax], eax
2648	mario79	2425	call change_task
		2426	ret
		2427	;------------------------------------------------------------------------------
2654	mario79	2428	sysfn_set_screen_sizes:
		2429	cmp [SCR_MODE], word 0x13
		2430	jbe .exit
		2431
		2432	cmp [_display.select_cursor], select_cursor
		2433	jne .exit
		2434
		2435	cmp ecx, [display_width_standard]
		2436	ja .exit
		2437
		2438	cmp edx, [display_height_standard]
		2439	ja .exit
		2440
		2441	pushfd
		2442	cli
		2443	mov eax, ecx
5351	serge	2444	mov ecx, [_display.lfb_pitch]
2654	mario79	2445	mov [_display.width], eax
		2446	dec eax
		2447	mov [_display.height], edx
		2448	dec edx
		2449	; eax - new Screen_Max_X
		2450	; edx - new Screen_Max_Y
		2451	mov [do_not_touch_winmap], 1
		2452	call set_screen
		2453	mov [do_not_touch_winmap], 0
		2454	popfd
		2455	call change_task
		2456	.exit:
		2457	ret
		2458	;------------------------------------------------------------------------------
2288	clevermous	2459	uglobal
		2460	screen_workarea RECT
2654	mario79	2461	display_width_standard dd 0
		2462	display_height_standard dd 0
		2463	do_not_touch_winmap db 0
2288	clevermous	2464	window_minimize db 0
		2465	sound_flag db 0
2654	mario79	2466
2288	clevermous	2467	endg
		2468
		2469	iglobal
		2470	version_inf:
3454	mario79	2471	db 0,7,7,0 ; version 0.7.7.0
		2472	db 0
		2473	.rev dd __REV__
9917	Doczom	2474	.size = $ - version_inf
2288	clevermous	2475	endg
2515	mario79	2476	;------------------------------------------------------------------------------
		2477	align 4
2288	clevermous	2478	sys_cachetodiskette:
		2479	cmp ebx, 1
4273	clevermous	2480	jb .no_floppy_save
2288	clevermous	2481	cmp ebx, 2
4273	clevermous	2482	ja .no_floppy_save
2288	clevermous	2483	call save_image
9831	dunkaist	2484	mov [esp + SYSCALL_STACK.eax], eax
4273	clevermous	2485	ret
		2486	.no_floppy_save:
9831	dunkaist	2487	mov [esp + SYSCALL_STACK.eax], dword 1
2288	clevermous	2488	ret
2515	mario79	2489	;------------------------------------------------------------------------------
		2490	align 4
2288	clevermous	2491	sys_cpuusage:
		2492
		2493	; RETURN:
		2494	;
		2495	; +00 dword process cpu usage
		2496	; +04 word position in windowing stack
		2497	; +06 word windowing stack value at current position (cpu nro)
		2498	; +10 12 bytes name
		2499	; +22 dword start in mem
		2500	; +26 dword used mem
		2501	; +30 dword PID , process idenfification number
		2502	;
8246	rgimad	2503	; if given memory address belongs to kernel then error
8329	rgimad	2504	stdcall is_region_userspace, ebx, 0x4C
9045	dunkaist	2505	jnz .addr_error
2288	clevermous	2506
		2507	cmp ecx, -1 ; who am I ?
		2508	jne .no_who_am_i
8869	rgimad	2509	mov ecx, [current_slot_idx]
2288	clevermous	2510	.no_who_am_i:
		2511	cmp ecx, max_processes
		2512	ja .nofillbuf
		2513
		2514	; +4: word: position of the window of thread in the window stack
		2515	mov ax, [WIN_STACK + ecx * 2]
		2516	mov [ebx+4], ax
		2517	; +6: word: number of the thread slot, which window has in the window stack
		2518	; position ecx (has no relation to the specific thread)
		2519	mov ax, [WIN_POS + ecx * 2]
		2520	mov [ebx+6], ax
		2521
9715	Doczom	2522	shl ecx, BSF sizeof.APPDATA
2288	clevermous	2523
		2524	; +0: dword: memory usage
9590	Doczom	2525	;mov eax, [ecx+TASK_TABLE+TASKDATA.cpu_usage]
9715	Doczom	2526	mov eax, [SLOT_BASE + ecx - sizeof.APPDATA + APPDATA.cpu_usage]
2288	clevermous	2527	mov [ebx], eax
		2528	; +10: 11 bytes: name of the process
		2529	push ecx
9715	Doczom	2530	lea eax, [SLOT_BASE + ecx + APPDATA.app_name]
2288	clevermous	2531	add ebx, 10
		2532	mov ecx, 11
		2533	call memmove
		2534	pop ecx
		2535
9591	Doczom	2536	shr ecx, 3
2288	clevermous	2537	; +22: address of the process in memory
		2538	; +26: size of used memory - 1
		2539	push edi
		2540	lea edi, [ebx+12]
		2541	xor eax, eax
		2542	mov edx, 0x100000*16
		2543	cmp ecx, 1 shl 5
		2544	je .os_mem
9715	Doczom	2545	mov edx, [SLOT_BASE + ecx*8 + APPDATA.process]
		2546	mov edx, [edx + PROC.mem_used]
2288	clevermous	2547	mov eax, std_application_base_address
		2548	.os_mem:
		2549	stosd
		2550	lea eax, [edx-1]
		2551	stosd
		2552
		2553	; +30: PID/TID
9715	Doczom	2554	mov eax, [SLOT_BASE + ecx*8 + APPDATA.tid]
2288	clevermous	2555	stosd
		2556
		2557	; window position and size
		2558	push esi
9715	Doczom	2559	lea esi, [window_data + ecx + WDATA.box]
2288	clevermous	2560	movsd
		2561	movsd
		2562	movsd
		2563	movsd
		2564
		2565	; Process state (+50)
9715	Doczom	2566	movzx eax, byte [SLOT_BASE + ecx*8 + APPDATA.state]
2288	clevermous	2567	stosd
		2568
		2569	; Window client area box
9715	Doczom	2570	lea esi, [SLOT_BASE + ecx*8 + APPDATA.wnd_clientbox]
2288	clevermous	2571	movsd
		2572	movsd
		2573	movsd
		2574	movsd
		2575
		2576	; Window state
9715	Doczom	2577	mov al, [window_data + ecx + WDATA.fl_wstate]
2288	clevermous	2578	stosb
		2579
		2580	; Event mask (+71)
9715	Doczom	2581	mov EAX, dword [SLOT_BASE + ecx*8 + APPDATA.event_mask]
2288	clevermous	2582	stosd
4286	Serge	2583
4262	0CodErr	2584	; Keyboard mode (+75)
9715	Doczom	2585	mov al, byte [SLOT_BASE + ecx*8 + APPDATA.keyboard_mode]
4286	Serge	2586	stosb
2288	clevermous	2587
		2588	pop esi
		2589	pop edi
		2590
		2591	.nofillbuf:
		2592	; return number of processes
		2593
8866	rgimad	2594	mov eax, [thread_count]
9831	dunkaist	2595	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2596	ret
		2597
8246	rgimad	2598	.addr_error: ; if given memory address is illegal
9831	dunkaist	2599	mov dword [esp + SYSCALL_STACK.eax], -1
8246	rgimad	2600	ret
		2601
2288	clevermous	2602
9612	Doczom	2603	; redraw status
2288	clevermous	2604	align 4
		2605	sys_redrawstat:
		2606	cmp ebx, 1
9910	Doczom	2607	jne .no_widgets_away
2288	clevermous	2608	; buttons away
8869	rgimad	2609	mov ecx, [current_slot_idx]
9910	Doczom	2610	.sys_newba2:
2288	clevermous	2611	mov edi, [BTN_ADDR]
		2612	cmp [edi], dword 0 ; empty button list ?
9910	Doczom	2613	je .end_of_buttons_away
2288	clevermous	2614	movzx ebx, word [edi]
		2615	inc ebx
		2616	mov eax, edi
9910	Doczom	2617	.sys_newba:
2288	clevermous	2618	dec ebx
9910	Doczom	2619	jz .end_of_buttons_away
2288	clevermous	2620
		2621	add eax, 0x10
		2622	cmp cx, [eax]
9910	Doczom	2623	jnz .sys_newba
2288	clevermous	2624
		2625	push eax ebx ecx
		2626	mov ecx, ebx
		2627	inc ecx
		2628	shl ecx, 4
		2629	mov ebx, eax
		2630	add eax, 0x10
		2631	call memmove
		2632	dec dword [edi]
		2633	pop ecx ebx eax
		2634
9910	Doczom	2635	jmp .sys_newba2
2288	clevermous	2636
9910	Doczom	2637	.end_of_buttons_away:
2288	clevermous	2638	ret
		2639
9910	Doczom	2640	.no_widgets_away:
2288	clevermous	2641
		2642	cmp ebx, 2
9910	Doczom	2643	jnz .srl1
2288	clevermous	2644
9709	Doczom	2645	mov edx, [current_slot_idx] ; return whole screen draw area for this app
9925	Doczom	2646	shl edx, BSF sizeof.WDATA
		2647	mov [draw_data + edx + RECT.left], 0
		2648	mov [draw_data + edx + RECT.top], 0
5350	serge	2649	mov eax, [_display.width]
		2650	dec eax
9925	Doczom	2651	mov [draw_data + edx + RECT.right], eax
5350	serge	2652	mov eax, [_display.height]
		2653	dec eax
9925	Doczom	2654	mov [draw_data + edx + RECT.bottom], eax
2288	clevermous	2655
9910	Doczom	2656	.srl1:
2288	clevermous	2657	ret
		2658
		2659	;ok - 100% work
		2660	;nt - not tested
		2661	;---------------------------------------------------------------------------------------------
		2662	;eax
		2663	;0 - task switch counter. Ret switch counter in eax. Block. ok.
		2664	;1 - change task. Ret nothing. Block. ok.
		2665	;2 - performance control
		2666	; ebx
		2667	; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
		2668	; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
		2669	; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
		2670	; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
		2671	; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
		2672	;eax
		2673	;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		2674	;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		2675	;---------------------------------------------------------------------------------------------
		2676	iglobal
		2677	align 4
		2678	sheduler:
		2679	dd sys_sheduler.00
		2680	dd change_task
		2681	dd sys_sheduler.02
		2682	dd sys_sheduler.03
		2683	dd sys_sheduler.04
		2684	endg
		2685	sys_sheduler:
		2686	;rewritten by 29.12.2009
9715	Doczom	2687	jmp dword [sheduler + ebx*4]
2288	clevermous	2688	;.shed_counter:
		2689	.00:
		2690	mov eax, [context_counter]
9831	dunkaist	2691	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2692	ret
		2693
		2694	.02:
		2695	;.perf_control:
		2696	inc ebx ;before ebx=2, ebx=3
		2697	cmp ebx, ecx ;if ecx=3, ebx=3
		2698	jz cache_disable
		2699
		2700	dec ebx ;ebx=2
		2701	cmp ebx, ecx ;
		2702	jz cache_enable ;if ecx=2 and ebx=2
		2703
		2704	dec ebx ;ebx=1
		2705	cmp ebx, ecx
		2706	jz is_cache_enabled ;if ecx=1 and ebx=1
		2707
		2708	dec ebx
		2709	test ebx, ecx ;ebx=0 and ecx=0
		2710	jz modify_pce ;if ecx=0
		2711
		2712	ret
		2713
		2714	.03:
		2715	;.rdmsr_instr:
		2716	;now counter in ecx
		2717	;(edx:eax) esi:edi => edx:esi
		2718	mov eax, esi
		2719	mov ecx, edx
		2720	rdmsr
9831	dunkaist	2721	mov [esp + SYSCALL_STACK.eax], eax
		2722	mov [esp + SYSCALL_STACK.ebx], edx ;ret in ebx?
2288	clevermous	2723	ret
		2724
		2725	.04:
		2726	;.wrmsr_instr:
		2727	;now counter in ecx
		2728	;(edx:eax) esi:edi => edx:esi
		2729	; Fast Call MSR can't be destroy
3539	clevermous	2730	; Но MSR_AMD_EFER можно изменять, т.к. в этом регистре лиш
		2731	; включаются/выключаются расширенные возможности
2288	clevermous	2732	cmp edx, MSR_SYSENTER_CS
		2733	je @f
		2734	cmp edx, MSR_SYSENTER_ESP
		2735	je @f
		2736	cmp edx, MSR_SYSENTER_EIP
		2737	je @f
		2738	cmp edx, MSR_AMD_STAR
		2739	je @f
		2740
		2741	mov eax, esi
		2742	mov ecx, edx
		2743	wrmsr
		2744	; mov [esp + 32], eax
		2745	; mov [esp + 20], edx ;ret in ebx?
		2746	@@:
		2747	ret
		2748
		2749	cache_disable:
		2750	mov eax, cr0
9831	dunkaist	2751	or eax, 01100000_00000000_00000000_00000000b
2288	clevermous	2752	mov cr0, eax
		2753	wbinvd ;set MESI
		2754	ret
		2755
		2756	cache_enable:
		2757	mov eax, cr0
9831	dunkaist	2758	and eax, 10011111_11111111_11111111_11111111b
2288	clevermous	2759	mov cr0, eax
		2760	ret
		2761
		2762	is_cache_enabled:
		2763	mov eax, cr0
		2764	mov ebx, eax
9831	dunkaist	2765	and eax, 01100000_00000000_00000000_00000000b
2288	clevermous	2766	jz cache_disabled
9831	dunkaist	2767	mov [esp + SYSCALL_STACK.eax], ebx
2288	clevermous	2768	cache_disabled:
9831	dunkaist	2769	mov dword [esp + SYSCALL_STACK.eax], eax;0
2288	clevermous	2770	ret
		2771
		2772	modify_pce:
		2773	mov eax, cr4
		2774	; mov ebx,0
		2775	; or bx,100000000b ;pce
		2776	; xor eax,ebx ;invert pce
		2777	bts eax, 8;pce=cr4[8]
		2778	mov cr4, eax
9831	dunkaist	2779	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	2780	ret
		2781	;---------------------------------------------------------------------------------------------
		2782
		2783
		2784	iglobal
		2785	cpustring db 'CPU',0
		2786	endg
		2787
		2788	uglobal
		2789	background_defined db 0 ; diamond, 11.04.2006
		2790	endg
2513	mario79	2791	;-----------------------------------------------------------------------------
2288	clevermous	2792	align 4
		2793	checkmisc:
		2794	cmp [ctrl_alt_del], 1
9910	Doczom	2795	jne .nocpustart
2288	clevermous	2796
		2797	mov ebp, cpustring
		2798	call fs_execute_from_sysdir
		2799
		2800	mov [ctrl_alt_del], 0
2513	mario79	2801	;--------------------------------------
		2802	align 4
9910	Doczom	2803	.nocpustart:
2288	clevermous	2804	cmp [mouse_active], 1
9910	Doczom	2805	jne .mouse_not_active
2288	clevermous	2806	mov [mouse_active], 0
2411	Serge	2807
2288	clevermous	2808	xor edi, edi
9709	Doczom	2809	mov ebx, window_data
2411	Serge	2810
8866	rgimad	2811	mov ecx, [thread_count]
2408	Serge	2812	movzx eax, word [WIN_POS + ecx*2] ; active window
9925	Doczom	2813	shl eax, BSF sizeof.APPDATA
2414	Serge	2814	push eax
2408	Serge	2815
2414	Serge	2816	movzx eax, word [MOUSE_X]
		2817	movzx edx, word [MOUSE_Y]
2513	mario79	2818	;--------------------------------------
2408	Serge	2819	align 4
		2820	.set_mouse_event:
8093	dunkaist	2821	add edi, sizeof.APPDATA
9709	Doczom	2822	add ebx, sizeof.WDATA
9917	Doczom	2823	test [SLOT_BASE + edi + APPDATA.event_mask], EVM_MOUSE_FILTER
2414	Serge	2824	jz .pos_filter
		2825
		2826	cmp edi, [esp] ; skip if filtration active
		2827	jne .skip
2513	mario79	2828	;--------------------------------------
		2829	align 4
2414	Serge	2830	.pos_filter:
9917	Doczom	2831	test [SLOT_BASE + edi + APPDATA.event_mask], EVM_CURSOR_FILTER
2411	Serge	2832	jz .set
2288	clevermous	2833
9709	Doczom	2834	mov esi, [ebx + WDATA.box.left]
2414	Serge	2835	cmp eax, esi
		2836	jb .skip
9709	Doczom	2837	add esi, [ebx + WDATA.box.width]
2414	Serge	2838	cmp eax, esi
		2839	ja .skip
		2840
9709	Doczom	2841	mov esi, [ebx + WDATA.box.top]
2414	Serge	2842	cmp edx, esi
		2843	jb .skip
9709	Doczom	2844	add esi, [ebx + WDATA.box.height]
2414	Serge	2845	cmp edx, esi
		2846	ja .skip
2513	mario79	2847	;--------------------------------------
		2848	align 4
2411	Serge	2849	.set:
9715	Doczom	2850	or [SLOT_BASE + edi + APPDATA.occurred_events], EVENT_MOUSE
2513	mario79	2851	;--------------------------------------
		2852	align 4
2411	Serge	2853	.skip:
2408	Serge	2854	loop .set_mouse_event
		2855
2414	Serge	2856	pop eax
2513	mario79	2857	;--------------------------------------
		2858	align 4
9910	Doczom	2859	.mouse_not_active:
6585	pathoswith	2860	cmp [REDRAW_BACKGROUND], 0 ; background update ?
2288	clevermous	2861	jz nobackgr
2524	mario79	2862
2288	clevermous	2863	cmp [background_defined], 0
		2864	jz nobackgr
2513	mario79	2865	;--------------------------------------
		2866	align 4
3536	clevermous	2867	backgr:
9925	Doczom	2868	mov eax, [draw_data + sizeof.WDATA + RECT.left]
2537	mario79	2869	shl eax, 16
9925	Doczom	2870	add eax, [draw_data + sizeof.WDATA + RECT.right]
2537	mario79	2871	mov [BG_Rect_X_left_right], eax ; [left]*65536 + [right]
		2872
9925	Doczom	2873	mov eax, [draw_data + sizeof.WDATA + RECT.top]
2537	mario79	2874	shl eax, 16
9925	Doczom	2875	add eax, [draw_data + sizeof.WDATA + RECT.bottom]
2537	mario79	2876	mov [BG_Rect_Y_top_bottom], eax ; [top]*65536 + [bottom]
		2877
2288	clevermous	2878	call drawbackground
2580	mario79	2879	; DEBUGF 1, "K : drawbackground\n"
2620	mario79	2880	; DEBUGF 1, "K : backg x %x\n",[BG_Rect_X_left_right]
		2881	; DEBUGF 1, "K : backg y %x\n",[BG_Rect_Y_top_bottom]
2513	mario79	2882	;--------- set event 5 start ----------
		2883	push ecx edi
		2884	xor edi, edi
8866	rgimad	2885	mov ecx, [thread_count]
2513	mario79	2886	;--------------------------------------
		2887	align 4
		2888	set_bgr_event:
8093	dunkaist	2889	add edi, sizeof.APPDATA
3536	clevermous	2890	mov eax, [BG_Rect_X_left_right]
		2891	mov edx, [BG_Rect_Y_top_bottom]
9715	Doczom	2892	cmp [SLOT_BASE + edi + APPDATA.draw_bgr_x], 0
3536	clevermous	2893	jz .set
		2894	.join:
9715	Doczom	2895	cmp word [SLOT_BASE + edi + APPDATA.draw_bgr_x], ax
3611	clevermous	2896	jae @f
9715	Doczom	2897	mov word [SLOT_BASE + edi + APPDATA.draw_bgr_x], ax
3611	clevermous	2898	@@:
		2899	shr eax, 16
9715	Doczom	2900	cmp word [SLOT_BASE + edi + APPDATA.draw_bgr_x + 2], ax
3536	clevermous	2901	jbe @f
9715	Doczom	2902	mov word [SLOT_BASE + edi + APPDATA.draw_bgr_x + 2], ax
3536	clevermous	2903	@@:
9715	Doczom	2904	cmp word [SLOT_BASE + edi + APPDATA.draw_bgr_y], dx
3536	clevermous	2905	jae @f
9715	Doczom	2906	mov word [SLOT_BASE + edi + APPDATA.draw_bgr_y], dx
3536	clevermous	2907	@@:
3611	clevermous	2908	shr edx, 16
9715	Doczom	2909	cmp word [SLOT_BASE + edi + APPDATA.draw_bgr_y+2], dx
3536	clevermous	2910	jbe @f
9715	Doczom	2911	mov word [SLOT_BASE + edi + APPDATA.draw_bgr_y+2], dx
3536	clevermous	2912	@@:
		2913	jmp .common
		2914	.set:
9715	Doczom	2915	mov [SLOT_BASE + edi + APPDATA.draw_bgr_x], eax
		2916	mov [SLOT_BASE + edi + APPDATA.draw_bgr_y], edx
3536	clevermous	2917	.common:
9715	Doczom	2918	or [SLOT_BASE + edi + APPDATA.occurred_events], EVENT_BACKGROUND
2513	mario79	2919	loop set_bgr_event
		2920	pop edi ecx
		2921	;--------- set event 5 stop -----------
6585	pathoswith	2922	dec [REDRAW_BACKGROUND] ; got new update request?
3536	clevermous	2923	jnz backgr
2513	mario79	2924
3536	clevermous	2925	xor eax, eax
9925	Doczom	2926	mov [draw_data + sizeof.WDATA + RECT.left], eax
		2927	mov [draw_data + sizeof.WDATA + RECT.top], eax
		2928	mov [draw_data + sizeof.WDATA + RECT.right], eax
		2929	mov [draw_data + sizeof.WDATA + RECT.bottom], eax
2513	mario79	2930	;--------------------------------------
		2931	align 4
2288	clevermous	2932	nobackgr:
2513	mario79	2933	; system shutdown request
2288	clevermous	2934	cmp [SYS_SHUTDOWN], byte 0
		2935	je noshutdown
		2936
		2937	mov edx, [shutdown_processes]
		2938
		2939	cmp [SYS_SHUTDOWN], dl
3325	clevermous	2940	jne noshutdown
2288	clevermous	2941
		2942	lea ecx, [edx-1]
9709	Doczom	2943	mov edx, SLOT_BASE + sizeof.APPDATA ;OS_BASE+0x3040
3325	clevermous	2944	jecxz no_mark_system_shutdown
2513	mario79	2945	;--------------------------------------
		2946	align 4
2288	clevermous	2947	markz:
3296	clevermous	2948	push ecx edx
9709	Doczom	2949	cmp [edx + APPDATA.state], TSTATE_FREE
3325	clevermous	2950	jz .nokill
9715	Doczom	2951	cmp [edx + APPDATA.process], sys_proc
3325	clevermous	2952	jz .nokill
3296	clevermous	2953	call request_terminate
3325	clevermous	2954	jmp .common
		2955	.nokill:
		2956	dec byte [SYS_SHUTDOWN]
		2957	xor eax, eax
		2958	.common:
3296	clevermous	2959	pop edx ecx
		2960	test eax, eax
		2961	jz @f
9709	Doczom	2962	mov [edx + APPDATA.state], TSTATE_ZOMBIE
3296	clevermous	2963	@@:
9709	Doczom	2964	add edx, sizeof.APPDATA
2288	clevermous	2965	loop markz
3534	clevermous	2966	call wakeup_osloop
2513	mario79	2967	;--------------------------------------
		2968	align 4
2288	clevermous	2969	@@:
2513	mario79	2970	no_mark_system_shutdown:
2288	clevermous	2971	dec byte [SYS_SHUTDOWN]
		2972	je system_shutdown
2513	mario79	2973	;--------------------------------------
		2974	align 4
2288	clevermous	2975	noshutdown:
8866	rgimad	2976	mov eax, [thread_count] ; termination
9709	Doczom	2977	mov ebx, SLOT_BASE + sizeof.APPDATA + APPDATA.state
2288	clevermous	2978	mov esi, 1
2513	mario79	2979	;--------------------------------------
		2980	align 4
2288	clevermous	2981	newct:
		2982	mov cl, [ebx]
9715	Doczom	2983	cmp cl, TSTATE_ZOMBIE
3325	clevermous	2984	jz .terminate
2513	mario79	2985
9715	Doczom	2986	cmp cl, TSTATE_TERMINATING
3325	clevermous	2987	jnz .noterminate
		2988	.terminate:
		2989	pushad
3493	mario79	2990	mov ecx, eax
9715	Doczom	2991	shl ecx, BSF sizeof.APPDATA
3493	mario79	2992	add ecx, SLOT_BASE
		2993	call restore_default_cursor_before_killing
		2994	popad
		2995
		2996	pushad
3325	clevermous	2997	call terminate
		2998	popad
		2999	cmp byte [SYS_SHUTDOWN], 0
		3000	jz .noterminate
		3001	dec byte [SYS_SHUTDOWN]
		3002	je system_shutdown
2288	clevermous	3003
3325	clevermous	3004	.noterminate:
9709	Doczom	3005	add ebx, sizeof.APPDATA
2288	clevermous	3006	inc esi
		3007	dec eax
		3008	jnz newct
		3009	ret
2513	mario79	3010	;-----------------------------------------------------------------------------
		3011	align 4
2288	clevermous	3012	redrawscreen:
		3013	; eax , if process window_data base is eax, do not set flag/limits
		3014
		3015	pushad
		3016	push eax
		3017
		3018	;;; mov ebx,2
		3019	;;; call delay_hs
		3020
		3021	;mov ecx,0 ; redraw flags for apps
		3022	xor ecx, ecx
2513	mario79	3023	;--------------------------------------
		3024	align 4
		3025	newdw2:
2288	clevermous	3026	inc ecx
		3027	push ecx
		3028
		3029	mov eax, ecx
9715	Doczom	3030	shl eax, BSF sizeof.WDATA
2288	clevermous	3031	add eax, window_data
		3032
		3033	cmp eax, [esp+4]
		3034	je not_this_task
		3035	; check if window in redraw area
		3036	mov edi, eax
		3037
		3038	cmp ecx, 1 ; limit for background
		3039	jz bgli
		3040
5870	GerdtR	3041	mov eax, [esp+4] ;if upper in z-position - no redraw
		3042	test eax, eax
		3043	jz @f
		3044	mov al, [eax + WDATA.z_modif]
		3045	cmp [edi + WDATA.z_modif], al
		3046	jg ricino
		3047	@@:
		3048
2288	clevermous	3049	mov eax, [edi + WDATA.box.left]
		3050	mov ebx, [edi + WDATA.box.top]
		3051
		3052	mov ecx, [draw_limits.bottom] ; ecx = area y end ebx = window y start
		3053	cmp ecx, ebx
		3054	jb ricino
		3055
		3056	mov ecx, [draw_limits.right] ; ecx = area x end eax = window x start
		3057	cmp ecx, eax
		3058	jb ricino
		3059
		3060	mov eax, [edi + WDATA.box.left]
		3061	mov ebx, [edi + WDATA.box.top]
		3062	mov ecx, [edi + WDATA.box.width]
		3063	mov edx, [edi + WDATA.box.height]
		3064	add ecx, eax
		3065	add edx, ebx
		3066
		3067	mov eax, [draw_limits.top] ; eax = area y start edx = window y end
		3068	cmp edx, eax
		3069	jb ricino
		3070
		3071	mov eax, [draw_limits.left] ; eax = area x start ecx = window x end
		3072	cmp ecx, eax
		3073	jb ricino
2513	mario79	3074	;--------------------------------------
		3075	align 4
		3076	bgli:
2288	clevermous	3077	cmp dword[esp], 1
		3078	jnz .az
2513	mario79	3079
6585	pathoswith	3080	cmp [REDRAW_BACKGROUND], 0
2288	clevermous	3081	jz .az
2513	mario79	3082
2288	clevermous	3083	mov dl, 0
9715	Doczom	3084	lea eax, [edi + draw_data - window_data]
2288	clevermous	3085	mov ebx, [draw_limits.left]
9715	Doczom	3086	cmp ebx, [eax + RECT.left]
2288	clevermous	3087	jae @f
2513	mario79	3088
2288	clevermous	3089	mov [eax+RECT.left], ebx
		3090	mov dl, 1
2513	mario79	3091	;--------------------------------------
		3092	align 4
		3093	@@:
2288	clevermous	3094	mov ebx, [draw_limits.top]
9715	Doczom	3095	cmp ebx, [eax + RECT.top]
2288	clevermous	3096	jae @f
2513	mario79	3097
9715	Doczom	3098	mov [eax + RECT.top], ebx
2288	clevermous	3099	mov dl, 1
2513	mario79	3100	;--------------------------------------
		3101	align 4
		3102	@@:
2288	clevermous	3103	mov ebx, [draw_limits.right]
9715	Doczom	3104	cmp ebx, [eax + RECT.right]
2288	clevermous	3105	jbe @f
2513	mario79	3106
2288	clevermous	3107	mov [eax+RECT.right], ebx
		3108	mov dl, 1
2513	mario79	3109	;--------------------------------------
		3110	align 4
		3111	@@:
2288	clevermous	3112	mov ebx, [draw_limits.bottom]
9715	Doczom	3113	cmp ebx, [eax + RECT.bottom]
2288	clevermous	3114	jbe @f
2513	mario79	3115
9715	Doczom	3116	mov [eax + RECT.bottom], ebx
2288	clevermous	3117	mov dl, 1
2513	mario79	3118	;--------------------------------------
		3119	align 4
		3120	@@:
6585	pathoswith	3121	add [REDRAW_BACKGROUND], dl
3534	clevermous	3122	call wakeup_osloop
2288	clevermous	3123	jmp newdw8
2513	mario79	3124	;--------------------------------------
		3125	align 4
		3126	.az:
2288	clevermous	3127	mov eax, edi
		3128	add eax, draw_data-window_data
		3129
		3130	mov ebx, [draw_limits.left] ; set limits
		3131	mov [eax + RECT.left], ebx
		3132	mov ebx, [draw_limits.top]
		3133	mov [eax + RECT.top], ebx
		3134	mov ebx, [draw_limits.right]
		3135	mov [eax + RECT.right], ebx
		3136	mov ebx, [draw_limits.bottom]
		3137	mov [eax + RECT.bottom], ebx
		3138
		3139	sub eax, draw_data-window_data
		3140
		3141	cmp dword [esp], 1
		3142	jne nobgrd
6585	pathoswith	3143	inc [REDRAW_BACKGROUND]
3534	clevermous	3144	call wakeup_osloop
2513	mario79	3145	;--------------------------------------
		3146	align 4
		3147	newdw8:
		3148	nobgrd:
3936	mario79	3149	;--------------------------------------
		3150	push eax edi ebp
		3151	mov edi, [esp+12]
		3152	cmp edi, 1
		3153	je .found
2288	clevermous	3154
3936	mario79	3155	mov eax, [draw_limits.left]
		3156	mov ebx, [draw_limits.top]
		3157	mov ecx, [draw_limits.right]
		3158	sub ecx, eax
		3159	test ecx, ecx
		3160	jz .not_found
		3161
		3162	mov edx, [draw_limits.bottom]
		3163	sub edx, ebx
		3164	test edx, edx
		3165	jz .not_found
		3166
		3167	; eax - x, ebx - y
		3168	; ecx - size x, edx - size y
		3169	add ebx, edx
		3170	;--------------------------------------
		3171	align 4
		3172	.start_y:
		3173	push ecx
		3174	;--------------------------------------
		3175	align 4
		3176	.start_x:
		3177	add eax, ecx
		3178	mov ebp, [d_width_calc_area + ebx*4]
5351	serge	3179	add ebp, [_display.win_map]
3936	mario79	3180	movzx ebp, byte[eax+ebp] ; get value for current point
		3181	cmp ebp, edi
		3182	jne @f
		3183
		3184	pop ecx
		3185	jmp .found
		3186	;--------------------------------------
		3187	align 4
		3188	@@:
		3189	sub eax, ecx
		3190
		3191	dec ecx
9221	dunkaist	3192	jns .start_x
3936	mario79	3193
		3194	pop ecx
		3195	dec ebx
		3196	dec edx
9221	dunkaist	3197	jns .start_y
3936	mario79	3198	;--------------------------------------
		3199	align 4
		3200	.not_found:
		3201	pop ebp edi eax
		3202	jmp ricino
		3203	;--------------------------------------
		3204	align 4
		3205	.found:
		3206	pop ebp edi eax
		3207
2288	clevermous	3208	mov [eax + WDATA.fl_redraw], byte 1 ; mark as redraw
2513	mario79	3209	;--------------------------------------
		3210	align 4
		3211	ricino:
		3212	not_this_task:
2288	clevermous	3213	pop ecx
		3214
8866	rgimad	3215	cmp ecx, [thread_count]
2288	clevermous	3216	jle newdw2
		3217
		3218	pop eax
		3219	popad
		3220	ret
2513	mario79	3221	;-----------------------------------------------------------------------------
		3222	align 4
2288	clevermous	3223	calculatebackground: ; background
5351	serge	3224	mov edi, [_display.win_map] ; set os to use all pixels
2288	clevermous	3225	mov eax, 0x01010101
5351	serge	3226	mov ecx, [_display.win_map_size]
2288	clevermous	3227	shr ecx, 2
		3228	rep stosd
9911	Doczom	3229	mov byte[window_data + sizeof.WDATA + WDATA.z_modif], ZPOS_DESKTOP
6585	pathoswith	3230	mov [REDRAW_BACKGROUND], 0
2288	clevermous	3231	ret
2513	mario79	3232	;-----------------------------------------------------------------------------
2288	clevermous	3233	uglobal
		3234	imax dd 0x0
		3235	endg
2513	mario79	3236	;-----------------------------------------------------------------------------
		3237	align 4
2288	clevermous	3238	delay_ms: ; delay in 1/1000 sec
8139	dunkaist	3239	pushad
		3240
		3241	cmp [hpet_base], 0
		3242	jz .no_hpet
		3243	mov eax, esi
8176	dunkaist	3244	mov edx, 1_000_000 ; ms to ns
8139	dunkaist	3245	mul edx
		3246	mov ebx, edx
		3247	mov ecx, eax
		3248
2288	clevermous	3249	push ecx
8139	dunkaist	3250	call get_clock_ns
		3251	pop ecx
		3252	mov edi, edx
		3253	mov esi, eax
		3254	.wait:
		3255	push ecx
		3256	call get_clock_ns
		3257	pop ecx
		3258	sub eax, esi
		3259	sbb edx, edi
		3260	sub eax, ecx
		3261	sbb edx, ebx
		3262	jc .wait
		3263	jmp .done
2288	clevermous	3264
8139	dunkaist	3265	.no_hpet:
2288	clevermous	3266	mov ecx, esi
		3267	;
		3268	imul ecx, 33941
		3269	shr ecx, 9
		3270	;
		3271
		3272	in al, 0x61
		3273	and al, 0x10
		3274	mov ah, al
		3275	cld
8139	dunkaist	3276
		3277	.cnt1:
2288	clevermous	3278	in al, 0x61
		3279	and al, 0x10
		3280	cmp al, ah
8139	dunkaist	3281	jz .cnt1
2288	clevermous	3282
		3283	mov ah, al
8139	dunkaist	3284	loop .cnt1
2288	clevermous	3285
8139	dunkaist	3286	.done:
		3287	popad
2288	clevermous	3288	ret
2513	mario79	3289	;-----------------------------------------------------------------------------
2411	Serge	3290	align 4
2288	clevermous	3291	set_app_param:
9612	Doczom	3292	mov edi, [current_slot]
9614	Doczom	3293	xchg ebx, [edi + APPDATA.event_mask] ; set new event mask
9897	dunkaist	3294	mov [esp + SYSCALL_STACK.eax], ebx ; return old mask value
2288	clevermous	3295	ret
2513	mario79	3296	;-----------------------------------------------------------------------------
3303	clevermous	3297
		3298	; this is for syscall
		3299	proc delay_hs_unprotected
		3300	call unprotect_from_terminate
		3301	call delay_hs
		3302	call protect_from_terminate
		3303	ret
		3304	endp
		3305
3597	Serge	3306	if 1
2513	mario79	3307	align 4
2288	clevermous	3308	delay_hs: ; delay in 1/100 secs
		3309	; ebx = delay time
3595	Serge	3310	pushad
		3311	push ebx
		3312	xor esi, esi
		3313	mov ecx, MANUAL_DESTROY
		3314	call create_event
		3315	test eax, eax
		3316	jz .done
2288	clevermous	3317
3595	Serge	3318	mov ebx, edx
		3319	mov ecx, [esp]
3597	Serge	3320	push edx
3595	Serge	3321	push eax
		3322	call wait_event_timeout
		3323	pop eax
3597	Serge	3324	pop ebx
3595	Serge	3325	call destroy_event
		3326	.done:
		3327	add esp, 4
		3328	popad
2288	clevermous	3329	ret
3596	Serge	3330
		3331	else
		3332
		3333	align 4
		3334	delay_hs: ; delay in 1/100 secs
		3335	; ebx = delay time
		3336	push ecx
		3337	push edx
		3338
		3339	mov edx, [timer_ticks]
		3340	;--------------------------------------
		3341	align 4
9910	Doczom	3342	.newtic:
3596	Serge	3343	mov ecx, [timer_ticks]
		3344	sub ecx, edx
		3345	cmp ecx, ebx
9910	Doczom	3346	jae .zerodelay
3596	Serge	3347
		3348	call change_task
		3349
9910	Doczom	3350	jmp .newtic
3596	Serge	3351	;--------------------------------------
		3352	align 4
9910	Doczom	3353	.zerodelay:
3596	Serge	3354	pop edx
		3355	pop ecx
		3356	ret
		3357	end if
		3358
2513	mario79	3359	;-----------------------------------------------------------------------------
2288	clevermous	3360	align 16 ;very often call this subrutine
		3361	memmove: ; memory move in bytes
		3362	; eax = from
		3363	; ebx = to
		3364	; ecx = no of bytes
		3365	test ecx, ecx
		3366	jle .ret
		3367
		3368	push esi edi ecx
		3369
		3370	mov edi, ebx
		3371	mov esi, eax
		3372
		3373	test ecx, not 11b
		3374	jz @f
		3375
		3376	push ecx
		3377	shr ecx, 2
		3378	rep movsd
		3379	pop ecx
		3380	and ecx, 11b
		3381	jz .finish
2513	mario79	3382	;--------------------------------------
		3383	align 4
		3384	@@:
2288	clevermous	3385	rep movsb
2513	mario79	3386	;--------------------------------------
		3387	align 4
		3388	.finish:
2288	clevermous	3389	pop ecx edi esi
2513	mario79	3390	;--------------------------------------
		3391	align 4
		3392	.ret:
2288	clevermous	3393	ret
2513	mario79	3394	;-----------------------------------------------------------------------------
2288	clevermous	3395
9742	Doczom	3396	; in: eax = port
		3397	; ebp = subfunction
		3398	; 0 - set access
		3399	; 1 - clear access
		3400	; out: not return value
2288	clevermous	3401	align 4
		3402	set_io_access_rights:
		3403	push edi eax
		3404	mov edi, tss._io_map_0
9743	Doczom	3405
9742	Doczom	3406	test ebp, ebp ; enable access - ebp = 0
2288	clevermous	3407	jnz .siar1
9743	Doczom	3408
2288	clevermous	3409	btr [edi], eax
		3410	pop eax edi
		3411	ret
		3412	.siar1:
9742	Doczom	3413	bts [edi], eax ; disable access - ebp = 1
2288	clevermous	3414	pop eax edi
		3415	ret
9279	Doczom	3416
		3417	align 4
9743	Doczom	3418	; @brief ReservePortArea and FreePortArea
		3419	; @param edx number end arrea of ports (include last number of port)
		3420	; @param ecx number start arrea of ports
		3421	; @param ebx sub function 0 - reserve, 1 - free
		3422	; @param eax 46 - number function
		3423	; @returns eax = 0 - succesful eax = 1 - error
		3424	syscall_reserveportarea: ; ReservePortArea and FreePortArea
9279	Doczom	3425
		3426	call r_f_port_area
9831	dunkaist	3427	mov [esp + SYSCALL_STACK.eax], eax
9279	Doczom	3428	ret
		3429
2288	clevermous	3430	;reserve/free group of ports
		3431	; * eax = 46 - number function
		3432	; * ebx = 0 - reserve, 1 - free
		3433	; * ecx = number start arrea of ports
		3434	; * edx = number end arrea of ports (include last number of port)
		3435	;Return value:
		3436	; * eax = 0 - succesful
		3437	; * eax = 1 - error
		3438	; * The system has reserve this ports:
		3439	; 0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
		3440	;destroys eax,ebx, ebp
		3441	r_f_port_area:
		3442
		3443	test ebx, ebx
9910	Doczom	3444	jnz .free_port_area
2288	clevermous	3445
		3446	cmp ecx, edx ; beginning > end ?
9917	Doczom	3447	ja .err
9743	Doczom	3448	cmp edx, 65536 ;test ebx, not 0xffff
9917	Doczom	3449	jae .err
2288	clevermous	3450	mov eax, [RESERVED_PORTS]
		3451	test eax, eax ; no reserved areas ?
9910	Doczom	3452	je .rpal2
2288	clevermous	3453	cmp eax, 255 ; max reserved
9917	Doczom	3454	jae .err
9910	Doczom	3455	.rpal3:
2288	clevermous	3456	mov ebx, eax
9743	Doczom	3457	shl ebx, 4 ;16 byte is sizeof item in RESERVED_PORTS table
2288	clevermous	3458	add ebx, RESERVED_PORTS
		3459	cmp ecx, [ebx+8]
9910	Doczom	3460	ja .rpal4
2288	clevermous	3461	cmp edx, [ebx+4]
9917	Doczom	3462	jae .err
9910	Doczom	3463	.rpal4:
2288	clevermous	3464	dec eax
9910	Doczom	3465	jnz .rpal3
		3466	jmp .rpal2
9917	Doczom	3467	.err:
2288	clevermous	3468	xor eax, eax
		3469	inc eax
		3470	ret
9917	Doczom	3471
9910	Doczom	3472	.rpal2:
2288	clevermous	3473	; enable port access at port IO map
		3474	pushad ; start enable io map
		3475	mov eax, ecx
		3476	xor ebp, ebp ; enable - eax = port
9742	Doczom	3477	cli
9910	Doczom	3478	.new_port_access:
2288	clevermous	3479	call set_io_access_rights
9742	Doczom	3480
2288	clevermous	3481	inc eax
		3482	cmp eax, edx
9910	Doczom	3483	jbe .new_port_access
9917	Doczom	3484
9742	Doczom	3485	sti
2288	clevermous	3486	popad ; end enable io map
		3487
		3488	mov eax, [RESERVED_PORTS]
9742	Doczom	3489	inc eax
2288	clevermous	3490	mov [RESERVED_PORTS], eax
		3491	shl eax, 4
		3492	add eax, RESERVED_PORTS
9692	Doczom	3493	mov ebx, [current_slot]
9715	Doczom	3494	mov ebx, [ebx + APPDATA.tid]
9743	Doczom	3495	mov [eax], ebx ; tid
		3496	mov [eax+4], ecx ;start port
		3497	mov [eax+8], edx ;finish port
2288	clevermous	3498
		3499	xor eax, eax
		3500	ret
		3501
9910	Doczom	3502	.free_port_area:
2288	clevermous	3503
		3504	mov eax, [RESERVED_PORTS]; no reserved areas ?
		3505	test eax, eax
9910	Doczom	3506	jz .frpal2
9692	Doczom	3507	mov ebx, [current_slot]
9715	Doczom	3508	mov ebx, [ebx + APPDATA.tid]
9910	Doczom	3509	.frpal3:
2288	clevermous	3510	mov edi, eax
		3511	shl edi, 4
		3512	add edi, RESERVED_PORTS
		3513	cmp ebx, [edi]
9910	Doczom	3514	jne .frpal4
2288	clevermous	3515	cmp ecx, [edi+4]
9910	Doczom	3516	jne .frpal4
2288	clevermous	3517	cmp edx, [edi+8]
9910	Doczom	3518	jne .frpal4
		3519	jmp .frpal1
		3520	.frpal4:
2288	clevermous	3521	dec eax
9910	Doczom	3522	jnz .frpal3
		3523	.frpal2:
2288	clevermous	3524	inc eax
		3525	ret
9910	Doczom	3526	.frpal1:
2288	clevermous	3527	push ecx
		3528	mov ecx, 256
		3529	sub ecx, eax
		3530	shl ecx, 4
		3531	mov esi, edi
		3532	add esi, 16
		3533	cld
		3534	rep movsb
		3535
		3536	dec dword [RESERVED_PORTS]
		3537	;disable port access at port IO map
9742	Doczom	3538	; start disable io map
2288	clevermous	3539	pop eax ;start port
9742	Doczom	3540	;cmp edx, 65536
		3541	;jge no_mask_io
2288	clevermous	3542
		3543	xor ebp, ebp
		3544	inc ebp
9910	Doczom	3545	.new_port_access_disable: ; disable - eax = port
2288	clevermous	3546	call set_io_access_rights
9742	Doczom	3547
2288	clevermous	3548	inc eax
		3549	cmp eax, edx
9910	Doczom	3550	jbe .new_port_access_disable
9917	Doczom	3551	; end disable io map
2288	clevermous	3552	xor eax, eax
		3553	ret
2430	mario79	3554	;-----------------------------------------------------------------------------
2288	clevermous	3555	align 4
		3556	drawbackground:
		3557	cmp [BgrDrawMode], dword 1
9910	Doczom	3558	jne .bgrstr
2288	clevermous	3559	call vesa20_drawbackground_tiled
2453	mario79	3560	; call [draw_pointer]
		3561	call __sys_draw_pointer
2288	clevermous	3562	ret
2430	mario79	3563	;--------------------------------------
		3564	align 4
9910	Doczom	3565	.bgrstr:
2288	clevermous	3566	call vesa20_drawbackground_stretch
2453	mario79	3567	; call [draw_pointer]
		3568	call __sys_draw_pointer
2288	clevermous	3569	ret
2430	mario79	3570	;-----------------------------------------------------------------------------
2288	clevermous	3571	align 4
		3572	syscall_putimage: ; PutImage
8714	Doczom	3573	; add check pointer
		3574	push ecx
		3575	mov ax, cx
		3576	shr ecx, 16
		3577	imul eax, ecx
		3578	lea eax, [eax*3]
		3579	stdcall is_region_userspace, ebx, eax
		3580	pop ecx
9045	dunkaist	3581	jnz sys_putimage.exit
8714	Doczom	3582
2288	clevermous	3583	sys_putimage:
		3584	test ecx, 0x80008000
		3585	jnz .exit
		3586	test ecx, 0x0000FFFF
		3587	jz .exit
		3588	test ecx, 0xFFFF0000
		3589	jnz @f
2430	mario79	3590	;--------------------------------------
		3591	align 4
		3592	.exit:
2288	clevermous	3593	ret
2430	mario79	3594	;--------------------------------------
		3595	align 4
		3596	@@:
2288	clevermous	3597	mov edi, [current_slot]
9715	Doczom	3598	add dx, word[edi + APPDATA.wnd_clientbox.top]
2288	clevermous	3599	rol edx, 16
9715	Doczom	3600	add dx, word[edi + APPDATA.wnd_clientbox.left]
2288	clevermous	3601	rol edx, 16
2430	mario79	3602	;--------------------------------------
		3603	align 4
		3604	.forced:
2288	clevermous	3605	push ebp esi 0
		3606	mov ebp, putimage_get24bpp
		3607	mov esi, putimage_init24bpp
2430	mario79	3608	;--------------------------------------
		3609	align 4
2288	clevermous	3610	sys_putimage_bpp:
2430	mario79	3611	call vesa20_putimage
2288	clevermous	3612	pop ebp esi ebp
2430	mario79	3613	ret
		3614	; jmp [draw_pointer]
		3615	;-----------------------------------------------------------------------------
2288	clevermous	3616	align 4
		3617	sys_putimage_palette:
		3618	; ebx = pointer to image
		3619	; ecx = [xsize]*65536 + [ysize]
		3620	; edx = [xstart]*65536 + [ystart]
		3621	; esi = number of bits per pixel, must be 8, 24 or 32
		3622	; edi = pointer to palette
		3623	; ebp = row delta
8715	Doczom	3624	; check pointer
9910	Doczom	3625	push ecx esi
8715	Doczom	3626	mov ax, cx
		3627	shr ecx, 16
		3628	imul eax, ecx
9910	Doczom	3629	; imul eax, esi ; eax*count bit in 1 pixel
		3630	; shr eax, 3
8715	Doczom	3631	stdcall is_region_userspace, ebx, eax
9910	Doczom	3632	pop esi ecx
9045	dunkaist	3633	jnz sys_putimage.exit
8715	Doczom	3634
9828	Doczom	3635	mov eax, [current_slot]
		3636	add dx, word [eax + APPDATA.wnd_clientbox.top]
2288	clevermous	3637	rol edx, 16
9828	Doczom	3638	add dx, word [eax + APPDATA.wnd_clientbox.left]
2288	clevermous	3639	rol edx, 16
2430	mario79	3640	;--------------------------------------
		3641	align 4
2288	clevermous	3642	.forced:
		3643	cmp esi, 1
		3644	jnz @f
		3645	push edi
		3646	mov eax, [edi+4]
		3647	sub eax, [edi]
		3648	push eax
		3649	push dword [edi]
		3650	push 0ffffff80h
		3651	mov edi, esp
		3652	call put_mono_image
		3653	add esp, 12
		3654	pop edi
		3655	ret
2430	mario79	3656	;--------------------------------------
		3657	align 4
2288	clevermous	3658	@@:
		3659	cmp esi, 2
		3660	jnz @f
		3661	push edi
		3662	push 0ffffff80h
		3663	mov edi, esp
		3664	call put_2bit_image
		3665	pop eax
		3666	pop edi
		3667	ret
2430	mario79	3668	;--------------------------------------
		3669	align 4
2288	clevermous	3670	@@:
		3671	cmp esi, 4
		3672	jnz @f
		3673	push edi
		3674	push 0ffffff80h
		3675	mov edi, esp
		3676	call put_4bit_image
		3677	pop eax
		3678	pop edi
		3679	ret
2430	mario79	3680	;--------------------------------------
		3681	align 4
2288	clevermous	3682	@@:
		3683	push ebp esi ebp
		3684	cmp esi, 8
		3685	jnz @f
		3686	mov ebp, putimage_get8bpp
		3687	mov esi, putimage_init8bpp
		3688	jmp sys_putimage_bpp
2430	mario79	3689	;--------------------------------------
		3690	align 4
2288	clevermous	3691	@@:
2727	dunkaist	3692	cmp esi, 9
		3693	jnz @f
		3694	mov ebp, putimage_get9bpp
		3695	mov esi, putimage_init9bpp
		3696	jmp sys_putimage_bpp
		3697	;--------------------------------------
		3698	align 4
		3699	@@:
2288	clevermous	3700	cmp esi, 15
		3701	jnz @f
		3702	mov ebp, putimage_get15bpp
		3703	mov esi, putimage_init15bpp
		3704	jmp sys_putimage_bpp
2430	mario79	3705	;--------------------------------------
		3706	align 4
2288	clevermous	3707	@@:
		3708	cmp esi, 16
		3709	jnz @f
		3710	mov ebp, putimage_get16bpp
		3711	mov esi, putimage_init16bpp
		3712	jmp sys_putimage_bpp
2430	mario79	3713	;--------------------------------------
		3714	align 4
2288	clevermous	3715	@@:
		3716	cmp esi, 24
		3717	jnz @f
		3718	mov ebp, putimage_get24bpp
		3719	mov esi, putimage_init24bpp
		3720	jmp sys_putimage_bpp
2430	mario79	3721	;--------------------------------------
		3722	align 4
2288	clevermous	3723	@@:
		3724	cmp esi, 32
		3725	jnz @f
		3726	mov ebp, putimage_get32bpp
		3727	mov esi, putimage_init32bpp
		3728	jmp sys_putimage_bpp
2430	mario79	3729	;--------------------------------------
		3730	align 4
2288	clevermous	3731	@@:
		3732	pop ebp esi ebp
		3733	ret
2430	mario79	3734	;-----------------------------------------------------------------------------
		3735	align 4
2288	clevermous	3736	put_mono_image:
		3737	push ebp esi ebp
		3738	mov ebp, putimage_get1bpp
		3739	mov esi, putimage_init1bpp
		3740	jmp sys_putimage_bpp
2430	mario79	3741	;-----------------------------------------------------------------------------
		3742	align 4
2288	clevermous	3743	put_2bit_image:
		3744	push ebp esi ebp
		3745	mov ebp, putimage_get2bpp
		3746	mov esi, putimage_init2bpp
		3747	jmp sys_putimage_bpp
2430	mario79	3748	;-----------------------------------------------------------------------------
		3749	align 4
2288	clevermous	3750	put_4bit_image:
		3751	push ebp esi ebp
		3752	mov ebp, putimage_get4bpp
		3753	mov esi, putimage_init4bpp
		3754	jmp sys_putimage_bpp
2430	mario79	3755	;-----------------------------------------------------------------------------
		3756	align 4
2288	clevermous	3757	putimage_init24bpp:
		3758	lea eax, [eax*3]
		3759	putimage_init8bpp:
2727	dunkaist	3760	putimage_init9bpp:
2288	clevermous	3761	ret
2430	mario79	3762	;-----------------------------------------------------------------------------
2288	clevermous	3763	align 16
		3764	putimage_get24bpp:
		3765	movzx eax, byte [esi+2]
		3766	shl eax, 16
		3767	mov ax, [esi]
		3768	add esi, 3
		3769	ret 4
2430	mario79	3770	;-----------------------------------------------------------------------------
2288	clevermous	3771	align 16
		3772	putimage_get8bpp:
		3773	movzx eax, byte [esi]
		3774	push edx
		3775	mov edx, [esp+8]
9715	Doczom	3776	mov eax, [edx + eax*4]
2288	clevermous	3777	pop edx
		3778	inc esi
		3779	ret 4
2430	mario79	3780	;-----------------------------------------------------------------------------
2727	dunkaist	3781	align 16
		3782	putimage_get9bpp:
		3783	lodsb
		3784	mov ah, al
		3785	shl eax, 8
		3786	mov al, ah
		3787	ret 4
		3788	;-----------------------------------------------------------------------------
2430	mario79	3789	align 4
2288	clevermous	3790	putimage_init1bpp:
		3791	add eax, ecx
		3792	push ecx
		3793	add eax, 7
		3794	add ecx, 7
		3795	shr eax, 3
		3796	shr ecx, 3
		3797	sub eax, ecx
		3798	pop ecx
		3799	ret
2430	mario79	3800	;-----------------------------------------------------------------------------
2288	clevermous	3801	align 16
		3802	putimage_get1bpp:
		3803	push edx
		3804	mov edx, [esp+8]
		3805	mov al, [edx]
		3806	add al, al
		3807	jnz @f
		3808	lodsb
		3809	adc al, al
		3810	@@:
		3811	mov [edx], al
		3812	sbb eax, eax
		3813	and eax, [edx+8]
		3814	add eax, [edx+4]
		3815	pop edx
		3816	ret 4
2430	mario79	3817	;-----------------------------------------------------------------------------
		3818	align 4
2288	clevermous	3819	putimage_init2bpp:
		3820	add eax, ecx
		3821	push ecx
		3822	add ecx, 3
		3823	add eax, 3
		3824	shr ecx, 2
		3825	shr eax, 2
		3826	sub eax, ecx
		3827	pop ecx
		3828	ret
2430	mario79	3829	;-----------------------------------------------------------------------------
2288	clevermous	3830	align 16
		3831	putimage_get2bpp:
		3832	push edx
		3833	mov edx, [esp+8]
		3834	mov al, [edx]
		3835	mov ah, al
		3836	shr al, 6
		3837	shl ah, 2
		3838	jnz .nonewbyte
		3839	lodsb
		3840	mov ah, al
		3841	shr al, 6
		3842	shl ah, 2
		3843	add ah, 1
		3844	.nonewbyte:
		3845	mov [edx], ah
		3846	mov edx, [edx+4]
		3847	movzx eax, al
9715	Doczom	3848	mov eax, [edx + eax*4]
2288	clevermous	3849	pop edx
		3850	ret 4
2430	mario79	3851	;-----------------------------------------------------------------------------
		3852	align 4
2288	clevermous	3853	putimage_init4bpp:
		3854	add eax, ecx
		3855	push ecx
		3856	add ecx, 1
9268	Doczom	3857	inc eax ;add eax, 1
2288	clevermous	3858	shr ecx, 1
		3859	shr eax, 1
		3860	sub eax, ecx
		3861	pop ecx
		3862	ret
2430	mario79	3863	;-----------------------------------------------------------------------------
2288	clevermous	3864	align 16
		3865	putimage_get4bpp:
		3866	push edx
		3867	mov edx, [esp+8]
		3868	add byte [edx], 80h
		3869	jc @f
		3870	movzx eax, byte [edx+1]
		3871	mov edx, [edx+4]
		3872	and eax, 0x0F
9715	Doczom	3873	mov eax, [edx + eax*4]
2288	clevermous	3874	pop edx
		3875	ret 4
		3876	@@:
		3877	movzx eax, byte [esi]
		3878	add esi, 1
		3879	mov [edx+1], al
		3880	shr eax, 4
		3881	mov edx, [edx+4]
9715	Doczom	3882	mov eax, [edx + eax*4]
2288	clevermous	3883	pop edx
		3884	ret 4
2430	mario79	3885	;-----------------------------------------------------------------------------
		3886	align 4
2288	clevermous	3887	putimage_init32bpp:
		3888	shl eax, 2
		3889	ret
2430	mario79	3890	;-----------------------------------------------------------------------------
2288	clevermous	3891	align 16
		3892	putimage_get32bpp:
		3893	lodsd
		3894	ret 4
2430	mario79	3895	;-----------------------------------------------------------------------------
		3896	align 4
2288	clevermous	3897	putimage_init15bpp:
		3898	putimage_init16bpp:
		3899	add eax, eax
		3900	ret
2430	mario79	3901	;-----------------------------------------------------------------------------
2288	clevermous	3902	align 16
		3903	putimage_get15bpp:
		3904	; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
		3905	push ecx edx
		3906	movzx eax, word [esi]
		3907	add esi, 2
		3908	mov ecx, eax
		3909	mov edx, eax
		3910	and eax, 0x1F
		3911	and ecx, 0x1F shl 5
		3912	and edx, 0x1F shl 10
		3913	shl eax, 3
		3914	shl ecx, 6
		3915	shl edx, 9
		3916	or eax, ecx
		3917	or eax, edx
		3918	pop edx ecx
		3919	ret 4
2430	mario79	3920	;-----------------------------------------------------------------------------
2288	clevermous	3921	align 16
		3922	putimage_get16bpp:
		3923	; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
		3924	push ecx edx
		3925	movzx eax, word [esi]
		3926	add esi, 2
		3927	mov ecx, eax
		3928	mov edx, eax
		3929	and eax, 0x1F
		3930	and ecx, 0x3F shl 5
		3931	and edx, 0x1F shl 11
		3932	shl eax, 3
		3933	shl ecx, 5
		3934	shl edx, 8
		3935	or eax, ecx
		3936	or eax, edx
		3937	pop edx ecx
		3938	ret 4
2430	mario79	3939	;-----------------------------------------------------------------------------
		3940	;align 4
2288	clevermous	3941	; eax x beginning
		3942	; ebx y beginning
		3943	; ecx x end
		3944	; edx y end
		3945	; edi color
2430	mario79	3946	;__sys_drawbar:
		3947	; mov esi, [current_slot]
		3948	; add eax, [esi+APPDATA.wnd_clientbox.left]
		3949	; add ecx, [esi+APPDATA.wnd_clientbox.left]
		3950	; add ebx, [esi+APPDATA.wnd_clientbox.top]
		3951	; add edx, [esi+APPDATA.wnd_clientbox.top]
		3952	;--------------------------------------
		3953	;align 4
		3954	;.forced:
		3955	; call vesa20_drawbar
2407	mario79	3956	; call [draw_pointer]
		3957	; ret
2430	mario79	3958	;-----------------------------------------------------------------------------
2288	clevermous	3959	if used _rdtsc
		3960	_rdtsc:
		3961	bt [cpu_caps], CAPS_TSC
9910	Doczom	3962	jnc .ret_rdtsc
2288	clevermous	3963	rdtsc
		3964	ret
9910	Doczom	3965	.ret_rdtsc:
2288	clevermous	3966	mov edx, 0xffffffff
		3967	mov eax, 0xffffffff
		3968	ret
		3969	end if
		3970
		3971	sys_msg_board_str:
		3972
		3973	pushad
		3974	@@:
		3975	cmp [esi], byte 0
		3976	je @f
3614	shikhin	3977	mov ebx, 1
		3978	movzx ecx, byte [esi]
2288	clevermous	3979	call sys_msg_board
		3980	inc esi
		3981	jmp @b
		3982	@@:
		3983	popad
		3984	ret
		3985
		3986	sys_msg_board_byte:
		3987	; in: al = byte to display
		3988	; out: nothing
		3989	; destroys: nothing
		3990	pushad
		3991	mov ecx, 2
		3992	shl eax, 24
		3993	jmp @f
		3994
		3995	sys_msg_board_word:
		3996	; in: ax = word to display
		3997	; out: nothing
		3998	; destroys: nothing
		3999	pushad
		4000	mov ecx, 4
		4001	shl eax, 16
		4002	jmp @f
		4003
		4004	sys_msg_board_dword:
		4005	; in: eax = dword to display
		4006	; out: nothing
		4007	; destroys: nothing
		4008	pushad
		4009	mov ecx, 8
		4010	@@:
		4011	push ecx
		4012	rol eax, 4
		4013	push eax
		4014	and al, 0xF
		4015	cmp al, 10
		4016	sbb al, 69h
		4017	das
3614	shikhin	4018	mov cl, al
		4019	xor ebx, ebx
		4020	inc ebx
2288	clevermous	4021	call sys_msg_board
		4022	pop eax
		4023	pop ecx
		4024	loop @b
		4025	popad
		4026	ret
		4027
3392	clevermous	4028	msg_board_data_size = 65536 ; Must be power of two
		4029
2288	clevermous	4030	uglobal
6501	pathoswith	4031	msg_board_data rb msg_board_data_size
		4032	msg_board_count dd ?
2288	clevermous	4033	endg
		4034
6501	pathoswith	4035	iglobal
		4036	msg_board_pos dd 42665536+10 ; for printing debug output on the screen
		4037	endg
		4038
2288	clevermous	4039	sys_msg_board:
6501	pathoswith	4040	; ebx=1 -> write, cl = byte to write
		4041	; ebx=2 -> read, ecx=0 -> no data, ecx=1 -> data in al
		4042	push eax ebx
3614	shikhin	4043	mov eax, ebx
		4044	mov ebx, ecx
2288	clevermous	4045	mov ecx, [msg_board_count]
		4046	cmp eax, 1
6501	pathoswith	4047	jne .read
2288	clevermous	4048
		4049	if defined debug_com_base
		4050	push dx ax
6501	pathoswith	4051	@@: ; wait for empty transmit register
2288	clevermous	4052	mov dx, debug_com_base+5
		4053	in al, dx
		4054	test al, 1 shl 5
		4055	jz @r
		4056	mov dx, debug_com_base ; Output the byte
		4057	mov al, bl
		4058	out dx, al
		4059	pop ax dx
		4060	end if
		4061
		4062	mov [msg_board_data+ecx], bl
3777	yogev_ezra	4063	cmp byte [debug_direct_print], 1
6501	pathoswith	4064	jnz .end
3507	clevermous	4065	pusha
		4066	lea edx, [msg_board_data+ecx]
		4067	mov ecx, 0x40FFFFFF
		4068	mov ebx, [msg_board_pos]
		4069	mov edi, 1
9268	Doczom	4070	mov esi, edi ;1
3507	clevermous	4071	call dtext
		4072	popa
		4073	add word [msg_board_pos+2], 6
6501	pathoswith	4074	cmp word [msg_board_pos+2], 105*6
		4075	jnc @f
3507	clevermous	4076	cmp bl, 10
6501	pathoswith	4077	jnz .end
		4078	@@:
		4079	mov word [msg_board_pos+2], 42*6
3507	clevermous	4080	add word [msg_board_pos], 10
6501	pathoswith	4081	mov eax, [_display.height]
		4082	sub eax, 10
		4083	cmp ax, word [msg_board_pos]
		4084	jnc @f
3507	clevermous	4085	mov word [msg_board_pos], 10
		4086	@@:
3534	clevermous	4087	pusha
6501	pathoswith	4088	mov eax, [msg_board_pos]
		4089	movzx ebx, ax
		4090	shr eax, 16
		4091	mov edx, 105*6
		4092	xor ecx, ecx
		4093	mov edi, 1
		4094	mov esi, 9
		4095	@@:
		4096	call hline
		4097	inc ebx
		4098	dec esi
		4099	jnz @b
3534	clevermous	4100	popa
6501	pathoswith	4101	.end:
2288	clevermous	4102	inc ecx
3392	clevermous	4103	and ecx, msg_board_data_size - 1
2288	clevermous	4104	mov [msg_board_count], ecx
6501	pathoswith	4105	.ret:
3614	shikhin	4106	pop ebx eax
2288	clevermous	4107	ret
6501	pathoswith	4108
		4109	.read:
2288	clevermous	4110	cmp eax, 2
6501	pathoswith	4111	jne .ret
9897	dunkaist	4112	add esp, 8 ; returning data in ebx and eax, so no need to restore them
2288	clevermous	4113	test ecx, ecx
9897	dunkaist	4114	jnz @f
		4115	mov [esp + SYSCALL_STACK.eax], ecx
		4116	mov [esp + SYSCALL_STACK.ebx], ecx
		4117	ret
		4118	@@:
2288	clevermous	4119	mov eax, msg_board_data+1
		4120	mov ebx, msg_board_data
		4121	movzx edx, byte [ebx]
		4122	call memmove
		4123	dec [msg_board_count]
9897	dunkaist	4124	mov [esp + SYSCALL_STACK.eax], edx
		4125	mov [esp + SYSCALL_STACK.ebx], 1
2288	clevermous	4126	ret
		4127
		4128	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4129	;; 61 sys function. ;;
		4130	;; in eax=61,ebx in [1..3] ;;
		4131	;; out eax ;;
		4132	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4133	iglobal
		4134	align 4
		4135	f61call:
		4136	dd sys_gs.1 ; resolution
		4137	dd sys_gs.2 ; bits per pixel
		4138	dd sys_gs.3 ; bytes per scanline
		4139	endg
		4140
		4141
		4142	align 4
		4143
		4144	sys_gs: ; direct screen access
		4145	dec ebx
		4146	cmp ebx, 2
		4147	ja .not_support
9715	Doczom	4148	jmp dword [f61call + ebx*4]
2288	clevermous	4149	.not_support:
9831	dunkaist	4150	or [esp + SYSCALL_STACK.eax], dword -1
2288	clevermous	4151	ret
		4152
		4153
		4154	.1: ; resolution
5350	serge	4155	mov eax, [_display.width]
2288	clevermous	4156	shl eax, 16
5350	serge	4157	mov ax, word [_display.height]
9831	dunkaist	4158	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	4159	ret
		4160	.2: ; bits per pixel
5154	hidnplayr	4161	mov eax, [_display.bits_per_pixel]
9831	dunkaist	4162	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	4163	ret
		4164	.3: ; bytes per scanline
5351	serge	4165	mov eax, [_display.lfb_pitch]
9831	dunkaist	4166	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	4167	ret
		4168
		4169	align 4
		4170	syscall_getscreensize: ; GetScreenSize
5350	serge	4171	mov ax, word [_display.width]
		4172	dec ax
2288	clevermous	4173	shl eax, 16
5350	serge	4174	mov ax, word [_display.height]
		4175	dec ax
9831	dunkaist	4176	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	4177	ret
4700	mario79	4178	;-----------------------------------------------------------------------------
2288	clevermous	4179	align 4
4713	mario79	4180	syscall_cdaudio:
4711	mario79	4181	; ECX - position of CD/DVD-drive
		4182	; from 0=Primary Master to 3=Secondary Slave for first IDE contr.
		4183	; from 4=Primary Master to 7=Secondary Slave for second IDE contr.
		4184	; from 8=Primary Master to 11=Secondary Slave for third IDE contr.
		4185	cmp ecx, 11
		4186	ja .exit
		4187
		4188	mov eax, ecx
		4189	shr eax, 2
		4190	lea eax, [eax*5]
9715	Doczom	4191	mov al, [eax + DRIVE_DATA + 1]
4711	mario79	4192
		4193	push ecx ebx
		4194	mov ebx, ecx
		4195	and ebx, 11b
		4196	shl ebx, 1
		4197	mov cl, 6
		4198	sub cl, bl
		4199	shr al, cl
		4200	test al, 2 ; it's not an ATAPI device
		4201	pop ebx ecx
		4202
		4203	jz .exit
		4204
4700	mario79	4205	cmp ebx, 4
		4206	je .eject
2288	clevermous	4207
		4208	cmp ebx, 5
4700	mario79	4209	je .load
4711	mario79	4210	;--------------------------------------
		4211	.exit:
4700	mario79	4212	ret
		4213	;--------------------------------------
2288	clevermous	4214	.load:
		4215	call .reserve
		4216	call LoadMedium
		4217	jmp .free
4700	mario79	4218	;--------------------------------------
2288	clevermous	4219	.eject:
		4220	call .reserve
		4221	call clear_CD_cache
		4222	call allow_medium_removal
		4223	call EjectMedium
		4224	jmp .free
4700	mario79	4225	;--------------------------------------
2288	clevermous	4226	.reserve:
		4227	call reserve_cd
4700	mario79	4228
		4229	mov ebx, ecx
		4230	inc ebx
		4231	mov [cdpos], ebx
		4232
2288	clevermous	4233	mov eax, ecx
		4234	shr eax, 1
		4235	and eax, 1
		4236	inc eax
6464	pathoswith	4237	mov [ChannelNumber], al
2288	clevermous	4238	mov eax, ecx
		4239	and eax, 1
		4240	mov [DiskNumber], al
		4241	call reserve_cd_channel
		4242	ret
4700	mario79	4243	;--------------------------------------
2288	clevermous	4244	.free:
		4245	call free_cd_channel
		4246	and [cd_status], 0
		4247	ret
2511	mario79	4248	;-----------------------------------------------------------------------------
2288	clevermous	4249	align 4
2511	mario79	4250	syscall_getpixel_WinMap: ; GetPixel WinMap
5350	serge	4251	cmp ebx, [_display.width]
		4252	jb @f
		4253	cmp ecx, [_display.height]
		4254	jb @f
2511	mario79	4255	xor eax, eax
		4256	jmp .store
		4257	;--------------------------------------
		4258	align 4
		4259	@@:
		4260	mov eax, [d_width_calc_area + ecx*4]
5351	serge	4261	add eax, [_display.win_map]
2511	mario79	4262	movzx eax, byte[eax+ebx] ; get value for current point
		4263	;--------------------------------------
		4264	align 4
		4265	.store:
9831	dunkaist	4266	mov [esp + SYSCALL_STACK.eax], eax
2511	mario79	4267	ret
		4268	;-----------------------------------------------------------------------------
		4269	align 4
2288	clevermous	4270	syscall_getpixel: ; GetPixel
5350	serge	4271	mov ecx, [_display.width]
2288	clevermous	4272	xor edx, edx
		4273	mov eax, ebx
		4274	div ecx
		4275	mov ebx, edx
		4276	xchg eax, ebx
2430	mario79	4277	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	4278	call dword [GETPIXEL]; eax - x, ebx - y
9831	dunkaist	4279	mov [esp + SYSCALL_STACK.eax], ecx
2288	clevermous	4280	ret
2509	mario79	4281	;-----------------------------------------------------------------------------
2288	clevermous	4282	align 4
		4283	syscall_getarea:
		4284	;eax = 36
		4285	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		4286	;ecx = [size x]*65536 + [size y]
		4287	;edx = [start x]*65536 + [start y]
		4288	pushad
		4289	mov edi, ebx
		4290	mov eax, edx
		4291	shr eax, 16
		4292	mov ebx, edx
		4293	and ebx, 0xffff
		4294	dec eax
		4295	dec ebx
		4296	; eax - x, ebx - y
		4297	mov edx, ecx
		4298
		4299	shr ecx, 16
		4300	and edx, 0xffff
		4301	mov esi, ecx
		4302	; ecx - size x, edx - size y
		4303
		4304	mov ebp, edx
8598	rgimad	4305	lea ebp, [ebp*3]
		4306	imul ebp, esi
		4307	stdcall is_region_userspace, edi, ebp
9045	dunkaist	4308	jnz .exit
8598	rgimad	4309
		4310	mov ebp, edx
2288	clevermous	4311	dec ebp
		4312	lea ebp, [ebp*3]
		4313
		4314	imul ebp, esi
		4315
		4316	mov esi, ecx
		4317	dec esi
		4318	lea esi, [esi*3]
		4319
		4320	add ebp, esi
		4321	add ebp, edi
		4322
		4323	add ebx, edx
2509	mario79	4324	;--------------------------------------
		4325	align 4
2288	clevermous	4326	.start_y:
		4327	push ecx edx
2509	mario79	4328	;--------------------------------------
		4329	align 4
2288	clevermous	4330	.start_x:
		4331	push eax ebx ecx
		4332	add eax, ecx
		4333
2430	mario79	4334	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	4335	call dword [GETPIXEL]; eax - x, ebx - y
		4336
		4337	mov [ebp], cx
		4338	shr ecx, 16
		4339	mov [ebp+2], cl
		4340
		4341	pop ecx ebx eax
		4342	sub ebp, 3
		4343	dec ecx
		4344	jnz .start_x
		4345	pop edx ecx
		4346	dec ebx
		4347	dec edx
		4348	jnz .start_y
8598	rgimad	4349
		4350	.exit:
2288	clevermous	4351	popad
		4352	ret
2509	mario79	4353	;-----------------------------------------------------------------------------
8675	rgimad	4354
2288	clevermous	4355	align 4
		4356	syscall_threads: ; CreateThreads
		4357	;
4105	Serge	4358	; ecx=thread entry point
		4359	; edx=thread stack pointer
2288	clevermous	4360	;
		4361	; on return : eax = pid
4105	Serge	4362	xor ebx, ebx
2288	clevermous	4363	call new_sys_threads
		4364
9831	dunkaist	4365	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	4366	ret
		4367
2438	mario79	4368	;------------------------------------------------------------------------------
2288	clevermous	4369	align 4
2438	mario79	4370	calculate_fast_getting_offset_for_WinMapAddress:
		4371	; calculate data area for fast getting offset to _WinMapAddress
2446	mario79	4372	xor eax, eax
2438	mario79	4373	mov ecx, [_display.height]
		4374	mov edi, d_width_calc_area
		4375	cld
		4376	@@:
		4377	stosd
		4378	add eax, [_display.width]
		4379	dec ecx
		4380	jnz @r
		4381	ret
		4382	;------------------------------------------------------------------------------
		4383	align 4
2480	mario79	4384	calculate_fast_getting_offset_for_LFB:
		4385	; calculate data area for fast getting offset to LFB
		4386	xor eax, eax
		4387	mov ecx, [_display.height]
		4388	mov edi, BPSLine_calc_area
		4389	cld
		4390	@@:
		4391	stosd
5351	serge	4392	add eax, [_display.lfb_pitch]
2480	mario79	4393	dec ecx
		4394	jnz @r
		4395	ret
		4396	;------------------------------------------------------------------------------
		4397	align 4
2288	clevermous	4398	set_screen:
2654	mario79	4399	; in:
		4400	; eax - new Screen_Max_X
		4401	; ecx - new BytesPerScanLine
		4402	; edx - new Screen_Max_Y
2288	clevermous	4403
		4404	pushfd
		4405	cli
		4406
5351	serge	4407	mov [_display.lfb_pitch], ecx
2288	clevermous	4408
		4409	mov [screen_workarea.right], eax
		4410	mov [screen_workarea.bottom], edx
		4411
		4412	push ebx
		4413	push esi
		4414	push edi
		4415
		4416	pushad
		4417
2654	mario79	4418	cmp [do_not_touch_winmap], 1
		4419	je @f
		4420
5351	serge	4421	stdcall kernel_free, [_display.win_map]
2288	clevermous	4422
		4423	mov eax, [_display.width]
		4424	mul [_display.height]
5351	serge	4425	mov [_display.win_map_size], eax
2288	clevermous	4426
		4427	stdcall kernel_alloc, eax
5351	serge	4428	mov [_display.win_map], eax
2288	clevermous	4429	test eax, eax
		4430	jz .epic_fail
2654	mario79	4431	; store for f.18.24
		4432	mov eax, [_display.width]
		4433	mov [display_width_standard], eax
2288	clevermous	4434
2654	mario79	4435	mov eax, [_display.height]
		4436	mov [display_height_standard], eax
		4437	@@:
2438	mario79	4438	call calculate_fast_getting_offset_for_WinMapAddress
2545	mario79	4439	; for Qemu or non standart video cards
2991	Serge	4440	; Unfortunately [BytesPerScanLine] does not always
2545	mario79	4441	; equal to [_display.width] * [ScreenBPP] / 8
		4442	call calculate_fast_getting_offset_for_LFB
2288	clevermous	4443	popad
		4444
		4445	call repos_windows
		4446	xor eax, eax
		4447	xor ebx, ebx
5350	serge	4448	mov ecx, [_display.width]
		4449	mov edx, [_display.height]
		4450	dec ecx
		4451	dec edx
2288	clevermous	4452	call calculatescreen
		4453	pop edi
		4454	pop esi
		4455	pop ebx
		4456
		4457	popfd
		4458	ret
		4459
		4460	.epic_fail:
		4461	hlt ; Houston, we've had a problem
		4462
		4463	; --------------- APM ---------------------
		4464	uglobal
		4465	apm_entry dp 0
		4466	apm_vf dd 0
		4467	endg
		4468
		4469	align 4
		4470	sys_apm:
		4471	xor eax, eax
		4472	cmp word [apm_vf], ax ; Check APM BIOS enable
		4473	jne @f
		4474	inc eax
		4475	or dword [esp + 44], eax ; error
		4476	add eax, 7
9911	Doczom	4477	mov dword [esp + SYSCALL_STACK.eax], eax ; 32-bit protected-mode interface not supported
2288	clevermous	4478	ret
		4479
		4480	@@:
		4481	; xchg eax, ecx
		4482	; xchg ebx, ecx
		4483
		4484	cmp dx, 3
		4485	ja @f
		4486	and [esp + 44], byte 0xfe ; emulate func 0..3 as func 0
		4487	mov eax, [apm_vf]
9911	Doczom	4488	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	4489	shr eax, 16
9911	Doczom	4490	mov [esp + SYSCALL_STACK.ecx], eax
2288	clevermous	4491	ret
		4492
		4493	@@:
		4494
		4495	mov esi, [master_tab+(OS_BASE shr 20)]
		4496	xchg [master_tab], esi
		4497	push esi
		4498	mov edi, cr3
		4499	mov cr3, edi ;flush TLB
		4500
		4501	call pword [apm_entry] ;call APM BIOS
		4502
		4503	xchg eax, [esp]
		4504	mov [master_tab], eax
		4505	mov eax, cr3
		4506	mov cr3, eax
		4507	pop eax
		4508
9911	Doczom	4509	mov [esp + SYSCALL_STACK.edi], edi
		4510	mov [esp + SYSCALL_STACK.esi], esi
		4511	mov [esp + SYSCALL_STACK.ebx], ebx
		4512	mov [esp + SYSCALL_STACK.edx], edx
		4513	mov [esp + SYSCALL_STACK.ecx], ecx
		4514	mov [esp + SYSCALL_STACK.eax], eax
2288	clevermous	4515	setc al
		4516	and [esp + 44], byte 0xfe
		4517	or [esp + 44], al
		4518	ret
		4519	; -----------------------------------------
		4520
		4521	align 4
		4522	undefined_syscall: ; Undefined system call
9831	dunkaist	4523	mov [esp + SYSCALL_STACK.eax], dword -1
2288	clevermous	4524	ret
		4525
8160	rgimad	4526	align 4
8962	Boppan	4527	; @brief Check if given memory region lays in lower 2gb (userspace memory) or not
		4528	; @param base Base address of region
		4529	; @param len Lenght of region
		4530	; @return ZF = 1 if region in userspace memory,
		4531	; ZF = 0 otherwise
8329	rgimad	4532	proc is_region_userspace stdcall, base:dword, len:dword
9045	dunkaist	4533	push eax
8329	rgimad	4534	mov eax, [base]
8216	rgimad	4535
9045	dunkaist	4536	cmp eax, OS_BASE-1
		4537	ja @f ; zf
8216	rgimad	4538
8329	rgimad	4539	add eax, [len]
9045	dunkaist	4540	jc @f ; zf
8160	rgimad	4541	cmp eax, OS_BASE
9045	dunkaist	4542	ja @f ; zf
2288	clevermous	4543
9045	dunkaist	4544	cmp eax, eax ; ZF
8160	rgimad	4545	@@:
9045	dunkaist	4546	pop eax
8160	rgimad	4547	ret
8329	rgimad	4548	endp
8160	rgimad	4549
9823	dunkaist	4550	align 4
		4551	; @brief Check whether given string lays in userspace memory, i.e. below OS_BASE
		4552	; @param base Base address of string
		4553	; @return ZF = 1 if string in userspace memory,
		4554	; zf = 0 otherwise
		4555	proc is_string_userspace stdcall, base:dword
		4556	push eax ecx edi
		4557	xor eax, eax
		4558	mov edi, [base]
		4559
		4560	mov ecx, OS_BASE-1
		4561	sub ecx, edi
		4562	jb .done ; zf
		4563	inc ecx
		4564	cmp ecx, 0x10000 ; don't allow strings larger than 64k?
		4565	jbe @f
		4566	mov ecx, 0x10000
		4567	@@:
		4568	repnz scasb
		4569	.done:
		4570	pop edi ecx eax
		4571	ret
		4572	endp
		4573
3627	Serge	4574	if ~ lang eq sp
		4575	diff16 "end of .text segment",0,$
		4576	end if
		4577
2288	clevermous	4578	include "data32.inc"
		4579
		4580	__REV__ = __REV
		4581
3341	yogev_ezra	4582	if ~ lang eq sp
2288	clevermous	4583	diff16 "end of kernel code",0,$
3287	esevece	4584	end if

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm @ 5851 – Rev 9925