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

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

Subversion Repositories Kolibri OS

(root)/kernel/trunk/kernel.asm – Rev 549