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

Rev	Author	Line No.	Line
2288	clevermous	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;;
8858	rgimad	3	;; Copyright (C) KolibriOS team 2004-2021. 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: 9591 $
		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
		198	mov ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4
		199	cld
		200	rep stosd
		201
		202	; CLEAR KERNEL UNDEFINED GLOBALS
		203	mov edi, endofcode-OS_BASE
		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
		219	bts [cpu_caps-OS_BASE], CAPS_TSC ;force use rdtsc
		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
5130	serge	230	mov eax, sys_proc-OS_BASE+PROC.pdt_0
2288	clevermous	231	mov cr3, eax
		232
		233	mov eax, cr0
		234	or eax, CR0_PG+CR0_WP
		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
		246	lgdt [cs:gdts_ap-ap_init16]
		247	mov eax, [cs:cr3_ap-ap_init16]
		248	mov cr3, eax
		249	mov eax, [cs:cr4_ap-ap_init16]
		250	mov cr4, eax
		251	mov eax, CR0_PE+CR0_PG+CR0_WP
		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
		286	mov ebx, 0xFFFFF000+PG_SHARED+PG_NOCACHE+PG_UWR
		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
5359	serge	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
5130	serge	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
		459	lea esp, [eax+RING0_STACK_SIZE]
		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
		518	stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE+(unpack.LZMA_LIT_SIZE shl \
		519	(unpack.lc+unpack.lp)))*4
		520
		521	mov [unpack.p], eax
		522
		523	call init_events
2384	hidnplayr	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
		567	stdcall map_io_mem, [hpet_base], 1024, PG_GLOBAL+PAT_UC+PG_SWR
		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
6263	serge	578	mov edi, sys_proc+PROC.heap_lock
5595	serge	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
		596	mov [sys_proc+PROC.pdt_0_phys], sys_proc-OS_BASE+PROC.pdt_0
		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
8093	dunkaist	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'
		617	sub [edx+APPDATA.saved_esp], 4
		618	mov eax, [edx+APPDATA.saved_esp]
		619	mov dword [eax], idle_thread
		620	mov ecx, IDLE_PRIORITY
		621	call scheduler_add_thread
3296	clevermous	622
8093	dunkaist	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
8869	rgimad	633	mov dword [TASK_BASE], TASK_TABLE + sizeof.TASKDATA*2
3296	clevermous	634
5033	clevermous	635	; Move other CPUs to deep sleep, if it is useful
		636	uglobal
		637	use_mwait_for_idle db 0
		638	endg
		639	cmp [cpu_vendor+8], 'ntel'
		640	jnz .no_wake_cpus
		641	bt [cpu_caps+4], CAPS_MONITOR-32
		642	jnc .no_wake_cpus
		643	dbgstr 'using mwait for idle loop'
		644	inc [use_mwait_for_idle]
		645	mov ebx, [cpu_count]
		646	cmp ebx, 1
		647	jbe .no_wake_cpus
		648	call create_trampoline_pgmap
		649	mov [cr3_ap+OS_BASE], eax
		650	mov eax, cr4
		651	mov [cr4_ap+OS_BASE], eax
		652	mov esi, OS_BASE + ap_init16
		653	mov edi, OS_BASE + 8000h
		654	mov ecx, (ap_init16_size + 3) / 4
		655	rep movsd
8119	dunkaist	656	mov eax, [LAPIC_BASE]
		657	test eax, eax
		658	jnz @f
5359	serge	659	stdcall map_io_mem, [acpi_lapic_base], 0x1000, PG_GLOBAL+PG_NOCACHE+PG_SWR
5033	clevermous	660	mov [LAPIC_BASE], eax
8119	dunkaist	661	@@:
		662	lea edi, [eax+APIC_ICRL]
5033	clevermous	663	mov esi, smpt+4
		664	dec ebx
		665	.wake_cpus_loop:
		666	lodsd
5049	clevermous	667	push esi
		668	xor esi, esi
		669	inc esi
5033	clevermous	670	shl eax, 24
		671	mov [edi+10h], eax
		672	; assert INIT IPI
		673	mov dword [edi], 0C500h
5049	clevermous	674	call delay_ms
5033	clevermous	675	@@:
		676	test dword [edi], 1000h
		677	jnz @b
		678	; deassert INIT IPI
		679	mov dword [edi], 8500h
5049	clevermous	680	call delay_ms
5033	clevermous	681	@@:
		682	test dword [edi], 1000h
		683	jnz @b
		684	; send STARTUP IPI
		685	mov dword [edi], 600h + (8000h shr 12)
5049	clevermous	686	call delay_ms
5033	clevermous	687	@@:
		688	test dword [edi], 1000h
		689	jnz @b
5049	clevermous	690	pop esi
5033	clevermous	691	dec ebx
		692	jnz .wake_cpus_loop
		693	mov eax, [cpu_count]
		694	dec eax
		695	@@:
		696	cmp [ap_initialized], eax
		697	jnz @b
		698	mov eax, [cr3_ap+OS_BASE]
		699	call free_page
		700	.no_wake_cpus:
2288	clevermous	701
		702	; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
2642	mario79	703	mov esi, boot_initirq
		704	call boot_log
		705	call init_irqs
2288	clevermous	706
2642	mario79	707	mov esi, boot_picinit
		708	call boot_log
2288	clevermous	709	call PIC_init
		710
2642	mario79	711	mov esi, boot_v86machine
		712	call boot_log
2288	clevermous	713	; Initialize system V86 machine
		714	call init_sys_v86
		715
2642	mario79	716	mov esi, boot_inittimer
		717	call boot_log
2288	clevermous	718	; Initialize system timer (IRQ0)
		719	call PIT_init
		720
4273	clevermous	721	; Register ramdisk file system
8091	dunkaist	722	if ~ defined extended_primary_loader
8089	dunkaist	723	cmp [BOOT.rd_load_from], RD_LOAD_FROM_HD ; will be loaded later
4772	mario79	724	je @f
8091	dunkaist	725	end if
8089	dunkaist	726	cmp [BOOT.rd_load_from], RD_LOAD_FROM_NONE
		727	je @f
		728	call register_ramdisk
4772	mario79	729	;--------------------------------------
		730	@@:
2642	mario79	731	mov esi, boot_initapic
		732	call boot_log
2288	clevermous	733	; Try to Initialize APIC
		734	call APIC_init
		735
2642	mario79	736	mov esi, boot_enableirq
		737	call boot_log
3785	mario79	738	; Enable timer IRQ (IRQ0) and co-processor IRQ (IRQ13)
2288	clevermous	739	; they are used: when partitions are scanned, hd_read relies on timer
		740	call unmask_timer
7733	dunkaist	741	; Prevent duplicate timer IRQs in APIC mode
		742	cmp [irq_mode], IRQ_APIC
		743	jz @f
2288	clevermous	744	stdcall enable_irq, 2 ; @#$%! PIC
7733	dunkaist	745	@@:
2288	clevermous	746	stdcall enable_irq, 13 ; co-processor
4741	hidnplayr	747
		748	; Setup serial output console (if enabled)
		749	if defined debug_com_base
		750
		751	; reserve port so nobody else will use it
		752	xor ebx, ebx
		753	mov ecx, debug_com_base
		754	mov edx, debug_com_base+7
		755	call r_f_port_area
		756
		757	; enable Divisor latch
		758	mov dx, debug_com_base+3
		759	mov al, 1 shl 7
		760	out dx, al
		761
		762	; Set speed to 115200 baud (max speed)
		763	mov dx, debug_com_base
		764	mov al, 0x01
		765	out dx, al
		766
		767	mov dx, debug_com_base+1
		768	mov al, 0x00
		769	out dx, al
		770
		771	; No parity, 8bits words, one stop bit, dlab bit back to 0
		772	mov dx, debug_com_base+3
		773	mov al, 3
		774	out dx, al
		775
		776	; disable interrupts
		777	mov dx, debug_com_base+1
		778	mov al, 0
		779	out dx, al
		780
		781	; clear + enable fifo (64 bits)
		782	mov dx, debug_com_base+2
		783	mov al, 0x7 + 1 shl 5
		784	out dx, al
		785
		786	end if
		787
		788
4575	mario79	789	;-----------------------------------------------------------------------------
		790	; show SVN version of kernel on the message board
		791	;-----------------------------------------------------------------------------
		792	mov eax, [version_inf.rev]
		793	DEBUGF 1, "K : kernel SVN r%d\n", eax
		794	;-----------------------------------------------------------------------------
		795	; show CPU count on the message board
		796	;-----------------------------------------------------------------------------
		797	mov eax, [cpu_count]
		798	test eax, eax
		799	jnz @F
		800	mov al, 1 ; at least one CPU
		801	@@:
		802	DEBUGF 1, "K : %d CPU detected\n", eax
		803	;-----------------------------------------------------------------------------
		804	; detect Floppy drives
		805	;-----------------------------------------------------------------------------
		806	mov esi, boot_detectfloppy
		807	call boot_log
		808	include 'detect/dev_fd.inc'
		809	;-----------------------------------------------------------------------------
4624	mario79	810	; create pci-devices list
4575	mario79	811	;-----------------------------------------------------------------------------
4624	mario79	812	mov [pci_access_enabled], 1
		813	call pci_enum
3762	mario79	814	;-----------------------------------------------------------------------------
4624	mario79	815	; initialisation IDE ATA code
4575	mario79	816	;-----------------------------------------------------------------------------
4624	mario79	817	include 'detect/init_ata.inc'
4575	mario79	818	;-----------------------------------------------------------------------------
9183	rgimad	819	; initialisation AHCI code
		820	;-----------------------------------------------------------------------------
		821	jmp ahci_code_end
		822	include 'blkdev/ahci.inc'
		823	ahci_code_end:
		824	call ahci_init
		825	;-----------------------------------------------------------------------------
2288	clevermous	826	if 0
8089	dunkaist	827	mov ax, [BOOT.sys_disk]
2288	clevermous	828	cmp ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}
		829	je no_lib_load
2642	mario79	830
		831	mov esi, boot_loadlibs
		832	call boot_log
2288	clevermous	833	; LOADING LIBRARES
		834	stdcall dll.Load, @IMPORT ; loading librares for kernel (.obj files)
		835	call load_file_parse_table ; prepare file parse table
		836	call set_kernel_conf ; configure devices and gui
		837	no_lib_load:
		838	end if
		839
		840	; Display APIC status
		841	mov esi, boot_APIC_found
		842	cmp [irq_mode], IRQ_APIC
		843	je @f
		844	mov esi, boot_APIC_nfound
		845	@@:
2642	mario79	846	call boot_log
2288	clevermous	847
		848	; PRINT AMOUNT OF MEMORY
		849	mov esi, boot_memdetect
		850	call boot_log
		851
		852	movzx ecx, word [boot_y]
		853	if lang eq ru
		854	or ecx, (10+30*6) shl 16
3274	esevece	855	else if lang eq sp
		856	or ecx, (10+33*6) shl 16
		857	else
2288	clevermous	858	or ecx, (10+29*6) shl 16
3274	esevece	859	end if
2288	clevermous	860	sub ecx, 10
		861	mov edx, 0xFFFFFF
		862	mov ebx, [MEM_AMOUNT]
		863	shr ebx, 20
		864	xor edi, edi
		865	mov eax, 0x00040000
		866	inc edi
		867	call display_number_force
		868
		869	; BUILD SCHEDULER
		870
2642	mario79	871	; call build_scheduler; sys32.inc
2288	clevermous	872
2642	mario79	873	; mov esi, boot_devices
		874	; call boot_log
2288	clevermous	875
4297	yogev_ezra	876	include "detect/vortex86.inc" ; Vortex86 SoC detection code
		877
5039	clevermous	878	stdcall load_pe_driver, szVidintel, 0
3508	clevermous	879
3520	clevermous	880	call usb_init
		881
2288	clevermous	882	; SET PRELIMINARY WINDOW STACK AND POSITIONS
		883
		884	mov esi, boot_windefs
		885	call boot_log
		886	call set_window_defaults
		887
		888	; SET BACKGROUND DEFAULTS
		889
		890	mov esi, boot_bgr
		891	call boot_log
		892	call init_background
		893	call calculatebackground
		894
		895	; RESERVE SYSTEM IRQ'S JA PORT'S
		896
		897	mov esi, boot_resirqports
		898	call boot_log
		899	call reserve_irqs_ports
		900
		901	call init_display
		902	mov eax, [def_cursor]
8093	dunkaist	903	mov [SLOT_BASE+APPDATA.cursor+sizeof.APPDATA], eax
		904	mov [SLOT_BASE+APPDATA.cursor+sizeof.APPDATA*2], eax
2288	clevermous	905
3501	Serge	906	; PRINT CPU FREQUENCY
2288	clevermous	907
3501	Serge	908	mov esi, boot_cpufreq
2288	clevermous	909	call boot_log
3501	Serge	910
5792	serge	911	cli
		912	mov ebx, [hpet_base]
		913	test ebx, ebx
		914	jz @F
8111	dunkaist	915	mov ebx, [ebx+HPET_COUNTER]
5792	serge	916
3501	Serge	917	rdtsc
5792	serge	918	mov ecx, 1000
		919	sub eax, [hpet_tsc_start]
		920	sbb edx, [hpet_tsc_start+4]
		921	shld edx, eax, 10
		922	shl eax, 10
		923	mov esi, eax
		924	mov eax, edx
		925	mul ecx
		926	xchg eax, esi
		927	mul ecx
		928	adc edx, esi
		929	div ebx
		930	mul ecx
		931	div [hpet_period]
		932	mul ecx
		933	DEBUGF 1, "K : cpu frequency %u Hz\n", eax
		934	jmp .next
		935	@@:
		936	rdtsc
2288	clevermous	937	mov ecx, eax
		938	mov esi, 250 ; wait 1/4 a second
		939	call delay_ms
3501	Serge	940	rdtsc
		941
2288	clevermous	942	sub eax, ecx
3481	Serge	943	xor edx, edx
		944	shld edx, eax, 2
2288	clevermous	945	shl eax, 2
5792	serge	946	.next:
3481	Serge	947	mov dword [cpu_freq], eax
		948	mov dword [cpu_freq+4], edx
3502	Serge	949	mov ebx, 1000000
		950	div ebx
3501	Serge	951	mov ebx, eax
2288	clevermous	952
		953	movzx ecx, word [boot_y]
		954	if lang eq ru
3501	Serge	955	add ecx, (10+19*6) shl 16 - 10
3274	esevece	956	else if lang eq sp
3501	Serge	957	add ecx, (10+25*6) shl 16 - 10
3274	esevece	958	else
3501	Serge	959	add ecx, (10+17*6) shl 16 - 10
3274	esevece	960	end if
3501	Serge	961
2288	clevermous	962	mov edx, 0xFFFFFF
		963	xor edi, edi
		964	mov eax, 0x00040000
		965	inc edi
		966	call display_number_force
		967
		968	; SET VARIABLES
		969
		970	call set_variables
		971
		972	; STACK AND FDC
		973
		974	call stack_init
		975	call fdc_init
		976
		977	; PALETTE FOR 320x200 and 640x480 16 col
		978
		979	cmp [SCR_MODE], word 0x12
		980	jne no_pal_vga
		981	mov esi, boot_pal_vga
		982	call boot_log
		983	call paletteVGA
		984	no_pal_vga:
		985
		986	cmp [SCR_MODE], word 0x13
		987	jne no_pal_ega
		988	mov esi, boot_pal_ega
		989	call boot_log
		990	call palette320x200
		991	no_pal_ega:
		992
		993	; LOAD DEFAULT SKIN
		994
		995	call load_default_skin
		996
5635	hidnplayr	997	; Protect I/O permission map
2288	clevermous	998
		999	mov esi, [default_io_map]
8093	dunkaist	1000	stdcall map_page, esi, [SLOT_BASE+sizeof.APPDATA+APPDATA.io_map], PG_READ
2288	clevermous	1001	add esi, 0x1000
8093	dunkaist	1002	stdcall map_page, esi, [SLOT_BASE+sizeof.APPDATA+APPDATA.io_map+4], PG_READ
2288	clevermous	1003
		1004	stdcall map_page, tss._io_map_0, \
8093	dunkaist	1005	[SLOT_BASE+sizeof.APPDATA+APPDATA.io_map], PG_READ
2288	clevermous	1006	stdcall map_page, tss._io_map_1, \
8093	dunkaist	1007	[SLOT_BASE+sizeof.APPDATA+APPDATA.io_map+4], PG_READ
2288	clevermous	1008
		1009	; SET KEYBOARD PARAMETERS
		1010	mov al, 0xf6 ; reset keyboard, scan enabled
5012	clevermous	1011	call kb_write_wait_ack
2601	clevermous	1012	test ah, ah
		1013	jnz .no_keyboard
2288	clevermous	1014
2601	clevermous	1015	iglobal
		1016	align 4
		1017	ps2_keyboard_functions:
		1018	dd .end - $
		1019	dd 0 ; no close
		1020	dd ps2_set_lights
		1021	.end:
		1022	endg
		1023	stdcall register_keyboard, ps2_keyboard_functions, 0
2288	clevermous	1024	; mov al, 0xED ; Keyboard LEDs - only for testing!
5012	clevermous	1025	; call kb_write_wait_ack
2288	clevermous	1026	; mov al, 111b
5012	clevermous	1027	; call kb_write_wait_ack
2288	clevermous	1028
		1029	mov al, 0xF3 ; set repeat rate & delay
5012	clevermous	1030	call kb_write_wait_ack
2288	clevermous	1031	mov al, 0; 30 250 ;00100010b ; 24 500 ;00100100b ; 20 500
5012	clevermous	1032	call kb_write_wait_ack
2288	clevermous	1033	;// mike.dld [
		1034	call set_lights
		1035	;// mike.dld ]
		1036	stdcall attach_int_handler, 1, irq1, 0
4734	mario79	1037	DEBUGF 1, "K : IRQ1 return code %x\n", eax
2601	clevermous	1038	.no_keyboard:
2288	clevermous	1039
4553	hidnplayr	1040	; Load PS/2 mouse driver
2288	clevermous	1041	mov esi, boot_setmouse
		1042	call boot_log
9514	rgimad	1043	stdcall load_pe_driver, szPS2MDriver, 0
2288	clevermous	1044
5031	clevermous	1045	; LOAD FIRST APPLICATION
		1046	cmp byte [launcher_start], 1 ; Check if starting LAUNCHER is selected on blue screen (1 = yes)
		1047	jnz first_app_found
		1048
		1049	cli
		1050	mov ebp, firstapp
		1051	call fs_execute_from_sysdir
		1052	test eax, eax
		1053	jns first_app_found
		1054
		1055	mov esi, boot_failed
		1056	call boot_log
		1057
		1058	mov eax, 0xDEADBEEF ; otherwise halt
		1059	hlt
		1060
		1061	first_app_found:
		1062
2288	clevermous	1063	; START MULTITASKING
7129	dunkaist	1064	preboot_blogesc = 0 ; start immediately after bootlog
2288	clevermous	1065
		1066	; A 'All set - press ESC to start' messages if need
		1067	if preboot_blogesc
		1068	mov esi, boot_tasking
		1069	call boot_log
		1070	.bll1:
		1071	in al, 0x60 ; wait for ESC key press
		1072	cmp al, 129
		1073	jne .bll1
		1074	end if
		1075
		1076	mov [timer_ticks_enable], 1 ; for cd driver
		1077
		1078	sti
4734	mario79	1079
4608	clevermous	1080	call mtrr_validate
		1081
2288	clevermous	1082	jmp osloop
		1083
		1084
		1085	; Fly :)
		1086
5033	clevermous	1087	uglobal
		1088	align 4
		1089	ap_initialized dd 0
		1090	endg
		1091
		1092	ap_init_high:
		1093	mov ax, os_stack
		1094	mov bx, app_data
		1095	mov cx, app_tls
		1096	mov ss, ax
		1097	mov ds, bx
		1098	mov es, bx
		1099	mov fs, cx
		1100	mov gs, bx
		1101	xor esp, esp
5130	serge	1102	mov eax, sys_proc-OS_BASE+PROC.pdt_0
5033	clevermous	1103	mov cr3, eax
		1104	lock inc [ap_initialized]
		1105	jmp idle_loop
		1106
		1107
2288	clevermous	1108	include 'unpacker.inc'
		1109
		1110	align 4
		1111	boot_log:
		1112	pushad
		1113
		1114	mov ebx, 10*65536
		1115	mov bx, word [boot_y]
		1116	add [boot_y], dword 10
		1117	mov ecx, 0x80ffffff; ASCIIZ string with white color
		1118	xor edi, edi
		1119	mov edx, esi
		1120	inc edi
		1121	call dtext
		1122
		1123	mov [novesachecksum], 1000
		1124	call checkVga_N13
		1125
		1126	popad
		1127
		1128	ret
		1129
8091	dunkaist	1130	;-----------------------------------------------------------------------------
		1131	; Register ramdisk file system
		1132	register_ramdisk:
		1133	mov esi, boot_initramdisk
		1134	call boot_log
		1135	call ramdisk_init
		1136	ret
		1137
3534	clevermous	1138	; in: edx -> APPDATA for OS/IDLE slot
		1139	; in: ebx = stack base
		1140	proc setup_os_slot
		1141	xor eax, eax
8093	dunkaist	1142	mov ecx, sizeof.APPDATA/4
3534	clevermous	1143	mov edi, edx
		1144	rep stosd
		1145
3535	clevermous	1146	mov eax, tss+0x80
		1147	call get_pg_addr
		1148	inc eax
		1149	mov [edx+APPDATA.io_map], eax
		1150	mov eax, tss+0x1080
		1151	call get_pg_addr
		1152	inc eax
		1153	mov [edx+APPDATA.io_map+4], eax
		1154
3534	clevermous	1155	mov dword [edx+APPDATA.pl0_stack], ebx
7124	dunkaist	1156	lea edi, [ebx+RING0_STACK_SIZE]
3534	clevermous	1157	mov dword [edx+APPDATA.fpu_state], edi
		1158	mov dword [edx+APPDATA.saved_esp0], edi
		1159	mov dword [edx+APPDATA.saved_esp], edi
		1160	mov dword [edx+APPDATA.terminate_protection], 1 ; make unkillable
		1161
		1162	mov esi, fpu_data
7165	clevermous	1163	mov ecx, [xsave_area_size]
		1164	add ecx, 3
		1165	shr ecx, 2
3534	clevermous	1166	rep movsd
		1167
8087	dunkaist	1168	lea eax, [edx+APP_EV_OFFSET]
		1169	mov dword [edx+APPDATA.fd_ev], eax
		1170	mov dword [edx+APPDATA.bk_ev], eax
		1171
3534	clevermous	1172	lea eax, [edx+APP_OBJ_OFFSET]
		1173	mov dword [edx+APPDATA.fd_obj], eax
		1174	mov dword [edx+APPDATA.bk_obj], eax
		1175
6502	pathoswith	1176	mov dword [edx+APPDATA.cur_dir], sysdir_path-2
3534	clevermous	1177
5130	serge	1178	mov [edx + APPDATA.process], sys_proc
3534	clevermous	1179
5130	serge	1180	lea ebx, [edx+APPDATA.list]
		1181	lea ecx, [sys_proc+PROC.thr_list]
		1182	list_add_tail ebx, ecx
		1183
3534	clevermous	1184	mov eax, edx
		1185	shr eax, 3
8869	rgimad	1186	add eax, TASK_TABLE - (SLOT_BASE shr 3)
3534	clevermous	1187	mov [eax+TASKDATA.wnd_number], dh
		1188	mov byte [eax+TASKDATA.pid], dh
		1189
		1190	ret
		1191	endp
		1192
2288	clevermous	1193	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1194	; ;
		1195	; MAIN OS LOOP START ;
		1196	; ;
		1197	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1198	align 32
		1199	osloop:
3534	clevermous	1200	mov edx, osloop_has_work?
		1201	xor ecx, ecx
		1202	call Wait_events
		1203	xor eax, eax
		1204	xchg eax, [osloop_nonperiodic_work]
		1205	test eax, eax
		1206	jz .no_periodic
4734	mario79	1207
2453	mario79	1208	call __sys_draw_pointer
2288	clevermous	1209	call window_check_events
		1210	call mouse_check_events
		1211	call checkmisc
		1212	call checkVga_N13
4734	mario79	1213	;--------------------------------------
3534	clevermous	1214	.no_periodic:
2288	clevermous	1215	call stack_handler
		1216	call check_fdd_motor_status
		1217	call check_ATAPI_device_event
2601	clevermous	1218	call check_lights_state
2288	clevermous	1219	call check_timers
4734	mario79	1220
2288	clevermous	1221	jmp osloop
		1222	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1223	; ;
		1224	; MAIN OS LOOP END ;
		1225	; ;
		1226	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3534	clevermous	1227	proc osloop_has_work?
		1228	cmp [osloop_nonperiodic_work], 0
		1229	jnz .yes
		1230	call stack_handler_has_work?
		1231	jnz .yes
4273	clevermous	1232	call check_fdd_motor_status_has_work?
		1233	jnz .yes
3534	clevermous	1234	call check_ATAPI_device_event_has_work?
		1235	jnz .yes
		1236	call check_lights_state_has_work?
		1237	jnz .yes
		1238	call check_timers_has_work?
		1239	jnz .yes
		1240	.no:
		1241	xor eax, eax
2288	clevermous	1242	ret
3534	clevermous	1243	.yes:
		1244	xor eax, eax
		1245	inc eax
		1246	ret
		1247	endp
2288	clevermous	1248
3534	clevermous	1249	proc wakeup_osloop
		1250	mov [osloop_nonperiodic_work], 1
		1251	ret
		1252	endp
		1253
2288	clevermous	1254	uglobal
3534	clevermous	1255	align 4
		1256	osloop_nonperiodic_work dd ?
2288	clevermous	1257	endg
		1258
5033	clevermous	1259	uglobal
		1260	align 64
		1261	idle_addr rb 64
		1262	endg
		1263
3534	clevermous	1264	idle_thread:
		1265	sti
5033	clevermous	1266
		1267	; The following code can be executed by all CPUs in the system.
		1268	; All other parts of the kernel do not expect multi-CPU.
		1269	; Also, APs don't even have a stack here.
		1270	; Beware. Don't do anything here. Anything at all.
3534	clevermous	1271	idle_loop:
5033	clevermous	1272	cmp [use_mwait_for_idle], 0
		1273	jnz idle_loop_mwait
		1274
		1275	idle_loop_hlt:
3534	clevermous	1276	hlt
5033	clevermous	1277	jmp idle_loop_hlt
2288	clevermous	1278
5033	clevermous	1279	idle_loop_mwait:
		1280	mov eax, idle_addr
		1281	xor ecx, ecx
		1282	xor edx, edx
		1283	monitor
		1284	xor ecx, ecx
		1285	mov eax, 20h ; or 10h
		1286	mwait
		1287	jmp idle_loop_mwait
2288	clevermous	1288
3534	clevermous	1289
2288	clevermous	1290	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1291	; ;
		1292	; INCLUDED SYSTEM FILES ;
		1293	; ;
		1294	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1295
		1296
		1297	include "kernel32.inc"
		1298
		1299
		1300	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1301	; ;
		1302	; KERNEL FUNCTIONS ;
		1303	; ;
		1304	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1305
		1306	reserve_irqs_ports:
		1307
		1308
		1309	; RESERVE PORTS
		1310	mov eax, RESERVED_PORTS
		1311	mov ecx, 1
		1312
		1313	mov [eax], dword 4
		1314
		1315	mov [eax+16], ecx
		1316	mov [eax+16+4], dword 0
3426	hidnplayr	1317	mov [eax+16+8], dword 0x2D
2288	clevermous	1318
		1319	mov [eax+32], ecx
		1320	mov [eax+32+4], dword 0x30
		1321	mov [eax+32+8], dword 0x4D
		1322
		1323	mov [eax+48], ecx
		1324	mov [eax+48+4], dword 0x50
3426	hidnplayr	1325	mov [eax+48+8], dword 0xDF
2288	clevermous	1326
		1327	mov [eax+64], ecx
		1328	mov [eax+64+4], dword 0xE5
		1329	mov [eax+64+8], dword 0xFF
		1330
		1331	ret
		1332
		1333
		1334	iglobal
3534	clevermous	1335	process_number dd 0x2
2288	clevermous	1336	endg
		1337
		1338	set_variables:
		1339
		1340	mov ecx, 0x16 ; flush port 0x60
		1341	.fl60:
		1342	in al, 0x60
		1343	loop .fl60
		1344	push eax
		1345
7132	dunkaist	1346	mov ax, [BOOT.y_res]
2288	clevermous	1347	shr ax, 1
		1348	shl eax, 16
7132	dunkaist	1349	mov ax, [BOOT.x_res]
2288	clevermous	1350	shr ax, 1
		1351	mov [MOUSE_X], eax
3534	clevermous	1352	call wakeup_osloop
2288	clevermous	1353
		1354	xor eax, eax
		1355	mov [BTN_ADDR], dword BUTTON_INFO ; address of button list
		1356
		1357	mov byte [KEY_COUNT], al ; keyboard buffer
		1358	mov byte [BTN_COUNT], al ; button buffer
		1359	; mov [MOUSE_X],dword 100*65536+100 ; mouse x/y
		1360
		1361	pop eax
		1362	ret
9488	rgimad	1363	;-----------------------------------------------------------------------------
2288	clevermous	1364
		1365	align 4
		1366	display_number:
8713	Doczom	1367	; add check pointers
		1368	test bl, bl
		1369	jz @f
		1370	stdcall is_region_userspace, ecx, 1
9045	dunkaist	1371	jz @f
8713	Doczom	1372	ret
		1373	@@:
		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
		1403	jge cont_displ
		1404	ret
		1405	cont_displ:
		1406	push eax
		1407	and eax, 0x3fffffff
		1408	cmp eax, 61*0x10000 ; length <= 60 ?
		1409	pop eax
		1410	jb cont_displ2
		1411	ret
		1412	cont_displ2:
		1413
		1414	pushad
		1415
		1416	cmp al, 1 ; ecx is a pointer ?
		1417	jne displnl1
		1418	mov ebp, ebx
		1419	add ebp, 4
		1420	mov ebp, [ebp+std_application_base_address]
		1421	mov ebx, [ebx+std_application_base_address]
		1422	displnl1:
		1423	sub esp, 64
		1424
		1425	test ah, ah ; DECIMAL
		1426	jnz no_display_desnum
		1427	shr eax, 16
		1428	and eax, 0xC03f
		1429	; and eax,0x3f
		1430	push eax
		1431	and eax, 0x3f
		1432	mov edi, esp
		1433	add edi, 4+64-1
		1434	mov ecx, eax
		1435	mov eax, ebx
		1436	mov ebx, 10
		1437	d_desnum:
		1438	xor edx, edx
		1439	call division_64_bits
		1440	div ebx
		1441	add dl, 48
		1442	mov [edi], dl
		1443	dec edi
		1444	loop d_desnum
		1445	pop eax
		1446	call normalize_number
		1447	call draw_num_text
		1448	add esp, 64
		1449	popad
		1450	ret
		1451	no_display_desnum:
		1452
		1453	cmp ah, 0x01 ; HEXADECIMAL
		1454	jne no_display_hexnum
		1455	shr eax, 16
		1456	and eax, 0xC03f
		1457	; and eax,0x3f
		1458	push eax
		1459	and eax, 0x3f
		1460	mov edi, esp
		1461	add edi, 4+64-1
		1462	mov ecx, eax
		1463	mov eax, ebx
		1464	mov ebx, 16
		1465	d_hexnum:
		1466	xor edx, edx
		1467	call division_64_bits
		1468	div ebx
		1469	hexletters = __fdo_hexdigits
		1470	add edx, hexletters
		1471	mov dl, [edx]
		1472	mov [edi], dl
		1473	dec edi
		1474	loop d_hexnum
		1475	pop eax
		1476	call normalize_number
		1477	call draw_num_text
		1478	add esp, 64
		1479	popad
		1480	ret
		1481	no_display_hexnum:
		1482
		1483	cmp ah, 0x02 ; BINARY
		1484	jne no_display_binnum
		1485	shr eax, 16
		1486	and eax, 0xC03f
		1487	; and eax,0x3f
		1488	push eax
		1489	and eax, 0x3f
		1490	mov edi, esp
		1491	add edi, 4+64-1
		1492	mov ecx, eax
		1493	mov eax, ebx
		1494	mov ebx, 2
		1495	d_binnum:
		1496	xor edx, edx
		1497	call division_64_bits
		1498	div ebx
		1499	add dl, 48
		1500	mov [edi], dl
		1501	dec edi
		1502	loop d_binnum
		1503	pop eax
		1504	call normalize_number
		1505	call draw_num_text
		1506	add esp, 64
		1507	popad
		1508	ret
		1509	no_display_binnum:
		1510
		1511	add esp, 64
		1512	popad
		1513	ret
		1514
		1515	normalize_number:
		1516	test ah, 0x80
		1517	jz .continue
		1518	mov ecx, 48
		1519	and eax, 0x3f
		1520	@@:
		1521	inc edi
		1522	cmp [edi], cl
		1523	jne .continue
		1524	dec eax
		1525	cmp eax, 1
		1526	ja @r
		1527	mov al, 1
		1528	.continue:
		1529	and eax, 0x3f
		1530	ret
		1531
		1532	division_64_bits:
		1533	test [esp+1+4], byte 0x40
		1534	jz .continue
		1535	push eax
		1536	mov eax, ebp
		1537	div ebx
		1538	mov ebp, eax
		1539	pop eax
		1540	.continue:
		1541	ret
		1542
		1543	draw_num_text:
		1544	mov esi, eax
		1545	mov edx, 64+4
		1546	sub edx, eax
		1547	add edx, esp
		1548	mov ebx, [esp+64+32-8+4]
		1549	; add window start x & y
		1550	mov ecx, [TASK_BASE]
		1551
8869	rgimad	1552	mov edi, [current_slot_idx]
2288	clevermous	1553	shl edi, 8
		1554
		1555	mov eax, [ecx-twdw+WDATA.box.left]
		1556	add eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
		1557	shl eax, 16
		1558	add eax, [ecx-twdw+WDATA.box.top]
		1559	add eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
		1560	add ebx, eax
		1561	mov ecx, [esp+64+32-12+4]
		1562	mov eax, [esp+64+8] ; background color (if given)
		1563	mov edi, [esp+64+4]
6272	pathoswith	1564	and ecx, 5FFFFFFFh
		1565	bt ecx, 27
		1566	jnc @f
		1567	mov edi, eax
		1568	@@:
2288	clevermous	1569	jmp dtext
4700	mario79	1570	;-----------------------------------------------------------------------------
		1571	iglobal
		1572	midi_base dw 0
		1573	endg
		1574	;-----------------------------------------------------------------------------
2288	clevermous	1575	align 4
		1576	sys_setup:
4700	mario79	1577	; 1 = roland mpu midi base , base io address
		1578	; 2 = keyboard 1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
		1579	; 3 = not used
		1580	; 4 = not used
		1581	; 5 = system language, 1eng 2fi 3ger 4rus
		1582	; 6 = not used
		1583	; 7 = not used
		1584	; 8 = not used
		1585	; 9 = not used
		1586	; 10 = not used
2288	clevermous	1587	; 11 = enable lba read
		1588	; 12 = enable pci access
4700	mario79	1589	;-----------------------------------------------------------------------------
		1590	and [esp+32], dword 0
		1591	; F.21.1 - set MPU MIDI base port
		1592	dec ebx
		1593	jnz @f
2288	clevermous	1594
		1595	cmp ecx, 0x100
4700	mario79	1596	jb @f
2288	clevermous	1597
		1598	mov esi, 65535
		1599	cmp esi, ecx
4700	mario79	1600	jb @f
2288	clevermous	1601
4700	mario79	1602	mov [midi_base], cx
		1603	mov word [mididp], cx
		1604	inc cx
		1605	mov word [midisp], cx
2288	clevermous	1606	ret
4700	mario79	1607	;--------------------------------------
		1608	@@:
		1609	; F.21.2 - set keyboard layout
		1610	dec ebx
		1611	jnz @f
2288	clevermous	1612
		1613	mov edi, [TASK_BASE]
		1614	mov eax, [edi+TASKDATA.mem_start]
		1615	add eax, edx
4700	mario79	1616	; 1 = normal layout
		1617	dec ecx
		1618	jnz .shift
2288	clevermous	1619
		1620	mov ebx, keymap
		1621	mov ecx, 128
		1622	call memmove
		1623	ret
4700	mario79	1624	;--------------------------------------
		1625	.shift:
		1626	; 2 = layout at pressed Shift
2288	clevermous	1627	dec ecx
4700	mario79	1628	jnz .alt
2288	clevermous	1629
		1630	mov ebx, keymap_shift
		1631	mov ecx, 128
		1632	call memmove
		1633	ret
4700	mario79	1634	;--------------------------------------
		1635	.alt:
		1636	; 3 = layout at pressed Alt
2288	clevermous	1637	dec ecx
4700	mario79	1638	jnz .country
		1639
2288	clevermous	1640	mov ebx, keymap_alt
		1641	mov ecx, 128
		1642	call memmove
		1643	ret
4700	mario79	1644	;--------------------------------------
		1645	.country:
		1646	; country identifier
2288	clevermous	1647	sub ecx, 6
4700	mario79	1648	jnz .error
		1649
2288	clevermous	1650	mov word [keyboard], dx
		1651	ret
4700	mario79	1652	;--------------------------------------
		1653	@@:
		1654	; F.21.5 - set system language
		1655	sub ebx, 3
		1656	jnz @f
2288	clevermous	1657
		1658	mov [syslang], ecx
		1659	ret
4700	mario79	1660	;--------------------------------------
		1661	@@:
		1662	; F.21.11 - enable/disable low-level access to HD
		1663	and ecx, 1
		1664	sub ebx, 6
		1665	jnz @f
2288	clevermous	1666
4700	mario79	1667	mov [lba_read_enabled], ecx
2288	clevermous	1668	ret
4700	mario79	1669	;--------------------------------------
		1670	@@:
		1671	; F.21.12 - enable/disable low-level access to PCI
2288	clevermous	1672	dec ebx
4700	mario79	1673	jnz .error
2288	clevermous	1674
		1675	mov [pci_access_enabled], ecx
		1676	ret
4700	mario79	1677	;--------------------------------------
		1678	.error:
2288	clevermous	1679	or [esp+32], dword -1
		1680	ret
4700	mario79	1681	;-----------------------------------------------------------------------------
2288	clevermous	1682	align 4
		1683	sys_getsetup:
4700	mario79	1684	; 1 = roland mpu midi base , base io address
		1685	; 2 = keyboard 1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
		1686	; 3 = not used
		1687	; 4 = not used
		1688	; 5 = system language, 1eng 2fi 3ger 4rus
		1689	; 6 = not used
		1690	; 7 = not used
		1691	; 8 = not used
		1692	; 9 = get hs timer tic
		1693	; 10 = not used
		1694	; 11 = get the state "lba read"
		1695	; 12 = get the state "pci access"
		1696	;-----------------------------------------------------------------------------
		1697	; F.26.1 - get MPU MIDI base port
		1698	dec ebx
		1699	jnz @f
2288	clevermous	1700
		1701	movzx eax, [midi_base]
		1702	mov [esp+32], eax
		1703	ret
4700	mario79	1704	;--------------------------------------
		1705	@@:
		1706	; F.26.2 - get keyboard layout
2288	clevermous	1707	dec ebx
4700	mario79	1708	jnz @f
2288	clevermous	1709
		1710	mov edi, [TASK_BASE]
		1711	mov ebx, [edi+TASKDATA.mem_start]
		1712	add ebx, edx
4700	mario79	1713	; 1 = normal layout
		1714	dec ecx
		1715	jnz .shift
2288	clevermous	1716
8160	rgimad	1717	; if given memory address belongs to kernel then error
8329	rgimad	1718	stdcall is_region_userspace, ebx, 128
9045	dunkaist	1719	jnz .addr_error
8158	rgimad	1720
2288	clevermous	1721	mov eax, keymap
		1722	mov ecx, 128
		1723	call memmove
		1724	ret
4700	mario79	1725	;--------------------------------------
		1726	.shift:
		1727	; 2 = layout with pressed Shift
2288	clevermous	1728	dec ecx
4700	mario79	1729	jnz .alt
2288	clevermous	1730
8329	rgimad	1731	stdcall is_region_userspace, ebx, 128
9045	dunkaist	1732	jnz .addr_error
8158	rgimad	1733
2288	clevermous	1734	mov eax, keymap_shift
		1735	mov ecx, 128
		1736	call memmove
		1737	ret
4700	mario79	1738	;--------------------------------------
		1739	.alt:
		1740	; 3 = layout with pressed Alt
2288	clevermous	1741	dec ecx
4700	mario79	1742	jne .country
2288	clevermous	1743
8329	rgimad	1744	stdcall is_region_userspace, ebx, 128
9045	dunkaist	1745	jnz .addr_error
8158	rgimad	1746
2288	clevermous	1747	mov eax, keymap_alt
		1748	mov ecx, 128
		1749	call memmove
		1750	ret
4700	mario79	1751	;--------------------------------------
		1752	.country:
		1753	; 9 = country identifier
2288	clevermous	1754	sub ecx, 6
4700	mario79	1755	jnz .error
		1756
2288	clevermous	1757	movzx eax, word [keyboard]
		1758	mov [esp+32], eax
		1759	ret
8158	rgimad	1760
		1761	.addr_error: ; if given memory address is illegal
8249	rgimad	1762	mov dword [esp+32], -1
8158	rgimad	1763	ret
4700	mario79	1764	;--------------------------------------
		1765	@@:
		1766	; F.26.5 - get system language
		1767	sub ebx, 3
		1768	jnz @f
2288	clevermous	1769
		1770	mov eax, [syslang]
		1771	mov [esp+32], eax
		1772	ret
4700	mario79	1773	;--------------------------------------
		1774	@@:
		1775	; F.26.9 - get the value of the time counter
4573	clevermous	1776	sub ebx, 4
4700	mario79	1777	jnz @f
		1778
		1779	mov eax, [timer_ticks]
2288	clevermous	1780	mov [esp+32], eax
		1781	ret
4700	mario79	1782	;--------------------------------------
		1783	@@:
5794	serge	1784	; F.26.10 - get the time from kernel launch in nanoseconds
9571	Doczom	1785	dec ebx
5794	serge	1786	jnz @f
		1787
		1788	call get_clock_ns
		1789	mov [esp+24], edx
		1790	mov [esp+32], eax
		1791	ret
		1792	;--------------------------------------
		1793	@@:
4700	mario79	1794	; F.26.11 - Find out whether low-level HD access is enabled
9571	Doczom	1795	dec ebx
4700	mario79	1796	jnz @f
		1797
2288	clevermous	1798	mov eax, [lba_read_enabled]
		1799	mov [esp+32], eax
		1800	ret
4700	mario79	1801	;--------------------------------------
		1802	@@:
		1803	; F.26.12 - Find out whether low-level PCI access is enabled
2288	clevermous	1804	dec ebx
4700	mario79	1805	jnz .error
		1806
2288	clevermous	1807	mov eax, [pci_access_enabled]
		1808	mov [esp+32], eax
		1809	ret
4700	mario79	1810	;--------------------------------------
		1811	.error:
		1812	or [esp+32], dword -1
2288	clevermous	1813	ret
4700	mario79	1814	;-----------------------------------------------------------------------------
2288	clevermous	1815	get_timer_ticks:
		1816	mov eax, [timer_ticks]
		1817	ret
4700	mario79	1818	;-----------------------------------------------------------------------------
5851	pathoswith	1819
2288	clevermous	1820	is_input:
		1821	push edx
		1822	mov dx, word [midisp]
		1823	in al, dx
		1824	and al, 0x80
		1825	pop edx
		1826	ret
		1827
		1828	is_output:
		1829	push edx
		1830	mov dx, word [midisp]
		1831	in al, dx
		1832	and al, 0x40
		1833	pop edx
		1834	ret
		1835
		1836	get_mpu_in:
		1837	push edx
		1838	mov dx, word [mididp]
		1839	in al, dx
		1840	pop edx
		1841	ret
		1842
		1843	put_mpu_out:
		1844	push edx
		1845	mov dx, word [mididp]
		1846	out dx, al
		1847	pop edx
		1848	ret
		1849
		1850	align 4
		1851	sys_midi:
		1852	cmp [mididp], 0
		1853	jnz sm0
		1854	mov [esp+36], dword 1
		1855	ret
		1856	sm0:
		1857	and [esp+36], dword 0
		1858	dec ebx
		1859	jnz smn1
		1860	; call setuart
		1861	su1:
		1862	call is_output
		1863	test al, al
		1864	jnz su1
		1865	mov dx, word [midisp]
		1866	mov al, 0xff
		1867	out dx, al
		1868	su2:
		1869	mov dx, word [midisp]
		1870	mov al, 0xff
		1871	out dx, al
		1872	call is_input
		1873	test al, al
		1874	jnz su2
		1875	call get_mpu_in
		1876	cmp al, 0xfe
		1877	jnz su2
		1878	su3:
		1879	call is_output
		1880	test al, al
		1881	jnz su3
		1882	mov dx, word [midisp]
		1883	mov al, 0x3f
		1884	out dx, al
		1885	ret
		1886	smn1:
		1887	dec ebx
		1888	jnz smn2
		1889	sm10:
		1890	call get_mpu_in
		1891	call is_output
		1892	test al, al
		1893	jnz sm10
		1894	mov al, bl
		1895	call put_mpu_out
		1896	smn2:
		1897	ret
		1898
		1899	detect_devices:
		1900	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		1901	;include 'detect/commouse.inc'
		1902	;include 'detect/ps2mouse.inc'
		1903	;include 'detect/dev_fd.inc'
		1904	;include 'detect/dev_hdcd.inc'
		1905	;include 'detect/sear_par.inc'
		1906	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
		1907	ret
		1908
		1909	sys_end:
2430	mario79	1910	;--------------------------------------
		1911	cmp [_display.select_cursor], 0
		1912	je @f
		1913	; restore default cursor before killing
		1914	pusha
		1915	mov ecx, [current_slot]
2435	mario79	1916	call restore_default_cursor_before_killing
2430	mario79	1917	popa
		1918	@@:
		1919	;--------------------------------------
3545	hidnplayr	1920	; kill all sockets this process owns
		1921	pusha
		1922	mov edx, [TASK_BASE]
		1923	mov edx, [edx+TASKDATA.pid]
6011	hidnplayr	1924	call socket_process_end
3545	hidnplayr	1925	popa
		1926	;--------------------------------------
2288	clevermous	1927	mov ecx, [current_slot]
		1928	mov eax, [ecx+APPDATA.tls_base]
		1929	test eax, eax
		1930	jz @F
		1931
		1932	stdcall user_free, eax
		1933	@@:
		1934
		1935	mov eax, [TASK_BASE]
6122	hidnplayr	1936	mov [eax+TASKDATA.state], TSTATE_ZOMBIE
3534	clevermous	1937	call wakeup_osloop
2288	clevermous	1938
3597	Serge	1939	.waitterm: ; wait here for termination
		1940	call change_task
		1941	jmp .waitterm
2435	mario79	1942	;------------------------------------------------------------------------------
2452	mario79	1943	align 4
2435	mario79	1944	restore_default_cursor_before_killing:
2468	mario79	1945	pushfd
		1946	cli
2435	mario79	1947	mov eax, [def_cursor]
		1948	mov [ecx+APPDATA.cursor], eax
2288	clevermous	1949
2435	mario79	1950	movzx eax, word [MOUSE_Y]
		1951	movzx ebx, word [MOUSE_X]
2446	mario79	1952	mov eax, [d_width_calc_area + eax*4]
		1953
5351	serge	1954	add eax, [_display.win_map]
2435	mario79	1955	movzx edx, byte [ebx+eax]
		1956	shl edx, 8
		1957	mov esi, [edx+SLOT_BASE+APPDATA.cursor]
2452	mario79	1958
		1959	cmp esi, [current_cursor]
		1960	je @f
		1961
2435	mario79	1962	push esi
		1963	call [_display.select_cursor]
		1964	mov [current_cursor], esi
2452	mario79	1965	@@:
2450	mario79	1966	mov [redrawmouse_unconditional], 1
3534	clevermous	1967	call wakeup_osloop
2468	mario79	1968	popfd
2435	mario79	1969	ret
		1970	;------------------------------------------------------------------------------
2288	clevermous	1971	iglobal
		1972	align 4
		1973	sys_system_table:
		1974	dd sysfn_deactivate ; 1 = deactivate window
		1975	dd sysfn_terminate ; 2 = terminate thread
		1976	dd sysfn_activate ; 3 = activate window
		1977	dd sysfn_getidletime ; 4 = get idle time
		1978	dd sysfn_getcpuclock ; 5 = get cpu clock
		1979	dd sysfn_saveramdisk ; 6 = save ramdisk
		1980	dd sysfn_getactive ; 7 = get active window
		1981	dd sysfn_sound_flag ; 8 = get/set sound_flag
		1982	dd sysfn_shutdown ; 9 = shutdown with parameter
		1983	dd sysfn_minimize ; 10 = minimize window
		1984	dd sysfn_getdiskinfo ; 11 = get disk subsystem info
9268	Doczom	1985	dd undefined_syscall ; 12 = get last pressed key. function removed. sysfn_lastkey
2288	clevermous	1986	dd sysfn_getversion ; 13 = get kernel version
		1987	dd sysfn_waitretrace ; 14 = wait retrace
		1988	dd sysfn_centermouse ; 15 = center mouse cursor
		1989	dd sysfn_getfreemem ; 16 = get free memory size
		1990	dd sysfn_getallmem ; 17 = get total memory size
		1991	dd sysfn_terminate2 ; 18 = terminate thread using PID
		1992	; instead of slot
		1993	dd sysfn_mouse_acceleration; 19 = set/get mouse acceleration
		1994	dd sysfn_meminfo ; 20 = get extended memory info
		1995	dd sysfn_pid_to_slot ; 21 = get slot number for pid
		1996	dd sysfn_min_rest_window ; 22 = minimize and restore any window
2648	mario79	1997	dd sysfn_min_windows ; 23 = minimize all windows
2654	mario79	1998	dd sysfn_set_screen_sizes ; 24 = set screen sizes for Vesa
5836	GerdtR	1999
		2000	dd sysfn_zmodif ; 25 = get/set window z modifier ;Fantomer
2288	clevermous	2001	sysfn_num = ($ - sys_system_table)/4
		2002	endg
		2003	;------------------------------------------------------------------------------
		2004	sys_system:
		2005	dec ebx
		2006	cmp ebx, sysfn_num
		2007	jae @f
		2008	jmp dword [sys_system_table + ebx*4]
		2009	@@:
		2010	ret
		2011	;------------------------------------------------------------------------------
		2012	sysfn_shutdown: ; 18.9 = system shutdown
7122	dunkaist	2013	cmp ecx, SYSTEM_SHUTDOWN
2288	clevermous	2014	jl exit_for_anyone
7122	dunkaist	2015	cmp ecx, SYSTEM_RESTART
2288	clevermous	2016	jg exit_for_anyone
7132	dunkaist	2017	mov [BOOT.shutdown_type], cl
2288	clevermous	2018
8866	rgimad	2019	mov eax, [thread_count]
2288	clevermous	2020	mov [SYS_SHUTDOWN], al
		2021	mov [shutdown_processes], eax
3534	clevermous	2022	call wakeup_osloop
2288	clevermous	2023	and dword [esp+32], 0
		2024	exit_for_anyone:
		2025	ret
		2026	uglobal
		2027	shutdown_processes:
		2028	dd 0x0
		2029	endg
		2030	;------------------------------------------------------------------------------
8270	dunkaist	2031	; in: eax -- APPDATA ptr
		2032	; out: Z/z -- is/not kernel thread
		2033	is_kernel_thread:
		2034	mov eax, [eax+APPDATA.process]
		2035	cmp eax, [SLOT_BASE+2*sizeof.APPDATA+APPDATA.process] ; OS
		2036	ret
		2037	;------------------------------------------------------------------------------
2288	clevermous	2038	sysfn_terminate: ; 18.2 = TERMINATE
2472	mario79	2039	push ecx
2288	clevermous	2040	cmp ecx, 2
		2041	jb noprocessterminate
8866	rgimad	2042	mov edx, [thread_count]
2288	clevermous	2043	cmp ecx, edx
		2044	ja noprocessterminate
8866	rgimad	2045	mov eax, [thread_count]
8270	dunkaist	2046	shl ecx, BSF sizeof.TASKDATA
8869	rgimad	2047	mov edx, [ecx+TASK_TABLE+TASKDATA.pid]
		2048	add ecx, TASK_TABLE+TASKDATA.state
8270	dunkaist	2049	cmp byte [ecx], TSTATE_FREE
2288	clevermous	2050	jz noprocessterminate
8270	dunkaist	2051	push eax
8869	rgimad	2052	lea eax, [(ecx-(TASK_TABLE and 1FFFFFFFh)-TASKDATA.state)*8+SLOT_BASE]
8270	dunkaist	2053	call is_kernel_thread
		2054	pop eax
		2055	jz noprocessterminate
3296	clevermous	2056	push ecx edx
8869	rgimad	2057	lea edx, [(ecx-(TASK_TABLE and 1FFFFFFFh)-TASKDATA.state)*8+SLOT_BASE]
3296	clevermous	2058	call request_terminate
		2059	pop edx ecx
		2060	test eax, eax
		2061	jz noprocessterminate
2430	mario79	2062	;--------------------------------------
3545	hidnplayr	2063	; terminate all network sockets it used
		2064	pusha
		2065	mov eax, edx
6011	hidnplayr	2066	call socket_process_end
3545	hidnplayr	2067	popa
		2068	;--------------------------------------
2430	mario79	2069	cmp [_display.select_cursor], 0
2452	mario79	2070	je .restore_end
2430	mario79	2071	; restore default cursor before killing
		2072	pusha
		2073	mov ecx, [esp+32]
		2074	shl ecx, 8
2435	mario79	2075	add ecx, SLOT_BASE
2452	mario79	2076	mov eax, [def_cursor]
		2077	cmp [ecx+APPDATA.cursor], eax
		2078	je @f
2435	mario79	2079	call restore_default_cursor_before_killing
2452	mario79	2080	@@:
2430	mario79	2081	popa
2452	mario79	2082	.restore_end:
2430	mario79	2083	;--------------------------------------
2288	clevermous	2084	;call MEM_Heap_Lock ;guarantee that process isn't working with heap
		2085	mov [ecx], byte 3; clear possible i40's
3534	clevermous	2086	call wakeup_osloop
2288	clevermous	2087	;call MEM_Heap_UnLock
		2088
3534	clevermous	2089	cmp edx, [application_table_owner]; clear app table stat
2288	clevermous	2090	jne noatsc
3534	clevermous	2091	call unlock_application_table
2468	mario79	2092	noatsc:
		2093	noprocessterminate:
2472	mario79	2094	add esp, 4
2288	clevermous	2095	ret
		2096	;------------------------------------------------------------------------------
		2097	sysfn_terminate2:
		2098	;lock application_table_status mutex
		2099	.table_status:
3534	clevermous	2100	call lock_application_table
2288	clevermous	2101	mov eax, ecx
		2102	call pid_to_slot
		2103	test eax, eax
		2104	jz .not_found
		2105	mov ecx, eax
		2106	cli
		2107	call sysfn_terminate
3534	clevermous	2108	call unlock_application_table
2288	clevermous	2109	sti
		2110	and dword [esp+32], 0
		2111	ret
		2112	.not_found:
3534	clevermous	2113	call unlock_application_table
2288	clevermous	2114	or dword [esp+32], -1
		2115	ret
		2116	;------------------------------------------------------------------------------
		2117	sysfn_deactivate: ; 18.1 = DEACTIVATE WINDOW
		2118	cmp ecx, 2
		2119	jb .nowindowdeactivate
8866	rgimad	2120	cmp ecx, [thread_count]
2288	clevermous	2121	ja .nowindowdeactivate
2408	Serge	2122
2288	clevermous	2123	movzx esi, word [WIN_STACK + ecx*2]
		2124	cmp esi, 1
		2125	je .nowindowdeactivate ; already deactive
		2126
		2127	mov edi, ecx
		2128	shl edi, 5
		2129	add edi, window_data
		2130	movzx esi, word [WIN_STACK + ecx * 2]
		2131	lea esi, [WIN_POS + esi * 2]
		2132	call window._.window_deactivate
6800	pathoswith	2133	call syscall_display_settings.calculateScreen
		2134	call syscall_display_settings.redrawScreen
2288	clevermous	2135	.nowindowdeactivate:
		2136	ret
3455	mario79	2137	;------------------------------------------------------------------------------
2288	clevermous	2138	sysfn_activate: ; 18.3 = ACTIVATE WINDOW
5675	leency	2139	cmp ecx, 2
		2140	jb .nowindowactivate
8866	rgimad	2141	cmp ecx, [thread_count]
2288	clevermous	2142	ja .nowindowactivate
3455	mario79	2143	;-------------------------------------
		2144	@@:
		2145	; If the window is captured and moved by the user,
		2146	; then you can't change the position in window stack!!!
		2147	mov al, [mouse.active_sys_window.action]
		2148	and al, WINDOW_MOVE_AND_RESIZE_FLAGS
		2149	test al, al
		2150	jz @f
		2151	call change_task
		2152	jmp @b
		2153	@@:
		2154	;-------------------------------------
2288	clevermous	2155	mov [window_minimize], 2; restore window if minimized
3534	clevermous	2156	call wakeup_osloop
2288	clevermous	2157
		2158	movzx esi, word [WIN_STACK + ecx*2]
8866	rgimad	2159	cmp esi, [thread_count]
2288	clevermous	2160	je .nowindowactivate; already active
		2161
		2162	mov edi, ecx
		2163	shl edi, 5
		2164	add edi, window_data
		2165	movzx esi, word [WIN_STACK + ecx * 2]
		2166	lea esi, [WIN_POS + esi * 2]
		2167	call waredraw
		2168	.nowindowactivate:
		2169	ret
		2170	;------------------------------------------------------------------------------
5865	GerdtR	2171	align 4
5836	GerdtR	2172	sysfn_zmodif:
		2173	;18,25,1 - get z_modif
		2174	;18,25,2 - set z_modif
		2175	;edx = -1(for current task) or TID
		2176	;esi(for 2) = new value z_modif
		2177	;return:
		2178	;1: eax = z_modif
		2179	;2: eax=0(fail),1(success) for set z_modif
		2180
		2181	cmp edx, -1
		2182	jne @f
8869	rgimad	2183	mov edx, [current_slot_idx]
5836	GerdtR	2184	@@:
8866	rgimad	2185	cmp edx, [thread_count]
5865	GerdtR	2186	ja .fail
5836	GerdtR	2187	cmp edx, 1
5865	GerdtR	2188	je .fail
5836	GerdtR	2189
5865	GerdtR	2190	mov eax, edx
5836	GerdtR	2191	shl edx, 5
		2192
8876	rgimad	2193	cmp [edx + TASK_TABLE + TASKDATA.state], TSTATE_FREE
5865	GerdtR	2194	je .fail
5836	GerdtR	2195
		2196	cmp ecx, 1
		2197	jnz .set_zmod
		2198
		2199	mov al, [edx + window_data + WDATA.z_modif]
5865	GerdtR	2200	jmp .exit
5836	GerdtR	2201
		2202	.set_zmod:
		2203	cmp ecx, 2
5865	GerdtR	2204	jnz .fail
5836	GerdtR	2205
5865	GerdtR	2206	mov ebx, esi
		2207	mov esi, eax
5836	GerdtR	2208
5865	GerdtR	2209	cmp bl, ZPOS_ALWAYS_TOP
		2210	jg .fail
5836	GerdtR	2211
5865	GerdtR	2212	mov [edx + window_data + WDATA.z_modif], bl
5836	GerdtR	2213
		2214	mov eax, [edx + window_data + WDATA.box.left]
		2215	mov ebx, [edx + window_data + WDATA.box.top]
		2216	mov ecx, [edx + window_data + WDATA.box.width]
		2217	mov edx, [edx + window_data + WDATA.box.height]
		2218	add ecx, eax
		2219	add edx, ebx
5865	GerdtR	2220	call window._.set_screen
5836	GerdtR	2221	call window._.set_top_wnd
5865	GerdtR	2222	call window._.redraw_top_wnd
5836	GerdtR	2223
5865	GerdtR	2224	shl esi, 5
		2225	mov [esi + window_data + WDATA.fl_redraw], 1
		2226
		2227
5836	GerdtR	2228	mov eax, 1
5865	GerdtR	2229	jmp .exit
		2230	.fail:
		2231	xor eax, eax
5836	GerdtR	2232	.exit:
		2233	mov [esp+32], eax
		2234	ret
		2235
		2236	;------------------------------------------------------------------------------
2288	clevermous	2237	sysfn_getidletime: ; 18.4 = GET IDLETIME
9590	Doczom	2238	;mov eax, [TASK_TABLE+32+TASKDATA.cpu_usage]
		2239	mov eax, [SLOT_BASE+APPDATA.cpu_usage]
2288	clevermous	2240	mov [esp+32], eax
		2241	ret
		2242	;------------------------------------------------------------------------------
		2243	sysfn_getcpuclock: ; 18.5 = GET TSC/SEC
3481	Serge	2244	mov eax, dword [cpu_freq]
2288	clevermous	2245	mov [esp+32], eax
		2246	ret
		2247	;------------------------------------------------------------------------------
3481	Serge	2248	get_cpu_freq:
		2249	mov eax, dword [cpu_freq]
		2250	mov edx, dword [cpu_freq+4]
		2251	ret
9268	Doczom	2252	; SAVE ramdisk to /hd/1/kolibri.img
2288	clevermous	2253	;!!!!!!!!!!!!!!!!!!!!!!!!
		2254	include 'blkdev/rdsave.inc'
		2255	;!!!!!!!!!!!!!!!!!!!!!!!!
		2256	;------------------------------------------------------------------------------
		2257	align 4
		2258	sysfn_getactive: ; 18.7 = get active window
8866	rgimad	2259	mov eax, [thread_count]
2288	clevermous	2260	movzx eax, word [WIN_POS + eax*2]
		2261	mov [esp+32], eax
		2262	ret
		2263	;------------------------------------------------------------------------------
		2264	sysfn_sound_flag: ; 18.8 = get/set sound_flag
		2265	; cmp ecx,1
		2266	dec ecx
		2267	jnz nogetsoundflag
		2268	movzx eax, byte [sound_flag]; get sound_flag
		2269	mov [esp+32], eax
		2270	ret
		2271	nogetsoundflag:
		2272	; cmp ecx,2
		2273	dec ecx
		2274	jnz nosoundflag
		2275	xor byte [sound_flag], 1
		2276	nosoundflag:
		2277	ret
		2278	;------------------------------------------------------------------------------
		2279	sysfn_minimize: ; 18.10 = minimize window
		2280	mov [window_minimize], 1
3534	clevermous	2281	call wakeup_osloop
2288	clevermous	2282	ret
		2283	;------------------------------------------------------------------------------
		2284	align 4
		2285	sysfn_getdiskinfo: ; 18.11 = get disk info table
		2286	dec ecx
4641	mario79	2287	jnz .exit
		2288	.small_table:
8598	rgimad	2289	stdcall is_region_userspace, edx, DRIVE_DATA_SIZE
9045	dunkaist	2290	jnz .exit
2288	clevermous	2291	mov edi, edx
		2292	mov esi, DRIVE_DATA
4641	mario79	2293	mov ecx, DRIVE_DATA_SIZE ;10
2288	clevermous	2294	cld
4641	mario79	2295	rep movsb
		2296	.exit:
2288	clevermous	2297	ret
		2298	;------------------------------------------------------------------------------
9268	Doczom	2299	;sysfn_lastkey: ; 18.12 = return 0 (backward compatibility)
		2300	; and dword [esp+32], 0
		2301	; ret
2288	clevermous	2302	;------------------------------------------------------------------------------
		2303	sysfn_getversion: ; 18.13 = get kernel ID and version
8247	rgimad	2304	; if given memory address belongs to kernel then error
8329	rgimad	2305	stdcall is_region_userspace, ecx, version_end-version_inf
9045	dunkaist	2306	jnz .addr_error
8247	rgimad	2307
2288	clevermous	2308	mov edi, ecx
		2309	mov esi, version_inf
		2310	mov ecx, version_end-version_inf
		2311	rep movsb
		2312	ret
8247	rgimad	2313	.addr_error: ; if given memory address is illegal
8248	rgimad	2314	mov dword [esp+32], -1
8247	rgimad	2315	ret
2288	clevermous	2316	;------------------------------------------------------------------------------
		2317	sysfn_waitretrace: ; 18.14 = sys wait retrace
		2318	;wait retrace functions
		2319	sys_wait_retrace:
		2320	mov edx, 0x3da
		2321	WaitRetrace_loop:
		2322	in al, dx
		2323	test al, 1000b
		2324	jz WaitRetrace_loop
		2325	and [esp+32], dword 0
		2326	ret
		2327	;------------------------------------------------------------------------------
		2328	align 4
		2329	sysfn_centermouse: ; 18.15 = mouse centered
5350	serge	2330	mov eax, [_display.width]
2288	clevermous	2331	shr eax, 1
		2332	mov [MOUSE_X], ax
5350	serge	2333	mov eax, [_display.height]
2288	clevermous	2334	shr eax, 1
		2335	mov [MOUSE_Y], ax
3534	clevermous	2336	call wakeup_osloop
2288	clevermous	2337	xor eax, eax
		2338	and [esp+32], eax
		2339	ret
		2340	;------------------------------------------------------------------------------
5851	pathoswith	2341	sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
		2342	cmp ecx, 8
		2343	jnc @f
		2344	jmp dword [.table+ecx*4]
		2345	.get_mouse_acceleration:
2288	clevermous	2346	xor eax, eax
		2347	mov ax, [mouse_speed_factor]
		2348	mov [esp+32], eax
		2349	ret
5851	pathoswith	2350	.set_mouse_acceleration:
2288	clevermous	2351	mov [mouse_speed_factor], dx
		2352	ret
5851	pathoswith	2353	.get_mouse_delay:
5853	pathoswith	2354	xor eax, eax
		2355	mov al, [mouse_delay]
2288	clevermous	2356	mov [esp+32], eax
		2357	ret
5851	pathoswith	2358	.set_mouse_delay:
5853	pathoswith	2359	mov [mouse_delay], dl
5851	pathoswith	2360	@@:
2288	clevermous	2361	ret
5851	pathoswith	2362	.set_pointer_position:
5350	serge	2363	cmp dx, word[_display.height]
5851	pathoswith	2364	jae @b
2288	clevermous	2365	rol edx, 16
5350	serge	2366	cmp dx, word[_display.width]
5851	pathoswith	2367	jae @b
2288	clevermous	2368	mov [MOUSE_X], edx
4381	hidnplayr	2369	mov [mouse_active], 1
5851	pathoswith	2370	jmp wakeup_osloop
		2371	.set_mouse_button:
		2372	mov [BTN_DOWN], edx
2288	clevermous	2373	mov [mouse_active], 1
5851	pathoswith	2374	jmp wakeup_osloop
		2375	.get_doubleclick_delay:
		2376	xor eax, eax
		2377	mov al, [mouse_doubleclick_delay]
		2378	mov [esp+32], eax
2288	clevermous	2379	ret
5851	pathoswith	2380	.set_doubleclick_delay:
		2381	mov [mouse_doubleclick_delay], dl
		2382	ret
		2383	align 4
		2384	.table:
		2385	dd .get_mouse_acceleration
		2386	dd .set_mouse_acceleration
		2387	dd .get_mouse_delay
		2388	dd .set_mouse_delay
		2389	dd .set_pointer_position
		2390	dd .set_mouse_button
		2391	dd .get_doubleclick_delay
		2392	dd .set_doubleclick_delay
2288	clevermous	2393	;------------------------------------------------------------------------------
		2394	sysfn_getfreemem:
		2395	mov eax, [pg_data.pages_free]
		2396	shl eax, 2
		2397	mov [esp+32], eax
		2398	ret
2648	mario79	2399	;------------------------------------------------------------------------------
2288	clevermous	2400	sysfn_getallmem:
		2401	mov eax, [MEM_AMOUNT]
		2402	shr eax, 10
		2403	mov [esp+32], eax
		2404	ret
2648	mario79	2405	;------------------------------------------------------------------------------
2288	clevermous	2406	sysfn_pid_to_slot:
		2407	mov eax, ecx
		2408	call pid_to_slot
		2409	mov [esp+32], eax
		2410	ret
2648	mario79	2411	;------------------------------------------------------------------------------
2288	clevermous	2412	sysfn_min_rest_window:
		2413	pushad
		2414	mov eax, edx ; ebx - operating
		2415	shr ecx, 1
		2416	jnc @f
		2417	call pid_to_slot
		2418	@@:
		2419	or eax, eax ; eax - number of slot
		2420	jz .error
		2421	cmp eax, 255 ; varify maximal slot number
		2422	ja .error
		2423	movzx eax, word [WIN_STACK + eax*2]
		2424	shr ecx, 1
		2425	jc .restore
		2426	; .minimize:
		2427	call minimize_window
		2428	jmp .exit
		2429	.restore:
		2430	call restore_minimized_window
		2431	.exit:
		2432	popad
		2433	xor eax, eax
		2434	mov [esp+32], eax
		2435	ret
		2436	.error:
		2437	popad
		2438	xor eax, eax
		2439	dec eax
		2440	mov [esp+32], eax
		2441	ret
2648	mario79	2442	;------------------------------------------------------------------------------
		2443	sysfn_min_windows:
		2444	call minimize_all_window
		2445	mov [esp+32], eax
		2446	call change_task
		2447	ret
		2448	;------------------------------------------------------------------------------
2654	mario79	2449	sysfn_set_screen_sizes:
		2450	cmp [SCR_MODE], word 0x13
		2451	jbe .exit
		2452
		2453	cmp [_display.select_cursor], select_cursor
		2454	jne .exit
		2455
		2456	cmp ecx, [display_width_standard]
		2457	ja .exit
		2458
		2459	cmp edx, [display_height_standard]
		2460	ja .exit
		2461
		2462	pushfd
		2463	cli
		2464	mov eax, ecx
5351	serge	2465	mov ecx, [_display.lfb_pitch]
2654	mario79	2466	mov [_display.width], eax
		2467	dec eax
		2468	mov [_display.height], edx
		2469	dec edx
		2470	; eax - new Screen_Max_X
		2471	; edx - new Screen_Max_Y
		2472	mov [do_not_touch_winmap], 1
		2473	call set_screen
		2474	mov [do_not_touch_winmap], 0
		2475	popfd
		2476	call change_task
		2477	.exit:
		2478	ret
		2479	;------------------------------------------------------------------------------
2288	clevermous	2480	uglobal
		2481	screen_workarea RECT
2654	mario79	2482	display_width_standard dd 0
		2483	display_height_standard dd 0
		2484	do_not_touch_winmap db 0
2288	clevermous	2485	window_minimize db 0
		2486	sound_flag db 0
2654	mario79	2487
2288	clevermous	2488	endg
		2489
9279	Doczom	2490	;UID_NONE=0
		2491	;UID_KOLIBRI=2 ;russian
2288	clevermous	2492
		2493	iglobal
		2494	version_inf:
3454	mario79	2495	db 0,7,7,0 ; version 0.7.7.0
		2496	db 0
		2497	.rev dd __REV__
2288	clevermous	2498	version_end:
		2499	endg
2515	mario79	2500	;------------------------------------------------------------------------------
		2501	align 4
2288	clevermous	2502	sys_cachetodiskette:
		2503	cmp ebx, 1
4273	clevermous	2504	jb .no_floppy_save
2288	clevermous	2505	cmp ebx, 2
4273	clevermous	2506	ja .no_floppy_save
2288	clevermous	2507	call save_image
4273	clevermous	2508	mov [esp + 32], eax
		2509	ret
		2510	.no_floppy_save:
2288	clevermous	2511	mov [esp + 32], dword 1
		2512	ret
2515	mario79	2513	;------------------------------------------------------------------------------
2547	mario79	2514
2515	mario79	2515	align 4
2288	clevermous	2516	sys_getkey:
		2517	mov [esp + 32], dword 1
		2518	; test main buffer
8869	rgimad	2519	mov ebx, [current_slot_idx] ; TOP OF WINDOW STACK
2288	clevermous	2520	movzx ecx, word [WIN_STACK + ebx * 2]
8866	rgimad	2521	mov edx, [thread_count]
2288	clevermous	2522	cmp ecx, edx
		2523	jne .finish
		2524	cmp [KEY_COUNT], byte 0
		2525	je .finish
4588	mario79	2526	movzx ax, byte [KEY_BUFF + 120 + 2]
2288	clevermous	2527	shl eax, 8
4588	mario79	2528	mov al, byte [KEY_BUFF]
		2529	shl eax, 8
2288	clevermous	2530	push eax
		2531	dec byte [KEY_COUNT]
		2532	and byte [KEY_COUNT], 127
		2533	movzx ecx, byte [KEY_COUNT]
		2534	add ecx, 2
		2535	mov eax, KEY_BUFF + 1
		2536	mov ebx, KEY_BUFF
		2537	call memmove
4588	mario79	2538	add eax, 120 + 2
		2539	add ebx, 120 + 2
		2540	call memmove
2288	clevermous	2541	pop eax
2515	mario79	2542	;--------------------------------------
		2543	align 4
2288	clevermous	2544	.ret_eax:
		2545	mov [esp + 32], eax
		2546	ret
2515	mario79	2547	;--------------------------------------
		2548	align 4
2288	clevermous	2549	.finish:
		2550	; test hotkeys buffer
		2551	mov ecx, hotkey_buffer
2515	mario79	2552	;--------------------------------------
		2553	align 4
2288	clevermous	2554	@@:
		2555	cmp [ecx], ebx
		2556	jz .found
		2557	add ecx, 8
		2558	cmp ecx, hotkey_buffer + 120 * 8
		2559	jb @b
		2560	ret
2515	mario79	2561	;--------------------------------------
		2562	align 4
2288	clevermous	2563	.found:
		2564	mov ax, [ecx + 6]
		2565	shl eax, 16
		2566	mov ah, [ecx + 4]
		2567	mov al, 2
		2568	and dword [ecx + 4], 0
		2569	and dword [ecx], 0
		2570	jmp .ret_eax
2515	mario79	2571	;------------------------------------------------------------------------------
2288	clevermous	2572	align 4
		2573	sys_getbutton:
8869	rgimad	2574	mov ebx, [current_slot_idx] ; TOP OF WINDOW STACK
2288	clevermous	2575	mov [esp + 32], dword 1
		2576	movzx ecx, word [WIN_STACK + ebx * 2]
8866	rgimad	2577	mov edx, [thread_count] ; less than 256 processes
2288	clevermous	2578	cmp ecx, edx
		2579	jne .exit
		2580	movzx eax, byte [BTN_COUNT]
		2581	test eax, eax
		2582	jz .exit
		2583	mov eax, [BTN_BUFF]
		2584	and al, 0xFE ; delete left button bit
		2585	mov [BTN_COUNT], byte 0
		2586	mov [esp + 32], eax
2515	mario79	2587	;--------------------------------------
		2588	align 4
2288	clevermous	2589	.exit:
		2590	ret
2515	mario79	2591	;------------------------------------------------------------------------------
2288	clevermous	2592	align 4
		2593	sys_cpuusage:
		2594
		2595	; RETURN:
		2596	;
		2597	; +00 dword process cpu usage
		2598	; +04 word position in windowing stack
		2599	; +06 word windowing stack value at current position (cpu nro)
		2600	; +10 12 bytes name
		2601	; +22 dword start in mem
		2602	; +26 dword used mem
		2603	; +30 dword PID , process idenfification number
		2604	;
8246	rgimad	2605	; if given memory address belongs to kernel then error
8329	rgimad	2606	stdcall is_region_userspace, ebx, 0x4C
9045	dunkaist	2607	jnz .addr_error
2288	clevermous	2608
		2609	cmp ecx, -1 ; who am I ?
		2610	jne .no_who_am_i
8869	rgimad	2611	mov ecx, [current_slot_idx]
2288	clevermous	2612	.no_who_am_i:
		2613	cmp ecx, max_processes
		2614	ja .nofillbuf
		2615
		2616	; +4: word: position of the window of thread in the window stack
		2617	mov ax, [WIN_STACK + ecx * 2]
		2618	mov [ebx+4], ax
		2619	; +6: word: number of the thread slot, which window has in the window stack
		2620	; position ecx (has no relation to the specific thread)
		2621	mov ax, [WIN_POS + ecx * 2]
		2622	mov [ebx+6], ax
		2623
9590	Doczom	2624	shl ecx, 8 ;5=32 8=256
2288	clevermous	2625
		2626	; +0: dword: memory usage
9590	Doczom	2627	;mov eax, [ecx+TASK_TABLE+TASKDATA.cpu_usage]
		2628	mov eax, [ecx+SLOT_BASE+APPDATA.cpu_usage]
2288	clevermous	2629	mov [ebx], eax
		2630	; +10: 11 bytes: name of the process
		2631	push ecx
9591	Doczom	2632	lea eax, [ecx+SLOT_BASE+APPDATA.app_name]
2288	clevermous	2633	add ebx, 10
		2634	mov ecx, 11
		2635	call memmove
		2636	pop ecx
		2637
9591	Doczom	2638	shr ecx, 3
2288	clevermous	2639	; +22: address of the process in memory
		2640	; +26: size of used memory - 1
		2641	push edi
		2642	lea edi, [ebx+12]
		2643	xor eax, eax
		2644	mov edx, 0x100000*16
		2645	cmp ecx, 1 shl 5
		2646	je .os_mem
5130	serge	2647	mov edx, [SLOT_BASE+ecx*8+APPDATA.process]
		2648	mov edx, [edx+PROC.mem_used]
2288	clevermous	2649	mov eax, std_application_base_address
		2650	.os_mem:
		2651	stosd
		2652	lea eax, [edx-1]
		2653	stosd
		2654
		2655	; +30: PID/TID
8869	rgimad	2656	mov eax, [ecx+TASK_TABLE+TASKDATA.pid]
2288	clevermous	2657	stosd
		2658
		2659	; window position and size
		2660	push esi
		2661	lea esi, [ecx + window_data + WDATA.box]
		2662	movsd
		2663	movsd
		2664	movsd
		2665	movsd
		2666
		2667	; Process state (+50)
8869	rgimad	2668	movzx eax, byte [ecx+TASK_TABLE+TASKDATA.state]
2288	clevermous	2669	stosd
		2670
		2671	; Window client area box
		2672	lea esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
		2673	movsd
		2674	movsd
		2675	movsd
		2676	movsd
		2677
		2678	; Window state
		2679	mov al, [ecx+window_data+WDATA.fl_wstate]
		2680	stosb
		2681
		2682	; Event mask (+71)
8869	rgimad	2683	mov EAX, dword [ECX+TASK_TABLE+TASKDATA.event_mask]
2288	clevermous	2684	stosd
4286	Serge	2685
4262	0CodErr	2686	; Keyboard mode (+75)
		2687	mov al, byte [ecx*8 + SLOT_BASE + APPDATA.keyboard_mode]
4286	Serge	2688	stosb
2288	clevermous	2689
		2690	pop esi
		2691	pop edi
		2692
		2693	.nofillbuf:
		2694	; return number of processes
		2695
8866	rgimad	2696	mov eax, [thread_count]
2288	clevermous	2697	mov [esp+32], eax
		2698	ret
		2699
8246	rgimad	2700	.addr_error: ; if given memory address is illegal
8249	rgimad	2701	mov dword [esp+32], -1
8246	rgimad	2702	ret
		2703
2288	clevermous	2704	align 4
		2705	sys_clock:
		2706	cli
		2707	; Mikhail Lisovin xx Jan 2005
		2708	@@:
		2709	mov al, 10
		2710	out 0x70, al
		2711	in al, 0x71
		2712	test al, al
		2713	jns @f
		2714	mov esi, 1
		2715	call delay_ms
		2716	jmp @b
		2717	@@:
		2718	; end Lisovin's fix
		2719
		2720	xor al, al ; seconds
		2721	out 0x70, al
		2722	in al, 0x71
		2723	movzx ecx, al
		2724	mov al, 02 ; minutes
		2725	shl ecx, 16
		2726	out 0x70, al
		2727	in al, 0x71
		2728	movzx edx, al
		2729	mov al, 04 ; hours
		2730	shl edx, 8
		2731	out 0x70, al
		2732	in al, 0x71
		2733	add ecx, edx
		2734	movzx edx, al
		2735	add ecx, edx
		2736	sti
		2737	mov [esp + 32], ecx
		2738	ret
		2739
		2740
		2741	align 4
		2742
		2743	sys_date:
		2744
		2745	cli
		2746	@@:
		2747	mov al, 10
		2748	out 0x70, al
		2749	in al, 0x71
		2750	test al, al
		2751	jns @f
		2752	mov esi, 1
		2753	call delay_ms
		2754	jmp @b
		2755	@@:
		2756
		2757	mov ch, 0
		2758	mov al, 7 ; date
		2759	out 0x70, al
		2760	in al, 0x71
		2761	mov cl, al
		2762	mov al, 8 ; month
		2763	shl ecx, 16
		2764	out 0x70, al
		2765	in al, 0x71
		2766	mov ch, al
		2767	mov al, 9 ; year
		2768	out 0x70, al
		2769	in al, 0x71
		2770	mov cl, al
		2771	sti
		2772	mov [esp+32], ecx
		2773	ret
		2774
		2775
		2776	; redraw status
		2777
		2778	sys_redrawstat:
		2779	cmp ebx, 1
		2780	jne no_widgets_away
		2781	; buttons away
8869	rgimad	2782	mov ecx, [current_slot_idx]
2288	clevermous	2783	sys_newba2:
		2784	mov edi, [BTN_ADDR]
		2785	cmp [edi], dword 0 ; empty button list ?
		2786	je end_of_buttons_away
		2787	movzx ebx, word [edi]
		2788	inc ebx
		2789	mov eax, edi
		2790	sys_newba:
		2791	dec ebx
		2792	jz end_of_buttons_away
		2793
		2794	add eax, 0x10
		2795	cmp cx, [eax]
		2796	jnz sys_newba
		2797
		2798	push eax ebx ecx
		2799	mov ecx, ebx
		2800	inc ecx
		2801	shl ecx, 4
		2802	mov ebx, eax
		2803	add eax, 0x10
		2804	call memmove
		2805	dec dword [edi]
		2806	pop ecx ebx eax
		2807
		2808	jmp sys_newba2
		2809
		2810	end_of_buttons_away:
		2811
		2812	ret
		2813
		2814	no_widgets_away:
		2815
		2816	cmp ebx, 2
		2817	jnz srl1
		2818
		2819	mov edx, [TASK_BASE] ; return whole screen draw area for this app
8869	rgimad	2820	add edx, draw_data - TASK_TABLE
2288	clevermous	2821	mov [edx + RECT.left], 0
		2822	mov [edx + RECT.top], 0
5350	serge	2823	mov eax, [_display.width]
		2824	dec eax
2288	clevermous	2825	mov [edx + RECT.right], eax
5350	serge	2826	mov eax, [_display.height]
		2827	dec eax
2288	clevermous	2828	mov [edx + RECT.bottom], eax
		2829
		2830	srl1:
		2831	ret
		2832
		2833	;ok - 100% work
		2834	;nt - not tested
		2835	;---------------------------------------------------------------------------------------------
		2836	;eax
		2837	;0 - task switch counter. Ret switch counter in eax. Block. ok.
		2838	;1 - change task. Ret nothing. Block. ok.
		2839	;2 - performance control
		2840	; ebx
		2841	; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
		2842	; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
		2843	; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
		2844	; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
		2845	; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
		2846	;eax
		2847	;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		2848	;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		2849	;---------------------------------------------------------------------------------------------
		2850	iglobal
		2851	align 4
		2852	sheduler:
		2853	dd sys_sheduler.00
		2854	dd change_task
		2855	dd sys_sheduler.02
		2856	dd sys_sheduler.03
		2857	dd sys_sheduler.04
		2858	endg
		2859	sys_sheduler:
		2860	;rewritten by 29.12.2009
		2861	jmp dword [sheduler+ebx*4]
		2862	;.shed_counter:
		2863	.00:
		2864	mov eax, [context_counter]
		2865	mov [esp+32], eax
		2866	ret
		2867
		2868	.02:
		2869	;.perf_control:
		2870	inc ebx ;before ebx=2, ebx=3
		2871	cmp ebx, ecx ;if ecx=3, ebx=3
		2872	jz cache_disable
		2873
		2874	dec ebx ;ebx=2
		2875	cmp ebx, ecx ;
		2876	jz cache_enable ;if ecx=2 and ebx=2
		2877
		2878	dec ebx ;ebx=1
		2879	cmp ebx, ecx
		2880	jz is_cache_enabled ;if ecx=1 and ebx=1
		2881
		2882	dec ebx
		2883	test ebx, ecx ;ebx=0 and ecx=0
		2884	jz modify_pce ;if ecx=0
		2885
		2886	ret
		2887
		2888	.03:
		2889	;.rdmsr_instr:
		2890	;now counter in ecx
		2891	;(edx:eax) esi:edi => edx:esi
		2892	mov eax, esi
		2893	mov ecx, edx
		2894	rdmsr
		2895	mov [esp+32], eax
		2896	mov [esp+20], edx ;ret in ebx?
		2897	ret
		2898
		2899	.04:
		2900	;.wrmsr_instr:
		2901	;now counter in ecx
		2902	;(edx:eax) esi:edi => edx:esi
		2903	; Fast Call MSR can't be destroy
3539	clevermous	2904	; Но MSR_AMD_EFER можно изменять, т.к. в этом регистре лиш
		2905	; включаются/выключаются расширенные возможности
2288	clevermous	2906	cmp edx, MSR_SYSENTER_CS
		2907	je @f
		2908	cmp edx, MSR_SYSENTER_ESP
		2909	je @f
		2910	cmp edx, MSR_SYSENTER_EIP
		2911	je @f
		2912	cmp edx, MSR_AMD_STAR
		2913	je @f
		2914
		2915	mov eax, esi
		2916	mov ecx, edx
		2917	wrmsr
		2918	; mov [esp + 32], eax
		2919	; mov [esp + 20], edx ;ret in ebx?
		2920	@@:
		2921	ret
		2922
		2923	cache_disable:
		2924	mov eax, cr0
		2925	or eax, 01100000000000000000000000000000b
		2926	mov cr0, eax
		2927	wbinvd ;set MESI
		2928	ret
		2929
		2930	cache_enable:
		2931	mov eax, cr0
		2932	and eax, 10011111111111111111111111111111b
		2933	mov cr0, eax
		2934	ret
		2935
		2936	is_cache_enabled:
		2937	mov eax, cr0
		2938	mov ebx, eax
		2939	and eax, 01100000000000000000000000000000b
		2940	jz cache_disabled
		2941	mov [esp+32], ebx
		2942	cache_disabled:
		2943	mov dword [esp+32], eax;0
		2944	ret
		2945
		2946	modify_pce:
		2947	mov eax, cr4
		2948	; mov ebx,0
		2949	; or bx,100000000b ;pce
		2950	; xor eax,ebx ;invert pce
		2951	bts eax, 8;pce=cr4[8]
		2952	mov cr4, eax
		2953	mov [esp+32], eax
		2954	ret
		2955	;---------------------------------------------------------------------------------------------
		2956
		2957
		2958	iglobal
		2959	cpustring db 'CPU',0
		2960	endg
		2961
		2962	uglobal
		2963	background_defined db 0 ; diamond, 11.04.2006
		2964	endg
2513	mario79	2965	;-----------------------------------------------------------------------------
2288	clevermous	2966	align 4
		2967	checkmisc:
		2968	cmp [ctrl_alt_del], 1
		2969	jne nocpustart
		2970
		2971	mov ebp, cpustring
		2972	call fs_execute_from_sysdir
		2973
		2974	mov [ctrl_alt_del], 0
2513	mario79	2975	;--------------------------------------
		2976	align 4
2288	clevermous	2977	nocpustart:
		2978	cmp [mouse_active], 1
		2979	jne mouse_not_active
		2980	mov [mouse_active], 0
2411	Serge	2981
2288	clevermous	2982	xor edi, edi
8869	rgimad	2983	mov ebx, TASK_TABLE
2411	Serge	2984
8866	rgimad	2985	mov ecx, [thread_count]
2408	Serge	2986	movzx eax, word [WIN_POS + ecx*2] ; active window
		2987	shl eax, 8
2414	Serge	2988	push eax
2408	Serge	2989
2414	Serge	2990	movzx eax, word [MOUSE_X]
		2991	movzx edx, word [MOUSE_Y]
2513	mario79	2992	;--------------------------------------
2408	Serge	2993	align 4
		2994	.set_mouse_event:
8093	dunkaist	2995	add edi, sizeof.APPDATA
		2996	add ebx, sizeof.TASKDATA
2411	Serge	2997	test [ebx+TASKDATA.event_mask], 0x80000000
2414	Serge	2998	jz .pos_filter
		2999
		3000	cmp edi, [esp] ; skip if filtration active
		3001	jne .skip
2513	mario79	3002	;--------------------------------------
		3003	align 4
2414	Serge	3004	.pos_filter:
		3005	test [ebx+TASKDATA.event_mask], 0x40000000
2411	Serge	3006	jz .set
2288	clevermous	3007
2414	Serge	3008	mov esi, [ebx-twdw+WDATA.box.left]
		3009	cmp eax, esi
		3010	jb .skip
		3011	add esi, [ebx-twdw+WDATA.box.width]
		3012	cmp eax, esi
		3013	ja .skip
		3014
		3015	mov esi, [ebx-twdw+WDATA.box.top]
		3016	cmp edx, esi
		3017	jb .skip
		3018	add esi, [ebx-twdw+WDATA.box.height]
		3019	cmp edx, esi
		3020	ja .skip
2513	mario79	3021	;--------------------------------------
		3022	align 4
2411	Serge	3023	.set:
8876	rgimad	3024	or [edi+SLOT_BASE+APPDATA.occurred_events], EVENT_MOUSE
2513	mario79	3025	;--------------------------------------
		3026	align 4
2411	Serge	3027	.skip:
2408	Serge	3028	loop .set_mouse_event
		3029
2414	Serge	3030	pop eax
2513	mario79	3031	;--------------------------------------
		3032	align 4
2288	clevermous	3033	mouse_not_active:
6585	pathoswith	3034	cmp [REDRAW_BACKGROUND], 0 ; background update ?
2288	clevermous	3035	jz nobackgr
2524	mario79	3036
2288	clevermous	3037	cmp [background_defined], 0
		3038	jz nobackgr
2513	mario79	3039	;--------------------------------------
		3040	align 4
3536	clevermous	3041	backgr:
2537	mario79	3042	mov eax, [draw_data+32 + RECT.left]
		3043	shl eax, 16
		3044	add eax, [draw_data+32 + RECT.right]
		3045	mov [BG_Rect_X_left_right], eax ; [left]*65536 + [right]
		3046
		3047	mov eax, [draw_data+32 + RECT.top]
		3048	shl eax, 16
		3049	add eax, [draw_data+32 + RECT.bottom]
		3050	mov [BG_Rect_Y_top_bottom], eax ; [top]*65536 + [bottom]
		3051
2288	clevermous	3052	call drawbackground
2580	mario79	3053	; DEBUGF 1, "K : drawbackground\n"
2620	mario79	3054	; DEBUGF 1, "K : backg x %x\n",[BG_Rect_X_left_right]
		3055	; DEBUGF 1, "K : backg y %x\n",[BG_Rect_Y_top_bottom]
2513	mario79	3056	;--------- set event 5 start ----------
		3057	push ecx edi
		3058	xor edi, edi
8866	rgimad	3059	mov ecx, [thread_count]
2513	mario79	3060	;--------------------------------------
		3061	align 4
		3062	set_bgr_event:
8093	dunkaist	3063	add edi, sizeof.APPDATA
3536	clevermous	3064	mov eax, [BG_Rect_X_left_right]
		3065	mov edx, [BG_Rect_Y_top_bottom]
		3066	cmp [edi+SLOT_BASE+APPDATA.draw_bgr_x], 0
		3067	jz .set
		3068	.join:
3611	clevermous	3069	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
		3070	jae @f
		3071	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
		3072	@@:
		3073	shr eax, 16
3536	clevermous	3074	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
		3075	jbe @f
		3076	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
		3077	@@:
3611	clevermous	3078	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3536	clevermous	3079	jae @f
3611	clevermous	3080	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3536	clevermous	3081	@@:
3611	clevermous	3082	shr edx, 16
3536	clevermous	3083	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
		3084	jbe @f
		3085	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
		3086	@@:
		3087	jmp .common
		3088	.set:
		3089	mov [edi+SLOT_BASE+APPDATA.draw_bgr_x], eax
		3090	mov [edi+SLOT_BASE+APPDATA.draw_bgr_y], edx
		3091	.common:
8876	rgimad	3092	or [edi+SLOT_BASE+APPDATA.occurred_events], EVENT_BACKGROUND
2513	mario79	3093	loop set_bgr_event
		3094	pop edi ecx
		3095	;--------- set event 5 stop -----------
6585	pathoswith	3096	dec [REDRAW_BACKGROUND] ; got new update request?
3536	clevermous	3097	jnz backgr
2513	mario79	3098
3536	clevermous	3099	xor eax, eax
2288	clevermous	3100	mov [draw_data+32 + RECT.left], eax
		3101	mov [draw_data+32 + RECT.top], eax
		3102	mov [draw_data+32 + RECT.right], eax
		3103	mov [draw_data+32 + RECT.bottom], eax
2513	mario79	3104	;--------------------------------------
		3105	align 4
2288	clevermous	3106	nobackgr:
2513	mario79	3107	; system shutdown request
2288	clevermous	3108	cmp [SYS_SHUTDOWN], byte 0
		3109	je noshutdown
		3110
		3111	mov edx, [shutdown_processes]
		3112
		3113	cmp [SYS_SHUTDOWN], dl
3325	clevermous	3114	jne noshutdown
2288	clevermous	3115
		3116	lea ecx, [edx-1]
		3117	mov edx, OS_BASE+0x3040
3325	clevermous	3118	jecxz no_mark_system_shutdown
2513	mario79	3119	;--------------------------------------
		3120	align 4
2288	clevermous	3121	markz:
3296	clevermous	3122	push ecx edx
6122	hidnplayr	3123	cmp [edx+TASKDATA.state], TSTATE_FREE
3325	clevermous	3124	jz .nokill
8869	rgimad	3125	lea edx, [(edx-(TASK_TABLE and 1FFFFFFFh))*8+SLOT_BASE]
5130	serge	3126	cmp [edx+APPDATA.process], sys_proc
3325	clevermous	3127	jz .nokill
3296	clevermous	3128	call request_terminate
3325	clevermous	3129	jmp .common
		3130	.nokill:
		3131	dec byte [SYS_SHUTDOWN]
		3132	xor eax, eax
		3133	.common:
3296	clevermous	3134	pop edx ecx
		3135	test eax, eax
		3136	jz @f
6122	hidnplayr	3137	mov [edx+TASKDATA.state], TSTATE_ZOMBIE
3296	clevermous	3138	@@:
2288	clevermous	3139	add edx, 0x20
		3140	loop markz
3534	clevermous	3141	call wakeup_osloop
2513	mario79	3142	;--------------------------------------
		3143	align 4
2288	clevermous	3144	@@:
2513	mario79	3145	no_mark_system_shutdown:
2288	clevermous	3146	dec byte [SYS_SHUTDOWN]
		3147	je system_shutdown
2513	mario79	3148	;--------------------------------------
		3149	align 4
2288	clevermous	3150	noshutdown:
8866	rgimad	3151	mov eax, [thread_count] ; termination
2288	clevermous	3152	mov ebx, TASK_DATA+TASKDATA.state
		3153	mov esi, 1
2513	mario79	3154	;--------------------------------------
		3155	align 4
2288	clevermous	3156	newct:
		3157	mov cl, [ebx]
		3158	cmp cl, byte 3
3325	clevermous	3159	jz .terminate
2513	mario79	3160
2288	clevermous	3161	cmp cl, byte 4
3325	clevermous	3162	jnz .noterminate
		3163	.terminate:
		3164	pushad
3493	mario79	3165	mov ecx, eax
		3166	shl ecx, 8
		3167	add ecx, SLOT_BASE
		3168	call restore_default_cursor_before_killing
		3169	popad
		3170
		3171	pushad
3325	clevermous	3172	call terminate
		3173	popad
		3174	cmp byte [SYS_SHUTDOWN], 0
		3175	jz .noterminate
		3176	dec byte [SYS_SHUTDOWN]
		3177	je system_shutdown
2288	clevermous	3178
3325	clevermous	3179	.noterminate:
2288	clevermous	3180	add ebx, 0x20
		3181	inc esi
		3182	dec eax
		3183	jnz newct
		3184	ret
2513	mario79	3185	;-----------------------------------------------------------------------------
		3186	align 4
2288	clevermous	3187	redrawscreen:
		3188	; eax , if process window_data base is eax, do not set flag/limits
		3189
		3190	pushad
		3191	push eax
		3192
		3193	;;; mov ebx,2
		3194	;;; call delay_hs
		3195
		3196	;mov ecx,0 ; redraw flags for apps
		3197	xor ecx, ecx
2513	mario79	3198	;--------------------------------------
		3199	align 4
		3200	newdw2:
2288	clevermous	3201	inc ecx
		3202	push ecx
		3203
		3204	mov eax, ecx
		3205	shl eax, 5
		3206	add eax, window_data
		3207
		3208	cmp eax, [esp+4]
		3209	je not_this_task
		3210	; check if window in redraw area
		3211	mov edi, eax
		3212
		3213	cmp ecx, 1 ; limit for background
		3214	jz bgli
		3215
5870	GerdtR	3216	mov eax, [esp+4] ;if upper in z-position - no redraw
		3217	test eax, eax
		3218	jz @f
		3219	mov al, [eax + WDATA.z_modif]
		3220	cmp [edi + WDATA.z_modif], al
		3221	jg ricino
		3222	@@:
		3223
2288	clevermous	3224	mov eax, [edi + WDATA.box.left]
		3225	mov ebx, [edi + WDATA.box.top]
		3226
		3227	mov ecx, [draw_limits.bottom] ; ecx = area y end ebx = window y start
		3228	cmp ecx, ebx
		3229	jb ricino
		3230
		3231	mov ecx, [draw_limits.right] ; ecx = area x end eax = window x start
		3232	cmp ecx, eax
		3233	jb ricino
		3234
		3235	mov eax, [edi + WDATA.box.left]
		3236	mov ebx, [edi + WDATA.box.top]
		3237	mov ecx, [edi + WDATA.box.width]
		3238	mov edx, [edi + WDATA.box.height]
		3239	add ecx, eax
		3240	add edx, ebx
		3241
		3242	mov eax, [draw_limits.top] ; eax = area y start edx = window y end
		3243	cmp edx, eax
		3244	jb ricino
		3245
		3246	mov eax, [draw_limits.left] ; eax = area x start ecx = window x end
		3247	cmp ecx, eax
		3248	jb ricino
2513	mario79	3249	;--------------------------------------
		3250	align 4
		3251	bgli:
2288	clevermous	3252	cmp dword[esp], 1
		3253	jnz .az
2513	mario79	3254
6585	pathoswith	3255	cmp [REDRAW_BACKGROUND], 0
2288	clevermous	3256	jz .az
2513	mario79	3257
2288	clevermous	3258	mov dl, 0
		3259	lea eax, [edi+draw_data-window_data]
		3260	mov ebx, [draw_limits.left]
		3261	cmp ebx, [eax+RECT.left]
		3262	jae @f
2513	mario79	3263
2288	clevermous	3264	mov [eax+RECT.left], ebx
		3265	mov dl, 1
2513	mario79	3266	;--------------------------------------
		3267	align 4
		3268	@@:
2288	clevermous	3269	mov ebx, [draw_limits.top]
		3270	cmp ebx, [eax+RECT.top]
		3271	jae @f
2513	mario79	3272
2288	clevermous	3273	mov [eax+RECT.top], ebx
		3274	mov dl, 1
2513	mario79	3275	;--------------------------------------
		3276	align 4
		3277	@@:
2288	clevermous	3278	mov ebx, [draw_limits.right]
		3279	cmp ebx, [eax+RECT.right]
		3280	jbe @f
2513	mario79	3281
2288	clevermous	3282	mov [eax+RECT.right], ebx
		3283	mov dl, 1
2513	mario79	3284	;--------------------------------------
		3285	align 4
		3286	@@:
2288	clevermous	3287	mov ebx, [draw_limits.bottom]
		3288	cmp ebx, [eax+RECT.bottom]
		3289	jbe @f
2513	mario79	3290
2288	clevermous	3291	mov [eax+RECT.bottom], ebx
		3292	mov dl, 1
2513	mario79	3293	;--------------------------------------
		3294	align 4
		3295	@@:
6585	pathoswith	3296	add [REDRAW_BACKGROUND], dl
3534	clevermous	3297	call wakeup_osloop
2288	clevermous	3298	jmp newdw8
2513	mario79	3299	;--------------------------------------
		3300	align 4
		3301	.az:
2288	clevermous	3302	mov eax, edi
		3303	add eax, draw_data-window_data
		3304
		3305	mov ebx, [draw_limits.left] ; set limits
		3306	mov [eax + RECT.left], ebx
		3307	mov ebx, [draw_limits.top]
		3308	mov [eax + RECT.top], ebx
		3309	mov ebx, [draw_limits.right]
		3310	mov [eax + RECT.right], ebx
		3311	mov ebx, [draw_limits.bottom]
		3312	mov [eax + RECT.bottom], ebx
		3313
		3314	sub eax, draw_data-window_data
		3315
		3316	cmp dword [esp], 1
		3317	jne nobgrd
6585	pathoswith	3318	inc [REDRAW_BACKGROUND]
3534	clevermous	3319	call wakeup_osloop
2513	mario79	3320	;--------------------------------------
		3321	align 4
		3322	newdw8:
		3323	nobgrd:
3936	mario79	3324	;--------------------------------------
		3325	push eax edi ebp
		3326	mov edi, [esp+12]
		3327	cmp edi, 1
		3328	je .found
2288	clevermous	3329
3936	mario79	3330	mov eax, [draw_limits.left]
		3331	mov ebx, [draw_limits.top]
		3332	mov ecx, [draw_limits.right]
		3333	sub ecx, eax
		3334	test ecx, ecx
		3335	jz .not_found
		3336
		3337	mov edx, [draw_limits.bottom]
		3338	sub edx, ebx
		3339	test edx, edx
		3340	jz .not_found
		3341
		3342	; eax - x, ebx - y
		3343	; ecx - size x, edx - size y
		3344	add ebx, edx
		3345	;--------------------------------------
		3346	align 4
		3347	.start_y:
		3348	push ecx
		3349	;--------------------------------------
		3350	align 4
		3351	.start_x:
		3352	add eax, ecx
		3353	mov ebp, [d_width_calc_area + ebx*4]
5351	serge	3354	add ebp, [_display.win_map]
3936	mario79	3355	movzx ebp, byte[eax+ebp] ; get value for current point
		3356	cmp ebp, edi
		3357	jne @f
		3358
		3359	pop ecx
		3360	jmp .found
		3361	;--------------------------------------
		3362	align 4
		3363	@@:
		3364	sub eax, ecx
		3365
		3366	dec ecx
9221	dunkaist	3367	jns .start_x
3936	mario79	3368
		3369	pop ecx
		3370	dec ebx
		3371	dec edx
9221	dunkaist	3372	jns .start_y
3936	mario79	3373	;--------------------------------------
		3374	align 4
		3375	.not_found:
		3376	pop ebp edi eax
		3377	jmp ricino
		3378	;--------------------------------------
		3379	align 4
		3380	.found:
		3381	pop ebp edi eax
		3382
2288	clevermous	3383	mov [eax + WDATA.fl_redraw], byte 1 ; mark as redraw
2513	mario79	3384	;--------------------------------------
		3385	align 4
		3386	ricino:
		3387	not_this_task:
2288	clevermous	3388	pop ecx
		3389
8866	rgimad	3390	cmp ecx, [thread_count]
2288	clevermous	3391	jle newdw2
		3392
		3393	pop eax
		3394	popad
		3395	ret
2513	mario79	3396	;-----------------------------------------------------------------------------
		3397	align 4
2288	clevermous	3398	calculatebackground: ; background
5351	serge	3399	mov edi, [_display.win_map] ; set os to use all pixels
2288	clevermous	3400	mov eax, 0x01010101
5351	serge	3401	mov ecx, [_display.win_map_size]
2288	clevermous	3402	shr ecx, 2
		3403	rep stosd
6585	pathoswith	3404	mov byte[window_data+32+WDATA.z_modif], ZPOS_DESKTOP
		3405	mov [REDRAW_BACKGROUND], 0
2288	clevermous	3406	ret
2513	mario79	3407	;-----------------------------------------------------------------------------
2288	clevermous	3408	uglobal
		3409	imax dd 0x0
		3410	endg
2513	mario79	3411	;-----------------------------------------------------------------------------
		3412	align 4
2288	clevermous	3413	delay_ms: ; delay in 1/1000 sec
8139	dunkaist	3414	pushad
		3415
		3416	cmp [hpet_base], 0
		3417	jz .no_hpet
		3418	mov eax, esi
8176	dunkaist	3419	mov edx, 1_000_000 ; ms to ns
8139	dunkaist	3420	mul edx
		3421	mov ebx, edx
		3422	mov ecx, eax
		3423
2288	clevermous	3424	push ecx
8139	dunkaist	3425	call get_clock_ns
		3426	pop ecx
		3427	mov edi, edx
		3428	mov esi, eax
		3429	.wait:
		3430	push ecx
		3431	call get_clock_ns
		3432	pop ecx
		3433	sub eax, esi
		3434	sbb edx, edi
		3435	sub eax, ecx
		3436	sbb edx, ebx
		3437	jc .wait
		3438	jmp .done
2288	clevermous	3439
8139	dunkaist	3440	.no_hpet:
2288	clevermous	3441	mov ecx, esi
		3442	;
		3443	imul ecx, 33941
		3444	shr ecx, 9
		3445	;
		3446
		3447	in al, 0x61
		3448	and al, 0x10
		3449	mov ah, al
		3450	cld
8139	dunkaist	3451
		3452	.cnt1:
2288	clevermous	3453	in al, 0x61
		3454	and al, 0x10
		3455	cmp al, ah
8139	dunkaist	3456	jz .cnt1
2288	clevermous	3457
		3458	mov ah, al
8139	dunkaist	3459	loop .cnt1
2288	clevermous	3460
8139	dunkaist	3461	.done:
		3462	popad
2288	clevermous	3463	ret
2513	mario79	3464	;-----------------------------------------------------------------------------
2411	Serge	3465	align 4
2288	clevermous	3466	set_app_param:
		3467	mov edi, [TASK_BASE]
2408	Serge	3468	mov eax, ebx
		3469	xchg eax, [edi + TASKDATA.event_mask] ; set new event mask
		3470	mov [esp+32], eax ; return old mask value
2288	clevermous	3471	ret
2513	mario79	3472	;-----------------------------------------------------------------------------
3303	clevermous	3473
		3474	; this is for syscall
		3475	proc delay_hs_unprotected
		3476	call unprotect_from_terminate
		3477	call delay_hs
		3478	call protect_from_terminate
		3479	ret
		3480	endp
		3481
3597	Serge	3482	if 1
2513	mario79	3483	align 4
2288	clevermous	3484	delay_hs: ; delay in 1/100 secs
		3485	; ebx = delay time
		3486
3595	Serge	3487	pushad
		3488	push ebx
		3489	xor esi, esi
		3490	mov ecx, MANUAL_DESTROY
		3491	call create_event
		3492	test eax, eax
		3493	jz .done
2288	clevermous	3494
3595	Serge	3495	mov ebx, edx
		3496	mov ecx, [esp]
3597	Serge	3497	push edx
3595	Serge	3498	push eax
		3499	call wait_event_timeout
		3500	pop eax
3597	Serge	3501	pop ebx
3595	Serge	3502	call destroy_event
		3503	.done:
		3504	add esp, 4
		3505	popad
2288	clevermous	3506	ret
3596	Serge	3507
		3508	else
		3509
		3510	align 4
		3511	delay_hs: ; delay in 1/100 secs
		3512	; ebx = delay time
		3513	push ecx
		3514	push edx
		3515
		3516	mov edx, [timer_ticks]
		3517	;--------------------------------------
		3518	align 4
		3519	newtic:
		3520	mov ecx, [timer_ticks]
		3521	sub ecx, edx
		3522	cmp ecx, ebx
		3523	jae zerodelay
		3524
		3525	call change_task
		3526
		3527	jmp newtic
		3528	;--------------------------------------
		3529	align 4
		3530	zerodelay:
		3531	pop edx
		3532	pop ecx
		3533	ret
		3534	end if
		3535
2513	mario79	3536	;-----------------------------------------------------------------------------
2288	clevermous	3537	align 16 ;very often call this subrutine
		3538	memmove: ; memory move in bytes
		3539	; eax = from
		3540	; ebx = to
		3541	; ecx = no of bytes
		3542	test ecx, ecx
		3543	jle .ret
		3544
		3545	push esi edi ecx
		3546
		3547	mov edi, ebx
		3548	mov esi, eax
		3549
		3550	test ecx, not 11b
		3551	jz @f
		3552
		3553	push ecx
		3554	shr ecx, 2
		3555	rep movsd
		3556	pop ecx
		3557	and ecx, 11b
		3558	jz .finish
2513	mario79	3559	;--------------------------------------
		3560	align 4
		3561	@@:
2288	clevermous	3562	rep movsb
2513	mario79	3563	;--------------------------------------
		3564	align 4
		3565	.finish:
2288	clevermous	3566	pop ecx edi esi
2513	mario79	3567	;--------------------------------------
		3568	align 4
		3569	.ret:
2288	clevermous	3570	ret
2513	mario79	3571	;-----------------------------------------------------------------------------
2288	clevermous	3572
		3573	align 4
		3574	set_io_access_rights:
		3575	push edi eax
		3576	mov edi, tss._io_map_0
		3577	; mov ecx,eax
		3578	; and ecx,7 ; offset in byte
		3579	; shr eax,3 ; number of byte
		3580	; add edi,eax
		3581	; mov ebx,1
		3582	; shl ebx,cl
		3583	test ebp, ebp
		3584	; cmp ebp,0 ; enable access - ebp = 0
		3585	jnz .siar1
		3586	; not ebx
		3587	; and [edi],byte bl
		3588	btr [edi], eax
		3589	pop eax edi
		3590	ret
		3591	.siar1:
		3592	bts [edi], eax
		3593	; or [edi],byte bl ; disable access - ebp = 1
		3594	pop eax edi
		3595	ret
9279	Doczom	3596
		3597	align 4
		3598	syscall_reserveportarea: ; ReservePortArea and FreePortArea
		3599
		3600	call r_f_port_area
		3601	mov [esp+32], eax
		3602	ret
		3603
2288	clevermous	3604	;reserve/free group of ports
		3605	; * eax = 46 - number function
		3606	; * ebx = 0 - reserve, 1 - free
		3607	; * ecx = number start arrea of ports
		3608	; * edx = number end arrea of ports (include last number of port)
		3609	;Return value:
		3610	; * eax = 0 - succesful
		3611	; * eax = 1 - error
		3612	; * The system has reserve this ports:
		3613	; 0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
		3614	;destroys eax,ebx, ebp
		3615	r_f_port_area:
		3616
		3617	test ebx, ebx
		3618	jnz free_port_area
		3619	; je r_port_area
		3620	; jmp free_port_area
		3621
		3622	; r_port_area:
		3623
		3624	; pushad
		3625
		3626	cmp ecx, edx ; beginning > end ?
		3627	ja rpal1
		3628	cmp edx, 65536
		3629	jae rpal1
		3630	mov eax, [RESERVED_PORTS]
		3631	test eax, eax ; no reserved areas ?
		3632	je rpal2
		3633	cmp eax, 255 ; max reserved
		3634	jae rpal1
		3635	rpal3:
		3636	mov ebx, eax
		3637	shl ebx, 4
		3638	add ebx, RESERVED_PORTS
		3639	cmp ecx, [ebx+8]
		3640	ja rpal4
		3641	cmp edx, [ebx+4]
		3642	jae rpal1
		3643	; jb rpal4
		3644	; jmp rpal1
		3645	rpal4:
		3646	dec eax
		3647	jnz rpal3
		3648	jmp rpal2
		3649	rpal1:
		3650	; popad
		3651	; mov eax,1
		3652	xor eax, eax
		3653	inc eax
		3654	ret
		3655	rpal2:
		3656	; popad
		3657	; enable port access at port IO map
		3658	cli
		3659	pushad ; start enable io map
		3660
		3661	cmp edx, 65536;16384
		3662	jae no_unmask_io; jge
		3663	mov eax, ecx
		3664	; push ebp
		3665	xor ebp, ebp ; enable - eax = port
		3666	new_port_access:
		3667	; pushad
		3668	call set_io_access_rights
		3669	; popad
		3670	inc eax
		3671	cmp eax, edx
		3672	jbe new_port_access
		3673	; pop ebp
		3674	no_unmask_io:
		3675	popad ; end enable io map
		3676	sti
		3677
		3678	mov eax, [RESERVED_PORTS]
		3679	add eax, 1
		3680	mov [RESERVED_PORTS], eax
		3681	shl eax, 4
		3682	add eax, RESERVED_PORTS
		3683	mov ebx, [TASK_BASE]
		3684	mov ebx, [ebx+TASKDATA.pid]
		3685	mov [eax], ebx
		3686	mov [eax+4], ecx
		3687	mov [eax+8], edx
		3688
		3689	xor eax, eax
		3690	ret
		3691
		3692	free_port_area:
		3693
		3694	; pushad
		3695	mov eax, [RESERVED_PORTS]; no reserved areas ?
		3696	test eax, eax
		3697	jz frpal2
		3698	mov ebx, [TASK_BASE]
		3699	mov ebx, [ebx+TASKDATA.pid]
		3700	frpal3:
		3701	mov edi, eax
		3702	shl edi, 4
		3703	add edi, RESERVED_PORTS
		3704	cmp ebx, [edi]
		3705	jne frpal4
		3706	cmp ecx, [edi+4]
		3707	jne frpal4
		3708	cmp edx, [edi+8]
		3709	jne frpal4
		3710	jmp frpal1
		3711	frpal4:
		3712	dec eax
		3713	jnz frpal3
		3714	frpal2:
		3715	; popad
		3716	inc eax
		3717	ret
		3718	frpal1:
		3719	push ecx
		3720	mov ecx, 256
		3721	sub ecx, eax
		3722	shl ecx, 4
		3723	mov esi, edi
		3724	add esi, 16
		3725	cld
		3726	rep movsb
		3727
		3728	dec dword [RESERVED_PORTS]
		3729	;popad
		3730	;disable port access at port IO map
		3731
		3732	; pushad ; start disable io map
		3733	pop eax ;start port
		3734	cmp edx, 65536;16384
		3735	jge no_mask_io
		3736
		3737	; mov eax,ecx
		3738	xor ebp, ebp
		3739	inc ebp
		3740	new_port_access_disable:
		3741	; pushad
		3742	; mov ebp,1 ; disable - eax = port
		3743	call set_io_access_rights
		3744	; popad
		3745	inc eax
		3746	cmp eax, edx
		3747	jbe new_port_access_disable
		3748	no_mask_io:
		3749	; popad ; end disable io map
		3750	xor eax, eax
		3751	ret
2430	mario79	3752	;-----------------------------------------------------------------------------
2288	clevermous	3753	align 4
		3754	drawbackground:
2430	mario79	3755	dbrv20:
2288	clevermous	3756	cmp [BgrDrawMode], dword 1
		3757	jne bgrstr
		3758	call vesa20_drawbackground_tiled
2453	mario79	3759	; call [draw_pointer]
		3760	call __sys_draw_pointer
2288	clevermous	3761	ret
2430	mario79	3762	;--------------------------------------
		3763	align 4
		3764	bgrstr:
2288	clevermous	3765	call vesa20_drawbackground_stretch
2453	mario79	3766	; call [draw_pointer]
		3767	call __sys_draw_pointer
2288	clevermous	3768	ret
2430	mario79	3769	;-----------------------------------------------------------------------------
2288	clevermous	3770	align 4
		3771	syscall_putimage: ; PutImage
8714	Doczom	3772	; add check pointer
		3773	push ecx
		3774	mov ax, cx
		3775	shr ecx, 16
		3776	imul eax, ecx
		3777	lea eax, [eax*3]
		3778	stdcall is_region_userspace, ebx, eax
		3779	pop ecx
9045	dunkaist	3780	jnz sys_putimage.exit
8714	Doczom	3781
2288	clevermous	3782	sys_putimage:
		3783	test ecx, 0x80008000
		3784	jnz .exit
		3785	test ecx, 0x0000FFFF
		3786	jz .exit
		3787	test ecx, 0xFFFF0000
		3788	jnz @f
2430	mario79	3789	;--------------------------------------
		3790	align 4
		3791	.exit:
2288	clevermous	3792	ret
2430	mario79	3793	;--------------------------------------
		3794	align 4
		3795	@@:
2288	clevermous	3796	mov edi, [current_slot]
		3797	add dx, word[edi+APPDATA.wnd_clientbox.top]
		3798	rol edx, 16
		3799	add dx, word[edi+APPDATA.wnd_clientbox.left]
		3800	rol edx, 16
2430	mario79	3801	;--------------------------------------
		3802	align 4
		3803	.forced:
2288	clevermous	3804	push ebp esi 0
		3805	mov ebp, putimage_get24bpp
		3806	mov esi, putimage_init24bpp
2430	mario79	3807	;--------------------------------------
		3808	align 4
2288	clevermous	3809	sys_putimage_bpp:
2430	mario79	3810	call vesa20_putimage
2288	clevermous	3811	pop ebp esi ebp
2430	mario79	3812	ret
		3813	; jmp [draw_pointer]
		3814	;-----------------------------------------------------------------------------
2288	clevermous	3815	align 4
		3816	sys_putimage_palette:
		3817	; ebx = pointer to image
		3818	; ecx = [xsize]*65536 + [ysize]
		3819	; edx = [xstart]*65536 + [ystart]
		3820	; esi = number of bits per pixel, must be 8, 24 or 32
		3821	; edi = pointer to palette
		3822	; ebp = row delta
8715	Doczom	3823	; check pointer
		3824	push ecx
		3825	mov ax, cx
		3826	shr ecx, 16
		3827	imul eax, ecx
		3828	stdcall is_region_userspace, ebx, eax
		3829	pop ecx
9045	dunkaist	3830	jnz sys_putimage.exit
8715	Doczom	3831
8869	rgimad	3832	mov eax, [current_slot_idx]
2288	clevermous	3833	shl eax, 8
		3834	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
		3835	rol edx, 16
		3836	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
		3837	rol edx, 16
2430	mario79	3838	;--------------------------------------
		3839	align 4
2288	clevermous	3840	.forced:
		3841	cmp esi, 1
		3842	jnz @f
		3843	push edi
		3844	mov eax, [edi+4]
		3845	sub eax, [edi]
		3846	push eax
		3847	push dword [edi]
		3848	push 0ffffff80h
		3849	mov edi, esp
		3850	call put_mono_image
		3851	add esp, 12
		3852	pop edi
		3853	ret
2430	mario79	3854	;--------------------------------------
		3855	align 4
2288	clevermous	3856	@@:
		3857	cmp esi, 2
		3858	jnz @f
		3859	push edi
		3860	push 0ffffff80h
		3861	mov edi, esp
		3862	call put_2bit_image
		3863	pop eax
		3864	pop edi
		3865	ret
2430	mario79	3866	;--------------------------------------
		3867	align 4
2288	clevermous	3868	@@:
		3869	cmp esi, 4
		3870	jnz @f
		3871	push edi
		3872	push 0ffffff80h
		3873	mov edi, esp
		3874	call put_4bit_image
		3875	pop eax
		3876	pop edi
		3877	ret
2430	mario79	3878	;--------------------------------------
		3879	align 4
2288	clevermous	3880	@@:
		3881	push ebp esi ebp
		3882	cmp esi, 8
		3883	jnz @f
		3884	mov ebp, putimage_get8bpp
		3885	mov esi, putimage_init8bpp
		3886	jmp sys_putimage_bpp
2430	mario79	3887	;--------------------------------------
		3888	align 4
2288	clevermous	3889	@@:
2727	dunkaist	3890	cmp esi, 9
		3891	jnz @f
		3892	mov ebp, putimage_get9bpp
		3893	mov esi, putimage_init9bpp
		3894	jmp sys_putimage_bpp
		3895	;--------------------------------------
		3896	align 4
		3897	@@:
2288	clevermous	3898	cmp esi, 15
		3899	jnz @f
		3900	mov ebp, putimage_get15bpp
		3901	mov esi, putimage_init15bpp
		3902	jmp sys_putimage_bpp
2430	mario79	3903	;--------------------------------------
		3904	align 4
2288	clevermous	3905	@@:
		3906	cmp esi, 16
		3907	jnz @f
		3908	mov ebp, putimage_get16bpp
		3909	mov esi, putimage_init16bpp
		3910	jmp sys_putimage_bpp
2430	mario79	3911	;--------------------------------------
		3912	align 4
2288	clevermous	3913	@@:
		3914	cmp esi, 24
		3915	jnz @f
		3916	mov ebp, putimage_get24bpp
		3917	mov esi, putimage_init24bpp
		3918	jmp sys_putimage_bpp
2430	mario79	3919	;--------------------------------------
		3920	align 4
2288	clevermous	3921	@@:
		3922	cmp esi, 32
		3923	jnz @f
		3924	mov ebp, putimage_get32bpp
		3925	mov esi, putimage_init32bpp
		3926	jmp sys_putimage_bpp
2430	mario79	3927	;--------------------------------------
		3928	align 4
2288	clevermous	3929	@@:
		3930	pop ebp esi ebp
		3931	ret
2430	mario79	3932	;-----------------------------------------------------------------------------
		3933	align 4
2288	clevermous	3934	put_mono_image:
		3935	push ebp esi ebp
		3936	mov ebp, putimage_get1bpp
		3937	mov esi, putimage_init1bpp
		3938	jmp sys_putimage_bpp
2430	mario79	3939	;-----------------------------------------------------------------------------
		3940	align 4
2288	clevermous	3941	put_2bit_image:
		3942	push ebp esi ebp
		3943	mov ebp, putimage_get2bpp
		3944	mov esi, putimage_init2bpp
		3945	jmp sys_putimage_bpp
2430	mario79	3946	;-----------------------------------------------------------------------------
		3947	align 4
2288	clevermous	3948	put_4bit_image:
		3949	push ebp esi ebp
		3950	mov ebp, putimage_get4bpp
		3951	mov esi, putimage_init4bpp
		3952	jmp sys_putimage_bpp
2430	mario79	3953	;-----------------------------------------------------------------------------
		3954	align 4
2288	clevermous	3955	putimage_init24bpp:
		3956	lea eax, [eax*3]
		3957	putimage_init8bpp:
2727	dunkaist	3958	putimage_init9bpp:
2288	clevermous	3959	ret
2430	mario79	3960	;-----------------------------------------------------------------------------
2288	clevermous	3961	align 16
		3962	putimage_get24bpp:
		3963	movzx eax, byte [esi+2]
		3964	shl eax, 16
		3965	mov ax, [esi]
		3966	add esi, 3
		3967	ret 4
2430	mario79	3968	;-----------------------------------------------------------------------------
2288	clevermous	3969	align 16
		3970	putimage_get8bpp:
		3971	movzx eax, byte [esi]
		3972	push edx
		3973	mov edx, [esp+8]
		3974	mov eax, [edx+eax*4]
		3975	pop edx
		3976	inc esi
		3977	ret 4
2430	mario79	3978	;-----------------------------------------------------------------------------
2727	dunkaist	3979	align 16
		3980	putimage_get9bpp:
		3981	lodsb
		3982	mov ah, al
		3983	shl eax, 8
		3984	mov al, ah
		3985	ret 4
		3986	;-----------------------------------------------------------------------------
2430	mario79	3987	align 4
2288	clevermous	3988	putimage_init1bpp:
		3989	add eax, ecx
		3990	push ecx
		3991	add eax, 7
		3992	add ecx, 7
		3993	shr eax, 3
		3994	shr ecx, 3
		3995	sub eax, ecx
		3996	pop ecx
		3997	ret
2430	mario79	3998	;-----------------------------------------------------------------------------
2288	clevermous	3999	align 16
		4000	putimage_get1bpp:
		4001	push edx
		4002	mov edx, [esp+8]
		4003	mov al, [edx]
		4004	add al, al
		4005	jnz @f
		4006	lodsb
		4007	adc al, al
		4008	@@:
		4009	mov [edx], al
		4010	sbb eax, eax
		4011	and eax, [edx+8]
		4012	add eax, [edx+4]
		4013	pop edx
		4014	ret 4
2430	mario79	4015	;-----------------------------------------------------------------------------
		4016	align 4
2288	clevermous	4017	putimage_init2bpp:
		4018	add eax, ecx
		4019	push ecx
		4020	add ecx, 3
		4021	add eax, 3
		4022	shr ecx, 2
		4023	shr eax, 2
		4024	sub eax, ecx
		4025	pop ecx
		4026	ret
2430	mario79	4027	;-----------------------------------------------------------------------------
2288	clevermous	4028	align 16
		4029	putimage_get2bpp:
		4030	push edx
		4031	mov edx, [esp+8]
		4032	mov al, [edx]
		4033	mov ah, al
		4034	shr al, 6
		4035	shl ah, 2
		4036	jnz .nonewbyte
		4037	lodsb
		4038	mov ah, al
		4039	shr al, 6
		4040	shl ah, 2
		4041	add ah, 1
		4042	.nonewbyte:
		4043	mov [edx], ah
		4044	mov edx, [edx+4]
		4045	movzx eax, al
		4046	mov eax, [edx+eax*4]
		4047	pop edx
		4048	ret 4
2430	mario79	4049	;-----------------------------------------------------------------------------
		4050	align 4
2288	clevermous	4051	putimage_init4bpp:
		4052	add eax, ecx
		4053	push ecx
		4054	add ecx, 1
9268	Doczom	4055	inc eax ;add eax, 1
2288	clevermous	4056	shr ecx, 1
		4057	shr eax, 1
		4058	sub eax, ecx
		4059	pop ecx
		4060	ret
2430	mario79	4061	;-----------------------------------------------------------------------------
2288	clevermous	4062	align 16
		4063	putimage_get4bpp:
		4064	push edx
		4065	mov edx, [esp+8]
		4066	add byte [edx], 80h
		4067	jc @f
		4068	movzx eax, byte [edx+1]
		4069	mov edx, [edx+4]
		4070	and eax, 0x0F
		4071	mov eax, [edx+eax*4]
		4072	pop edx
		4073	ret 4
		4074	@@:
		4075	movzx eax, byte [esi]
		4076	add esi, 1
		4077	mov [edx+1], al
		4078	shr eax, 4
		4079	mov edx, [edx+4]
		4080	mov eax, [edx+eax*4]
		4081	pop edx
		4082	ret 4
2430	mario79	4083	;-----------------------------------------------------------------------------
		4084	align 4
2288	clevermous	4085	putimage_init32bpp:
		4086	shl eax, 2
		4087	ret
2430	mario79	4088	;-----------------------------------------------------------------------------
2288	clevermous	4089	align 16
		4090	putimage_get32bpp:
		4091	lodsd
		4092	ret 4
2430	mario79	4093	;-----------------------------------------------------------------------------
		4094	align 4
2288	clevermous	4095	putimage_init15bpp:
		4096	putimage_init16bpp:
		4097	add eax, eax
		4098	ret
2430	mario79	4099	;-----------------------------------------------------------------------------
2288	clevermous	4100	align 16
		4101	putimage_get15bpp:
		4102	; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
		4103	push ecx edx
		4104	movzx eax, word [esi]
		4105	add esi, 2
		4106	mov ecx, eax
		4107	mov edx, eax
		4108	and eax, 0x1F
		4109	and ecx, 0x1F shl 5
		4110	and edx, 0x1F shl 10
		4111	shl eax, 3
		4112	shl ecx, 6
		4113	shl edx, 9
		4114	or eax, ecx
		4115	or eax, edx
		4116	pop edx ecx
		4117	ret 4
2430	mario79	4118	;-----------------------------------------------------------------------------
2288	clevermous	4119	align 16
		4120	putimage_get16bpp:
		4121	; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
		4122	push ecx edx
		4123	movzx eax, word [esi]
		4124	add esi, 2
		4125	mov ecx, eax
		4126	mov edx, eax
		4127	and eax, 0x1F
		4128	and ecx, 0x3F shl 5
		4129	and edx, 0x1F shl 11
		4130	shl eax, 3
		4131	shl ecx, 5
		4132	shl edx, 8
		4133	or eax, ecx
		4134	or eax, edx
		4135	pop edx ecx
		4136	ret 4
2430	mario79	4137	;-----------------------------------------------------------------------------
		4138	;align 4
2288	clevermous	4139	; eax x beginning
		4140	; ebx y beginning
		4141	; ecx x end
		4142	; edx y end
		4143	; edi color
2430	mario79	4144	;__sys_drawbar:
		4145	; mov esi, [current_slot]
		4146	; add eax, [esi+APPDATA.wnd_clientbox.left]
		4147	; add ecx, [esi+APPDATA.wnd_clientbox.left]
		4148	; add ebx, [esi+APPDATA.wnd_clientbox.top]
		4149	; add edx, [esi+APPDATA.wnd_clientbox.top]
		4150	;--------------------------------------
		4151	;align 4
		4152	;.forced:
		4153	; call vesa20_drawbar
2407	mario79	4154	; call [draw_pointer]
		4155	; ret
2430	mario79	4156	;-----------------------------------------------------------------------------
		4157	align 4
5012	clevermous	4158	kb_write_wait_ack:
2288	clevermous	4159
		4160	push ecx edx
		4161
		4162	mov dl, al
		4163	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
5012	clevermous	4164	.wait_output_ready:
2288	clevermous	4165	in al, 0x64
		4166	test al, 2
5012	clevermous	4167	jz @f
		4168	loop .wait_output_ready
2288	clevermous	4169	mov ah, 1
5012	clevermous	4170	jmp .nothing
		4171	@@:
2288	clevermous	4172	mov al, dl
		4173	out 0x60, al
5012	clevermous	4174	mov ecx, 0xfffff; last 0xffff, new value in view of fast CPU's
		4175	.wait_ack:
2288	clevermous	4176	in al, 0x64
5012	clevermous	4177	test al, 1
		4178	jnz @f
		4179	loop .wait_ack
2288	clevermous	4180	mov ah, 1
5012	clevermous	4181	jmp .nothing
		4182	@@:
		4183	in al, 0x60
2288	clevermous	4184	xor ah, ah
		4185
5012	clevermous	4186	.nothing:
2288	clevermous	4187	pop edx ecx
		4188
		4189	ret
2430	mario79	4190	;-----------------------------------------------------------------------------
2288	clevermous	4191
		4192	if used _rdtsc
		4193	_rdtsc:
		4194	bt [cpu_caps], CAPS_TSC
		4195	jnc ret_rdtsc
		4196	rdtsc
		4197	ret
		4198	ret_rdtsc:
		4199	mov edx, 0xffffffff
		4200	mov eax, 0xffffffff
		4201	ret
		4202	end if
		4203
		4204	sys_msg_board_str:
		4205
		4206	pushad
		4207	@@:
		4208	cmp [esi], byte 0
		4209	je @f
3614	shikhin	4210	mov ebx, 1
		4211	movzx ecx, byte [esi]
2288	clevermous	4212	call sys_msg_board
		4213	inc esi
		4214	jmp @b
		4215	@@:
		4216	popad
		4217	ret
		4218
		4219	sys_msg_board_byte:
		4220	; in: al = byte to display
		4221	; out: nothing
		4222	; destroys: nothing
		4223	pushad
		4224	mov ecx, 2
		4225	shl eax, 24
		4226	jmp @f
		4227
		4228	sys_msg_board_word:
		4229	; in: ax = word to display
		4230	; out: nothing
		4231	; destroys: nothing
		4232	pushad
		4233	mov ecx, 4
		4234	shl eax, 16
		4235	jmp @f
		4236
		4237	sys_msg_board_dword:
		4238	; in: eax = dword to display
		4239	; out: nothing
		4240	; destroys: nothing
		4241	pushad
		4242	mov ecx, 8
		4243	@@:
		4244	push ecx
		4245	rol eax, 4
		4246	push eax
		4247	and al, 0xF
		4248	cmp al, 10
		4249	sbb al, 69h
		4250	das
3614	shikhin	4251	mov cl, al
		4252	xor ebx, ebx
		4253	inc ebx
2288	clevermous	4254	call sys_msg_board
		4255	pop eax
		4256	pop ecx
		4257	loop @b
		4258	popad
		4259	ret
		4260
3392	clevermous	4261	msg_board_data_size = 65536 ; Must be power of two
		4262
2288	clevermous	4263	uglobal
6501	pathoswith	4264	msg_board_data rb msg_board_data_size
		4265	msg_board_count dd ?
2288	clevermous	4266	endg
		4267
6501	pathoswith	4268	iglobal
		4269	msg_board_pos dd 42665536+10 ; for printing debug output on the screen
		4270	endg
		4271
2288	clevermous	4272	sys_msg_board:
6501	pathoswith	4273	; ebx=1 -> write, cl = byte to write
		4274	; ebx=2 -> read, ecx=0 -> no data, ecx=1 -> data in al
		4275	push eax ebx
3614	shikhin	4276	mov eax, ebx
		4277	mov ebx, ecx
2288	clevermous	4278	mov ecx, [msg_board_count]
		4279	cmp eax, 1
6501	pathoswith	4280	jne .read
2288	clevermous	4281
		4282	if defined debug_com_base
		4283	push dx ax
6501	pathoswith	4284	@@: ; wait for empty transmit register
2288	clevermous	4285	mov dx, debug_com_base+5
		4286	in al, dx
		4287	test al, 1 shl 5
		4288	jz @r
		4289	mov dx, debug_com_base ; Output the byte
		4290	mov al, bl
		4291	out dx, al
		4292	pop ax dx
		4293	end if
		4294
		4295	mov [msg_board_data+ecx], bl
3777	yogev_ezra	4296	cmp byte [debug_direct_print], 1
6501	pathoswith	4297	jnz .end
3507	clevermous	4298	pusha
		4299	lea edx, [msg_board_data+ecx]
		4300	mov ecx, 0x40FFFFFF
		4301	mov ebx, [msg_board_pos]
		4302	mov edi, 1
9268	Doczom	4303	mov esi, edi ;1
3507	clevermous	4304	call dtext
		4305	popa
		4306	add word [msg_board_pos+2], 6
6501	pathoswith	4307	cmp word [msg_board_pos+2], 105*6
		4308	jnc @f
3507	clevermous	4309	cmp bl, 10
6501	pathoswith	4310	jnz .end
		4311	@@:
		4312	mov word [msg_board_pos+2], 42*6
3507	clevermous	4313	add word [msg_board_pos], 10
6501	pathoswith	4314	mov eax, [_display.height]
		4315	sub eax, 10
		4316	cmp ax, word [msg_board_pos]
		4317	jnc @f
3507	clevermous	4318	mov word [msg_board_pos], 10
		4319	@@:
3534	clevermous	4320	pusha
6501	pathoswith	4321	mov eax, [msg_board_pos]
		4322	movzx ebx, ax
		4323	shr eax, 16
		4324	mov edx, 105*6
		4325	xor ecx, ecx
		4326	mov edi, 1
		4327	mov esi, 9
		4328	@@:
		4329	call hline
		4330	inc ebx
		4331	dec esi
		4332	jnz @b
3534	clevermous	4333	popa
6501	pathoswith	4334	.end:
2288	clevermous	4335	inc ecx
3392	clevermous	4336	and ecx, msg_board_data_size - 1
2288	clevermous	4337	mov [msg_board_count], ecx
6501	pathoswith	4338	.ret:
3614	shikhin	4339	pop ebx eax
2288	clevermous	4340	ret
6501	pathoswith	4341
		4342	@@:
		4343	mov [esp+32], ecx
		4344	mov [esp+20], ecx
		4345	jmp .ret
		4346
		4347	.read:
2288	clevermous	4348	cmp eax, 2
6501	pathoswith	4349	jne .ret
2288	clevermous	4350	test ecx, ecx
6501	pathoswith	4351	jz @b
		4352	add esp, 8 ; returning data in ebx and eax, so no need to restore them
2288	clevermous	4353	mov eax, msg_board_data+1
		4354	mov ebx, msg_board_data
		4355	movzx edx, byte [ebx]
		4356	call memmove
		4357	dec [msg_board_count]
3614	shikhin	4358	mov [esp + 32], edx ;eax
		4359	mov [esp + 20], dword 1
2288	clevermous	4360	ret
		4361
		4362	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4363	;; 66 sys function. ;;
		4364	;; in eax=66,ebx in [0..5],ecx,edx ;;
		4365	;; out eax ;;
		4366	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4367	iglobal
		4368	align 4
		4369	f66call:
		4370	dd sys_process_def.1 ; 1 = set keyboard mode
		4371	dd sys_process_def.2 ; 2 = get keyboard mode
		4372	dd sys_process_def.3 ; 3 = get keyboard ctrl, alt, shift
2709	mario79	4373	dd sys_process_def.4 ; 4 = set system-wide hotkey
		4374	dd sys_process_def.5 ; 5 = delete installed hotkey
		4375	dd sys_process_def.6 ; 6 = disable input, work only hotkeys
		4376	dd sys_process_def.7 ; 7 = enable input, opposition to f.66.6
2288	clevermous	4377	endg
2709	mario79	4378	;-----------------------------------------------------------------------------
		4379	align 4
2288	clevermous	4380	sys_process_def:
		4381	dec ebx
2709	mario79	4382	cmp ebx, 7
		4383	jae .not_support ;if >=8 then or eax,-1
2288	clevermous	4384
8869	rgimad	4385	mov edi, [current_slot_idx]
2288	clevermous	4386	jmp dword [f66call+ebx*4]
		4387
		4388	.not_support:
		4389	or eax, -1
		4390	ret
2709	mario79	4391	;-----------------------------------------------------------------------------
		4392	align 4
2288	clevermous	4393	.1:
		4394	shl edi, 8
		4395	mov [edi+SLOT_BASE + APPDATA.keyboard_mode], cl
		4396
		4397	ret
2709	mario79	4398	;-----------------------------------------------------------------------------
		4399	align 4
2288	clevermous	4400	.2: ; 2 = get keyboard mode
		4401	shl edi, 8
		4402	movzx eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
		4403	mov [esp+32], eax
		4404	ret
2709	mario79	4405	;-----------------------------------------------------------------------------
		4406	align 4
2288	clevermous	4407	.3: ;3 = get keyboard ctrl, alt, shift
		4408	mov eax, [kb_state]
		4409	mov [esp+32], eax
		4410	ret
2709	mario79	4411	;-----------------------------------------------------------------------------
		4412	align 4
2288	clevermous	4413	.4:
		4414	mov eax, hotkey_list
		4415	@@:
		4416	cmp dword [eax+8], 0
		4417	jz .found_free
		4418	add eax, 16
		4419	cmp eax, hotkey_list+16*256
		4420	jb @b
		4421	mov dword [esp+32], 1
		4422	ret
		4423	.found_free:
		4424	mov [eax+8], edi
		4425	mov [eax+4], edx
		4426	movzx ecx, cl
		4427	lea ecx, [hotkey_scancodes+ecx*4]
		4428	mov edx, [ecx]
		4429	mov [eax], edx
		4430	mov [ecx], eax
		4431	mov [eax+12], ecx
3383	hidnplayr	4432	test edx, edx
		4433	jz @f
2288	clevermous	4434	mov [edx+12], eax
		4435	@@:
		4436	and dword [esp+32], 0
		4437	ret
2709	mario79	4438	;-----------------------------------------------------------------------------
		4439	align 4
2288	clevermous	4440	.5:
		4441	movzx ebx, cl
		4442	lea ebx, [hotkey_scancodes+ebx*4]
		4443	mov eax, [ebx]
		4444	.scan:
		4445	test eax, eax
		4446	jz .notfound
		4447	cmp [eax+8], edi
		4448	jnz .next
		4449	cmp [eax+4], edx
		4450	jz .found
		4451	.next:
		4452	mov eax, [eax]
		4453	jmp .scan
		4454	.notfound:
		4455	mov dword [esp+32], 1
		4456	ret
		4457	.found:
		4458	mov ecx, [eax]
		4459	jecxz @f
		4460	mov edx, [eax+12]
		4461	mov [ecx+12], edx
		4462	@@:
		4463	mov ecx, [eax+12]
		4464	mov edx, [eax]
		4465	mov [ecx], edx
		4466	xor edx, edx
		4467	mov [eax+4], edx
		4468	mov [eax+8], edx
		4469	mov [eax+12], edx
		4470	mov [eax], edx
		4471	mov [esp+32], edx
		4472	ret
2709	mario79	4473	;-----------------------------------------------------------------------------
		4474	align 4
		4475	.6:
		4476	pushfd
		4477	cli
		4478	mov eax, [PID_lock_input]
		4479	test eax, eax
		4480	jnz @f
		4481	; get current PID
8869	rgimad	4482	mov eax, [current_slot_idx]
2709	mario79	4483	shl eax, 5
8869	rgimad	4484	mov eax, [eax+TASK_TABLE+TASKDATA.pid]
2709	mario79	4485	; set current PID for lock input
		4486	mov [PID_lock_input], eax
		4487	@@:
		4488	popfd
		4489	ret
		4490	;-----------------------------------------------------------------------------
		4491	align 4
		4492	.7:
		4493	mov eax, [PID_lock_input]
		4494	test eax, eax
		4495	jz @f
		4496	; get current PID
8869	rgimad	4497	mov ebx, [current_slot_idx]
2709	mario79	4498	shl ebx, 5
8869	rgimad	4499	mov ebx, [ebx+TASK_TABLE+TASKDATA.pid]
2709	mario79	4500	; compare current lock input with current PID
		4501	cmp ebx, eax
		4502	jne @f
2288	clevermous	4503
2709	mario79	4504	xor eax, eax
		4505	mov [PID_lock_input], eax
		4506	@@:
		4507	ret
		4508	;-----------------------------------------------------------------------------
		4509	uglobal
		4510	PID_lock_input dd 0x0
		4511	endg
2288	clevermous	4512	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4513	;; 61 sys function. ;;
		4514	;; in eax=61,ebx in [1..3] ;;
		4515	;; out eax ;;
		4516	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4517	iglobal
		4518	align 4
		4519	f61call:
		4520	dd sys_gs.1 ; resolution
		4521	dd sys_gs.2 ; bits per pixel
		4522	dd sys_gs.3 ; bytes per scanline
		4523	endg
		4524
		4525
		4526	align 4
		4527
		4528	sys_gs: ; direct screen access
		4529	dec ebx
		4530	cmp ebx, 2
		4531	ja .not_support
		4532	jmp dword [f61call+ebx*4]
		4533	.not_support:
		4534	or [esp+32], dword -1
		4535	ret
		4536
		4537
		4538	.1: ; resolution
5350	serge	4539	mov eax, [_display.width]
2288	clevermous	4540	shl eax, 16
5350	serge	4541	mov ax, word [_display.height]
2288	clevermous	4542	mov [esp+32], eax
		4543	ret
		4544	.2: ; bits per pixel
5154	hidnplayr	4545	mov eax, [_display.bits_per_pixel]
2288	clevermous	4546	mov [esp+32], eax
		4547	ret
		4548	.3: ; bytes per scanline
5351	serge	4549	mov eax, [_display.lfb_pitch]
2288	clevermous	4550	mov [esp+32], eax
		4551	ret
		4552
		4553	align 4
		4554	syscall_getscreensize: ; GetScreenSize
5350	serge	4555	mov ax, word [_display.width]
		4556	dec ax
2288	clevermous	4557	shl eax, 16
5350	serge	4558	mov ax, word [_display.height]
		4559	dec ax
2288	clevermous	4560	mov [esp + 32], eax
		4561	ret
4700	mario79	4562	;-----------------------------------------------------------------------------
2288	clevermous	4563	align 4
4713	mario79	4564	syscall_cdaudio:
4711	mario79	4565	; ECX - position of CD/DVD-drive
		4566	; from 0=Primary Master to 3=Secondary Slave for first IDE contr.
		4567	; from 4=Primary Master to 7=Secondary Slave for second IDE contr.
		4568	; from 8=Primary Master to 11=Secondary Slave for third IDE contr.
		4569	cmp ecx, 11
		4570	ja .exit
		4571
		4572	mov eax, ecx
		4573	shr eax, 2
		4574	lea eax, [eax*5]
		4575	mov al, [eax+DRIVE_DATA+1]
		4576
		4577	push ecx ebx
		4578	mov ebx, ecx
		4579	and ebx, 11b
		4580	shl ebx, 1
		4581	mov cl, 6
		4582	sub cl, bl
		4583	shr al, cl
		4584	test al, 2 ; it's not an ATAPI device
		4585	pop ebx ecx
		4586
		4587	jz .exit
		4588
4700	mario79	4589	cmp ebx, 4
		4590	je .eject
2288	clevermous	4591
		4592	cmp ebx, 5
4700	mario79	4593	je .load
4711	mario79	4594	;--------------------------------------
		4595	.exit:
4700	mario79	4596	ret
		4597	;--------------------------------------
2288	clevermous	4598	.load:
		4599	call .reserve
		4600	call LoadMedium
		4601	jmp .free
4700	mario79	4602	;--------------------------------------
2288	clevermous	4603	.eject:
		4604	call .reserve
		4605	call clear_CD_cache
		4606	call allow_medium_removal
		4607	call EjectMedium
		4608	jmp .free
4700	mario79	4609	;--------------------------------------
2288	clevermous	4610	.reserve:
		4611	call reserve_cd
4700	mario79	4612
		4613	mov ebx, ecx
		4614	inc ebx
		4615	mov [cdpos], ebx
		4616
2288	clevermous	4617	mov eax, ecx
		4618	shr eax, 1
		4619	and eax, 1
		4620	inc eax
6464	pathoswith	4621	mov [ChannelNumber], al
2288	clevermous	4622	mov eax, ecx
		4623	and eax, 1
		4624	mov [DiskNumber], al
		4625	call reserve_cd_channel
		4626	ret
4700	mario79	4627	;--------------------------------------
2288	clevermous	4628	.free:
		4629	call free_cd_channel
		4630	and [cd_status], 0
		4631	ret
2511	mario79	4632	;-----------------------------------------------------------------------------
2288	clevermous	4633	align 4
2511	mario79	4634	syscall_getpixel_WinMap: ; GetPixel WinMap
5350	serge	4635	cmp ebx, [_display.width]
		4636	jb @f
		4637	cmp ecx, [_display.height]
		4638	jb @f
2511	mario79	4639	xor eax, eax
		4640	jmp .store
		4641	;--------------------------------------
		4642	align 4
		4643	@@:
		4644	mov eax, [d_width_calc_area + ecx*4]
5351	serge	4645	add eax, [_display.win_map]
2511	mario79	4646	movzx eax, byte[eax+ebx] ; get value for current point
		4647	;--------------------------------------
		4648	align 4
		4649	.store:
		4650	mov [esp + 32], eax
		4651	ret
		4652	;-----------------------------------------------------------------------------
		4653	align 4
2288	clevermous	4654	syscall_getpixel: ; GetPixel
5350	serge	4655	mov ecx, [_display.width]
2288	clevermous	4656	xor edx, edx
		4657	mov eax, ebx
		4658	div ecx
		4659	mov ebx, edx
		4660	xchg eax, ebx
2430	mario79	4661	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	4662	call dword [GETPIXEL]; eax - x, ebx - y
		4663	mov [esp + 32], ecx
		4664	ret
2509	mario79	4665	;-----------------------------------------------------------------------------
2288	clevermous	4666	align 4
		4667	syscall_getarea:
		4668	;eax = 36
		4669	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		4670	;ecx = [size x]*65536 + [size y]
		4671	;edx = [start x]*65536 + [start y]
		4672	pushad
		4673	mov edi, ebx
		4674	mov eax, edx
		4675	shr eax, 16
		4676	mov ebx, edx
		4677	and ebx, 0xffff
		4678	dec eax
		4679	dec ebx
		4680	; eax - x, ebx - y
		4681	mov edx, ecx
		4682
		4683	shr ecx, 16
		4684	and edx, 0xffff
		4685	mov esi, ecx
		4686	; ecx - size x, edx - size y
		4687
		4688	mov ebp, edx
8598	rgimad	4689	lea ebp, [ebp*3]
		4690	imul ebp, esi
		4691	stdcall is_region_userspace, edi, ebp
9045	dunkaist	4692	jnz .exit
8598	rgimad	4693
		4694	mov ebp, edx
2288	clevermous	4695	dec ebp
		4696	lea ebp, [ebp*3]
		4697
		4698	imul ebp, esi
		4699
		4700	mov esi, ecx
		4701	dec esi
		4702	lea esi, [esi*3]
		4703
		4704	add ebp, esi
		4705	add ebp, edi
		4706
		4707	add ebx, edx
2509	mario79	4708	;--------------------------------------
		4709	align 4
2288	clevermous	4710	.start_y:
		4711	push ecx edx
2509	mario79	4712	;--------------------------------------
		4713	align 4
2288	clevermous	4714	.start_x:
		4715	push eax ebx ecx
		4716	add eax, ecx
		4717
2430	mario79	4718	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	4719	call dword [GETPIXEL]; eax - x, ebx - y
		4720
		4721	mov [ebp], cx
		4722	shr ecx, 16
		4723	mov [ebp+2], cl
		4724
		4725	pop ecx ebx eax
		4726	sub ebp, 3
		4727	dec ecx
		4728	jnz .start_x
		4729	pop edx ecx
		4730	dec ebx
		4731	dec edx
		4732	jnz .start_y
8598	rgimad	4733
		4734	.exit:
2288	clevermous	4735	popad
		4736	ret
2509	mario79	4737	;-----------------------------------------------------------------------------
8675	rgimad	4738
2288	clevermous	4739	align 4
		4740	syscall_threads: ; CreateThreads
		4741	;
4105	Serge	4742	; ecx=thread entry point
		4743	; edx=thread stack pointer
2288	clevermous	4744	;
		4745	; on return : eax = pid
		4746
4105	Serge	4747	xor ebx, ebx
2288	clevermous	4748	call new_sys_threads
		4749
		4750	mov [esp+32], eax
		4751	ret
		4752
2438	mario79	4753	;------------------------------------------------------------------------------
2288	clevermous	4754	align 4
2438	mario79	4755	calculate_fast_getting_offset_for_WinMapAddress:
		4756	; calculate data area for fast getting offset to _WinMapAddress
2446	mario79	4757	xor eax, eax
2438	mario79	4758	mov ecx, [_display.height]
		4759	mov edi, d_width_calc_area
		4760	cld
		4761	@@:
		4762	stosd
		4763	add eax, [_display.width]
		4764	dec ecx
		4765	jnz @r
		4766	ret
		4767	;------------------------------------------------------------------------------
		4768	align 4
2480	mario79	4769	calculate_fast_getting_offset_for_LFB:
		4770	; calculate data area for fast getting offset to LFB
		4771	xor eax, eax
		4772	mov ecx, [_display.height]
		4773	mov edi, BPSLine_calc_area
		4774	cld
		4775	@@:
		4776	stosd
5351	serge	4777	add eax, [_display.lfb_pitch]
2480	mario79	4778	dec ecx
		4779	jnz @r
		4780	ret
		4781	;------------------------------------------------------------------------------
		4782	align 4
2288	clevermous	4783	set_screen:
2654	mario79	4784	; in:
		4785	; eax - new Screen_Max_X
		4786	; ecx - new BytesPerScanLine
		4787	; edx - new Screen_Max_Y
2288	clevermous	4788
		4789	pushfd
		4790	cli
		4791
5351	serge	4792	mov [_display.lfb_pitch], ecx
2288	clevermous	4793
		4794	mov [screen_workarea.right], eax
		4795	mov [screen_workarea.bottom], edx
		4796
		4797	push ebx
		4798	push esi
		4799	push edi
		4800
		4801	pushad
		4802
2654	mario79	4803	cmp [do_not_touch_winmap], 1
		4804	je @f
		4805
5351	serge	4806	stdcall kernel_free, [_display.win_map]
2288	clevermous	4807
		4808	mov eax, [_display.width]
		4809	mul [_display.height]
5351	serge	4810	mov [_display.win_map_size], eax
2288	clevermous	4811
		4812	stdcall kernel_alloc, eax
5351	serge	4813	mov [_display.win_map], eax
2288	clevermous	4814	test eax, eax
		4815	jz .epic_fail
2654	mario79	4816	; store for f.18.24
		4817	mov eax, [_display.width]
		4818	mov [display_width_standard], eax
2288	clevermous	4819
2654	mario79	4820	mov eax, [_display.height]
		4821	mov [display_height_standard], eax
		4822	@@:
2438	mario79	4823	call calculate_fast_getting_offset_for_WinMapAddress
2545	mario79	4824	; for Qemu or non standart video cards
2991	Serge	4825	; Unfortunately [BytesPerScanLine] does not always
2545	mario79	4826	; equal to [_display.width] * [ScreenBPP] / 8
		4827	call calculate_fast_getting_offset_for_LFB
2288	clevermous	4828	popad
		4829
		4830	call repos_windows
		4831	xor eax, eax
		4832	xor ebx, ebx
5350	serge	4833	mov ecx, [_display.width]
		4834	mov edx, [_display.height]
		4835	dec ecx
		4836	dec edx
2288	clevermous	4837	call calculatescreen
		4838	pop edi
		4839	pop esi
		4840	pop ebx
		4841
		4842	popfd
		4843	ret
		4844
		4845	.epic_fail:
		4846	hlt ; Houston, we've had a problem
		4847
		4848	; --------------- APM ---------------------
		4849	uglobal
		4850	apm_entry dp 0
		4851	apm_vf dd 0
		4852	endg
		4853
		4854	align 4
		4855	sys_apm:
		4856	xor eax, eax
		4857	cmp word [apm_vf], ax ; Check APM BIOS enable
		4858	jne @f
		4859	inc eax
		4860	or dword [esp + 44], eax ; error
		4861	add eax, 7
		4862	mov dword [esp + 32], eax ; 32-bit protected-mode interface not supported
		4863	ret
		4864
		4865	@@:
		4866	; xchg eax, ecx
		4867	; xchg ebx, ecx
		4868
		4869	cmp dx, 3
		4870	ja @f
		4871	and [esp + 44], byte 0xfe ; emulate func 0..3 as func 0
		4872	mov eax, [apm_vf]
		4873	mov [esp + 32], eax
		4874	shr eax, 16
		4875	mov [esp + 28], eax
		4876	ret
		4877
		4878	@@:
		4879
		4880	mov esi, [master_tab+(OS_BASE shr 20)]
		4881	xchg [master_tab], esi
		4882	push esi
		4883	mov edi, cr3
		4884	mov cr3, edi ;flush TLB
		4885
		4886	call pword [apm_entry] ;call APM BIOS
		4887
		4888	xchg eax, [esp]
		4889	mov [master_tab], eax
		4890	mov eax, cr3
		4891	mov cr3, eax
		4892	pop eax
		4893
		4894	mov [esp + 4 ], edi
		4895	mov [esp + 8], esi
		4896	mov [esp + 20], ebx
		4897	mov [esp + 24], edx
		4898	mov [esp + 28], ecx
		4899	mov [esp + 32], eax
		4900	setc al
		4901	and [esp + 44], byte 0xfe
		4902	or [esp + 44], al
		4903	ret
		4904	; -----------------------------------------
		4905
		4906	align 4
		4907	undefined_syscall: ; Undefined system call
		4908	mov [esp + 32], dword -1
		4909	ret
		4910
8160	rgimad	4911	align 4
8962	Boppan	4912	; @brief Check if given memory region lays in lower 2gb (userspace memory) or not
		4913	; @param base Base address of region
		4914	; @param len Lenght of region
		4915	; @return ZF = 1 if region in userspace memory,
		4916	; ZF = 0 otherwise
8329	rgimad	4917	proc is_region_userspace stdcall, base:dword, len:dword
9045	dunkaist	4918	push eax
8329	rgimad	4919	mov eax, [base]
8216	rgimad	4920
9045	dunkaist	4921	cmp eax, OS_BASE-1
		4922	ja @f ; zf
8216	rgimad	4923
8329	rgimad	4924	add eax, [len]
9045	dunkaist	4925	jc @f ; zf
8160	rgimad	4926	cmp eax, OS_BASE
9045	dunkaist	4927	ja @f ; zf
2288	clevermous	4928
9045	dunkaist	4929	cmp eax, eax ; ZF
8160	rgimad	4930	@@:
9045	dunkaist	4931	pop eax
8160	rgimad	4932	ret
8329	rgimad	4933	endp
8160	rgimad	4934
3627	Serge	4935	if ~ lang eq sp
		4936	diff16 "end of .text segment",0,$
		4937	end if
		4938
2288	clevermous	4939	include "data32.inc"
		4940
		4941	__REV__ = __REV
		4942
3341	yogev_ezra	4943	if ~ lang eq sp
2288	clevermous	4944	diff16 "end of kernel code",0,$
3287	esevece	4945	end if

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm @ 9709 – Rev 9591