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

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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm @ 9183 – Rev 2537