WebSVN – Kolibri OS – Blame – /kernel/branches/Kolibri-acpi/kernel.asm

Rev	Author	Line No.	Line
1	ha	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;;
5565	serge	3	;; Copyright (C) KolibriOS team 2004-2015. All rights reserved.
431	serge	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
543	spraid	19	;; SPraid (simba)
1043	hidnplayr	20	;; Hidnplayr
1273	Lrz	21	;; Alexey Teplov ()
2010	serge	22	;; Rus
		23	;; Nable
		24	;; shurf
		25	;; Alver
		26	;; Maxis
		27	;; Galkov
		28	;; CleverMouse
		29	;; tsdima
		30	;; turbanoff
		31	;; Asper
		32	;; art_zh
1	ha	33	;;
431	serge	34	;; Data in this file was originally part of MenuetOS project which is
		35	;; distributed under the terms of GNU GPL. It is modified and redistributed as
		36	;; part of KolibriOS project under the terms of GNU GPL.
1	ha	37	;;
431	serge	38	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa
		39	;; PROGRAMMING:
1	ha	40	;;
431	serge	41	;; Ville Mikael Turjanmaa, villemt@itu.jyu.fi
		42	;; - main os coding/design
		43	;; Jan-Michael Brummer, BUZZ2@gmx.de
		44	;; Felix Kaiser, info@felix-kaiser.de
		45	;; Paolo Minazzi, paolo.minazzi@inwind.it
		46	;; quickcode@mail.ru
		47	;; Alexey, kgaz@crosswinds.net
		48	;; Juan M. Caravaca, bitrider@wanadoo.es
		49	;; kristol@nic.fi
		50	;; Mike Hibbett, mikeh@oceanfree.net
		51	;; Lasse Kuusijarvi, kuusijar@lut.fi
		52	;; Jarek Pelczar, jarekp3@wp.pl
1	ha	53	;;
431	serge	54	;; KolibriOS is distributed in the hope that it will be useful, but WITHOUT ANY
		55	;; WARRANTY. No author or distributor accepts responsibility to anyone for the
		56	;; consequences of using it or for whether it serves any particular purpose or
		57	;; works at all, unless he says so in writing. Refer to the GNU General Public
		58	;; License (the "GPL") for full details.
		59	;
		60	;; Everyone is granted permission to copy, modify and redistribute KolibriOS,
		61	;; but only under the conditions described in the GPL. A copy of this license
		62	;; is supposed to have been given to you along with KolibriOS so you can know
		63	;; your rights and responsibilities. It should be in a file named COPYING.
		64	;; Among other things, the copyright notice and this notice must be preserved
		65	;; on all copies.
		66	;;
1	ha	67	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
426	mikedld	68
3500	Serge	69	format binary as "mnt"
		70
426	mikedld	71	include 'macros.inc'
2434	Serge	72	include 'struct.inc'
426	mikedld	73
425	victor	74	$Revision: 5984 $
426	mikedld	75
593	mikedld	76
1055	Galkov	77	USE_COM_IRQ equ 1 ; make irq 3 and irq 4 available for PCI devices
3626	Serge	78	VESA_1_2_VIDEO equ 0 ; enable vesa 1.2 bank switch functions
566	serge	79
1043	hidnplayr	80	; Enabling the next line will enable serial output console
3589	Serge	81	;debug_com_base equ 0x3f8 ; 0x3f8 is com1, 0x2f8 is com2, 0x3e8 is com3, 0x2e8 is com4, no irq's are used
1043	hidnplayr	82
164	serge	83	include "proc32.inc"
7	me_root	84	include "kglobals.inc"
1	ha	85	include "lang.inc"
3555	Serge	86	include "encoding.inc"
1	ha	87
164	serge	88	include "const.inc"
3908	Serge	89
		90	iglobal
		91	; The following variable, if equal to 1, duplicates debug output to the screen.
		92	debug_direct_print db 0
		93	; Start the first app (LAUNCHER) after kernel is loaded? (1=yes, 2 or 0=no)
		94	launcher_start db 1
		95	endg
		96
1055	Galkov	97	max_processes equ 255
		98	tss_step equ (128+8192) ; tss & i/o - 65535 ports, * 256=557056*4
1	ha	99
1055	Galkov	100	os_stack equ (os_data_l-gdts) ; GDTs
465	serge	101	os_code equ (os_code_l-gdts)
		102	graph_data equ (3+graph_data_l-gdts)
1055	Galkov	103	tss0 equ (tss0_l-gdts)
465	serge	104	app_code equ (3+app_code_l-gdts)
		105	app_data equ (3+app_data_l-gdts)
1220	serge	106	app_tls equ (3+tls_data_l-gdts)
586	serge	107	pci_code_sel equ (pci_code_32-gdts)
		108	pci_data_sel equ (pci_data_32-gdts)
1	ha	109
		110
		111	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		112	;;
		113	;; Included files:
		114	;;
		115	;; Kernel16.inc
		116	;; - Booteng.inc English text for bootup
		117	;; - Bootcode.inc Hardware setup
		118	;; - Pci16.inc PCI functions
		119	;;
		120	;; Kernel32.inc
		121	;; - Sys32.inc Process management
		122	;; - Shutdown.inc Shutdown and restart
		123	;; - Fat32.inc Read / write hd
		124	;; - Vesa12.inc Vesa 1.2 driver
		125	;; - Vesa20.inc Vesa 2.0 driver
		126	;; - Vga.inc VGA driver
		127	;; - Stack.inc Network interface
		128	;; - Mouse.inc Mouse pointer
		129	;; - Scincode.inc Window skinning
		130	;; - Pci32.inc PCI functions
		131	;;
		132	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		133
		134
		135	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		136	;; ;;
		137	;; 16 BIT ENTRY FROM BOOTSECTOR ;;
		138	;; ;;
		139	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		140
		141	use16
1055	Galkov	142	org 0x0
2434	Serge	143	jmp start_of_code
1	ha	144
3500	Serge	145	if lang eq sp
		146	include "kernelsp.inc" ; spanish kernel messages
4265	Serge	147	else if lang eq et
		148	version db 'Kolibri OS versioon 0.7.7.0+ ',13,10,13,10,0
3500	Serge	149	else
1324	Lrz	150	version db 'Kolibri OS version 0.7.7.0+ ',13,10,13,10,0
3500	Serge	151	end if
1	ha	152
465	serge	153	include "boot/bootstr.inc" ; language-independent boot messages
1	ha	154	include "boot/preboot.inc"
		155
3500	Serge	156	if lang eq ge
		157	include "boot/bootge.inc" ; german system boot messages
		158	else if lang eq sp
		159	include "boot/bootsp.inc" ; spanish system boot messages
465	serge	160	else if lang eq ru
		161	include "boot/bootru.inc" ; russian system boot messages
1055	Galkov	162	include "boot/ru.inc" ; Russian font
465	serge	163	else if lang eq et
		164	include "boot/bootet.inc" ; estonian system boot messages
1055	Galkov	165	include "boot/et.inc" ; Estonian font
465	serge	166	else
3500	Serge	167	include "boot/booten.inc" ; english system boot messages
465	serge	168	end if
1	ha	169
465	serge	170	include "boot/bootcode.inc" ; 16 bit system boot code
		171	include "bus/pci/pci16.inc"
709	diamond	172	include "detect/biosdisk.inc"
1	ha	173
		174	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		175	;; ;;
		176	;; SWITCH TO 32 BIT PROTECTED MODE ;;
		177	;; ;;
		178	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		179
		180
		181	; CR0 Flags - Protected mode and Paging
		182
2434	Serge	183	mov ecx, CR0_PE
1	ha	184
		185	; Enabling 32 bit protected mode
		186
1055	Galkov	187	sidt [cs:old_ints_h]
1	ha	188
1055	Galkov	189	cli ; disable all irqs
		190	cld
2434	Serge	191	mov al, 255 ; mask all irqs
		192	out 0xa1, al
		193	out 0x21, al
		194	l.5:
		195	in al, 0x64 ; Enable A20
1055	Galkov	196	test al, 2
		197	jnz l.5
		198	mov al, 0xD1
		199	out 0x64, al
2434	Serge	200	l.6:
		201	in al, 0x64
1055	Galkov	202	test al, 2
		203	jnz l.6
		204	mov al, 0xDF
		205	out 0x60, al
2434	Serge	206	l.7:
		207	in al, 0x64
1055	Galkov	208	test al, 2
		209	jnz l.7
		210	mov al, 0xFF
		211	out 0x64, al
465	serge	212
1055	Galkov	213	lgdt [cs:tmp_gdt] ; Load GDT
		214	mov eax, cr0 ; protected mode
		215	or eax, ecx
		216	and eax, 10011111b 65536256 + 0xffffff ; caching enabled
		217	mov cr0, eax
		218	jmp pword os_code:B32 ; jmp to enable 32 bit mode
1	ha	219
465	serge	220	align 8
		221	tmp_gdt:
1	ha	222
1055	Galkov	223	dw 23
		224	dd tmp_gdt+0x10000
		225	dw 0
183	diamond	226
1055	Galkov	227	dw 0xffff
		228	dw 0x0000
		229	db 0x00
		230	dw 11011111b *256 +10011010b
		231	db 0x00
375	Ghost	232
1055	Galkov	233	dw 0xffff
		234	dw 0x0000
		235	db 0x00
		236	dw 11011111b *256 +10010010b
		237	db 0x00
1	ha	238
3500	Serge	239	include "data16.inc"
1	ha	240
3626	Serge	241	if ~ lang eq sp
		242	diff16 "end of bootcode",0,$+0x10000
		243	end if
		244
465	serge	245	use32
		246	org $+0x10000
1	ha	247
465	serge	248	align 4
		249	B32:
2434	Serge	250	mov ax, os_stack ; Selector for os
		251	mov ds, ax
		252	mov es, ax
		253	mov fs, ax
		254	mov gs, ax
		255	mov ss, ax
		256	mov esp, 0x006CC00 ; Set stack
1	ha	257
465	serge	258	; CLEAR 0x280000 - HEAP_BASE
1	ha	259
2434	Serge	260	xor eax, eax
		261	mov edi, CLEAN_ZONE
		262	mov ecx, (HEAP_BASE-OS_BASE-CLEAN_ZONE) / 4
		263	cld
		264	rep stosd
1	ha	265
465	serge	266	; CLEAR KERNEL UNDEFINED GLOBALS
2434	Serge	267	mov edi, endofcode-OS_BASE
		268	mov ecx, 0x90000
		269	sub ecx, edi
		270	shr ecx, 2
		271	rep stosd
1	ha	272
465	serge	273	; SAVE & CLEAR 0-0xffff
1	ha	274
2434	Serge	275	mov edi, 0x1000
3908	Serge	276	mov ecx, 0x8000 / 4
2434	Serge	277	rep stosd
3908	Serge	278	mov edi, 0xa000
		279	mov ecx, 0x6000 / 4
		280	rep stosd
429	serge	281
2434	Serge	282	call test_cpu
		283	bts [cpu_caps-OS_BASE], CAPS_TSC ;force use rdtsc
424	spraid	284
2434	Serge	285	call check_acpi
5629	serge	286	call init_hpet
2434	Serge	287	call init_BIOS32
465	serge	288	; MEMORY MODEL
2434	Serge	289	call mem_test
		290	call init_mem
		291	call init_page_map
1	ha	292
465	serge	293	; ENABLE PAGING
1	ha	294
5201	serge	295	mov eax, sys_proc-OS_BASE+PROC.pdt_0
2434	Serge	296	mov cr3, eax
1	ha	297
2434	Serge	298	mov eax, cr0
		299	or eax, CR0_PG+CR0_WP
		300	mov cr0, eax
1	ha	301
2434	Serge	302	lgdt [gdts]
		303	jmp pword os_code:high_code
1	ha	304
513	serge	305	align 4
1055	Galkov	306	bios32_entry dd ?
		307	tmp_page_tabs dd ?
586	serge	308
3500	Serge	309	use16
		310	org $-0x10000
		311	include "boot/shutdown.inc" ; shutdown or restart
		312	org $+0x10000
5201	serge	313
		314	ap_init16:
		315	cli
		316	lgdt [cs:gdts_ap-ap_init16]
		317	mov eax, [cs:cr3_ap-ap_init16]
		318	mov cr3, eax
		319	mov eax, [cs:cr4_ap-ap_init16]
		320	mov cr4, eax
		321	mov eax, CR0_PE+CR0_PG+CR0_WP
		322	mov cr0, eax
		323	jmp pword os_code:ap_init_high
		324	align 16
		325	gdts_ap:
		326	dw gdte-gdts-1
		327	dd gdts
		328	dw 0
		329	cr3_ap dd ?
		330	cr4_ap dd ?
		331	ap_init16_size = $ - ap_init16
3500	Serge	332	use32
498	diamond	333
3908	Serge	334	__DEBUG__ fix 1
465	serge	335	__DEBUG_LEVEL__ fix 1
		336	include 'init.inc'
380	serge	337
465	serge	338	org OS_BASE+$
1	ha	339
2465	Serge	340	include 'fdo.inc'
		341
465	serge	342	align 4
		343	high_code:
2434	Serge	344	mov ax, os_stack
		345	mov bx, app_data
		346	mov cx, app_tls
		347	mov ss, ax
		348	add esp, OS_BASE
1	ha	349
2434	Serge	350	mov ds, bx
		351	mov es, bx
		352	mov fs, cx
		353	mov gs, bx
1	ha	354
5565	serge	355	xor eax, eax
		356	mov ebx, 0xFFFFF000+PG_SHARED+PG_NOCACHE+PG_UWR
		357	bt [cpu_caps], CAPS_PAT
		358	setc al
		359	shl eax, 7
		360	or ebx, eax
		361
		362	mov eax, PG_GLOBAL
2434	Serge	363	bt [cpu_caps], CAPS_PGE
		364	jnc @F
1	ha	365
5565	serge	366	or [sys_proc+PROC.pdt_0+(OS_BASE shr 20)], eax
		367	or ebx, eax
519	serge	368
5565	serge	369	mov eax, cr4
		370	or eax, CR4_PGE
		371	mov cr4, eax
519	serge	372	@@:
5565	serge	373	mov [pte_valid_mask], ebx
		374
3500	Serge	375	xor eax, eax
5201	serge	376	mov dword [sys_proc+PROC.pdt_0], eax
		377	mov dword [sys_proc+PROC.pdt_0+4], eax
519	serge	378
3500	Serge	379	mov eax, cr3
		380	mov cr3, eax ; flush TLB
465	serge	381
2434	Serge	382	mov ecx, pg_data.mutex
		383	call mutex_init
2130	serge	384
2434	Serge	385	mov ecx, disk_list_mutex
		386	call mutex_init
2130	serge	387
2987	Serge	388	mov ecx, keyboard_list_mutex
		389	call mutex_init
		390
		391	mov ecx, unpack_mutex
		392	call mutex_init
		393
3555	Serge	394	mov ecx, application_table_mutex
		395	call mutex_init
		396
3908	Serge	397	mov ecx, ide_mutex
		398	call mutex_init
		399	mov ecx, ide_channel1_mutex
		400	call mutex_init
		401	mov ecx, ide_channel2_mutex
		402	call mutex_init
5201	serge	403	mov ecx, ide_channel3_mutex
		404	call mutex_init
		405	mov ecx, ide_channel4_mutex
		406	call mutex_init
		407	mov ecx, ide_channel5_mutex
		408	call mutex_init
		409	mov ecx, ide_channel6_mutex
		410	call mutex_init
3908	Serge	411	;-----------------------------------------------------------------------------
1	ha	412	; SAVE REAL MODE VARIABLES
3908	Serge	413	;-----------------------------------------------------------------------------
76	mario79	414	; --------------- APM ---------------------
465	serge	415
		416	; init selectors
3908	Serge	417	mov ebx, [BOOT_VARS+BOOT_APM_ENTRY] ; offset of APM entry point
		418	movzx eax, word [BOOT_VARS+BOOT_APM_CODE_32] ; real-mode segment base address of
		419	; protected-mode 32-bit code segment
		420	movzx ecx, word [BOOT_VARS+BOOT_APM_CODE_16]; real-mode segment base address of
		421	; protected-mode 16-bit code segment
		422	movzx edx, word [BOOT_VARS+BOOT_APM_DATA_16]; real-mode segment base address of
2434	Serge	423	; protected-mode 16-bit data segment
465	serge	424
2434	Serge	425	shl eax, 4
		426	mov [dword apm_code_32 + 2], ax
		427	shr eax, 16
		428	mov [dword apm_code_32 + 4], al
465	serge	429
2434	Serge	430	shl ecx, 4
		431	mov [dword apm_code_16 + 2], cx
		432	shr ecx, 16
		433	mov [dword apm_code_16 + 4], cl
465	serge	434
2434	Serge	435	shl edx, 4
		436	mov [dword apm_data_16 + 2], dx
		437	shr edx, 16
		438	mov [dword apm_data_16 + 4], dl
465	serge	439
2434	Serge	440	mov dword[apm_entry], ebx
		441	mov word [apm_entry + 4], apm_code_32 - gdts
76	mario79	442
3908	Serge	443	mov eax, [BOOT_VARS + BOOT_APM_VERSION] ; version & flags
2434	Serge	444	mov [apm_vf], eax
76	mario79	445	; -----------------------------------------
3908	Serge	446	mov al, [BOOT_VARS+BOOT_DMA] ; DMA access
2434	Serge	447	mov [allow_dma_access], al
3908	Serge	448	movzx eax, byte [BOOT_VARS+BOOT_BPP] ; bpp
5201	serge	449	mov [_display.bits_per_pixel], eax
2434	Serge	450	mov [_display.vrefresh], 60
3908	Serge	451	mov al, [BOOT_VARS+BOOT_DEBUG_PRINT] ; If nonzero, duplicates debug output to the screen
		452	mov [debug_direct_print], al
		453	mov al, [BOOT_VARS+BOOT_LAUNCHER_START] ; Start the first app (LAUNCHER) after kernel is loaded?
		454	mov [launcher_start], al
		455	movzx eax, word [BOOT_VARS+BOOT_X_RES]; X max
2434	Serge	456	mov [_display.width], eax
2987	Serge	457	mov [display_width_standard], eax
2434	Serge	458	dec eax
		459	mov [screen_workarea.right], eax
3908	Serge	460	movzx eax, word [BOOT_VARS+BOOT_Y_RES]; Y max
2434	Serge	461	mov [_display.height], eax
2987	Serge	462	mov [display_height_standard], eax
2434	Serge	463	dec eax
		464	mov [screen_workarea.bottom], eax
3908	Serge	465	movzx eax, word [BOOT_VARS+BOOT_VESA_MODE] ; screen mode
3626	Serge	466	mov dword [SCR_MODE], eax
3908	Serge	467	; mov eax, [BOOT_VAR+0x9014] ; Vesa 1.2 bnk sw add
3589	Serge	468	; mov [BANK_SWITCH], eax
3626	Serge	469	mov eax, 640 *4 ; Bytes PerScanLine
3908	Serge	470	cmp [SCR_MODE], word 0x13 ; 320x200
2434	Serge	471	je @f
3908	Serge	472	cmp [SCR_MODE], word 0x12 ; VGA 640x480
2434	Serge	473	je @f
3908	Serge	474	movzx eax, word[BOOT_VARS+BOOT_PITCH] ; for other modes
3626	Serge	475	@@:
5565	serge	476	mov [_display.lfb_pitch], eax
2434	Serge	477	mov eax, [_display.width]
		478	mul [_display.height]
5565	serge	479	mov [_display.win_map_size], eax
1300	serge	480
2439	Serge	481	call calculate_fast_getting_offset_for_WinMapAddress
2987	Serge	482	; for Qemu or non standart video cards
3232	Serge	483	; Unfortunately [BytesPerScanLine] does not always
2987	Serge	484	; equal to [_display.width] * [ScreenBPP] / 8
		485	call calculate_fast_getting_offset_for_LFB
2439	Serge	486
3908	Serge	487	mov esi, BOOT_VARS+0x9080
1055	Galkov	488	movzx ecx, byte [esi-1]
		489	mov [NumBiosDisks], ecx
		490	mov edi, BiosDisksData
2434	Serge	491	rep movsd
1	ha	492
5201	serge	493	setvideomode:
1	ha	494
3908	Serge	495	mov eax, [BOOT_VARS+BOOT_LFB]
2434	Serge	496	mov [LFBAddress], eax
1	ha	497
5201	serge	498	cmp word [SCR_MODE], 0x0012 ; VGA (640x480 16 colors)
		499	je .vga
		500	cmp word [SCR_MODE], 0x0013 ; MCGA (320*200 256 colors)
		501	je .32bpp
		502	cmp byte [_display.bits_per_pixel], 32
		503	je .32bpp
		504	cmp byte [_display.bits_per_pixel], 24
		505	je .24bpp
		506	cmp byte [_display.bits_per_pixel], 16
		507	je .16bpp
		508	; cmp byte [_display.bits_per_pixel], 15
		509	; je .15bpp
2439	Serge	510
5201	serge	511	.vga:
		512	mov [PUTPIXEL], VGA_putpixel
		513	mov [GETPIXEL], Vesa20_getpixel32 ; Conversion buffer is 32 bpp
		514	mov [_display.bytes_per_pixel], 4 ; Conversion buffer is 32 bpp
		515	jmp .finish
1	ha	516
5201	serge	517	; .15bpp:
		518	; mov [PUTPIXEL], Vesa20_putpixel15
		519	; mov [GETPIXEL], Vesa20_getpixel15
		520	; mov [_display.bytes_per_pixel], 2
		521	; jmp .finish
		522
		523	.16bpp:
		524	mov [PUTPIXEL], Vesa20_putpixel16
		525	mov [GETPIXEL], Vesa20_getpixel16
		526	mov [_display.bytes_per_pixel], 2
		527	jmp .finish
		528
		529	.24bpp:
		530	mov [PUTPIXEL], Vesa20_putpixel24
		531	mov [GETPIXEL], Vesa20_getpixel24
		532	mov [_display.bytes_per_pixel], 3
		533	jmp .finish
		534
		535	.32bpp:
		536	mov [PUTPIXEL], Vesa20_putpixel32
		537	mov [GETPIXEL], Vesa20_getpixel32
		538	mov [_display.bytes_per_pixel], 4
		539	; jmp .finish
		540
		541	.finish:
		542	mov [MOUSE_PICTURE], mousepointer
2987	Serge	543	mov [_display.check_mouse], check_mouse_area_for_putpixel
		544	mov [_display.check_m_pixel], check_mouse_area_for_getpixel
		545
375	Ghost	546	; -------- Fast System Call init ----------
378	serge	547	; Intel SYSENTER/SYSEXIT (AMD CPU support it too)
2434	Serge	548	bt [cpu_caps], CAPS_SEP
		549	jnc .SEnP ; SysEnter not Present
		550	xor edx, edx
		551	mov ecx, MSR_SYSENTER_CS
		552	mov eax, os_code
		553	wrmsr
		554	mov ecx, MSR_SYSENTER_ESP
434	diamond	555	; mov eax, sysenter_stack ; Check it
2434	Serge	556	xor eax, eax
		557	wrmsr
		558	mov ecx, MSR_SYSENTER_EIP
		559	mov eax, sysenter_entry
		560	wrmsr
375	Ghost	561	.SEnP:
378	serge	562	; AMD SYSCALL/SYSRET
2434	Serge	563	cmp byte[cpu_vendor], 'A'
		564	jne .noSYSCALL
		565	mov eax, 0x80000001
		566	cpuid
		567	test edx, 0x800 ; bit_11 - SYSCALL/SYSRET support
		568	jz .noSYSCALL
		569	mov ecx, MSR_AMD_EFER
		570	rdmsr
		571	or eax, 1 ; bit_0 - System Call Extension (SCE)
		572	wrmsr
164	serge	573
1055	Galkov	574	; !!!! It`s dirty hack, fix it !!!
		575	; Bits of EDX :
3555	Serge	576	; Bit 31–16 During the SYSRET instruction, this field is copied into the CS register
1055	Galkov	577	; and the contents of this field, plus 8, are copied into the SS register.
3555	Serge	578	; Bit 15–0 During the SYSCALL instruction, this field is copied into the CS register
1055	Galkov	579	; and the contents of this field, plus 8, are copied into the SS register.
375	Ghost	580
1055	Galkov	581	; mov edx, (os_code + 16) * 65536 + os_code
2434	Serge	582	mov edx, 0x1B0008
375	Ghost	583
2434	Serge	584	mov eax, syscall_entry
		585	mov ecx, MSR_AMD_STAR
		586	wrmsr
375	Ghost	587	.noSYSCALL:
		588	; -----------------------------------------
1310	diamond	589	stdcall alloc_page
5565	serge	590	stdcall map_page, tss-0xF80, eax, PG_SWR
1310	diamond	591	stdcall alloc_page
5565	serge	592	stdcall map_page, tss+0x80, eax, PG_SWR
1310	diamond	593	stdcall alloc_page
5565	serge	594	stdcall map_page, tss+0x1080, eax, PG_SWR
375	Ghost	595
465	serge	596	; LOAD IDT
378	serge	597
2434	Serge	598	call build_interrupt_table ;lidt is executed
1056	Galkov	599	;lidt [idtreg]
378	serge	600
2434	Serge	601	call init_kernel_heap
3555	Serge	602	stdcall kernel_alloc, (RING0_STACK_SIZE+512) * 2
2434	Serge	603	mov [os_stack_seg], eax
164	serge	604
2434	Serge	605	lea esp, [eax+RING0_STACK_SIZE]
164	serge	606
2434	Serge	607	mov [tss._ss0], os_stack
		608	mov [tss._esp0], esp
		609	mov [tss._esp], esp
		610	mov [tss._cs], os_code
		611	mov [tss._ss], os_stack
		612	mov [tss._ds], app_data
		613	mov [tss._es], app_data
		614	mov [tss._fs], app_data
		615	mov [tss._gs], app_data
		616	mov [tss._io], 128
465	serge	617	;Add IO access table - bit array of permitted ports
2434	Serge	618	mov edi, tss._io_map_0
		619	xor eax, eax
		620	not eax
		621	mov ecx, 8192/4
		622	rep stosd ; access to 4096*8=65536 ports
164	serge	623
2434	Serge	624	mov ax, tss0
		625	ltr ax
378	serge	626
2987	Serge	627	mov [LFBSize], 0xC00000
2434	Serge	628	call init_LFB
		629	call init_fpu
		630	call init_malloc
276	serge	631
5201	serge	632	stdcall alloc_kernel_space, 0x50000 ; FIXME check size
2434	Serge	633	mov [default_io_map], eax
465	serge	634
2434	Serge	635	add eax, 0x2000
		636	mov [ipc_tmp], eax
		637	mov ebx, 0x1000
164	serge	638
2434	Serge	639	add eax, 0x40000
		640	mov [proc_mem_map], eax
164	serge	641
2434	Serge	642	add eax, 0x8000
		643	mov [proc_mem_pdir], eax
164	serge	644
2434	Serge	645	add eax, ebx
		646	mov [proc_mem_tab], eax
164	serge	647
2434	Serge	648	add eax, ebx
		649	mov [tmp_task_ptab], eax
164	serge	650
2434	Serge	651	add eax, ebx
		652	mov [ipc_pdir], eax
164	serge	653
2434	Serge	654	add eax, ebx
		655	mov [ipc_ptab], eax
164	serge	656
2434	Serge	657	stdcall kernel_alloc, (unpack.LZMA_BASE_SIZE+(unpack.LZMA_LIT_SIZE shl \
		658	(unpack.lc+unpack.lp)))*4
712	serge	659
2434	Serge	660	mov [unpack.p], eax
709	diamond	661
2434	Serge	662	call init_events
		663	mov eax, srv.fd-SRV.fd
		664	mov [srv.fd], eax
		665	mov [srv.bk], eax
278	serge	666
41	mikedld	667	;Set base of graphic segment to linear address of LFB
2434	Serge	668	mov eax, [LFBAddress] ; set for gs
		669	mov [graph_data_l+2], ax
		670	shr eax, 16
		671	mov [graph_data_l+4], al
		672	mov [graph_data_l+7], ah
1	ha	673
5565	serge	674	stdcall kernel_alloc, [_display.win_map_size]
		675	mov [_display.win_map], eax
1300	serge	676
2434	Serge	677	xor eax, eax
		678	inc eax
429	serge	679
469	serge	680	; set background
1300	serge	681
2434	Serge	682	mov [BgrDrawMode], eax
		683	mov [BgrDataWidth], eax
		684	mov [BgrDataHeight], eax
		685	mov [mem_BACKGROUND], 4
		686	mov [img_background], static_background_data
469	serge	687
4265	Serge	688	; set clipboard
		689
		690	xor eax, eax
		691	mov [clipboard_slots], eax
		692	mov [clipboard_write_lock], eax
		693	stdcall kernel_alloc, 4096
		694	test eax, eax
		695	jnz @f
		696
		697	dec eax
		698	@@:
		699	mov [clipboard_main_list], eax
		700
5645	serge	701	mov eax, [hpet_base]
		702	test eax, eax
		703	jz @F
5629	serge	704	mov eax, [hpet_base]
		705	stdcall map_io_mem, [hpet_base], 1024, PG_GLOBAL+PAT_UC+PG_SWR
		706	mov [hpet_base], eax
5645	serge	707	mov eax, [eax]
		708	DEBUGF 1, "K : HPET caps %x\n", eax
		709	@@:
3500	Serge	710	; SET UP OS TASK
		711
		712	mov esi, boot_setostask
		713	call boot_log
		714
5577	serge	715	mov eax, sys_proc
		716	lea edi, [eax+PROC.heap_lock]
		717	mov ecx, (PROC.ht_free-PROC.heap_lock)/4
5201	serge	718
5577	serge	719	list_init eax
		720	add eax, PROC.thr_list
		721	list_init eax
		722
		723	xor eax, eax
		724	cld
		725	rep stosd
		726
		727	mov [edi], dword (PROC.pdt_0 - PROC.htab)/4 - 3
		728	mov [edi+4], dword 3 ;reserve handles for stdin stdout and stderr
		729	mov ecx, (PROC.pdt_0 - PROC.htab)/4
		730	add edi, 8
		731	inc eax
		732	@@:
		733	stosd
		734	inc eax
		735	cmp eax, ecx
		736	jbe @B
		737
		738	mov [sys_proc+PROC.pdt_0_phys], sys_proc-OS_BASE+PROC.pdt_0
		739
5201	serge	740	mov eax, -1
		741	mov edi, thr_slot_map+4
		742	mov [edi-4], dword 0xFFFFFFF8
		743	stosd
		744	stosd
		745	stosd
		746	stosd
		747	stosd
		748	stosd
		749	stosd
		750
		751	mov [current_process], sys_proc
		752
		753	mov edx, SLOT_BASE+256*1
3555	Serge	754	mov ebx, [os_stack_seg]
		755	add ebx, 0x2000
		756	call setup_os_slot
		757	mov dword [edx], 'IDLE'
		758	sub [edx+APPDATA.saved_esp], 4
		759	mov eax, [edx+APPDATA.saved_esp]
		760	mov dword [eax], idle_thread
		761	mov ecx, IDLE_PRIORITY
		762	call scheduler_add_thread
3500	Serge	763
3555	Serge	764	mov edx, SLOT_BASE+256*2
		765	mov ebx, [os_stack_seg]
		766	call setup_os_slot
		767	mov dword [edx], 'OS'
		768	xor ecx, ecx
		769	call scheduler_add_thread
3500	Serge	770
3555	Serge	771	mov dword [CURRENT_TASK], 2
		772	mov dword [TASK_COUNT], 2
		773	mov dword [current_slot], SLOT_BASE + 256*2
		774	mov dword [TASK_BASE], CURRENT_TASK + 32*2
3500	Serge	775
5201	serge	776	; Move other CPUs to deep sleep, if it is useful
		777	uglobal
		778	use_mwait_for_idle db 0
		779	endg
		780	cmp [cpu_vendor+8], 'ntel'
		781	jnz .no_wake_cpus
		782	bt [cpu_caps+4], CAPS_MONITOR-32
		783	jnc .no_wake_cpus
		784	dbgstr 'using mwait for idle loop'
		785	inc [use_mwait_for_idle]
		786	mov ebx, [cpu_count]
		787	cmp ebx, 1
		788	jbe .no_wake_cpus
		789	call create_trampoline_pgmap
		790	mov [cr3_ap+OS_BASE], eax
		791	mov eax, cr4
		792	mov [cr4_ap+OS_BASE], eax
		793	mov esi, OS_BASE + ap_init16
		794	mov edi, OS_BASE + 8000h
		795	mov ecx, (ap_init16_size + 3) / 4
		796	rep movsd
5565	serge	797	stdcall map_io_mem, [acpi_lapic_base], 0x1000, PG_GLOBAL+PG_NOCACHE+PG_SWR
5201	serge	798	mov [LAPIC_BASE], eax
		799	lea edi, [eax+300h]
		800	mov esi, smpt+4
		801	dec ebx
		802	.wake_cpus_loop:
		803	lodsd
		804	push esi
		805	xor esi, esi
		806	inc esi
		807	shl eax, 24
		808	mov [edi+10h], eax
		809	; assert INIT IPI
		810	mov dword [edi], 0C500h
		811	call delay_ms
		812	@@:
		813	test dword [edi], 1000h
		814	jnz @b
		815	; deassert INIT IPI
		816	mov dword [edi], 8500h
		817	call delay_ms
		818	@@:
		819	test dword [edi], 1000h
		820	jnz @b
		821	; send STARTUP IPI
		822	mov dword [edi], 600h + (8000h shr 12)
		823	call delay_ms
		824	@@:
		825	test dword [edi], 1000h
		826	jnz @b
		827	pop esi
		828	dec ebx
		829	jnz .wake_cpus_loop
		830	mov eax, [cpu_count]
		831	dec eax
		832	@@:
		833	cmp [ap_initialized], eax
		834	jnz @b
		835	mov eax, [cr3_ap+OS_BASE]
		836	call free_page
		837	.no_wake_cpus:
3500	Serge	838
709	diamond	839	; REDIRECT ALL IRQ'S TO INT'S 0x20-0x2f
2987	Serge	840	mov esi, boot_initirq
		841	call boot_log
		842	call init_irqs
709	diamond	843
2987	Serge	844	mov esi, boot_picinit
		845	call boot_log
2434	Serge	846	call PIC_init
709	diamond	847
2987	Serge	848	mov esi, boot_v86machine
		849	call boot_log
709	diamond	850	; Initialize system V86 machine
1055	Galkov	851	call init_sys_v86
709	diamond	852
2987	Serge	853	mov esi, boot_inittimer
		854	call boot_log
1638	serge	855	; Initialize system timer (IRQ0)
2434	Serge	856	call PIT_init
725	diamond	857
4287	Serge	858	; Register ramdisk file system
5201	serge	859	cmp [boot_dev+OS_BASE+0x10000], 1
		860	je @f
3626	Serge	861
5201	serge	862	call register_ramdisk
		863	;--------------------------------------
		864	@@:
2987	Serge	865	mov esi, boot_initapic
		866	call boot_log
1638	serge	867	; Try to Initialize APIC
2434	Serge	868	call APIC_init
725	diamond	869
3500	Serge	870	mov esi, boot_enableirq
		871	call boot_log
3908	Serge	872	; Enable timer IRQ (IRQ0) and co-processor IRQ (IRQ13)
725	diamond	873	; they are used: when partitions are scanned, hd_read relies on timer
2434	Serge	874	call unmask_timer
2141	serge	875	stdcall enable_irq, 2 ; @#$%! PIC
		876	stdcall enable_irq, 13 ; co-processor
725	diamond	877
5201	serge	878	; Setup serial output console (if enabled)
		879	if defined debug_com_base
3908	Serge	880
5201	serge	881	; reserve port so nobody else will use it
		882	xor ebx, ebx
		883	mov ecx, debug_com_base
		884	mov edx, debug_com_base+7
		885	call r_f_port_area
		886
		887	; enable Divisor latch
		888	mov dx, debug_com_base+3
		889	mov al, 1 shl 7
1523	diamond	890	out dx, al
5201	serge	891
		892	; Set speed to 115200 baud (max speed)
		893	mov dx, debug_com_base
		894	mov al, 0x01
1523	diamond	895	out dx, al
5201	serge	896
		897	mov dx, debug_com_base+1
		898	mov al, 0x00
		899	out dx, al
		900
		901	; No parity, 8bits words, one stop bit, dlab bit back to 0
		902	mov dx, debug_com_base+3
		903	mov al, 3
		904	out dx, al
		905
		906	; disable interrupts
		907	mov dx, debug_com_base+1
		908	mov al, 0
		909	out dx, al
		910
		911	; clear + enable fifo (64 bits)
		912	mov dx, debug_com_base+2
		913	mov al, 0x7 + 1 shl 5
		914	out dx, al
		915
		916	end if
		917
		918
		919	;-----------------------------------------------------------------------------
		920	; show SVN version of kernel on the message board
		921	;-----------------------------------------------------------------------------
		922	mov eax, [version_inf.rev]
		923	DEBUGF 1, "K : kernel SVN r%d\n", eax
		924	;-----------------------------------------------------------------------------
		925	; show CPU count on the message board
		926	;-----------------------------------------------------------------------------
		927	mov eax, [cpu_count]
		928	test eax, eax
		929	jnz @F
		930	mov al, 1 ; at least one CPU
3908	Serge	931	@@:
5201	serge	932	DEBUGF 1, "K : %d CPU detected\n", eax
3908	Serge	933	;-----------------------------------------------------------------------------
5201	serge	934	; detect Floppy drives
		935	;-----------------------------------------------------------------------------
2987	Serge	936	mov esi, boot_detectfloppy
		937	call boot_log
		938	include 'detect/dev_fd.inc'
5201	serge	939	;-----------------------------------------------------------------------------
		940	; create pci-devices list
		941	;-----------------------------------------------------------------------------
		942	mov [pci_access_enabled], 1
		943	call pci_enum
		944	;-----------------------------------------------------------------------------
		945	; initialisation IDE ATA code
		946	;-----------------------------------------------------------------------------
		947	include 'detect/init_ata.inc'
		948	;-----------------------------------------------------------------------------
1289	diamond	949	if 0
2434	Serge	950	mov ax, [OS_BASE+0x10000+bx_from_load]
		951	cmp ax, 'r1'; if using not ram disk, then load librares and parameters {SPraid.simba}
		952	je no_lib_load
2987	Serge	953
		954	mov esi, boot_loadlibs
		955	call boot_log
488	spraid	956	; LOADING LIBRARES
2434	Serge	957	stdcall dll.Load, @IMPORT ; loading librares for kernel (.obj files)
		958	call load_file_parse_table ; prepare file parse table
		959	call set_kernel_conf ; configure devices and gui
488	spraid	960	no_lib_load:
1289	diamond	961	end if
488	spraid	962
1638	serge	963	; Display APIC status
2434	Serge	964	mov esi, boot_APIC_found
2219	Serge	965	cmp [irq_mode], IRQ_APIC
2434	Serge	966	je @f
		967	mov esi, boot_APIC_nfound
2219	Serge	968	@@:
2987	Serge	969	call boot_log
1638	serge	970
1	ha	971	; PRINT AMOUNT OF MEMORY
1055	Galkov	972	mov esi, boot_memdetect
		973	call boot_log
1	ha	974
1055	Galkov	975	movzx ecx, word [boot_y]
2130	serge	976	if lang eq ru
2434	Serge	977	or ecx, (10+30*6) shl 16
3500	Serge	978	else if lang eq sp
		979	or ecx, (10+33*6) shl 16
3908	Serge	980	else
2434	Serge	981	or ecx, (10+29*6) shl 16
3908	Serge	982	end if
1055	Galkov	983	sub ecx, 10
		984	mov edx, 0xFFFFFF
		985	mov ebx, [MEM_AMOUNT]
		986	shr ebx, 20
2434	Serge	987	xor edi, edi
1055	Galkov	988	mov eax, 0x00040000
2434	Serge	989	inc edi
1055	Galkov	990	call display_number_force
41	mikedld	991
465	serge	992	; BUILD SCHEDULER
		993
2987	Serge	994	; call build_scheduler; sys32.inc
465	serge	995
2987	Serge	996	; mov esi, boot_devices
		997	; call boot_log
567	serge	998
5201	serge	999	call clear_pci_ide_interrupts
567	serge	1000
5201	serge	1001	include "detect/vortex86.inc" ; Vortex86 SoC detection code
3555	Serge	1002
5201	serge	1003	stdcall load_pe_driver, szVidintel, 0
		1004
3555	Serge	1005	call usb_init
		1006
1	ha	1007	; SET PRELIMINARY WINDOW STACK AND POSITIONS
		1008
2434	Serge	1009	mov esi, boot_windefs
		1010	call boot_log
		1011	call set_window_defaults
1	ha	1012
		1013	; SET BACKGROUND DEFAULTS
		1014
2434	Serge	1015	mov esi, boot_bgr
		1016	call boot_log
		1017	call init_background
		1018	call calculatebackground
1	ha	1019
		1020	; RESERVE SYSTEM IRQ'S JA PORT'S
		1021
2434	Serge	1022	mov esi, boot_resirqports
		1023	call boot_log
		1024	call reserve_irqs_ports
1	ha	1025
2434	Serge	1026	call init_display
		1027	mov eax, [def_cursor]
		1028	mov [SLOT_BASE+APPDATA.cursor+256], eax
3555	Serge	1029	mov [SLOT_BASE+APPDATA.cursor+256*2], eax
281	serge	1030
3555	Serge	1031	; PRINT CPU FREQUENCY
281	serge	1032
3555	Serge	1033	mov esi, boot_cpufreq
2434	Serge	1034	call boot_log
3555	Serge	1035
5984	serge	1036	cli
		1037	mov ebx, [hpet_base]
		1038	test ebx, ebx
		1039	jz @F
		1040	mov ebx, [ebx+0xF0]
		1041
3555	Serge	1042	rdtsc
5984	serge	1043	mov ecx, 1000
		1044	sub eax, [hpet_tsc_start]
		1045	sbb edx, [hpet_tsc_start+4]
		1046	shld edx, eax, 10
		1047	shl eax, 10
		1048	mov esi, eax
		1049	mov eax, edx
		1050	mul ecx
		1051	xchg eax, esi
		1052	mul ecx
		1053	adc edx, esi
		1054	div ebx
		1055	mul ecx
		1056	div [hpet_period]
		1057	mul ecx
		1058	DEBUGF 1, "K : cpu frequency %u Hz\n", eax
		1059	jmp .next
		1060	@@:
		1061	rdtsc
2434	Serge	1062	mov ecx, eax
		1063	mov esi, 250 ; wait 1/4 a second
		1064	call delay_ms
3555	Serge	1065	rdtsc
5201	serge	1066	sti
3555	Serge	1067
2434	Serge	1068	sub eax, ecx
3500	Serge	1069	xor edx, edx
		1070	shld edx, eax, 2
2434	Serge	1071	shl eax, 2
5984	serge	1072	.next:
3500	Serge	1073	mov dword [cpu_freq], eax
		1074	mov dword [cpu_freq+4], edx
3555	Serge	1075	mov ebx, 1000000
		1076	div ebx
		1077	mov ebx, eax
1	ha	1078
1055	Galkov	1079	movzx ecx, word [boot_y]
2130	serge	1080	if lang eq ru
3555	Serge	1081	add ecx, (10+19*6) shl 16 - 10
3500	Serge	1082	else if lang eq sp
3555	Serge	1083	add ecx, (10+25*6) shl 16 - 10
3908	Serge	1084	else
3555	Serge	1085	add ecx, (10+17*6) shl 16 - 10
3908	Serge	1086	end if
3555	Serge	1087
1055	Galkov	1088	mov edx, 0xFFFFFF
2434	Serge	1089	xor edi, edi
1055	Galkov	1090	mov eax, 0x00040000
2229	Serge	1091	inc edi
1055	Galkov	1092	call display_number_force
1038	diamond	1093
1	ha	1094	; SET VARIABLES
		1095
2434	Serge	1096	call set_variables
1	ha	1097
		1098	; STACK AND FDC
		1099
2434	Serge	1100	call stack_init
		1101	call fdc_init
1	ha	1102
		1103	; PALETTE FOR 320x200 and 640x480 16 col
		1104
2434	Serge	1105	cmp [SCR_MODE], word 0x12
		1106	jne no_pal_vga
		1107	mov esi, boot_pal_vga
		1108	call boot_log
		1109	call paletteVGA
1	ha	1110	no_pal_vga:
		1111
2434	Serge	1112	cmp [SCR_MODE], word 0x13
		1113	jne no_pal_ega
		1114	mov esi, boot_pal_ega
		1115	call boot_log
		1116	call palette320x200
1	ha	1117	no_pal_ega:
		1118
		1119	; LOAD DEFAULT SKIN
		1120
1055	Galkov	1121	call load_default_skin
1	ha	1122
5984	serge	1123	; Protect I/O permission map
465	serge	1124
2434	Serge	1125	mov esi, [default_io_map]
5565	serge	1126	stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map], PG_READ
2434	Serge	1127	add esi, 0x1000
5565	serge	1128	stdcall map_page, esi, [SLOT_BASE+256+APPDATA.io_map+4], PG_READ
465	serge	1129
2434	Serge	1130	stdcall map_page, tss._io_map_0, \
5565	serge	1131	[SLOT_BASE+256+APPDATA.io_map], PG_READ
2434	Serge	1132	stdcall map_page, tss._io_map_1, \
5565	serge	1133	[SLOT_BASE+256+APPDATA.io_map+4], PG_READ
465	serge	1134
2141	serge	1135	; SET KEYBOARD PARAMETERS
2434	Serge	1136	mov al, 0xf6 ; reset keyboard, scan enabled
5201	serge	1137	call kb_write_wait_ack
2987	Serge	1138	test ah, ah
		1139	jnz .no_keyboard
2141	serge	1140
2987	Serge	1141	iglobal
		1142	align 4
		1143	ps2_keyboard_functions:
		1144	dd .end - $
		1145	dd 0 ; no close
		1146	dd ps2_set_lights
		1147	.end:
		1148	endg
		1149	stdcall register_keyboard, ps2_keyboard_functions, 0
2141	serge	1150	; mov al, 0xED ; Keyboard LEDs - only for testing!
5201	serge	1151	; call kb_write_wait_ack
2141	serge	1152	; mov al, 111b
5201	serge	1153	; call kb_write_wait_ack
2141	serge	1154
2434	Serge	1155	mov al, 0xF3 ; set repeat rate & delay
5201	serge	1156	call kb_write_wait_ack
2434	Serge	1157	mov al, 0; 30 250 ;00100010b ; 24 500 ;00100100b ; 20 500
5201	serge	1158	call kb_write_wait_ack
2141	serge	1159	;// mike.dld [
2434	Serge	1160	call set_lights
2141	serge	1161	;// mike.dld ]
		1162	stdcall attach_int_handler, 1, irq1, 0
5201	serge	1163	DEBUGF 1, "K : IRQ1 return code %x\n", eax
2987	Serge	1164	.no_keyboard:
2141	serge	1165
5201	serge	1166	; Load PS/2 mouse driver
2141	serge	1167
5201	serge	1168	stdcall load_pe_driver, szPS2MDriver, 0
2141	serge	1169
2434	Serge	1170	mov esi, boot_setmouse
		1171	call boot_log
		1172	call setmouse
2141	serge	1173
5201	serge	1174	; LOAD FIRST APPLICATION
		1175	cmp byte [launcher_start], 1 ; Check if starting LAUNCHER is selected on blue screen (1 = yes)
		1176	jnz first_app_found
1043	hidnplayr	1177
5201	serge	1178	cli
		1179	mov ebp, firstapp
		1180	call fs_execute_from_sysdir
		1181	test eax, eax
		1182	jns first_app_found
1043	hidnplayr	1183
5201	serge	1184	mov esi, boot_failed
		1185	call boot_log
1043	hidnplayr	1186
5201	serge	1187	mov eax, 0xDEADBEEF ; otherwise halt
		1188	hlt
1043	hidnplayr	1189
5201	serge	1190	first_app_found:
1043	hidnplayr	1191
2010	serge	1192	; START MULTITASKING
1	ha	1193
1638	serge	1194	; A 'All set - press ESC to start' messages if need
767	diamond	1195	if preboot_blogesc
1055	Galkov	1196	mov esi, boot_tasking
		1197	call boot_log
2434	Serge	1198	.bll1:
		1199	in al, 0x60 ; wait for ESC key press
1055	Galkov	1200	cmp al, 129
		1201	jne .bll1
767	diamond	1202	end if
		1203
5201	serge	1204	mov [timer_ticks_enable], 1 ; for cd driver
3908	Serge	1205
5201	serge	1206	sti
3908	Serge	1207
5201	serge	1208	call mtrr_validate
3725	Serge	1209
5201	serge	1210	jmp osloop
3908	Serge	1211
		1212
5201	serge	1213	; Fly :)
3908	Serge	1214
5201	serge	1215	uglobal
		1216	align 4
		1217	ap_initialized dd 0
		1218	endg
3908	Serge	1219
5201	serge	1220	ap_init_high:
		1221	mov ax, os_stack
		1222	mov bx, app_data
		1223	mov cx, app_tls
		1224	mov ss, ax
		1225	mov ds, bx
		1226	mov es, bx
		1227	mov fs, cx
		1228	mov gs, bx
		1229	xor esp, esp
		1230	mov eax, sys_proc-OS_BASE+PROC.pdt_0
		1231	mov cr3, eax
		1232	lock inc [ap_initialized]
		1233	jmp idle_loop
3908	Serge	1234
		1235
465	serge	1236	include 'unpacker.inc'
		1237
		1238	align 4
		1239	boot_log:
2217	Serge	1240	pushad
465	serge	1241
2434	Serge	1242	mov ebx, 10*65536
		1243	mov bx, word [boot_y]
		1244	add [boot_y], dword 10
		1245	mov ecx, 0x80ffffff; ASCIIZ string with white color
		1246	xor edi, edi
		1247	mov edx, esi
		1248	inc edi
		1249	call dtext
465	serge	1250
2434	Serge	1251	mov [novesachecksum], 1000
		1252	call checkVga_N13
465	serge	1253
1276	Lrz	1254	popad
465	serge	1255
1276	Lrz	1256	ret
465	serge	1257
3555	Serge	1258	; in: edx -> APPDATA for OS/IDLE slot
		1259	; in: ebx = stack base
		1260	proc setup_os_slot
		1261	xor eax, eax
		1262	mov ecx, 256/4
		1263	mov edi, edx
		1264	rep stosd
		1265
		1266	mov eax, tss+0x80
		1267	call get_pg_addr
		1268	inc eax
		1269	mov [edx+APPDATA.io_map], eax
		1270	mov eax, tss+0x1080
		1271	call get_pg_addr
		1272	inc eax
		1273	mov [edx+APPDATA.io_map+4], eax
		1274
		1275	mov dword [edx+APPDATA.pl0_stack], ebx
		1276	lea edi, [ebx+0x2000-512]
		1277	mov dword [edx+APPDATA.fpu_state], edi
		1278	mov dword [edx+APPDATA.saved_esp0], edi
		1279	mov dword [edx+APPDATA.saved_esp], edi
		1280	mov dword [edx+APPDATA.terminate_protection], 1 ; make unkillable
		1281
		1282	mov esi, fpu_data
		1283	mov ecx, 512/4
		1284	cld
		1285	rep movsd
		1286
		1287	lea eax, [edx+APP_OBJ_OFFSET]
		1288	mov dword [edx+APPDATA.fd_obj], eax
		1289	mov dword [edx+APPDATA.bk_obj], eax
		1290
		1291	mov dword [edx+APPDATA.cur_dir], sysdir_path
		1292
5201	serge	1293	mov [edx + APPDATA.process], sys_proc
3555	Serge	1294
5201	serge	1295	lea ebx, [edx+APPDATA.list]
		1296	lea ecx, [sys_proc+PROC.thr_list]
		1297	list_add_tail ebx, ecx
		1298
3555	Serge	1299	mov eax, edx
		1300	shr eax, 3
		1301	add eax, CURRENT_TASK - (SLOT_BASE shr 3)
		1302	mov [eax+TASKDATA.wnd_number], dh
		1303	mov byte [eax+TASKDATA.pid], dh
		1304
		1305	ret
		1306	endp
		1307
1	ha	1308	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1309	; ;
33	mario79	1310	; MAIN OS LOOP START ;
1	ha	1311	; ;
		1312	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1313	align 32
		1314	osloop:
3555	Serge	1315	mov edx, osloop_has_work?
		1316	xor ecx, ecx
		1317	call Wait_events
		1318	xor eax, eax
		1319	xchg eax, [osloop_nonperiodic_work]
		1320	test eax, eax
		1321	jz .no_periodic
5201	serge	1322
2465	Serge	1323	call __sys_draw_pointer
2434	Serge	1324	call window_check_events
		1325	call mouse_check_events
		1326	call checkmisc
		1327	call checkVga_N13
5201	serge	1328	;--------------------------------------
3555	Serge	1329	.no_periodic:
2434	Serge	1330	call stack_handler
		1331	call check_fdd_motor_status
		1332	call check_ATAPI_device_event
2987	Serge	1333	call check_lights_state
2434	Serge	1334	call check_timers
5201	serge	1335
2434	Serge	1336	jmp osloop
33	mario79	1337	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1338	; ;
		1339	; MAIN OS LOOP END ;
		1340	; ;
		1341	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3555	Serge	1342	proc osloop_has_work?
		1343	cmp [osloop_nonperiodic_work], 0
		1344	jnz .yes
		1345	call stack_handler_has_work?
		1346	jnz .yes
4287	Serge	1347	call check_fdd_motor_status_has_work?
		1348	jnz .yes
3555	Serge	1349	call check_ATAPI_device_event_has_work?
		1350	jnz .yes
		1351	call check_lights_state_has_work?
		1352	jnz .yes
		1353	call check_timers_has_work?
		1354	jnz .yes
		1355	.no:
		1356	xor eax, eax
1055	Galkov	1357	ret
3555	Serge	1358	.yes:
		1359	xor eax, eax
		1360	inc eax
		1361	ret
		1362	endp
1	ha	1363
3555	Serge	1364	proc wakeup_osloop
		1365	mov [osloop_nonperiodic_work], 1
		1366	ret
		1367	endp
		1368
1	ha	1369	uglobal
3555	Serge	1370	align 4
		1371	osloop_nonperiodic_work dd ?
1	ha	1372	endg
		1373
5201	serge	1374	uglobal
		1375	align 64
		1376	idle_addr rb 64
		1377	endg
		1378
3555	Serge	1379	idle_thread:
		1380	sti
5201	serge	1381
		1382	; The following code can be executed by all CPUs in the system.
		1383	; All other parts of the kernel do not expect multi-CPU.
		1384	; Also, APs don't even have a stack here.
		1385	; Beware. Don't do anything here. Anything at all.
3555	Serge	1386	idle_loop:
5201	serge	1387	cmp [use_mwait_for_idle], 0
		1388	jnz idle_loop_mwait
		1389
		1390	idle_loop_hlt:
3555	Serge	1391	hlt
5201	serge	1392	jmp idle_loop_hlt
1	ha	1393
5201	serge	1394	idle_loop_mwait:
		1395	mov eax, idle_addr
		1396	xor ecx, ecx
		1397	xor edx, edx
		1398	monitor
		1399	xor ecx, ecx
		1400	mov eax, 20h ; or 10h
		1401	mwait
		1402	jmp idle_loop_mwait
1	ha	1403
3555	Serge	1404
1	ha	1405	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1406	; ;
		1407	; INCLUDED SYSTEM FILES ;
		1408	; ;
		1409	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1410
		1411
7	me_root	1412	include "kernel32.inc"
1	ha	1413
		1414
		1415	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1416	; ;
		1417	; KERNEL FUNCTIONS ;
		1418	; ;
		1419	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1420
		1421	reserve_irqs_ports:
		1422
1273	Lrz	1423
		1424	; RESERVE PORTS
2434	Serge	1425	mov eax, RESERVED_PORTS
		1426	mov ecx, 1
1273	Lrz	1427
2434	Serge	1428	mov [eax], dword 4
269	serge	1429
2434	Serge	1430	mov [eax+16], ecx
		1431	mov [eax+16+4], dword 0
3500	Serge	1432	mov [eax+16+8], dword 0x2D
269	serge	1433
2434	Serge	1434	mov [eax+32], ecx
		1435	mov [eax+32+4], dword 0x30
		1436	mov [eax+32+8], dword 0x4D
233	serge	1437
2434	Serge	1438	mov [eax+48], ecx
		1439	mov [eax+48+4], dword 0x50
3500	Serge	1440	mov [eax+48+8], dword 0xDF
233	serge	1441
2434	Serge	1442	mov [eax+64], ecx
		1443	mov [eax+64+4], dword 0xE5
		1444	mov [eax+64+8], dword 0xFF
1273	Lrz	1445
1055	Galkov	1446	ret
1	ha	1447
		1448
		1449	iglobal
3555	Serge	1450	process_number dd 0x2
1	ha	1451	endg
		1452
		1453	set_variables:
		1454
2434	Serge	1455	mov ecx, 0x16 ; flush port 0x60
2141	serge	1456	.fl60:
2434	Serge	1457	in al, 0x60
		1458	loop .fl60
		1459	push eax
1	ha	1460
3908	Serge	1461	mov ax, [BOOT_VARS+BOOT_Y_RES]
2434	Serge	1462	shr ax, 1
		1463	shl eax, 16
3908	Serge	1464	mov ax, [BOOT_VARS+BOOT_X_RES]
2434	Serge	1465	shr ax, 1
		1466	mov [MOUSE_X], eax
3555	Serge	1467	call wakeup_osloop
41	mikedld	1468
2434	Serge	1469	xor eax, eax
		1470	mov [BTN_ADDR], dword BUTTON_INFO ; address of button list
1	ha	1471
2434	Serge	1472	mov byte [KEY_COUNT], al ; keyboard buffer
		1473	mov byte [BTN_COUNT], al ; button buffer
1267	Lrz	1474	; mov [MOUSE_X],dword 100*65536+100 ; mouse x/y
		1475
2434	Serge	1476	pop eax
1055	Galkov	1477	ret
1	ha	1478
		1479	align 4
1304	Lrz	1480	;input eax=43,bl-byte of output, ecx - number of port
1	ha	1481	sys_outport:
		1482
2434	Serge	1483	mov edi, ecx ; separate flag for read / write
		1484	and ecx, 65535
1	ha	1485
2434	Serge	1486	mov eax, [RESERVED_PORTS]
		1487	test eax, eax
		1488	jnz .sopl8
		1489	inc eax
		1490	mov [esp+32], eax
		1491	ret
1	ha	1492
1304	Lrz	1493	.sopl8:
2434	Serge	1494	mov edx, [TASK_BASE]
		1495	mov edx, [edx+0x4]
1304	Lrz	1496	;and ecx,65535
		1497	;cld - set on interrupt 0x40
		1498	.sopl1:
1	ha	1499
2434	Serge	1500	mov esi, eax
		1501	shl esi, 4
		1502	add esi, RESERVED_PORTS
		1503	cmp edx, [esi+0]
		1504	jne .sopl2
		1505	cmp ecx, [esi+4]
		1506	jb .sopl2
		1507	cmp ecx, [esi+8]
		1508	jg .sopl2
1304	Lrz	1509	.sopl3:
1	ha	1510
2434	Serge	1511	test edi, 0x80000000; read ?
		1512	jnz .sopl4
1	ha	1513
2434	Serge	1514	mov eax, ebx
		1515	mov dx, cx ; write
		1516	out dx, al
		1517	and [esp+32], dword 0
		1518	ret
1	ha	1519
2434	Serge	1520	.sopl2:
1	ha	1521
2434	Serge	1522	dec eax
		1523	jnz .sopl1
		1524	inc eax
		1525	mov [esp+32], eax
		1526	ret
1	ha	1527
1638	serge	1528
1304	Lrz	1529	.sopl4:
1	ha	1530
2434	Serge	1531	mov dx, cx ; read
		1532	in al, dx
		1533	and eax, 0xff
		1534	and [esp+32], dword 0
		1535	mov [esp+20], eax
		1536	ret
1	ha	1537
		1538	display_number:
1369	Lrz	1539	;It is not optimization
		1540	mov eax, ebx
		1541	mov ebx, ecx
		1542	mov ecx, edx
		1543	mov edx, esi
		1544	mov esi, edi
1	ha	1545	; eax = print type, al=0 -> ebx is number
		1546	; al=1 -> ebx is pointer
		1547	; ah=0 -> display decimal
		1548	; ah=1 -> display hexadecimal
		1549	; ah=2 -> display binary
		1550	; eax bits 16-21 = number of digits to display (0-32)
		1551	; eax bits 22-31 = reserved
		1552	;
		1553	; ebx = number or pointer
		1554	; ecx = x shl 16 + y
		1555	; edx = color
2434	Serge	1556	xor edi, edi
211	serge	1557	display_number_force:
2434	Serge	1558	push eax
		1559	and eax, 0x3fffffff
		1560	cmp eax, 0xffff ; length > 0 ?
		1561	pop eax
		1562	jge cont_displ
		1563	ret
1	ha	1564	cont_displ:
2434	Serge	1565	push eax
		1566	and eax, 0x3fffffff
		1567	cmp eax, 61*0x10000 ; length <= 60 ?
		1568	pop eax
		1569	jb cont_displ2
		1570	ret
1	ha	1571	cont_displ2:
		1572
2434	Serge	1573	pushad
1	ha	1574
2434	Serge	1575	cmp al, 1 ; ecx is a pointer ?
		1576	jne displnl1
		1577	mov ebp, ebx
		1578	add ebp, 4
		1579	mov ebp, [ebp+std_application_base_address]
		1580	mov ebx, [ebx+std_application_base_address]
1276	Lrz	1581	displnl1:
2434	Serge	1582	sub esp, 64
1	ha	1583
2434	Serge	1584	test ah, ah ; DECIMAL
		1585	jnz no_display_desnum
		1586	shr eax, 16
		1587	and eax, 0xC03f
652	mario79	1588	; and eax,0x3f
2434	Serge	1589	push eax
		1590	and eax, 0x3f
		1591	mov edi, esp
		1592	add edi, 4+64-1
		1593	mov ecx, eax
		1594	mov eax, ebx
		1595	mov ebx, 10
1276	Lrz	1596	d_desnum:
2434	Serge	1597	xor edx, edx
		1598	call division_64_bits
		1599	div ebx
		1600	add dl, 48
		1601	mov [edi], dl
		1602	dec edi
		1603	loop d_desnum
		1604	pop eax
		1605	call normalize_number
		1606	call draw_num_text
		1607	add esp, 64
		1608	popad
		1609	ret
1	ha	1610	no_display_desnum:
		1611
2434	Serge	1612	cmp ah, 0x01 ; HEXADECIMAL
		1613	jne no_display_hexnum
		1614	shr eax, 16
		1615	and eax, 0xC03f
652	mario79	1616	; and eax,0x3f
2434	Serge	1617	push eax
		1618	and eax, 0x3f
		1619	mov edi, esp
		1620	add edi, 4+64-1
		1621	mov ecx, eax
		1622	mov eax, ebx
		1623	mov ebx, 16
1	ha	1624	d_hexnum:
2434	Serge	1625	xor edx, edx
		1626	call division_64_bits
		1627	div ebx
1056	Galkov	1628	hexletters = __fdo_hexdigits
2434	Serge	1629	add edx, hexletters
		1630	mov dl, [edx]
		1631	mov [edi], dl
		1632	dec edi
		1633	loop d_hexnum
		1634	pop eax
		1635	call normalize_number
		1636	call draw_num_text
		1637	add esp, 64
		1638	popad
		1639	ret
1	ha	1640	no_display_hexnum:
		1641
2434	Serge	1642	cmp ah, 0x02 ; BINARY
		1643	jne no_display_binnum
		1644	shr eax, 16
		1645	and eax, 0xC03f
652	mario79	1646	; and eax,0x3f
2434	Serge	1647	push eax
		1648	and eax, 0x3f
		1649	mov edi, esp
		1650	add edi, 4+64-1
		1651	mov ecx, eax
		1652	mov eax, ebx
		1653	mov ebx, 2
1	ha	1654	d_binnum:
2434	Serge	1655	xor edx, edx
		1656	call division_64_bits
		1657	div ebx
		1658	add dl, 48
		1659	mov [edi], dl
		1660	dec edi
		1661	loop d_binnum
		1662	pop eax
		1663	call normalize_number
		1664	call draw_num_text
		1665	add esp, 64
		1666	popad
		1667	ret
1	ha	1668	no_display_binnum:
		1669
2434	Serge	1670	add esp, 64
		1671	popad
		1672	ret
1	ha	1673
652	mario79	1674	normalize_number:
2434	Serge	1675	test ah, 0x80
		1676	jz .continue
		1677	mov ecx, 48
		1678	and eax, 0x3f
652	mario79	1679	@@:
2434	Serge	1680	inc edi
		1681	cmp [edi], cl
		1682	jne .continue
		1683	dec eax
		1684	cmp eax, 1
		1685	ja @r
		1686	mov al, 1
652	mario79	1687	.continue:
2434	Serge	1688	and eax, 0x3f
		1689	ret
1	ha	1690
655	mario79	1691	division_64_bits:
2434	Serge	1692	test [esp+1+4], byte 0x40
		1693	jz .continue
		1694	push eax
		1695	mov eax, ebp
		1696	div ebx
		1697	mov ebp, eax
		1698	pop eax
655	mario79	1699	.continue:
2434	Serge	1700	ret
652	mario79	1701
1	ha	1702	draw_num_text:
2434	Serge	1703	mov esi, eax
		1704	mov edx, 64+4
		1705	sub edx, eax
		1706	add edx, esp
		1707	mov ebx, [esp+64+32-8+4]
684	diamond	1708	; add window start x & y
2434	Serge	1709	mov ecx, [TASK_BASE]
465	serge	1710
2434	Serge	1711	mov edi, [CURRENT_TASK]
		1712	shl edi, 8
465	serge	1713
2434	Serge	1714	mov eax, [ecx-twdw+WDATA.box.left]
		1715	add eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
		1716	shl eax, 16
		1717	add eax, [ecx-twdw+WDATA.box.top]
		1718	add eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
		1719	add ebx, eax
		1720	mov ecx, [esp+64+32-12+4]
1055	Galkov	1721	and ecx, not 0x80000000 ; force counted string
		1722	mov eax, [esp+64+8] ; background color (if given)
		1723	mov edi, [esp+64+4]
2434	Serge	1724	jmp dtext
5201	serge	1725	;-----------------------------------------------------------------------------
5596	serge	1726	iglobal
		1727	midi_base dw 0
5201	serge	1728	endg
		1729	;-----------------------------------------------------------------------------
1	ha	1730	align 4
		1731	sys_setup:
5201	serge	1732	; 1 = roland mpu midi base , base io address
		1733	; 2 = keyboard 1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
		1734	; 3 = not used
		1735	; 4 = not used
		1736	; 5 = system language, 1eng 2fi 3ger 4rus
		1737	; 6 = not used
		1738	; 7 = not used
		1739	; 8 = not used
		1740	; 9 = not used
		1741	; 10 = not used
1	ha	1742	; 11 = enable lba read
		1743	; 12 = enable pci access
5201	serge	1744	;-----------------------------------------------------------------------------
		1745	and [esp+32], dword 0
		1746	; F.21.1 - set MPU MIDI base port
		1747	dec ebx
		1748	jnz @f
1	ha	1749
2434	Serge	1750	cmp ecx, 0x100
5201	serge	1751	jb @f
1	ha	1752
2434	Serge	1753	mov esi, 65535
		1754	cmp esi, ecx
5201	serge	1755	jb @f
1276	Lrz	1756
5201	serge	1757	mov [midi_base], cx
		1758	mov word [mididp], cx
		1759	inc cx
		1760	mov word [midisp], cx
2434	Serge	1761	ret
5201	serge	1762	;--------------------------------------
		1763	@@:
		1764	; F.21.2 - set keyboard layout
		1765	dec ebx
		1766	jnz @f
1276	Lrz	1767
2434	Serge	1768	mov edi, [TASK_BASE]
		1769	mov eax, [edi+TASKDATA.mem_start]
		1770	add eax, edx
5201	serge	1771	; 1 = normal layout
		1772	dec ecx
		1773	jnz .shift
1	ha	1774
2434	Serge	1775	mov ebx, keymap
		1776	mov ecx, 128
		1777	call memmove
		1778	ret
5201	serge	1779	;--------------------------------------
		1780	.shift:
		1781	; 2 = layout at pressed Shift
2434	Serge	1782	dec ecx
5201	serge	1783	jnz .alt
1276	Lrz	1784
2434	Serge	1785	mov ebx, keymap_shift
		1786	mov ecx, 128
		1787	call memmove
		1788	ret
5201	serge	1789	;--------------------------------------
		1790	.alt:
		1791	; 3 = layout at pressed Alt
2434	Serge	1792	dec ecx
5201	serge	1793	jnz .country
		1794
2434	Serge	1795	mov ebx, keymap_alt
		1796	mov ecx, 128
		1797	call memmove
		1798	ret
5201	serge	1799	;--------------------------------------
		1800	.country:
		1801	; country identifier
2434	Serge	1802	sub ecx, 6
5201	serge	1803	jnz .error
		1804
2434	Serge	1805	mov word [keyboard], dx
		1806	ret
5201	serge	1807	;--------------------------------------
		1808	@@:
		1809	; F.21.5 - set system language
		1810	sub ebx, 3
		1811	jnz @f
1276	Lrz	1812
2434	Serge	1813	mov [syslang], ecx
		1814	ret
5201	serge	1815	;--------------------------------------
		1816	@@:
		1817	; F.21.11 - enable/disable low-level access to HD
		1818	and ecx, 1
		1819	sub ebx, 6
		1820	jnz @f
1638	serge	1821
5201	serge	1822	mov [lba_read_enabled], ecx
2434	Serge	1823	ret
5201	serge	1824	;--------------------------------------
		1825	@@:
		1826	; F.21.12 - enable/disable low-level access to PCI
2434	Serge	1827	dec ebx
5201	serge	1828	jnz .error
1	ha	1829
2434	Serge	1830	mov [pci_access_enabled], ecx
		1831	ret
5201	serge	1832	;--------------------------------------
		1833	.error:
2434	Serge	1834	or [esp+32], dword -1
		1835	ret
5201	serge	1836	;-----------------------------------------------------------------------------
1	ha	1837	align 4
		1838	sys_getsetup:
5201	serge	1839	; 1 = roland mpu midi base , base io address
		1840	; 2 = keyboard 1, base kaybap 2, shift keymap, 9 country 1eng 2fi 3ger 4rus
		1841	; 3 = not used
		1842	; 4 = not used
		1843	; 5 = system language, 1eng 2fi 3ger 4rus
		1844	; 6 = not used
		1845	; 7 = not used
		1846	; 8 = not used
		1847	; 9 = get hs timer tic
		1848	; 10 = not used
		1849	; 11 = get the state "lba read"
		1850	; 12 = get the state "pci access"
		1851	;-----------------------------------------------------------------------------
		1852	; F.26.1 - get MPU MIDI base port
		1853	dec ebx
		1854	jnz @f
1	ha	1855
2434	Serge	1856	movzx eax, [midi_base]
		1857	mov [esp+32], eax
		1858	ret
5201	serge	1859	;--------------------------------------
		1860	@@:
		1861	; F.26.2 - get keyboard layout
2434	Serge	1862	dec ebx
5201	serge	1863	jnz @f
1	ha	1864
2434	Serge	1865	mov edi, [TASK_BASE]
		1866	mov ebx, [edi+TASKDATA.mem_start]
		1867	add ebx, edx
5201	serge	1868	; 1 = normal layout
		1869	dec ecx
		1870	jnz .shift
1276	Lrz	1871
2434	Serge	1872	mov eax, keymap
		1873	mov ecx, 128
		1874	call memmove
		1875	ret
5201	serge	1876	;--------------------------------------
		1877	.shift:
		1878	; 2 = layout with pressed Shift
2434	Serge	1879	dec ecx
5201	serge	1880	jnz .alt
1276	Lrz	1881
2434	Serge	1882	mov eax, keymap_shift
		1883	mov ecx, 128
		1884	call memmove
		1885	ret
5201	serge	1886	;--------------------------------------
		1887	.alt:
		1888	; 3 = layout with pressed Alt
2434	Serge	1889	dec ecx
5201	serge	1890	jne .country
1276	Lrz	1891
2434	Serge	1892	mov eax, keymap_alt
		1893	mov ecx, 128
		1894	call memmove
		1895	ret
5201	serge	1896	;--------------------------------------
		1897	.country:
		1898	; 9 = country identifier
2434	Serge	1899	sub ecx, 6
5201	serge	1900	jnz .error
		1901
2434	Serge	1902	movzx eax, word [keyboard]
		1903	mov [esp+32], eax
		1904	ret
5201	serge	1905	;--------------------------------------
		1906	@@:
		1907	; F.26.5 - get system language
		1908	sub ebx, 3
		1909	jnz @f
1276	Lrz	1910
2434	Serge	1911	mov eax, [syslang]
		1912	mov [esp+32], eax
1276	Lrz	1913	ret
5201	serge	1914	;--------------------------------------
		1915	@@:
		1916	; F.26.9 - get the value of the time counter
		1917	sub ebx, 4
		1918	jnz @f
		1919
		1920	mov eax, [timer_ticks]
2434	Serge	1921	mov [esp+32], eax
		1922	ret
5201	serge	1923	;--------------------------------------
		1924	@@:
5984	serge	1925	; F.26.10 - get the time from kernel launch in nanoseconds
		1926	sub ebx, 1
		1927	jnz @f
		1928
		1929	call get_clock_ns
		1930	mov [esp+24], edx
		1931	mov [esp+32], eax
		1932	ret
		1933	;--------------------------------------
		1934	@@:
5201	serge	1935	; F.26.11 - Find out whether low-level HD access is enabled
5984	serge	1936	sub ebx, 1
5201	serge	1937	jnz @f
		1938
2434	Serge	1939	mov eax, [lba_read_enabled]
		1940	mov [esp+32], eax
		1941	ret
5201	serge	1942	;--------------------------------------
		1943	@@:
		1944	; F.26.12 - Find out whether low-level PCI access is enabled
2434	Serge	1945	dec ebx
5201	serge	1946	jnz .error
		1947
2434	Serge	1948	mov eax, [pci_access_enabled]
		1949	mov [esp+32], eax
		1950	ret
5201	serge	1951	;--------------------------------------
		1952	.error:
		1953	or [esp+32], dword -1
2434	Serge	1954	ret
5201	serge	1955	;-----------------------------------------------------------------------------
479	kastigar	1956	get_timer_ticks:
2434	Serge	1957	mov eax, [timer_ticks]
		1958	ret
5201	serge	1959	;-----------------------------------------------------------------------------
283	diamond	1960	iglobal
1	ha	1961	align 4
5984	serge	1962	mousefn dd msscreen
		1963	dd mswin
		1964	dd msbutton
		1965	dd msbuttonExt
1055	Galkov	1966	dd app_load_cursor
		1967	dd app_set_cursor
		1968	dd app_delete_cursor
		1969	dd msz
283	diamond	1970	endg
5201	serge	1971	;-----------------------------------------------------------------------------
1	ha	1972	readmousepos:
		1973
		1974	; eax=0 screen relative
		1975	; eax=1 window relative
		1976	; eax=2 buttons pressed
5984	serge	1977	; eax=3 buttons pressed ext
221	serge	1978	; eax=4 load cursor
		1979	; eax=5 set cursor
5984	serge	1980	; eax=6 delete cursor
479	kastigar	1981	; eax=7 get mouse_z
1	ha	1982
2434	Serge	1983	cmp ebx, 7
5984	serge	1984	ja @f
2434	Serge	1985	jmp [mousefn+ebx*4]
5984	serge	1986
221	serge	1987	msscreen:
2434	Serge	1988	mov eax, [MOUSE_X]
		1989	shl eax, 16
		1990	mov ax, [MOUSE_Y]
		1991	mov [esp+36-4], eax
5984	serge	1992	@@:
2434	Serge	1993	ret
5984	serge	1994
221	serge	1995	mswin:
2434	Serge	1996	mov eax, [MOUSE_X]
		1997	shl eax, 16
		1998	mov ax, [MOUSE_Y]
		1999	mov esi, [TASK_BASE]
		2000	mov bx, word [esi-twdw+WDATA.box.left]
		2001	shl ebx, 16
		2002	mov bx, word [esi-twdw+WDATA.box.top]
		2003	sub eax, ebx
		2004	mov edi, [CURRENT_TASK]
		2005	shl edi, 8
		2006	sub ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
		2007	rol eax, 16
		2008	sub ax, word[edi+SLOT_BASE+APPDATA.wnd_clientbox.left]
		2009	rol eax, 16
		2010	mov [esp+36-4], eax
		2011	ret
5984	serge	2012
221	serge	2013	msbutton:
2434	Serge	2014	movzx eax, byte [BTN_DOWN]
		2015	mov [esp+36-4], eax
		2016	ret
5984	serge	2017
		2018	msbuttonExt:
		2019	mov eax, [BTN_DOWN]
2434	Serge	2020	mov [esp+36-4], eax
		2021	ret
164	serge	2022
221	serge	2023	app_load_cursor:
2434	Serge	2024	cmp ecx, OS_BASE
5984	serge	2025	jae @f
2434	Serge	2026	stdcall load_cursor, ecx, edx
		2027	mov [esp+36-4], eax
5984	serge	2028	@@:
2434	Serge	2029	ret
164	serge	2030
221	serge	2031	app_set_cursor:
2434	Serge	2032	stdcall set_cursor, ecx
		2033	mov [esp+36-4], eax
		2034	ret
1	ha	2035
233	serge	2036	app_delete_cursor:
2434	Serge	2037	stdcall delete_cursor, ecx
		2038	mov [esp+36-4], eax
		2039	ret
1	ha	2040
5984	serge	2041	msz:
		2042	mov edi, [TASK_COUNT]
		2043	movzx edi, word [WIN_POS + edi*2]
		2044	cmp edi, [CURRENT_TASK]
		2045	jne @f
		2046	mov ax, [MOUSE_SCROLL_H]
		2047	shl eax, 16
		2048	mov ax, [MOUSE_SCROLL_V]
		2049	mov [esp+36-4], eax
		2050	and [MOUSE_SCROLL_H], word 0
		2051	and [MOUSE_SCROLL_V], word 0
		2052	ret
		2053	@@:
		2054	and [esp+36-4], dword 0
		2055	ret
		2056
1	ha	2057	is_input:
		2058
2434	Serge	2059	push edx
		2060	mov dx, word [midisp]
		2061	in al, dx
		2062	and al, 0x80
		2063	pop edx
		2064	ret
1	ha	2065
		2066	is_output:
		2067
2434	Serge	2068	push edx
		2069	mov dx, word [midisp]
		2070	in al, dx
		2071	and al, 0x40
		2072	pop edx
		2073	ret
1	ha	2074
		2075
		2076	get_mpu_in:
		2077
2434	Serge	2078	push edx
		2079	mov dx, word [mididp]
		2080	in al, dx
		2081	pop edx
		2082	ret
1	ha	2083
		2084
		2085	put_mpu_out:
		2086
2434	Serge	2087	push edx
		2088	mov dx, word [mididp]
		2089	out dx, al
		2090	pop edx
		2091	ret
1	ha	2092
		2093
		2094
		2095	align 4
		2096
		2097	sys_midi:
2434	Serge	2098	cmp [mididp], 0
		2099	jnz sm0
		2100	mov [esp+36], dword 1
		2101	ret
1276	Lrz	2102	sm0:
2434	Serge	2103	and [esp+36], dword 0
		2104	dec ebx
		2105	jnz smn1
1276	Lrz	2106	; call setuart
		2107	su1:
2434	Serge	2108	call is_output
		2109	test al, al
		2110	jnz su1
		2111	mov dx, word [midisp]
		2112	mov al, 0xff
		2113	out dx, al
1276	Lrz	2114	su2:
2434	Serge	2115	mov dx, word [midisp]
		2116	mov al, 0xff
		2117	out dx, al
		2118	call is_input
		2119	test al, al
		2120	jnz su2
		2121	call get_mpu_in
		2122	cmp al, 0xfe
		2123	jnz su2
1276	Lrz	2124	su3:
2434	Serge	2125	call is_output
		2126	test al, al
		2127	jnz su3
		2128	mov dx, word [midisp]
		2129	mov al, 0x3f
		2130	out dx, al
		2131	ret
1276	Lrz	2132	smn1:
2434	Serge	2133	dec ebx
		2134	jnz smn2
1276	Lrz	2135	sm10:
2434	Serge	2136	call get_mpu_in
		2137	call is_output
		2138	test al, al
		2139	jnz sm10
		2140	mov al, bl
		2141	call put_mpu_out
		2142	smn2:
		2143	ret
1	ha	2144
		2145	detect_devices:
		2146	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
769	Rus	2147	;include 'detect/commouse.inc'
479	kastigar	2148	;include 'detect/ps2mouse.inc'
1	ha	2149	;include 'detect/dev_fd.inc'
		2150	;include 'detect/dev_hdcd.inc'
		2151	;include 'detect/sear_par.inc'
		2152	;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2434	Serge	2153	ret
1	ha	2154
		2155	sys_end:
2434	Serge	2156	;--------------------------------------
		2157	cmp [_display.select_cursor], 0
		2158	je @f
		2159	; restore default cursor before killing
		2160	pusha
		2161	mov ecx, [current_slot]
2439	Serge	2162	call restore_default_cursor_before_killing
2434	Serge	2163	popa
		2164	@@:
		2165	;--------------------------------------
3555	Serge	2166	; kill all sockets this process owns
		2167	pusha
		2168	mov edx, [TASK_BASE]
		2169	mov edx, [edx+TASKDATA.pid]
		2170	call SOCKET_process_end
		2171	popa
		2172	;--------------------------------------
2434	Serge	2173	mov ecx, [current_slot]
		2174	mov eax, [ecx+APPDATA.tls_base]
		2175	test eax, eax
		2176	jz @F
1220	serge	2177
2434	Serge	2178	stdcall user_free, eax
1220	serge	2179	@@:
		2180
2434	Serge	2181	mov eax, [TASK_BASE]
		2182	mov [eax+TASKDATA.state], 3; terminate this program
3555	Serge	2183	call wakeup_osloop
41	mikedld	2184
3626	Serge	2185	.waitterm: ; wait here for termination
		2186	call change_task
		2187	jmp .waitterm
2439	Serge	2188	;------------------------------------------------------------------------------
2465	Serge	2189	align 4
2439	Serge	2190	restore_default_cursor_before_killing:
2987	Serge	2191	pushfd
		2192	cli
2439	Serge	2193	mov eax, [def_cursor]
		2194	mov [ecx+APPDATA.cursor], eax
1	ha	2195
2439	Serge	2196	movzx eax, word [MOUSE_Y]
		2197	movzx ebx, word [MOUSE_X]
2465	Serge	2198	mov eax, [d_width_calc_area + eax*4]
		2199
5565	serge	2200	add eax, [_display.win_map]
2439	Serge	2201	movzx edx, byte [ebx+eax]
		2202	shl edx, 8
		2203	mov esi, [edx+SLOT_BASE+APPDATA.cursor]
2465	Serge	2204
		2205	cmp esi, [current_cursor]
		2206	je @f
		2207
2439	Serge	2208	push esi
		2209	call [_display.select_cursor]
		2210	mov [current_cursor], esi
2465	Serge	2211	@@:
		2212	mov [redrawmouse_unconditional], 1
3555	Serge	2213	call wakeup_osloop
2987	Serge	2214	popfd
2439	Serge	2215	ret
		2216	;------------------------------------------------------------------------------
75	diamond	2217	iglobal
170	serge	2218	align 4
75	diamond	2219	sys_system_table:
2268	Serge	2220	dd sysfn_deactivate ; 1 = deactivate window
1055	Galkov	2221	dd sysfn_terminate ; 2 = terminate thread
		2222	dd sysfn_activate ; 3 = activate window
		2223	dd sysfn_getidletime ; 4 = get idle time
		2224	dd sysfn_getcpuclock ; 5 = get cpu clock
		2225	dd sysfn_saveramdisk ; 6 = save ramdisk
		2226	dd sysfn_getactive ; 7 = get active window
		2227	dd sysfn_sound_flag ; 8 = get/set sound_flag
		2228	dd sysfn_shutdown ; 9 = shutdown with parameter
		2229	dd sysfn_minimize ; 10 = minimize window
		2230	dd sysfn_getdiskinfo ; 11 = get disk subsystem info
		2231	dd sysfn_lastkey ; 12 = get last pressed key
		2232	dd sysfn_getversion ; 13 = get kernel version
		2233	dd sysfn_waitretrace ; 14 = wait retrace
		2234	dd sysfn_centermouse ; 15 = center mouse cursor
		2235	dd sysfn_getfreemem ; 16 = get free memory size
		2236	dd sysfn_getallmem ; 17 = get total memory size
		2237	dd sysfn_terminate2 ; 18 = terminate thread using PID
		2238	; instead of slot
		2239	dd sysfn_mouse_acceleration; 19 = set/get mouse acceleration
		2240	dd sysfn_meminfo ; 20 = get extended memory info
		2241	dd sysfn_pid_to_slot ; 21 = get slot number for pid
		2242	dd sysfn_min_rest_window ; 22 = minimize and restore any window
2987	Serge	2243	dd sysfn_min_windows ; 23 = minimize all windows
		2244	dd sysfn_set_screen_sizes ; 24 = set screen sizes for Vesa
5984	serge	2245
		2246	dd sysfn_zmodif ; 25 = get/set window z modifier ;Fantomer
75	diamond	2247	sysfn_num = ($ - sys_system_table)/4
		2248	endg
2268	Serge	2249	;------------------------------------------------------------------------------
1	ha	2250	sys_system:
1055	Galkov	2251	dec ebx
		2252	cmp ebx, sysfn_num
		2253	jae @f
		2254	jmp dword [sys_system_table + ebx*4]
75	diamond	2255	@@:
1055	Galkov	2256	ret
2268	Serge	2257	;------------------------------------------------------------------------------
1055	Galkov	2258	sysfn_shutdown: ; 18.9 = system shutdown
2434	Serge	2259	cmp ecx, 1
		2260	jl exit_for_anyone
		2261	cmp ecx, 4
		2262	jg exit_for_anyone
3908	Serge	2263	mov [BOOT_VARS+0x9030], cl
748	heavyiron	2264
2434	Serge	2265	mov eax, [TASK_COUNT]
		2266	mov [SYS_SHUTDOWN], al
		2267	mov [shutdown_processes], eax
3555	Serge	2268	call wakeup_osloop
2434	Serge	2269	and dword [esp+32], 0
748	heavyiron	2270	exit_for_anyone:
2434	Serge	2271	ret
1	ha	2272	uglobal
2434	Serge	2273	shutdown_processes:
		2274	dd 0x0
1	ha	2275	endg
2268	Serge	2276	;------------------------------------------------------------------------------
1055	Galkov	2277	sysfn_terminate: ; 18.2 = TERMINATE
2987	Serge	2278	push ecx
2434	Serge	2279	cmp ecx, 2
		2280	jb noprocessterminate
		2281	mov edx, [TASK_COUNT]
		2282	cmp ecx, edx
		2283	ja noprocessterminate
		2284	mov eax, [TASK_COUNT]
		2285	shl ecx, 5
		2286	mov edx, [ecx+CURRENT_TASK+TASKDATA.pid]
		2287	add ecx, CURRENT_TASK+TASKDATA.state
		2288	cmp byte [ecx], 9
		2289	jz noprocessterminate
3500	Serge	2290	push ecx edx
		2291	lea edx, [(ecx-(CURRENT_TASK and 1FFFFFFFh)-TASKDATA.state)*8+SLOT_BASE]
		2292	call request_terminate
		2293	pop edx ecx
		2294	test eax, eax
		2295	jz noprocessterminate
2434	Serge	2296	;--------------------------------------
3555	Serge	2297	; terminate all network sockets it used
		2298	pusha
		2299	mov eax, edx
		2300	call SOCKET_process_end
		2301	popa
		2302	;--------------------------------------
2434	Serge	2303	cmp [_display.select_cursor], 0
2465	Serge	2304	je .restore_end
2434	Serge	2305	; restore default cursor before killing
		2306	pusha
		2307	mov ecx, [esp+32]
		2308	shl ecx, 8
2439	Serge	2309	add ecx, SLOT_BASE
2465	Serge	2310	mov eax, [def_cursor]
		2311	cmp [ecx+APPDATA.cursor], eax
		2312	je @f
2439	Serge	2313	call restore_default_cursor_before_killing
2465	Serge	2314	@@:
2434	Serge	2315	popa
2465	Serge	2316	.restore_end:
2434	Serge	2317	;--------------------------------------
1	ha	2318	;call MEM_Heap_Lock ;guarantee that process isn't working with heap
2434	Serge	2319	mov [ecx], byte 3; clear possible i40's
3555	Serge	2320	call wakeup_osloop
1	ha	2321	;call MEM_Heap_UnLock
		2322
3555	Serge	2323	cmp edx, [application_table_owner]; clear app table stat
2434	Serge	2324	jne noatsc
3555	Serge	2325	call unlock_application_table
2987	Serge	2326	noatsc:
		2327	noprocessterminate:
		2328	add esp, 4
2434	Serge	2329	ret
2268	Serge	2330	;------------------------------------------------------------------------------
85	halyavin	2331	sysfn_terminate2:
		2332	;lock application_table_status mutex
164	serge	2333	.table_status:
3555	Serge	2334	call lock_application_table
2434	Serge	2335	mov eax, ecx
		2336	call pid_to_slot
		2337	test eax, eax
		2338	jz .not_found
		2339	mov ecx, eax
		2340	cli
		2341	call sysfn_terminate
3555	Serge	2342	call unlock_application_table
2434	Serge	2343	sti
		2344	and dword [esp+32], 0
		2345	ret
85	halyavin	2346	.not_found:
3555	Serge	2347	call unlock_application_table
2434	Serge	2348	or dword [esp+32], -1
		2349	ret
2268	Serge	2350	;------------------------------------------------------------------------------
		2351	sysfn_deactivate: ; 18.1 = DEACTIVATE WINDOW
2434	Serge	2352	cmp ecx, 2
		2353	jb .nowindowdeactivate
		2354	cmp ecx, [TASK_COUNT]
		2355	ja .nowindowdeactivate
85	halyavin	2356
2434	Serge	2357	movzx esi, word [WIN_STACK + ecx*2]
		2358	cmp esi, 1
		2359	je .nowindowdeactivate ; already deactive
2268	Serge	2360
2434	Serge	2361	mov edi, ecx
		2362	shl edi, 5
		2363	add edi, window_data
		2364	movzx esi, word [WIN_STACK + ecx * 2]
		2365	lea esi, [WIN_POS + esi * 2]
		2366	call window._.window_deactivate
2268	Serge	2367
2434	Serge	2368	call syscall_display_settings._.calculate_whole_screen
		2369	call syscall_display_settings._.redraw_whole_screen
2268	Serge	2370	.nowindowdeactivate:
2434	Serge	2371	ret
3500	Serge	2372	;------------------------------------------------------------------------------
1055	Galkov	2373	sysfn_activate: ; 18.3 = ACTIVATE WINDOW
2434	Serge	2374	cmp ecx, 2
		2375	jb .nowindowactivate
		2376	cmp ecx, [TASK_COUNT]
		2377	ja .nowindowactivate
3500	Serge	2378	;-------------------------------------
		2379	@@:
		2380	; If the window is captured and moved by the user,
		2381	; then you can't change the position in window stack!!!
		2382	mov al, [mouse.active_sys_window.action]
		2383	and al, WINDOW_MOVE_AND_RESIZE_FLAGS
		2384	test al, al
		2385	jz @f
		2386	call change_task
		2387	jmp @b
		2388	@@:
		2389	;-------------------------------------
2434	Serge	2390	mov [window_minimize], 2; restore window if minimized
3555	Serge	2391	call wakeup_osloop
105	poddubny	2392
2434	Serge	2393	movzx esi, word [WIN_STACK + ecx*2]
		2394	cmp esi, [TASK_COUNT]
		2395	je .nowindowactivate; already active
105	poddubny	2396
2434	Serge	2397	mov edi, ecx
		2398	shl edi, 5
		2399	add edi, window_data
		2400	movzx esi, word [WIN_STACK + ecx * 2]
		2401	lea esi, [WIN_POS + esi * 2]
		2402	call waredraw
105	poddubny	2403	.nowindowactivate:
2434	Serge	2404	ret
2268	Serge	2405	;------------------------------------------------------------------------------
5984	serge	2406	align 4
		2407	sysfn_zmodif:
		2408	;18,25,1 - get z_modif
		2409	;18,25,2 - set z_modif
		2410	;edx = -1(for current task) or TID
		2411	;esi(for 2) = new value z_modif
		2412	;return:
		2413	;1: eax = z_modif
		2414	;2: eax=0(fail),1(success) for set z_modif
		2415
		2416	cmp edx, -1
		2417	jne @f
		2418	mov edx, [CURRENT_TASK]
		2419	@@:
		2420	cmp edx, [TASK_COUNT]
		2421	ja .fail
		2422	cmp edx, 1
		2423	je .fail
		2424
		2425	mov eax, edx
		2426	shl edx, 5
		2427
		2428	cmp [edx + CURRENT_TASK + TASKDATA.state], 9
		2429	je .fail
		2430
		2431	cmp ecx, 1
		2432	jnz .set_zmod
		2433
		2434	mov al, [edx + window_data + WDATA.z_modif]
		2435	jmp .exit
		2436
		2437	.set_zmod:
		2438	cmp ecx, 2
		2439	jnz .fail
		2440
		2441	mov ebx, esi
		2442	mov esi, eax
		2443
		2444	cmp bl, ZPOS_ALWAYS_TOP
		2445	jg .fail
		2446
		2447	mov [edx + window_data + WDATA.z_modif], bl
		2448
		2449	mov eax, [edx + window_data + WDATA.box.left]
		2450	mov ebx, [edx + window_data + WDATA.box.top]
		2451	mov ecx, [edx + window_data + WDATA.box.width]
		2452	mov edx, [edx + window_data + WDATA.box.height]
		2453	add ecx, eax
		2454	add edx, ebx
		2455	call window._.set_screen
		2456	call window._.set_top_wnd
		2457	call window._.redraw_top_wnd
		2458
		2459	shl esi, 5
		2460	mov [esi + window_data + WDATA.fl_redraw], 1
		2461
		2462
		2463	mov eax, 1
		2464	jmp .exit
		2465	.fail:
		2466	xor eax, eax
		2467	.exit:
		2468	mov [esp+32], eax
		2469	ret
		2470
		2471	;------------------------------------------------------------------------------
1055	Galkov	2472	sysfn_getidletime: ; 18.4 = GET IDLETIME
3555	Serge	2473	mov eax, [CURRENT_TASK+32+TASKDATA.cpu_usage]
2434	Serge	2474	mov [esp+32], eax
		2475	ret
2268	Serge	2476	;------------------------------------------------------------------------------
1055	Galkov	2477	sysfn_getcpuclock: ; 18.5 = GET TSC/SEC
3500	Serge	2478	mov eax, dword [cpu_freq]
2434	Serge	2479	mov [esp+32], eax
		2480	ret
2268	Serge	2481	;------------------------------------------------------------------------------
3500	Serge	2482	get_cpu_freq:
		2483	mov eax, dword [cpu_freq]
		2484	mov edx, dword [cpu_freq+4]
		2485	ret
1	ha	2486	; SAVE ramdisk to /hd/1/menuet.img
		2487	;!!!!!!!!!!!!!!!!!!!!!!!!
		2488	include 'blkdev/rdsave.inc'
		2489	;!!!!!!!!!!!!!!!!!!!!!!!!
2268	Serge	2490	;------------------------------------------------------------------------------
1232	Lrz	2491	align 4
1055	Galkov	2492	sysfn_getactive: ; 18.7 = get active window
2434	Serge	2493	mov eax, [TASK_COUNT]
		2494	movzx eax, word [WIN_POS + eax*2]
		2495	mov [esp+32], eax
		2496	ret
2268	Serge	2497	;------------------------------------------------------------------------------
1055	Galkov	2498	sysfn_sound_flag: ; 18.8 = get/set sound_flag
1232	Lrz	2499	; cmp ecx,1
2434	Serge	2500	dec ecx
		2501	jnz nogetsoundflag
		2502	movzx eax, byte [sound_flag]; get sound_flag
		2503	mov [esp+32], eax
		2504	ret
1	ha	2505	nogetsoundflag:
1232	Lrz	2506	; cmp ecx,2
2434	Serge	2507	dec ecx
		2508	jnz nosoundflag
		2509	xor byte [sound_flag], 1
75	diamond	2510	nosoundflag:
2434	Serge	2511	ret
2268	Serge	2512	;------------------------------------------------------------------------------
1055	Galkov	2513	sysfn_minimize: ; 18.10 = minimize window
2434	Serge	2514	mov [window_minimize], 1
3555	Serge	2515	call wakeup_osloop
2434	Serge	2516	ret
2268	Serge	2517	;------------------------------------------------------------------------------
1232	Lrz	2518	align 4
1055	Galkov	2519	sysfn_getdiskinfo: ; 18.11 = get disk info table
2434	Serge	2520	dec ecx
5201	serge	2521	jnz .exit
		2522	.small_table:
2434	Serge	2523	mov edi, edx
		2524	mov esi, DRIVE_DATA
5201	serge	2525	mov ecx, DRIVE_DATA_SIZE ;10
2434	Serge	2526	cld
5201	serge	2527	rep movsb
		2528	.exit:
2434	Serge	2529	ret
2268	Serge	2530	;------------------------------------------------------------------------------
1055	Galkov	2531	sysfn_lastkey: ; 18.12 = return 0 (backward compatibility)
		2532	and dword [esp+32], 0
		2533	ret
2268	Serge	2534	;------------------------------------------------------------------------------
1055	Galkov	2535	sysfn_getversion: ; 18.13 = get kernel ID and version
2434	Serge	2536	mov edi, ecx
		2537	mov esi, version_inf
		2538	mov ecx, version_end-version_inf
		2539	rep movsb
		2540	ret
2268	Serge	2541	;------------------------------------------------------------------------------
75	diamond	2542	sysfn_waitretrace: ; 18.14 = sys wait retrace
41	mikedld	2543	;wait retrace functions
		2544	sys_wait_retrace:
2434	Serge	2545	mov edx, 0x3da
41	mikedld	2546	WaitRetrace_loop:
2434	Serge	2547	in al, dx
		2548	test al, 1000b
		2549	jz WaitRetrace_loop
		2550	and [esp+32], dword 0
		2551	ret
2268	Serge	2552	;------------------------------------------------------------------------------
1232	Lrz	2553	align 4
1055	Galkov	2554	sysfn_centermouse: ; 18.15 = mouse centered
5565	serge	2555	mov eax, [_display.width]
2434	Serge	2556	shr eax, 1
		2557	mov [MOUSE_X], ax
5565	serge	2558	mov eax, [_display.height]
2434	Serge	2559	shr eax, 1
		2560	mov [MOUSE_Y], ax
3555	Serge	2561	call wakeup_osloop
2434	Serge	2562	xor eax, eax
		2563	and [esp+32], eax
		2564	ret
2268	Serge	2565	;------------------------------------------------------------------------------
5984	serge	2566	sysfn_mouse_acceleration: ; 18.19 = set/get mouse features
		2567	cmp ecx, 8
		2568	jnc @f
		2569	jmp dword [.table+ecx*4]
		2570	.get_mouse_acceleration:
2434	Serge	2571	xor eax, eax
		2572	mov ax, [mouse_speed_factor]
		2573	mov [esp+32], eax
		2574	ret
5984	serge	2575	.set_mouse_acceleration:
2434	Serge	2576	mov [mouse_speed_factor], dx
		2577	ret
5984	serge	2578	.get_mouse_delay:
		2579	xor eax, eax
		2580	mov al, [mouse_delay]
2434	Serge	2581	mov [esp+32], eax
		2582	ret
5984	serge	2583	.set_mouse_delay:
		2584	mov [mouse_delay], dl
		2585	@@:
2434	Serge	2586	ret
5984	serge	2587	.set_pointer_position:
5565	serge	2588	cmp dx, word[_display.height]
5984	serge	2589	jae @b
2434	Serge	2590	rol edx, 16
5565	serge	2591	cmp dx, word[_display.width]
5984	serge	2592	jae @b
2434	Serge	2593	mov [MOUSE_X], edx
5201	serge	2594	mov [mouse_active], 1
5984	serge	2595	jmp wakeup_osloop
		2596	.set_mouse_button:
		2597	mov [BTN_DOWN], edx
2434	Serge	2598	mov [mouse_active], 1
5984	serge	2599	jmp wakeup_osloop
		2600	.get_doubleclick_delay:
		2601	xor eax, eax
		2602	mov al, [mouse_doubleclick_delay]
		2603	mov [esp+32], eax
2434	Serge	2604	ret
5984	serge	2605	.set_doubleclick_delay:
		2606	mov [mouse_doubleclick_delay], dl
		2607	ret
		2608	align 4
		2609	.table:
		2610	dd .get_mouse_acceleration
		2611	dd .set_mouse_acceleration
		2612	dd .get_mouse_delay
		2613	dd .set_mouse_delay
		2614	dd .set_pointer_position
		2615	dd .set_mouse_button
		2616	dd .get_doubleclick_delay
		2617	dd .set_doubleclick_delay
2268	Serge	2618	;------------------------------------------------------------------------------
75	diamond	2619	sysfn_getfreemem:
2434	Serge	2620	mov eax, [pg_data.pages_free]
		2621	shl eax, 2
		2622	mov [esp+32], eax
		2623	ret
2987	Serge	2624	;------------------------------------------------------------------------------
75	diamond	2625	sysfn_getallmem:
2434	Serge	2626	mov eax, [MEM_AMOUNT]
		2627	shr eax, 10
		2628	mov [esp+32], eax
		2629	ret
2987	Serge	2630	;------------------------------------------------------------------------------
608	alver	2631	sysfn_pid_to_slot:
2434	Serge	2632	mov eax, ecx
		2633	call pid_to_slot
		2634	mov [esp+32], eax
		2635	ret
2987	Serge	2636	;------------------------------------------------------------------------------
608	alver	2637	sysfn_min_rest_window:
2434	Serge	2638	pushad
		2639	mov eax, edx ; ebx - operating
		2640	shr ecx, 1
		2641	jnc @f
		2642	call pid_to_slot
608	alver	2643	@@:
2434	Serge	2644	or eax, eax ; eax - number of slot
		2645	jz .error
		2646	cmp eax, 255 ; varify maximal slot number
		2647	ja .error
		2648	movzx eax, word [WIN_STACK + eax*2]
		2649	shr ecx, 1
		2650	jc .restore
608	alver	2651	; .minimize:
2434	Serge	2652	call minimize_window
		2653	jmp .exit
608	alver	2654	.restore:
2434	Serge	2655	call restore_minimized_window
608	alver	2656	.exit:
2434	Serge	2657	popad
		2658	xor eax, eax
		2659	mov [esp+32], eax
		2660	ret
608	alver	2661	.error:
2434	Serge	2662	popad
		2663	xor eax, eax
		2664	dec eax
		2665	mov [esp+32], eax
		2666	ret
2987	Serge	2667	;------------------------------------------------------------------------------
		2668	sysfn_min_windows:
		2669	call minimize_all_window
		2670	mov [esp+32], eax
		2671	call change_task
		2672	ret
		2673	;------------------------------------------------------------------------------
		2674	sysfn_set_screen_sizes:
		2675	cmp [SCR_MODE], word 0x13
		2676	jbe .exit
608	alver	2677
2987	Serge	2678	cmp [_display.select_cursor], select_cursor
		2679	jne .exit
		2680
		2681	cmp ecx, [display_width_standard]
		2682	ja .exit
		2683
		2684	cmp edx, [display_height_standard]
		2685	ja .exit
		2686
		2687	pushfd
		2688	cli
		2689	mov eax, ecx
5565	serge	2690	mov ecx, [_display.lfb_pitch]
2987	Serge	2691	mov [_display.width], eax
5201	serge	2692	dec eax
2987	Serge	2693	mov [_display.height], edx
5201	serge	2694	dec edx
2987	Serge	2695	; eax - new Screen_Max_X
		2696	; edx - new Screen_Max_Y
		2697	mov [do_not_touch_winmap], 1
		2698	call set_screen
		2699	mov [do_not_touch_winmap], 0
		2700	popfd
		2701	call change_task
		2702	.exit:
		2703	ret
		2704	;------------------------------------------------------------------------------
41	mikedld	2705	uglobal
		2706	screen_workarea RECT
2987	Serge	2707	display_width_standard dd 0
		2708	display_height_standard dd 0
		2709	do_not_touch_winmap db 0
1	ha	2710	window_minimize db 0
1055	Galkov	2711	sound_flag db 0
2987	Serge	2712
41	mikedld	2713	endg
1	ha	2714
2130	serge	2715	UID_NONE=0
		2716	UID_MENUETOS=1 ;official
		2717	UID_KOLIBRI=2 ;russian
		2718
41	mikedld	2719	iglobal
		2720	version_inf:
3908	Serge	2721	db 0,7,7,0 ; version 0.7.7.0
		2722	db 0
3500	Serge	2723	.rev dd __REV__
41	mikedld	2724	version_end:
		2725	endg
2987	Serge	2726	;------------------------------------------------------------------------------
		2727	align 4
1	ha	2728	sys_cachetodiskette:
1055	Galkov	2729	cmp ebx, 1
4287	Serge	2730	jb .no_floppy_save
1055	Galkov	2731	cmp ebx, 2
4287	Serge	2732	ja .no_floppy_save
1055	Galkov	2733	call save_image
4287	Serge	2734	mov [esp + 32], eax
		2735	ret
		2736	.no_floppy_save:
1055	Galkov	2737	mov [esp + 32], dword 1
		2738	ret
2987	Serge	2739	;------------------------------------------------------------------------------
1	ha	2740	uglobal
		2741	; bgrchanged dd 0x0
1071	diamond	2742	align 4
		2743	bgrlockpid dd 0
546	diamond	2744	bgrlock db 0
1	ha	2745	endg
2987	Serge	2746	;------------------------------------------------------------------------------
		2747	align 4
1	ha	2748	sys_background:
2434	Serge	2749	cmp ebx, 1 ; BACKGROUND SIZE
		2750	jnz nosb1
		2751	test ecx, ecx
		2752	jz sbgrr
2987	Serge	2753
2434	Serge	2754	test edx, edx
		2755	jz sbgrr
2987	Serge	2756	;--------------------------------------
		2757	align 4
546	diamond	2758	@@:
1071	diamond	2759	;;Maxis use atomic bts for mutexes 4.4.2009
		2760	bts dword [bgrlock], 0
		2761	jnc @f
1055	Galkov	2762	call change_task
		2763	jmp @b
2987	Serge	2764	;--------------------------------------
		2765	align 4
546	diamond	2766	@@:
2434	Serge	2767	mov [BgrDataWidth], ecx
		2768	mov [BgrDataHeight], edx
1	ha	2769	; mov [bgrchanged],1
469	serge	2770
2434	Serge	2771	pushad
469	serge	2772	; return memory for old background
1107	diamond	2773	mov eax, [img_background]
		2774	cmp eax, static_background_data
		2775	jz @f
		2776	stdcall kernel_free, eax
2987	Serge	2777	;--------------------------------------
		2778	align 4
1107	diamond	2779	@@:
469	serge	2780	; calculate RAW size
2434	Serge	2781	xor eax, eax
		2782	inc eax
		2783	cmp [BgrDataWidth], eax
		2784	jae @f
		2785	mov [BgrDataWidth], eax
2987	Serge	2786	;--------------------------------------
		2787	align 4
469	serge	2788	@@:
2434	Serge	2789	cmp [BgrDataHeight], eax
		2790	jae @f
		2791	mov [BgrDataHeight], eax
2987	Serge	2792	;--------------------------------------
		2793	align 4
469	serge	2794	@@:
2434	Serge	2795	mov eax, [BgrDataWidth]
		2796	imul eax, [BgrDataHeight]
		2797	lea eax, [eax*3]
2465	Serge	2798	; it is reserved with aligned to the boundary of 4 KB pages,
		2799	; otherwise there may be exceptions a page fault for vesa20_drawbackground_tiled
		2800	; because the 32 bit read is used for high performance: "mov eax,[esi]"
		2801	shr eax, 12
		2802	inc eax
		2803	shl eax, 12
2434	Serge	2804	mov [mem_BACKGROUND], eax
469	serge	2805	; get memory for new background
2434	Serge	2806	stdcall kernel_alloc, eax
		2807	test eax, eax
		2808	jz .memfailed
		2809	mov [img_background], eax
		2810	jmp .exit
2987	Serge	2811	;--------------------------------------
		2812	align 4
1107	diamond	2813	.memfailed:
		2814	; revert to static monotone data
		2815	mov [img_background], static_background_data
		2816	xor eax, eax
		2817	inc eax
		2818	mov [BgrDataWidth], eax
		2819	mov [BgrDataHeight], eax
		2820	mov [mem_BACKGROUND], 4
2987	Serge	2821	;--------------------------------------
		2822	align 4
1107	diamond	2823	.exit:
2434	Serge	2824	popad
1055	Galkov	2825	mov [bgrlock], 0
2987	Serge	2826	;--------------------------------------
		2827	align 4
		2828	sbgrr:
2434	Serge	2829	ret
2987	Serge	2830	;------------------------------------------------------------------------------
		2831	align 4
875	serge	2832	nosb1:
2434	Serge	2833	cmp ebx, 2 ; SET PIXEL
		2834	jnz nosb2
875	serge	2835
2434	Serge	2836	mov eax, [img_background]
		2837	test ecx, ecx
		2838	jz @f
		2839	cmp eax, static_background_data
		2840	jz .ret
2987	Serge	2841	;--------------------------------------
		2842	align 4
1107	diamond	2843	@@:
2434	Serge	2844	mov ebx, [mem_BACKGROUND]
		2845	add ebx, 4095
		2846	and ebx, -4096
		2847	sub ebx, 4
		2848	cmp ecx, ebx
		2849	ja .ret
875	serge	2850
2434	Serge	2851	mov ebx, [eax+ecx]
		2852	and ebx, 0xFF000000;255256256*256
		2853	and edx, 0x00FFFFFF;255256256+255*256+255
		2854	add edx, ebx
		2855	mov [eax+ecx], edx
2987	Serge	2856	;--------------------------------------
		2857	align 4
1107	diamond	2858	.ret:
2434	Serge	2859	ret
2987	Serge	2860	;------------------------------------------------------------------------------
		2861	align 4
875	serge	2862	nosb2:
2434	Serge	2863	cmp ebx, 3 ; DRAW BACKGROUND
		2864	jnz nosb3
2987	Serge	2865	;--------------------------------------
		2866	align 4
1	ha	2867	draw_background_temp:
2434	Serge	2868	mov [background_defined], 1
		2869	call force_redraw_background
2987	Serge	2870	;--------------------------------------
		2871	align 4
		2872	nosb31:
2434	Serge	2873	ret
2987	Serge	2874	;------------------------------------------------------------------------------
		2875	align 4
		2876	nosb3:
2434	Serge	2877	cmp ebx, 4 ; TILED / STRETCHED
		2878	jnz nosb4
		2879	cmp ecx, [BgrDrawMode]
		2880	je nosb41
		2881	mov [BgrDrawMode], ecx
2987	Serge	2882	;--------------------------------------
		2883	align 4
		2884	nosb41:
2434	Serge	2885	ret
2987	Serge	2886	;------------------------------------------------------------------------------
		2887	align 4
		2888	nosb4:
2434	Serge	2889	cmp ebx, 5 ; BLOCK MOVE TO BGR
		2890	jnz nosb5
		2891	cmp [img_background], static_background_data
		2892	jnz @f
		2893	test edx, edx
		2894	jnz .fin
		2895	cmp esi, 4
		2896	ja .fin
2987	Serge	2897	;--------------------------------------
		2898	align 4
		2899	@@:
1	ha	2900	; bughere
2434	Serge	2901	mov eax, ecx
		2902	mov ebx, edx
		2903	add ebx, [img_background];IMG_BACKGROUND
		2904	mov ecx, esi
		2905	call memmove
2987	Serge	2906	;--------------------------------------
		2907	align 4
		2908	.fin:
2434	Serge	2909	ret
2987	Serge	2910	;------------------------------------------------------------------------------
		2911	align 4
		2912	nosb5:
1055	Galkov	2913	cmp ebx, 6
		2914	jnz nosb6
2987	Serge	2915	;--------------------------------------
		2916	align 4
1071	diamond	2917	;;Maxis use atomic bts for mutex 4.4.2009
546	diamond	2918	@@:
1073	heavyiron	2919	bts dword [bgrlock], 0
1071	diamond	2920	jnc @f
1055	Galkov	2921	call change_task
		2922	jmp @b
2987	Serge	2923	;--------------------------------------
		2924	align 4
546	diamond	2925	@@:
1055	Galkov	2926	mov eax, [CURRENT_TASK]
		2927	mov [bgrlockpid], eax
1107	diamond	2928	cmp [img_background], static_background_data
		2929	jz .nomem
1055	Galkov	2930	stdcall user_alloc, [mem_BACKGROUND]
		2931	mov [esp+32], eax
		2932	test eax, eax
		2933	jz .nomem
		2934	mov ebx, eax
		2935	shr ebx, 12
		2936	or dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
		2937	mov esi, [img_background]
		2938	shr esi, 12
		2939	mov ecx, [mem_BACKGROUND]
		2940	add ecx, 0xFFF
		2941	shr ecx, 12
2987	Serge	2942	;--------------------------------------
		2943	align 4
546	diamond	2944	.z:
1055	Galkov	2945	mov eax, [page_tabs+ebx*4]
		2946	test al, 1
		2947	jz @f
		2948	call free_page
2987	Serge	2949	;--------------------------------------
		2950	align 4
546	diamond	2951	@@:
1055	Galkov	2952	mov eax, [page_tabs+esi*4]
5565	serge	2953	or al, PG_UWR
1055	Galkov	2954	mov [page_tabs+ebx*4], eax
		2955	mov eax, ebx
		2956	shl eax, 12
		2957	invlpg [eax]
		2958	inc ebx
		2959	inc esi
		2960	loop .z
		2961	ret
2987	Serge	2962	;--------------------------------------
		2963	align 4
546	diamond	2964	.nomem:
1055	Galkov	2965	and [bgrlockpid], 0
		2966	mov [bgrlock], 0
2987	Serge	2967	;------------------------------------------------------------------------------
		2968	align 4
546	diamond	2969	nosb6:
1055	Galkov	2970	cmp ebx, 7
		2971	jnz nosb7
		2972	cmp [bgrlock], 0
		2973	jz .err
		2974	mov eax, [CURRENT_TASK]
		2975	cmp [bgrlockpid], eax
		2976	jnz .err
		2977	mov eax, ecx
		2978	mov ebx, ecx
		2979	shr eax, 12
		2980	mov ecx, [page_tabs+(eax-1)*4]
		2981	test cl, USED_BLOCK+DONT_FREE_BLOCK
		2982	jz .err
		2983	jnp .err
		2984	push eax
		2985	shr ecx, 12
1312	diamond	2986	dec ecx
2987	Serge	2987	;--------------------------------------
		2988	align 4
546	diamond	2989	@@:
1055	Galkov	2990	and dword [page_tabs+eax*4], 0
		2991	mov edx, eax
		2992	shl edx, 12
2434	Serge	2993	push eax
1055	Galkov	2994	invlpg [edx]
2434	Serge	2995	pop eax
1055	Galkov	2996	inc eax
		2997	loop @b
		2998	pop eax
		2999	and dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
		3000	stdcall user_free, ebx
		3001	mov [esp+32], eax
		3002	and [bgrlockpid], 0
		3003	mov [bgrlock], 0
		3004	ret
2987	Serge	3005	;--------------------------------------
		3006	align 4
546	diamond	3007	.err:
1055	Galkov	3008	and dword [esp+32], 0
		3009	ret
2987	Serge	3010	;------------------------------------------------------------------------------
		3011	align 4
		3012	nosb7:
		3013	cmp ebx, 8
		3014	jnz nosb8
546	diamond	3015
3555	Serge	3016	mov ecx, [current_slot]
		3017	xor eax, eax
		3018	xchg eax, [ecx+APPDATA.draw_bgr_x]
2987	Serge	3019	mov [esp + 32], eax ; eax = [left]*65536 + [right]
3555	Serge	3020	xor eax, eax
		3021	xchg eax, [ecx+APPDATA.draw_bgr_y]
2987	Serge	3022	mov [esp + 20], eax ; ebx = [top]*65536 + [bottom]
2434	Serge	3023	ret
2987	Serge	3024	;------------------------------------------------------------------------------
		3025	align 4
		3026	nosb8:
		3027	cmp ebx, 9
		3028	jnz nosb9
		3029	; ecx = [left]*65536 + [right]
		3030	; edx = [top]*65536 + [bottom]
5565	serge	3031	mov eax, [_display.width]
		3032	mov ebx, [_display.height]
		3033	dec eax
		3034	dec ebx
2987	Serge	3035	; check [right]
		3036	cmp cx, ax
5201	serge	3037	ja .exit
2987	Serge	3038	; check [left]
		3039	ror ecx, 16
		3040	cmp cx, ax
5201	serge	3041	ja .exit
2987	Serge	3042	; check [bottom]
		3043	cmp dx, bx
5201	serge	3044	ja .exit
2987	Serge	3045	; check [top]
		3046	ror edx, 16
		3047	cmp dx, bx
5201	serge	3048	ja .exit
1	ha	3049
2987	Serge	3050	movzx eax, cx ; [left]
		3051	movzx ebx, dx ; [top]
		3052
		3053	shr ecx, 16 ; [right]
		3054	shr edx, 16 ; [bottom]
		3055
		3056	mov [background_defined], 1
		3057
		3058	mov [draw_data+32 + RECT.left], eax
		3059	mov [draw_data+32 + RECT.top], ebx
		3060
		3061	mov [draw_data+32 + RECT.right], ecx
		3062	mov [draw_data+32 + RECT.bottom], edx
		3063
		3064	inc byte[REDRAW_BACKGROUND]
3555	Serge	3065	call wakeup_osloop
2987	Serge	3066	;--------------------------------------
		3067	align 4
		3068	.exit:
		3069	ret
		3070	;------------------------------------------------------------------------------
		3071	align 4
		3072	nosb9:
		3073	ret
		3074	;------------------------------------------------------------------------------
		3075	align 4
		3076	uglobal
		3077	BG_Rect_X_left_right dd 0x0
		3078	BG_Rect_Y_top_bottom dd 0x0
		3079	endg
		3080	;------------------------------------------------------------------------------
		3081	align 4
709	diamond	3082	force_redraw_background:
2434	Serge	3083	and [draw_data+32 + RECT.left], 0
		3084	and [draw_data+32 + RECT.top], 0
		3085	push eax ebx
5565	serge	3086	mov eax, [_display.width]
		3087	mov ebx, [_display.height]
		3088	dec eax
		3089	dec ebx
2434	Serge	3090	mov [draw_data+32 + RECT.right], eax
		3091	mov [draw_data+32 + RECT.bottom], ebx
		3092	pop ebx eax
		3093	inc byte[REDRAW_BACKGROUND]
3555	Serge	3094	call wakeup_osloop
2434	Serge	3095	ret
2987	Serge	3096	;------------------------------------------------------------------------------
1	ha	3097	align 4
		3098	sys_getbackground:
1304	Lrz	3099	; cmp eax,1 ; SIZE
2434	Serge	3100	dec ebx
		3101	jnz nogb1
		3102	mov eax, [BgrDataWidth]
		3103	shl eax, 16
3555	Serge	3104	mov ax, word [BgrDataHeight]
2434	Serge	3105	mov [esp+32], eax
		3106	ret
2987	Serge	3107	;------------------------------------------------------------------------------
		3108	align 4
875	serge	3109	nogb1:
1304	Lrz	3110	; cmp eax,2 ; PIXEL
2434	Serge	3111	dec ebx
		3112	jnz nogb2
875	serge	3113
1107	diamond	3114	mov eax, [img_background]
1304	Lrz	3115	test ecx, ecx
1107	diamond	3116	jz @f
		3117	cmp eax, static_background_data
		3118	jz .ret
2987	Serge	3119	;--------------------------------------
		3120	align 4
1107	diamond	3121	@@:
2434	Serge	3122	mov ebx, [mem_BACKGROUND]
		3123	add ebx, 4095
		3124	and ebx, -4096
		3125	sub ebx, 4
		3126	cmp ecx, ebx
		3127	ja .ret
875	serge	3128
2434	Serge	3129	mov eax, [ecx+eax]
469	serge	3130
2434	Serge	3131	and eax, 0xFFFFFF
		3132	mov [esp+32], eax
2987	Serge	3133	;--------------------------------------
		3134	align 4
1107	diamond	3135	.ret:
2434	Serge	3136	ret
2987	Serge	3137	;------------------------------------------------------------------------------
		3138	align 4
		3139	nogb2:
1	ha	3140
1304	Lrz	3141	; cmp eax,4 ; TILED / STRETCHED
2434	Serge	3142	dec ebx
		3143	dec ebx
		3144	jnz nogb4
		3145	mov eax, [BgrDrawMode]
2987	Serge	3146	;--------------------------------------
		3147	align 4
		3148	nogb4:
2434	Serge	3149	mov [esp+32], eax
		3150	ret
2987	Serge	3151	;------------------------------------------------------------------------------
1	ha	3152	align 4
		3153	sys_getkey:
2434	Serge	3154	mov [esp + 32], dword 1
1055	Galkov	3155	; test main buffer
		3156	mov ebx, [CURRENT_TASK] ; TOP OF WINDOW STACK
		3157	movzx ecx, word [WIN_STACK + ebx * 2]
		3158	mov edx, [TASK_COUNT]
		3159	cmp ecx, edx
		3160	jne .finish
		3161	cmp [KEY_COUNT], byte 0
		3162	je .finish
5201	serge	3163	movzx ax, byte [KEY_BUFF + 120 + 2]
1055	Galkov	3164	shl eax, 8
5201	serge	3165	mov al, byte [KEY_BUFF]
		3166	shl eax, 8
1055	Galkov	3167	push eax
		3168	dec byte [KEY_COUNT]
		3169	and byte [KEY_COUNT], 127
		3170	movzx ecx, byte [KEY_COUNT]
		3171	add ecx, 2
		3172	mov eax, KEY_BUFF + 1
		3173	mov ebx, KEY_BUFF
		3174	call memmove
5201	serge	3175	add eax, 120 + 2
		3176	add ebx, 120 + 2
		3177	call memmove
1055	Galkov	3178	pop eax
2987	Serge	3179	;--------------------------------------
		3180	align 4
92	diamond	3181	.ret_eax:
1055	Galkov	3182	mov [esp + 32], eax
		3183	ret
2987	Serge	3184	;--------------------------------------
		3185	align 4
671	Ghost	3186	.finish:
92	diamond	3187	; test hotkeys buffer
1055	Galkov	3188	mov ecx, hotkey_buffer
2987	Serge	3189	;--------------------------------------
		3190	align 4
92	diamond	3191	@@:
1055	Galkov	3192	cmp [ecx], ebx
		3193	jz .found
		3194	add ecx, 8
		3195	cmp ecx, hotkey_buffer + 120 * 8
		3196	jb @b
		3197	ret
2987	Serge	3198	;--------------------------------------
		3199	align 4
92	diamond	3200	.found:
1055	Galkov	3201	mov ax, [ecx + 6]
		3202	shl eax, 16
		3203	mov ah, [ecx + 4]
		3204	mov al, 2
		3205	and dword [ecx + 4], 0
		3206	and dword [ecx], 0
		3207	jmp .ret_eax
2987	Serge	3208	;------------------------------------------------------------------------------
1	ha	3209	align 4
		3210	sys_getbutton:
1055	Galkov	3211	mov ebx, [CURRENT_TASK] ; TOP OF WINDOW STACK
		3212	mov [esp + 32], dword 1
		3213	movzx ecx, word [WIN_STACK + ebx * 2]
		3214	mov edx, [TASK_COUNT] ; less than 256 processes
		3215	cmp ecx, edx
		3216	jne .exit
		3217	movzx eax, byte [BTN_COUNT]
		3218	test eax, eax
		3219	jz .exit
		3220	mov eax, [BTN_BUFF]
1391	mikedld	3221	and al, 0xFE ; delete left button bit
1055	Galkov	3222	mov [BTN_COUNT], byte 0
		3223	mov [esp + 32], eax
2987	Serge	3224	;--------------------------------------
		3225	align 4
671	Ghost	3226	.exit:
1055	Galkov	3227	ret
2987	Serge	3228	;------------------------------------------------------------------------------
1	ha	3229	align 4
		3230	sys_cpuusage:
		3231
		3232	; RETURN:
		3233	;
		3234	; +00 dword process cpu usage
		3235	; +04 word position in windowing stack
		3236	; +06 word windowing stack value at current position (cpu nro)
		3237	; +10 12 bytes name
		3238	; +22 dword start in mem
		3239	; +26 dword used mem
		3240	; +30 dword PID , process idenfification number
		3241	;
		3242
2434	Serge	3243	cmp ecx, -1 ; who am I ?
		3244	jne .no_who_am_i
		3245	mov ecx, [CURRENT_TASK]
684	diamond	3246	.no_who_am_i:
1055	Galkov	3247	cmp ecx, max_processes
		3248	ja .nofillbuf
1	ha	3249
684	diamond	3250	; +4: word: position of the window of thread in the window stack
1055	Galkov	3251	mov ax, [WIN_STACK + ecx * 2]
		3252	mov [ebx+4], ax
684	diamond	3253	; +6: word: number of the thread slot, which window has in the window stack
		3254	; position ecx (has no relation to the specific thread)
1055	Galkov	3255	mov ax, [WIN_POS + ecx * 2]
		3256	mov [ebx+6], ax
1	ha	3257
1055	Galkov	3258	shl ecx, 5
1	ha	3259
684	diamond	3260	; +0: dword: memory usage
1055	Galkov	3261	mov eax, [ecx+CURRENT_TASK+TASKDATA.cpu_usage]
		3262	mov [ebx], eax
684	diamond	3263	; +10: 11 bytes: name of the process
1055	Galkov	3264	push ecx
		3265	lea eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
		3266	add ebx, 10
		3267	mov ecx, 11
		3268	call memmove
		3269	pop ecx
1	ha	3270
684	diamond	3271	; +22: address of the process in memory
		3272	; +26: size of used memory - 1
1055	Galkov	3273	push edi
		3274	lea edi, [ebx+12]
		3275	xor eax, eax
		3276	mov edx, 0x100000*16
		3277	cmp ecx, 1 shl 5
		3278	je .os_mem
5201	serge	3279	mov edx, [SLOT_BASE+ecx*8+APPDATA.process]
		3280	mov edx, [edx+PROC.mem_used]
1055	Galkov	3281	mov eax, std_application_base_address
684	diamond	3282	.os_mem:
1055	Galkov	3283	stosd
		3284	lea eax, [edx-1]
		3285	stosd
1	ha	3286
684	diamond	3287	; +30: PID/TID
1055	Galkov	3288	mov eax, [ecx+CURRENT_TASK+TASKDATA.pid]
		3289	stosd
1	ha	3290
		3291	; window position and size
1055	Galkov	3292	push esi
		3293	lea esi, [ecx + window_data + WDATA.box]
		3294	movsd
		3295	movsd
		3296	movsd
		3297	movsd
1	ha	3298
		3299	; Process state (+50)
1055	Galkov	3300	mov eax, dword [ecx+CURRENT_TASK+TASKDATA.state]
		3301	stosd
1	ha	3302
138	mikedld	3303	; Window client area box
1055	Galkov	3304	lea esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
		3305	movsd
		3306	movsd
		3307	movsd
		3308	movsd
1	ha	3309
164	serge	3310	; Window state
1055	Galkov	3311	mov al, [ecx+window_data+WDATA.fl_wstate]
		3312	stosb
164	serge	3313
2010	serge	3314	; Event mask (+71)
		3315	mov EAX, dword [ECX+CURRENT_TASK+TASKDATA.event_mask]
		3316	stosd
		3317
4265	Serge	3318	; Keyboard mode (+75)
		3319	mov al, byte [ecx*8 + SLOT_BASE + APPDATA.keyboard_mode]
4287	Serge	3320	stosb
4265	Serge	3321
1055	Galkov	3322	pop esi
		3323	pop edi
138	mikedld	3324
684	diamond	3325	.nofillbuf:
1	ha	3326	; return number of processes
		3327
2434	Serge	3328	mov eax, [TASK_COUNT]
		3329	mov [esp+32], eax
		3330	ret
1	ha	3331
		3332	align 4
		3333	sys_clock:
1055	Galkov	3334	cli
1	ha	3335	; Mikhail Lisovin xx Jan 2005
		3336	@@:
2434	Serge	3337	mov al, 10
		3338	out 0x70, al
		3339	in al, 0x71
		3340	test al, al
		3341	jns @f
		3342	mov esi, 1
		3343	call delay_ms
		3344	jmp @b
		3345	@@:
1	ha	3346	; end Lisovin's fix
		3347
2434	Serge	3348	xor al, al ; seconds
		3349	out 0x70, al
		3350	in al, 0x71
		3351	movzx ecx, al
		3352	mov al, 02 ; minutes
		3353	shl ecx, 16
		3354	out 0x70, al
		3355	in al, 0x71
		3356	movzx edx, al
		3357	mov al, 04 ; hours
		3358	shl edx, 8
		3359	out 0x70, al
		3360	in al, 0x71
		3361	add ecx, edx
		3362	movzx edx, al
		3363	add ecx, edx
1055	Galkov	3364	sti
		3365	mov [esp + 32], ecx
		3366	ret
1	ha	3367
		3368
		3369	align 4
		3370
		3371	sys_date:
		3372
1055	Galkov	3373	cli
75	diamond	3374	@@:
2434	Serge	3375	mov al, 10
		3376	out 0x70, al
		3377	in al, 0x71
		3378	test al, al
		3379	jns @f
		3380	mov esi, 1
		3381	call delay_ms
		3382	jmp @b
		3383	@@:
75	diamond	3384
2434	Serge	3385	mov ch, 0
		3386	mov al, 7 ; date
		3387	out 0x70, al
		3388	in al, 0x71
		3389	mov cl, al
		3390	mov al, 8 ; month
		3391	shl ecx, 16
		3392	out 0x70, al
		3393	in al, 0x71
		3394	mov ch, al
		3395	mov al, 9 ; year
		3396	out 0x70, al
		3397	in al, 0x71
		3398	mov cl, al
1055	Galkov	3399	sti
		3400	mov [esp+32], ecx
		3401	ret
1	ha	3402
		3403
		3404	; redraw status
		3405
		3406	sys_redrawstat:
1055	Galkov	3407	cmp ebx, 1
		3408	jne no_widgets_away
		3409	; buttons away
2434	Serge	3410	mov ecx, [CURRENT_TASK]
1	ha	3411	sys_newba2:
2434	Serge	3412	mov edi, [BTN_ADDR]
1055	Galkov	3413	cmp [edi], dword 0 ; empty button list ?
		3414	je end_of_buttons_away
		3415	movzx ebx, word [edi]
		3416	inc ebx
2434	Serge	3417	mov eax, edi
1	ha	3418	sys_newba:
1055	Galkov	3419	dec ebx
		3420	jz end_of_buttons_away
1	ha	3421
1055	Galkov	3422	add eax, 0x10
		3423	cmp cx, [eax]
		3424	jnz sys_newba
1	ha	3425
1055	Galkov	3426	push eax ebx ecx
2434	Serge	3427	mov ecx, ebx
1055	Galkov	3428	inc ecx
		3429	shl ecx, 4
		3430	mov ebx, eax
		3431	add eax, 0x10
		3432	call memmove
		3433	dec dword [edi]
		3434	pop ecx ebx eax
1	ha	3435
1055	Galkov	3436	jmp sys_newba2
1	ha	3437
		3438	end_of_buttons_away:
		3439
1055	Galkov	3440	ret
1	ha	3441
		3442	no_widgets_away:
		3443
1055	Galkov	3444	cmp ebx, 2
		3445	jnz srl1
1	ha	3446
1055	Galkov	3447	mov edx, [TASK_BASE] ; return whole screen draw area for this app
		3448	add edx, draw_data - CURRENT_TASK
		3449	mov [edx + RECT.left], 0
		3450	mov [edx + RECT.top], 0
5565	serge	3451	mov eax, [_display.width]
		3452	dec eax
1055	Galkov	3453	mov [edx + RECT.right], eax
5565	serge	3454	mov eax, [_display.height]
		3455	dec eax
1055	Galkov	3456	mov [edx + RECT.bottom], eax
1	ha	3457
		3458	srl1:
1055	Galkov	3459	ret
1	ha	3460
		3461	;ok - 100% work
		3462	;nt - not tested
		3463	;---------------------------------------------------------------------------------------------
		3464	;eax
		3465	;0 - task switch counter. Ret switch counter in eax. Block. ok.
		3466	;1 - change task. Ret nothing. Block. ok.
		3467	;2 - performance control
		3468	; ebx
		3469	; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
		3470	; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
		3471	; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
		3472	; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
		3473	; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
		3474	;eax
		3475	;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		3476	;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		3477	;---------------------------------------------------------------------------------------------
1344	Lrz	3478	iglobal
		3479	align 4
		3480	sheduler:
2434	Serge	3481	dd sys_sheduler.00
		3482	dd change_task
		3483	dd sys_sheduler.02
		3484	dd sys_sheduler.03
		3485	dd sys_sheduler.04
1344	Lrz	3486	endg
1638	serge	3487	sys_sheduler:
1344	Lrz	3488	;rewritten by 29.12.2009
2434	Serge	3489	jmp dword [sheduler+ebx*4]
1344	Lrz	3490	;.shed_counter:
		3491	.00:
2434	Serge	3492	mov eax, [context_counter]
		3493	mov [esp+32], eax
		3494	ret
1273	Lrz	3495
1344	Lrz	3496	.02:
		3497	;.perf_control:
2434	Serge	3498	inc ebx ;before ebx=2, ebx=3
		3499	cmp ebx, ecx ;if ecx=3, ebx=3
		3500	jz cache_disable
1365	Lrz	3501
2434	Serge	3502	dec ebx ;ebx=2
		3503	cmp ebx, ecx ;
		3504	jz cache_enable ;if ecx=2 and ebx=2
1365	Lrz	3505
2434	Serge	3506	dec ebx ;ebx=1
		3507	cmp ebx, ecx
		3508	jz is_cache_enabled ;if ecx=1 and ebx=1
1365	Lrz	3509
2434	Serge	3510	dec ebx
		3511	test ebx, ecx ;ebx=0 and ecx=0
		3512	jz modify_pce ;if ecx=0
1365	Lrz	3513
2434	Serge	3514	ret
1345	Lrz	3515
1638	serge	3516	.03:
1344	Lrz	3517	;.rdmsr_instr:
		3518	;now counter in ecx
		3519	;(edx:eax) esi:edi => edx:esi
2434	Serge	3520	mov eax, esi
		3521	mov ecx, edx
		3522	rdmsr
		3523	mov [esp+32], eax
		3524	mov [esp+20], edx ;ret in ebx?
		3525	ret
1344	Lrz	3526
		3527	.04:
1273	Lrz	3528	;.wrmsr_instr:
		3529	;now counter in ecx
		3530	;(edx:eax) esi:edi => edx:esi
		3531	; Fast Call MSR can't be destroy
3555	Serge	3532	; Но MSR_AMD_EFER можно изменять, т.к. в этом регистре лиш
		3533	; включаются/выключаются расширенные возможности
2434	Serge	3534	cmp edx, MSR_SYSENTER_CS
1273	Lrz	3535	je @f
2434	Serge	3536	cmp edx, MSR_SYSENTER_ESP
1273	Lrz	3537	je @f
2434	Serge	3538	cmp edx, MSR_SYSENTER_EIP
1273	Lrz	3539	je @f
2434	Serge	3540	cmp edx, MSR_AMD_STAR
1273	Lrz	3541	je @f
		3542
2434	Serge	3543	mov eax, esi
		3544	mov ecx, edx
1273	Lrz	3545	wrmsr
1344	Lrz	3546	; mov [esp + 32], eax
		3547	; mov [esp + 20], edx ;ret in ebx?
1273	Lrz	3548	@@:
2434	Serge	3549	ret
1273	Lrz	3550
1	ha	3551	cache_disable:
2434	Serge	3552	mov eax, cr0
		3553	or eax, 01100000000000000000000000000000b
		3554	mov cr0, eax
		3555	wbinvd ;set MESI
		3556	ret
1	ha	3557
		3558	cache_enable:
2434	Serge	3559	mov eax, cr0
		3560	and eax, 10011111111111111111111111111111b
		3561	mov cr0, eax
		3562	ret
1	ha	3563
		3564	is_cache_enabled:
2434	Serge	3565	mov eax, cr0
		3566	mov ebx, eax
		3567	and eax, 01100000000000000000000000000000b
		3568	jz cache_disabled
		3569	mov [esp+32], ebx
1	ha	3570	cache_disabled:
2434	Serge	3571	mov dword [esp+32], eax;0
		3572	ret
1	ha	3573
		3574	modify_pce:
2434	Serge	3575	mov eax, cr4
1	ha	3576	; mov ebx,0
		3577	; or bx,100000000b ;pce
		3578	; xor eax,ebx ;invert pce
2434	Serge	3579	bts eax, 8;pce=cr4[8]
		3580	mov cr4, eax
		3581	mov [esp+32], eax
		3582	ret
1	ha	3583	;---------------------------------------------------------------------------------------------
		3584
		3585
		3586	iglobal
521	diamond	3587	cpustring db 'CPU',0
1	ha	3588	endg
		3589
67	diamond	3590	uglobal
1055	Galkov	3591	background_defined db 0 ; diamond, 11.04.2006
67	diamond	3592	endg
2987	Serge	3593	;-----------------------------------------------------------------------------
1	ha	3594	align 4
		3595	checkmisc:
2434	Serge	3596	cmp [ctrl_alt_del], 1
		3597	jne nocpustart
501	serge	3598
1055	Galkov	3599	mov ebp, cpustring
		3600	call fs_execute_from_sysdir
501	serge	3601
2434	Serge	3602	mov [ctrl_alt_del], 0
2987	Serge	3603	;--------------------------------------
		3604	align 4
465	serge	3605	nocpustart:
2434	Serge	3606	cmp [mouse_active], 1
		3607	jne mouse_not_active
		3608	mov [mouse_active], 0
1	ha	3609
2434	Serge	3610	xor edi, edi
		3611	mov ebx, CURRENT_TASK
		3612
		3613	mov ecx, [TASK_COUNT]
		3614	movzx eax, word [WIN_POS + ecx*2] ; active window
		3615	shl eax, 8
		3616	push eax
		3617
		3618	movzx eax, word [MOUSE_X]
		3619	movzx edx, word [MOUSE_Y]
2987	Serge	3620	;--------------------------------------
2434	Serge	3621	align 4
		3622	.set_mouse_event:
		3623	add edi, 256
		3624	add ebx, 32
		3625	test [ebx+TASKDATA.event_mask], 0x80000000
		3626	jz .pos_filter
		3627
		3628	cmp edi, [esp] ; skip if filtration active
		3629	jne .skip
2987	Serge	3630	;--------------------------------------
		3631	align 4
2434	Serge	3632	.pos_filter:
		3633	test [ebx+TASKDATA.event_mask], 0x40000000
		3634	jz .set
		3635
		3636	mov esi, [ebx-twdw+WDATA.box.left]
		3637	cmp eax, esi
		3638	jb .skip
		3639	add esi, [ebx-twdw+WDATA.box.width]
		3640	cmp eax, esi
		3641	ja .skip
		3642
		3643	mov esi, [ebx-twdw+WDATA.box.top]
		3644	cmp edx, esi
		3645	jb .skip
		3646	add esi, [ebx-twdw+WDATA.box.height]
		3647	cmp edx, esi
		3648	ja .skip
2987	Serge	3649	;--------------------------------------
		3650	align 4
2434	Serge	3651	.set:
2987	Serge	3652	or [edi+SLOT_BASE+APPDATA.event_mask], 100000b ; set event 6
		3653	;--------------------------------------
		3654	align 4
2434	Serge	3655	.skip:
		3656	loop .set_mouse_event
		3657
		3658	pop eax
2987	Serge	3659	;--------------------------------------
		3660	align 4
465	serge	3661	mouse_not_active:
2434	Serge	3662	cmp byte[REDRAW_BACKGROUND], 0 ; background update ?
		3663	jz nobackgr
2987	Serge	3664
2434	Serge	3665	cmp [background_defined], 0
		3666	jz nobackgr
2987	Serge	3667	;--------------------------------------
		3668	align 4
3555	Serge	3669	backgr:
2987	Serge	3670	mov eax, [draw_data+32 + RECT.left]
		3671	shl eax, 16
		3672	add eax, [draw_data+32 + RECT.right]
		3673	mov [BG_Rect_X_left_right], eax ; [left]*65536 + [right]
		3674
		3675	mov eax, [draw_data+32 + RECT.top]
		3676	shl eax, 16
		3677	add eax, [draw_data+32 + RECT.bottom]
		3678	mov [BG_Rect_Y_top_bottom], eax ; [top]*65536 + [bottom]
		3679
2434	Serge	3680	call drawbackground
2987	Serge	3681	; DEBUGF 1, "K : drawbackground\n"
		3682	; DEBUGF 1, "K : backg x %x\n",[BG_Rect_X_left_right]
		3683	; DEBUGF 1, "K : backg y %x\n",[BG_Rect_Y_top_bottom]
		3684	;--------- set event 5 start ----------
		3685	push ecx edi
		3686	xor edi, edi
		3687	mov ecx, [TASK_COUNT]
		3688	;--------------------------------------
		3689	align 4
		3690	set_bgr_event:
		3691	add edi, 256
3555	Serge	3692	mov eax, [BG_Rect_X_left_right]
		3693	mov edx, [BG_Rect_Y_top_bottom]
		3694	cmp [edi+SLOT_BASE+APPDATA.draw_bgr_x], 0
		3695	jz .set
		3696	.join:
3626	Serge	3697	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
		3698	jae @f
		3699	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_x], ax
		3700	@@:
		3701	shr eax, 16
3555	Serge	3702	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
		3703	jbe @f
		3704	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_x+2], ax
		3705	@@:
3626	Serge	3706	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3555	Serge	3707	jae @f
3626	Serge	3708	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_y], dx
3555	Serge	3709	@@:
3626	Serge	3710	shr edx, 16
3555	Serge	3711	cmp word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
		3712	jbe @f
		3713	mov word [edi+SLOT_BASE+APPDATA.draw_bgr_y+2], dx
		3714	@@:
		3715	jmp .common
		3716	.set:
		3717	mov [edi+SLOT_BASE+APPDATA.draw_bgr_x], eax
		3718	mov [edi+SLOT_BASE+APPDATA.draw_bgr_y], edx
		3719	.common:
2987	Serge	3720	or [edi+SLOT_BASE+APPDATA.event_mask], 10000b ; set event 5
		3721	loop set_bgr_event
		3722	pop edi ecx
		3723	;--------- set event 5 stop -----------
		3724	dec byte[REDRAW_BACKGROUND] ; got new update request?
3555	Serge	3725	jnz backgr
2987	Serge	3726
3555	Serge	3727	xor eax, eax
2434	Serge	3728	mov [draw_data+32 + RECT.left], eax
		3729	mov [draw_data+32 + RECT.top], eax
		3730	mov [draw_data+32 + RECT.right], eax
		3731	mov [draw_data+32 + RECT.bottom], eax
2987	Serge	3732	;--------------------------------------
		3733	align 4
465	serge	3734	nobackgr:
2987	Serge	3735	; system shutdown request
2434	Serge	3736	cmp [SYS_SHUTDOWN], byte 0
		3737	je noshutdown
1	ha	3738
2434	Serge	3739	mov edx, [shutdown_processes]
1	ha	3740
2434	Serge	3741	cmp [SYS_SHUTDOWN], dl
3500	Serge	3742	jne noshutdown
1	ha	3743
2434	Serge	3744	lea ecx, [edx-1]
		3745	mov edx, OS_BASE+0x3040
3500	Serge	3746	jecxz no_mark_system_shutdown
2987	Serge	3747	;--------------------------------------
		3748	align 4
465	serge	3749	markz:
3500	Serge	3750	push ecx edx
		3751	cmp [edx+TASKDATA.state], 9
		3752	jz .nokill
		3753	lea edx, [(edx-(CURRENT_TASK and 1FFFFFFFh))*8+SLOT_BASE]
5201	serge	3754	cmp [edx+APPDATA.process], sys_proc
3500	Serge	3755	jz .nokill
		3756	call request_terminate
		3757	jmp .common
		3758	.nokill:
		3759	dec byte [SYS_SHUTDOWN]
		3760	xor eax, eax
		3761	.common:
		3762	pop edx ecx
		3763	test eax, eax
		3764	jz @f
2434	Serge	3765	mov [edx+TASKDATA.state], byte 3
3500	Serge	3766	@@:
2434	Serge	3767	add edx, 0x20
		3768	loop markz
3555	Serge	3769	call wakeup_osloop
2987	Serge	3770	;--------------------------------------
		3771	align 4
709	diamond	3772	@@:
2987	Serge	3773	no_mark_system_shutdown:
2434	Serge	3774	dec byte [SYS_SHUTDOWN]
		3775	je system_shutdown
2987	Serge	3776	;--------------------------------------
		3777	align 4
465	serge	3778	noshutdown:
2434	Serge	3779	mov eax, [TASK_COUNT] ; termination
		3780	mov ebx, TASK_DATA+TASKDATA.state
		3781	mov esi, 1
2987	Serge	3782	;--------------------------------------
		3783	align 4
465	serge	3784	newct:
2434	Serge	3785	mov cl, [ebx]
		3786	cmp cl, byte 3
3500	Serge	3787	jz .terminate
2987	Serge	3788
2434	Serge	3789	cmp cl, byte 4
3500	Serge	3790	jnz .noterminate
		3791	.terminate:
		3792	pushad
		3793	mov ecx, eax
		3794	shl ecx, 8
		3795	add ecx, SLOT_BASE
		3796	call restore_default_cursor_before_killing
		3797	popad
1	ha	3798
3500	Serge	3799	pushad
		3800	call terminate
		3801	popad
		3802	cmp byte [SYS_SHUTDOWN], 0
		3803	jz .noterminate
		3804	dec byte [SYS_SHUTDOWN]
		3805	je system_shutdown
		3806
		3807	.noterminate:
2434	Serge	3808	add ebx, 0x20
		3809	inc esi
		3810	dec eax
		3811	jnz newct
		3812	ret
2987	Serge	3813	;-----------------------------------------------------------------------------
		3814	align 4
1	ha	3815	redrawscreen:
		3816	; eax , if process window_data base is eax, do not set flag/limits
		3817
2434	Serge	3818	pushad
		3819	push eax
1	ha	3820
684	diamond	3821	;;; mov ebx,2
1	ha	3822	;;; call delay_hs
		3823
1055	Galkov	3824	;mov ecx,0 ; redraw flags for apps
2434	Serge	3825	xor ecx, ecx
2987	Serge	3826	;--------------------------------------
		3827	align 4
		3828	newdw2:
2434	Serge	3829	inc ecx
		3830	push ecx
1	ha	3831
2434	Serge	3832	mov eax, ecx
		3833	shl eax, 5
		3834	add eax, window_data
1	ha	3835
2434	Serge	3836	cmp eax, [esp+4]
		3837	je not_this_task
1055	Galkov	3838	; check if window in redraw area
2434	Serge	3839	mov edi, eax
1	ha	3840
2434	Serge	3841	cmp ecx, 1 ; limit for background
		3842	jz bgli
1	ha	3843
5984	serge	3844	mov eax, [esp+4] ;if upper in z-position - no redraw
		3845	test eax, eax
		3846	jz @f
		3847	mov al, [eax + WDATA.z_modif]
		3848	cmp [edi + WDATA.z_modif], al
		3849	jg ricino
		3850	@@:
		3851
2434	Serge	3852	mov eax, [edi + WDATA.box.left]
		3853	mov ebx, [edi + WDATA.box.top]
1	ha	3854
2434	Serge	3855	mov ecx, [draw_limits.bottom] ; ecx = area y end ebx = window y start
		3856	cmp ecx, ebx
		3857	jb ricino
1	ha	3858
2434	Serge	3859	mov ecx, [draw_limits.right] ; ecx = area x end eax = window x start
		3860	cmp ecx, eax
		3861	jb ricino
1	ha	3862
2434	Serge	3863	mov eax, [edi + WDATA.box.left]
		3864	mov ebx, [edi + WDATA.box.top]
		3865	mov ecx, [edi + WDATA.box.width]
		3866	mov edx, [edi + WDATA.box.height]
		3867	add ecx, eax
		3868	add edx, ebx
164	serge	3869
2434	Serge	3870	mov eax, [draw_limits.top] ; eax = area y start edx = window y end
		3871	cmp edx, eax
		3872	jb ricino
1	ha	3873
2434	Serge	3874	mov eax, [draw_limits.left] ; eax = area x start ecx = window x end
		3875	cmp ecx, eax
		3876	jb ricino
2987	Serge	3877	;--------------------------------------
		3878	align 4
		3879	bgli:
2434	Serge	3880	cmp dword[esp], 1
		3881	jnz .az
2987	Serge	3882
2434	Serge	3883	cmp byte[REDRAW_BACKGROUND], 0
		3884	jz .az
2987	Serge	3885
2434	Serge	3886	mov dl, 0
		3887	lea eax, [edi+draw_data-window_data]
		3888	mov ebx, [draw_limits.left]
		3889	cmp ebx, [eax+RECT.left]
		3890	jae @f
2987	Serge	3891
2434	Serge	3892	mov [eax+RECT.left], ebx
		3893	mov dl, 1
2987	Serge	3894	;--------------------------------------
		3895	align 4
		3896	@@:
2434	Serge	3897	mov ebx, [draw_limits.top]
		3898	cmp ebx, [eax+RECT.top]
		3899	jae @f
2987	Serge	3900
2434	Serge	3901	mov [eax+RECT.top], ebx
		3902	mov dl, 1
2987	Serge	3903	;--------------------------------------
		3904	align 4
		3905	@@:
2434	Serge	3906	mov ebx, [draw_limits.right]
		3907	cmp ebx, [eax+RECT.right]
		3908	jbe @f
2987	Serge	3909
2434	Serge	3910	mov [eax+RECT.right], ebx
		3911	mov dl, 1
2987	Serge	3912	;--------------------------------------
		3913	align 4
		3914	@@:
2434	Serge	3915	mov ebx, [draw_limits.bottom]
		3916	cmp ebx, [eax+RECT.bottom]
		3917	jbe @f
2987	Serge	3918
2434	Serge	3919	mov [eax+RECT.bottom], ebx
		3920	mov dl, 1
2987	Serge	3921	;--------------------------------------
		3922	align 4
		3923	@@:
2434	Serge	3924	add byte[REDRAW_BACKGROUND], dl
3555	Serge	3925	call wakeup_osloop
2434	Serge	3926	jmp newdw8
2987	Serge	3927	;--------------------------------------
		3928	align 4
		3929	.az:
2434	Serge	3930	mov eax, edi
		3931	add eax, draw_data-window_data
1	ha	3932
2434	Serge	3933	mov ebx, [draw_limits.left] ; set limits
		3934	mov [eax + RECT.left], ebx
		3935	mov ebx, [draw_limits.top]
		3936	mov [eax + RECT.top], ebx
		3937	mov ebx, [draw_limits.right]
		3938	mov [eax + RECT.right], ebx
		3939	mov ebx, [draw_limits.bottom]
		3940	mov [eax + RECT.bottom], ebx
1	ha	3941
2434	Serge	3942	sub eax, draw_data-window_data
1	ha	3943
2434	Serge	3944	cmp dword [esp], 1
		3945	jne nobgrd
		3946	inc byte[REDRAW_BACKGROUND]
3555	Serge	3947	call wakeup_osloop
2987	Serge	3948	;--------------------------------------
		3949	align 4
		3950	newdw8:
		3951	nobgrd:
4265	Serge	3952	;--------------------------------------
		3953	push eax edi ebp
		3954	mov edi, [esp+12]
		3955	cmp edi, 1
		3956	je .found
1	ha	3957
4265	Serge	3958	mov eax, [draw_limits.left]
		3959	mov ebx, [draw_limits.top]
		3960	mov ecx, [draw_limits.right]
		3961	sub ecx, eax
		3962	test ecx, ecx
		3963	jz .not_found
		3964
		3965	mov edx, [draw_limits.bottom]
		3966	sub edx, ebx
		3967	test edx, edx
		3968	jz .not_found
		3969
		3970	; eax - x, ebx - y
		3971	; ecx - size x, edx - size y
		3972	add ebx, edx
		3973	;--------------------------------------
		3974	align 4
		3975	.start_y:
		3976	push ecx
		3977	;--------------------------------------
		3978	align 4
		3979	.start_x:
		3980	add eax, ecx
		3981	mov ebp, [d_width_calc_area + ebx*4]
5565	serge	3982	add ebp, [_display.win_map]
4265	Serge	3983	movzx ebp, byte[eax+ebp] ; get value for current point
		3984	cmp ebp, edi
		3985	jne @f
		3986
		3987	pop ecx
		3988	jmp .found
		3989	;--------------------------------------
		3990	align 4
		3991	@@:
		3992	sub eax, ecx
		3993
		3994	dec ecx
		3995	jnz .start_x
		3996
		3997	pop ecx
		3998	dec ebx
		3999	dec edx
		4000	jnz .start_y
		4001	;--------------------------------------
		4002	align 4
		4003	.not_found:
		4004	pop ebp edi eax
		4005	jmp ricino
		4006	;--------------------------------------
		4007	align 4
		4008	.found:
		4009	pop ebp edi eax
		4010
2434	Serge	4011	mov [eax + WDATA.fl_redraw], byte 1 ; mark as redraw
2987	Serge	4012	;--------------------------------------
		4013	align 4
		4014	ricino:
		4015	not_this_task:
2434	Serge	4016	pop ecx
1	ha	4017
2434	Serge	4018	cmp ecx, [TASK_COUNT]
		4019	jle newdw2
1	ha	4020
2434	Serge	4021	pop eax
		4022	popad
		4023	ret
2987	Serge	4024	;-----------------------------------------------------------------------------
		4025	align 4
1	ha	4026	calculatebackground: ; background
5565	serge	4027	mov edi, [_display.win_map] ; set os to use all pixels
2434	Serge	4028	mov eax, 0x01010101
5565	serge	4029	mov ecx, [_display.win_map_size]
2434	Serge	4030	shr ecx, 2
		4031	rep stosd
1	ha	4032
2434	Serge	4033	mov byte[REDRAW_BACKGROUND], 0 ; do not draw background!
1055	Galkov	4034	ret
2987	Serge	4035	;-----------------------------------------------------------------------------
1	ha	4036	uglobal
1055	Galkov	4037	imax dd 0x0
1	ha	4038	endg
2987	Serge	4039	;-----------------------------------------------------------------------------
		4040	align 4
1	ha	4041	delay_ms: ; delay in 1/1000 sec
2434	Serge	4042	push eax
		4043	push ecx
1	ha	4044
2434	Serge	4045	mov ecx, esi
1055	Galkov	4046	;
2434	Serge	4047	imul ecx, 33941
		4048	shr ecx, 9
1055	Galkov	4049	;
1	ha	4050
2434	Serge	4051	in al, 0x61
		4052	and al, 0x10
		4053	mov ah, al
1055	Galkov	4054	cld
2987	Serge	4055	;--------------------------------------
		4056	align 4
		4057	cnt1:
2434	Serge	4058	in al, 0x61
		4059	and al, 0x10
		4060	cmp al, ah
		4061	jz cnt1
1	ha	4062
2434	Serge	4063	mov ah, al
		4064	loop cnt1
1	ha	4065
2434	Serge	4066	pop ecx
		4067	pop eax
1055	Galkov	4068	ret
2987	Serge	4069	;-----------------------------------------------------------------------------
2434	Serge	4070	align 4
1	ha	4071	set_app_param:
1055	Galkov	4072	mov edi, [TASK_BASE]
2434	Serge	4073	mov eax, ebx
		4074	btr eax, 3 ; move MOUSE_FILTRATION
		4075	mov ebx, [current_slot] ; bit into event_filter
		4076	setc byte [ebx+APPDATA.event_filter]
		4077	xchg eax, [edi + TASKDATA.event_mask] ; set new event mask
		4078	mov [esp+32], eax ; return old mask value
1055	Galkov	4079	ret
2987	Serge	4080	;-----------------------------------------------------------------------------
3500	Serge	4081
		4082	; this is for syscall
		4083	proc delay_hs_unprotected
		4084	call unprotect_from_terminate
		4085	call delay_hs
		4086	call protect_from_terminate
		4087	ret
		4088	endp
		4089
3626	Serge	4090	if 1
2987	Serge	4091	align 4
1	ha	4092	delay_hs: ; delay in 1/100 secs
684	diamond	4093	; ebx = delay time
3626	Serge	4094
		4095	pushad
		4096	push ebx
		4097	xor esi, esi
		4098	mov ecx, MANUAL_DESTROY
		4099	call create_event
		4100	test eax, eax
		4101	jz .done
		4102
		4103	mov ebx, edx
		4104	mov ecx, [esp]
		4105	push edx
		4106	push eax
		4107	call wait_event_timeout
		4108	pop eax
		4109	pop ebx
		4110	call destroy_event
		4111	.done:
		4112	add esp, 4
		4113	popad
		4114	ret
		4115
		4116	else
		4117
		4118	align 4
		4119	delay_hs: ; delay in 1/100 secs
		4120	; ebx = delay time
2434	Serge	4121	push ecx
		4122	push edx
1	ha	4123
2434	Serge	4124	mov edx, [timer_ticks]
2987	Serge	4125	;--------------------------------------
		4126	align 4
		4127	newtic:
2434	Serge	4128	mov ecx, [timer_ticks]
		4129	sub ecx, edx
		4130	cmp ecx, ebx
		4131	jae zerodelay
1	ha	4132
2434	Serge	4133	call change_task
1	ha	4134
2434	Serge	4135	jmp newtic
2987	Serge	4136	;--------------------------------------
		4137	align 4
		4138	zerodelay:
2434	Serge	4139	pop edx
		4140	pop ecx
1055	Galkov	4141	ret
3626	Serge	4142	end if
		4143
2987	Serge	4144	;-----------------------------------------------------------------------------
2434	Serge	4145	align 16 ;very often call this subrutine
1	ha	4146	memmove: ; memory move in bytes
		4147	; eax = from
		4148	; ebx = to
		4149	; ecx = no of bytes
2434	Serge	4150	test ecx, ecx
		4151	jle .ret
1	ha	4152
2434	Serge	4153	push esi edi ecx
1	ha	4154
2434	Serge	4155	mov edi, ebx
		4156	mov esi, eax
1	ha	4157
2434	Serge	4158	test ecx, not 11b
		4159	jz @f
1	ha	4160
2434	Serge	4161	push ecx
		4162	shr ecx, 2
		4163	rep movsd
		4164	pop ecx
		4165	and ecx, 11b
		4166	jz .finish
2987	Serge	4167	;--------------------------------------
		4168	align 4
		4169	@@:
2434	Serge	4170	rep movsb
2987	Serge	4171	;--------------------------------------
		4172	align 4
		4173	.finish:
2434	Serge	4174	pop ecx edi esi
2987	Serge	4175	;--------------------------------------
		4176	align 4
		4177	.ret:
2434	Serge	4178	ret
2987	Serge	4179	;-----------------------------------------------------------------------------
75	diamond	4180	; Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
		4181	;align 4
1	ha	4182	;
75	diamond	4183	;read_floppy_file:
1	ha	4184	;
75	diamond	4185	;; as input
		4186	;;
		4187	;; eax pointer to file
		4188	;; ebx file lenght
		4189	;; ecx start 512 byte block number
		4190	;; edx number of blocks to read
		4191	;; esi pointer to return/work area (atleast 20 000 bytes)
		4192	;;
		4193	;;
		4194	;; on return
		4195	;;
		4196	;; eax = 0 command succesful
		4197	;; 1 no fd base and/or partition defined
		4198	;; 2 yet unsupported FS
		4199	;; 3 unknown FS
		4200	;; 4 partition not defined at hd
		4201	;; 5 file not found
		4202	;; ebx = size of file
1	ha	4203	;
379	serge	4204	; mov edi,[TASK_BASE]
75	diamond	4205	; add edi,0x10
		4206	; add esi,[edi]
		4207	; add eax,[edi]
1	ha	4208	;
75	diamond	4209	; pushad
		4210	; mov edi,esi
		4211	; add edi,1024
		4212	; mov esi,0x100000+19*512
		4213	; sub ecx,1
		4214	; shl ecx,9
		4215	; add esi,ecx
		4216	; shl edx,9
		4217	; mov ecx,edx
		4218	; cld
		4219	; rep movsb
		4220	; popad
		4221	;
		4222	; mov [esp+36],eax
		4223	; mov [esp+24],ebx
		4224	; ret
1	ha	4225
		4226
		4227
		4228	align 4
		4229	set_io_access_rights:
2434	Serge	4230	push edi eax
		4231	mov edi, tss._io_map_0
465	serge	4232	; mov ecx,eax
		4233	; and ecx,7 ; offset in byte
		4234	; shr eax,3 ; number of byte
		4235	; add edi,eax
		4236	; mov ebx,1
		4237	; shl ebx,cl
2434	Serge	4238	test ebp, ebp
1232	Lrz	4239	; cmp ebp,0 ; enable access - ebp = 0
2434	Serge	4240	jnz .siar1
465	serge	4241	; not ebx
		4242	; and [edi],byte bl
2434	Serge	4243	btr [edi], eax
		4244	pop eax edi
		4245	ret
2106	serge	4246	.siar1:
2434	Serge	4247	bts [edi], eax
465	serge	4248	; or [edi],byte bl ; disable access - ebp = 1
2434	Serge	4249	pop eax edi
		4250	ret
1306	Lrz	4251	;reserve/free group of ports
		4252	; * eax = 46 - number function
		4253	; * ebx = 0 - reserve, 1 - free
		4254	; * ecx = number start arrea of ports
		4255	; * edx = number end arrea of ports (include last number of port)
		4256	;Return value:
1638	serge	4257	; * eax = 0 - succesful
1306	Lrz	4258	; * eax = 1 - error
		4259	; * The system has reserve this ports:
		4260	; 0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
		4261	;destroys eax,ebx, ebp
1	ha	4262	r_f_port_area:
		4263
2434	Serge	4264	test ebx, ebx
		4265	jnz free_port_area
1	ha	4266	; je r_port_area
		4267	; jmp free_port_area
		4268
		4269	; r_port_area:
		4270
1306	Lrz	4271	; pushad
1	ha	4272
2434	Serge	4273	cmp ecx, edx ; beginning > end ?
		4274	ja rpal1
		4275	cmp edx, 65536
		4276	jae rpal1
		4277	mov eax, [RESERVED_PORTS]
		4278	test eax, eax ; no reserved areas ?
		4279	je rpal2
		4280	cmp eax, 255 ; max reserved
		4281	jae rpal1
465	serge	4282	rpal3:
2434	Serge	4283	mov ebx, eax
		4284	shl ebx, 4
		4285	add ebx, RESERVED_PORTS
		4286	cmp ecx, [ebx+8]
		4287	ja rpal4
		4288	cmp edx, [ebx+4]
		4289	jae rpal1
1	ha	4290	; jb rpal4
		4291	; jmp rpal1
465	serge	4292	rpal4:
2434	Serge	4293	dec eax
		4294	jnz rpal3
		4295	jmp rpal2
1	ha	4296	rpal1:
1306	Lrz	4297	; popad
		4298	; mov eax,1
2434	Serge	4299	xor eax, eax
		4300	inc eax
		4301	ret
1	ha	4302	rpal2:
1306	Lrz	4303	; popad
1	ha	4304	; enable port access at port IO map
2434	Serge	4305	cli
		4306	pushad ; start enable io map
1	ha	4307
2434	Serge	4308	cmp edx, 65536;16384
		4309	jae no_unmask_io; jge
		4310	mov eax, ecx
		4311	; push ebp
		4312	xor ebp, ebp ; enable - eax = port
1306	Lrz	4313	new_port_access:
		4314	; pushad
2434	Serge	4315	call set_io_access_rights
1306	Lrz	4316	; popad
2434	Serge	4317	inc eax
		4318	cmp eax, edx
		4319	jbe new_port_access
		4320	; pop ebp
1306	Lrz	4321	no_unmask_io:
2434	Serge	4322	popad ; end enable io map
		4323	sti
1	ha	4324
2434	Serge	4325	mov eax, [RESERVED_PORTS]
		4326	add eax, 1
		4327	mov [RESERVED_PORTS], eax
		4328	shl eax, 4
		4329	add eax, RESERVED_PORTS
		4330	mov ebx, [TASK_BASE]
		4331	mov ebx, [ebx+TASKDATA.pid]
		4332	mov [eax], ebx
		4333	mov [eax+4], ecx
		4334	mov [eax+8], edx
1	ha	4335
2434	Serge	4336	xor eax, eax
		4337	ret
1	ha	4338
		4339	free_port_area:
		4340
1306	Lrz	4341	; pushad
2434	Serge	4342	mov eax, [RESERVED_PORTS]; no reserved areas ?
		4343	test eax, eax
		4344	jz frpal2
		4345	mov ebx, [TASK_BASE]
		4346	mov ebx, [ebx+TASKDATA.pid]
1	ha	4347	frpal3:
2434	Serge	4348	mov edi, eax
		4349	shl edi, 4
		4350	add edi, RESERVED_PORTS
		4351	cmp ebx, [edi]
		4352	jne frpal4
		4353	cmp ecx, [edi+4]
		4354	jne frpal4
		4355	cmp edx, [edi+8]
		4356	jne frpal4
		4357	jmp frpal1
1	ha	4358	frpal4:
2434	Serge	4359	dec eax
		4360	jnz frpal3
1	ha	4361	frpal2:
1306	Lrz	4362	; popad
2434	Serge	4363	inc eax
		4364	ret
1	ha	4365	frpal1:
2434	Serge	4366	push ecx
		4367	mov ecx, 256
		4368	sub ecx, eax
		4369	shl ecx, 4
		4370	mov esi, edi
		4371	add esi, 16
		4372	cld
		4373	rep movsb
1	ha	4374
2434	Serge	4375	dec dword [RESERVED_PORTS]
1306	Lrz	4376	;popad
		4377	;disable port access at port IO map
1	ha	4378
1306	Lrz	4379	; pushad ; start disable io map
2434	Serge	4380	pop eax ;start port
		4381	cmp edx, 65536;16384
		4382	jge no_mask_io
1	ha	4383
1306	Lrz	4384	; mov eax,ecx
2434	Serge	4385	xor ebp, ebp
		4386	inc ebp
1306	Lrz	4387	new_port_access_disable:
		4388	; pushad
		4389	; mov ebp,1 ; disable - eax = port
2434	Serge	4390	call set_io_access_rights
1306	Lrz	4391	; popad
2434	Serge	4392	inc eax
		4393	cmp eax, edx
		4394	jbe new_port_access_disable
1306	Lrz	4395	no_mask_io:
		4396	; popad ; end disable io map
2434	Serge	4397	xor eax, eax
		4398	ret
		4399	;-----------------------------------------------------------------------------
2106	serge	4400	align 4
1	ha	4401	drawbackground:
2434	Serge	4402	dbrv20:
		4403	cmp [BgrDrawMode], dword 1
		4404	jne bgrstr
		4405	call vesa20_drawbackground_tiled
2465	Serge	4406	; call [draw_pointer]
		4407	call __sys_draw_pointer
2434	Serge	4408	ret
		4409	;--------------------------------------
75	diamond	4410	align 4
2434	Serge	4411	bgrstr:
		4412	call vesa20_drawbackground_stretch
2465	Serge	4413	; call [draw_pointer]
		4414	call __sys_draw_pointer
2434	Serge	4415	ret
		4416	;-----------------------------------------------------------------------------
		4417	align 4
1055	Galkov	4418	syscall_putimage: ; PutImage
1	ha	4419	sys_putimage:
2434	Serge	4420	test ecx, 0x80008000
		4421	jnz .exit
		4422	test ecx, 0x0000FFFF
		4423	jz .exit
		4424	test ecx, 0xFFFF0000
		4425	jnz @f
		4426	;--------------------------------------
		4427	align 4
		4428	.exit:
		4429	ret
		4430	;--------------------------------------
		4431	align 4
		4432	@@:
		4433	mov edi, [current_slot]
		4434	add dx, word[edi+APPDATA.wnd_clientbox.top]
		4435	rol edx, 16
		4436	add dx, word[edi+APPDATA.wnd_clientbox.left]
		4437	rol edx, 16
		4438	;--------------------------------------
		4439	align 4
		4440	.forced:
1055	Galkov	4441	push ebp esi 0
		4442	mov ebp, putimage_get24bpp
		4443	mov esi, putimage_init24bpp
2434	Serge	4444	;--------------------------------------
		4445	align 4
283	diamond	4446	sys_putimage_bpp:
2434	Serge	4447	call vesa20_putimage
1055	Galkov	4448	pop ebp esi ebp
2434	Serge	4449	ret
		4450	; jmp [draw_pointer]
		4451	;-----------------------------------------------------------------------------
1495	Lrz	4452	align 4
283	diamond	4453	sys_putimage_palette:
		4454	; ebx = pointer to image
		4455	; ecx = [xsize]*65536 + [ysize]
		4456	; edx = [xstart]*65536 + [ystart]
314	diamond	4457	; esi = number of bits per pixel, must be 8, 24 or 32
283	diamond	4458	; edi = pointer to palette
314	diamond	4459	; ebp = row delta
1055	Galkov	4460	mov eax, [CURRENT_TASK]
		4461	shl eax, 8
		4462	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
		4463	rol edx, 16
		4464	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
		4465	rol edx, 16
2434	Serge	4466	;--------------------------------------
		4467	align 4
283	diamond	4468	.forced:
1055	Galkov	4469	cmp esi, 1
		4470	jnz @f
		4471	push edi
		4472	mov eax, [edi+4]
		4473	sub eax, [edi]
		4474	push eax
		4475	push dword [edi]
		4476	push 0ffffff80h
		4477	mov edi, esp
		4478	call put_mono_image
		4479	add esp, 12
		4480	pop edi
		4481	ret
2434	Serge	4482	;--------------------------------------
		4483	align 4
911	diamond	4484	@@:
1055	Galkov	4485	cmp esi, 2
		4486	jnz @f
		4487	push edi
		4488	push 0ffffff80h
		4489	mov edi, esp
		4490	call put_2bit_image
		4491	pop eax
		4492	pop edi
		4493	ret
2434	Serge	4494	;--------------------------------------
		4495	align 4
911	diamond	4496	@@:
1055	Galkov	4497	cmp esi, 4
		4498	jnz @f
		4499	push edi
		4500	push 0ffffff80h
		4501	mov edi, esp
		4502	call put_4bit_image
		4503	pop eax
		4504	pop edi
		4505	ret
2434	Serge	4506	;--------------------------------------
		4507	align 4
314	diamond	4508	@@:
1055	Galkov	4509	push ebp esi ebp
		4510	cmp esi, 8
		4511	jnz @f
		4512	mov ebp, putimage_get8bpp
		4513	mov esi, putimage_init8bpp
		4514	jmp sys_putimage_bpp
2434	Serge	4515	;--------------------------------------
		4516	align 4
918	diamond	4517	@@:
2987	Serge	4518	cmp esi, 9
		4519	jnz @f
		4520	mov ebp, putimage_get9bpp
		4521	mov esi, putimage_init9bpp
		4522	jmp sys_putimage_bpp
		4523	;--------------------------------------
		4524	align 4
		4525	@@:
1055	Galkov	4526	cmp esi, 15
		4527	jnz @f
		4528	mov ebp, putimage_get15bpp
		4529	mov esi, putimage_init15bpp
		4530	jmp sys_putimage_bpp
2434	Serge	4531	;--------------------------------------
		4532	align 4
906	diamond	4533	@@:
1055	Galkov	4534	cmp esi, 16
		4535	jnz @f
		4536	mov ebp, putimage_get16bpp
		4537	mov esi, putimage_init16bpp
		4538	jmp sys_putimage_bpp
2434	Serge	4539	;--------------------------------------
		4540	align 4
842	diamond	4541	@@:
1055	Galkov	4542	cmp esi, 24
		4543	jnz @f
		4544	mov ebp, putimage_get24bpp
		4545	mov esi, putimage_init24bpp
		4546	jmp sys_putimage_bpp
2434	Serge	4547	;--------------------------------------
		4548	align 4
314	diamond	4549	@@:
1055	Galkov	4550	cmp esi, 32
		4551	jnz @f
		4552	mov ebp, putimage_get32bpp
		4553	mov esi, putimage_init32bpp
		4554	jmp sys_putimage_bpp
2434	Serge	4555	;--------------------------------------
		4556	align 4
314	diamond	4557	@@:
1055	Galkov	4558	pop ebp esi ebp
		4559	ret
2434	Serge	4560	;-----------------------------------------------------------------------------
		4561	align 4
911	diamond	4562	put_mono_image:
1055	Galkov	4563	push ebp esi ebp
		4564	mov ebp, putimage_get1bpp
		4565	mov esi, putimage_init1bpp
		4566	jmp sys_putimage_bpp
2434	Serge	4567	;-----------------------------------------------------------------------------
		4568	align 4
918	diamond	4569	put_2bit_image:
1055	Galkov	4570	push ebp esi ebp
		4571	mov ebp, putimage_get2bpp
		4572	mov esi, putimage_init2bpp
		4573	jmp sys_putimage_bpp
2434	Serge	4574	;-----------------------------------------------------------------------------
		4575	align 4
911	diamond	4576	put_4bit_image:
1055	Galkov	4577	push ebp esi ebp
		4578	mov ebp, putimage_get4bpp
		4579	mov esi, putimage_init4bpp
		4580	jmp sys_putimage_bpp
2434	Serge	4581	;-----------------------------------------------------------------------------
		4582	align 4
283	diamond	4583	putimage_init24bpp:
1055	Galkov	4584	lea eax, [eax*3]
283	diamond	4585	putimage_init8bpp:
2987	Serge	4586	putimage_init9bpp:
1055	Galkov	4587	ret
2434	Serge	4588	;-----------------------------------------------------------------------------
911	diamond	4589	align 16
283	diamond	4590	putimage_get24bpp:
1055	Galkov	4591	movzx eax, byte [esi+2]
		4592	shl eax, 16
		4593	mov ax, [esi]
		4594	add esi, 3
		4595	ret 4
2434	Serge	4596	;-----------------------------------------------------------------------------
911	diamond	4597	align 16
283	diamond	4598	putimage_get8bpp:
1055	Galkov	4599	movzx eax, byte [esi]
		4600	push edx
		4601	mov edx, [esp+8]
		4602	mov eax, [edx+eax*4]
		4603	pop edx
		4604	inc esi
		4605	ret 4
2434	Serge	4606	;-----------------------------------------------------------------------------
2987	Serge	4607	align 16
		4608	putimage_get9bpp:
		4609	lodsb
		4610	mov ah, al
		4611	shl eax, 8
		4612	mov al, ah
		4613	ret 4
		4614	;-----------------------------------------------------------------------------
2434	Serge	4615	align 4
911	diamond	4616	putimage_init1bpp:
1055	Galkov	4617	add eax, ecx
		4618	push ecx
		4619	add eax, 7
		4620	add ecx, 7
		4621	shr eax, 3
		4622	shr ecx, 3
		4623	sub eax, ecx
		4624	pop ecx
		4625	ret
2434	Serge	4626	;-----------------------------------------------------------------------------
911	diamond	4627	align 16
		4628	putimage_get1bpp:
1055	Galkov	4629	push edx
		4630	mov edx, [esp+8]
		4631	mov al, [edx]
		4632	add al, al
		4633	jnz @f
		4634	lodsb
		4635	adc al, al
911	diamond	4636	@@:
1055	Galkov	4637	mov [edx], al
		4638	sbb eax, eax
		4639	and eax, [edx+8]
		4640	add eax, [edx+4]
		4641	pop edx
		4642	ret 4
2434	Serge	4643	;-----------------------------------------------------------------------------
		4644	align 4
918	diamond	4645	putimage_init2bpp:
1055	Galkov	4646	add eax, ecx
		4647	push ecx
		4648	add ecx, 3
		4649	add eax, 3
		4650	shr ecx, 2
		4651	shr eax, 2
		4652	sub eax, ecx
		4653	pop ecx
		4654	ret
2434	Serge	4655	;-----------------------------------------------------------------------------
918	diamond	4656	align 16
		4657	putimage_get2bpp:
1055	Galkov	4658	push edx
		4659	mov edx, [esp+8]
		4660	mov al, [edx]
		4661	mov ah, al
		4662	shr al, 6
		4663	shl ah, 2
		4664	jnz .nonewbyte
		4665	lodsb
		4666	mov ah, al
		4667	shr al, 6
		4668	shl ah, 2
		4669	add ah, 1
918	diamond	4670	.nonewbyte:
1055	Galkov	4671	mov [edx], ah
		4672	mov edx, [edx+4]
		4673	movzx eax, al
		4674	mov eax, [edx+eax*4]
		4675	pop edx
		4676	ret 4
2434	Serge	4677	;-----------------------------------------------------------------------------
		4678	align 4
911	diamond	4679	putimage_init4bpp:
1055	Galkov	4680	add eax, ecx
		4681	push ecx
		4682	add ecx, 1
		4683	add eax, 1
		4684	shr ecx, 1
		4685	shr eax, 1
		4686	sub eax, ecx
		4687	pop ecx
		4688	ret
2434	Serge	4689	;-----------------------------------------------------------------------------
911	diamond	4690	align 16
		4691	putimage_get4bpp:
1055	Galkov	4692	push edx
		4693	mov edx, [esp+8]
		4694	add byte [edx], 80h
		4695	jc @f
		4696	movzx eax, byte [edx+1]
		4697	mov edx, [edx+4]
		4698	and eax, 0x0F
		4699	mov eax, [edx+eax*4]
		4700	pop edx
		4701	ret 4
911	diamond	4702	@@:
1055	Galkov	4703	movzx eax, byte [esi]
		4704	add esi, 1
		4705	mov [edx+1], al
		4706	shr eax, 4
		4707	mov edx, [edx+4]
		4708	mov eax, [edx+eax*4]
		4709	pop edx
		4710	ret 4
2434	Serge	4711	;-----------------------------------------------------------------------------
		4712	align 4
314	diamond	4713	putimage_init32bpp:
1055	Galkov	4714	shl eax, 2
		4715	ret
2434	Serge	4716	;-----------------------------------------------------------------------------
911	diamond	4717	align 16
314	diamond	4718	putimage_get32bpp:
1055	Galkov	4719	lodsd
		4720	ret 4
2434	Serge	4721	;-----------------------------------------------------------------------------
		4722	align 4
906	diamond	4723	putimage_init15bpp:
911	diamond	4724	putimage_init16bpp:
1055	Galkov	4725	add eax, eax
		4726	ret
2434	Serge	4727	;-----------------------------------------------------------------------------
911	diamond	4728	align 16
906	diamond	4729	putimage_get15bpp:
842	diamond	4730	; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
1055	Galkov	4731	push ecx edx
		4732	movzx eax, word [esi]
		4733	add esi, 2
		4734	mov ecx, eax
		4735	mov edx, eax
		4736	and eax, 0x1F
		4737	and ecx, 0x1F shl 5
		4738	and edx, 0x1F shl 10
		4739	shl eax, 3
		4740	shl ecx, 6
		4741	shl edx, 9
		4742	or eax, ecx
		4743	or eax, edx
		4744	pop edx ecx
		4745	ret 4
2434	Serge	4746	;-----------------------------------------------------------------------------
911	diamond	4747	align 16
906	diamond	4748	putimage_get16bpp:
		4749	; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
1055	Galkov	4750	push ecx edx
		4751	movzx eax, word [esi]
		4752	add esi, 2
		4753	mov ecx, eax
		4754	mov edx, eax
		4755	and eax, 0x1F
		4756	and ecx, 0x3F shl 5
		4757	and edx, 0x1F shl 11
		4758	shl eax, 3
		4759	shl ecx, 5
		4760	shl edx, 8
		4761	or eax, ecx
		4762	or eax, edx
		4763	pop edx ecx
		4764	ret 4
2434	Serge	4765	;-----------------------------------------------------------------------------
		4766	;align 4
1	ha	4767	; eax x beginning
		4768	; ebx y beginning
		4769	; ecx x end
1055	Galkov	4770	; edx y end
1	ha	4771	; edi color
2434	Serge	4772	;__sys_drawbar:
		4773	; mov esi, [current_slot]
		4774	; add eax, [esi+APPDATA.wnd_clientbox.left]
		4775	; add ecx, [esi+APPDATA.wnd_clientbox.left]
		4776	; add ebx, [esi+APPDATA.wnd_clientbox.top]
		4777	; add edx, [esi+APPDATA.wnd_clientbox.top]
		4778	;--------------------------------------
		4779	;align 4
		4780	;.forced:
		4781	; call vesa20_drawbar
		4782	; call [draw_pointer]
		4783	; ret
		4784	;-----------------------------------------------------------------------------
		4785	align 4
5201	serge	4786	kb_write_wait_ack:
1	ha	4787
1055	Galkov	4788	push ecx edx
1	ha	4789
2434	Serge	4790	mov dl, al
		4791	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
5201	serge	4792	.wait_output_ready:
2434	Serge	4793	in al, 0x64
		4794	test al, 2
5201	serge	4795	jz @f
		4796	loop .wait_output_ready
2434	Serge	4797	mov ah, 1
5201	serge	4798	jmp .nothing
		4799	@@:
2434	Serge	4800	mov al, dl
		4801	out 0x60, al
5201	serge	4802	mov ecx, 0xfffff; last 0xffff, new value in view of fast CPU's
		4803	.wait_ack:
2434	Serge	4804	in al, 0x64
5201	serge	4805	test al, 1
		4806	jnz @f
		4807	loop .wait_ack
2434	Serge	4808	mov ah, 1
5201	serge	4809	jmp .nothing
		4810	@@:
		4811	in al, 0x60
2434	Serge	4812	xor ah, ah
1	ha	4813
5201	serge	4814	.nothing:
1055	Galkov	4815	pop edx ecx
1	ha	4816
1055	Galkov	4817	ret
2434	Serge	4818	;-----------------------------------------------------------------------------
1	ha	4819
		4820	setmouse: ; set mousepicture -pointer
1055	Galkov	4821	; ps2 mouse enable
1	ha	4822
2434	Serge	4823	; mov [MOUSE_PICTURE], dword mousepointer
1	ha	4824
2434	Serge	4825	cli
1	ha	4826
2434	Serge	4827	ret
1	ha	4828
1055	Galkov	4829	if used _rdtsc
1	ha	4830	_rdtsc:
2434	Serge	4831	bt [cpu_caps], CAPS_TSC
		4832	jnc ret_rdtsc
		4833	rdtsc
		4834	ret
1	ha	4835	ret_rdtsc:
2434	Serge	4836	mov edx, 0xffffffff
		4837	mov eax, 0xffffffff
		4838	ret
1055	Galkov	4839	end if
1	ha	4840
		4841	sys_msg_board_str:
		4842
2434	Serge	4843	pushad
1	ha	4844	@@:
2434	Serge	4845	cmp [esi], byte 0
		4846	je @f
3626	Serge	4847	mov ebx, 1
		4848	movzx ecx, byte [esi]
2434	Serge	4849	call sys_msg_board
		4850	inc esi
		4851	jmp @b
1	ha	4852	@@:
2434	Serge	4853	popad
		4854	ret
1	ha	4855
709	diamond	4856	sys_msg_board_byte:
		4857	; in: al = byte to display
		4858	; out: nothing
		4859	; destroys: nothing
1055	Galkov	4860	pushad
		4861	mov ecx, 2
		4862	shl eax, 24
		4863	jmp @f
709	diamond	4864
		4865	sys_msg_board_word:
		4866	; in: ax = word to display
		4867	; out: nothing
		4868	; destroys: nothing
1055	Galkov	4869	pushad
		4870	mov ecx, 4
		4871	shl eax, 16
		4872	jmp @f
709	diamond	4873
		4874	sys_msg_board_dword:
		4875	; in: eax = dword to display
		4876	; out: nothing
		4877	; destroys: nothing
1055	Galkov	4878	pushad
		4879	mov ecx, 8
709	diamond	4880	@@:
1055	Galkov	4881	push ecx
		4882	rol eax, 4
		4883	push eax
		4884	and al, 0xF
		4885	cmp al, 10
		4886	sbb al, 69h
		4887	das
3626	Serge	4888	mov cl, al
		4889	xor ebx, ebx
		4890	inc ebx
1055	Galkov	4891	call sys_msg_board
		4892	pop eax
		4893	pop ecx
		4894	loop @b
		4895	popad
		4896	ret
709	diamond	4897
3500	Serge	4898	msg_board_data_size = 65536 ; Must be power of two
		4899
1	ha	4900	uglobal
3500	Serge	4901	msg_board_data rb msg_board_data_size
1	ha	4902	msg_board_count dd 0x0
		4903	endg
		4904
		4905	sys_msg_board:
		4906
3626	Serge	4907	; ebx=1 : write : bl byte to write
		4908	; ebx=2 : read : ebx=0 -> no data, ebx=1 -> data in al
1	ha	4909
3626	Serge	4910	push eax ebx ; Save eax and ebx, since we're restoring their order required.
		4911	mov eax, ebx
		4912	mov ebx, ecx
		4913
1055	Galkov	4914	mov ecx, [msg_board_count]
		4915	cmp eax, 1
		4916	jne .smbl1
1	ha	4917
1043	hidnplayr	4918	if defined debug_com_base
1	ha	4919
1055	Galkov	4920	push dx ax
1043	hidnplayr	4921
1055	Galkov	4922	@@: ; Wait for empty transmit register (yes, this slows down system..)
		4923	mov dx, debug_com_base+5
		4924	in al, dx
		4925	test al, 1 shl 5
		4926	jz @r
1043	hidnplayr	4927
1055	Galkov	4928	mov dx, debug_com_base ; Output the byte
		4929	mov al, bl
		4930	out dx, al
1043	hidnplayr	4931
1055	Galkov	4932	pop ax dx
1043	hidnplayr	4933
		4934	end if
		4935
2434	Serge	4936	mov [msg_board_data+ecx], bl
3908	Serge	4937	; // if debug_direct_print == 1
		4938	cmp byte [debug_direct_print], 1
		4939	jnz @f
3555	Serge	4940	pusha
		4941	iglobal
3908	Serge	4942	msg_board_pos dd (426)65536+10 ; for printing debug output on the screen
3555	Serge	4943	endg
		4944	lea edx, [msg_board_data+ecx]
		4945	mov ecx, 0x40FFFFFF
		4946	mov ebx, [msg_board_pos]
		4947	mov edi, 1
		4948	mov esi, 1
		4949	call dtext
		4950	popa
		4951	add word [msg_board_pos+2], 6
		4952	cmp bl, 10
		4953	jnz @f
3908	Serge	4954	mov word [msg_board_pos+2], (42*6)
3555	Serge	4955	add word [msg_board_pos], 10
5565	serge	4956	mov ax, word [_display.width]
3555	Serge	4957	cmp word [msg_board_pos], ax
5565	serge	4958	jb @f
3555	Serge	4959	mov word [msg_board_pos], 10
		4960	@@:
3908	Serge	4961	; // end if
		4962
3555	Serge	4963	if 0
		4964	pusha
		4965	mov al, bl
		4966	mov edx, 402h
		4967	out dx, al
		4968	popa
		4969	end if
1055	Galkov	4970	inc ecx
3500	Serge	4971	and ecx, msg_board_data_size - 1
1055	Galkov	4972	mov [msg_board_count], ecx
3626	Serge	4973
		4974	pop ebx eax
1055	Galkov	4975	ret
671	Ghost	4976	.smbl1:
1055	Galkov	4977	cmp eax, 2
		4978	jne .smbl2
		4979	test ecx, ecx
		4980	jz .smbl21
3626	Serge	4981
		4982	add esp, 8 ; Returning data in ebx and eax, so no need to restore them.
1055	Galkov	4983	mov eax, msg_board_data+1
		4984	mov ebx, msg_board_data
		4985	movzx edx, byte [ebx]
		4986	call memmove
		4987	dec [msg_board_count]
3626	Serge	4988	mov [esp + 32], edx ;eax
		4989	mov [esp + 20], dword 1
1055	Galkov	4990	ret
671	Ghost	4991	.smbl21:
3626	Serge	4992	mov [esp+32], ecx
		4993	mov [esp+20], ecx
671	Ghost	4994	.smbl2:
3626	Serge	4995	pop ebx eax
1055	Galkov	4996	ret
1	ha	4997
1494	Lrz	4998	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4999	;; 66 sys function. ;;
		5000	;; in eax=66,ebx in [0..5],ecx,edx ;;
		5001	;; out eax ;;
		5002	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		5003	iglobal
		5004	align 4
		5005	f66call:
		5006	dd sys_process_def.1 ; 1 = set keyboard mode
		5007	dd sys_process_def.2 ; 2 = get keyboard mode
		5008	dd sys_process_def.3 ; 3 = get keyboard ctrl, alt, shift
2987	Serge	5009	dd sys_process_def.4 ; 4 = set system-wide hotkey
		5010	dd sys_process_def.5 ; 5 = delete installed hotkey
		5011	dd sys_process_def.6 ; 6 = disable input, work only hotkeys
		5012	dd sys_process_def.7 ; 7 = enable input, opposition to f.66.6
1494	Lrz	5013	endg
2987	Serge	5014	;-----------------------------------------------------------------------------
		5015	align 4
1	ha	5016	sys_process_def:
2434	Serge	5017	dec ebx
2987	Serge	5018	cmp ebx, 7
		5019	jae .not_support ;if >=8 then or eax,-1
1494	Lrz	5020
1055	Galkov	5021	mov edi, [CURRENT_TASK]
2434	Serge	5022	jmp dword [f66call+ebx*4]
1	ha	5023
1494	Lrz	5024	.not_support:
2434	Serge	5025	or eax, -1
		5026	ret
2987	Serge	5027	;-----------------------------------------------------------------------------
		5028	align 4
1494	Lrz	5029	.1:
2434	Serge	5030	shl edi, 8
		5031	mov [edi+SLOT_BASE + APPDATA.keyboard_mode], cl
1	ha	5032
2434	Serge	5033	ret
2987	Serge	5034	;-----------------------------------------------------------------------------
		5035	align 4
2434	Serge	5036	.2: ; 2 = get keyboard mode
		5037	shl edi, 8
		5038	movzx eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
		5039	mov [esp+32], eax
		5040	ret
2987	Serge	5041	;-----------------------------------------------------------------------------
		5042	align 4
2434	Serge	5043	.3: ;3 = get keyboard ctrl, alt, shift
		5044	mov eax, [kb_state]
		5045	mov [esp+32], eax
		5046	ret
2987	Serge	5047	;-----------------------------------------------------------------------------
		5048	align 4
1494	Lrz	5049	.4:
1055	Galkov	5050	mov eax, hotkey_list
92	diamond	5051	@@:
1055	Galkov	5052	cmp dword [eax+8], 0
		5053	jz .found_free
		5054	add eax, 16
		5055	cmp eax, hotkey_list+16*256
		5056	jb @b
1494	Lrz	5057	mov dword [esp+32], 1
1055	Galkov	5058	ret
92	diamond	5059	.found_free:
1055	Galkov	5060	mov [eax+8], edi
1494	Lrz	5061	mov [eax+4], edx
		5062	movzx ecx, cl
		5063	lea ecx, [hotkey_scancodes+ecx*4]
		5064	mov edx, [ecx]
		5065	mov [eax], edx
		5066	mov [ecx], eax
		5067	mov [eax+12], ecx
3500	Serge	5068	test edx, edx
		5069	jz @f
1494	Lrz	5070	mov [edx+12], eax
92	diamond	5071	@@:
1494	Lrz	5072	and dword [esp+32], 0
1055	Galkov	5073	ret
2987	Serge	5074	;-----------------------------------------------------------------------------
		5075	align 4
1494	Lrz	5076	.5:
		5077	movzx ebx, cl
1055	Galkov	5078	lea ebx, [hotkey_scancodes+ebx*4]
		5079	mov eax, [ebx]
92	diamond	5080	.scan:
1055	Galkov	5081	test eax, eax
		5082	jz .notfound
		5083	cmp [eax+8], edi
		5084	jnz .next
1494	Lrz	5085	cmp [eax+4], edx
1055	Galkov	5086	jz .found
92	diamond	5087	.next:
1055	Galkov	5088	mov eax, [eax]
		5089	jmp .scan
92	diamond	5090	.notfound:
1494	Lrz	5091	mov dword [esp+32], 1
1055	Galkov	5092	ret
92	diamond	5093	.found:
1055	Galkov	5094	mov ecx, [eax]
		5095	jecxz @f
		5096	mov edx, [eax+12]
		5097	mov [ecx+12], edx
92	diamond	5098	@@:
1055	Galkov	5099	mov ecx, [eax+12]
		5100	mov edx, [eax]
		5101	mov [ecx], edx
		5102	xor edx, edx
		5103	mov [eax+4], edx
		5104	mov [eax+8], edx
		5105	mov [eax+12], edx
		5106	mov [eax], edx
1494	Lrz	5107	mov [esp+32], edx
1055	Galkov	5108	ret
2987	Serge	5109	;-----------------------------------------------------------------------------
		5110	align 4
		5111	.6:
		5112	pushfd
		5113	cli
		5114	mov eax, [PID_lock_input]
		5115	test eax, eax
		5116	jnz @f
		5117	; get current PID
		5118	mov eax, [CURRENT_TASK]
		5119	shl eax, 5
		5120	mov eax, [eax+CURRENT_TASK+TASKDATA.pid]
		5121	; set current PID for lock input
		5122	mov [PID_lock_input], eax
		5123	@@:
		5124	popfd
		5125	ret
		5126	;-----------------------------------------------------------------------------
		5127	align 4
		5128	.7:
		5129	mov eax, [PID_lock_input]
		5130	test eax, eax
		5131	jz @f
		5132	; get current PID
		5133	mov ebx, [CURRENT_TASK]
		5134	shl ebx, 5
		5135	mov ebx, [ebx+CURRENT_TASK+TASKDATA.pid]
		5136	; compare current lock input with current PID
		5137	cmp ebx, eax
		5138	jne @f
92	diamond	5139
2987	Serge	5140	xor eax, eax
		5141	mov [PID_lock_input], eax
		5142	@@:
		5143	ret
		5144	;-----------------------------------------------------------------------------
		5145	uglobal
		5146	PID_lock_input dd 0x0
		5147	endg
1497	Lrz	5148	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		5149	;; 61 sys function. ;;
		5150	;; in eax=61,ebx in [1..3] ;;
		5151	;; out eax ;;
		5152	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		5153	iglobal
1	ha	5154	align 4
1497	Lrz	5155	f61call:
		5156	dd sys_gs.1 ; resolution
		5157	dd sys_gs.2 ; bits per pixel
		5158	dd sys_gs.3 ; bytes per scanline
		5159	endg
1	ha	5160
1497	Lrz	5161
		5162	align 4
		5163
1055	Galkov	5164	sys_gs: ; direct screen access
2434	Serge	5165	dec ebx
		5166	cmp ebx, 2
		5167	ja .not_support
		5168	jmp dword [f61call+ebx*4]
1497	Lrz	5169	.not_support:
2434	Serge	5170	or [esp+32], dword -1
1497	Lrz	5171	ret
1	ha	5172
1497	Lrz	5173
		5174	.1: ; resolution
5565	serge	5175	mov eax, [_display.width]
2434	Serge	5176	shl eax, 16
5565	serge	5177	mov ax, word [_display.height]
2434	Serge	5178	mov [esp+32], eax
		5179	ret
		5180	.2: ; bits per pixel
5201	serge	5181	mov eax, [_display.bits_per_pixel]
2434	Serge	5182	mov [esp+32], eax
		5183	ret
1497	Lrz	5184	.3: ; bytes per scanline
5565	serge	5185	mov eax, [_display.lfb_pitch]
2434	Serge	5186	mov [esp+32], eax
		5187	ret
1	ha	5188
		5189	align 4 ; system functions
		5190
1055	Galkov	5191	syscall_setpixel: ; SetPixel
1	ha	5192
1055	Galkov	5193	mov eax, ebx
		5194	mov ebx, ecx
		5195	mov ecx, edx
		5196	mov edx, [TASK_BASE]
		5197	add eax, [edx-twdw+WDATA.box.left]
		5198	add ebx, [edx-twdw+WDATA.box.top]
		5199	mov edi, [current_slot]
		5200	add eax, [edi+APPDATA.wnd_clientbox.left]
		5201	add ebx, [edi+APPDATA.wnd_clientbox.top]
		5202	xor edi, edi ; no force
2434	Serge	5203	and ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
2465	Serge	5204	; jmp [putpixel]
		5205	jmp __sys_putpixel
1	ha	5206
		5207	align 4
		5208
1055	Galkov	5209	syscall_writetext: ; WriteText
1	ha	5210
2434	Serge	5211	mov eax, [TASK_BASE]
		5212	mov ebp, [eax-twdw+WDATA.box.left]
		5213	push esi
		5214	mov esi, [current_slot]
		5215	add ebp, [esi+APPDATA.wnd_clientbox.left]
		5216	shl ebp, 16
		5217	add ebp, [eax-twdw+WDATA.box.top]
		5218	add bp, word[esi+APPDATA.wnd_clientbox.top]
		5219	pop esi
3500	Serge	5220	test ecx, 0x08000000 ; redirect the output to the user area
		5221	jnz @f
2434	Serge	5222	add ebx, ebp
3500	Serge	5223	align 4
		5224	@@:
2434	Serge	5225	mov eax, edi
2987	Serge	5226	test ecx, 0x08000000 ; redirect the output to the user area
		5227	jnz dtext
2434	Serge	5228	xor edi, edi
		5229	jmp dtext
1	ha	5230
		5231	align 4
		5232
1055	Galkov	5233	syscall_drawrect: ; DrawRect
1	ha	5234
1055	Galkov	5235	mov edi, edx ; color + gradient
		5236	and edi, 0x80FFFFFF
		5237	test bx, bx ; x.size
		5238	je .drectr
		5239	test cx, cx ; y.size
		5240	je .drectr
1	ha	5241
1055	Galkov	5242	mov eax, ebx ; bad idea
		5243	mov ebx, ecx
1	ha	5244
1055	Galkov	5245	movzx ecx, ax ; ecx - x.size
		5246	shr eax, 16 ; eax - x.coord
		5247	movzx edx, bx ; edx - y.size
		5248	shr ebx, 16 ; ebx - y.coord
		5249	mov esi, [current_slot]
1	ha	5250
1055	Galkov	5251	add eax, [esi + APPDATA.wnd_clientbox.left]
		5252	add ebx, [esi + APPDATA.wnd_clientbox.top]
		5253	add ecx, eax
		5254	add edx, ebx
2465	Serge	5255	; jmp [drawbar]
		5256	jmp vesa20_drawbar
671	Ghost	5257	.drectr:
1055	Galkov	5258	ret
1	ha	5259
		5260	align 4
1055	Galkov	5261	syscall_getscreensize: ; GetScreenSize
5565	serge	5262	mov ax, word [_display.width]
		5263	dec ax
1055	Galkov	5264	shl eax, 16
5565	serge	5265	mov ax, word [_display.height]
		5266	dec ax
1055	Galkov	5267	mov [esp + 32], eax
		5268	ret
5201	serge	5269	;-----------------------------------------------------------------------------
671	Ghost	5270	align 4
5201	serge	5271	syscall_cdaudio:
		5272	; ECX - position of CD/DVD-drive
		5273	; from 0=Primary Master to 3=Secondary Slave for first IDE contr.
		5274	; from 4=Primary Master to 7=Secondary Slave for second IDE contr.
		5275	; from 8=Primary Master to 11=Secondary Slave for third IDE contr.
		5276	cmp ecx, 11
		5277	ja .exit
671	Ghost	5278
5201	serge	5279	mov eax, ecx
		5280	shr eax, 2
		5281	lea eax, [eax*5]
		5282	mov al, [eax+DRIVE_DATA+1]
1	ha	5283
5201	serge	5284	push ecx ebx
		5285	mov ebx, ecx
		5286	and ebx, 11b
		5287	shl ebx, 1
		5288	mov cl, 6
		5289	sub cl, bl
		5290	shr al, cl
		5291	test al, 2 ; it's not an ATAPI device
		5292	pop ebx ecx
		5293
		5294	jz .exit
		5295
1290	Lrz	5296	cmp ebx, 4
5201	serge	5297	je .eject
		5298
1290	Lrz	5299	cmp ebx, 5
5201	serge	5300	je .load
		5301	;--------------------------------------
		5302	.exit:
		5303	ret
		5304	;--------------------------------------
588	diamond	5305	.load:
1055	Galkov	5306	call .reserve
		5307	call LoadMedium
2434	Serge	5308	jmp .free
5201	serge	5309	;--------------------------------------
588	diamond	5310	.eject:
1055	Galkov	5311	call .reserve
		5312	call clear_CD_cache
		5313	call allow_medium_removal
		5314	call EjectMedium
2434	Serge	5315	jmp .free
5201	serge	5316	;--------------------------------------
588	diamond	5317	.reserve:
1055	Galkov	5318	call reserve_cd
5201	serge	5319
		5320	mov ebx, ecx
		5321	inc ebx
		5322	mov [cdpos], ebx
		5323
1290	Lrz	5324	mov eax, ecx
1055	Galkov	5325	shr eax, 1
		5326	and eax, 1
		5327	inc eax
		5328	mov [ChannelNumber], ax
1290	Lrz	5329	mov eax, ecx
1055	Galkov	5330	and eax, 1
		5331	mov [DiskNumber], al
		5332	call reserve_cd_channel
		5333	ret
5201	serge	5334	;--------------------------------------
588	diamond	5335	.free:
1055	Galkov	5336	call free_cd_channel
		5337	and [cd_status], 0
		5338	ret
2987	Serge	5339	;-----------------------------------------------------------------------------
1	ha	5340	align 4
2987	Serge	5341	syscall_getpixel_WinMap: ; GetPixel WinMap
5565	serge	5342	cmp ebx, [_display.width]
		5343	jb @f
		5344	cmp ecx, [_display.height]
		5345	jb @f
2987	Serge	5346	xor eax, eax
		5347	jmp .store
		5348	;--------------------------------------
		5349	align 4
		5350	@@:
		5351	mov eax, [d_width_calc_area + ecx*4]
5565	serge	5352	add eax, [_display.win_map]
2987	Serge	5353	movzx eax, byte[eax+ebx] ; get value for current point
		5354	;--------------------------------------
		5355	align 4
		5356	.store:
		5357	mov [esp + 32], eax
		5358	ret
		5359	;-----------------------------------------------------------------------------
		5360	align 4
1055	Galkov	5361	syscall_getpixel: ; GetPixel
5565	serge	5362	mov ecx, [_display.width]
2434	Serge	5363	xor edx, edx
		5364	mov eax, ebx
		5365	div ecx
		5366	mov ebx, edx
		5367	xchg eax, ebx
		5368	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
		5369	call dword [GETPIXEL]; eax - x, ebx - y
		5370	mov [esp + 32], ecx
		5371	ret
2987	Serge	5372	;-----------------------------------------------------------------------------
921	mario79	5373	align 4
		5374	syscall_getarea:
		5375	;eax = 36
1055	Galkov	5376	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		5377	;ecx = [size x]*65536 + [size y]
		5378	;edx = [start x]*65536 + [start y]
2434	Serge	5379	pushad
		5380	mov edi, ebx
		5381	mov eax, edx
		5382	shr eax, 16
		5383	mov ebx, edx
		5384	and ebx, 0xffff
		5385	dec eax
		5386	dec ebx
921	mario79	5387	; eax - x, ebx - y
2434	Serge	5388	mov edx, ecx
1638	serge	5389
2434	Serge	5390	shr ecx, 16
		5391	and edx, 0xffff
		5392	mov esi, ecx
921	mario79	5393	; ecx - size x, edx - size y
1638	serge	5394
2434	Serge	5395	mov ebp, edx
		5396	dec ebp
		5397	lea ebp, [ebp*3]
1638	serge	5398
2434	Serge	5399	imul ebp, esi
1638	serge	5400
2434	Serge	5401	mov esi, ecx
		5402	dec esi
		5403	lea esi, [esi*3]
1638	serge	5404
2434	Serge	5405	add ebp, esi
		5406	add ebp, edi
927	mario79	5407
2434	Serge	5408	add ebx, edx
2987	Serge	5409	;--------------------------------------
		5410	align 4
921	mario79	5411	.start_y:
2434	Serge	5412	push ecx edx
2987	Serge	5413	;--------------------------------------
		5414	align 4
921	mario79	5415	.start_x:
2434	Serge	5416	push eax ebx ecx
		5417	add eax, ecx
927	mario79	5418
2434	Serge	5419	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
		5420	call dword [GETPIXEL]; eax - x, ebx - y
1638	serge	5421
2434	Serge	5422	mov [ebp], cx
		5423	shr ecx, 16
		5424	mov [ebp+2], cl
921	mario79	5425
2434	Serge	5426	pop ecx ebx eax
		5427	sub ebp, 3
		5428	dec ecx
		5429	jnz .start_x
		5430	pop edx ecx
		5431	dec ebx
		5432	dec edx
		5433	jnz .start_y
		5434	popad
		5435	ret
2987	Serge	5436	;-----------------------------------------------------------------------------
		5437	align 4
		5438	syscall_putarea_backgr:
		5439	;eax = 25
		5440	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		5441	;ecx = [size x]*65536 + [size y]
		5442	;edx = [start x]*65536 + [start y]
		5443	pushad
		5444	mov edi, ebx
		5445	mov eax, edx
		5446	shr eax, 16
		5447	mov ebx, edx
		5448	and ebx, 0xffff
		5449	dec eax
		5450	dec ebx
		5451	; eax - x, ebx - y
		5452	mov edx, ecx
		5453	shr ecx, 16
		5454	and edx, 0xffff
		5455	mov esi, ecx
		5456	; ecx - size x, edx - size y
		5457	mov ebp, edx
		5458	dec ebp
		5459	shl ebp, 2
921	mario79	5460
2987	Serge	5461	imul ebp, esi
		5462
		5463	mov esi, ecx
		5464	dec esi
		5465	shl esi, 2
		5466
		5467	add ebp, esi
		5468	add ebp, edi
		5469
		5470	add ebx, edx
		5471	;--------------------------------------
1	ha	5472	align 4
2987	Serge	5473	.start_y:
		5474	push ecx edx
		5475	;--------------------------------------
		5476	align 4
		5477	.start_x:
		5478	push eax ecx
		5479	add eax, ecx
1	ha	5480
2987	Serge	5481	mov ecx, [ebp]
		5482	rol ecx, 8
		5483	test cl, cl ; transparensy = 0
		5484	jz .no_put
		5485
		5486	xor cl, cl
		5487	ror ecx, 8
		5488
		5489	pushad
		5490	mov edx, [d_width_calc_area + ebx*4]
5565	serge	5491	add edx, [_display.win_map]
2987	Serge	5492	movzx edx, byte [eax+edx]
		5493	cmp dl, byte 1
		5494	jne @f
		5495
		5496	call dword [PUTPIXEL]; eax - x, ebx - y
		5497	;--------------------------------------
		5498	align 4
		5499	@@:
		5500	popad
		5501	;--------------------------------------
		5502	align 4
		5503	.no_put:
		5504	pop ecx eax
		5505
		5506	sub ebp, 4
		5507	dec ecx
		5508	jnz .start_x
		5509
		5510	pop edx ecx
		5511	dec ebx
		5512	dec edx
		5513	jnz .start_y
		5514
		5515	popad
		5516	ret
		5517	;-----------------------------------------------------------------------------
		5518	align 4
1055	Galkov	5519	syscall_drawline: ; DrawLine
1	ha	5520
1055	Galkov	5521	mov edi, [TASK_BASE]
		5522	movzx eax, word[edi-twdw+WDATA.box.left]
		5523	mov ebp, eax
		5524	mov esi, [current_slot]
		5525	add ebp, [esi+APPDATA.wnd_clientbox.left]
		5526	add ax, word[esi+APPDATA.wnd_clientbox.left]
2434	Serge	5527	add ebp, ebx
1055	Galkov	5528	shl eax, 16
		5529	movzx ebx, word[edi-twdw+WDATA.box.top]
		5530	add eax, ebp
		5531	mov ebp, ebx
		5532	add ebp, [esi+APPDATA.wnd_clientbox.top]
		5533	add bx, word[esi+APPDATA.wnd_clientbox.top]
		5534	add ebp, ecx
		5535	shl ebx, 16
		5536	xor edi, edi
		5537	add ebx, ebp
		5538	mov ecx, edx
2465	Serge	5539	; jmp [draw_line]
		5540	jmp __sys_draw_line
1	ha	5541
		5542
		5543	align 4
1055	Galkov	5544	syscall_reserveportarea: ; ReservePortArea and FreePortArea
1	ha	5545
2434	Serge	5546	call r_f_port_area
		5547	mov [esp+32], eax
		5548	ret
1	ha	5549
		5550	align 4
1055	Galkov	5551	syscall_threads: ; CreateThreads
1369	Lrz	5552	;
4265	Serge	5553	; ecx=thread entry point
		5554	; edx=thread stack pointer
1369	Lrz	5555	;
		5556	; on return : eax = pid
1	ha	5557
4265	Serge	5558	xor ebx, ebx
2434	Serge	5559	call new_sys_threads
1369	Lrz	5560
2434	Serge	5561	mov [esp+32], eax
		5562	ret
1	ha	5563
		5564	align 4
		5565
375	Ghost	5566	paleholder:
1055	Galkov	5567	ret
2439	Serge	5568	;------------------------------------------------------------------------------
757	serge	5569	align 4
2439	Serge	5570	calculate_fast_getting_offset_for_WinMapAddress:
		5571	; calculate data area for fast getting offset to _WinMapAddress
2465	Serge	5572	xor eax, eax
2439	Serge	5573	mov ecx, [_display.height]
		5574	mov edi, d_width_calc_area
		5575	cld
		5576	@@:
		5577	stosd
		5578	add eax, [_display.width]
		5579	dec ecx
		5580	jnz @r
		5581	ret
		5582	;------------------------------------------------------------------------------
		5583	align 4
2987	Serge	5584	calculate_fast_getting_offset_for_LFB:
		5585	; calculate data area for fast getting offset to LFB
		5586	xor eax, eax
		5587	mov ecx, [_display.height]
		5588	mov edi, BPSLine_calc_area
		5589	cld
		5590	@@:
		5591	stosd
5565	serge	5592	add eax, [_display.lfb_pitch]
2987	Serge	5593	dec ecx
		5594	jnz @r
		5595	ret
		5596	;------------------------------------------------------------------------------
		5597	align 4
757	serge	5598	set_screen:
2987	Serge	5599	; in:
		5600	; eax - new Screen_Max_X
		5601	; ecx - new BytesPerScanLine
		5602	; edx - new Screen_Max_Y
709	diamond	5603
1055	Galkov	5604	pushfd
		5605	cli
757	serge	5606
5565	serge	5607	mov [_display.lfb_pitch], ecx
757	serge	5608
2434	Serge	5609	mov [screen_workarea.right], eax
		5610	mov [screen_workarea.bottom], edx
1300	serge	5611
2434	Serge	5612	push ebx
		5613	push esi
		5614	push edi
1300	serge	5615
		5616	pushad
		5617
2987	Serge	5618	cmp [do_not_touch_winmap], 1
		5619	je @f
		5620
5565	serge	5621	stdcall kernel_free, [_display.win_map]
1300	serge	5622
2434	Serge	5623	mov eax, [_display.width]
		5624	mul [_display.height]
5565	serge	5625	mov [_display.win_map_size], eax
1300	serge	5626
		5627	stdcall kernel_alloc, eax
5565	serge	5628	mov [_display.win_map], eax
2434	Serge	5629	test eax, eax
		5630	jz .epic_fail
2987	Serge	5631	; store for f.18.24
		5632	mov eax, [_display.width]
		5633	mov [display_width_standard], eax
1300	serge	5634
2987	Serge	5635	mov eax, [_display.height]
		5636	mov [display_height_standard], eax
		5637	@@:
2439	Serge	5638	call calculate_fast_getting_offset_for_WinMapAddress
2987	Serge	5639	; for Qemu or non standart video cards
		5640	; Unfortunately [BytesPerScanLine] does not always
		5641	; equal to [_display.width] * [ScreenBPP] / 8
		5642	call calculate_fast_getting_offset_for_LFB
1300	serge	5643	popad
		5644
1055	Galkov	5645	call repos_windows
2434	Serge	5646	xor eax, eax
		5647	xor ebx, ebx
5565	serge	5648	mov ecx, [_display.width]
		5649	mov edx, [_display.height]
		5650	dec ecx
		5651	dec edx
1055	Galkov	5652	call calculatescreen
2434	Serge	5653	pop edi
		5654	pop esi
		5655	pop ebx
757	serge	5656
1055	Galkov	5657	popfd
		5658	ret
757	serge	5659
1300	serge	5660	.epic_fail:
		5661	hlt ; Houston, we've had a problem
		5662
76	mario79	5663	; --------------- APM ---------------------
1330	Lrz	5664	uglobal
2434	Serge	5665	apm_entry dp 0
		5666	apm_vf dd 0
1330	Lrz	5667	endg
		5668
1	ha	5669	align 4
76	mario79	5670	sys_apm:
2434	Serge	5671	xor eax, eax
		5672	cmp word [apm_vf], ax ; Check APM BIOS enable
		5673	jne @f
		5674	inc eax
		5675	or dword [esp + 44], eax ; error
		5676	add eax, 7
		5677	mov dword [esp + 32], eax ; 32-bit protected-mode interface not supported
		5678	ret
164	serge	5679
465	serge	5680	@@:
2434	Serge	5681	; xchg eax, ecx
		5682	; xchg ebx, ecx
164	serge	5683
2434	Serge	5684	cmp dx, 3
		5685	ja @f
		5686	and [esp + 44], byte 0xfe ; emulate func 0..3 as func 0
		5687	mov eax, [apm_vf]
		5688	mov [esp + 32], eax
		5689	shr eax, 16
		5690	mov [esp + 28], eax
		5691	ret
78	diamond	5692
465	serge	5693	@@:
		5694
2434	Serge	5695	mov esi, [master_tab+(OS_BASE shr 20)]
		5696	xchg [master_tab], esi
		5697	push esi
		5698	mov edi, cr3
		5699	mov cr3, edi ;flush TLB
465	serge	5700
2434	Serge	5701	call pword [apm_entry] ;call APM BIOS
465	serge	5702
2434	Serge	5703	xchg eax, [esp]
		5704	mov [master_tab], eax
		5705	mov eax, cr3
		5706	mov cr3, eax
		5707	pop eax
465	serge	5708
2434	Serge	5709	mov [esp + 4 ], edi
		5710	mov [esp + 8], esi
		5711	mov [esp + 20], ebx
		5712	mov [esp + 24], edx
		5713	mov [esp + 28], ecx
		5714	mov [esp + 32], eax
		5715	setc al
		5716	and [esp + 44], byte 0xfe
		5717	or [esp + 44], al
		5718	ret
76	mario79	5719	; -----------------------------------------
1	ha	5720
76	mario79	5721	align 4
		5722
1055	Galkov	5723	undefined_syscall: ; Undefined system call
2434	Serge	5724	mov [esp + 32], dword -1
		5725	ret
1	ha	5726
465	serge	5727	align 4
1055	Galkov	5728	system_shutdown: ; shut down the system
1	ha	5729
3908	Serge	5730	cmp byte [BOOT_VARS+0x9030], 1
2434	Serge	5731	jne @F
		5732	ret
465	serge	5733	@@:
2434	Serge	5734	call stop_all_services
1	ha	5735
465	serge	5736	yes_shutdown_param:
5201	serge	5737	; Shutdown other CPUs, if initialized
		5738	cmp [ap_initialized], 0
		5739	jz .no_shutdown_cpus
		5740	mov edi, [LAPIC_BASE]
		5741	add edi, 300h
		5742	mov esi, smpt+4
		5743	mov ebx, [cpu_count]
		5744	dec ebx
		5745	.shutdown_cpus_loop:
		5746	lodsd
		5747	push esi
		5748	xor esi, esi
		5749	inc esi
		5750	shl eax, 24
		5751	mov [edi+10h], eax
		5752	; assert INIT IPI
		5753	mov dword [edi], 0C500h
		5754	call delay_ms
		5755	@@:
		5756	test dword [edi], 1000h
		5757	jnz @b
		5758	; deassert INIT IPI
		5759	mov dword [edi], 8500h
		5760	call delay_ms
		5761	@@:
		5762	test dword [edi], 1000h
		5763	jnz @b
		5764	; don't send STARTUP IPI: let other CPUs be in wait-for-startup state
		5765	pop esi
		5766	dec ebx
		5767	jnz .shutdown_cpus_loop
		5768	.no_shutdown_cpus:
		5769
2434	Serge	5770	cli
1	ha	5771
2010	serge	5772	if ~ defined extended_primary_loader
4287	Serge	5773	; load kernel.mnt to 0x7000:0
		5774	mov ebx, kernel_file_load
		5775	pushad
		5776	call file_system_lfn
		5777	popad
1	ha	5778
2434	Serge	5779	mov esi, restart_kernel_4000+OS_BASE+0x10000 ; move kernel re-starter to 0x4000:0
		5780	mov edi, OS_BASE+0x40000
		5781	mov ecx, 1000
		5782	rep movsb
2010	serge	5783	end if
1	ha	5784
3908	Serge	5785	; mov esi, BOOT_VAR ; restore 0x0 - 0xffff
		5786	; mov edi, OS_BASE
		5787	; mov ecx, 0x10000/4
		5788	; cld
		5789	; rep movsd
1	ha	5790
2434	Serge	5791	call IRQ_mask_all
1	ha	5792
1055	Galkov	5793	cmp byte [OS_BASE + 0x9030], 2
		5794	jnz no_acpi_power_off
1	ha	5795
709	diamond	5796	; scan for RSDP
		5797	; 1) The first 1 Kb of the Extended BIOS Data Area (EBDA).
1055	Galkov	5798	movzx eax, word [OS_BASE + 0x40E]
		5799	shl eax, 4
		5800	jz @f
		5801	mov ecx, 1024/16
		5802	call scan_rsdp
		5803	jnc .rsdp_found
709	diamond	5804	@@:
		5805	; 2) The BIOS read-only memory space between 0E0000h and 0FFFFFh.
1055	Galkov	5806	mov eax, 0xE0000
		5807	mov ecx, 0x2000
		5808	call scan_rsdp
		5809	jc no_acpi_power_off
709	diamond	5810	.rsdp_found:
1055	Galkov	5811	mov esi, [eax+16] ; esi contains physical address of the RSDT
		5812	mov ebp, [ipc_tmp]
5565	serge	5813	stdcall map_page, ebp, esi, PG_READ
1055	Galkov	5814	lea eax, [esi+1000h]
		5815	lea edx, [ebp+1000h]
5565	serge	5816	stdcall map_page, edx, eax, PG_READ
1055	Galkov	5817	and esi, 0xFFF
		5818	add esi, ebp
		5819	cmp dword [esi], 'RSDT'
		5820	jnz no_acpi_power_off
		5821	mov ecx, [esi+4]
		5822	sub ecx, 24h
		5823	jbe no_acpi_power_off
		5824	shr ecx, 2
		5825	add esi, 24h
709	diamond	5826	.scan_fadt:
1055	Galkov	5827	lodsd
		5828	mov ebx, eax
		5829	lea eax, [ebp+2000h]
5565	serge	5830	stdcall map_page, eax, ebx, PG_READ
1055	Galkov	5831	lea eax, [ebp+3000h]
		5832	add ebx, 0x1000
5565	serge	5833	stdcall map_page, eax, ebx, PG_READ
1055	Galkov	5834	and ebx, 0xFFF
		5835	lea ebx, [ebx+ebp+2000h]
		5836	cmp dword [ebx], 'FACP'
		5837	jz .fadt_found
		5838	loop .scan_fadt
		5839	jmp no_acpi_power_off
709	diamond	5840	.fadt_found:
		5841	; ebx is linear address of FADT
1085	diamond	5842	mov edi, [ebx+40] ; physical address of the DSDT
		5843	lea eax, [ebp+4000h]
5565	serge	5844	stdcall map_page, eax, edi, PG_READ
1085	diamond	5845	lea eax, [ebp+5000h]
		5846	lea esi, [edi+0x1000]
5565	serge	5847	stdcall map_page, eax, esi, PG_READ
1085	diamond	5848	and esi, 0xFFF
		5849	sub edi, esi
		5850	cmp dword [esi+ebp+4000h], 'DSDT'
		5851	jnz no_acpi_power_off
		5852	mov eax, [esi+ebp+4004h] ; DSDT length
		5853	sub eax, 36+4
		5854	jbe no_acpi_power_off
		5855	add esi, 36
		5856	.scan_dsdt:
		5857	cmp dword [esi+ebp+4000h], '_S5_'
		5858	jnz .scan_dsdt_cont
		5859	cmp byte [esi+ebp+4000h+4], 12h ; DefPackage opcode
		5860	jnz .scan_dsdt_cont
		5861	mov dl, [esi+ebp+4000h+6]
		5862	cmp dl, 4 ; _S5_ package must contain 4 bytes
		5863	; ...in theory; in practice, VirtualBox has 2 bytes
		5864	ja .scan_dsdt_cont
		5865	cmp dl, 1
		5866	jb .scan_dsdt_cont
		5867	lea esi, [esi+ebp+4000h+7]
		5868	xor ecx, ecx
		5869	cmp byte [esi], 0 ; 0 means zero byte, 0Ah xx means byte xx
		5870	jz @f
		5871	cmp byte [esi], 0xA
		5872	jnz no_acpi_power_off
		5873	inc esi
		5874	mov cl, [esi]
		5875	@@:
		5876	inc esi
		5877	cmp dl, 2
		5878	jb @f
		5879	cmp byte [esi], 0
		5880	jz @f
		5881	cmp byte [esi], 0xA
		5882	jnz no_acpi_power_off
		5883	inc esi
		5884	mov ch, [esi]
		5885	@@:
		5886	jmp do_acpi_power_off
		5887	.scan_dsdt_cont:
		5888	inc esi
		5889	cmp esi, 0x1000
		5890	jb @f
		5891	sub esi, 0x1000
		5892	add edi, 0x1000
		5893	push eax
		5894	lea eax, [ebp+4000h]
5565	serge	5895	stdcall map_page, eax, edi, PG_READ
		5896	push PG_READ
1085	diamond	5897	lea eax, [edi+1000h]
		5898	push eax
		5899	lea eax, [ebp+5000h]
		5900	push eax
		5901	stdcall map_page
		5902	pop eax
		5903	@@:
		5904	dec eax
		5905	jnz .scan_dsdt
		5906	jmp no_acpi_power_off
		5907	do_acpi_power_off:
1055	Galkov	5908	mov edx, [ebx+48]
		5909	test edx, edx
		5910	jz .nosmi
		5911	mov al, [ebx+52]
		5912	out dx, al
		5913	mov edx, [ebx+64]
709	diamond	5914	@@:
1055	Galkov	5915	in ax, dx
		5916	test al, 1
		5917	jz @b
709	diamond	5918	.nosmi:
1085	diamond	5919	and cx, 0x0707
		5920	shl cx, 2
		5921	or cx, 0x2020
1055	Galkov	5922	mov edx, [ebx+64]
		5923	in ax, dx
		5924	and ax, 203h
1085	diamond	5925	or ah, cl
1055	Galkov	5926	out dx, ax
		5927	mov edx, [ebx+68]
		5928	test edx, edx
		5929	jz @f
		5930	in ax, dx
		5931	and ax, 203h
1085	diamond	5932	or ah, ch
1055	Galkov	5933	out dx, ax
709	diamond	5934	@@:
1055	Galkov	5935	jmp $
709	diamond	5936
		5937
		5938	scan_rsdp:
1055	Galkov	5939	add eax, OS_BASE
709	diamond	5940	.s:
1055	Galkov	5941	cmp dword [eax], 'RSD '
		5942	jnz .n
		5943	cmp dword [eax+4], 'PTR '
		5944	jnz .n
		5945	xor edx, edx
		5946	xor esi, esi
709	diamond	5947	@@:
1055	Galkov	5948	add dl, [eax+esi]
		5949	inc esi
		5950	cmp esi, 20
		5951	jnz @b
		5952	test dl, dl
		5953	jz .ok
709	diamond	5954	.n:
1055	Galkov	5955	add eax, 10h
		5956	loop .s
		5957	stc
709	diamond	5958	.ok:
1055	Galkov	5959	ret
709	diamond	5960
5201	serge	5961	no_acpi_power_off:
		5962	call create_trampoline_pgmap
		5963	mov cr3, eax
		5964	jmp become_real+0x10000
		5965	iglobal
		5966	align 4
		5967	realmode_gdt:
		5968	; selector 0 - not used
		5969	dw 23
		5970	dd realmode_gdt-OS_BASE
		5971	dw 0
		5972	; selector 8 - code from 1000:0000 to 1000:FFFF
		5973	dw 0FFFFh
		5974	dw 0
		5975	db 1
		5976	db 10011011b
		5977	db 00000000b
		5978	db 0
		5979	; selector 10h - data from 1000:0000 to 1000:FFFF
		5980	dw 0FFFFh
		5981	dw 0
		5982	db 1
		5983	db 10010011b
		5984	db 00000000b
		5985	db 0
		5986	endg
		5987
3626	Serge	5988	if ~ lang eq sp
		5989	diff16 "end of .text segment",0,$
		5990	end if
		5991
465	serge	5992	include "data32.inc"
1	ha	5993
465	serge	5994	__REV__ = __REV
1	ha	5995
3500	Serge	5996	if ~ lang eq sp
41	mikedld	5997	diff16 "end of kernel code",0,$
3500	Serge	5998	end if

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/kernel.asm – Rev 5984