WebSVN – Kolibri OS – Blame – /kernel/branches/flat

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

Subversion Repositories Kolibri OS

(root)/kernel/branches/flat_kernel/kernel.asm @ 445 – Rev