Subversion Repositories Kolibri OS

Rev

Rev 5872 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5872 pathoswith 1
 
870 barsuk 2
	mov	[point2],32h
2532 mario79 3
	mcall	70,get_ini
4
	mov	al,[inicont]
5
	sub	al,30h
6
	mov	[lngcrc1],al
7
5872 pathoswith 8
 
2532 mario79 9
	mcall	70,get_ini
10
	mov	al,[inicont]
11
	sub	al,30h
12
	mov	[lngcrc3],al
5872 pathoswith 13
14
 
2532 mario79 15
	mcall  70,get_ini
16
	mov	al,[inicont]
17
	sub	al,30h
18
	mov	[lngcrc2],al
5872 pathoswith 19
20
 
2532 mario79 21
	mcall	70,get_ini
22
	mov	al,[inicont]
23
	sub	al,30h
24
	mov	[altlng1],al
25
5872 pathoswith 26
 
2532 mario79 27
	mcall	70,get_ini
28
	mov	al,[inicont]
29
	sub	al,30h
30
	mov	[altlng2],al
31
5872 pathoswith 32
 
2532 mario79 33
	mcall	70,get_ini
34
	mov	al,[inicont]
35
	sub	al,30h
36
	mov	[altlng3],al
37
5872 pathoswith 38
 
2532 mario79 39
	mcall	70,get_ini
40
	mov	al,[inicont]
41
	sub	al,30h
42
	mov	[altlng4],al
43
5872 pathoswith 44
 
2532 mario79 45
	mcall	70,get_ini
46
	mov	al,[inicont]
47
	sub	al,30h
48
	mov	[altlng5],al
49
5872 pathoswith 50
 
2532 mario79 51
	mcall	70,get_ini
52
	mov	al,[inicont]
53
	sub	al,30h
54
	mov	[altlng6],al
55
5872 pathoswith 56
 
2532 mario79 57
	mcall	70,get_ini
58
	mov	al,[inicont]
59
	sub	al,30h
60
	mov	[altlng7],al
61
5872 pathoswith 62
 
2532 mario79 63
	mcall	70,get_ini
64
	mov	al,[inicont]
65
	sub	al,30h
66
	mov	[altlng8],al
67
5872 pathoswith 68
 
2532 mario79 69
	mcall	70,get_ini
70
	mov	al,[inicont]
71
	sub	al,30h
72
	mov	[altlng9],al
73
74
 
5872 pathoswith 75
	mcall	70,get_ini
2532 mario79 76
	xor	eax,eax
5872 pathoswith 77
	mov	al,[inicont]
2532 mario79 78
	sub	al,31h
5872 pathoswith 79
	jns	applyKeymap
80
	ret
2532 mario79 81
;-------------------------------
5872 pathoswith 82
karu:
870 barsuk 83
	mov	[draw_flag_certainly],1
2619 mario79 84
	dec	[key_r2]
5872 pathoswith 85
	jns	@f
86
	mov	[key_r2],2
87
@@:
88
	xor	eax,eax
89
	mov	al, [key_r2]
90
	mov	al, [lngcrc1+eax]
91
	dec	eax
92
	js	karu
93
	jmp	applyKeymap
94
;-------------------------------
95
alter:
870 barsuk 96
	mov	[draw_flag_certainly],1
2619 mario79 97
	xor	eax,eax
5872 pathoswith 98
	mov	al, [key_r]
99
	mov	al, [altlng1+eax]
100
	dec	eax
101
	js	@f
102
applyKeymap:
103
	cmp	al, 9
104
	jnc	@f
105
	push	eax
106
	shl	eax,7
107
	lea	eax,[eax*2+eax]
108
	mov	[point],eax
109
	mcall	70,get_key
2532 mario79 110
	mcall	21,2,1,current_keymap
111
	inc	ecx
112
	mcall	21,,,current_keymap_shift
113
	inc	ecx
114
	mcall	21,,,current_keymap_alt
115
	pop	edx
5872 pathoswith 116
	inc	edx
117
	mcall	21,,9
118
@@:
119
	ret
2532 mario79 120
;---------------------------------------------------------------
5872 pathoswith 121
align 4
2532 mario79 122
current_keymap		rb 128
5872 pathoswith 123
current_keymap_shift	rb 128
124
current_keymap_alt	rb 128
125
2532 mario79 126
 
5872 pathoswith 127
	dd 0
128
point2	dd 0
129
	dd 0
130
	dd 1
131
	dd inicont
132
	db '/sys/settings/lang.ini',0
8088 dunkaist 133
2532 mario79 134
 
5872 pathoswith 135
	dd 0
136
point	dd 0
137
	dd 0
138
	dd 384
139
	dd current_keymap
140
	db '/sys/settings/keymap.key',0
8088 dunkaist 141
2532 mario79 142
 
143
key_r2		db 0
144
inicont		db 0
145
lngcrc1		db 0
146
lngcrc2		db 0
147
lngcrc3		db 0
148
altlng1		db 0
149
altlng2		db 0
150
altlng3		db 0
151
altlng4		db 0
152
altlng5		db 0
153
altlng6		db 0
154
altlng7		db 0
155
altlng8		db 0
156
altlng9		db 0
157