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

Subversion Repositories Kolibri OS

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