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

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

Subversion Repositories Kolibri OS

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