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

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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm @ 5853 – Rev 3596