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

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

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/kernel.asm @ 2150 – Rev 1523