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

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

Subversion Repositories Kolibri OS

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