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

Subversion Repositories Kolibri OS

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