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

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

Subversion Repositories Kolibri OS

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