Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                               ;;

;;          DEVICE SETUP         ;;

;;                               ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; version:      1.16

; last update:  12/04/2014

; changed by:   Yurii Shevtsov, aka gtament

; changes:      Fixed junk draw at the bottom of window

;---------------------------------------------------------------------

; version:      1.15

; last update:  20/04/2012

; changed by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      Add the flag of speaker mute.

;               Correcting setup.dat

;---------------------------------------------------------------------

; version:      1.14

; last update:  20/03/2012

; changed by:   Marat Zakiyanov aka Mario79, aka Mario

; changes:      optimisations and code refactoring

;---------------------------------------------------------------------

; Authors: Ville       - original version

;          A. Ivushkin - autostart (w launcher)

;          M. Lisovin  - added many feauters (apply all, save all, set time...)

;          I. Poddubny - fixed russian keymap

;14/08/06  Mario79 - added regulation of mouse features

;-------------------------------------------------------------------------------

format binary as ""

	use32

	org 0x0

	db 'MENUET01'	; 8 byte identifier

	dd 0x01 	; header version

	dd START	; pointer to program start

	dd IM_END	; size of image

	dd I_END	; reguired amount of memory

	dd stack_area	; stack pointer (esp)

	dd boot_param	; boot parameters

	dd 0x0		; path

;-------------------------------------------------------------------------------

include '../../../macros.inc'

;-------------------------------------------------------------------------------

LLL equ (56+3)

BBB equ 25

;-------------------------------------------------------------------------------

apply_all:

	call	_pci_acc    ;12

	call	_syslang    ;5

	call	_keyboard    ;2

	call	_mouse_speed

	call	_mouse_delay

	call	_speaker_mute

	ret

;-------------------------------------------------------------------------------

apply_all_and_exit:

	mcall	70,read_fileinfo

	call	apply_all

	jmp	close

;-------------------------------------------------------------------------------

set_language_and_exit:

	mcall	26,2,9

	cmp	eax,1

	je	russian

	xor	eax,eax

;--------------------------------------

set_lang_now:

	mov	[keyboard],eax

	call	_keyboard

	jmp	close

;--------------------------------------

russian:

	mov	eax,3

	jmp	set_lang_now

;-------------------------------------------------------------------------------

set_syslanguage_and_exit:

	mcall	26,5

	cmp	eax,6

	jne	temp

	xor	eax,eax

;--------------------------------------

temp:

	inc	eax

	mov	[syslang],eax

	call	_syslang

	jmp	close

;-------------------------------------------------------------------------------

get_setup_values:

	mcall	26,2,9

	dec	eax

	mov	[keyboard],eax

	mcall	26,5

	mov	[syslang],eax

	mcall	26,11

	mov	[lba_read],eax

	mcall	26,12

	mov	[pci_acc],eax

	mcall	18,19,0

	mov	[mouse_speed],eax

	mcall	18,19,2

	mov	[mouse_delay],eax

	mcall	18,8,1

	mov	[speaker_mute],eax

	ret

;-------------------------------------------------------------------------------

START:

	mov	eax,boot_param

	cmp	[eax],dword 'SLAN'

	je	set_syslanguage_and_exit

	cmp	[eax],dword 'LANG'

	je	set_language_and_exit

	cmp	[eax],dword 'BOOT'

	je	apply_all_and_exit

	call	get_setup_values

	call	loadtxt

	call	draw_infotext

;-------------------------------------------------------------------------------

red:

	call	draw_window

;-------------------------------------------------------------------------------

still:

sysevent:

	mcall	23,8	      ; wait here for event with timeout

	cmp	eax,1

	jz	red

	cmp	eax,2

	jz	key

	cmp	eax,3

	jz	button

	jmp	still

;-------------------------------------------------------------------------------

key:

	mcall	2

	jmp	still

;-------------------------------------------------------------------------------

button:

	mcall	17

	cmp	ah,99

	jne	nosaveall

	mcall	70,save_fileinfo

	jmp	still

;--------------------------------------

nosaveall:

	cmp	ah,100

	jne	no_apply_all

	call	apply_all

	jmp	still

;--------------------------------------

no_apply_all:

	cmp	ah,1	; CLOSE APPLICATION

	jne	no_close

;--------------------------------------

close:

	or	eax,-1

	mcall

;--------------------------------------

no_close:

	cmp	ah,4	; SET KEYBOARD

	jnz	nokm

	mov	eax,[keyboard]

	test	eax,eax

	je	downuplbl

	dec	eax

	jmp	nodownup

;--------------------------------------

downuplbl:

	mov	eax,7

;--------------------------------------

nodownup:

	mov	[keyboard],eax

	call	draw_infotext

;--------------------------------------

nokm:

	cmp	ah,5

	jnz	nokp

	mov	eax,[keyboard]

	cmp	eax,7

	je	updownlbl

	inc	eax

	jmp	noupdown

;--------------------------------------

updownlbl:

	xor	eax,eax

;--------------------------------------

noupdown:

	mov	[keyboard],eax

	call	draw_infotext

;--------------------------------------

nokp:

	cmp	ah,92	; SET LBA READ

	jne	no_lba_d

;--------------------------------------

slbal:

	btc	[lba_read],0

	call	draw_infotext

	jmp	still

;--------------------------------------

no_lba_d:

	cmp	ah,93

	jne	no_lba_i

	jmp	slbal

;--------------------------------------

no_lba_i:

	cmp	ah,91

	jne	no_set_lba_read

	call	_lba_read

	jmp	still

;--------------------------------------

no_set_lba_read:

	cmp	ah,102	; SET PCI ACCESS

	jne	no_pci_d

;--------------------------------------

pcip:

	btc	[pci_acc],0

	call	draw_infotext

	jmp	still

;--------------------------------------

no_pci_d:

	cmp	ah,103

	jne	no_pci_i

	jmp	pcip

;--------------------------------------

no_pci_i:

	cmp	ah,101

	jne	no_set_pci_acc

	call	_pci_acc

	jmp	still

;--------------------------------------

no_set_pci_acc:

	cmp	ah,42	; SET SYSTEM LANGUAGE BASE

	jnz	nosysm

	mov	eax,[syslang]

	dec	eax

	jz	still

	mov	[syslang],eax

	call	draw_infotext

;--------------------------------------

nosysm:

	cmp	ah,43

	jnz	nosysp

	mov	eax,[syslang]

	cmp	eax,6

	je	nosysp

	inc	eax

	mov	[syslang],eax

	call	draw_infotext

;--------------------------------------

nosysp:

	cmp	ah,41

	jnz	nosyss

	call	_syslang

	call	cleantxt

	call	loadtxt

	call	draw_window

;--------------------------------------

nosyss:

	cmp	ah,132	; SET MOUSE SPEED

	jnz	.nominus

	mov	eax,[mouse_speed]

	sub	eax,2

	cmp	eax,9

	jb	@f

	mov	eax,8

;--------------------------------------

@@:

	inc	eax

	mov	[mouse_speed],eax

	call	draw_infotext

;--------------------------------------

.nominus:

	cmp	ah,133

	jnz	.noplus

	mov	eax,[mouse_speed]

	cmp	eax,9

	jb	@f

	mov	eax,0

;--------------------------------------

@@:

	inc	eax

	mov	[mouse_speed],eax

	call	draw_infotext

;--------------------------------------

.noplus:

	cmp	ah,131

	jnz	.noapply

	call	_mouse_speed

;--------------------------------------

.noapply:

mousedelay:

	cmp	ah,142	      ; SET MOUSE DELAY

	jnz	.nominus

	mov	eax,[mouse_delay]

	sub	eax,2

	cmp	eax,0xfff

	jb	@f

	mov	eax,0xffe

;--------------------------------------

@@:

	inc	eax

	mov	[mouse_delay],eax

	call	draw_infotext

;--------------------------------------

.nominus:

	cmp	ah,143

	jnz	.noplus

	mov	eax,[mouse_delay]

	cmp	eax,0xfff

	jb	@f

	mov	eax,0

;--------------------------------------

@@:

	inc	eax

	mov	[mouse_delay],eax

	call	draw_infotext

;--------------------------------------

.noplus:

	cmp	ah,141

	jnz	speakermute

	call	_mouse_delay

;--------------------------------------

speakermute:

	cmp	ah,152	; SET SPEAKER

	jne	no_speaker_d

;--------------------------------------

speaker_p:

	btc	[speaker_mute],0

	call	draw_infotext

	jmp	still

;--------------------------------------

no_speaker_d:

	cmp	ah,153

	jne	no_speaker_i

	jmp	speaker_p

;--------------------------------------

no_speaker_i:

	cmp	ah,151

	jne	.noapply

	call	_speaker_mute

	jmp	still

;--------------------------------------

.noapply:

	cmp	ah,3	      ; SET KEYMAP

	jne	still

	call	_keyboard

	jmp	still

;-------------------------------------------------------------------------------

_keyboard:

	cmp	[keyboard],0	; english

	jnz	nosetkeyle

	mcall	21,2,1,en_keymap

	inc	ecx

	mcall	21,,,en_keymap_shift

	mcall	21,,9,1

	call	alt_gen

;--------------------------------------

nosetkeyle:

	cmp	[keyboard],1	; finnish

	jnz	nosetkeylfi

	mcall	21,2,1,fi_keymap

	inc	ecx

	mcall	21,,,fi_keymap_shift

	mcall	21,,9,2

	call	alt_gen

;--------------------------------------

nosetkeylfi:

	cmp  [keyboard],2	; german

	jnz  nosetkeylge

	mcall	21,2,1,ge_keymap

	inc	ecx

	mcall	21,,,ge_keymap_shift

	mcall	21,,9,3

	call	alt_gen

;--------------------------------------

nosetkeylge:

	cmp	[keyboard],3	; russian

	jnz	nosetkeylru

	mcall	21,2,1,ru_keymap

	inc	ecx

	mcall	21,,,ru_keymap_shift

	mcall	21,,9,4

	call	alt_gen

;--------------------------------------

nosetkeylru:

	cmp	[keyboard],4	;french

	jnz	nosetkeylfr

	mcall	21,2,1,fr_keymap

	inc	ecx

	mcall	21,,,fr_keymap_shift

	inc  ecx

	mcall	21,,,fr_keymap_alt_gr

	mcall	21,,9,5

;--------------------------------------

nosetkeylfr:

	cmp	[keyboard],5	; estonian

	jnz	nosetkeylet

	mcall	21,2,1,et_keymap

	inc	ecx

	mcall	21,,,et_keymap_shift

	mcall	21,,9,6

	call	alt_gen

;--------------------------------------

nosetkeylet:

	cmp	[keyboard],6	;belgian

	jnz	nosetkeylit

	mcall	21,2,1,be_keymap

	inc	ecx

	mcall	21,,,be_keymap_shift

	inc  ecx

	mcall	21,,,be_keymap_alt_gr

	mcall	21,,9,7

;--------------------------------------

nosetkeylit:

	cmp	[keyboard],7	;italian

	jnz	nosetkeylbe

	mcall	21,2,1,it_keymap

	inc	ecx

	mcall	21,,,it_keymap_shift

	inc	ecx

	mcall	21,,,it_keymap_alt_gr

	mcall	21,,9,8

;--------------------------------------

nosetkeylbe:

	ret

;-------------------------------------------------------------------------------

alt_gen:

	mcall	21,,3,alt_general

	ret

;-------------------------------------------------------------------------------

draw_buttons:

	pusha

	shl  ecx,16

	add  ecx,12

	mcall	8,<(350-57),(46+BBB)>

	inc	edx

	mcall	,<(350-85),9>

	inc	edx

	mcall	,<(350-73),9>

	popa

	ret

;-------------------------------------------------------------------------------

; ********************************************

; ******* WINDOW DEFINITIONS AND DRAW  *******

; ********************************************

draw_window:

	pusha

	mcall	12,1

	xor	eax,eax       ; DRAW WINDOW

	xor	esi,esi

	mcall	,<40,(355+BBB)>,<40,(12*16)>,0xB4111199,,title

	mcall	9,procinfo,-1

	mov	eax,[ebx+70] ;status of window

	test	eax,100b

	jne	.end

	mcall	8,<(350-85),100>,<(5+16*8),12>,100,0x005588dd	; APPLY ALL

	add	ecx,16*65536	      ; SAVE ALL

	dec	edx

	mcall

	mov	esi,0x5580c0

	mov	edx,41

	mov	ecx,5+0*8

	call	draw_buttons

	mov	edx,3

	mov	ecx,5+2*8

	call	draw_buttons

	mov	edx,91

	mov	ecx,5+4*8

	call	draw_buttons

	mov	edx,101

	mov	ecx,5+6*8

	call	draw_buttons

	mov	edx,131

	mov	ecx,5+8*8

	call	draw_buttons

	mov	edx,141

	mov	ecx,5+10*8

	call	draw_buttons

	mov	edx,151

	mov	ecx,5+12*8

	call	draw_buttons

	call	draw_infotext

.end:

	mcall	12,2

	popa

	ret

;-------------------------------------------------------------------------------

draw_infotext:

	pusha

	mov	eax,[keyboard]	     ; KEYBOARD

	test	eax,eax

	jnz	noen

	mov	[text00+LLL*1+28],dword 'ENGL'

	mov	[text00+LLL*1+32],dword 'ISH '

;--------------------------------------

noen:

	cmp	eax,1

	jnz	nofi

	mov	[text00+LLL*1+28],dword 'FINN'

	mov	[text00+LLL*1+32],dword 'ISH '

;--------------------------------------

nofi:

	cmp	eax,2

	jnz	noge

	mov	[text00+LLL*1+28],dword 'GERM'

	mov	[text00+LLL*1+32],dword 'AN  '

;--------------------------------------

noge:

	cmp	eax,3

	jnz	nogr

	mov	[text00+LLL*1+28],dword 'RUSS'

	mov	[text00+LLL*1+32],dword 'IAN '

;--------------------------------------

nogr:

	cmp	eax,4

	jnz	nofr

	mov	[text00+LLL*1+28],dword 'FREN'

	mov	[text00+LLL*1+32],dword 'CH  '

;--------------------------------------

nofr:

	cmp	eax,5

	jnz	noet

	mov	[text00+LLL*1+28],dword 'EEST'

	mov	[text00+LLL*1+32],dword 'I   '

;--------------------------------------

noet:

	cmp	eax,6

	jnz	nobe

	mov	[text00+LLL*1+28],dword 'BELG'

	mov	[text00+LLL*1+32],dword 'IAN '

;--------------------------------------

nobe:

	cmp	eax,7

	jnz	noit

	mov	[text00+LLL*1+28],dword 'ITAL'

	mov	[text00+LLL*1+32],dword 'IAN'

;--------------------------------------

noit:

	mov	eax,[syslang]		  ; SYSTEM LANGUAGE

	dec	eax

	test	eax,eax

	jnz	noen5

	mov	[text00+LLL*0+28],dword 'ENGL'

	mov	[text00+LLL*0+32],dword 'ISH '

;--------------------------------------

noen5:

	cmp	eax,1

	jnz	nofi5

	mov	[text00+LLL*0+28],dword 'FINN'

	mov	[text00+LLL*0+32],dword 'ISH '

;--------------------------------------

nofi5:

	cmp	eax,2

	jnz	noge5

	mov	[text00+LLL*0+28],dword 'GERM'

	mov	[text00+LLL*0+32],dword 'AN  '

;--------------------------------------

noge5:

	cmp	eax,3

	jnz	nogr5

	mov	[text00+LLL*0+28],dword 'RUSS'

	mov	[text00+LLL*0+32],dword 'IAN '

;--------------------------------------

nogr5:

	cmp	eax,4

	jne	nofr5

	mov	[text00+LLL*0+28],dword 'FREN'

	mov	[text00+LLL*0+32],dword 'CH  '

;--------------------------------------

nofr5:

	cmp	eax,5

	jne	noet5

	mov	[text00+LLL*0+28],dword 'EEST'

	mov	[text00+LLL*0+32],dword 'I   '

;--------------------------------------

noet5:

	mov	eax,[lba_read]

	call	onoff				; LBA READ

	mov	[text00+LLL*2+28],ebx

	mov	eax,[pci_acc]

	call	onoff				; PCI ACCESS

	mov	[text00+LLL*3+28],ebx

	mov	eax,[speaker_mute]

	call	onoff				; SPEAKER

	mov	[text00+LLL*6+28],ebx

	mov	eax,[mouse_speed]		; MOUSE SPEED

	add	al,48

	mov	[text00+LLL*4+28],al

	mov	eax,[mouse_delay]

	mov	esi,text00+LLL*5+32

	call	hexconvert			; MOUSE DELAY

	call	text_out

	popa

	ret

;-------------------------------------------------------------------------------

text_out:

	mcall	13,<165,85>,<0,(14*8)>,0x80111199	;0x80111199-19

	mov	edx,text00

	mov	ebx,3*65536+7

	mov	eax,4

	mov	ecx,0xffffff

	mov	esi,LLL

	mov	ebp,text1_strings

;--------------------------------------

newline:

	mcall

	add	ebx,8+8

	add	edx,esi

	dec	ebp

	jnz	newline

	mov	ebp,text2_strings

	add	ebx,8+8

;--------------------------------------

@@:

	mcall

	add	ebx,8+8

	add	edx,esi

	dec	ebp

	jnz	@b

	ret

;-------------------------------------------------------------------------------

hexconvert:	     ;converting dec to hex in ascii

	xor	ebx,ebx

	mov	bl,al

	and	bl,15

	add	ebx,hex

	mov	cl,[ebx]

	mov	[esi],cl

	shr	eax,4

	xor	ebx,ebx

	mov	bl,al

	and	bl,15

	add	ebx,hex

	mov	cl,[ebx]

	dec	esi

	mov	[esi],cl

	shr	eax,4

	xor	ebx,ebx

	mov	bl,al

	and	bl,15

	add	ebx,hex

	mov	cl,[ebx]

	dec	esi

	mov	[esi],cl

	ret

;-------------------------------------------------------------------------------

onoff:

	cmp	[syslang],4

	jne	norus1

	mov	ebx,'��  '

	cmp	eax,1

	je	exitsub

	mov	ebx,'��� '

	ret

norus1:

	cmp	[syslang],6

	jne	noet1

	mov	ebx,'SEES'

	cmp	eax,1

	je	exitsub

	mov	ebx,'V�L.'

	ret

;--------------------------------------

noet1:

	mov	ebx,'ON  '

	cmp	eax,1

	je	exitsub

	mov	ebx,'OFF '

;--------------------------------------

exitsub:

	ret

;-------------------------------------------------------------------------------

_lba_read:

	mcall	21,11,[lba_read]

	ret

;-------------------------------------------------------------------------------

_pci_acc:

	mcall	21,12,[pci_acc]

	ret

;-------------------------------------------------------------------------------

_syslang:

	mcall	21,5,[syslang]

	ret

;-------------------------------------------------------------------------------

_mouse_speed:

	mcall	18,19,1,[mouse_speed]

	ret

;-------------------------------------------------------------------------------

_mouse_delay:

	mcall	18,19,3,[mouse_delay]

	ret

;-------------------------------------------------------------------------------

_speaker_mute:

	mcall	18,8,1

	cmp	[speaker_mute],eax

	je	@f

	inc	ecx

	mcall	18

;--------------------------------------

@@:

	ret

;-------------------------------------------------------------------------------

loadtxt:

	mov	edi,text00

	mov	ecx,LLL*(text1_strings + text2_strings)/4+1

	cmp	[syslang],4

	jne	loadet

	mov	esi,textrus

	jmp	sload

loadet:

	mov	edi,text00

	mov	ecx,LLL*(text1_strings + text2_strings)/4+1

	cmp	[syslang],6

	jne	norus

		mov	esi,textet

	jmp	sload

;--------------------------------------

norus:

	mov	esi,texteng

;--------------------------------------

sload:

	rep	movsd

	ret

;-------------------------------------------------------------------------------

cleantxt:

	xor	eax,eax

	mov	ecx,LLL*(text1_strings + text2_strings)/4

	cld

	mov	edi,text00

	rep	stosd

	mov	[text00+1711],byte 'x'

	ret

;-------------------------------------------------------------------------------

; DATA AREA

count:		db 0x0

blinkpar:	dd 0x0

time:		dw 0x0

date:		dd 0x0

;-------------------------------------------------------------------------------

textrus:

	db '��� ��⥬�              : ENGLISH         - +   �ਬ�����'

	db '��᪫���� ����������      : ENGLISH         - +   �ਬ�����'

	db '������� LBA              : OFF             - +   �ਬ�����'

	db '����� � 設� PCI         : OFF             - +   �ਬ�����'

	db '������� ����� ���     : 1               - +   �ਬ�����'

	db '����প� �᪮७�� ���   : 0x00a           - +   �ਬ�����'

	db '�몫���� SPEAKER         : OFF             - +   �ਬ�����'

	db '��������:                                    �ਬ����� �� '

	db '�� �������� ��������� ���������              ���࠭��� �� '

;-------------------------------------------------------------------------------

texteng:

	db 'System language           : ENGLISH         - +     Apply  '

	db 'Keyboard layout           : ENGLISH         - +     Apply  '

	db 'LBA read enabled          : OFF             - +     Apply  '

	db 'PCI access for appl.      : OFF             - +     Apply  '

	db 'Mouse pointer speed       : 1               - +     Apply  '

	db 'Mouse pointer delay       : 0x00a           - +     Apply  '

	db 'SPEAKER disabled          : OFF             - +     Apply  '

text1_strings = 7

	db 'NOTE:                                           Apply all  '

	db 'SAVE YOUR SETTINGS BEFORE QUITING KOLIBRI       Save all   '

textet:

	db 'S�steemi keel             : ENGLISH         - +    Kinnita '

	db 'Klaviatuuri paigutus      : ENGLISH         - +    Kinnita '

	db 'LBA lugemine lubatud      : V�L.            - +    Kinnita '

	db 'PCI juurdep��s programm.  : V�L.            - +    Kinnita '

	db 'Hiire kursori kiirus      : 1               - +    Kinnita '

	db 'Hiire kursori viide       : 0x00a           - +    Kinnita '

	db 'SPEAKER disabled          : V�L.            - +    Kinnita '

	db 'M�RKUS:                                        Kinnita k�ik'

	db 'SALVESTA SEADED ENNE KOLIBRIST V�LJUMIST      Salvesta k�ik'

text2_strings = 2

;-------------------------------------------------------------------------------

title	db 'System setup',0

hex	db '0123456789ABCDEF'

;-------------------------------------------------------------------------------

include 'keymaps.inc'

;-------------------------------------------------------------------------------

read_fileinfo:

	dd 0

	dd 0

	dd 0

	dd 28

	dd keyboard

	db 0

	dd file_name

;-------------------------------------------------------------------------------

save_fileinfo:

	dd 2

	dd 0

	dd 0

	dd 28

	dd keyboard

file_name:	db '/SYS/SETTINGS/SETUP.DAT',0

;-------------------------------------------------------------------------------

keyboard	dd 0x0

syslang 	dd 0x4	; 4 - rus

lba_read	dd 0x1

pci_acc 	dd 0x1

mouse_speed	dd 0x2

mouse_delay	dd 0xa

speaker_mute	dd 0	; 0 - enable, 1 - disable

;-----------------------------------------------------------------------------

IM_END:

;-----------------------------------------------------------------------------

align 4

text00:

	rb LLL*(text1_strings + text2_strings)+4

;-----------------------------------------------------------------------------

align 4

boot_param:

procinfo:

	rb 1024

;-----------------------------------------------------------------------------

align 4

	rb 0x1000

stack_area:

;-----------------------------------------------------------------------------

I_END:

;-------------------------------------------------------------------------------