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

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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm @ 9221 – Rev 4262