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: 3595 $
		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
2513	mario79	3853	align 4
2288	clevermous	3854	delay_hs: ; delay in 1/100 secs
		3855	; ebx = delay time
		3856
3595	Serge	3857	pushad
		3858	push ebx
		3859	xor esi, esi
		3860	mov ecx, MANUAL_DESTROY
		3861	call create_event
		3862	test eax, eax
		3863	jz .done
2288	clevermous	3864
3595	Serge	3865	mov ebx, edx
		3866	mov ecx, [esp]
		3867	push eax
		3868	call wait_event_timeout
		3869	pop eax
		3870	mov ebx, [esp]
		3871	call destroy_event
		3872	.done:
		3873	add esp, 4
		3874	popad
2288	clevermous	3875	ret
2513	mario79	3876	;-----------------------------------------------------------------------------
2288	clevermous	3877	align 16 ;very often call this subrutine
		3878	memmove: ; memory move in bytes
		3879	; eax = from
		3880	; ebx = to
		3881	; ecx = no of bytes
		3882	test ecx, ecx
		3883	jle .ret
		3884
		3885	push esi edi ecx
		3886
		3887	mov edi, ebx
		3888	mov esi, eax
		3889
		3890	test ecx, not 11b
		3891	jz @f
		3892
		3893	push ecx
		3894	shr ecx, 2
		3895	rep movsd
		3896	pop ecx
		3897	and ecx, 11b
		3898	jz .finish
2513	mario79	3899	;--------------------------------------
		3900	align 4
		3901	@@:
2288	clevermous	3902	rep movsb
2513	mario79	3903	;--------------------------------------
		3904	align 4
		3905	.finish:
2288	clevermous	3906	pop ecx edi esi
2513	mario79	3907	;--------------------------------------
		3908	align 4
		3909	.ret:
2288	clevermous	3910	ret
2513	mario79	3911	;-----------------------------------------------------------------------------
2288	clevermous	3912	; Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
		3913	;align 4
		3914	;
		3915	;read_floppy_file:
		3916	;
		3917	;; as input
		3918	;;
		3919	;; eax pointer to file
		3920	;; ebx file lenght
		3921	;; ecx start 512 byte block number
		3922	;; edx number of blocks to read
		3923	;; esi pointer to return/work area (atleast 20 000 bytes)
		3924	;;
		3925	;;
		3926	;; on return
		3927	;;
		3928	;; eax = 0 command succesful
		3929	;; 1 no fd base and/or partition defined
		3930	;; 2 yet unsupported FS
		3931	;; 3 unknown FS
		3932	;; 4 partition not defined at hd
		3933	;; 5 file not found
		3934	;; ebx = size of file
		3935	;
		3936	; mov edi,[TASK_BASE]
		3937	; add edi,0x10
		3938	; add esi,[edi]
		3939	; add eax,[edi]
		3940	;
		3941	; pushad
		3942	; mov edi,esi
		3943	; add edi,1024
		3944	; mov esi,0x100000+19*512
		3945	; sub ecx,1
		3946	; shl ecx,9
		3947	; add esi,ecx
		3948	; shl edx,9
		3949	; mov ecx,edx
		3950	; cld
		3951	; rep movsb
		3952	; popad
		3953	;
		3954	; mov [esp+36],eax
		3955	; mov [esp+24],ebx
		3956	; ret
		3957
		3958
		3959
		3960	align 4
		3961	set_io_access_rights:
		3962	push edi eax
		3963	mov edi, tss._io_map_0
		3964	; mov ecx,eax
		3965	; and ecx,7 ; offset in byte
		3966	; shr eax,3 ; number of byte
		3967	; add edi,eax
		3968	; mov ebx,1
		3969	; shl ebx,cl
		3970	test ebp, ebp
		3971	; cmp ebp,0 ; enable access - ebp = 0
		3972	jnz .siar1
		3973	; not ebx
		3974	; and [edi],byte bl
		3975	btr [edi], eax
		3976	pop eax edi
		3977	ret
		3978	.siar1:
		3979	bts [edi], eax
		3980	; or [edi],byte bl ; disable access - ebp = 1
		3981	pop eax edi
		3982	ret
		3983	;reserve/free group of ports
		3984	; * eax = 46 - number function
		3985	; * ebx = 0 - reserve, 1 - free
		3986	; * ecx = number start arrea of ports
		3987	; * edx = number end arrea of ports (include last number of port)
		3988	;Return value:
		3989	; * eax = 0 - succesful
		3990	; * eax = 1 - error
		3991	; * The system has reserve this ports:
		3992	; 0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
		3993	;destroys eax,ebx, ebp
		3994	r_f_port_area:
		3995
		3996	test ebx, ebx
		3997	jnz free_port_area
		3998	; je r_port_area
		3999	; jmp free_port_area
		4000
		4001	; r_port_area:
		4002
		4003	; pushad
		4004
		4005	cmp ecx, edx ; beginning > end ?
		4006	ja rpal1
		4007	cmp edx, 65536
		4008	jae rpal1
		4009	mov eax, [RESERVED_PORTS]
		4010	test eax, eax ; no reserved areas ?
		4011	je rpal2
		4012	cmp eax, 255 ; max reserved
		4013	jae rpal1
		4014	rpal3:
		4015	mov ebx, eax
		4016	shl ebx, 4
		4017	add ebx, RESERVED_PORTS
		4018	cmp ecx, [ebx+8]
		4019	ja rpal4
		4020	cmp edx, [ebx+4]
		4021	jae rpal1
		4022	; jb rpal4
		4023	; jmp rpal1
		4024	rpal4:
		4025	dec eax
		4026	jnz rpal3
		4027	jmp rpal2
		4028	rpal1:
		4029	; popad
		4030	; mov eax,1
		4031	xor eax, eax
		4032	inc eax
		4033	ret
		4034	rpal2:
		4035	; popad
		4036	; enable port access at port IO map
		4037	cli
		4038	pushad ; start enable io map
		4039
		4040	cmp edx, 65536;16384
		4041	jae no_unmask_io; jge
		4042	mov eax, ecx
		4043	; push ebp
		4044	xor ebp, ebp ; enable - eax = port
		4045	new_port_access:
		4046	; pushad
		4047	call set_io_access_rights
		4048	; popad
		4049	inc eax
		4050	cmp eax, edx
		4051	jbe new_port_access
		4052	; pop ebp
		4053	no_unmask_io:
		4054	popad ; end enable io map
		4055	sti
		4056
		4057	mov eax, [RESERVED_PORTS]
		4058	add eax, 1
		4059	mov [RESERVED_PORTS], eax
		4060	shl eax, 4
		4061	add eax, RESERVED_PORTS
		4062	mov ebx, [TASK_BASE]
		4063	mov ebx, [ebx+TASKDATA.pid]
		4064	mov [eax], ebx
		4065	mov [eax+4], ecx
		4066	mov [eax+8], edx
		4067
		4068	xor eax, eax
		4069	ret
		4070
		4071	free_port_area:
		4072
		4073	; pushad
		4074	mov eax, [RESERVED_PORTS]; no reserved areas ?
		4075	test eax, eax
		4076	jz frpal2
		4077	mov ebx, [TASK_BASE]
		4078	mov ebx, [ebx+TASKDATA.pid]
		4079	frpal3:
		4080	mov edi, eax
		4081	shl edi, 4
		4082	add edi, RESERVED_PORTS
		4083	cmp ebx, [edi]
		4084	jne frpal4
		4085	cmp ecx, [edi+4]
		4086	jne frpal4
		4087	cmp edx, [edi+8]
		4088	jne frpal4
		4089	jmp frpal1
		4090	frpal4:
		4091	dec eax
		4092	jnz frpal3
		4093	frpal2:
		4094	; popad
		4095	inc eax
		4096	ret
		4097	frpal1:
		4098	push ecx
		4099	mov ecx, 256
		4100	sub ecx, eax
		4101	shl ecx, 4
		4102	mov esi, edi
		4103	add esi, 16
		4104	cld
		4105	rep movsb
		4106
		4107	dec dword [RESERVED_PORTS]
		4108	;popad
		4109	;disable port access at port IO map
		4110
		4111	; pushad ; start disable io map
		4112	pop eax ;start port
		4113	cmp edx, 65536;16384
		4114	jge no_mask_io
		4115
		4116	; mov eax,ecx
		4117	xor ebp, ebp
		4118	inc ebp
		4119	new_port_access_disable:
		4120	; pushad
		4121	; mov ebp,1 ; disable - eax = port
		4122	call set_io_access_rights
		4123	; popad
		4124	inc eax
		4125	cmp eax, edx
		4126	jbe new_port_access_disable
		4127	no_mask_io:
		4128	; popad ; end disable io map
		4129	xor eax, eax
		4130	ret
2430	mario79	4131	;-----------------------------------------------------------------------------
2288	clevermous	4132	align 4
		4133	drawbackground:
2430	mario79	4134	dbrv20:
2288	clevermous	4135	cmp [BgrDrawMode], dword 1
		4136	jne bgrstr
		4137	call vesa20_drawbackground_tiled
2453	mario79	4138	; call [draw_pointer]
		4139	call __sys_draw_pointer
2288	clevermous	4140	ret
2430	mario79	4141	;--------------------------------------
		4142	align 4
		4143	bgrstr:
2288	clevermous	4144	call vesa20_drawbackground_stretch
2453	mario79	4145	; call [draw_pointer]
		4146	call __sys_draw_pointer
2288	clevermous	4147	ret
2430	mario79	4148	;-----------------------------------------------------------------------------
2288	clevermous	4149	align 4
		4150	syscall_putimage: ; PutImage
		4151	sys_putimage:
		4152	test ecx, 0x80008000
		4153	jnz .exit
		4154	test ecx, 0x0000FFFF
		4155	jz .exit
		4156	test ecx, 0xFFFF0000
		4157	jnz @f
2430	mario79	4158	;--------------------------------------
		4159	align 4
		4160	.exit:
2288	clevermous	4161	ret
2430	mario79	4162	;--------------------------------------
		4163	align 4
		4164	@@:
2288	clevermous	4165	mov edi, [current_slot]
		4166	add dx, word[edi+APPDATA.wnd_clientbox.top]
		4167	rol edx, 16
		4168	add dx, word[edi+APPDATA.wnd_clientbox.left]
		4169	rol edx, 16
2430	mario79	4170	;--------------------------------------
		4171	align 4
		4172	.forced:
2288	clevermous	4173	push ebp esi 0
		4174	mov ebp, putimage_get24bpp
		4175	mov esi, putimage_init24bpp
2430	mario79	4176	;--------------------------------------
		4177	align 4
2288	clevermous	4178	sys_putimage_bpp:
2430	mario79	4179	call vesa20_putimage
2288	clevermous	4180	pop ebp esi ebp
2430	mario79	4181	ret
		4182	; jmp [draw_pointer]
		4183	;-----------------------------------------------------------------------------
2288	clevermous	4184	align 4
		4185	sys_putimage_palette:
		4186	; ebx = pointer to image
		4187	; ecx = [xsize]*65536 + [ysize]
		4188	; edx = [xstart]*65536 + [ystart]
		4189	; esi = number of bits per pixel, must be 8, 24 or 32
		4190	; edi = pointer to palette
		4191	; ebp = row delta
		4192	mov eax, [CURRENT_TASK]
		4193	shl eax, 8
		4194	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
		4195	rol edx, 16
		4196	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
		4197	rol edx, 16
2430	mario79	4198	;--------------------------------------
		4199	align 4
2288	clevermous	4200	.forced:
		4201	cmp esi, 1
		4202	jnz @f
		4203	push edi
		4204	mov eax, [edi+4]
		4205	sub eax, [edi]
		4206	push eax
		4207	push dword [edi]
		4208	push 0ffffff80h
		4209	mov edi, esp
		4210	call put_mono_image
		4211	add esp, 12
		4212	pop edi
		4213	ret
2430	mario79	4214	;--------------------------------------
		4215	align 4
2288	clevermous	4216	@@:
		4217	cmp esi, 2
		4218	jnz @f
		4219	push edi
		4220	push 0ffffff80h
		4221	mov edi, esp
		4222	call put_2bit_image
		4223	pop eax
		4224	pop edi
		4225	ret
2430	mario79	4226	;--------------------------------------
		4227	align 4
2288	clevermous	4228	@@:
		4229	cmp esi, 4
		4230	jnz @f
		4231	push edi
		4232	push 0ffffff80h
		4233	mov edi, esp
		4234	call put_4bit_image
		4235	pop eax
		4236	pop edi
		4237	ret
2430	mario79	4238	;--------------------------------------
		4239	align 4
2288	clevermous	4240	@@:
		4241	push ebp esi ebp
		4242	cmp esi, 8
		4243	jnz @f
		4244	mov ebp, putimage_get8bpp
		4245	mov esi, putimage_init8bpp
		4246	jmp sys_putimage_bpp
2430	mario79	4247	;--------------------------------------
		4248	align 4
2288	clevermous	4249	@@:
2727	dunkaist	4250	cmp esi, 9
		4251	jnz @f
		4252	mov ebp, putimage_get9bpp
		4253	mov esi, putimage_init9bpp
		4254	jmp sys_putimage_bpp
		4255	;--------------------------------------
		4256	align 4
		4257	@@:
2288	clevermous	4258	cmp esi, 15
		4259	jnz @f
		4260	mov ebp, putimage_get15bpp
		4261	mov esi, putimage_init15bpp
		4262	jmp sys_putimage_bpp
2430	mario79	4263	;--------------------------------------
		4264	align 4
2288	clevermous	4265	@@:
		4266	cmp esi, 16
		4267	jnz @f
		4268	mov ebp, putimage_get16bpp
		4269	mov esi, putimage_init16bpp
		4270	jmp sys_putimage_bpp
2430	mario79	4271	;--------------------------------------
		4272	align 4
2288	clevermous	4273	@@:
		4274	cmp esi, 24
		4275	jnz @f
		4276	mov ebp, putimage_get24bpp
		4277	mov esi, putimage_init24bpp
		4278	jmp sys_putimage_bpp
2430	mario79	4279	;--------------------------------------
		4280	align 4
2288	clevermous	4281	@@:
		4282	cmp esi, 32
		4283	jnz @f
		4284	mov ebp, putimage_get32bpp
		4285	mov esi, putimage_init32bpp
		4286	jmp sys_putimage_bpp
2430	mario79	4287	;--------------------------------------
		4288	align 4
2288	clevermous	4289	@@:
		4290	pop ebp esi ebp
		4291	ret
2430	mario79	4292	;-----------------------------------------------------------------------------
		4293	align 4
2288	clevermous	4294	put_mono_image:
		4295	push ebp esi ebp
		4296	mov ebp, putimage_get1bpp
		4297	mov esi, putimage_init1bpp
		4298	jmp sys_putimage_bpp
2430	mario79	4299	;-----------------------------------------------------------------------------
		4300	align 4
2288	clevermous	4301	put_2bit_image:
		4302	push ebp esi ebp
		4303	mov ebp, putimage_get2bpp
		4304	mov esi, putimage_init2bpp
		4305	jmp sys_putimage_bpp
2430	mario79	4306	;-----------------------------------------------------------------------------
		4307	align 4
2288	clevermous	4308	put_4bit_image:
		4309	push ebp esi ebp
		4310	mov ebp, putimage_get4bpp
		4311	mov esi, putimage_init4bpp
		4312	jmp sys_putimage_bpp
2430	mario79	4313	;-----------------------------------------------------------------------------
		4314	align 4
2288	clevermous	4315	putimage_init24bpp:
		4316	lea eax, [eax*3]
		4317	putimage_init8bpp:
2727	dunkaist	4318	putimage_init9bpp:
2288	clevermous	4319	ret
2430	mario79	4320	;-----------------------------------------------------------------------------
2288	clevermous	4321	align 16
		4322	putimage_get24bpp:
		4323	movzx eax, byte [esi+2]
		4324	shl eax, 16
		4325	mov ax, [esi]
		4326	add esi, 3
		4327	ret 4
2430	mario79	4328	;-----------------------------------------------------------------------------
2288	clevermous	4329	align 16
		4330	putimage_get8bpp:
		4331	movzx eax, byte [esi]
		4332	push edx
		4333	mov edx, [esp+8]
		4334	mov eax, [edx+eax*4]
		4335	pop edx
		4336	inc esi
		4337	ret 4
2430	mario79	4338	;-----------------------------------------------------------------------------
2727	dunkaist	4339	align 16
		4340	putimage_get9bpp:
		4341	lodsb
		4342	mov ah, al
		4343	shl eax, 8
		4344	mov al, ah
		4345	ret 4
		4346	;-----------------------------------------------------------------------------
2430	mario79	4347	align 4
2288	clevermous	4348	putimage_init1bpp:
		4349	add eax, ecx
		4350	push ecx
		4351	add eax, 7
		4352	add ecx, 7
		4353	shr eax, 3
		4354	shr ecx, 3
		4355	sub eax, ecx
		4356	pop ecx
		4357	ret
2430	mario79	4358	;-----------------------------------------------------------------------------
2288	clevermous	4359	align 16
		4360	putimage_get1bpp:
		4361	push edx
		4362	mov edx, [esp+8]
		4363	mov al, [edx]
		4364	add al, al
		4365	jnz @f
		4366	lodsb
		4367	adc al, al
		4368	@@:
		4369	mov [edx], al
		4370	sbb eax, eax
		4371	and eax, [edx+8]
		4372	add eax, [edx+4]
		4373	pop edx
		4374	ret 4
2430	mario79	4375	;-----------------------------------------------------------------------------
		4376	align 4
2288	clevermous	4377	putimage_init2bpp:
		4378	add eax, ecx
		4379	push ecx
		4380	add ecx, 3
		4381	add eax, 3
		4382	shr ecx, 2
		4383	shr eax, 2
		4384	sub eax, ecx
		4385	pop ecx
		4386	ret
2430	mario79	4387	;-----------------------------------------------------------------------------
2288	clevermous	4388	align 16
		4389	putimage_get2bpp:
		4390	push edx
		4391	mov edx, [esp+8]
		4392	mov al, [edx]
		4393	mov ah, al
		4394	shr al, 6
		4395	shl ah, 2
		4396	jnz .nonewbyte
		4397	lodsb
		4398	mov ah, al
		4399	shr al, 6
		4400	shl ah, 2
		4401	add ah, 1
		4402	.nonewbyte:
		4403	mov [edx], ah
		4404	mov edx, [edx+4]
		4405	movzx eax, al
		4406	mov eax, [edx+eax*4]
		4407	pop edx
		4408	ret 4
2430	mario79	4409	;-----------------------------------------------------------------------------
		4410	align 4
2288	clevermous	4411	putimage_init4bpp:
		4412	add eax, ecx
		4413	push ecx
		4414	add ecx, 1
		4415	add eax, 1
		4416	shr ecx, 1
		4417	shr eax, 1
		4418	sub eax, ecx
		4419	pop ecx
		4420	ret
2430	mario79	4421	;-----------------------------------------------------------------------------
2288	clevermous	4422	align 16
		4423	putimage_get4bpp:
		4424	push edx
		4425	mov edx, [esp+8]
		4426	add byte [edx], 80h
		4427	jc @f
		4428	movzx eax, byte [edx+1]
		4429	mov edx, [edx+4]
		4430	and eax, 0x0F
		4431	mov eax, [edx+eax*4]
		4432	pop edx
		4433	ret 4
		4434	@@:
		4435	movzx eax, byte [esi]
		4436	add esi, 1
		4437	mov [edx+1], al
		4438	shr eax, 4
		4439	mov edx, [edx+4]
		4440	mov eax, [edx+eax*4]
		4441	pop edx
		4442	ret 4
2430	mario79	4443	;-----------------------------------------------------------------------------
		4444	align 4
2288	clevermous	4445	putimage_init32bpp:
		4446	shl eax, 2
		4447	ret
2430	mario79	4448	;-----------------------------------------------------------------------------
2288	clevermous	4449	align 16
		4450	putimage_get32bpp:
		4451	lodsd
		4452	ret 4
2430	mario79	4453	;-----------------------------------------------------------------------------
		4454	align 4
2288	clevermous	4455	putimage_init15bpp:
		4456	putimage_init16bpp:
		4457	add eax, eax
		4458	ret
2430	mario79	4459	;-----------------------------------------------------------------------------
2288	clevermous	4460	align 16
		4461	putimage_get15bpp:
		4462	; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
		4463	push ecx edx
		4464	movzx eax, word [esi]
		4465	add esi, 2
		4466	mov ecx, eax
		4467	mov edx, eax
		4468	and eax, 0x1F
		4469	and ecx, 0x1F shl 5
		4470	and edx, 0x1F shl 10
		4471	shl eax, 3
		4472	shl ecx, 6
		4473	shl edx, 9
		4474	or eax, ecx
		4475	or eax, edx
		4476	pop edx ecx
		4477	ret 4
2430	mario79	4478	;-----------------------------------------------------------------------------
2288	clevermous	4479	align 16
		4480	putimage_get16bpp:
		4481	; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
		4482	push ecx edx
		4483	movzx eax, word [esi]
		4484	add esi, 2
		4485	mov ecx, eax
		4486	mov edx, eax
		4487	and eax, 0x1F
		4488	and ecx, 0x3F shl 5
		4489	and edx, 0x1F shl 11
		4490	shl eax, 3
		4491	shl ecx, 5
		4492	shl edx, 8
		4493	or eax, ecx
		4494	or eax, edx
		4495	pop edx ecx
		4496	ret 4
2430	mario79	4497	;-----------------------------------------------------------------------------
		4498	;align 4
2288	clevermous	4499	; eax x beginning
		4500	; ebx y beginning
		4501	; ecx x end
		4502	; edx y end
		4503	; edi color
2430	mario79	4504	;__sys_drawbar:
		4505	; mov esi, [current_slot]
		4506	; add eax, [esi+APPDATA.wnd_clientbox.left]
		4507	; add ecx, [esi+APPDATA.wnd_clientbox.left]
		4508	; add ebx, [esi+APPDATA.wnd_clientbox.top]
		4509	; add edx, [esi+APPDATA.wnd_clientbox.top]
		4510	;--------------------------------------
		4511	;align 4
		4512	;.forced:
		4513	; call vesa20_drawbar
2407	mario79	4514	; call [draw_pointer]
		4515	; ret
2430	mario79	4516	;-----------------------------------------------------------------------------
		4517	align 4
2288	clevermous	4518	kb_read:
		4519
		4520	push ecx edx
		4521
		4522	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4523	kr_loop:
		4524	in al, 0x64
		4525	test al, 1
		4526	jnz kr_ready
		4527	loop kr_loop
		4528	mov ah, 1
		4529	jmp kr_exit
		4530	kr_ready:
		4531	push ecx
		4532	mov ecx, 32
		4533	kr_delay:
		4534	loop kr_delay
		4535	pop ecx
		4536	in al, 0x60
		4537	xor ah, ah
		4538	kr_exit:
		4539
		4540	pop edx ecx
		4541
		4542	ret
2430	mario79	4543	;-----------------------------------------------------------------------------
		4544	align 4
2288	clevermous	4545	kb_write:
		4546
		4547	push ecx edx
		4548
		4549	mov dl, al
		4550	; mov ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
		4551	; kw_loop1:
		4552	; in al,0x64
		4553	; test al,0x20
		4554	; jz kw_ok1
		4555	; loop kw_loop1
		4556	; mov ah,1
		4557	; jmp kw_exit
		4558	; kw_ok1:
		4559	in al, 0x60
		4560	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4561	kw_loop:
		4562	in al, 0x64
		4563	test al, 2
		4564	jz kw_ok
		4565	loop kw_loop
		4566	mov ah, 1
		4567	jmp kw_exit
		4568	kw_ok:
		4569	mov al, dl
		4570	out 0x60, al
		4571	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4572	kw_loop3:
		4573	in al, 0x64
		4574	test al, 2
		4575	jz kw_ok3
		4576	loop kw_loop3
		4577	mov ah, 1
		4578	jmp kw_exit
		4579	kw_ok3:
		4580	mov ah, 8
		4581	kw_loop4:
		4582	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4583	kw_loop5:
		4584	in al, 0x64
		4585	test al, 1
		4586	jnz kw_ok4
		4587	loop kw_loop5
		4588	dec ah
		4589	jnz kw_loop4
		4590	kw_ok4:
		4591	xor ah, ah
		4592	kw_exit:
		4593
		4594	pop edx ecx
		4595
		4596	ret
2430	mario79	4597	;-----------------------------------------------------------------------------
		4598	align 4
2288	clevermous	4599	kb_cmd:
		4600
		4601	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4602	c_wait:
		4603	in al, 0x64
		4604	test al, 2
		4605	jz c_send
		4606	loop c_wait
		4607	jmp c_error
		4608	c_send:
		4609	mov al, bl
		4610	out 0x64, al
		4611	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4612	c_accept:
		4613	in al, 0x64
		4614	test al, 2
		4615	jz c_ok
		4616	loop c_accept
		4617	c_error:
		4618	mov ah, 1
		4619	jmp c_exit
		4620	c_ok:
		4621	xor ah, ah
		4622	c_exit:
		4623	ret
		4624
		4625
		4626	setmouse: ; set mousepicture -pointer
		4627	; ps2 mouse enable
		4628
2430	mario79	4629	; mov [MOUSE_PICTURE], dword mousepointer
2288	clevermous	4630
		4631	cli
		4632
		4633	ret
		4634
		4635	if used _rdtsc
		4636	_rdtsc:
		4637	bt [cpu_caps], CAPS_TSC
		4638	jnc ret_rdtsc
		4639	rdtsc
		4640	ret
		4641	ret_rdtsc:
		4642	mov edx, 0xffffffff
		4643	mov eax, 0xffffffff
		4644	ret
		4645	end if
		4646
		4647	sys_msg_board_str:
		4648
		4649	pushad
		4650	@@:
		4651	cmp [esi], byte 0
		4652	je @f
		4653	mov eax, 1
		4654	movzx ebx, byte [esi]
		4655	call sys_msg_board
		4656	inc esi
		4657	jmp @b
		4658	@@:
		4659	popad
		4660	ret
		4661
		4662	sys_msg_board_byte:
		4663	; in: al = byte to display
		4664	; out: nothing
		4665	; destroys: nothing
		4666	pushad
		4667	mov ecx, 2
		4668	shl eax, 24
		4669	jmp @f
		4670
		4671	sys_msg_board_word:
		4672	; in: ax = word to display
		4673	; out: nothing
		4674	; destroys: nothing
		4675	pushad
		4676	mov ecx, 4
		4677	shl eax, 16
		4678	jmp @f
		4679
		4680	sys_msg_board_dword:
		4681	; in: eax = dword to display
		4682	; out: nothing
		4683	; destroys: nothing
		4684	pushad
		4685	mov ecx, 8
		4686	@@:
		4687	push ecx
		4688	rol eax, 4
		4689	push eax
		4690	and al, 0xF
		4691	cmp al, 10
		4692	sbb al, 69h
		4693	das
		4694	mov bl, al
		4695	xor eax, eax
		4696	inc eax
		4697	call sys_msg_board
		4698	pop eax
		4699	pop ecx
		4700	loop @b
		4701	popad
		4702	ret
		4703
3392	clevermous	4704	msg_board_data_size = 65536 ; Must be power of two
		4705
2288	clevermous	4706	uglobal
3392	clevermous	4707	msg_board_data rb msg_board_data_size
2288	clevermous	4708	msg_board_count dd 0x0
		4709	endg
		4710
		4711	sys_msg_board:
		4712
		4713	; eax=1 : write : bl byte to write
		4714	; eax=2 : read : ebx=0 -> no data, ebx=1 -> data in al
		4715
		4716	mov ecx, [msg_board_count]
		4717	cmp eax, 1
		4718	jne .smbl1
		4719
		4720	if defined debug_com_base
		4721
		4722	push dx ax
		4723
		4724	@@: ; Wait for empty transmit register (yes, this slows down system..)
		4725	mov dx, debug_com_base+5
		4726	in al, dx
		4727	test al, 1 shl 5
		4728	jz @r
		4729
		4730	mov dx, debug_com_base ; Output the byte
		4731	mov al, bl
		4732	out dx, al
		4733
		4734	pop ax dx
		4735
		4736	end if
		4737
		4738	mov [msg_board_data+ecx], bl
3507	clevermous	4739	if debug_direct_print
		4740	pusha
		4741	iglobal
		4742	msg_board_pos dd 234*65536+10
		4743	endg
		4744	lea edx, [msg_board_data+ecx]
		4745	mov ecx, 0x40FFFFFF
		4746	mov ebx, [msg_board_pos]
		4747	mov edi, 1
		4748	mov esi, 1
		4749	call dtext
		4750	popa
		4751	add word [msg_board_pos+2], 6
		4752	cmp bl, 10
		4753	jnz @f
		4754	mov word [msg_board_pos+2], 234
		4755	add word [msg_board_pos], 10
		4756	mov ax, [Screen_Max_Y]
		4757	cmp word [msg_board_pos], ax
		4758	jbe @f
		4759	mov word [msg_board_pos], 10
		4760	@@:
		4761	end if
3534	clevermous	4762	if 0
		4763	pusha
		4764	mov al, bl
		4765	mov edx, 402h
		4766	out dx, al
		4767	popa
		4768	end if
2288	clevermous	4769	inc ecx
3392	clevermous	4770	and ecx, msg_board_data_size - 1
2288	clevermous	4771	mov [msg_board_count], ecx
		4772	ret
		4773	.smbl1:
		4774	cmp eax, 2
		4775	jne .smbl2
		4776	test ecx, ecx
		4777	jz .smbl21
		4778	mov eax, msg_board_data+1
		4779	mov ebx, msg_board_data
		4780	movzx edx, byte [ebx]
		4781	call memmove
		4782	dec [msg_board_count]
		4783	mov [esp + 36], edx ;eax
		4784	mov [esp + 24], dword 1
		4785	ret
		4786	.smbl21:
		4787	mov [esp+36], ecx
		4788	mov [esp+24], ecx
		4789	.smbl2:
		4790	ret
		4791
		4792	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4793	;; 66 sys function. ;;
		4794	;; in eax=66,ebx in [0..5],ecx,edx ;;
		4795	;; out eax ;;
		4796	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4797	iglobal
		4798	align 4
		4799	f66call:
		4800	dd sys_process_def.1 ; 1 = set keyboard mode
		4801	dd sys_process_def.2 ; 2 = get keyboard mode
		4802	dd sys_process_def.3 ; 3 = get keyboard ctrl, alt, shift
2709	mario79	4803	dd sys_process_def.4 ; 4 = set system-wide hotkey
		4804	dd sys_process_def.5 ; 5 = delete installed hotkey
		4805	dd sys_process_def.6 ; 6 = disable input, work only hotkeys
		4806	dd sys_process_def.7 ; 7 = enable input, opposition to f.66.6
2288	clevermous	4807	endg
2709	mario79	4808	;-----------------------------------------------------------------------------
		4809	align 4
2288	clevermous	4810	sys_process_def:
		4811	dec ebx
2709	mario79	4812	cmp ebx, 7
		4813	jae .not_support ;if >=8 then or eax,-1
2288	clevermous	4814
		4815	mov edi, [CURRENT_TASK]
		4816	jmp dword [f66call+ebx*4]
		4817
		4818	.not_support:
		4819	or eax, -1
		4820	ret
2709	mario79	4821	;-----------------------------------------------------------------------------
		4822	align 4
2288	clevermous	4823	.1:
		4824	shl edi, 8
		4825	mov [edi+SLOT_BASE + APPDATA.keyboard_mode], cl
		4826
		4827	ret
2709	mario79	4828	;-----------------------------------------------------------------------------
		4829	align 4
2288	clevermous	4830	.2: ; 2 = get keyboard mode
		4831	shl edi, 8
		4832	movzx eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
		4833	mov [esp+32], eax
		4834	ret
2709	mario79	4835	;-----------------------------------------------------------------------------
		4836	align 4
2288	clevermous	4837	.3: ;3 = get keyboard ctrl, alt, shift
		4838	mov eax, [kb_state]
		4839	mov [esp+32], eax
		4840	ret
2709	mario79	4841	;-----------------------------------------------------------------------------
		4842	align 4
2288	clevermous	4843	.4:
		4844	mov eax, hotkey_list
		4845	@@:
		4846	cmp dword [eax+8], 0
		4847	jz .found_free
		4848	add eax, 16
		4849	cmp eax, hotkey_list+16*256
		4850	jb @b
		4851	mov dword [esp+32], 1
		4852	ret
		4853	.found_free:
		4854	mov [eax+8], edi
		4855	mov [eax+4], edx
		4856	movzx ecx, cl
		4857	lea ecx, [hotkey_scancodes+ecx*4]
		4858	mov edx, [ecx]
		4859	mov [eax], edx
		4860	mov [ecx], eax
		4861	mov [eax+12], ecx
3383	hidnplayr	4862	test edx, edx
		4863	jz @f
2288	clevermous	4864	mov [edx+12], eax
		4865	@@:
		4866	and dword [esp+32], 0
		4867	ret
2709	mario79	4868	;-----------------------------------------------------------------------------
		4869	align 4
2288	clevermous	4870	.5:
		4871	movzx ebx, cl
		4872	lea ebx, [hotkey_scancodes+ebx*4]
		4873	mov eax, [ebx]
		4874	.scan:
		4875	test eax, eax
		4876	jz .notfound
		4877	cmp [eax+8], edi
		4878	jnz .next
		4879	cmp [eax+4], edx
		4880	jz .found
		4881	.next:
		4882	mov eax, [eax]
		4883	jmp .scan
		4884	.notfound:
		4885	mov dword [esp+32], 1
		4886	ret
		4887	.found:
		4888	mov ecx, [eax]
		4889	jecxz @f
		4890	mov edx, [eax+12]
		4891	mov [ecx+12], edx
		4892	@@:
		4893	mov ecx, [eax+12]
		4894	mov edx, [eax]
		4895	mov [ecx], edx
		4896	xor edx, edx
		4897	mov [eax+4], edx
		4898	mov [eax+8], edx
		4899	mov [eax+12], edx
		4900	mov [eax], edx
		4901	mov [esp+32], edx
		4902	ret
2709	mario79	4903	;-----------------------------------------------------------------------------
		4904	align 4
		4905	.6:
		4906	pushfd
		4907	cli
		4908	mov eax, [PID_lock_input]
		4909	test eax, eax
		4910	jnz @f
		4911	; get current PID
		4912	mov eax, [CURRENT_TASK]
		4913	shl eax, 5
		4914	mov eax, [eax+CURRENT_TASK+TASKDATA.pid]
		4915	; set current PID for lock input
		4916	mov [PID_lock_input], eax
		4917	@@:
		4918	popfd
		4919	ret
		4920	;-----------------------------------------------------------------------------
		4921	align 4
		4922	.7:
		4923	mov eax, [PID_lock_input]
		4924	test eax, eax
		4925	jz @f
		4926	; get current PID
		4927	mov ebx, [CURRENT_TASK]
		4928	shl ebx, 5
		4929	mov ebx, [ebx+CURRENT_TASK+TASKDATA.pid]
		4930	; compare current lock input with current PID
		4931	cmp ebx, eax
		4932	jne @f
2288	clevermous	4933
2709	mario79	4934	xor eax, eax
		4935	mov [PID_lock_input], eax
		4936	@@:
		4937	ret
		4938	;-----------------------------------------------------------------------------
		4939	uglobal
		4940	PID_lock_input dd 0x0
		4941	endg
2288	clevermous	4942	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4943	;; 61 sys function. ;;
		4944	;; in eax=61,ebx in [1..3] ;;
		4945	;; out eax ;;
		4946	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4947	iglobal
		4948	align 4
		4949	f61call:
		4950	dd sys_gs.1 ; resolution
		4951	dd sys_gs.2 ; bits per pixel
		4952	dd sys_gs.3 ; bytes per scanline
		4953	endg
		4954
		4955
		4956	align 4
		4957
		4958	sys_gs: ; direct screen access
		4959	dec ebx
		4960	cmp ebx, 2
		4961	ja .not_support
		4962	jmp dword [f61call+ebx*4]
		4963	.not_support:
		4964	or [esp+32], dword -1
		4965	ret
		4966
		4967
		4968	.1: ; resolution
		4969	mov eax, [Screen_Max_X]
		4970	shl eax, 16
		4971	mov ax, [Screen_Max_Y]
		4972	add eax, 0x00010001
		4973	mov [esp+32], eax
		4974	ret
		4975	.2: ; bits per pixel
3537	Serge	4976	mov eax, [_display.bpp]
2288	clevermous	4977	mov [esp+32], eax
		4978	ret
		4979	.3: ; bytes per scanline
		4980	mov eax, [BytesPerScanLine]
		4981	mov [esp+32], eax
		4982	ret
		4983
		4984	align 4 ; system functions
		4985
		4986	syscall_setpixel: ; SetPixel
		4987
		4988	mov eax, ebx
		4989	mov ebx, ecx
		4990	mov ecx, edx
		4991	mov edx, [TASK_BASE]
		4992	add eax, [edx-twdw+WDATA.box.left]
		4993	add ebx, [edx-twdw+WDATA.box.top]
		4994	mov edi, [current_slot]
		4995	add eax, [edi+APPDATA.wnd_clientbox.left]
		4996	add ebx, [edi+APPDATA.wnd_clientbox.top]
		4997	xor edi, edi ; no force
2430	mario79	4998	and ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
2453	mario79	4999	; jmp [putpixel]
		5000	jmp __sys_putpixel
2288	clevermous	5001
		5002	align 4
		5003
		5004	syscall_writetext: ; WriteText
		5005
		5006	mov eax, [TASK_BASE]
		5007	mov ebp, [eax-twdw+WDATA.box.left]
		5008	push esi
		5009	mov esi, [current_slot]
		5010	add ebp, [esi+APPDATA.wnd_clientbox.left]
		5011	shl ebp, 16
		5012	add ebp, [eax-twdw+WDATA.box.top]
		5013	add bp, word[esi+APPDATA.wnd_clientbox.top]
		5014	pop esi
3462	mario79	5015	test ecx, 0x08000000 ; redirect the output to the user area
		5016	jnz @f
2288	clevermous	5017	add ebx, ebp
3462	mario79	5018	align 4
		5019	@@:
2288	clevermous	5020	mov eax, edi
2536	mario79	5021	test ecx, 0x08000000 ; redirect the output to the user area
		5022	jnz dtext
2288	clevermous	5023	xor edi, edi
		5024	jmp dtext
		5025
		5026	align 4
		5027
		5028	syscall_openramdiskfile: ; OpenRamdiskFile
		5029
		5030	mov eax, ebx
		5031	mov ebx, ecx
		5032	mov ecx, edx
		5033	mov edx, esi
		5034	mov esi, 12
		5035	call fileread
		5036	mov [esp+32], eax
		5037	ret
		5038
		5039	align 4
		5040
		5041	syscall_drawrect: ; DrawRect
		5042
		5043	mov edi, edx ; color + gradient
		5044	and edi, 0x80FFFFFF
		5045	test bx, bx ; x.size
		5046	je .drectr
		5047	test cx, cx ; y.size
		5048	je .drectr
		5049
		5050	mov eax, ebx ; bad idea
		5051	mov ebx, ecx
		5052
		5053	movzx ecx, ax ; ecx - x.size
		5054	shr eax, 16 ; eax - x.coord
		5055	movzx edx, bx ; edx - y.size
		5056	shr ebx, 16 ; ebx - y.coord
		5057	mov esi, [current_slot]
		5058
		5059	add eax, [esi + APPDATA.wnd_clientbox.left]
		5060	add ebx, [esi + APPDATA.wnd_clientbox.top]
		5061	add ecx, eax
		5062	add edx, ebx
2453	mario79	5063	; jmp [drawbar]
		5064	jmp vesa20_drawbar
2288	clevermous	5065	.drectr:
		5066	ret
		5067
		5068	align 4
		5069	syscall_getscreensize: ; GetScreenSize
		5070	mov ax, [Screen_Max_X]
		5071	shl eax, 16
		5072	mov ax, [Screen_Max_Y]
		5073	mov [esp + 32], eax
		5074	ret
		5075
		5076	align 4
		5077
		5078	syscall_cdaudio: ; CD
		5079
		5080	cmp ebx, 4
		5081	jb .audio
		5082	jz .eject
		5083	cmp ebx, 5
		5084	jnz .ret
		5085	.load:
		5086	call .reserve
		5087	call LoadMedium
		5088	;call .free
		5089	jmp .free
		5090	; ret
		5091	.eject:
		5092	call .reserve
		5093	call clear_CD_cache
		5094	call allow_medium_removal
		5095	call EjectMedium
		5096	; call .free
		5097	jmp .free
		5098	; ret
		5099	.audio:
		5100	call sys_cd_audio
		5101	mov [esp+36-4], eax
		5102	.ret:
		5103	ret
		5104
		5105	.reserve:
		5106	call reserve_cd
		5107	mov eax, ecx
		5108	shr eax, 1
		5109	and eax, 1
		5110	inc eax
		5111	mov [ChannelNumber], ax
		5112	mov eax, ecx
		5113	and eax, 1
		5114	mov [DiskNumber], al
		5115	call reserve_cd_channel
		5116	and ebx, 3
		5117	inc ebx
		5118	mov [cdpos], ebx
		5119	add ebx, ebx
		5120	mov cl, 8
		5121	sub cl, bl
		5122	mov al, [DRIVE_DATA+1]
		5123	shr al, cl
		5124	test al, 2
		5125	jz .free;.err
		5126	ret
		5127	.free:
		5128	call free_cd_channel
		5129	and [cd_status], 0
		5130	ret
		5131	.err:
		5132	call .free
		5133	; pop eax
		5134	ret
2511	mario79	5135	;-----------------------------------------------------------------------------
2288	clevermous	5136	align 4
2511	mario79	5137	syscall_getpixel_WinMap: ; GetPixel WinMap
		5138	cmp ebx, [Screen_Max_X]
		5139	jbe @f
		5140	cmp ecx, [Screen_Max_Y]
		5141	jbe @f
		5142	xor eax, eax
		5143	jmp .store
		5144	;--------------------------------------
		5145	align 4
		5146	@@:
		5147	mov eax, [d_width_calc_area + ecx*4]
		5148	add eax, [_WinMapAddress]
		5149	movzx eax, byte[eax+ebx] ; get value for current point
		5150	;--------------------------------------
		5151	align 4
		5152	.store:
		5153	mov [esp + 32], eax
		5154	ret
		5155	;-----------------------------------------------------------------------------
		5156	align 4
2288	clevermous	5157	syscall_getpixel: ; GetPixel
		5158	mov ecx, [Screen_Max_X]
		5159	inc ecx
		5160	xor edx, edx
		5161	mov eax, ebx
		5162	div ecx
		5163	mov ebx, edx
		5164	xchg eax, ebx
2430	mario79	5165	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	5166	call dword [GETPIXEL]; eax - x, ebx - y
		5167	mov [esp + 32], ecx
		5168	ret
2509	mario79	5169	;-----------------------------------------------------------------------------
2288	clevermous	5170	align 4
		5171	syscall_getarea:
		5172	;eax = 36
		5173	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		5174	;ecx = [size x]*65536 + [size y]
		5175	;edx = [start x]*65536 + [start y]
		5176	pushad
		5177	mov edi, ebx
		5178	mov eax, edx
		5179	shr eax, 16
		5180	mov ebx, edx
		5181	and ebx, 0xffff
		5182	dec eax
		5183	dec ebx
		5184	; eax - x, ebx - y
		5185	mov edx, ecx
		5186
		5187	shr ecx, 16
		5188	and edx, 0xffff
		5189	mov esi, ecx
		5190	; ecx - size x, edx - size y
		5191
		5192	mov ebp, edx
		5193	dec ebp
		5194	lea ebp, [ebp*3]
		5195
		5196	imul ebp, esi
		5197
		5198	mov esi, ecx
		5199	dec esi
		5200	lea esi, [esi*3]
		5201
		5202	add ebp, esi
		5203	add ebp, edi
		5204
		5205	add ebx, edx
2509	mario79	5206	;--------------------------------------
		5207	align 4
2288	clevermous	5208	.start_y:
		5209	push ecx edx
2509	mario79	5210	;--------------------------------------
		5211	align 4
2288	clevermous	5212	.start_x:
		5213	push eax ebx ecx
		5214	add eax, ecx
		5215
2430	mario79	5216	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	5217	call dword [GETPIXEL]; eax - x, ebx - y
		5218
		5219	mov [ebp], cx
		5220	shr ecx, 16
		5221	mov [ebp+2], cl
		5222
		5223	pop ecx ebx eax
		5224	sub ebp, 3
		5225	dec ecx
		5226	jnz .start_x
		5227	pop edx ecx
		5228	dec ebx
		5229	dec edx
		5230	jnz .start_y
		5231	popad
		5232	ret
2509	mario79	5233	;-----------------------------------------------------------------------------
		5234	align 4
		5235	syscall_putarea_backgr:
		5236	;eax = 25
		5237	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		5238	;ecx = [size x]*65536 + [size y]
		5239	;edx = [start x]*65536 + [start y]
		5240	pushad
		5241	mov edi, ebx
		5242	mov eax, edx
		5243	shr eax, 16
		5244	mov ebx, edx
		5245	and ebx, 0xffff
		5246	dec eax
		5247	dec ebx
		5248	; eax - x, ebx - y
		5249	mov edx, ecx
		5250	shr ecx, 16
		5251	and edx, 0xffff
		5252	mov esi, ecx
		5253	; ecx - size x, edx - size y
		5254	mov ebp, edx
		5255	dec ebp
		5256	shl ebp, 2
2288	clevermous	5257
2509	mario79	5258	imul ebp, esi
		5259
		5260	mov esi, ecx
		5261	dec esi
		5262	shl esi, 2
		5263
		5264	add ebp, esi
		5265	add ebp, edi
		5266
		5267	add ebx, edx
		5268	;--------------------------------------
2288	clevermous	5269	align 4
2509	mario79	5270	.start_y:
		5271	push ecx edx
		5272	;--------------------------------------
		5273	align 4
		5274	.start_x:
		5275	push eax ecx
		5276	add eax, ecx
2288	clevermous	5277
2509	mario79	5278	mov ecx, [ebp]
		5279	rol ecx, 8
		5280	test cl, cl ; transparensy = 0
		5281	jz .no_put
		5282
		5283	xor cl, cl
		5284	ror ecx, 8
		5285
		5286	pushad
		5287	mov edx, [d_width_calc_area + ebx*4]
		5288	add edx, [_WinMapAddress]
		5289	movzx edx, byte [eax+edx]
		5290	cmp dl, byte 1
		5291	jne @f
		5292
		5293	call dword [PUTPIXEL]; eax - x, ebx - y
		5294	;--------------------------------------
		5295	align 4
		5296	@@:
		5297	popad
		5298	;--------------------------------------
		5299	align 4
		5300	.no_put:
		5301	pop ecx eax
2991	Serge	5302
2509	mario79	5303	sub ebp, 4
		5304	dec ecx
		5305	jnz .start_x
		5306
		5307	pop edx ecx
		5308	dec ebx
		5309	dec edx
		5310	jnz .start_y
		5311
		5312	popad
		5313	ret
		5314	;-----------------------------------------------------------------------------
		5315	align 4
2288	clevermous	5316	syscall_drawline: ; DrawLine
		5317
		5318	mov edi, [TASK_BASE]
		5319	movzx eax, word[edi-twdw+WDATA.box.left]
		5320	mov ebp, eax
		5321	mov esi, [current_slot]
		5322	add ebp, [esi+APPDATA.wnd_clientbox.left]
		5323	add ax, word[esi+APPDATA.wnd_clientbox.left]
		5324	add ebp, ebx
		5325	shl eax, 16
		5326	movzx ebx, word[edi-twdw+WDATA.box.top]
		5327	add eax, ebp
		5328	mov ebp, ebx
		5329	add ebp, [esi+APPDATA.wnd_clientbox.top]
		5330	add bx, word[esi+APPDATA.wnd_clientbox.top]
		5331	add ebp, ecx
		5332	shl ebx, 16
		5333	xor edi, edi
		5334	add ebx, ebp
		5335	mov ecx, edx
2453	mario79	5336	; jmp [draw_line]
		5337	jmp __sys_draw_line
2288	clevermous	5338
		5339
		5340	align 4
		5341	syscall_reserveportarea: ; ReservePortArea and FreePortArea
		5342
		5343	call r_f_port_area
		5344	mov [esp+32], eax
		5345	ret
		5346
		5347	align 4
		5348	syscall_threads: ; CreateThreads
		5349	; eax=1 create thread
		5350	;
		5351	; ebx=thread start
		5352	; ecx=thread stack value
		5353	;
		5354	; on return : eax = pid
		5355
		5356	call new_sys_threads
		5357
		5358	mov [esp+32], eax
		5359	ret
		5360
		5361	align 4
		5362
		5363	paleholder:
		5364	ret
2438	mario79	5365	;------------------------------------------------------------------------------
2288	clevermous	5366	align 4
2438	mario79	5367	calculate_fast_getting_offset_for_WinMapAddress:
		5368	; calculate data area for fast getting offset to _WinMapAddress
2446	mario79	5369	xor eax, eax
2438	mario79	5370	mov ecx, [_display.height]
		5371	inc ecx
		5372	mov edi, d_width_calc_area
		5373	cld
		5374	@@:
		5375	stosd
		5376	add eax, [_display.width]
		5377	dec ecx
		5378	jnz @r
		5379	ret
		5380	;------------------------------------------------------------------------------
		5381	align 4
2480	mario79	5382	calculate_fast_getting_offset_for_LFB:
		5383	; calculate data area for fast getting offset to LFB
		5384	xor eax, eax
		5385	mov ecx, [_display.height]
		5386	inc ecx
		5387	mov edi, BPSLine_calc_area
		5388	cld
		5389	@@:
		5390	stosd
		5391	add eax, [BytesPerScanLine]
		5392	dec ecx
		5393	jnz @r
		5394	ret
		5395	;------------------------------------------------------------------------------
		5396	align 4
2288	clevermous	5397	set_screen:
2654	mario79	5398	; in:
		5399	; eax - new Screen_Max_X
		5400	; ecx - new BytesPerScanLine
		5401	; edx - new Screen_Max_Y
2288	clevermous	5402	cmp eax, [Screen_Max_X]
		5403	jne .set
		5404
		5405	cmp edx, [Screen_Max_Y]
		5406	jne .set
		5407	ret
		5408	.set:
		5409	pushfd
		5410	cli
		5411
		5412	mov [Screen_Max_X], eax
		5413	mov [Screen_Max_Y], edx
		5414	mov [BytesPerScanLine], ecx
		5415
		5416	mov [screen_workarea.right], eax
		5417	mov [screen_workarea.bottom], edx
		5418
		5419	push ebx
		5420	push esi
		5421	push edi
		5422
		5423	pushad
		5424
2654	mario79	5425	cmp [do_not_touch_winmap], 1
		5426	je @f
		5427
2288	clevermous	5428	stdcall kernel_free, [_WinMapAddress]
		5429
		5430	mov eax, [_display.width]
		5431	mul [_display.height]
		5432	mov [_WinMapSize], eax
		5433
		5434	stdcall kernel_alloc, eax
		5435	mov [_WinMapAddress], eax
		5436	test eax, eax
		5437	jz .epic_fail
2654	mario79	5438	; store for f.18.24
		5439	mov eax, [_display.width]
		5440	mov [display_width_standard], eax
2288	clevermous	5441
2654	mario79	5442	mov eax, [_display.height]
		5443	mov [display_height_standard], eax
		5444	@@:
2438	mario79	5445	call calculate_fast_getting_offset_for_WinMapAddress
2545	mario79	5446	; for Qemu or non standart video cards
2991	Serge	5447	; Unfortunately [BytesPerScanLine] does not always
2545	mario79	5448	; equal to [_display.width] * [ScreenBPP] / 8
		5449	call calculate_fast_getting_offset_for_LFB
2288	clevermous	5450	popad
		5451
		5452	call repos_windows
		5453	xor eax, eax
		5454	xor ebx, ebx
		5455	mov ecx, [Screen_Max_X]
		5456	mov edx, [Screen_Max_Y]
		5457	call calculatescreen
		5458	pop edi
		5459	pop esi
		5460	pop ebx
		5461
		5462	popfd
		5463	ret
		5464
		5465	.epic_fail:
		5466	hlt ; Houston, we've had a problem
		5467
		5468	; --------------- APM ---------------------
		5469	uglobal
		5470	apm_entry dp 0
		5471	apm_vf dd 0
		5472	endg
		5473
		5474	align 4
		5475	sys_apm:
		5476	xor eax, eax
		5477	cmp word [apm_vf], ax ; Check APM BIOS enable
		5478	jne @f
		5479	inc eax
		5480	or dword [esp + 44], eax ; error
		5481	add eax, 7
		5482	mov dword [esp + 32], eax ; 32-bit protected-mode interface not supported
		5483	ret
		5484
		5485	@@:
		5486	; xchg eax, ecx
		5487	; xchg ebx, ecx
		5488
		5489	cmp dx, 3
		5490	ja @f
		5491	and [esp + 44], byte 0xfe ; emulate func 0..3 as func 0
		5492	mov eax, [apm_vf]
		5493	mov [esp + 32], eax
		5494	shr eax, 16
		5495	mov [esp + 28], eax
		5496	ret
		5497
		5498	@@:
		5499
		5500	mov esi, [master_tab+(OS_BASE shr 20)]
		5501	xchg [master_tab], esi
		5502	push esi
		5503	mov edi, cr3
		5504	mov cr3, edi ;flush TLB
		5505
		5506	call pword [apm_entry] ;call APM BIOS
		5507
		5508	xchg eax, [esp]
		5509	mov [master_tab], eax
		5510	mov eax, cr3
		5511	mov cr3, eax
		5512	pop eax
		5513
		5514	mov [esp + 4 ], edi
		5515	mov [esp + 8], esi
		5516	mov [esp + 20], ebx
		5517	mov [esp + 24], edx
		5518	mov [esp + 28], ecx
		5519	mov [esp + 32], eax
		5520	setc al
		5521	and [esp + 44], byte 0xfe
		5522	or [esp + 44], al
		5523	ret
		5524	; -----------------------------------------
		5525
		5526	align 4
		5527
		5528	undefined_syscall: ; Undefined system call
		5529	mov [esp + 32], dword -1
		5530	ret
		5531
		5532	align 4
		5533	system_shutdown: ; shut down the system
		5534
		5535	cmp byte [BOOT_VAR+0x9030], 1
		5536	jne @F
		5537	ret
		5538	@@:
		5539	call stop_all_services
		5540	push 3 ; stop playing cd
		5541	pop eax
		5542	call sys_cd_audio
		5543
		5544	yes_shutdown_param:
		5545	cli
		5546
		5547	if ~ defined extended_primary_loader
		5548	mov eax, kernel_file ; load kernel.mnt to 0x7000:0
		5549	push 12
		5550	pop esi
		5551	xor ebx, ebx
		5552	or ecx, -1
		5553	mov edx, OS_BASE+0x70000
		5554	call fileread
		5555
		5556	mov esi, restart_kernel_4000+OS_BASE+0x10000 ; move kernel re-starter to 0x4000:0
		5557	mov edi, OS_BASE+0x40000
		5558	mov ecx, 1000
		5559	rep movsb
		5560	end if
		5561
		5562	mov esi, BOOT_VAR ; restore 0x0 - 0xffff
		5563	mov edi, OS_BASE
		5564	mov ecx, 0x10000/4
		5565	cld
		5566	rep movsd
		5567
		5568	call restorefatchain
		5569
		5570	call IRQ_mask_all
		5571
		5572	if 0
		5573	mov word [OS_BASE+0x467+0], pr_mode_exit
		5574	mov word [OS_BASE+0x467+2], 0x1000
		5575
		5576	mov al, 0x0F
		5577	out 0x70, al
		5578	mov al, 0x05
		5579	out 0x71, al
		5580
		5581	mov al, 0xFE
		5582	out 0x64, al
		5583
		5584	hlt
		5585	jmp $-1
		5586
		5587	else
		5588	cmp byte [OS_BASE + 0x9030], 2
		5589	jnz no_acpi_power_off
		5590
		5591	; scan for RSDP
		5592	; 1) The first 1 Kb of the Extended BIOS Data Area (EBDA).
		5593	movzx eax, word [OS_BASE + 0x40E]
		5594	shl eax, 4
		5595	jz @f
		5596	mov ecx, 1024/16
		5597	call scan_rsdp
		5598	jnc .rsdp_found
		5599	@@:
		5600	; 2) The BIOS read-only memory space between 0E0000h and 0FFFFFh.
		5601	mov eax, 0xE0000
		5602	mov ecx, 0x2000
		5603	call scan_rsdp
		5604	jc no_acpi_power_off
		5605	.rsdp_found:
		5606	mov esi, [eax+16] ; esi contains physical address of the RSDT
		5607	mov ebp, [ipc_tmp]
		5608	stdcall map_page, ebp, esi, PG_MAP
		5609	lea eax, [esi+1000h]
		5610	lea edx, [ebp+1000h]
		5611	stdcall map_page, edx, eax, PG_MAP
		5612	and esi, 0xFFF
		5613	add esi, ebp
		5614	cmp dword [esi], 'RSDT'
		5615	jnz no_acpi_power_off
		5616	mov ecx, [esi+4]
		5617	sub ecx, 24h
		5618	jbe no_acpi_power_off
		5619	shr ecx, 2
		5620	add esi, 24h
		5621	.scan_fadt:
		5622	lodsd
		5623	mov ebx, eax
		5624	lea eax, [ebp+2000h]
		5625	stdcall map_page, eax, ebx, PG_MAP
		5626	lea eax, [ebp+3000h]
		5627	add ebx, 0x1000
		5628	stdcall map_page, eax, ebx, PG_MAP
		5629	and ebx, 0xFFF
		5630	lea ebx, [ebx+ebp+2000h]
		5631	cmp dword [ebx], 'FACP'
		5632	jz .fadt_found
		5633	loop .scan_fadt
		5634	jmp no_acpi_power_off
		5635	.fadt_found:
		5636	; ebx is linear address of FADT
		5637	mov edi, [ebx+40] ; physical address of the DSDT
		5638	lea eax, [ebp+4000h]
		5639	stdcall map_page, eax, edi, PG_MAP
		5640	lea eax, [ebp+5000h]
		5641	lea esi, [edi+0x1000]
		5642	stdcall map_page, eax, esi, PG_MAP
		5643	and esi, 0xFFF
		5644	sub edi, esi
		5645	cmp dword [esi+ebp+4000h], 'DSDT'
		5646	jnz no_acpi_power_off
		5647	mov eax, [esi+ebp+4004h] ; DSDT length
		5648	sub eax, 36+4
		5649	jbe no_acpi_power_off
		5650	add esi, 36
		5651	.scan_dsdt:
		5652	cmp dword [esi+ebp+4000h], '_S5_'
		5653	jnz .scan_dsdt_cont
		5654	cmp byte [esi+ebp+4000h+4], 12h ; DefPackage opcode
		5655	jnz .scan_dsdt_cont
		5656	mov dl, [esi+ebp+4000h+6]
		5657	cmp dl, 4 ; _S5_ package must contain 4 bytes
		5658	; ...in theory; in practice, VirtualBox has 2 bytes
		5659	ja .scan_dsdt_cont
		5660	cmp dl, 1
		5661	jb .scan_dsdt_cont
		5662	lea esi, [esi+ebp+4000h+7]
		5663	xor ecx, ecx
		5664	cmp byte [esi], 0 ; 0 means zero byte, 0Ah xx means byte xx
		5665	jz @f
		5666	cmp byte [esi], 0xA
		5667	jnz no_acpi_power_off
		5668	inc esi
		5669	mov cl, [esi]
		5670	@@:
		5671	inc esi
		5672	cmp dl, 2
		5673	jb @f
		5674	cmp byte [esi], 0
		5675	jz @f
		5676	cmp byte [esi], 0xA
		5677	jnz no_acpi_power_off
		5678	inc esi
		5679	mov ch, [esi]
		5680	@@:
		5681	jmp do_acpi_power_off
		5682	.scan_dsdt_cont:
		5683	inc esi
		5684	cmp esi, 0x1000
		5685	jb @f
		5686	sub esi, 0x1000
		5687	add edi, 0x1000
		5688	push eax
		5689	lea eax, [ebp+4000h]
		5690	stdcall map_page, eax, edi, PG_MAP
		5691	push PG_MAP
		5692	lea eax, [edi+1000h]
		5693	push eax
		5694	lea eax, [ebp+5000h]
		5695	push eax
		5696	stdcall map_page
		5697	pop eax
		5698	@@:
		5699	dec eax
		5700	jnz .scan_dsdt
		5701	jmp no_acpi_power_off
		5702	do_acpi_power_off:
		5703	mov edx, [ebx+48]
		5704	test edx, edx
		5705	jz .nosmi
		5706	mov al, [ebx+52]
		5707	out dx, al
		5708	mov edx, [ebx+64]
		5709	@@:
		5710	in ax, dx
		5711	test al, 1
		5712	jz @b
		5713	.nosmi:
		5714	and cx, 0x0707
		5715	shl cx, 2
		5716	or cx, 0x2020
		5717	mov edx, [ebx+64]
		5718	in ax, dx
		5719	and ax, 203h
		5720	or ah, cl
		5721	out dx, ax
		5722	mov edx, [ebx+68]
		5723	test edx, edx
		5724	jz @f
		5725	in ax, dx
		5726	and ax, 203h
		5727	or ah, ch
		5728	out dx, ax
		5729	@@:
		5730	jmp $
		5731
		5732
		5733	no_acpi_power_off:
		5734	mov word [OS_BASE+0x467+0], pr_mode_exit
		5735	mov word [OS_BASE+0x467+2], 0x1000
		5736
		5737	mov al, 0x0F
		5738	out 0x70, al
		5739	mov al, 0x05
		5740	out 0x71, al
		5741
		5742	mov al, 0xFE
		5743	out 0x64, al
		5744
		5745	hlt
		5746	jmp $-1
		5747
		5748	scan_rsdp:
		5749	add eax, OS_BASE
		5750	.s:
		5751	cmp dword [eax], 'RSD '
		5752	jnz .n
		5753	cmp dword [eax+4], 'PTR '
		5754	jnz .n
		5755	xor edx, edx
		5756	xor esi, esi
		5757	@@:
		5758	add dl, [eax+esi]
		5759	inc esi
		5760	cmp esi, 20
		5761	jnz @b
		5762	test dl, dl
		5763	jz .ok
		5764	.n:
		5765	add eax, 10h
		5766	loop .s
		5767	stc
		5768	.ok:
		5769	ret
		5770	end if
		5771
		5772	include "data32.inc"
		5773
		5774	__REV__ = __REV
		5775
		5776	uglobals_size = $ - endofcode
3341	yogev_ezra	5777	if ~ lang eq sp
2288	clevermous	5778	diff16 "end of kernel code",0,$
3287	esevece	5779	end if

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm @ 5836 – Rev 3595