Subversion Repositories Kolibri OS

Rev

Rev 2319 | Rev 2481 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2319 Rev 2478
Line 7... Line 7...
7
; Authors: Ville       - original version
7
; Authors: Ville       - original version
8
;          A. Ivushkin - autostart (w launcher)
8
;          A. Ivushkin - autostart (w launcher)
9
;          M. Lisovin  - added many feauters (apply all, save all, set time...)
9
;          M. Lisovin  - added many feauters (apply all, save all, set time...)
10
;          I. Poddubny - fixed russian keymap
10
;          I. Poddubny - fixed russian keymap
11
;14/08/06  Mario79 - added regulation of mouse features
11
;14/08/06  Mario79 - added regulation of mouse features
12
 
-
 
13
;******************************************************************************
12
;-------------------------------------------------------------------------------
14
  use32
13
	use32
15
  org	  0x0
14
	org 0x0
-
 
15
 
16
  db	  'MENUET01'   ; 8 byte identifier
16
	db 'MENUET01'	; 8 byte identifier
17
  dd	  0x01		 ; header version
17
	dd 0x01		; header version
18
  dd	  START        ; pointer to program start
18
	dd START	; pointer to program start
19
  dd	  I_END        ; size of image
19
	dd IM_END	; size of image
20
  dd	  0x4000      ; reguired amount of memory
20
	dd I_END	;0x4000	; reguired amount of memory
21
  dd	  0x4000      ; stack pointer (esp)
21
	dd stack_area	; stack pointer (esp)
22
  dd	  I_PARAM,0    ; parameters, reserved
22
	dd I_PARAM	; boot parameters
-
 
23
	dd 0x0		; path
-
 
24
;-------------------------------------------------------------------------------
23
  include '..\..\..\macros.inc'
25
include '..\..\..\macros.inc'
24
;******************************************************************************
26
;-------------------------------------------------------------------------------
25
 
-
 
26
LLL equ (56+3)
27
LLL equ (56+3)
27
BBB equ 25
28
BBB equ 25
28
 
-
 
29
;******************************************************************************
29
;-------------------------------------------------------------------------------
30
apply_all:
30
apply_all:
31
 
-
 
32
    call _pci_acc    ;12
31
	call	_pci_acc    ;12
33
    call _syslang    ;5
32
	call	_syslang    ;5
34
    call _keyboard    ;2
33
	call	_keyboard    ;2
35
    call _mouse_speed
34
	call	_mouse_speed
36
    call _mouse_delay
35
	call	_mouse_delay
37
 
-
 
38
ret
36
	ret
39
;-------------------------------------------------------------------------------
37
;-------------------------------------------------------------------------------
40
;******************************************************************************
-
 
41
apply_all_and_exit:
38
apply_all_and_exit:
42
 
-
 
43
	mcall	70, read_fileinfo
39
	mcall	70,read_fileinfo
44
	call	apply_all
40
	call	apply_all
45
	jmp	close
41
	jmp	close
46
 
-
 
47
;******************************************************************************
42
;-------------------------------------------------------------------------------
48
set_language_and_exit:
43
set_language_and_exit:
49
 
-
 
50
	mcall	26, 2, 9
44
	mcall	26,2,9
51
 
-
 
52
	cmp	eax, 1
45
	cmp	eax,1
53
	je	russian
46
	je	russian
Line 54... Line 47...
54
 
47
 
55
	xor	eax,eax
-
 
-
 
48
	xor	eax,eax
56
 
49
;--------------------------------------
57
set_lang_now:
50
set_lang_now:
58
	mov	[keyboard], eax
51
	mov	[keyboard],eax
59
	call	_keyboard
52
	call	_keyboard
60
	jmp	close
-
 
-
 
53
	jmp	close
61
 
54
;--------------------------------------
62
russian:
55
russian:
63
	mov	eax, 3
56
	mov	eax,3
64
	jmp	set_lang_now
-
 
-
 
57
	jmp	set_lang_now
65
 
58
;-------------------------------------------------------------------------------
66
set_syslanguage_and_exit:
-
 
67
 
59
set_syslanguage_and_exit:
68
	mcall	26, 5
60
	mcall	26,5
69
	cmp	eax,6
61
	cmp	eax,6
70
	jne	temp
62
	jne	temp
71
	xor	eax,eax
-
 
-
 
63
	xor	eax,eax
72
 
64
;--------------------------------------
73
temp:
65
temp:
74
	inc	eax
66
	inc	eax
75
	mov	[syslang], eax
67
	mov	[syslang],eax
76
	call	_syslang
68
	call	_syslang
77
	jmp	close
-
 
78
 
-
 
79
 
-
 
-
 
69
	jmp	close
80
 
70
;-------------------------------------------------------------------------------
81
get_setup_values:
-
 
82
 
71
get_setup_values:
83
	mcall	26, 2, 9
72
	mcall	26,2,9
84
	dec	eax
73
	dec	eax
Line 85... Line 74...
85
	mov	[keyboard], eax
74
	mov	[keyboard],eax
Line 96... Line 85...
96
	mcall	18, 19, 0
85
	mcall	18,19,0
97
	mov	[mouse_speed], eax
86
	mov	[mouse_speed],eax
Line 98... Line 87...
98
 
87
 
99
	mcall	18, 19, 2
88
	mcall	18,19,2
100
	mov	[mouse_delay], eax
-
 
101
 
89
	mov	[mouse_delay],eax
102
	ret
-
 
103
 
90
	ret
104
;******************************************************************************
-
 
105
 
91
;-------------------------------------------------------------------------------
106
START:
92
START:
107
	cmp	[I_PARAM], 'SLAN'
93
	cmp	[I_PARAM],'SLAN'
Line 108... Line 94...
108
	je	set_syslanguage_and_exit
94
	je	set_syslanguage_and_exit
Line 113... Line 99...
113
	cmp	[I_PARAM], 'BOOT'
99
	cmp	[I_PARAM],'BOOT'
114
	je	apply_all_and_exit
100
	je	apply_all_and_exit
Line 115... Line 101...
115
 
101
 
116
	call	get_setup_values
102
	call	get_setup_values
117
	call	loadtxt
-
 
-
 
103
	call	loadtxt
118
 
104
;-------------------------------------------------------------------------------
119
red:
105
red:
120
	call draw_window
-
 
-
 
106
	call	draw_window
121
 
107
;-------------------------------------------------------------------------------
122
still:
-
 
123
 
108
still:
124
 sysevent:
-
 
125
	mov	eax, 23
109
sysevent:
126
	mov	ebx, 8	      ; wait here for event with timeout
-
 
127
	mcall
-
 
128
 
110
	mcall	23,8	      ; wait here for event with timeout
129
	cmp	eax, 1
111
	cmp	eax,1
Line 130... Line 112...
130
	jz	red
112
	jz	red
131
 
113
 
Line 132... Line 114...
132
	cmp	eax, 2
114
	cmp	eax,2
133
	jz	key
115
	jz	key
Line 134... Line 116...
134
 
116
 
135
	cmp	eax, 3
-
 
136
	jz	button
-
 
-
 
117
	cmp	eax,3
137
 
118
	jz	button
138
	jmp	still
-
 
139
 
119
 
140
 
-
 
141
  key:
120
	jmp	still
142
	;mov    eax,2
-
 
-
 
121
;-------------------------------------------------------------------------------
143
	mcall
122
key:
144
 
-
 
145
	jmp	still
-
 
146
 
123
	mcall	2
147
  button:
-
 
148
 
124
	jmp	still
149
    mov  eax,17
125
;-------------------------------------------------------------------------------
150
    mcall
126
button:
151
 
-
 
152
    cmp  ah,99
127
	mcall	17
-
 
128
	cmp	ah,99
153
    jne  nosaveall
129
	jne	nosaveall
154
    mcall 70,save_fileinfo
130
	mcall	70,save_fileinfo
155
 
131
	jmp	still
156
    jmp  still
132
;--------------------------------------    
157
nosaveall:
133
nosaveall:
-
 
134
	cmp	ah,100
158
    cmp  ah,100
135
	jne	no_apply_all
159
    jne  no_apply_all
-
 
160
    call apply_all
136
	call	apply_all
161
    jmp  still
137
	jmp	still
-
 
138
;--------------------------------------
162
no_apply_all:
139
no_apply_all:
163
 
140
	cmp	ah,1	; CLOSE APPLICATION
164
    cmp  ah,1		; CLOSE APPLICATION
141
	jne	no_close
-
 
142
;--------------------------------------
165
    jne  no_close
143
close:
166
close:
-
 
167
    or	       eax,-1
-
 
168
    mcall
144
	or	eax,-1
169
  no_close:
145
	mcall
170
 
146
;--------------------------------------
171
 
147
no_close:
172
    cmp  ah,4		; SET KEYBOARD
148
	cmp	ah,4	; SET KEYBOARD
173
    jnz  nokm
149
	jnz	nokm
174
    mov  eax,[keyboard]
150
	mov	eax,[keyboard]
-
 
151
	test	eax,eax
175
    test eax,eax
152
	je	downuplbl
176
    je	       downuplbl
153
	dec	eax
-
 
154
	jmp	nodownup
177
    dec  eax
155
;--------------------------------------
178
    jmp  nodownup
156
downuplbl:
179
   downuplbl:
157
	mov	eax,5
-
 
158
;--------------------------------------
180
    mov  eax,5
159
nodownup:
181
   nodownup:
160
	mov	[keyboard],eax
182
    mov  [keyboard],eax
161
	call	draw_infotext
183
    call draw_infotext
162
;--------------------------------------
184
  nokm:
163
nokm:
185
    cmp  ah,5
164
	cmp	ah,5
186
    jnz  nokp
165
	jnz	nokp
187
    mov  eax,[keyboard]
166
	mov	eax,[keyboard]
-
 
167
	cmp	eax,5
188
    cmp  eax,5
168
	je	updownlbl
189
    je	       updownlbl
169
	inc	eax
-
 
170
	jmp	noupdown
190
    inc  eax
171
;--------------------------------------
191
    jmp  noupdown
172
updownlbl:
192
   updownlbl:
173
	xor	eax,eax
-
 
174
;--------------------------------------
193
    xor  eax,eax
175
noupdown:
194
   noupdown:
-
 
195
    mov  [keyboard],eax
-
 
196
    call draw_infotext
176
	mov	[keyboard],eax
197
  nokp:
177
	call	draw_infotext
-
 
178
;--------------------------------------
198
 
179
nokp:
199
 
180
	cmp	ah,92	; SET LBA READ
200
    cmp  ah,92	       ; SET LBA READ
181
	jne	no_lba_d
201
    jne  no_lba_d
182
;--------------------------------------
-
 
183
slbal:
202
  slbal:
184
	btc	[lba_read],0
203
    btc  [lba_read],0
185
	call	draw_infotext
204
    call draw_infotext
186
	jmp	still
205
    jmp  still
187
;--------------------------------------
-
 
188
no_lba_d:
206
   no_lba_d:
189
	cmp	ah,93
207
    cmp  ah,93
190
	jne	no_lba_i
208
    jne  no_lba_i
191
	jmp	slbal
209
    jmp  slbal
192
;--------------------------------------
210
  no_lba_i:
193
no_lba_i:
-
 
194
	cmp	ah,91
211
    cmp  ah,91
195
	jne	no_set_lba_read
212
    jne  no_set_lba_read
-
 
213
    call _lba_read
-
 
214
    jmp  still
196
	call	_lba_read
215
   no_set_lba_read:
197
	jmp	still
-
 
198
;--------------------------------------
216
 
199
no_set_lba_read:
217
 
200
	cmp	ah,102	; SET PCI ACCESS
218
    cmp  ah,102       ; SET PCI ACCESS
201
	jne	no_pci_d
219
    jne  no_pci_d
202
;--------------------------------------
-
 
203
pcip:
220
  pcip:
204
	btc	[pci_acc],0
221
    btc  [pci_acc],0
205
	call	draw_infotext
222
    call draw_infotext
206
	jmp	still
223
    jmp  still
207
;--------------------------------------
-
 
208
no_pci_d:
224
  no_pci_d:
209
	cmp	ah,103
225
    cmp  ah,103
210
	jne	no_pci_i
226
    jne  no_pci_i
211
	jmp	pcip
227
    jmp  pcip
212
;--------------------------------------
228
   no_pci_i:
213
no_pci_i:
-
 
214
	cmp	ah,101
229
    cmp  ah,101
215
	jne	no_set_pci_acc
230
    jne  no_set_pci_acc
-
 
231
    call _pci_acc
-
 
232
    jmp  still
216
	call	_pci_acc
233
  no_set_pci_acc:
217
	jmp	still
234
 
218
;--------------------------------------
235
 
219
no_set_pci_acc:
236
    cmp  ah,42		; SET SYSTEM LANGUAGE BASE
220
	cmp	ah,42	; SET SYSTEM LANGUAGE BASE
237
    jnz  nosysm
221
	jnz	nosysm
238
    mov  eax,[syslang]
222
	mov	eax,[syslang]
-
 
223
	dec	eax
239
    dec  eax
224
	jz	still
240
    jz	       still
225
	mov	[syslang],eax
241
    mov  [syslang],eax
226
	call	draw_infotext
242
    call draw_infotext
227
;--------------------------------------
243
  nosysm:
228
nosysm:
244
    cmp  ah,43
229
	cmp	ah,43
245
    jnz  nosysp
230
	jnz	nosysp
246
    mov  eax,[syslang]
231
	mov	eax,[syslang]
247
    cmp  eax,6
232
	cmp	eax,6
-
 
233
	je	nosysp
248
    je	       nosysp
234
	inc	eax
249
    inc  eax
235
	mov	[syslang],eax
250
    mov  [syslang],eax
236
	call	draw_infotext
251
    call draw_infotext
237
;--------------------------------------
252
  nosysp:
238
nosysp:
253
    cmp  ah,41
239
	cmp	ah,41
254
    jnz  nosyss
240
	jnz	nosyss
-
 
241
	call	_syslang
255
    call _syslang
242
	call	cleantxt
256
    call cleantxt
243
	call	loadtxt
257
    call loadtxt
244
	call	draw_window
258
    call draw_window
245
;--------------------------------------
259
  nosyss:
246
nosyss:
260
    cmp  ah,132        ; SET MOUSE SPEED
247
	cmp	ah,132	; SET MOUSE SPEED
261
    jnz  .nominus
248
	jnz	.nominus
262
    mov  eax,[mouse_speed]
249
	mov	eax,[mouse_speed]
-
 
250
	sub	eax,2
263
    sub  eax,2
251
	cmp	eax,9
264
    cmp  eax,9
252
	jb	@f
265
    jb	      @f
253
	mov	eax,8
266
    mov  eax,8
254
;--------------------------------------
-
 
255
@@:
267
@@:
256
	inc	eax
268
    inc  eax
257
	mov	[mouse_speed],eax
269
    mov  [mouse_speed],eax
258
	call	draw_infotext
270
    call draw_infotext
259
;--------------------------------------
271
  .nominus:
260
.nominus:
272
    cmp  ah,133
261
	cmp	ah,133
273
    jnz  .noplus
262
	jnz	.noplus
-
 
263
	mov	eax,[mouse_speed]
274
    mov  eax,[mouse_speed]
264
	cmp	eax,9
275
    cmp  eax,9
265
	jb	@f
276
    jb	      @f
266
	mov	eax,0
277
    mov  eax,0
267
;--------------------------------------
-
 
268
@@:
278
@@:
269
	inc	eax
279
    inc  eax
270
	mov	[mouse_speed],eax
280
    mov  [mouse_speed],eax
271
	call	draw_infotext
281
    call draw_infotext
272
;--------------------------------------
-
 
273
.noplus:
282
  .noplus:
274
	cmp	ah,131
283
    cmp  ah,131
275
	jnz	.noapply
284
    jnz  .noapply
276
	call	_mouse_speed
285
    call _mouse_speed
277
;--------------------------------------    
286
  .noapply:
278
.noapply:
287
 mousedelay:
279
mousedelay:
288
    cmp  ah,142        ; SET MOUSE DELAY
280
	cmp	ah,142        ; SET MOUSE DELAY
289
    jnz  .nominus
281
	jnz	.nominus
290
    mov  eax,[mouse_delay]
282
	mov	eax,[mouse_delay]
-
 
283
	sub	eax,2
291
    sub  eax,2
284
	cmp	eax,0xfff
292
    cmp  eax,0xfff
285
	jb	@f
293
    jb	      @f
286
	mov	eax,0xffe
294
    mov  eax,0xffe
287
;--------------------------------------
-
 
288
@@:
295
@@:
289
	inc	eax
296
    inc  eax
290
	mov	[mouse_delay],eax
297
    mov  [mouse_delay],eax
291
	call	draw_infotext
298
    call draw_infotext
292
;--------------------------------------
299
  .nominus:
293
.nominus:
300
    cmp  ah,143
294
	cmp	ah,143
301
    jnz  .noplus
295
	jnz	.noplus
-
 
296
	mov	eax,[mouse_delay]
302
    mov  eax,[mouse_delay]
297
	cmp	eax,0xfff
303
    cmp  eax,0xfff
298
	jb	@f
304
    jb	      @f
299
	mov	eax,0
305
    mov  eax,0
300
;--------------------------------------
-
 
301
@@:
306
@@:
302
	inc	eax
307
    inc  eax
303
	mov	[mouse_delay],eax
308
    mov  [mouse_delay],eax
304
	call	draw_infotext
309
    call draw_infotext
305
;--------------------------------------
-
 
306
.noplus:
310
  .noplus:
307
	cmp	ah,141
311
    cmp  ah,141
-
 
312
    jnz  .noapply
308
	jnz	.noapply
313
    call _mouse_delay
309
	call	_mouse_delay
314
  .noapply:
310
;--------------------------------------
315
 
311
.noapply:
316
    cmp  ah,3	      ; SET KEYMAP
-
 
-
 
312
	cmp	ah,3	      ; SET KEYMAP
317
    jne  still
313
	jne	still
318
    call _keyboard
314
	call	_keyboard
319
    jmp  still
315
	jmp	still
320
 
-
 
321
  _keyboard:
-
 
322
    cmp [keyboard],0
316
;-------------------------------------------------------------------------------
323
    jnz  nosetkeyle
317
_keyboard:
324
    mov  eax,21       ; english
318
	cmp	[keyboard],0	; english
325
    mov  ebx,2
-
 
326
    mov  ecx,1
319
	jnz	nosetkeyle
327
    mov  edx,en_keymap
320
	
328
    mcall
321
	mcall	21,2,1,en_keymap
329
    mov  eax,21
-
 
330
    inc  ecx
-
 
331
    mov  edx,en_keymap_shift
322
	
332
    mcall
-
 
333
    mov  eax,21
323
	inc	ecx
-
 
324
	mcall	21,,,en_keymap_shift
334
    mov  ecx,9
325
 
335
    mov  edx,1
326
	mcall	21,,9,1
336
    mcall
327
	call	alt_gen
337
    call alt_gen
-
 
338
  nosetkeyle:
-
 
339
    cmp  [keyboard],1
328
;--------------------------------------
340
    jnz  nosetkeylfi
329
nosetkeyle:
341
    mov  eax,21       ; finnish
330
	cmp	[keyboard],1	; finnish
342
    mov  ebx,2
-
 
343
    mov  ecx,1
331
	jnz	nosetkeylfi
344
    mov  edx,fi_keymap
332
 
345
    mcall
333
	mcall	21,2,1,fi_keymap
346
    mov  eax,21
-
 
347
    inc  ecx
-
 
348
    mov  edx,fi_keymap_shift
334
	
349
    mcall
-
 
350
    mov  eax,21
335
	inc	ecx
-
 
336
	mcall	21,,,fi_keymap_shift
351
    mov  ecx,9
337
 
352
    mov  edx,2
338
	mcall	21,,9,2
353
    mcall
339
	call	alt_gen
354
    call alt_gen
-
 
355
  nosetkeylfi:
-
 
356
    cmp  [keyboard],2
340
;--------------------------------------
357
    jnz  nosetkeylge
341
nosetkeylfi:
358
    mov  eax,21       ; german
342
	cmp  [keyboard],2	; german
359
    mov  ebx,2
-
 
360
    mov  ecx,1
343
	jnz  nosetkeylge
361
    mov  edx,ge_keymap
344
 
362
    mcall
345
	mcall	21,2,1,ge_keymap
363
    mov  eax,21
-
 
364
    inc  ecx
-
 
365
    mov  edx,ge_keymap_shift
346
	
366
    mcall
-
 
367
    mov  eax,21
347
	inc	ecx
-
 
348
	mcall	21,,,ge_keymap_shift
368
    mov  ecx,9
349
 
369
    mov  edx,3
350
	mcall	21,,9,3
370
    mcall
351
	call	alt_gen
371
    call alt_gen
-
 
372
  nosetkeylge:
-
 
373
    cmp  [keyboard],3
352
;--------------------------------------
374
    jnz  nosetkeylru
353
nosetkeylge:
375
    mov  eax,21       ; russian
354
	cmp	[keyboard],3	; russian
376
    mov  ebx,2
-
 
377
    mov  ecx,1
355
	jnz	nosetkeylru
378
    mov  edx,ru_keymap
356
    
-
 
357
	mcall	21,2,1,ru_keymap
379
    mcall
358
	
380
    mov  eax,21
359
	inc	ecx
381
    inc  ecx
360
	mcall	21,,,ru_keymap_shift
382
    mov  edx,ru_keymap_shift
-
 
383
    mcall
-
 
384
    call alt_gen
-
 
385
    mov  eax,21
361
 
386
    mov  ecx,9
362
	mcall	21,,9,4
387
    mov  edx,4
363
	call	alt_gen
388
    mcall
-
 
389
  nosetkeylru:
-
 
390
    cmp  [keyboard],4	     ;french
364
;--------------------------------------
391
    jnz  nosetkeylfr
365
nosetkeylru:
392
    mov  eax,21
366
	cmp	[keyboard],4 	;french
393
    mov  ebx,2
-
 
394
    mov  ecx,1
367
	jnz	nosetkeylfr
395
    mov  edx,fr_keymap
368
 
396
    mcall
369
	mcall	21,2,1,fr_keymap
397
    mov  eax,21
-
 
398
    inc  ecx
370
	
399
    mov  edx,fr_keymap_shift
371
	inc	ecx
400
    mcall
372
	mcall	21,,,fr_keymap_shift
401
    mov  eax,21
-
 
402
    inc  ecx
373
 
403
    mov  edx,fr_keymap_alt_gr
374
	inc  ecx
404
    mcall
-
 
405
    mov  eax,21
375
	mcall	21,,,fr_keymap_alt_gr
406
    mov  ecx,9
376
 
407
    mov  edx,5
377
	mcall	21,,9,5
408
    mcall
-
 
409
  nosetkeylfr:
-
 
410
    cmp  [keyboard],5
378
;--------------------------------------
411
    jnz  nosetkeylet
379
nosetkeylfr:
412
    mov  eax,21       ; estonian
380
	cmp	[keyboard],5	; estonian
413
    mov  ebx,2
-
 
414
    mov  ecx,1
381
	jnz	nosetkeylet
415
    mov  edx,et_keymap
382
 
416
    mcall
383
	mcall	21,2,1,et_keymap
417
    mov  eax,21
-
 
418
    inc  ecx
-
 
419
    mov  edx,et_keymap_shift
384
	
420
    mcall
-
 
421
    mov  eax,21
385
	inc	ecx
-
 
386
	mcall	21,,,et_keymap_shift
422
    mov  ecx,9
387
 
423
    mov  edx,6
388
	mcall	21,,9,6
424
    mcall
-
 
-
 
389
	call	alt_gen
425
    call alt_gen
390
;--------------------------------------
426
  nosetkeylet:
-
 
427
    ret
-
 
428
 
391
nosetkeylet:
429
 alt_gen:
-
 
430
   mov eax,21
392
	ret
431
   mov ecx,3
-
 
432
   mov edx,alt_general
-
 
433
   mcall
-
 
-
 
393
;-------------------------------------------------------------------------------
434
   ret
394
alt_gen:
435
 
-
 
436
 
395
	mcall	21,,3,alt_general
437
 
-
 
438
draw_buttons:
396
	ret
439
 
397
;-------------------------------------------------------------------------------
440
    pusha
398
draw_buttons:
441
 
-
 
442
    shl  ecx,16
-
 
443
    add  ecx,12
-
 
Line 444... Line -...
444
    mov  ebx,(350-50)*65536+46+BBB
-
 
445
 
399
	pusha
446
    mov  eax,8
400
	shl  ecx,16
Line 447... Line -...
447
    mcall
-
 
448
 
401
	add  ecx,12
449
    mov  ebx,(350-79)*65536+9
402
	mcall	8,<(350-57),(46+BBB)>
Line 450... Line 403...
450
    inc  edx
403
 
451
    mcall
404
	inc	edx
452
 
-
 
453
    mov  ebx,(350-67)*65536+9
-
 
454
    inc  edx
-
 
-
 
405
	mcall	,<(350-85),9>
455
    mcall
406
 
456
 
407
	inc	edx
457
    popa
408
	mcall	,<(350-73),9>
458
    ret
-
 
459
 
-
 
460
 
409
 
461
 
-
 
462
; ********************************************
410
	popa
463
; ******* WINDOW DEFINITIONS AND DRAW  *******
-
 
464
; ********************************************
-
 
465
 
-
 
466
 
411
	ret
Line 467... Line 412...
467
draw_window:
412
;-------------------------------------------------------------------------------
468
 
-
 
469
    pusha
413
; ********************************************
470
 
414
; ******* WINDOW DEFINITIONS AND DRAW  *******
471
    mov  eax,12
-
 
472
    mov  ebx,1
415
; ********************************************
-
 
416
draw_window:
Line 473... Line -...
473
    mcall
-
 
474
 
-
 
475
    xor  eax,eax       ; DRAW WINDOW
-
 
476
    mov  ebx,40*65536+355+BBB
-
 
477
    mov  ecx,40*65536+320
-
 
478
    mov  edx,0x94111199
-
 
479
    mov  edi,title
417
	pusha
480
    mcall
418
	mcall	12,1
481
 
419
 
Line 482... Line 420...
482
    mov  eax,8		   ; APPLY ALL
420
	xor	eax,eax       ; DRAW WINDOW
Line 483... Line 421...
483
    mov  ebx,(350-79)*65536+100
421
	xor	esi,esi
484
    mov  ecx,282*65536+12
422
	mcall	,<40,(355+BBB)>,<40,(12*15)>,0xB4111199,,title
485
    mov  edx,100
423
 
Line 486... Line 424...
486
    mov  esi,0x005588dd
424
	mcall	8,<(350-85),100>,<(5+14*8),12>,100,0x005588dd	; APPLY ALL
487
    mcall
425
 
488
    add  ecx,16*65536	      ; SAVE ALL
426
	add	ecx,16*65536	      ; SAVE ALL
Line 489... Line 427...
489
    dec  edx
427
	dec	edx
490
    mcall
428
	mcall
491
 
429
 
Line 492... Line 430...
492
    mov  esi,0x5580c0
430
	mov	esi,0x5580c0
493
 
431
 
494
    mov  edx,41
432
	mov	edx,41
Line 495... Line 433...
495
    mov  ecx,43+8*8
433
	mov	ecx,5+0*8
496
    call draw_buttons
434
	call	draw_buttons
497
 
435
 
Line 498... Line 436...
498
    mov  edx,3
436
	mov	edx,3
499
    mov  ecx,43+10*8
437
	mov	ecx,5+2*8
500
    call draw_buttons
438
	call	draw_buttons
Line 501... Line 439...
501
 
439
 
Line 502... Line -...
502
    mov  edx,91
-
 
503
    mov  ecx,43+16*8
-
 
504
    call draw_buttons
440
	mov	edx,91
505
 
-
 
506
    mov  edx,101
441
	mov	ecx,5+4*8
507
    mov  ecx,43+18*8
442
	call	draw_buttons
508
    call draw_buttons
-
 
509
 
-
 
510
    mov  edx,131
-
 
-
 
443
 
511
    mov  ecx,43+24*8 ; 26
444
	mov	edx,101
512
    call draw_buttons
-
 
513
 
445
	mov	ecx,5+6*8
514
    mov  edx,141
-
 
515
    mov  ecx,43+26*8 ; 26
446
	call	draw_buttons
516
    call draw_buttons
447
 
517
 
448
	mov	edx,131
518
    call draw_infotext
449
	mov	ecx,5+8*8
519
 
450
	call	draw_buttons
-
 
451
 
520
    mov  eax,12
452
	mov	edx,141
521
    mov  ebx,2
453
	mov	ecx,5+10*8
522
    mcall
454
	call	draw_buttons
523
 
455
 
524
    popa
456
	call	draw_infotext
-
 
457
 
525
    ret
458
	mcall	12,2
526
 
459
	popa
527
 
460
	ret
528
 
461
;-------------------------------------------------------------------------------
529
draw_infotext:
462
draw_infotext:
-
 
463
	pusha
530
 
464
	mov	eax,[keyboard]       ; KEYBOARD
531
    pusha
465
	test	eax,eax
532
 
466
	jnz	noen
533
    mov  eax,[keyboard]       ; KEYBOARD
467
	mov	[text00+LLL*1+28],dword 'ENGL'
534
    test eax,eax
468
	mov	[text00+LLL*1+32],dword 'ISH '
-
 
469
;--------------------------------------
535
    jnz  noen
470
noen:
536
    mov  [text00+LLL*5+28],dword 'ENGL'
471
	cmp	eax,1
537
    mov  [text00+LLL*5+32],dword 'ISH '
472
	jnz	nofi
538
  noen:
473
	mov	[text00+LLL*1+28],dword 'FINN'
539
    cmp  eax,1
474
	mov	[text00+LLL*1+32],dword 'ISH '
-
 
475
;--------------------------------------
540
    jnz  nofi
476
nofi:
541
    mov  [text00+LLL*5+28],dword 'FINN'
477
	cmp	eax,2
542
    mov  [text00+LLL*5+32],dword 'ISH '
478
	jnz	noge
543
  nofi:
479
	mov	[text00+LLL*1+28],dword 'GERM'
544
    cmp  eax,2
480
	mov	[text00+LLL*1+32],dword 'AN  '
-
 
481
;--------------------------------------
545
    jnz  noge
482
noge:
546
    mov  [text00+LLL*5+28],dword 'GERM'
-
 
547
    mov  [text00+LLL*5+32],dword 'AN  '
483
	cmp	eax,3
548
  noge:
484
	jnz	nogr
549
    cmp  eax,3
485
	mov	[text00+LLL*1+28],dword 'RUSS'
550
    jnz  nogr
486
	mov	[text00+LLL*1+32],dword 'IAN '
551
    mov  [text00+LLL*5+28],dword 'RUSS'
487
;--------------------------------------
552
    mov  [text00+LLL*5+32],dword 'IAN '
488
nogr:
-
 
489
	cmp	eax,4
553
  nogr:
490
	jnz	nofr
554
    cmp  eax,4
491
	mov	[text00+LLL*1+28],dword 'FREN'
555
    jnz  nofr
492
	mov	[text00+LLL*1+32],dword 'CH  '
556
    mov  [text00+LLL*5+28],dword 'FREN'
493
;--------------------------------------
557
    mov  [text00+LLL*5+32],dword 'CH  '
494
nofr:
-
 
495
	cmp	eax,5
558
  nofr:
496
	jnz	noet
559
    cmp  eax,5
497
	mov	[text00+LLL*1+28],dword 'ESTO'
560
    jnz  noet
498
	mov	[text00+LLL*1+32],dword 'NIAN'
561
    mov  [text00+LLL*5+28],dword 'ESTO'
499
;--------------------------------------
562
    mov  [text00+LLL*5+32],dword 'NIAN'
500
noet:
-
 
501
	mov	eax,[syslang]		  ; SYSTEM LANGUAGE
563
  noet:
502
	dec	eax
564
 
503
	test	eax,eax
565
    mov  eax,[syslang]		  ; SYSTEM LANGUAGE
504
	jnz	noen5
566
    dec  eax
505
	mov	[text00+LLL*0+28],dword 'ENGL'
567
    test eax,eax
506
	mov	[text00+LLL*0+32],dword 'ISH '
-
 
507
;--------------------------------------
568
    jnz  noen5
508
noen5:
569
    mov  [text00+LLL*4+28],dword 'ENGL'
509
	cmp	eax,1
570
    mov  [text00+LLL*4+32],dword 'ISH '
510
	jnz	nofi5
571
  noen5:
511
	mov	[text00+LLL*0+28],dword 'FINN'
572
    cmp  eax,1
512
	mov	[text00+LLL*0+32],dword 'ISH '
-
 
513
;--------------------------------------
573
    jnz  nofi5
514
nofi5:
574
    mov  [text00+LLL*4+28],dword 'FINN'
515
	cmp	eax,2
575
    mov  [text00+LLL*4+32],dword 'ISH '
516
	jnz	noge5
576
  nofi5:
517
	mov	[text00+LLL*0+28],dword 'GERM'
577
    cmp  eax,2
518
	mov	[text00+LLL*0+32],dword 'AN  '
-
 
519
;--------------------------------------
578
    jnz  noge5
520
noge5:
579
    mov  [text00+LLL*4+28],dword 'GERM'
-
 
580
    mov  [text00+LLL*4+32],dword 'AN  '
521
	cmp	eax,3
581
  noge5:
522
	jnz	nogr5
582
    cmp  eax,3
523
	mov	[text00+LLL*0+28],dword 'RUSS'
Line 583... Line 524...
583
    jnz  nogr5
524
	mov	[text00+LLL*0+32],dword 'IAN '
584
    mov  [text00+LLL*4+28],dword 'RUSS'
525
;--------------------------------------
585
    mov  [text00+LLL*4+32],dword 'IAN '
526
nogr5:
Line 586... Line 527...
586
  nogr5:
527
	cmp	eax,4
587
    cmp  eax,4
528
	jne	nofr5
588
    jne  nofr5
529
	mov	[text00+LLL*0+28],dword 'FREN'
Line 589... Line 530...
589
    mov  [text00+LLL*4+28],dword 'FREN'
530
	mov	[text00+LLL*0+32],dword 'CH  '
590
    mov  [text00+LLL*4+32],dword 'CH  '
531
;--------------------------------------
591
  nofr5:
532
nofr5:
592
    cmp  eax,5
-
 
593
    jne  noet5
533
	cmp	eax,5
594
    mov  [text00+LLL*4+28],dword 'ESTO'
-
 
595
    mov  [text00+LLL*4+32],dword 'NIAN'
534
	jne	noet5
596
  noet5:
535
	mov	[text00+LLL*0+28],dword 'ESTO'
597
 
-
 
-
 
536
	mov	[text00+LLL*0+32],dword 'NIAN'
598
    mov  eax,[lba_read]
537
;--------------------------------------
599
    call onoff				; LBA READ
-
 
600
    mov  [text00+LLL*8+28],ebx
-
 
601
 
-
 
602
    mov  eax,[pci_acc]
538
noet5:
603
    call onoff				; PCI ACCESS
-
 
Line 604... Line 539...
604
    mov  [text00+LLL*9+28],ebx
539
	mov	eax,[lba_read]
605
 
540
	call	onoff				; LBA READ
606
    mov  eax,[mouse_speed]		; MOUSE SPEED
541
	mov	[text00+LLL*2+28],ebx
607
    add  al,48
542
 
608
    mov  [text00+LLL*12+28],al
543
	mov	eax,[pci_acc]
609
 
544
	call	onoff				; PCI ACCESS
-
 
545
	mov	[text00+LLL*3+28],ebx
610
    mov  eax,[mouse_delay]
546
 
611
    mov  esi,text00+LLL*13+32
547
	mov	eax,[mouse_speed]		; MOUSE SPEED
612
    call hexconvert			; MOUSE DELAY
548
	add	al,48
613
 
549
	mov	[text00+LLL*4+28],al
614
    call text_out
550
 
615
 
551
	mov	eax,[mouse_delay]
-
 
552
	mov	esi,text00+LLL*5+32
616
    popa
553
	call	hexconvert			; MOUSE DELAY
617
    ret
554
	call	text_out
-
 
555
	popa
618
 
556
	ret
619
text_out:
557
;-------------------------------------------------------------------------------
620
    mov  eax,13
558
text_out:
621
    mov  ebx,175*65536+85
559
	mcall	13,<165,85>,<0,(12*8)>,0x80111199	;0x80111199-19
622
    mov  ecx,40*65536+225
560
 
623
    mov  edx,0x80111199-19
561
	mov	edx,text00
624
    mcall
562
	mov	ebx,3*65536+7
625
 
-
 
626
    mov  edx,text00
-
 
627
    mov  ebx,10*65536+45
-
 
-
 
563
	mov	eax,4
628
    mov  eax,4
564
	mov	ecx,0xffffff
629
    mov  ecx,0xffffff
565
	mov	esi,LLL
630
    mov  esi,LLL
566
	mov	ebp,text1_strings
631
    mov  ebp,text1_strings
567
;--------------------------------------
632
  newline:
568
newline:
Line 669... Line 605...
669
    add  ebx,hex
605
	add	ebx,hex
670
    mov  cl,[ebx]
606
	mov	cl,[ebx]
671
    dec  esi
607
	dec	esi
672
    mov  [esi],cl
608
	mov	[esi],cl
673
    ret
609
	ret
674
 
-
 
-
 
610
;-------------------------------------------------------------------------------
675
onoff:
611
onoff:
676
    cmp [syslang],4
612
	cmp	[syslang],4
677
    jne norus1
613
	jne	norus1
678
    mov ebx,'„€  '
614
	mov	ebx,'„€  '
679
    cmp eax,1
615
	cmp	eax,1
680
    je	      exitsub
616
	je	exitsub
681
    mov ebx,'…’ '
617
	mov	ebx,'…’ '
682
    ret
618
	ret
-
 
619
;--------------------------------------
683
 norus1:
620
norus1:
684
    mov ebx,'ON  '
621
	mov	ebx,'ON  '
685
    cmp eax,1
622
	cmp	eax,1
686
    je	      exitsub
623
	je	exitsub
687
    mov ebx,'OFF '
624
	mov	ebx,'OFF '
-
 
625
;--------------------------------------
688
 exitsub:
626
exitsub:
689
    ret
627
	ret
690
 
-
 
691
 
-
 
-
 
628
;-------------------------------------------------------------------------------
692
_lba_read:
629
_lba_read:
693
    mov  eax,21
-
 
694
    mov  ebx,11
-
 
695
    mov  ecx,[lba_read]
630
	mcall	21,11,[lba_read]
696
    mcall
-
 
697
    ret
631
	ret
698
 
-
 
-
 
632
;-------------------------------------------------------------------------------
699
_pci_acc:
633
_pci_acc:
700
    mov  eax,21
-
 
701
    mov  ebx,12
-
 
702
    mov  ecx,[pci_acc]
634
	mcall	21,12,[pci_acc]
703
    mcall
-
 
704
    ret
635
	ret
705
 
-
 
-
 
636
;-------------------------------------------------------------------------------
706
_syslang:
637
_syslang:
707
    mov  eax,21
-
 
708
    mov  ebx,5
-
 
709
    mov  ecx,[syslang]
638
	mcall	21,5,[syslang]
710
    mcall
-
 
711
 ret
639
	ret
712
 
-
 
-
 
640
;-------------------------------------------------------------------------------
713
_mouse_speed:
641
_mouse_speed:
714
    mov  eax,18
-
 
715
    mov  ebx,19
-
 
716
    mov  ecx,1
-
 
717
    mov  edx,[mouse_speed]
642
	mcall	18,19,1,[mouse_speed]
718
    mcall
-
 
719
 ret
643
	ret
720
 
-
 
-
 
644
;-------------------------------------------------------------------------------
721
_mouse_delay:
645
_mouse_delay:
722
    mov  eax,18
-
 
723
    mov  ebx,19
-
 
724
    mov  ecx,3
-
 
725
    mov  edx,[mouse_delay]
646
	mcall	18,19,3,[mouse_delay]
726
    mcall
-
 
727
 ret
647
	ret
728
 
-
 
-
 
648
;-------------------------------------------------------------------------------
729
loadtxt:
649
loadtxt:
730
    mov  edi,text00
650
	mov	edi,text00
731
    mov  ecx,488 ;28
651
	mov	ecx,LLL*(text1_strings + text2_strings)/4
732
    cmp  [syslang],4
652
	cmp	[syslang],4
733
    jne  norus
653
	jne	norus
-
 
654
 
734
    mov  esi,textrus
655
	mov	esi,textrus
735
    jmp  sload
656
	jmp	sload
-
 
657
;--------------------------------------
736
  norus:
658
norus:
737
    mov  esi,texteng
659
	mov	esi,texteng
-
 
660
;--------------------------------------
738
  sload:
661
sload:
739
    rep  movsd
662
	rep	movsd
740
    ret
663
	ret
741
 
-
 
-
 
664
;-------------------------------------------------------------------------------
742
cleantxt:
665
cleantxt:
743
    xor  eax,eax
666
	xor	eax,eax
744
    mov  ecx,428
667
	mov	ecx,LLL*(text1_strings + text2_strings)/4
745
    cld
668
	cld
746
    mov  edi,text00
669
	mov	edi,text00
747
    rep stosd
670
	rep	stosd
748
    mov  [text00+1711],byte 'x'
671
	mov	[text00+1711],byte 'x'
749
    ret
672
	ret
750
 
-
 
-
 
673
;-------------------------------------------------------------------------------
751
; DATA AREA
674
; DATA AREA
752
count:		db 0x0
675
count:		db 0x0
753
blinkpar: dd 0x0
676
blinkpar:	dd 0x0
754
time:	     dw 0x0
677
time:		dw 0x0
755
date:	     dd 0x0
678
date:		dd 0x0
756
 
-
 
-
 
679
;-------------------------------------------------------------------------------
757
textrus:
680
textrus:
758
 
-
 
759
    db '                                                           '
-
 
760
    db '                                                           '
-
 
761
    db '                                                           '
-
 
762
    db '                                                           '
-
 
763
    db '?§ëª á¨áâ¥¬ë              : ENGLISH         - +   à¨¬¥­¨âì'
681
	db 'Ÿ§ëª á¨áâ¥¬ë              : ENGLISH         - +   à¨¬¥­¨âì'
764
    db ' ᪫ ¤ª  ª« ¢¨ âãàë      : ENGLISH         - +   à¨¬¥­¨âì'
682
	db ' áª« ¤ª  ª« ¢¨ âãàë      : ENGLISH         - +   à¨¬¥­¨âì'
765
    db '                                                           '
-
 
766
    db '                                                           '
-
 
767
    db '?ª«îç¨âì LBA              : OFF             - +   à¨¬¥­¨âì'
683
	db '‚ª«îç¨âì LBA              : OFF             - +   à¨¬¥­¨âì'
768
    db '?®áâ㯠ª 設¥ PCI         : OFF             - +   à¨¬¥­¨âì'
684
	db '„®áâ㯠ª 設¥ PCI         : OFF             - +   à¨¬¥­¨âì'
769
    db '                                                           '
-
 
770
    db '                                                           '
-
 
771
    db '?ª®à®áâì ªãàá®à  ¬ëè¨     : 1               - +   à¨¬¥­¨âì'
685
	db '‘ª®à®áâì ªãàá®à  ¬ëè¨     : 1               - +   à¨¬¥­¨âì'
772
    db '? ¤¥à¦ª  ã᪮७¨ï ¬ëè¨   : 0x00a           - +   à¨¬¥­¨âì'
686
	db '‡ ¤¥à¦ª  ã᪮७¨ï ¬ëè¨   : 0x00a           - +   à¨¬¥­¨âì'
Line 773... Line 687...
773
 
687
	
774
    db '‚ˆŒ€ˆ…:                                    à¨¬¥­¨âì ¢á¥ '
688
	db '‚ˆŒ€ˆ…:                                    à¨¬¥­¨âì ¢á¥ '
775
    db '… ‡€“„œ’… ‘Ž•€ˆ’œ €‘’Ž‰Šˆ              ‘®åà ­¨âì ¢á¥ '
-
 
-
 
689
	db '… ‡€“„œ’… ‘Ž•€ˆ’œ €‘’Ž‰Šˆ              ‘®åà ­¨âì ¢á¥ '
776
 
690
;-------------------------------------------------------------------------------
777
texteng:
-
 
778
 
-
 
779
    db '                                                           '
-
 
780
    db '                                                           '
-
 
781
    db '                                                           '
-
 
782
    db '                                                           '
691
texteng:
783
    db 'SYSTEM LANGUAGE           : ENGLISH         - +     APPLY  '
692
	db 'SYSTEM LANGUAGE           : ENGLISH         - +     APPLY  '
784
    db 'KEYBOARD LAYOUT           : ENGLISH         - +     APPLY  '
-
 
785
    db '                                                           '
-
 
786
    db '                                                           '
693
	db 'KEYBOARD LAYOUT           : ENGLISH         - +     APPLY  '
787
    db 'LBA READ ENABLED          : OFF             - +     APPLY  '
694
	db 'LBA READ ENABLED          : OFF             - +     APPLY  '
788
    db 'PCI ACCESS FOR APPL.      : OFF             - +     APPLY  '
-
 
789
    db '                                                           '
-
 
790
    db '                                                           '
695
	db 'PCI ACCESS FOR APPL.      : OFF             - +     APPLY  '
791
    db 'Mouse pointer speed       : 1               - +     APPLY  '
696
	db 'Mouse pointer speed       : 1               - +     APPLY  '
792
    db 'Mouse pointer delay       : 0x00a           - +     APPLY  '
697
	db 'Mouse pointer delay       : 0x00a           - +     APPLY  '
Line 793... Line 698...
793
text1_strings = 14
698
text1_strings = 6
794
 
699
 
795
    db 'NOTE:                                           APPLY ALL  '
700
	db 'NOTE:                                           APPLY ALL  '
796
    db 'SAVE YOUR SETTINGS BEFORE QUITING KOLIBRI       SAVE ALL   '
-
 
-
 
701
	db 'SAVE YOUR SETTINGS BEFORE QUITING KOLIBRI       SAVE ALL   '
797
text2_strings = 2
702
text2_strings = 2
Line 798... Line 703...
798
 
703
;-------------------------------------------------------------------------------
799
title  db 'SETUP',0
-
 
800
 
-
 
801
hex db	       '0123456789ABCDEF'
-
 
802
 
-
 
-
 
704
title	db 'SETUP',0
803
 
705
 
804
 
-
 
805
 
-
 
806
include 'keymaps.inc'
-
 
807
 
-
 
-
 
706
hex	db '0123456789ABCDEF'
808
 
707
;-------------------------------------------------------------------------------
809
 
708
include 'keymaps.inc'
810
 
709
;-------------------------------------------------------------------------------
811
read_fileinfo:
710
read_fileinfo:
812
       dd 0
711
	dd 0
813
       dd 0
712
	dd 0
814
       dd 0
713
	dd 0
815
       dd 48
714
	dd 48
816
       dd keyboard
-
 
-
 
715
	dd keyboard
817
       db 0
716
	db 0
818
       dd file_name
717
	dd file_name
819
 
718
;-------------------------------------------------------------------------------
820
save_fileinfo:
719
save_fileinfo:
821
       dd 2
720
	dd 2
822
       dd 0
721
	dd 0
823
       dd 0
722
	dd 0
824
       dd 48
-
 
-
 
723
	dd 48
825
       dd keyboard
724
	dd keyboard
826
file_name:   db '/sys/setup.dat',0
725
file_name:	db '/sys/setup.dat',0
827
 
726
;-------------------------------------------------------------------------------
828
I_PARAM   dd 0
727
I_PARAM	dd 0
829
;-----------------------------------------------------------------------------
728
;-----------------------------------------------------------------------------
830
; Note to SVN revision 2299 - some parameters has not used,
729
; Note to SVN revision 2299 - some parameters has not used,
831
; but keep the order of the parameter has always needed!
730
; but keep the order of the parameter has always needed!
832
keyboard	dd 0x0
731
keyboard	dd 0x0
833
		dd 0	;midibase  - not use, but...
732
		dd 0	;midibase  - not use, but retained for backward compat.
834
		dd 0	;cdbase - not use, but...
733
		dd 0	;cdbase - not use, but retained for backward compat.
835
		dd 0	;sb16 - not use, but...
734
		dd 0	;sb16 - not use, but retained for backward compat.
836
syslang		dd 0x1
735
syslang		dd 0x1
837
		dd 0	;hdbase - not use, but...
736
		dd 0	;hdbase - not use, but retained for backward compat.
838
		dd 0	;f32p - not use, but...
737
		dd 0	;f32p - not use, but retained for backward compat.
839
		dd 0	;sound_dma - not use, but...
738
		dd 0	;sound_dma - not use, but retained for backward compat.
840
lba_read	dd 0x1
739
lba_read	dd 0x1
841
pci_acc		dd 0x1
740
pci_acc		dd 0x1
-
 
741
mouse_speed	dd 0x3
-
 
742
mouse_delay	dd 0x10
-
 
743
;-----------------------------------------------------------------------------
842
mouse_speed	dd 0x3
744
IM_END:
-
 
745
;-----------------------------------------------------------------------------
-
 
746
align 4
843
mouse_delay	dd 0x10
747
text00:
-
 
748
	rb	LLL*(text1_strings + text2_strings)
-
 
749
;-----------------------------------------------------------------------------
-
 
750
align 4
-
 
751
	rb	0x1000
844
;-----------------------------------------------------------------------------
752
stack_area:
845
text00:
-
 
-
 
753
;-----------------------------------------------------------------------------
846
 
754
;table_area: