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: 2547 $
		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	jz sbgrr
2547	mario79	2429
2288	clevermous	2430	test edx, edx
		2431	jz sbgrr
2515	mario79	2432	;--------------------------------------
		2433	align 4
2288	clevermous	2434	@@:
		2435	;;Maxis use atomic bts for mutexes 4.4.2009
		2436	bts dword [bgrlock], 0
		2437	jnc @f
		2438	call change_task
		2439	jmp @b
2515	mario79	2440	;--------------------------------------
		2441	align 4
2288	clevermous	2442	@@:
		2443	mov [BgrDataWidth], ecx
		2444	mov [BgrDataHeight], edx
		2445	; mov [bgrchanged],1
		2446
		2447	pushad
		2448	; return memory for old background
		2449	mov eax, [img_background]
		2450	cmp eax, static_background_data
		2451	jz @f
		2452	stdcall kernel_free, eax
2515	mario79	2453	;--------------------------------------
		2454	align 4
2288	clevermous	2455	@@:
		2456	; calculate RAW size
		2457	xor eax, eax
		2458	inc eax
		2459	cmp [BgrDataWidth], eax
		2460	jae @f
		2461	mov [BgrDataWidth], eax
2515	mario79	2462	;--------------------------------------
		2463	align 4
2288	clevermous	2464	@@:
		2465	cmp [BgrDataHeight], eax
		2466	jae @f
		2467	mov [BgrDataHeight], eax
2515	mario79	2468	;--------------------------------------
		2469	align 4
2288	clevermous	2470	@@:
		2471	mov eax, [BgrDataWidth]
		2472	imul eax, [BgrDataHeight]
		2473	lea eax, [eax*3]
2464	mario79	2474	; it is reserved with aligned to the boundary of 4 KB pages,
		2475	; otherwise there may be exceptions a page fault for vesa20_drawbackground_tiled
		2476	; because the 32 bit read is used for high performance: "mov eax,[esi]"
		2477	shr eax, 12
		2478	inc eax
		2479	shl eax, 12
2288	clevermous	2480	mov [mem_BACKGROUND], eax
		2481	; get memory for new background
		2482	stdcall kernel_alloc, eax
		2483	test eax, eax
		2484	jz .memfailed
		2485	mov [img_background], eax
		2486	jmp .exit
2515	mario79	2487	;--------------------------------------
		2488	align 4
2288	clevermous	2489	.memfailed:
		2490	; revert to static monotone data
		2491	mov [img_background], static_background_data
		2492	xor eax, eax
		2493	inc eax
		2494	mov [BgrDataWidth], eax
		2495	mov [BgrDataHeight], eax
		2496	mov [mem_BACKGROUND], 4
2515	mario79	2497	;--------------------------------------
		2498	align 4
2288	clevermous	2499	.exit:
		2500	popad
		2501	mov [bgrlock], 0
2515	mario79	2502	;--------------------------------------
		2503	align 4
		2504	sbgrr:
2288	clevermous	2505	ret
2515	mario79	2506	;------------------------------------------------------------------------------
		2507	align 4
2288	clevermous	2508	nosb1:
		2509	cmp ebx, 2 ; SET PIXEL
		2510	jnz nosb2
		2511
		2512	mov eax, [img_background]
		2513	test ecx, ecx
		2514	jz @f
		2515	cmp eax, static_background_data
		2516	jz .ret
2515	mario79	2517	;--------------------------------------
		2518	align 4
2288	clevermous	2519	@@:
		2520	mov ebx, [mem_BACKGROUND]
		2521	add ebx, 4095
		2522	and ebx, -4096
		2523	sub ebx, 4
		2524	cmp ecx, ebx
		2525	ja .ret
		2526
		2527	mov ebx, [eax+ecx]
		2528	and ebx, 0xFF000000;255256256*256
		2529	and edx, 0x00FFFFFF;255256256+255*256+255
		2530	add edx, ebx
		2531	mov [eax+ecx], edx
2515	mario79	2532	;--------------------------------------
		2533	align 4
2288	clevermous	2534	.ret:
		2535	ret
2515	mario79	2536	;------------------------------------------------------------------------------
		2537	align 4
2288	clevermous	2538	nosb2:
		2539	cmp ebx, 3 ; DRAW BACKGROUND
		2540	jnz nosb3
2515	mario79	2541	;--------------------------------------
		2542	align 4
2288	clevermous	2543	draw_background_temp:
		2544	mov [background_defined], 1
		2545	call force_redraw_background
2515	mario79	2546	;--------------------------------------
		2547	align 4
		2548	nosb31:
2288	clevermous	2549	ret
2515	mario79	2550	;------------------------------------------------------------------------------
		2551	align 4
		2552	nosb3:
2288	clevermous	2553	cmp ebx, 4 ; TILED / STRETCHED
		2554	jnz nosb4
		2555	cmp ecx, [BgrDrawMode]
		2556	je nosb41
		2557	mov [BgrDrawMode], ecx
2515	mario79	2558	;--------------------------------------
		2559	align 4
		2560	nosb41:
2288	clevermous	2561	ret
2515	mario79	2562	;------------------------------------------------------------------------------
		2563	align 4
		2564	nosb4:
2288	clevermous	2565	cmp ebx, 5 ; BLOCK MOVE TO BGR
		2566	jnz nosb5
		2567	cmp [img_background], static_background_data
		2568	jnz @f
		2569	test edx, edx
		2570	jnz .fin
		2571	cmp esi, 4
		2572	ja .fin
2515	mario79	2573	;--------------------------------------
		2574	align 4
		2575	@@:
2288	clevermous	2576	; bughere
		2577	mov eax, ecx
		2578	mov ebx, edx
		2579	add ebx, [img_background];IMG_BACKGROUND
		2580	mov ecx, esi
		2581	call memmove
2515	mario79	2582	;--------------------------------------
		2583	align 4
		2584	.fin:
2288	clevermous	2585	ret
2515	mario79	2586	;------------------------------------------------------------------------------
		2587	align 4
		2588	nosb5:
2288	clevermous	2589	cmp ebx, 6
		2590	jnz nosb6
2515	mario79	2591	;--------------------------------------
		2592	align 4
2288	clevermous	2593	;;Maxis use atomic bts for mutex 4.4.2009
		2594	@@:
		2595	bts dword [bgrlock], 0
		2596	jnc @f
		2597	call change_task
		2598	jmp @b
2515	mario79	2599	;--------------------------------------
		2600	align 4
2288	clevermous	2601	@@:
		2602	mov eax, [CURRENT_TASK]
		2603	mov [bgrlockpid], eax
		2604	cmp [img_background], static_background_data
		2605	jz .nomem
		2606	stdcall user_alloc, [mem_BACKGROUND]
		2607	mov [esp+32], eax
		2608	test eax, eax
		2609	jz .nomem
		2610	mov ebx, eax
		2611	shr ebx, 12
		2612	or dword [page_tabs+(ebx-1)*4], DONT_FREE_BLOCK
		2613	mov esi, [img_background]
		2614	shr esi, 12
		2615	mov ecx, [mem_BACKGROUND]
		2616	add ecx, 0xFFF
		2617	shr ecx, 12
2515	mario79	2618	;--------------------------------------
		2619	align 4
2288	clevermous	2620	.z:
		2621	mov eax, [page_tabs+ebx*4]
		2622	test al, 1
		2623	jz @f
		2624	call free_page
2515	mario79	2625	;--------------------------------------
		2626	align 4
2288	clevermous	2627	@@:
		2628	mov eax, [page_tabs+esi*4]
		2629	or al, PG_UW
		2630	mov [page_tabs+ebx*4], eax
		2631	mov eax, ebx
		2632	shl eax, 12
		2633	invlpg [eax]
		2634	inc ebx
		2635	inc esi
		2636	loop .z
		2637	ret
2515	mario79	2638	;--------------------------------------
		2639	align 4
2288	clevermous	2640	.nomem:
		2641	and [bgrlockpid], 0
		2642	mov [bgrlock], 0
2515	mario79	2643	;------------------------------------------------------------------------------
		2644	align 4
2288	clevermous	2645	nosb6:
		2646	cmp ebx, 7
		2647	jnz nosb7
		2648	cmp [bgrlock], 0
		2649	jz .err
		2650	mov eax, [CURRENT_TASK]
		2651	cmp [bgrlockpid], eax
		2652	jnz .err
		2653	mov eax, ecx
		2654	mov ebx, ecx
		2655	shr eax, 12
		2656	mov ecx, [page_tabs+(eax-1)*4]
		2657	test cl, USED_BLOCK+DONT_FREE_BLOCK
		2658	jz .err
		2659	jnp .err
		2660	push eax
		2661	shr ecx, 12
		2662	dec ecx
2515	mario79	2663	;--------------------------------------
		2664	align 4
2288	clevermous	2665	@@:
		2666	and dword [page_tabs+eax*4], 0
		2667	mov edx, eax
		2668	shl edx, 12
		2669	push eax
		2670	invlpg [edx]
		2671	pop eax
		2672	inc eax
		2673	loop @b
		2674	pop eax
		2675	and dword [page_tabs+(eax-1)*4], not DONT_FREE_BLOCK
		2676	stdcall user_free, ebx
		2677	mov [esp+32], eax
		2678	and [bgrlockpid], 0
		2679	mov [bgrlock], 0
		2680	ret
2515	mario79	2681	;--------------------------------------
		2682	align 4
2288	clevermous	2683	.err:
		2684	and dword [esp+32], 0
		2685	ret
2515	mario79	2686	;------------------------------------------------------------------------------
		2687	align 4
2288	clevermous	2688	nosb7:
2515	mario79	2689	cmp ebx, 8
		2690	jnz nosb8
2537	mario79	2691
		2692	mov eax, [BG_Rect_X_left_right]
2515	mario79	2693	mov [esp + 32], eax ; eax = [left]*65536 + [right]
2537	mario79	2694	mov eax, [BG_Rect_Y_top_bottom]
2515	mario79	2695	mov [esp + 20], eax ; ebx = [top]*65536 + [bottom]
2288	clevermous	2696	ret
2515	mario79	2697	;------------------------------------------------------------------------------
		2698	align 4
		2699	nosb8:
2547	mario79	2700	cmp ebx, 9
		2701	jnz nosb9
		2702	; ecx = [left]*65536 + [right]
		2703	; edx = [top]*65536 + [bottom]
		2704	mov eax, [Screen_Max_X]
		2705	mov ebx, [Screen_Max_Y]
		2706	; check [right]
		2707	cmp cx, ax
		2708	ja .exit
		2709	; check [left]
		2710	ror ecx, 16
		2711	cmp cx, ax
		2712	ja .exit
		2713	; check [bottom]
		2714	cmp dx, bx
		2715	ja .exit
		2716	; check [top]
		2717	ror edx, 16
		2718	cmp dx, bx
		2719	ja .exit
		2720
		2721	movzx eax, cx ; [left]
		2722	movzx ebx, dx ; [top]
		2723
		2724	shr ecx, 16 ; [right]
		2725	shr edx, 16 ; [bottom]
		2726
		2727	mov [background_defined], 1
		2728
		2729	mov [draw_data+32 + RECT.left], eax
		2730	mov [draw_data+32 + RECT.top], ebx
		2731
		2732	mov [draw_data+32 + RECT.right], ecx
		2733	mov [draw_data+32 + RECT.bottom], edx
		2734
		2735	inc byte[REDRAW_BACKGROUND]
		2736	;--------------------------------------
		2737	align 4
		2738	.exit:
2515	mario79	2739	ret
		2740	;------------------------------------------------------------------------------
		2741	align 4
2547	mario79	2742	nosb9:
		2743	ret
		2744	;------------------------------------------------------------------------------
		2745	align 4
2537	mario79	2746	uglobal
		2747	BG_Rect_X_left_right dd 0x0
		2748	BG_Rect_Y_top_bottom dd 0x0
		2749	endg
		2750	;------------------------------------------------------------------------------
		2751	align 4
2288	clevermous	2752	force_redraw_background:
		2753	and [draw_data+32 + RECT.left], 0
		2754	and [draw_data+32 + RECT.top], 0
		2755	push eax ebx
		2756	mov eax, [Screen_Max_X]
		2757	mov ebx, [Screen_Max_Y]
		2758	mov [draw_data+32 + RECT.right], eax
		2759	mov [draw_data+32 + RECT.bottom], ebx
		2760	pop ebx eax
		2761	inc byte[REDRAW_BACKGROUND]
		2762	ret
2515	mario79	2763	;------------------------------------------------------------------------------
2288	clevermous	2764	align 4
		2765	sys_getbackground:
		2766	; cmp eax,1 ; SIZE
		2767	dec ebx
		2768	jnz nogb1
		2769	mov eax, [BgrDataWidth]
		2770	shl eax, 16
		2771	mov ax, [BgrDataHeight]
		2772	mov [esp+32], eax
		2773	ret
2515	mario79	2774	;------------------------------------------------------------------------------
		2775	align 4
2288	clevermous	2776	nogb1:
		2777	; cmp eax,2 ; PIXEL
		2778	dec ebx
		2779	jnz nogb2
		2780
		2781	mov eax, [img_background]
		2782	test ecx, ecx
		2783	jz @f
		2784	cmp eax, static_background_data
		2785	jz .ret
2515	mario79	2786	;--------------------------------------
		2787	align 4
2288	clevermous	2788	@@:
		2789	mov ebx, [mem_BACKGROUND]
		2790	add ebx, 4095
		2791	and ebx, -4096
		2792	sub ebx, 4
		2793	cmp ecx, ebx
		2794	ja .ret
		2795
		2796	mov eax, [ecx+eax]
		2797
		2798	and eax, 0xFFFFFF
		2799	mov [esp+32], eax
2515	mario79	2800	;--------------------------------------
		2801	align 4
2288	clevermous	2802	.ret:
		2803	ret
2515	mario79	2804	;------------------------------------------------------------------------------
		2805	align 4
		2806	nogb2:
2288	clevermous	2807
		2808	; cmp eax,4 ; TILED / STRETCHED
		2809	dec ebx
		2810	dec ebx
		2811	jnz nogb4
		2812	mov eax, [BgrDrawMode]
2515	mario79	2813	;--------------------------------------
		2814	align 4
		2815	nogb4:
2288	clevermous	2816	mov [esp+32], eax
		2817	ret
2515	mario79	2818	;------------------------------------------------------------------------------
2288	clevermous	2819	align 4
		2820	sys_getkey:
		2821	mov [esp + 32], dword 1
		2822	; test main buffer
		2823	mov ebx, [CURRENT_TASK] ; TOP OF WINDOW STACK
		2824	movzx ecx, word [WIN_STACK + ebx * 2]
		2825	mov edx, [TASK_COUNT]
		2826	cmp ecx, edx
		2827	jne .finish
		2828	cmp [KEY_COUNT], byte 0
		2829	je .finish
		2830	movzx eax, byte [KEY_BUFF]
		2831	shl eax, 8
		2832	push eax
		2833	dec byte [KEY_COUNT]
		2834	and byte [KEY_COUNT], 127
		2835	movzx ecx, byte [KEY_COUNT]
		2836	add ecx, 2
		2837	mov eax, KEY_BUFF + 1
		2838	mov ebx, KEY_BUFF
		2839	call memmove
		2840	pop eax
2515	mario79	2841	;--------------------------------------
		2842	align 4
2288	clevermous	2843	.ret_eax:
		2844	mov [esp + 32], eax
		2845	ret
2515	mario79	2846	;--------------------------------------
		2847	align 4
2288	clevermous	2848	.finish:
		2849	; test hotkeys buffer
		2850	mov ecx, hotkey_buffer
2515	mario79	2851	;--------------------------------------
		2852	align 4
2288	clevermous	2853	@@:
		2854	cmp [ecx], ebx
		2855	jz .found
		2856	add ecx, 8
		2857	cmp ecx, hotkey_buffer + 120 * 8
		2858	jb @b
		2859	ret
2515	mario79	2860	;--------------------------------------
		2861	align 4
2288	clevermous	2862	.found:
		2863	mov ax, [ecx + 6]
		2864	shl eax, 16
		2865	mov ah, [ecx + 4]
		2866	mov al, 2
		2867	and dword [ecx + 4], 0
		2868	and dword [ecx], 0
		2869	jmp .ret_eax
2515	mario79	2870	;------------------------------------------------------------------------------
2288	clevermous	2871	align 4
		2872	sys_getbutton:
		2873	mov ebx, [CURRENT_TASK] ; TOP OF WINDOW STACK
		2874	mov [esp + 32], dword 1
		2875	movzx ecx, word [WIN_STACK + ebx * 2]
		2876	mov edx, [TASK_COUNT] ; less than 256 processes
		2877	cmp ecx, edx
		2878	jne .exit
		2879	movzx eax, byte [BTN_COUNT]
		2880	test eax, eax
		2881	jz .exit
		2882	mov eax, [BTN_BUFF]
		2883	and al, 0xFE ; delete left button bit
		2884	mov [BTN_COUNT], byte 0
		2885	mov [esp + 32], eax
2515	mario79	2886	;--------------------------------------
		2887	align 4
2288	clevermous	2888	.exit:
		2889	ret
2515	mario79	2890	;------------------------------------------------------------------------------
2288	clevermous	2891	align 4
		2892	sys_cpuusage:
		2893
		2894	; RETURN:
		2895	;
		2896	; +00 dword process cpu usage
		2897	; +04 word position in windowing stack
		2898	; +06 word windowing stack value at current position (cpu nro)
		2899	; +10 12 bytes name
		2900	; +22 dword start in mem
		2901	; +26 dword used mem
		2902	; +30 dword PID , process idenfification number
		2903	;
		2904
		2905	cmp ecx, -1 ; who am I ?
		2906	jne .no_who_am_i
		2907	mov ecx, [CURRENT_TASK]
		2908	.no_who_am_i:
		2909	cmp ecx, max_processes
		2910	ja .nofillbuf
		2911
		2912	; +4: word: position of the window of thread in the window stack
		2913	mov ax, [WIN_STACK + ecx * 2]
		2914	mov [ebx+4], ax
		2915	; +6: word: number of the thread slot, which window has in the window stack
		2916	; position ecx (has no relation to the specific thread)
		2917	mov ax, [WIN_POS + ecx * 2]
		2918	mov [ebx+6], ax
		2919
		2920	shl ecx, 5
		2921
		2922	; +0: dword: memory usage
		2923	mov eax, [ecx+CURRENT_TASK+TASKDATA.cpu_usage]
		2924	mov [ebx], eax
		2925	; +10: 11 bytes: name of the process
		2926	push ecx
		2927	lea eax, [ecx*8+SLOT_BASE+APPDATA.app_name]
		2928	add ebx, 10
		2929	mov ecx, 11
		2930	call memmove
		2931	pop ecx
		2932
		2933	; +22: address of the process in memory
		2934	; +26: size of used memory - 1
		2935	push edi
		2936	lea edi, [ebx+12]
		2937	xor eax, eax
		2938	mov edx, 0x100000*16
		2939	cmp ecx, 1 shl 5
		2940	je .os_mem
		2941	mov edx, [SLOT_BASE+ecx*8+APPDATA.mem_size]
		2942	mov eax, std_application_base_address
		2943	.os_mem:
		2944	stosd
		2945	lea eax, [edx-1]
		2946	stosd
		2947
		2948	; +30: PID/TID
		2949	mov eax, [ecx+CURRENT_TASK+TASKDATA.pid]
		2950	stosd
		2951
		2952	; window position and size
		2953	push esi
		2954	lea esi, [ecx + window_data + WDATA.box]
		2955	movsd
		2956	movsd
		2957	movsd
		2958	movsd
		2959
		2960	; Process state (+50)
		2961	mov eax, dword [ecx+CURRENT_TASK+TASKDATA.state]
		2962	stosd
		2963
		2964	; Window client area box
		2965	lea esi, [ecx*8 + SLOT_BASE + APPDATA.wnd_clientbox]
		2966	movsd
		2967	movsd
		2968	movsd
		2969	movsd
		2970
		2971	; Window state
		2972	mov al, [ecx+window_data+WDATA.fl_wstate]
		2973	stosb
		2974
		2975	; Event mask (+71)
		2976	mov EAX, dword [ECX+CURRENT_TASK+TASKDATA.event_mask]
		2977	stosd
		2978
		2979	pop esi
		2980	pop edi
		2981
		2982	.nofillbuf:
		2983	; return number of processes
		2984
		2985	mov eax, [TASK_COUNT]
		2986	mov [esp+32], eax
		2987	ret
		2988
		2989	align 4
		2990	sys_clock:
		2991	cli
		2992	; Mikhail Lisovin xx Jan 2005
		2993	@@:
		2994	mov al, 10
		2995	out 0x70, al
		2996	in al, 0x71
		2997	test al, al
		2998	jns @f
		2999	mov esi, 1
		3000	call delay_ms
		3001	jmp @b
		3002	@@:
		3003	; end Lisovin's fix
		3004
		3005	xor al, al ; seconds
		3006	out 0x70, al
		3007	in al, 0x71
		3008	movzx ecx, al
		3009	mov al, 02 ; minutes
		3010	shl ecx, 16
		3011	out 0x70, al
		3012	in al, 0x71
		3013	movzx edx, al
		3014	mov al, 04 ; hours
		3015	shl edx, 8
		3016	out 0x70, al
		3017	in al, 0x71
		3018	add ecx, edx
		3019	movzx edx, al
		3020	add ecx, edx
		3021	sti
		3022	mov [esp + 32], ecx
		3023	ret
		3024
		3025
		3026	align 4
		3027
		3028	sys_date:
		3029
		3030	cli
		3031	@@:
		3032	mov al, 10
		3033	out 0x70, al
		3034	in al, 0x71
		3035	test al, al
		3036	jns @f
		3037	mov esi, 1
		3038	call delay_ms
		3039	jmp @b
		3040	@@:
		3041
		3042	mov ch, 0
		3043	mov al, 7 ; date
		3044	out 0x70, al
		3045	in al, 0x71
		3046	mov cl, al
		3047	mov al, 8 ; month
		3048	shl ecx, 16
		3049	out 0x70, al
		3050	in al, 0x71
		3051	mov ch, al
		3052	mov al, 9 ; year
		3053	out 0x70, al
		3054	in al, 0x71
		3055	mov cl, al
		3056	sti
		3057	mov [esp+32], ecx
		3058	ret
		3059
		3060
		3061	; redraw status
		3062
		3063	sys_redrawstat:
		3064	cmp ebx, 1
		3065	jne no_widgets_away
		3066	; buttons away
		3067	mov ecx, [CURRENT_TASK]
		3068	sys_newba2:
		3069	mov edi, [BTN_ADDR]
		3070	cmp [edi], dword 0 ; empty button list ?
		3071	je end_of_buttons_away
		3072	movzx ebx, word [edi]
		3073	inc ebx
		3074	mov eax, edi
		3075	sys_newba:
		3076	dec ebx
		3077	jz end_of_buttons_away
		3078
		3079	add eax, 0x10
		3080	cmp cx, [eax]
		3081	jnz sys_newba
		3082
		3083	push eax ebx ecx
		3084	mov ecx, ebx
		3085	inc ecx
		3086	shl ecx, 4
		3087	mov ebx, eax
		3088	add eax, 0x10
		3089	call memmove
		3090	dec dword [edi]
		3091	pop ecx ebx eax
		3092
		3093	jmp sys_newba2
		3094
		3095	end_of_buttons_away:
		3096
		3097	ret
		3098
		3099	no_widgets_away:
		3100
		3101	cmp ebx, 2
		3102	jnz srl1
		3103
		3104	mov edx, [TASK_BASE] ; return whole screen draw area for this app
		3105	add edx, draw_data - CURRENT_TASK
		3106	mov [edx + RECT.left], 0
		3107	mov [edx + RECT.top], 0
		3108	mov eax, [Screen_Max_X]
		3109	mov [edx + RECT.right], eax
		3110	mov eax, [Screen_Max_Y]
		3111	mov [edx + RECT.bottom], eax
		3112
		3113	srl1:
		3114	ret
		3115
		3116	;ok - 100% work
		3117	;nt - not tested
		3118	;---------------------------------------------------------------------------------------------
		3119	;eax
		3120	;0 - task switch counter. Ret switch counter in eax. Block. ok.
		3121	;1 - change task. Ret nothing. Block. ok.
		3122	;2 - performance control
		3123	; ebx
		3124	; 0 - enable or disable (inversion) PCE flag on CR4 for rdmpc in user mode.
		3125	; returned new cr4 in eax. Ret cr4 in eax. Block. ok.
		3126	; 1 - is cache enabled. Ret cr0 in eax if enabled else zero in eax. Block. ok.
		3127	; 2 - enable cache. Ret 1 in eax. Ret nothing. Block. ok.
		3128	; 3 - disable cache. Ret 0 in eax. Ret nothing. Block. ok.
		3129	;eax
		3130	;3 - rdmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		3131	;4 - wrmsr. Counter in edx. (edx:eax) [esi:edi, edx] => [edx:esi, ecx]. Ret in ebx:eax. Block. ok.
		3132	;---------------------------------------------------------------------------------------------
		3133	iglobal
		3134	align 4
		3135	sheduler:
		3136	dd sys_sheduler.00
		3137	dd change_task
		3138	dd sys_sheduler.02
		3139	dd sys_sheduler.03
		3140	dd sys_sheduler.04
		3141	endg
		3142	sys_sheduler:
		3143	;rewritten by 29.12.2009
		3144	jmp dword [sheduler+ebx*4]
		3145	;.shed_counter:
		3146	.00:
		3147	mov eax, [context_counter]
		3148	mov [esp+32], eax
		3149	ret
		3150
		3151	.02:
		3152	;.perf_control:
		3153	inc ebx ;before ebx=2, ebx=3
		3154	cmp ebx, ecx ;if ecx=3, ebx=3
		3155	jz cache_disable
		3156
		3157	dec ebx ;ebx=2
		3158	cmp ebx, ecx ;
		3159	jz cache_enable ;if ecx=2 and ebx=2
		3160
		3161	dec ebx ;ebx=1
		3162	cmp ebx, ecx
		3163	jz is_cache_enabled ;if ecx=1 and ebx=1
		3164
		3165	dec ebx
		3166	test ebx, ecx ;ebx=0 and ecx=0
		3167	jz modify_pce ;if ecx=0
		3168
		3169	ret
		3170
		3171	.03:
		3172	;.rdmsr_instr:
		3173	;now counter in ecx
		3174	;(edx:eax) esi:edi => edx:esi
		3175	mov eax, esi
		3176	mov ecx, edx
		3177	rdmsr
		3178	mov [esp+32], eax
		3179	mov [esp+20], edx ;ret in ebx?
		3180	ret
		3181
		3182	.04:
		3183	;.wrmsr_instr:
		3184	;now counter in ecx
		3185	;(edx:eax) esi:edi => edx:esi
		3186	; Fast Call MSR can't be destroy
		3187	; �� MSR_AMD_EFER �� , �.�. � �⮬ ॣ��
		3188	; ��/�몫�� ७��
		3189	cmp edx, MSR_SYSENTER_CS
		3190	je @f
		3191	cmp edx, MSR_SYSENTER_ESP
		3192	je @f
		3193	cmp edx, MSR_SYSENTER_EIP
		3194	je @f
		3195	cmp edx, MSR_AMD_STAR
		3196	je @f
		3197
		3198	mov eax, esi
		3199	mov ecx, edx
		3200	wrmsr
		3201	; mov [esp + 32], eax
		3202	; mov [esp + 20], edx ;ret in ebx?
		3203	@@:
		3204	ret
		3205
		3206	cache_disable:
		3207	mov eax, cr0
		3208	or eax, 01100000000000000000000000000000b
		3209	mov cr0, eax
		3210	wbinvd ;set MESI
		3211	ret
		3212
		3213	cache_enable:
		3214	mov eax, cr0
		3215	and eax, 10011111111111111111111111111111b
		3216	mov cr0, eax
		3217	ret
		3218
		3219	is_cache_enabled:
		3220	mov eax, cr0
		3221	mov ebx, eax
		3222	and eax, 01100000000000000000000000000000b
		3223	jz cache_disabled
		3224	mov [esp+32], ebx
		3225	cache_disabled:
		3226	mov dword [esp+32], eax;0
		3227	ret
		3228
		3229	modify_pce:
		3230	mov eax, cr4
		3231	; mov ebx,0
		3232	; or bx,100000000b ;pce
		3233	; xor eax,ebx ;invert pce
		3234	bts eax, 8;pce=cr4[8]
		3235	mov cr4, eax
		3236	mov [esp+32], eax
		3237	ret
		3238	;---------------------------------------------------------------------------------------------
		3239
		3240
		3241	; check if pixel is allowed to be drawn
		3242
2446	mario79	3243	;checkpixel:
		3244	; push eax edx
2288	clevermous	3245
2446	mario79	3246	;; mov edx, [Screen_Max_X] ; screen x size
		3247	;; inc edx
		3248	;; imul edx, ebx
		3249	; mov edx, [d_width_calc_area + ebx*4]
		3250	; add eax, [_WinMapAddress]
		3251	; mov dl, [eax+edx]; lea eax, [...]
2288	clevermous	3252
2446	mario79	3253	; xor ecx, ecx
		3254	; mov eax, [CURRENT_TASK]
		3255	; cmp al, dl
		3256	; setne cl
2288	clevermous	3257
2446	mario79	3258	; pop edx eax
		3259	; ret
2288	clevermous	3260
		3261	iglobal
		3262	cpustring db 'CPU',0
		3263	endg
		3264
		3265	uglobal
		3266	background_defined db 0 ; diamond, 11.04.2006
		3267	endg
2513	mario79	3268	;-----------------------------------------------------------------------------
2288	clevermous	3269	align 4
		3270	checkmisc:
		3271	cmp [ctrl_alt_del], 1
		3272	jne nocpustart
		3273
		3274	mov ebp, cpustring
		3275	call fs_execute_from_sysdir
		3276
		3277	mov [ctrl_alt_del], 0
2513	mario79	3278	;--------------------------------------
		3279	align 4
2288	clevermous	3280	nocpustart:
		3281	cmp [mouse_active], 1
		3282	jne mouse_not_active
		3283	mov [mouse_active], 0
2411	Serge	3284
2288	clevermous	3285	xor edi, edi
2411	Serge	3286	mov ebx, CURRENT_TASK
		3287
2288	clevermous	3288	mov ecx, [TASK_COUNT]
2408	Serge	3289	movzx eax, word [WIN_POS + ecx*2] ; active window
		3290	shl eax, 8
2414	Serge	3291	push eax
2408	Serge	3292
2414	Serge	3293	movzx eax, word [MOUSE_X]
		3294	movzx edx, word [MOUSE_Y]
2513	mario79	3295	;--------------------------------------
2408	Serge	3296	align 4
		3297	.set_mouse_event:
2288	clevermous	3298	add edi, 256
2411	Serge	3299	add ebx, 32
		3300	test [ebx+TASKDATA.event_mask], 0x80000000
2414	Serge	3301	jz .pos_filter
		3302
		3303	cmp edi, [esp] ; skip if filtration active
		3304	jne .skip
2513	mario79	3305	;--------------------------------------
		3306	align 4
2414	Serge	3307	.pos_filter:
		3308	test [ebx+TASKDATA.event_mask], 0x40000000
2411	Serge	3309	jz .set
2288	clevermous	3310
2414	Serge	3311	mov esi, [ebx-twdw+WDATA.box.left]
		3312	cmp eax, esi
		3313	jb .skip
		3314	add esi, [ebx-twdw+WDATA.box.width]
		3315	cmp eax, esi
		3316	ja .skip
		3317
		3318	mov esi, [ebx-twdw+WDATA.box.top]
		3319	cmp edx, esi
		3320	jb .skip
		3321	add esi, [ebx-twdw+WDATA.box.height]
		3322	cmp edx, esi
		3323	ja .skip
2513	mario79	3324	;--------------------------------------
		3325	align 4
2411	Serge	3326	.set:
2513	mario79	3327	or [edi+SLOT_BASE+APPDATA.event_mask], 100000b ; set event 6
		3328	;--------------------------------------
		3329	align 4
2411	Serge	3330	.skip:
2408	Serge	3331	loop .set_mouse_event
		3332
2414	Serge	3333	pop eax
2513	mario79	3334	;--------------------------------------
		3335	align 4
2288	clevermous	3336	mouse_not_active:
2524	mario79	3337	xor eax, eax
		3338	xchg al, [REDRAW_BACKGROUND]
		3339	test al, al ; background update ?
2288	clevermous	3340	jz nobackgr
2524	mario79	3341
2288	clevermous	3342	cmp [background_defined], 0
		3343	jz nobackgr
2513	mario79	3344	;--------------------------------------
		3345	align 4
2288	clevermous	3346	@@:
2537	mario79	3347	push eax
		3348	mov eax, [draw_data+32 + RECT.left]
		3349	shl eax, 16
		3350	add eax, [draw_data+32 + RECT.right]
		3351	mov [BG_Rect_X_left_right], eax ; [left]*65536 + [right]
		3352
		3353	mov eax, [draw_data+32 + RECT.top]
		3354	shl eax, 16
		3355	add eax, [draw_data+32 + RECT.bottom]
		3356	mov [BG_Rect_Y_top_bottom], eax ; [top]*65536 + [bottom]
		3357	pop eax
		3358
2288	clevermous	3359	call drawbackground
2513	mario79	3360	;--------- set event 5 start ----------
		3361	push ecx edi
		3362	xor edi, edi
		3363	mov ecx, [TASK_COUNT]
		3364	;--------------------------------------
		3365	align 4
		3366	set_bgr_event:
		3367	add edi, 256
		3368	or [edi+SLOT_BASE+APPDATA.event_mask], 10000b ; set event 5
		3369	loop set_bgr_event
		3370	pop edi ecx
2537	mario79	3371	; call change_task - because the application must have time to call f.15.8
		3372	call change_task
2513	mario79	3373	;--------- set event 5 stop -----------
2288	clevermous	3374	xor eax, eax
		3375	xchg al, [REDRAW_BACKGROUND]
		3376	test al, al ; got new update request?
		3377	jnz @b
2513	mario79	3378
2288	clevermous	3379	mov [draw_data+32 + RECT.left], eax
		3380	mov [draw_data+32 + RECT.top], eax
		3381	mov [draw_data+32 + RECT.right], eax
		3382	mov [draw_data+32 + RECT.bottom], eax
		3383	mov [MOUSE_BACKGROUND], byte 0
2513	mario79	3384	;--------------------------------------
		3385	align 4
2288	clevermous	3386	nobackgr:
2513	mario79	3387	; system shutdown request
2288	clevermous	3388	cmp [SYS_SHUTDOWN], byte 0
		3389	je noshutdown
		3390
		3391	mov edx, [shutdown_processes]
		3392
		3393	cmp [SYS_SHUTDOWN], dl
		3394	jne no_mark_system_shutdown
		3395
		3396	lea ecx, [edx-1]
		3397	mov edx, OS_BASE+0x3040
		3398	jecxz @f
2513	mario79	3399	;--------------------------------------
		3400	align 4
2288	clevermous	3401	markz:
		3402	mov [edx+TASKDATA.state], byte 3
		3403	add edx, 0x20
		3404	loop markz
2513	mario79	3405	;--------------------------------------
		3406	align 4
2288	clevermous	3407	@@:
2513	mario79	3408	no_mark_system_shutdown:
2288	clevermous	3409	dec byte [SYS_SHUTDOWN]
		3410	je system_shutdown
2513	mario79	3411	;--------------------------------------
		3412	align 4
2288	clevermous	3413	noshutdown:
		3414	mov eax, [TASK_COUNT] ; termination
		3415	mov ebx, TASK_DATA+TASKDATA.state
		3416	mov esi, 1
2513	mario79	3417	;--------------------------------------
		3418	align 4
2288	clevermous	3419	newct:
		3420	mov cl, [ebx]
		3421	cmp cl, byte 3
		3422	jz terminate
2513	mario79	3423
2288	clevermous	3424	cmp cl, byte 4
		3425	jz terminate
		3426
		3427	add ebx, 0x20
		3428	inc esi
		3429	dec eax
		3430	jnz newct
		3431	ret
2513	mario79	3432	;-----------------------------------------------------------------------------
		3433	align 4
2288	clevermous	3434	redrawscreen:
		3435	; eax , if process window_data base is eax, do not set flag/limits
		3436
		3437	pushad
		3438	push eax
		3439
		3440	;;; mov ebx,2
		3441	;;; call delay_hs
		3442
		3443	;mov ecx,0 ; redraw flags for apps
		3444	xor ecx, ecx
2513	mario79	3445	;--------------------------------------
		3446	align 4
		3447	newdw2:
2288	clevermous	3448	inc ecx
		3449	push ecx
		3450
		3451	mov eax, ecx
		3452	shl eax, 5
		3453	add eax, window_data
		3454
		3455	cmp eax, [esp+4]
		3456	je not_this_task
		3457	; check if window in redraw area
		3458	mov edi, eax
		3459
		3460	cmp ecx, 1 ; limit for background
		3461	jz bgli
		3462
		3463	mov eax, [edi + WDATA.box.left]
		3464	mov ebx, [edi + WDATA.box.top]
		3465	mov ecx, [edi + WDATA.box.width]
		3466	mov edx, [edi + WDATA.box.height]
		3467	add ecx, eax
		3468	add edx, ebx
		3469
		3470	mov ecx, [draw_limits.bottom] ; ecx = area y end ebx = window y start
		3471	cmp ecx, ebx
		3472	jb ricino
		3473
		3474	mov ecx, [draw_limits.right] ; ecx = area x end eax = window x start
		3475	cmp ecx, eax
		3476	jb ricino
		3477
		3478	mov eax, [edi + WDATA.box.left]
		3479	mov ebx, [edi + WDATA.box.top]
		3480	mov ecx, [edi + WDATA.box.width]
		3481	mov edx, [edi + WDATA.box.height]
		3482	add ecx, eax
		3483	add edx, ebx
		3484
		3485	mov eax, [draw_limits.top] ; eax = area y start edx = window y end
		3486	cmp edx, eax
		3487	jb ricino
		3488
		3489	mov eax, [draw_limits.left] ; eax = area x start ecx = window x end
		3490	cmp ecx, eax
		3491	jb ricino
2513	mario79	3492	;--------------------------------------
		3493	align 4
		3494	bgli:
2288	clevermous	3495	cmp dword[esp], 1
		3496	jnz .az
2513	mario79	3497
2288	clevermous	3498	cmp byte[REDRAW_BACKGROUND], 0
		3499	jz .az
2513	mario79	3500
2288	clevermous	3501	mov dl, 0
		3502	lea eax, [edi+draw_data-window_data]
		3503	mov ebx, [draw_limits.left]
		3504	cmp ebx, [eax+RECT.left]
		3505	jae @f
2513	mario79	3506
2288	clevermous	3507	mov [eax+RECT.left], ebx
		3508	mov dl, 1
2513	mario79	3509	;--------------------------------------
		3510	align 4
		3511	@@:
2288	clevermous	3512	mov ebx, [draw_limits.top]
		3513	cmp ebx, [eax+RECT.top]
		3514	jae @f
2513	mario79	3515
2288	clevermous	3516	mov [eax+RECT.top], ebx
		3517	mov dl, 1
2513	mario79	3518	;--------------------------------------
		3519	align 4
		3520	@@:
2288	clevermous	3521	mov ebx, [draw_limits.right]
		3522	cmp ebx, [eax+RECT.right]
		3523	jbe @f
2513	mario79	3524
2288	clevermous	3525	mov [eax+RECT.right], ebx
		3526	mov dl, 1
2513	mario79	3527	;--------------------------------------
		3528	align 4
		3529	@@:
2288	clevermous	3530	mov ebx, [draw_limits.bottom]
		3531	cmp ebx, [eax+RECT.bottom]
		3532	jbe @f
2513	mario79	3533
2288	clevermous	3534	mov [eax+RECT.bottom], ebx
		3535	mov dl, 1
2513	mario79	3536	;--------------------------------------
		3537	align 4
		3538	@@:
2288	clevermous	3539	add byte[REDRAW_BACKGROUND], dl
		3540	jmp newdw8
2513	mario79	3541	;--------------------------------------
		3542	align 4
		3543	.az:
2288	clevermous	3544	mov eax, edi
		3545	add eax, draw_data-window_data
		3546
		3547	mov ebx, [draw_limits.left] ; set limits
		3548	mov [eax + RECT.left], ebx
		3549	mov ebx, [draw_limits.top]
		3550	mov [eax + RECT.top], ebx
		3551	mov ebx, [draw_limits.right]
		3552	mov [eax + RECT.right], ebx
		3553	mov ebx, [draw_limits.bottom]
		3554	mov [eax + RECT.bottom], ebx
		3555
		3556	sub eax, draw_data-window_data
		3557
		3558	cmp dword [esp], 1
		3559	jne nobgrd
		3560	inc byte[REDRAW_BACKGROUND]
2513	mario79	3561	;--------------------------------------
		3562	align 4
		3563	newdw8:
		3564	nobgrd:
2288	clevermous	3565
		3566	mov [eax + WDATA.fl_redraw], byte 1 ; mark as redraw
2513	mario79	3567	;--------------------------------------
		3568	align 4
		3569	ricino:
		3570	not_this_task:
2288	clevermous	3571	pop ecx
		3572
		3573	cmp ecx, [TASK_COUNT]
		3574	jle newdw2
		3575
		3576	pop eax
		3577	popad
		3578	ret
2513	mario79	3579	;-----------------------------------------------------------------------------
		3580	align 4
2288	clevermous	3581	calculatebackground: ; background
		3582	mov edi, [_WinMapAddress] ; set os to use all pixels
		3583	mov eax, 0x01010101
		3584	mov ecx, [_WinMapSize]
		3585	shr ecx, 2
		3586	rep stosd
		3587
		3588	mov byte[REDRAW_BACKGROUND], 0 ; do not draw background!
		3589	ret
2513	mario79	3590	;-----------------------------------------------------------------------------
2288	clevermous	3591	uglobal
		3592	imax dd 0x0
		3593	endg
2513	mario79	3594	;-----------------------------------------------------------------------------
		3595	align 4
2288	clevermous	3596	delay_ms: ; delay in 1/1000 sec
		3597	push eax
		3598	push ecx
		3599
		3600	mov ecx, esi
		3601	;
		3602	imul ecx, 33941
		3603	shr ecx, 9
		3604	;
		3605
		3606	in al, 0x61
		3607	and al, 0x10
		3608	mov ah, al
		3609	cld
2513	mario79	3610	;--------------------------------------
		3611	align 4
		3612	cnt1:
2288	clevermous	3613	in al, 0x61
		3614	and al, 0x10
		3615	cmp al, ah
		3616	jz cnt1
		3617
		3618	mov ah, al
		3619	loop cnt1
		3620
		3621	pop ecx
		3622	pop eax
		3623	ret
2513	mario79	3624	;-----------------------------------------------------------------------------
2411	Serge	3625	align 4
2288	clevermous	3626	set_app_param:
		3627	mov edi, [TASK_BASE]
2408	Serge	3628	mov eax, ebx
		3629	btr eax, 3 ; move MOUSE_FILTRATION
		3630	mov ebx, [current_slot] ; bit into event_filter
		3631	setc byte [ebx+APPDATA.event_filter]
		3632	xchg eax, [edi + TASKDATA.event_mask] ; set new event mask
		3633	mov [esp+32], eax ; return old mask value
2288	clevermous	3634	ret
2513	mario79	3635	;-----------------------------------------------------------------------------
		3636	align 4
2288	clevermous	3637	delay_hs: ; delay in 1/100 secs
		3638	; ebx = delay time
		3639	push ecx
		3640	push edx
		3641
		3642	mov edx, [timer_ticks]
2513	mario79	3643	;--------------------------------------
		3644	align 4
		3645	newtic:
2288	clevermous	3646	mov ecx, [timer_ticks]
		3647	sub ecx, edx
		3648	cmp ecx, ebx
		3649	jae zerodelay
		3650
		3651	call change_task
		3652
		3653	jmp newtic
2513	mario79	3654	;--------------------------------------
		3655	align 4
		3656	zerodelay:
2288	clevermous	3657	pop edx
		3658	pop ecx
		3659	ret
2513	mario79	3660	;-----------------------------------------------------------------------------
2288	clevermous	3661	align 16 ;very often call this subrutine
		3662	memmove: ; memory move in bytes
		3663	; eax = from
		3664	; ebx = to
		3665	; ecx = no of bytes
		3666	test ecx, ecx
		3667	jle .ret
		3668
		3669	push esi edi ecx
		3670
		3671	mov edi, ebx
		3672	mov esi, eax
		3673
		3674	test ecx, not 11b
		3675	jz @f
		3676
		3677	push ecx
		3678	shr ecx, 2
		3679	rep movsd
		3680	pop ecx
		3681	and ecx, 11b
		3682	jz .finish
2513	mario79	3683	;--------------------------------------
		3684	align 4
		3685	@@:
2288	clevermous	3686	rep movsb
2513	mario79	3687	;--------------------------------------
		3688	align 4
		3689	.finish:
2288	clevermous	3690	pop ecx edi esi
2513	mario79	3691	;--------------------------------------
		3692	align 4
		3693	.ret:
2288	clevermous	3694	ret
2513	mario79	3695	;-----------------------------------------------------------------------------
2288	clevermous	3696	; Sysfunction 34, read_floppy_file, is obsolete. Use 58 or 70 function instead.
		3697	;align 4
		3698	;
		3699	;read_floppy_file:
		3700	;
		3701	;; as input
		3702	;;
		3703	;; eax pointer to file
		3704	;; ebx file lenght
		3705	;; ecx start 512 byte block number
		3706	;; edx number of blocks to read
		3707	;; esi pointer to return/work area (atleast 20 000 bytes)
		3708	;;
		3709	;;
		3710	;; on return
		3711	;;
		3712	;; eax = 0 command succesful
		3713	;; 1 no fd base and/or partition defined
		3714	;; 2 yet unsupported FS
		3715	;; 3 unknown FS
		3716	;; 4 partition not defined at hd
		3717	;; 5 file not found
		3718	;; ebx = size of file
		3719	;
		3720	; mov edi,[TASK_BASE]
		3721	; add edi,0x10
		3722	; add esi,[edi]
		3723	; add eax,[edi]
		3724	;
		3725	; pushad
		3726	; mov edi,esi
		3727	; add edi,1024
		3728	; mov esi,0x100000+19*512
		3729	; sub ecx,1
		3730	; shl ecx,9
		3731	; add esi,ecx
		3732	; shl edx,9
		3733	; mov ecx,edx
		3734	; cld
		3735	; rep movsb
		3736	; popad
		3737	;
		3738	; mov [esp+36],eax
		3739	; mov [esp+24],ebx
		3740	; ret
		3741
		3742
		3743
		3744	align 4
		3745	set_io_access_rights:
		3746	push edi eax
		3747	mov edi, tss._io_map_0
		3748	; mov ecx,eax
		3749	; and ecx,7 ; offset in byte
		3750	; shr eax,3 ; number of byte
		3751	; add edi,eax
		3752	; mov ebx,1
		3753	; shl ebx,cl
		3754	test ebp, ebp
		3755	; cmp ebp,0 ; enable access - ebp = 0
		3756	jnz .siar1
		3757	; not ebx
		3758	; and [edi],byte bl
		3759	btr [edi], eax
		3760	pop eax edi
		3761	ret
		3762	.siar1:
		3763	bts [edi], eax
		3764	; or [edi],byte bl ; disable access - ebp = 1
		3765	pop eax edi
		3766	ret
		3767	;reserve/free group of ports
		3768	; * eax = 46 - number function
		3769	; * ebx = 0 - reserve, 1 - free
		3770	; * ecx = number start arrea of ports
		3771	; * edx = number end arrea of ports (include last number of port)
		3772	;Return value:
		3773	; * eax = 0 - succesful
		3774	; * eax = 1 - error
		3775	; * The system has reserve this ports:
		3776	; 0..0x2d, 0x30..0x4d, 0x50..0xdf, 0xe5..0xff (include last number of port).
		3777	;destroys eax,ebx, ebp
		3778	r_f_port_area:
		3779
		3780	test ebx, ebx
		3781	jnz free_port_area
		3782	; je r_port_area
		3783	; jmp free_port_area
		3784
		3785	; r_port_area:
		3786
		3787	; pushad
		3788
		3789	cmp ecx, edx ; beginning > end ?
		3790	ja rpal1
		3791	cmp edx, 65536
		3792	jae rpal1
		3793	mov eax, [RESERVED_PORTS]
		3794	test eax, eax ; no reserved areas ?
		3795	je rpal2
		3796	cmp eax, 255 ; max reserved
		3797	jae rpal1
		3798	rpal3:
		3799	mov ebx, eax
		3800	shl ebx, 4
		3801	add ebx, RESERVED_PORTS
		3802	cmp ecx, [ebx+8]
		3803	ja rpal4
		3804	cmp edx, [ebx+4]
		3805	jae rpal1
		3806	; jb rpal4
		3807	; jmp rpal1
		3808	rpal4:
		3809	dec eax
		3810	jnz rpal3
		3811	jmp rpal2
		3812	rpal1:
		3813	; popad
		3814	; mov eax,1
		3815	xor eax, eax
		3816	inc eax
		3817	ret
		3818	rpal2:
		3819	; popad
		3820	; enable port access at port IO map
		3821	cli
		3822	pushad ; start enable io map
		3823
		3824	cmp edx, 65536;16384
		3825	jae no_unmask_io; jge
		3826	mov eax, ecx
		3827	; push ebp
		3828	xor ebp, ebp ; enable - eax = port
		3829	new_port_access:
		3830	; pushad
		3831	call set_io_access_rights
		3832	; popad
		3833	inc eax
		3834	cmp eax, edx
		3835	jbe new_port_access
		3836	; pop ebp
		3837	no_unmask_io:
		3838	popad ; end enable io map
		3839	sti
		3840
		3841	mov eax, [RESERVED_PORTS]
		3842	add eax, 1
		3843	mov [RESERVED_PORTS], eax
		3844	shl eax, 4
		3845	add eax, RESERVED_PORTS
		3846	mov ebx, [TASK_BASE]
		3847	mov ebx, [ebx+TASKDATA.pid]
		3848	mov [eax], ebx
		3849	mov [eax+4], ecx
		3850	mov [eax+8], edx
		3851
		3852	xor eax, eax
		3853	ret
		3854
		3855	free_port_area:
		3856
		3857	; pushad
		3858	mov eax, [RESERVED_PORTS]; no reserved areas ?
		3859	test eax, eax
		3860	jz frpal2
		3861	mov ebx, [TASK_BASE]
		3862	mov ebx, [ebx+TASKDATA.pid]
		3863	frpal3:
		3864	mov edi, eax
		3865	shl edi, 4
		3866	add edi, RESERVED_PORTS
		3867	cmp ebx, [edi]
		3868	jne frpal4
		3869	cmp ecx, [edi+4]
		3870	jne frpal4
		3871	cmp edx, [edi+8]
		3872	jne frpal4
		3873	jmp frpal1
		3874	frpal4:
		3875	dec eax
		3876	jnz frpal3
		3877	frpal2:
		3878	; popad
		3879	inc eax
		3880	ret
		3881	frpal1:
		3882	push ecx
		3883	mov ecx, 256
		3884	sub ecx, eax
		3885	shl ecx, 4
		3886	mov esi, edi
		3887	add esi, 16
		3888	cld
		3889	rep movsb
		3890
		3891	dec dword [RESERVED_PORTS]
		3892	;popad
		3893	;disable port access at port IO map
		3894
		3895	; pushad ; start disable io map
		3896	pop eax ;start port
		3897	cmp edx, 65536;16384
		3898	jge no_mask_io
		3899
		3900	; mov eax,ecx
		3901	xor ebp, ebp
		3902	inc ebp
		3903	new_port_access_disable:
		3904	; pushad
		3905	; mov ebp,1 ; disable - eax = port
		3906	call set_io_access_rights
		3907	; popad
		3908	inc eax
		3909	cmp eax, edx
		3910	jbe new_port_access_disable
		3911	no_mask_io:
		3912	; popad ; end disable io map
		3913	xor eax, eax
		3914	ret
2430	mario79	3915	;-----------------------------------------------------------------------------
2288	clevermous	3916	align 4
		3917	drawbackground:
2430	mario79	3918	dbrv20:
2288	clevermous	3919	cmp [BgrDrawMode], dword 1
		3920	jne bgrstr
		3921	call vesa20_drawbackground_tiled
2453	mario79	3922	; call [draw_pointer]
		3923	call __sys_draw_pointer
2288	clevermous	3924	ret
2430	mario79	3925	;--------------------------------------
		3926	align 4
		3927	bgrstr:
2288	clevermous	3928	call vesa20_drawbackground_stretch
2453	mario79	3929	; call [draw_pointer]
		3930	call __sys_draw_pointer
2288	clevermous	3931	ret
2430	mario79	3932	;-----------------------------------------------------------------------------
2288	clevermous	3933	align 4
		3934	syscall_putimage: ; PutImage
		3935	sys_putimage:
		3936	test ecx, 0x80008000
		3937	jnz .exit
		3938	test ecx, 0x0000FFFF
		3939	jz .exit
		3940	test ecx, 0xFFFF0000
		3941	jnz @f
2430	mario79	3942	;--------------------------------------
		3943	align 4
		3944	.exit:
2288	clevermous	3945	ret
2430	mario79	3946	;--------------------------------------
		3947	align 4
		3948	@@:
2288	clevermous	3949	mov edi, [current_slot]
		3950	add dx, word[edi+APPDATA.wnd_clientbox.top]
		3951	rol edx, 16
		3952	add dx, word[edi+APPDATA.wnd_clientbox.left]
		3953	rol edx, 16
2430	mario79	3954	;--------------------------------------
		3955	align 4
		3956	.forced:
2288	clevermous	3957	push ebp esi 0
		3958	mov ebp, putimage_get24bpp
		3959	mov esi, putimage_init24bpp
2430	mario79	3960	;--------------------------------------
		3961	align 4
2288	clevermous	3962	sys_putimage_bpp:
2430	mario79	3963	call vesa20_putimage
2288	clevermous	3964	pop ebp esi ebp
2430	mario79	3965	ret
		3966	; jmp [draw_pointer]
		3967	;-----------------------------------------------------------------------------
2288	clevermous	3968	align 4
		3969	sys_putimage_palette:
		3970	; ebx = pointer to image
		3971	; ecx = [xsize]*65536 + [ysize]
		3972	; edx = [xstart]*65536 + [ystart]
		3973	; esi = number of bits per pixel, must be 8, 24 or 32
		3974	; edi = pointer to palette
		3975	; ebp = row delta
		3976	mov eax, [CURRENT_TASK]
		3977	shl eax, 8
		3978	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.top]
		3979	rol edx, 16
		3980	add dx, word [eax+SLOT_BASE+APPDATA.wnd_clientbox.left]
		3981	rol edx, 16
2430	mario79	3982	;--------------------------------------
		3983	align 4
2288	clevermous	3984	.forced:
		3985	cmp esi, 1
		3986	jnz @f
		3987	push edi
		3988	mov eax, [edi+4]
		3989	sub eax, [edi]
		3990	push eax
		3991	push dword [edi]
		3992	push 0ffffff80h
		3993	mov edi, esp
		3994	call put_mono_image
		3995	add esp, 12
		3996	pop edi
		3997	ret
2430	mario79	3998	;--------------------------------------
		3999	align 4
2288	clevermous	4000	@@:
		4001	cmp esi, 2
		4002	jnz @f
		4003	push edi
		4004	push 0ffffff80h
		4005	mov edi, esp
		4006	call put_2bit_image
		4007	pop eax
		4008	pop edi
		4009	ret
2430	mario79	4010	;--------------------------------------
		4011	align 4
2288	clevermous	4012	@@:
		4013	cmp esi, 4
		4014	jnz @f
		4015	push edi
		4016	push 0ffffff80h
		4017	mov edi, esp
		4018	call put_4bit_image
		4019	pop eax
		4020	pop edi
		4021	ret
2430	mario79	4022	;--------------------------------------
		4023	align 4
2288	clevermous	4024	@@:
		4025	push ebp esi ebp
		4026	cmp esi, 8
		4027	jnz @f
		4028	mov ebp, putimage_get8bpp
		4029	mov esi, putimage_init8bpp
		4030	jmp sys_putimage_bpp
2430	mario79	4031	;--------------------------------------
		4032	align 4
2288	clevermous	4033	@@:
		4034	cmp esi, 15
		4035	jnz @f
		4036	mov ebp, putimage_get15bpp
		4037	mov esi, putimage_init15bpp
		4038	jmp sys_putimage_bpp
2430	mario79	4039	;--------------------------------------
		4040	align 4
2288	clevermous	4041	@@:
		4042	cmp esi, 16
		4043	jnz @f
		4044	mov ebp, putimage_get16bpp
		4045	mov esi, putimage_init16bpp
		4046	jmp sys_putimage_bpp
2430	mario79	4047	;--------------------------------------
		4048	align 4
2288	clevermous	4049	@@:
		4050	cmp esi, 24
		4051	jnz @f
		4052	mov ebp, putimage_get24bpp
		4053	mov esi, putimage_init24bpp
		4054	jmp sys_putimage_bpp
2430	mario79	4055	;--------------------------------------
		4056	align 4
2288	clevermous	4057	@@:
		4058	cmp esi, 32
		4059	jnz @f
		4060	mov ebp, putimage_get32bpp
		4061	mov esi, putimage_init32bpp
		4062	jmp sys_putimage_bpp
2430	mario79	4063	;--------------------------------------
		4064	align 4
2288	clevermous	4065	@@:
		4066	pop ebp esi ebp
		4067	ret
2430	mario79	4068	;-----------------------------------------------------------------------------
		4069	align 4
2288	clevermous	4070	put_mono_image:
		4071	push ebp esi ebp
		4072	mov ebp, putimage_get1bpp
		4073	mov esi, putimage_init1bpp
		4074	jmp sys_putimage_bpp
2430	mario79	4075	;-----------------------------------------------------------------------------
		4076	align 4
2288	clevermous	4077	put_2bit_image:
		4078	push ebp esi ebp
		4079	mov ebp, putimage_get2bpp
		4080	mov esi, putimage_init2bpp
		4081	jmp sys_putimage_bpp
2430	mario79	4082	;-----------------------------------------------------------------------------
		4083	align 4
2288	clevermous	4084	put_4bit_image:
		4085	push ebp esi ebp
		4086	mov ebp, putimage_get4bpp
		4087	mov esi, putimage_init4bpp
		4088	jmp sys_putimage_bpp
2430	mario79	4089	;-----------------------------------------------------------------------------
		4090	align 4
2288	clevermous	4091	putimage_init24bpp:
		4092	lea eax, [eax*3]
		4093	putimage_init8bpp:
		4094	ret
2430	mario79	4095	;-----------------------------------------------------------------------------
2288	clevermous	4096	align 16
		4097	putimage_get24bpp:
		4098	movzx eax, byte [esi+2]
		4099	shl eax, 16
		4100	mov ax, [esi]
		4101	add esi, 3
		4102	ret 4
2430	mario79	4103	;-----------------------------------------------------------------------------
2288	clevermous	4104	align 16
		4105	putimage_get8bpp:
		4106	movzx eax, byte [esi]
		4107	push edx
		4108	mov edx, [esp+8]
		4109	mov eax, [edx+eax*4]
		4110	pop edx
		4111	inc esi
		4112	ret 4
2430	mario79	4113	;-----------------------------------------------------------------------------
		4114	align 4
2288	clevermous	4115	putimage_init1bpp:
		4116	add eax, ecx
		4117	push ecx
		4118	add eax, 7
		4119	add ecx, 7
		4120	shr eax, 3
		4121	shr ecx, 3
		4122	sub eax, ecx
		4123	pop ecx
		4124	ret
2430	mario79	4125	;-----------------------------------------------------------------------------
2288	clevermous	4126	align 16
		4127	putimage_get1bpp:
		4128	push edx
		4129	mov edx, [esp+8]
		4130	mov al, [edx]
		4131	add al, al
		4132	jnz @f
		4133	lodsb
		4134	adc al, al
		4135	@@:
		4136	mov [edx], al
		4137	sbb eax, eax
		4138	and eax, [edx+8]
		4139	add eax, [edx+4]
		4140	pop edx
		4141	ret 4
2430	mario79	4142	;-----------------------------------------------------------------------------
		4143	align 4
2288	clevermous	4144	putimage_init2bpp:
		4145	add eax, ecx
		4146	push ecx
		4147	add ecx, 3
		4148	add eax, 3
		4149	shr ecx, 2
		4150	shr eax, 2
		4151	sub eax, ecx
		4152	pop ecx
		4153	ret
2430	mario79	4154	;-----------------------------------------------------------------------------
2288	clevermous	4155	align 16
		4156	putimage_get2bpp:
		4157	push edx
		4158	mov edx, [esp+8]
		4159	mov al, [edx]
		4160	mov ah, al
		4161	shr al, 6
		4162	shl ah, 2
		4163	jnz .nonewbyte
		4164	lodsb
		4165	mov ah, al
		4166	shr al, 6
		4167	shl ah, 2
		4168	add ah, 1
		4169	.nonewbyte:
		4170	mov [edx], ah
		4171	mov edx, [edx+4]
		4172	movzx eax, al
		4173	mov eax, [edx+eax*4]
		4174	pop edx
		4175	ret 4
2430	mario79	4176	;-----------------------------------------------------------------------------
		4177	align 4
2288	clevermous	4178	putimage_init4bpp:
		4179	add eax, ecx
		4180	push ecx
		4181	add ecx, 1
		4182	add eax, 1
		4183	shr ecx, 1
		4184	shr eax, 1
		4185	sub eax, ecx
		4186	pop ecx
		4187	ret
2430	mario79	4188	;-----------------------------------------------------------------------------
2288	clevermous	4189	align 16
		4190	putimage_get4bpp:
		4191	push edx
		4192	mov edx, [esp+8]
		4193	add byte [edx], 80h
		4194	jc @f
		4195	movzx eax, byte [edx+1]
		4196	mov edx, [edx+4]
		4197	and eax, 0x0F
		4198	mov eax, [edx+eax*4]
		4199	pop edx
		4200	ret 4
		4201	@@:
		4202	movzx eax, byte [esi]
		4203	add esi, 1
		4204	mov [edx+1], al
		4205	shr eax, 4
		4206	mov edx, [edx+4]
		4207	mov eax, [edx+eax*4]
		4208	pop edx
		4209	ret 4
2430	mario79	4210	;-----------------------------------------------------------------------------
		4211	align 4
2288	clevermous	4212	putimage_init32bpp:
		4213	shl eax, 2
		4214	ret
2430	mario79	4215	;-----------------------------------------------------------------------------
2288	clevermous	4216	align 16
		4217	putimage_get32bpp:
		4218	lodsd
		4219	ret 4
2430	mario79	4220	;-----------------------------------------------------------------------------
		4221	align 4
2288	clevermous	4222	putimage_init15bpp:
		4223	putimage_init16bpp:
		4224	add eax, eax
		4225	ret
2430	mario79	4226	;-----------------------------------------------------------------------------
2288	clevermous	4227	align 16
		4228	putimage_get15bpp:
		4229	; 0RRRRRGGGGGBBBBB -> 00000000RRRRR000GGGGG000BBBBB000
		4230	push ecx edx
		4231	movzx eax, word [esi]
		4232	add esi, 2
		4233	mov ecx, eax
		4234	mov edx, eax
		4235	and eax, 0x1F
		4236	and ecx, 0x1F shl 5
		4237	and edx, 0x1F shl 10
		4238	shl eax, 3
		4239	shl ecx, 6
		4240	shl edx, 9
		4241	or eax, ecx
		4242	or eax, edx
		4243	pop edx ecx
		4244	ret 4
2430	mario79	4245	;-----------------------------------------------------------------------------
2288	clevermous	4246	align 16
		4247	putimage_get16bpp:
		4248	; RRRRRGGGGGGBBBBB -> 00000000RRRRR000GGGGGG00BBBBB000
		4249	push ecx edx
		4250	movzx eax, word [esi]
		4251	add esi, 2
		4252	mov ecx, eax
		4253	mov edx, eax
		4254	and eax, 0x1F
		4255	and ecx, 0x3F shl 5
		4256	and edx, 0x1F shl 11
		4257	shl eax, 3
		4258	shl ecx, 5
		4259	shl edx, 8
		4260	or eax, ecx
		4261	or eax, edx
		4262	pop edx ecx
		4263	ret 4
2430	mario79	4264	;-----------------------------------------------------------------------------
		4265	;align 4
2288	clevermous	4266	; eax x beginning
		4267	; ebx y beginning
		4268	; ecx x end
		4269	; edx y end
		4270	; edi color
2430	mario79	4271	;__sys_drawbar:
		4272	; mov esi, [current_slot]
		4273	; add eax, [esi+APPDATA.wnd_clientbox.left]
		4274	; add ecx, [esi+APPDATA.wnd_clientbox.left]
		4275	; add ebx, [esi+APPDATA.wnd_clientbox.top]
		4276	; add edx, [esi+APPDATA.wnd_clientbox.top]
		4277	;--------------------------------------
		4278	;align 4
		4279	;.forced:
		4280	; call vesa20_drawbar
2407	mario79	4281	; call [draw_pointer]
		4282	; ret
2430	mario79	4283	;-----------------------------------------------------------------------------
		4284	align 4
2288	clevermous	4285	kb_read:
		4286
		4287	push ecx edx
		4288
		4289	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4290	kr_loop:
		4291	in al, 0x64
		4292	test al, 1
		4293	jnz kr_ready
		4294	loop kr_loop
		4295	mov ah, 1
		4296	jmp kr_exit
		4297	kr_ready:
		4298	push ecx
		4299	mov ecx, 32
		4300	kr_delay:
		4301	loop kr_delay
		4302	pop ecx
		4303	in al, 0x60
		4304	xor ah, ah
		4305	kr_exit:
		4306
		4307	pop edx ecx
		4308
		4309	ret
2430	mario79	4310	;-----------------------------------------------------------------------------
		4311	align 4
2288	clevermous	4312	kb_write:
		4313
		4314	push ecx edx
		4315
		4316	mov dl, al
		4317	; mov ecx,0x1ffff ; last 0xffff, new value in view of fast CPU's
		4318	; kw_loop1:
		4319	; in al,0x64
		4320	; test al,0x20
		4321	; jz kw_ok1
		4322	; loop kw_loop1
		4323	; mov ah,1
		4324	; jmp kw_exit
		4325	; kw_ok1:
		4326	in al, 0x60
		4327	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4328	kw_loop:
		4329	in al, 0x64
		4330	test al, 2
		4331	jz kw_ok
		4332	loop kw_loop
		4333	mov ah, 1
		4334	jmp kw_exit
		4335	kw_ok:
		4336	mov al, dl
		4337	out 0x60, al
		4338	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4339	kw_loop3:
		4340	in al, 0x64
		4341	test al, 2
		4342	jz kw_ok3
		4343	loop kw_loop3
		4344	mov ah, 1
		4345	jmp kw_exit
		4346	kw_ok3:
		4347	mov ah, 8
		4348	kw_loop4:
		4349	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4350	kw_loop5:
		4351	in al, 0x64
		4352	test al, 1
		4353	jnz kw_ok4
		4354	loop kw_loop5
		4355	dec ah
		4356	jnz kw_loop4
		4357	kw_ok4:
		4358	xor ah, ah
		4359	kw_exit:
		4360
		4361	pop edx ecx
		4362
		4363	ret
2430	mario79	4364	;-----------------------------------------------------------------------------
		4365	align 4
2288	clevermous	4366	kb_cmd:
		4367
		4368	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4369	c_wait:
		4370	in al, 0x64
		4371	test al, 2
		4372	jz c_send
		4373	loop c_wait
		4374	jmp c_error
		4375	c_send:
		4376	mov al, bl
		4377	out 0x64, al
		4378	mov ecx, 0x1ffff; last 0xffff, new value in view of fast CPU's
		4379	c_accept:
		4380	in al, 0x64
		4381	test al, 2
		4382	jz c_ok
		4383	loop c_accept
		4384	c_error:
		4385	mov ah, 1
		4386	jmp c_exit
		4387	c_ok:
		4388	xor ah, ah
		4389	c_exit:
		4390	ret
		4391
		4392
		4393	setmouse: ; set mousepicture -pointer
		4394	; ps2 mouse enable
		4395
2430	mario79	4396	; mov [MOUSE_PICTURE], dword mousepointer
2288	clevermous	4397
		4398	cli
		4399
		4400	ret
		4401
		4402	if used _rdtsc
		4403	_rdtsc:
		4404	bt [cpu_caps], CAPS_TSC
		4405	jnc ret_rdtsc
		4406	rdtsc
		4407	ret
		4408	ret_rdtsc:
		4409	mov edx, 0xffffffff
		4410	mov eax, 0xffffffff
		4411	ret
		4412	end if
		4413
		4414	sys_msg_board_str:
		4415
		4416	pushad
		4417	@@:
		4418	cmp [esi], byte 0
		4419	je @f
		4420	mov eax, 1
		4421	movzx ebx, byte [esi]
		4422	call sys_msg_board
		4423	inc esi
		4424	jmp @b
		4425	@@:
		4426	popad
		4427	ret
		4428
		4429	sys_msg_board_byte:
		4430	; in: al = byte to display
		4431	; out: nothing
		4432	; destroys: nothing
		4433	pushad
		4434	mov ecx, 2
		4435	shl eax, 24
		4436	jmp @f
		4437
		4438	sys_msg_board_word:
		4439	; in: ax = word to display
		4440	; out: nothing
		4441	; destroys: nothing
		4442	pushad
		4443	mov ecx, 4
		4444	shl eax, 16
		4445	jmp @f
		4446
		4447	sys_msg_board_dword:
		4448	; in: eax = dword to display
		4449	; out: nothing
		4450	; destroys: nothing
		4451	pushad
		4452	mov ecx, 8
		4453	@@:
		4454	push ecx
		4455	rol eax, 4
		4456	push eax
		4457	and al, 0xF
		4458	cmp al, 10
		4459	sbb al, 69h
		4460	das
		4461	mov bl, al
		4462	xor eax, eax
		4463	inc eax
		4464	call sys_msg_board
		4465	pop eax
		4466	pop ecx
		4467	loop @b
		4468	popad
		4469	ret
		4470
		4471	uglobal
		4472	msg_board_data:
		4473	times 4096 db 0
		4474	msg_board_count dd 0x0
		4475	endg
		4476
		4477	sys_msg_board:
		4478
		4479	; eax=1 : write : bl byte to write
		4480	; eax=2 : read : ebx=0 -> no data, ebx=1 -> data in al
		4481
		4482	mov ecx, [msg_board_count]
		4483	cmp eax, 1
		4484	jne .smbl1
		4485
		4486	if defined debug_com_base
		4487
		4488	push dx ax
		4489
		4490	@@: ; Wait for empty transmit register (yes, this slows down system..)
		4491	mov dx, debug_com_base+5
		4492	in al, dx
		4493	test al, 1 shl 5
		4494	jz @r
		4495
		4496	mov dx, debug_com_base ; Output the byte
		4497	mov al, bl
		4498	out dx, al
		4499
		4500	pop ax dx
		4501
		4502	end if
		4503
		4504	mov [msg_board_data+ecx], bl
		4505	inc ecx
		4506	and ecx, 4095
		4507	mov [msg_board_count], ecx
		4508	mov [check_idle_semaphore], 5
		4509	ret
		4510	.smbl1:
		4511	cmp eax, 2
		4512	jne .smbl2
		4513	test ecx, ecx
		4514	jz .smbl21
		4515	mov eax, msg_board_data+1
		4516	mov ebx, msg_board_data
		4517	movzx edx, byte [ebx]
		4518	call memmove
		4519	dec [msg_board_count]
		4520	mov [esp + 36], edx ;eax
		4521	mov [esp + 24], dword 1
		4522	ret
		4523	.smbl21:
		4524	mov [esp+36], ecx
		4525	mov [esp+24], ecx
		4526	.smbl2:
		4527	ret
		4528
		4529	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4530	;; 66 sys function. ;;
		4531	;; in eax=66,ebx in [0..5],ecx,edx ;;
		4532	;; out eax ;;
		4533	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4534	iglobal
		4535	align 4
		4536	f66call:
		4537	dd sys_process_def.1 ; 1 = set keyboard mode
		4538	dd sys_process_def.2 ; 2 = get keyboard mode
		4539	dd sys_process_def.3 ; 3 = get keyboard ctrl, alt, shift
		4540	dd sys_process_def.4
		4541	dd sys_process_def.5
		4542	endg
		4543
		4544
		4545
		4546
		4547	sys_process_def:
		4548	dec ebx
		4549	cmp ebx, 5
		4550	jae .not_support ;if >=6 then or eax,-1
		4551
		4552	mov edi, [CURRENT_TASK]
		4553	jmp dword [f66call+ebx*4]
		4554
		4555	.not_support:
		4556	or eax, -1
		4557	ret
		4558
		4559	.1:
		4560	shl edi, 8
		4561	mov [edi+SLOT_BASE + APPDATA.keyboard_mode], cl
		4562
		4563	ret
		4564
		4565	.2: ; 2 = get keyboard mode
		4566	shl edi, 8
		4567	movzx eax, byte [SLOT_BASE+edi + APPDATA.keyboard_mode]
		4568	mov [esp+32], eax
		4569	ret
		4570	; xor eax,eax
		4571	; movzx eax,byte [shift]
		4572	; movzx ebx,byte [ctrl]
		4573	; shl ebx,2
		4574	; add eax,ebx
		4575	; movzx ebx,byte [alt]
		4576	; shl ebx,3
		4577	; add eax,ebx
		4578	.3: ;3 = get keyboard ctrl, alt, shift
		4579	;// mike.dld [
		4580	mov eax, [kb_state]
		4581	;// mike.dld ]
		4582	mov [esp+32], eax
		4583	ret
		4584
		4585	.4:
		4586	mov eax, hotkey_list
		4587	@@:
		4588	cmp dword [eax+8], 0
		4589	jz .found_free
		4590	add eax, 16
		4591	cmp eax, hotkey_list+16*256
		4592	jb @b
		4593	mov dword [esp+32], 1
		4594	ret
		4595	.found_free:
		4596	mov [eax+8], edi
		4597	mov [eax+4], edx
		4598	movzx ecx, cl
		4599	lea ecx, [hotkey_scancodes+ecx*4]
		4600	mov edx, [ecx]
		4601	mov [eax], edx
		4602	mov [ecx], eax
		4603	mov [eax+12], ecx
		4604	jecxz @f
		4605	mov [edx+12], eax
		4606	@@:
		4607	and dword [esp+32], 0
		4608	ret
		4609
		4610	.5:
		4611	movzx ebx, cl
		4612	lea ebx, [hotkey_scancodes+ebx*4]
		4613	mov eax, [ebx]
		4614	.scan:
		4615	test eax, eax
		4616	jz .notfound
		4617	cmp [eax+8], edi
		4618	jnz .next
		4619	cmp [eax+4], edx
		4620	jz .found
		4621	.next:
		4622	mov eax, [eax]
		4623	jmp .scan
		4624	.notfound:
		4625	mov dword [esp+32], 1
		4626	ret
		4627	.found:
		4628	mov ecx, [eax]
		4629	jecxz @f
		4630	mov edx, [eax+12]
		4631	mov [ecx+12], edx
		4632	@@:
		4633	mov ecx, [eax+12]
		4634	mov edx, [eax]
		4635	mov [ecx], edx
		4636	xor edx, edx
		4637	mov [eax+4], edx
		4638	mov [eax+8], edx
		4639	mov [eax+12], edx
		4640	mov [eax], edx
		4641	mov [esp+32], edx
		4642	ret
		4643
		4644
		4645	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4646	;; 61 sys function. ;;
		4647	;; in eax=61,ebx in [1..3] ;;
		4648	;; out eax ;;
		4649	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		4650	iglobal
		4651	align 4
		4652	f61call:
		4653	dd sys_gs.1 ; resolution
		4654	dd sys_gs.2 ; bits per pixel
		4655	dd sys_gs.3 ; bytes per scanline
		4656	endg
		4657
		4658
		4659	align 4
		4660
		4661	sys_gs: ; direct screen access
		4662	dec ebx
		4663	cmp ebx, 2
		4664	ja .not_support
		4665	jmp dword [f61call+ebx*4]
		4666	.not_support:
		4667	or [esp+32], dword -1
		4668	ret
		4669
		4670
		4671	.1: ; resolution
		4672	mov eax, [Screen_Max_X]
		4673	shl eax, 16
		4674	mov ax, [Screen_Max_Y]
		4675	add eax, 0x00010001
		4676	mov [esp+32], eax
		4677	ret
		4678	.2: ; bits per pixel
		4679	movzx eax, byte [ScreenBPP]
		4680	mov [esp+32], eax
		4681	ret
		4682	.3: ; bytes per scanline
		4683	mov eax, [BytesPerScanLine]
		4684	mov [esp+32], eax
		4685	ret
		4686
		4687	align 4 ; system functions
		4688
		4689	syscall_setpixel: ; SetPixel
		4690
		4691	mov eax, ebx
		4692	mov ebx, ecx
		4693	mov ecx, edx
		4694	mov edx, [TASK_BASE]
		4695	add eax, [edx-twdw+WDATA.box.left]
		4696	add ebx, [edx-twdw+WDATA.box.top]
		4697	mov edi, [current_slot]
		4698	add eax, [edi+APPDATA.wnd_clientbox.left]
		4699	add ebx, [edi+APPDATA.wnd_clientbox.top]
		4700	xor edi, edi ; no force
2430	mario79	4701	and ecx, 0xFBFFFFFF ;negate 0x04000000 save to mouseunder area
2453	mario79	4702	; jmp [putpixel]
		4703	jmp __sys_putpixel
2288	clevermous	4704
		4705	align 4
		4706
		4707	syscall_writetext: ; WriteText
		4708
		4709	mov eax, [TASK_BASE]
		4710	mov ebp, [eax-twdw+WDATA.box.left]
		4711	push esi
		4712	mov esi, [current_slot]
		4713	add ebp, [esi+APPDATA.wnd_clientbox.left]
		4714	shl ebp, 16
		4715	add ebp, [eax-twdw+WDATA.box.top]
		4716	add bp, word[esi+APPDATA.wnd_clientbox.top]
		4717	pop esi
		4718	add ebx, ebp
		4719	mov eax, edi
2536	mario79	4720	test ecx, 0x08000000 ; redirect the output to the user area
		4721	jnz dtext
2288	clevermous	4722	xor edi, edi
		4723	jmp dtext
		4724
		4725	align 4
		4726
		4727	syscall_openramdiskfile: ; OpenRamdiskFile
		4728
		4729	mov eax, ebx
		4730	mov ebx, ecx
		4731	mov ecx, edx
		4732	mov edx, esi
		4733	mov esi, 12
		4734	call fileread
		4735	mov [esp+32], eax
		4736	ret
		4737
		4738	align 4
		4739
		4740	syscall_drawrect: ; DrawRect
		4741
		4742	mov edi, edx ; color + gradient
		4743	and edi, 0x80FFFFFF
		4744	test bx, bx ; x.size
		4745	je .drectr
		4746	test cx, cx ; y.size
		4747	je .drectr
		4748
		4749	mov eax, ebx ; bad idea
		4750	mov ebx, ecx
		4751
		4752	movzx ecx, ax ; ecx - x.size
		4753	shr eax, 16 ; eax - x.coord
		4754	movzx edx, bx ; edx - y.size
		4755	shr ebx, 16 ; ebx - y.coord
		4756	mov esi, [current_slot]
		4757
		4758	add eax, [esi + APPDATA.wnd_clientbox.left]
		4759	add ebx, [esi + APPDATA.wnd_clientbox.top]
		4760	add ecx, eax
		4761	add edx, ebx
2453	mario79	4762	; jmp [drawbar]
		4763	jmp vesa20_drawbar
2288	clevermous	4764	.drectr:
		4765	ret
		4766
		4767	align 4
		4768	syscall_getscreensize: ; GetScreenSize
		4769	mov ax, [Screen_Max_X]
		4770	shl eax, 16
		4771	mov ax, [Screen_Max_Y]
		4772	mov [esp + 32], eax
		4773	ret
		4774
		4775	align 4
		4776
		4777	syscall_cdaudio: ; CD
		4778
		4779	cmp ebx, 4
		4780	jb .audio
		4781	jz .eject
		4782	cmp ebx, 5
		4783	jnz .ret
		4784	.load:
		4785	call .reserve
		4786	call LoadMedium
		4787	;call .free
		4788	jmp .free
		4789	; ret
		4790	.eject:
		4791	call .reserve
		4792	call clear_CD_cache
		4793	call allow_medium_removal
		4794	call EjectMedium
		4795	; call .free
		4796	jmp .free
		4797	; ret
		4798	.audio:
		4799	call sys_cd_audio
		4800	mov [esp+36-4], eax
		4801	.ret:
		4802	ret
		4803
		4804	.reserve:
		4805	call reserve_cd
		4806	mov eax, ecx
		4807	shr eax, 1
		4808	and eax, 1
		4809	inc eax
		4810	mov [ChannelNumber], ax
		4811	mov eax, ecx
		4812	and eax, 1
		4813	mov [DiskNumber], al
		4814	call reserve_cd_channel
		4815	and ebx, 3
		4816	inc ebx
		4817	mov [cdpos], ebx
		4818	add ebx, ebx
		4819	mov cl, 8
		4820	sub cl, bl
		4821	mov al, [DRIVE_DATA+1]
		4822	shr al, cl
		4823	test al, 2
		4824	jz .free;.err
		4825	ret
		4826	.free:
		4827	call free_cd_channel
		4828	and [cd_status], 0
		4829	ret
		4830	.err:
		4831	call .free
		4832	; pop eax
		4833	ret
2511	mario79	4834	;-----------------------------------------------------------------------------
2288	clevermous	4835	align 4
2511	mario79	4836	syscall_getpixel_WinMap: ; GetPixel WinMap
		4837	cmp ebx, [Screen_Max_X]
		4838	jbe @f
		4839	cmp ecx, [Screen_Max_Y]
		4840	jbe @f
		4841	xor eax, eax
		4842	jmp .store
		4843	;--------------------------------------
		4844	align 4
		4845	@@:
		4846	mov eax, [d_width_calc_area + ecx*4]
		4847	add eax, [_WinMapAddress]
		4848	movzx eax, byte[eax+ebx] ; get value for current point
		4849	;--------------------------------------
		4850	align 4
		4851	.store:
		4852	mov [esp + 32], eax
		4853	ret
		4854	;-----------------------------------------------------------------------------
		4855	align 4
2288	clevermous	4856	syscall_getpixel: ; GetPixel
		4857	mov ecx, [Screen_Max_X]
		4858	inc ecx
		4859	xor edx, edx
		4860	mov eax, ebx
		4861	div ecx
		4862	mov ebx, edx
		4863	xchg eax, ebx
2430	mario79	4864	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	4865	call dword [GETPIXEL]; eax - x, ebx - y
		4866	mov [esp + 32], ecx
		4867	ret
2509	mario79	4868	;-----------------------------------------------------------------------------
2288	clevermous	4869	align 4
		4870	syscall_getarea:
		4871	;eax = 36
		4872	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		4873	;ecx = [size x]*65536 + [size y]
		4874	;edx = [start x]*65536 + [start y]
		4875	pushad
		4876	mov edi, ebx
		4877	mov eax, edx
		4878	shr eax, 16
		4879	mov ebx, edx
		4880	and ebx, 0xffff
		4881	dec eax
		4882	dec ebx
		4883	; eax - x, ebx - y
		4884	mov edx, ecx
		4885
		4886	shr ecx, 16
		4887	and edx, 0xffff
		4888	mov esi, ecx
		4889	; ecx - size x, edx - size y
		4890
		4891	mov ebp, edx
		4892	dec ebp
		4893	lea ebp, [ebp*3]
		4894
		4895	imul ebp, esi
		4896
		4897	mov esi, ecx
		4898	dec esi
		4899	lea esi, [esi*3]
		4900
		4901	add ebp, esi
		4902	add ebp, edi
		4903
		4904	add ebx, edx
2509	mario79	4905	;--------------------------------------
		4906	align 4
2288	clevermous	4907	.start_y:
		4908	push ecx edx
2509	mario79	4909	;--------------------------------------
		4910	align 4
2288	clevermous	4911	.start_x:
		4912	push eax ebx ecx
		4913	add eax, ecx
		4914
2430	mario79	4915	and ecx, 0xFBFFFFFF ;negate 0x04000000 use mouseunder area
2288	clevermous	4916	call dword [GETPIXEL]; eax - x, ebx - y
		4917
		4918	mov [ebp], cx
		4919	shr ecx, 16
		4920	mov [ebp+2], cl
		4921
		4922	pop ecx ebx eax
		4923	sub ebp, 3
		4924	dec ecx
		4925	jnz .start_x
		4926	pop edx ecx
		4927	dec ebx
		4928	dec edx
		4929	jnz .start_y
		4930	popad
		4931	ret
2509	mario79	4932	;-----------------------------------------------------------------------------
		4933	align 4
		4934	syscall_putarea_backgr:
		4935	;eax = 25
		4936	;ebx = pointer to bufer for img BBGGRRBBGGRR...
		4937	;ecx = [size x]*65536 + [size y]
		4938	;edx = [start x]*65536 + [start y]
		4939	pushad
		4940	mov edi, ebx
		4941	mov eax, edx
		4942	shr eax, 16
		4943	mov ebx, edx
		4944	and ebx, 0xffff
		4945	dec eax
		4946	dec ebx
		4947	; eax - x, ebx - y
		4948	mov edx, ecx
		4949	shr ecx, 16
		4950	and edx, 0xffff
		4951	mov esi, ecx
		4952	; ecx - size x, edx - size y
		4953	mov ebp, edx
		4954	dec ebp
		4955	shl ebp, 2
2288	clevermous	4956
2509	mario79	4957	imul ebp, esi
		4958
		4959	mov esi, ecx
		4960	dec esi
		4961	shl esi, 2
		4962
		4963	add ebp, esi
		4964	add ebp, edi
		4965
		4966	add ebx, edx
		4967	;--------------------------------------
2288	clevermous	4968	align 4
2509	mario79	4969	.start_y:
		4970	push ecx edx
		4971	;--------------------------------------
		4972	align 4
		4973	.start_x:
		4974	push eax ecx
		4975	add eax, ecx
2288	clevermous	4976
2509	mario79	4977	mov ecx, [ebp]
		4978	rol ecx, 8
		4979	test cl, cl ; transparensy = 0
		4980	jz .no_put
		4981
		4982	xor cl, cl
		4983	ror ecx, 8
		4984
		4985	pushad
		4986	mov edx, [d_width_calc_area + ebx*4]
		4987	add edx, [_WinMapAddress]
		4988	movzx edx, byte [eax+edx]
		4989	cmp dl, byte 1
		4990	jne @f
		4991
		4992	call dword [PUTPIXEL]; eax - x, ebx - y
		4993	;--------------------------------------
		4994	align 4
		4995	@@:
		4996	popad
		4997	;--------------------------------------
		4998	align 4
		4999	.no_put:
		5000	pop ecx eax
		5001
		5002	sub ebp, 4
		5003	dec ecx
		5004	jnz .start_x
		5005
		5006	pop edx ecx
		5007	dec ebx
		5008	dec edx
		5009	jnz .start_y
		5010
		5011	popad
		5012	ret
		5013	;-----------------------------------------------------------------------------
		5014	align 4
2288	clevermous	5015	syscall_drawline: ; DrawLine
		5016
		5017	mov edi, [TASK_BASE]
		5018	movzx eax, word[edi-twdw+WDATA.box.left]
		5019	mov ebp, eax
		5020	mov esi, [current_slot]
		5021	add ebp, [esi+APPDATA.wnd_clientbox.left]
		5022	add ax, word[esi+APPDATA.wnd_clientbox.left]
		5023	add ebp, ebx
		5024	shl eax, 16
		5025	movzx ebx, word[edi-twdw+WDATA.box.top]
		5026	add eax, ebp
		5027	mov ebp, ebx
		5028	add ebp, [esi+APPDATA.wnd_clientbox.top]
		5029	add bx, word[esi+APPDATA.wnd_clientbox.top]
		5030	add ebp, ecx
		5031	shl ebx, 16
		5032	xor edi, edi
		5033	add ebx, ebp
		5034	mov ecx, edx
2453	mario79	5035	; jmp [draw_line]
		5036	jmp __sys_draw_line
2288	clevermous	5037
		5038
		5039	align 4
		5040	syscall_reserveportarea: ; ReservePortArea and FreePortArea
		5041
		5042	call r_f_port_area
		5043	mov [esp+32], eax
		5044	ret
		5045
		5046	align 4
		5047	syscall_threads: ; CreateThreads
		5048	; eax=1 create thread
		5049	;
		5050	; ebx=thread start
		5051	; ecx=thread stack value
		5052	;
		5053	; on return : eax = pid
		5054
		5055	call new_sys_threads
		5056
		5057	mov [esp+32], eax
		5058	ret
		5059
		5060	align 4
		5061
		5062	stack_driver_stat:
		5063
		5064	call app_stack_handler ; Stack status
		5065
		5066	; mov [check_idle_semaphore],5 ; enable these for zero delay
		5067	; call change_task ; between sent packet
		5068
		5069	mov [esp+32], eax
		5070	ret
		5071
		5072	align 4
		5073
		5074	socket: ; Socket interface
		5075	call app_socket_handler
		5076
		5077	; mov [check_idle_semaphore],5 ; enable these for zero delay
		5078	; call change_task ; between sent packet
		5079
		5080	mov [esp+36], eax
		5081	mov [esp+24], ebx
		5082	ret
		5083
		5084	align 4
		5085
		5086	read_from_hd: ; Read from hd - fn not in use
		5087
		5088	mov edi, [TASK_BASE]
		5089	add edi, TASKDATA.mem_start
		5090	add eax, [edi]
		5091	add ecx, [edi]
		5092	add edx, [edi]
		5093	call file_read
		5094
		5095	mov [esp+36], eax
		5096	mov [esp+24], ebx
		5097
		5098	ret
		5099
		5100	paleholder:
		5101	ret
2438	mario79	5102	;------------------------------------------------------------------------------
2288	clevermous	5103	align 4
2438	mario79	5104	calculate_fast_getting_offset_for_WinMapAddress:
		5105	; calculate data area for fast getting offset to _WinMapAddress
2446	mario79	5106	xor eax, eax
2438	mario79	5107	mov ecx, [_display.height]
		5108	inc ecx
		5109	mov edi, d_width_calc_area
		5110	cld
		5111	@@:
		5112	stosd
		5113	add eax, [_display.width]
		5114	dec ecx
		5115	jnz @r
		5116	ret
		5117	;------------------------------------------------------------------------------
		5118	align 4
2480	mario79	5119	calculate_fast_getting_offset_for_LFB:
		5120	; calculate data area for fast getting offset to LFB
		5121	xor eax, eax
		5122	mov ecx, [_display.height]
		5123	inc ecx
		5124	mov edi, BPSLine_calc_area
		5125	cld
		5126	@@:
		5127	stosd
		5128	add eax, [BytesPerScanLine]
		5129	dec ecx
		5130	jnz @r
		5131	ret
		5132	;------------------------------------------------------------------------------
		5133	align 4
2288	clevermous	5134	set_screen:
		5135	cmp eax, [Screen_Max_X]
		5136	jne .set
		5137
		5138	cmp edx, [Screen_Max_Y]
		5139	jne .set
		5140	ret
		5141	.set:
		5142	pushfd
		5143	cli
		5144
		5145	mov [Screen_Max_X], eax
		5146	mov [Screen_Max_Y], edx
		5147	mov [BytesPerScanLine], ecx
		5148
		5149	mov [screen_workarea.right], eax
		5150	mov [screen_workarea.bottom], edx
		5151
		5152	push ebx
		5153	push esi
		5154	push edi
		5155
		5156	pushad
		5157
		5158	stdcall kernel_free, [_WinMapAddress]
		5159
		5160	mov eax, [_display.width]
		5161	mul [_display.height]
		5162	mov [_WinMapSize], eax
		5163
		5164	stdcall kernel_alloc, eax
		5165	mov [_WinMapAddress], eax
		5166	test eax, eax
		5167	jz .epic_fail
		5168
2438	mario79	5169	call calculate_fast_getting_offset_for_WinMapAddress
2545	mario79	5170	; for Qemu or non standart video cards
		5171	; Unfortunately [BytesPerScanLine] does not always
		5172	; equal to [_display.width] * [ScreenBPP] / 8
		5173	call calculate_fast_getting_offset_for_LFB
2288	clevermous	5174	popad
		5175
		5176	call repos_windows
		5177	xor eax, eax
		5178	xor ebx, ebx
		5179	mov ecx, [Screen_Max_X]
		5180	mov edx, [Screen_Max_Y]
		5181	call calculatescreen
		5182	pop edi
		5183	pop esi
		5184	pop ebx
		5185
		5186	popfd
		5187	ret
		5188
		5189	.epic_fail:
		5190	hlt ; Houston, we've had a problem
		5191
		5192	; --------------- APM ---------------------
		5193	uglobal
		5194	apm_entry dp 0
		5195	apm_vf dd 0
		5196	endg
		5197
		5198	align 4
		5199	sys_apm:
		5200	xor eax, eax
		5201	cmp word [apm_vf], ax ; Check APM BIOS enable
		5202	jne @f
		5203	inc eax
		5204	or dword [esp + 44], eax ; error
		5205	add eax, 7
		5206	mov dword [esp + 32], eax ; 32-bit protected-mode interface not supported
		5207	ret
		5208
		5209	@@:
		5210	; xchg eax, ecx
		5211	; xchg ebx, ecx
		5212
		5213	cmp dx, 3
		5214	ja @f
		5215	and [esp + 44], byte 0xfe ; emulate func 0..3 as func 0
		5216	mov eax, [apm_vf]
		5217	mov [esp + 32], eax
		5218	shr eax, 16
		5219	mov [esp + 28], eax
		5220	ret
		5221
		5222	@@:
		5223
		5224	mov esi, [master_tab+(OS_BASE shr 20)]
		5225	xchg [master_tab], esi
		5226	push esi
		5227	mov edi, cr3
		5228	mov cr3, edi ;flush TLB
		5229
		5230	call pword [apm_entry] ;call APM BIOS
		5231
		5232	xchg eax, [esp]
		5233	mov [master_tab], eax
		5234	mov eax, cr3
		5235	mov cr3, eax
		5236	pop eax
		5237
		5238	mov [esp + 4 ], edi
		5239	mov [esp + 8], esi
		5240	mov [esp + 20], ebx
		5241	mov [esp + 24], edx
		5242	mov [esp + 28], ecx
		5243	mov [esp + 32], eax
		5244	setc al
		5245	and [esp + 44], byte 0xfe
		5246	or [esp + 44], al
		5247	ret
		5248	; -----------------------------------------
		5249
		5250	align 4
		5251
		5252	undefined_syscall: ; Undefined system call
		5253	mov [esp + 32], dword -1
		5254	ret
		5255
		5256	align 4
		5257	system_shutdown: ; shut down the system
		5258
		5259	cmp byte [BOOT_VAR+0x9030], 1
		5260	jne @F
		5261	ret
		5262	@@:
		5263	call stop_all_services
		5264	push 3 ; stop playing cd
		5265	pop eax
		5266	call sys_cd_audio
		5267
		5268	yes_shutdown_param:
		5269	cli
		5270
		5271	if ~ defined extended_primary_loader
		5272	mov eax, kernel_file ; load kernel.mnt to 0x7000:0
		5273	push 12
		5274	pop esi
		5275	xor ebx, ebx
		5276	or ecx, -1
		5277	mov edx, OS_BASE+0x70000
		5278	call fileread
		5279
		5280	mov esi, restart_kernel_4000+OS_BASE+0x10000 ; move kernel re-starter to 0x4000:0
		5281	mov edi, OS_BASE+0x40000
		5282	mov ecx, 1000
		5283	rep movsb
		5284	end if
		5285
		5286	mov esi, BOOT_VAR ; restore 0x0 - 0xffff
		5287	mov edi, OS_BASE
		5288	mov ecx, 0x10000/4
		5289	cld
		5290	rep movsd
		5291
		5292	call restorefatchain
		5293
		5294	call IRQ_mask_all
		5295
		5296	if 0
		5297	mov word [OS_BASE+0x467+0], pr_mode_exit
		5298	mov word [OS_BASE+0x467+2], 0x1000
		5299
		5300	mov al, 0x0F
		5301	out 0x70, al
		5302	mov al, 0x05
		5303	out 0x71, al
		5304
		5305	mov al, 0xFE
		5306	out 0x64, al
		5307
		5308	hlt
		5309	jmp $-1
		5310
		5311	else
		5312	cmp byte [OS_BASE + 0x9030], 2
		5313	jnz no_acpi_power_off
		5314
		5315	; scan for RSDP
		5316	; 1) The first 1 Kb of the Extended BIOS Data Area (EBDA).
		5317	movzx eax, word [OS_BASE + 0x40E]
		5318	shl eax, 4
		5319	jz @f
		5320	mov ecx, 1024/16
		5321	call scan_rsdp
		5322	jnc .rsdp_found
		5323	@@:
		5324	; 2) The BIOS read-only memory space between 0E0000h and 0FFFFFh.
		5325	mov eax, 0xE0000
		5326	mov ecx, 0x2000
		5327	call scan_rsdp
		5328	jc no_acpi_power_off
		5329	.rsdp_found:
		5330	mov esi, [eax+16] ; esi contains physical address of the RSDT
		5331	mov ebp, [ipc_tmp]
		5332	stdcall map_page, ebp, esi, PG_MAP
		5333	lea eax, [esi+1000h]
		5334	lea edx, [ebp+1000h]
		5335	stdcall map_page, edx, eax, PG_MAP
		5336	and esi, 0xFFF
		5337	add esi, ebp
		5338	cmp dword [esi], 'RSDT'
		5339	jnz no_acpi_power_off
		5340	mov ecx, [esi+4]
		5341	sub ecx, 24h
		5342	jbe no_acpi_power_off
		5343	shr ecx, 2
		5344	add esi, 24h
		5345	.scan_fadt:
		5346	lodsd
		5347	mov ebx, eax
		5348	lea eax, [ebp+2000h]
		5349	stdcall map_page, eax, ebx, PG_MAP
		5350	lea eax, [ebp+3000h]
		5351	add ebx, 0x1000
		5352	stdcall map_page, eax, ebx, PG_MAP
		5353	and ebx, 0xFFF
		5354	lea ebx, [ebx+ebp+2000h]
		5355	cmp dword [ebx], 'FACP'
		5356	jz .fadt_found
		5357	loop .scan_fadt
		5358	jmp no_acpi_power_off
		5359	.fadt_found:
		5360	; ebx is linear address of FADT
		5361	mov edi, [ebx+40] ; physical address of the DSDT
		5362	lea eax, [ebp+4000h]
		5363	stdcall map_page, eax, edi, PG_MAP
		5364	lea eax, [ebp+5000h]
		5365	lea esi, [edi+0x1000]
		5366	stdcall map_page, eax, esi, PG_MAP
		5367	and esi, 0xFFF
		5368	sub edi, esi
		5369	cmp dword [esi+ebp+4000h], 'DSDT'
		5370	jnz no_acpi_power_off
		5371	mov eax, [esi+ebp+4004h] ; DSDT length
		5372	sub eax, 36+4
		5373	jbe no_acpi_power_off
		5374	add esi, 36
		5375	.scan_dsdt:
		5376	cmp dword [esi+ebp+4000h], '_S5_'
		5377	jnz .scan_dsdt_cont
		5378	cmp byte [esi+ebp+4000h+4], 12h ; DefPackage opcode
		5379	jnz .scan_dsdt_cont
		5380	mov dl, [esi+ebp+4000h+6]
		5381	cmp dl, 4 ; _S5_ package must contain 4 bytes
		5382	; ...in theory; in practice, VirtualBox has 2 bytes
		5383	ja .scan_dsdt_cont
		5384	cmp dl, 1
		5385	jb .scan_dsdt_cont
		5386	lea esi, [esi+ebp+4000h+7]
		5387	xor ecx, ecx
		5388	cmp byte [esi], 0 ; 0 means zero byte, 0Ah xx means byte xx
		5389	jz @f
		5390	cmp byte [esi], 0xA
		5391	jnz no_acpi_power_off
		5392	inc esi
		5393	mov cl, [esi]
		5394	@@:
		5395	inc esi
		5396	cmp dl, 2
		5397	jb @f
		5398	cmp byte [esi], 0
		5399	jz @f
		5400	cmp byte [esi], 0xA
		5401	jnz no_acpi_power_off
		5402	inc esi
		5403	mov ch, [esi]
		5404	@@:
		5405	jmp do_acpi_power_off
		5406	.scan_dsdt_cont:
		5407	inc esi
		5408	cmp esi, 0x1000
		5409	jb @f
		5410	sub esi, 0x1000
		5411	add edi, 0x1000
		5412	push eax
		5413	lea eax, [ebp+4000h]
		5414	stdcall map_page, eax, edi, PG_MAP
		5415	push PG_MAP
		5416	lea eax, [edi+1000h]
		5417	push eax
		5418	lea eax, [ebp+5000h]
		5419	push eax
		5420	stdcall map_page
		5421	pop eax
		5422	@@:
		5423	dec eax
		5424	jnz .scan_dsdt
		5425	jmp no_acpi_power_off
		5426	do_acpi_power_off:
		5427	mov edx, [ebx+48]
		5428	test edx, edx
		5429	jz .nosmi
		5430	mov al, [ebx+52]
		5431	out dx, al
		5432	mov edx, [ebx+64]
		5433	@@:
		5434	in ax, dx
		5435	test al, 1
		5436	jz @b
		5437	.nosmi:
		5438	and cx, 0x0707
		5439	shl cx, 2
		5440	or cx, 0x2020
		5441	mov edx, [ebx+64]
		5442	in ax, dx
		5443	and ax, 203h
		5444	or ah, cl
		5445	out dx, ax
		5446	mov edx, [ebx+68]
		5447	test edx, edx
		5448	jz @f
		5449	in ax, dx
		5450	and ax, 203h
		5451	or ah, ch
		5452	out dx, ax
		5453	@@:
		5454	jmp $
		5455
		5456
		5457	no_acpi_power_off:
		5458	mov word [OS_BASE+0x467+0], pr_mode_exit
		5459	mov word [OS_BASE+0x467+2], 0x1000
		5460
		5461	mov al, 0x0F
		5462	out 0x70, al
		5463	mov al, 0x05
		5464	out 0x71, al
		5465
		5466	mov al, 0xFE
		5467	out 0x64, al
		5468
		5469	hlt
		5470	jmp $-1
		5471
		5472	scan_rsdp:
		5473	add eax, OS_BASE
		5474	.s:
		5475	cmp dword [eax], 'RSD '
		5476	jnz .n
		5477	cmp dword [eax+4], 'PTR '
		5478	jnz .n
		5479	xor edx, edx
		5480	xor esi, esi
		5481	@@:
		5482	add dl, [eax+esi]
		5483	inc esi
		5484	cmp esi, 20
		5485	jnz @b
		5486	test dl, dl
		5487	jz .ok
		5488	.n:
		5489	add eax, 10h
		5490	loop .s
		5491	stc
		5492	.ok:
		5493	ret
		5494	end if
		5495
		5496	include "data32.inc"
		5497
		5498	__REV__ = __REV
		5499
		5500	uglobals_size = $ - endofcode
		5501	diff16 "end of kernel code",0,$

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm @ 5851 – Rev 2547