WebSVN – Kolibri OS – Diff – /kernel/trunk/sec_loader/trunk/parse_loader.inc


; Copyright (c) 2009, 
; All rights reserved.
;
; Redistribution and use in source and binary forms, with or without
; modification, are permitted provided that the following conditions are met:
;       * Redistributions of source code must retain the above copyright
;       notice, this list of conditions and the following disclaimer.
;       * Redistributions in binary form must reproduce the above copyright
;       notice, this list of conditions and the following disclaimer in the
;       documentation and/or other materials provided with the distribution.
;       * Neither the name of the  nor the
;       names of its contributors may be used to endorse or promote products
;       derived from this software without specific prior written permission.
;
; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname  ''AS IS'' AND ANY
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
; DISCLAIMED. IN NO EVENT SHALL  BE LIABLE FOR ANY
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;*****************************************************************************
 
;блок макросов по обработке секции [loader]
;входные данные:
;es:di - указатель на секцию начинающиюся с '[' встечающиюся после 0хa
;cx - счетчик кол-во байт для проверке в кадре
;
macro use_parse_loader
{
.parse_loader:
;//////////////////
;/ parse  [loader]
;//////////////////
        mov     bx, cx  ;cохраним в регистры значения счетчика и указателя
        mov     ax, di
 
;       mov     word [bp-4],.start  ;is alredy set, see up
        mov     si, parse_loader
        mov     cx, parse_loader_e - parse_loader
        repe cmpsb
        jnz     error.rest_value        ;цепочка не совпала :( перейдем далее  т.е. будем снова искать)) 
 
        ;сохраним указательна loader, что бы потом больше его не искать
        mov     point_loader, ax
        sub     bx, parse_loader_e - parse_loader;correct cx
        add     bx, cx
        mov     cx, bx
 
if DEBUG        
        pusha
        mov     si, lm_l_found
        call    printplain
        popa
end if  
;/////////////////end check [loader]. [loader] is found
;parsing section [loader]
;first found end section,let's found '[' -it's start next section
;in previosly steep bx =cx we are not need save cx, save only di - point 
        mov     dx, di
@@:
        call    get_firs_sym
        jcxz    .loader_f_end ;.end_loader         ; end даже если мы не нашли секцию предположим что секция [loader] стоит в конце
        cmp     al, '['
        jnz     @b
 
.loader_f_end:
        sub     bx, cx  ;bx = n byte presend in section [loader]
        mov     di, dx  ;restore di 
;////////////////parse parametrs in section [loader]
;//timeout=5
;//default=main
;        mov    di,dx   ;set pointer on section [loader]   i think it's not need
        mov     cx, bx  ;set counter for parsing section [loader] cx= кол-ву символов в секции [loader]
        mov     ret_on_ch, .get_next_str; return point 
;;;;;;; parse timeout & default
.get_next_str:
        call    get_firs_sym    ;get first symbol on new line
 
        test    cx, cx
        jz      .end_loader
;        jcxz   .end_loader     ;завершение парсинга значений timeout & default 
        cmp     al, 't'
        jz      .loader_timeout
        cmp     al, 'd'
        jnz     .get_next_str
;//////[loader].default 
;input di point to data cx=size [loader]
        mov     bx, cx
        mov     ax, di
 
        mov     si, parse_l_default
        mov     cx, parse_l_default_e - parse_l_default
        repe cmpsb
 
        jnz     error.rest_value      ;is not compare цепочка не совпала
 
        sub     bx, parse_l_default_e - parse_l_default;correct cx
        add     bx, cx
        mov     cx, bx
 
        test    status_flag, flag_found_default
        jz      .correct_is_not_set
 
        mov     si, found_equal_default                         ;мы нашли что флаг уже установлен, информируем
        call    printplain
        jmp     .get_next_str
 
.correct_is_not_set:
        mov     ax, 0x3d20         ;cut al=' ' ah='='
        repe scasb
        test    cx, cx
        jz      .end_loader
        
        cmp     ah, byte [es:di-1]   ;find '='
        jnz     .get_next_str
        
        repe scasb                 ;cut ' '
        inc     cx
        dec     di
;сейчас es:di указывают на название секции, имя секции по дефолту не должно быть loader т.е. иначе возможно зацикливание
;установим указатель si на это значение и сначала проверим
 
;получение длинны секции
; cx=bx содержит длинну остатка секции
; di=ax указатель на текущию секцию
        mov     bx, cx
        mov     dx, di
 
@@:
        mov     al, byte [es:di]
        inc     di
        dec     cx
        test    cx, cx
        jz      error.error_get_size_d_sect  ;переход на обработку ошибки по нахождению длины дефолтной секции
        cmp     al, ' '
        jz      @b
        cmp     al, 0xd
        jz      .found_size_d_sect
        cmp     al, 0xa
        jnz     @b
.found_size_d_sect:
;
        inc     cx      ;correct cx
        mov     ax, bx
        sub     bx, cx  ; в bx длина секции которая определена по дефолту
        mov     save_cx_d, bx
        mov     di, dx
 
        mov     cx, bx  ;set size default section
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;проверка на =loader
;save in reg point and счетчик
;check on loader 
        mov     bx, ax
        mov     ax, dx
 
        mov     si, parse_loader
        inc     si      ;set only loader and 6 char in counter
        repe cmpsb
        jnz     .check_section        ;цепочка не совпала :( перейдем далее )) значит не исключение
 
        jmp     error.default_eq_loader    ;error критическая ошибка т.е. в дефолте присутствует имя [loader]
 
.check_section:         ;поиск соответствующей секции нам нужно будет узнать адрес этой секции
        mov     cx, bx
        mov     di, ax
 
;/////////////////////////////
;       mov     ret_on_ch,.start_d     ;set return 
        mov     si, di  ;установим указатель на нашу секцию, которая по дефолту
 
        push    di      ;save point di
 
        push    cx      ;save cx
;установим указатель es:di на начало ini файла
        mov     cx, save_cx     ;it's placed size of ini file
        les     di, dword [file_data]
 
 
        mov     al, byte [es:di]
        push    word .first_ret_d
        cmp     al, ' '
        jz      .first_sp_1_d
        jmp     get_firs_sym.not_space
.first_sp_1_d:
        jmp     get_firs_sym.first_sp
 
.start_d:
        call    get_firs_sym    ;get first symbol on new line
.first_ret_d:                     ;первый возврат
        jcxz    .correct_exit   ;.end_loader     ;found or not found parametrs in section  exit in section
        cmp     al, '['
        jz      .found_sect_d
        jmp     .start_d
;просматриваем ini файл с начала в поисках секции указаной как default
;идет проверка на наличее значения timeout, для более быстрой работы, этот параметр должен быть уже обработан,т.е. в этом случае при его =0 будет сформирован указатель только на дефолтную секцию, иначе информация будет собрана по всем секциям и составлены указатели в блоке памяти        
.found_sect_d:
 
;check on name section
        mov     bx, cx
        mov     ax, di
        push    si      ;save point
        
;        mov     si,parse_loader
        mov     cx, save_cx_d;load size section
        push    es
        pop     ds
 
        inc     di
        repe cmpsb
        push    cs
        pop     ds
        pop     si
 
        jnz     .not_compare_d_s        ;цепочка не совпала :( перейдем далее )) значит не исключение
        cmp     byte[es:di], ']'
        jnz     .not_compare_d_s        ;нет в конце нашей секции завершающего символа :(
 
 
 
;set flag -we have found default -not enter again in this prosedure
        or      status_flag, flag_found_default
        pop     cx
        pop     di
        mov     point_default, ax       ;point to [
 
if DEBUG        
        pusha
        mov     si, lm_lf_default_f
        call    printplain
        popa
end if  
        
        jmp     .get_next_str
 
.not_compare_d_s:
 
        mov     cx, bx
        mov     di, ax
        jmp     .start_d
 
.correct_exit:
        pop     cx ;восстановим значение счетчика
        pop     di
 
 
if DEBUG        
        pusha
        mov     si, lm_lf_default
        call    printplain
        popa
end if  
        jmp     .get_next_str
 
;//////////[loader].timeout
.loader_timeout:
        mov     bx, cx
        mov     ax, di
 
        mov     si, parse_l_timeout
        mov     cx, parse_l_timeout_e - parse_l_timeout
        repe cmpsb
        jnz     error.rest_value           ;is not compare
 
        sub     bx, parse_l_timeout_e - parse_l_timeout;correct cx
        add     bx, cx
        mov     cx, bx
 
        test    status_flag, flag_found_timeout
        jz      .correct_is_not_set_t
 
        mov     si, found_equal_timeout                         ;мы нашли что флаг уже установлен, информируем
        call    printplain
        jmp     .get_next_str
 
.correct_is_not_set_t:
        mov     ax, 0x3d20         ;cut al=' ' ah='='
        repe scasb
        jcxz    .timeout_sec_end_d          ;not found param timeout
        
        cmp     ah, byte [es:di-1]   ;find '='
        jnz     .get_next_str
        
        repe scasb                 ;cut ' '
        inc     cx
        dec     di
;get timeout value
;2 знакa может быть обработано т.е. значение от 0 до 99 секунд
        push    cx
        xor     bx, bx
        mov     cx, 2
@@:
        mov     al, byte [es:di]
        cmp     al, '0'
        jb      .end_get_val_t
        cmp     al, '9'
        ja      .end_get_val_t
        imul    bx, 10
        xor     al, 0x30
        add     bl, al
.end_get_val_t:
        inc     di
        loop    @b
        mov     word [value_timeout], bx
;       pop     cx
 
if DEBUG        
        pusha
        mov     si, lm_lf_timeout
        call    printplain
        popa
end if  
 
        jmp     @f
.timeout_sec_end_d:
        mov     word [value_timeout], default_timeout_value
        mov     si, set_default_timeout_val
        call    printplain
@@:
        pop     cx
        jmp     .get_next_str
 
;///////here end block loader
.end_loader:
if DEBUG        
        pusha
        mov     si, lm_l_end
        call    printplain
        popa
end if  
 
}

Rev 2288	Rev 3539
1	; Copyright (c) 2009,	1	; Copyright (c) 2009,
2	; All rights reserved.	2	; All rights reserved.
3	;	3	;
4	; Redistribution and use in source and binary forms, with or without	4	; Redistribution and use in source and binary forms, with or without
5	; modification, are permitted provided that the following conditions are met:	5	; modification, are permitted provided that the following conditions are met:
6	; * Redistributions of source code must retain the above copyright	6	; * Redistributions of source code must retain the above copyright
7	; notice, this list of conditions and the following disclaimer.	7	; notice, this list of conditions and the following disclaimer.
8	; * Redistributions in binary form must reproduce the above copyright	8	; * Redistributions in binary form must reproduce the above copyright
9	; notice, this list of conditions and the following disclaimer in the	9	; notice, this list of conditions and the following disclaimer in the
10	; documentation and/or other materials provided with the distribution.	10	; documentation and/or other materials provided with the distribution.
11	; * Neither the name of the nor the	11	; * Neither the name of the nor the
12	; names of its contributors may be used to endorse or promote products	12	; names of its contributors may be used to endorse or promote products
13	; derived from this software without specific prior written permission.	13	; derived from this software without specific prior written permission.
14	;	14	;
15	; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname ''AS IS'' AND ANY	15	; THIS SOFTWARE IS PROVIDED BY Alexey Teplov nickname ''AS IS'' AND ANY
16	; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED	16	; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
17	; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE	17	; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
18	; DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY	18	; DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY
19	; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES	19	; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
20	; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;	20	; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
21	; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND	21	; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
22	; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT	22	; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23	; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS	23	; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
24	; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.	24	; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
25	;*****************************************************************************	25	;*****************************************************************************
26		26
27	;áëîê ìàêðîñîâ ïî îáðàáîòêå ñåêöèè [loader]	27	;блок макросов по обработке секции [loader]
28	;âõîäíûå äàííûå:	28	;входные данные:
29	;es:di - óêàçàòåëü íà ñåêöèþ íà÷èíàþùèþñÿ ñ '[' âñòå÷àþùèþñÿ ïîñëå 0õa	29	;es:di - указатель на секцию начинающиюся с '[' встечающиюся после 0хa
30	;cx - ñ÷åò÷èê êîë-âî áàéò äëÿ ïðîâåðêå â êàäðå	30	;cx - счетчик кол-во байт для проверке в кадре
31	;	31	;
32	macro use_parse_loader	32	macro use_parse_loader
33	{	33	{
34	.parse_loader:	34	.parse_loader:
35	;//////////////////	35	;//////////////////
36	;/ parse [loader]	36	;/ parse [loader]
37	;//////////////////	37	;//////////////////
38	mov bx, cx ;cîõðàíèì â ðåãèñòðû çíà÷åíèÿ ñ÷åò÷èêà è óêàçàòåëÿ	38	mov bx, cx ;cохраним в регистры значения счетчика и указателя
39	mov ax, di	39	mov ax, di
40		40
41	; mov word [bp-4],.start ;is alredy set, see up	41	; mov word [bp-4],.start ;is alredy set, see up
42	mov si, parse_loader	42	mov si, parse_loader
43	mov cx, parse_loader_e - parse_loader	43	mov cx, parse_loader_e - parse_loader
44	repe cmpsb	44	repe cmpsb
45	jnz error.rest_value ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå ò.å. áóäåì ñíîâà èñêàòü))	45	jnz error.rest_value ;цепочка не совпала :( перейдем далее т.е. будем снова искать))
46		46
47	;ñîõðàíèì óêàçàòåëüíà loader, ÷òî áû ïîòîì áîëüøå åãî íå èñêàòü	47	;сохраним указательна loader, что бы потом больше его не искать
48	mov point_loader, ax	48	mov point_loader, ax
49	sub bx, parse_loader_e - parse_loader;correct cx	49	sub bx, parse_loader_e - parse_loader;correct cx
50	add bx, cx	50	add bx, cx
51	mov cx, bx	51	mov cx, bx
52		52
53	if DEBUG	53	if DEBUG
54	pusha	54	pusha
55	mov si, lm_l_found	55	mov si, lm_l_found
56	call printplain	56	call printplain
57	popa	57	popa
58	end if	58	end if
59	;/////////////////end check [loader]. [loader] is found	59	;/////////////////end check [loader]. [loader] is found
60	;parsing section [loader]	60	;parsing section [loader]
61	;first found end section,let's found '[' -it's start next section	61	;first found end section,let's found '[' -it's start next section
62	;in previosly steep bx =cx we are not need save cx, save only di - point	62	;in previosly steep bx =cx we are not need save cx, save only di - point
63	mov dx, di	63	mov dx, di
64	@@:	64	@@:
65	call get_firs_sym	65	call get_firs_sym
66	jcxz .loader_f_end ;.end_loader ; end äàæå åñëè ìû íå íàøëè ñåêöèþ ïðåäïîëîæèì ÷òî ñåêöèÿ [loader] ñòîèò â êîíöå	66	jcxz .loader_f_end ;.end_loader ; end даже если мы не нашли секцию предположим что секция [loader] стоит в конце
67	cmp al, '['	67	cmp al, '['
68	jnz @b	68	jnz @b
69		69
70	.loader_f_end:	70	.loader_f_end:
71	sub bx, cx ;bx = n byte presend in section [loader]	71	sub bx, cx ;bx = n byte presend in section [loader]
72	mov di, dx ;restore di	72	mov di, dx ;restore di
73	;////////////////parse parametrs in section [loader]	73	;////////////////parse parametrs in section [loader]
74	;//timeout=5	74	;//timeout=5
75	;//default=main	75	;//default=main
76	; mov di,dx ;set pointer on section [loader] i think it's not need	76	; mov di,dx ;set pointer on section [loader] i think it's not need
77	mov cx, bx ;set counter for parsing section [loader] cx= êîë-âó ñèìâîëîâ â ñåêöèè [loader]	77	mov cx, bx ;set counter for parsing section [loader] cx= кол-ву символов в секции [loader]
78	mov ret_on_ch, .get_next_str; return point	78	mov ret_on_ch, .get_next_str; return point
79	;;;;;;; parse timeout & default	79	;;;;;;; parse timeout & default
80	.get_next_str:	80	.get_next_str:
81	call get_firs_sym ;get first symbol on new line	81	call get_firs_sym ;get first symbol on new line
82		82
83	test cx, cx	83	test cx, cx
84	jz .end_loader	84	jz .end_loader
85	; jcxz .end_loader ;çàâåðøåíèå ïàðñèíãà çíà÷åíèé timeout & default	85	; jcxz .end_loader ;завершение парсинга значений timeout & default
86	cmp al, 't'	86	cmp al, 't'
87	jz .loader_timeout	87	jz .loader_timeout
88	cmp al, 'd'	88	cmp al, 'd'
89	jnz .get_next_str	89	jnz .get_next_str
90	;//////[loader].default	90	;//////[loader].default
91	;input di point to data cx=size [loader]	91	;input di point to data cx=size [loader]
92	mov bx, cx	92	mov bx, cx
93	mov ax, di	93	mov ax, di
94		94
95	mov si, parse_l_default	95	mov si, parse_l_default
96	mov cx, parse_l_default_e - parse_l_default	96	mov cx, parse_l_default_e - parse_l_default
97	repe cmpsb	97	repe cmpsb
98		98
99	jnz error.rest_value ;is not compare öåïî÷êà íå ñîâïàëà	99	jnz error.rest_value ;is not compare цепочка не совпала
100		100
101	sub bx, parse_l_default_e - parse_l_default;correct cx	101	sub bx, parse_l_default_e - parse_l_default;correct cx
102	add bx, cx	102	add bx, cx
103	mov cx, bx	103	mov cx, bx
104		104
105	test status_flag, flag_found_default	105	test status_flag, flag_found_default
106	jz .correct_is_not_set	106	jz .correct_is_not_set
107		107
108	mov si, found_equal_default ;ìû íàøëè ÷òî ôëàã óæå óñòàíîâëåí, èíôîðìèðóåì	108	mov si, found_equal_default ;мы нашли что флаг уже установлен, информируем
109	call printplain	109	call printplain
110	jmp .get_next_str	110	jmp .get_next_str
111		111
112	.correct_is_not_set:	112	.correct_is_not_set:
113	mov ax, 0x3d20 ;cut al=' ' ah='='	113	mov ax, 0x3d20 ;cut al=' ' ah='='
114	repe scasb	114	repe scasb
115	test cx, cx	115	test cx, cx
116	jz .end_loader	116	jz .end_loader
117		117
118	cmp ah, byte [es:di-1] ;find '='	118	cmp ah, byte [es:di-1] ;find '='
119	jnz .get_next_str	119	jnz .get_next_str
120		120
121	repe scasb ;cut ' '	121	repe scasb ;cut ' '
122	inc cx	122	inc cx
123	dec di	123	dec di
124	;ñåé÷àñ es:di óêàçûâàþò íà íàçâàíèå ñåêöèè, èìÿ ñåêöèè ïî äåôîëòó íå äîëæíî áûòü loader ò.å. èíà÷å âîçìîæíî çàöèêëèâàíèå	124	;сейчас es:di указывают на название секции, имя секции по дефолту не должно быть loader т.е. иначе возможно зацикливание
125	;óñòàíîâèì óêàçàòåëü si íà ýòî çíà÷åíèå è ñíà÷àëà ïðîâåðèì	125	;установим указатель si на это значение и сначала проверим
126		126
127	;ïîëó÷åíèå äëèííû ñåêöèè	127	;получение длинны секции
128	; cx=bx ñîäåðæèò äëèííó îñòàòêà ñåêöèè	128	; cx=bx содержит длинну остатка секции
129	; di=ax óêàçàòåëü íà òåêóùèþ ñåêöèþ	129	; di=ax указатель на текущию секцию
130	mov bx, cx	130	mov bx, cx
131	mov dx, di	131	mov dx, di
132		132
133	@@:	133	@@:
134	mov al, byte [es:di]	134	mov al, byte [es:di]
135	inc di	135	inc di
136	dec cx	136	dec cx
137	test cx, cx	137	test cx, cx
138	jz error.error_get_size_d_sect ;ïåðåõîä íà îáðàáîòêó îøèáêè ïî íàõîæäåíèþ äëèíû äåôîëòíîé ñåêöèè	138	jz error.error_get_size_d_sect ;переход на обработку ошибки по нахождению длины дефолтной секции
139	cmp al, ' '	139	cmp al, ' '
140	jz @b	140	jz @b
141	cmp al, 0xd	141	cmp al, 0xd
142	jz .found_size_d_sect	142	jz .found_size_d_sect
143	cmp al, 0xa	143	cmp al, 0xa
144	jnz @b	144	jnz @b
145	.found_size_d_sect:	145	.found_size_d_sect:
146	;	146	;
147	inc cx ;correct cx	147	inc cx ;correct cx
148	mov ax, bx	148	mov ax, bx
149	sub bx, cx ; â bx äëèíà ñåêöèè êîòîðàÿ îïðåäåëåíà ïî äåôîëòó	149	sub bx, cx ; в bx длина секции которая определена по дефолту
150	mov save_cx_d, bx	150	mov save_cx_d, bx
151	mov di, dx	151	mov di, dx
152		152
153	mov cx, bx ;set size default section	153	mov cx, bx ;set size default section
154	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ïðîâåðêà íà =loader	154	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;проверка на =loader
155	;save in reg point and ñ÷åò÷èê	155	;save in reg point and счетчик
156	;check on loader	156	;check on loader
157	mov bx, ax	157	mov bx, ax
158	mov ax, dx	158	mov ax, dx
159		159
160	mov si, parse_loader	160	mov si, parse_loader
161	inc si ;set only loader and 6 char in counter	161	inc si ;set only loader and 6 char in counter
162	repe cmpsb	162	repe cmpsb
163	jnz .check_section ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå )) çíà÷èò íå èñêëþ÷åíèå	163	jnz .check_section ;цепочка не совпала :( перейдем далее )) значит не исключение
164		164
165	jmp error.default_eq_loader ;error êðèòè÷åñêàÿ îøèáêà ò.å. â äåôîëòå ïðèñóòñòâóåò èìÿ [loader]	165	jmp error.default_eq_loader ;error критическая ошибка т.е. в дефолте присутствует имя [loader]
166		166
167	.check_section: ;ïîèñê ñîîòâåòñòâóþùåé ñåêöèè íàì íóæíî áóäåò óçíàòü àäðåñ ýòîé ñåêöèè	167	.check_section: ;поиск соответствующей секции нам нужно будет узнать адрес этой секции
168	mov cx, bx	168	mov cx, bx
169	mov di, ax	169	mov di, ax
170		170
171	;/////////////////////////////	171	;/////////////////////////////
172	; mov ret_on_ch,.start_d ;set return	172	; mov ret_on_ch,.start_d ;set return
173	mov si, di ;óñòàíîâèì óêàçàòåëü íà íàøó ñåêöèþ, êîòîðàÿ ïî äåôîëòó	173	mov si, di ;установим указатель на нашу секцию, которая по дефолту
174		174
175	push di ;save point di	175	push di ;save point di
176		176
177	push cx ;save cx	177	push cx ;save cx
178	;óñòàíîâèì óêàçàòåëü es:di íà íà÷àëî ini ôàéëà	178	;установим указатель es:di на начало ini файла
179	mov cx, save_cx ;it's placed size of ini file	179	mov cx, save_cx ;it's placed size of ini file
180	les di, dword [file_data]	180	les di, dword [file_data]
181		181
182		182
183	mov al, byte [es:di]	183	mov al, byte [es:di]
184	push word .first_ret_d	184	push word .first_ret_d
185	cmp al, ' '	185	cmp al, ' '
186	jz .first_sp_1_d	186	jz .first_sp_1_d
187	jmp get_firs_sym.not_space	187	jmp get_firs_sym.not_space
188	.first_sp_1_d:	188	.first_sp_1_d:
189	jmp get_firs_sym.first_sp	189	jmp get_firs_sym.first_sp
190		190
191	.start_d:	191	.start_d:
192	call get_firs_sym ;get first symbol on new line	192	call get_firs_sym ;get first symbol on new line
193	.first_ret_d: ;ïåðâûé âîçâðàò	193	.first_ret_d: ;первый возврат
194	jcxz .correct_exit ;.end_loader ;found or not found parametrs in section exit in section	194	jcxz .correct_exit ;.end_loader ;found or not found parametrs in section exit in section
195	cmp al, '['	195	cmp al, '['
196	jz .found_sect_d	196	jz .found_sect_d
197	jmp .start_d	197	jmp .start_d
198	;ïðîñìàòðèâàåì ini ôàéë ñ íà÷àëà â ïîèñêàõ ñåêöèè óêàçàíîé êàê default	198	;просматриваем ini файл с начала в поисках секции указаной как default
199	;èäåò ïðîâåðêà íà íàëè÷åå çíà÷åíèÿ timeout, äëÿ áîëåå áûñòðîé ðàáîòû, ýòîò ïàðàìåòð äîëæåí áûòü óæå îáðàáîòàí,ò.å. â ýòîì ñëó÷àå ïðè åãî =0 áóäåò ñôîðìèðîâàí óêàçàòåëü òîëüêî íà äåôîëòíóþ ñåêöèþ, èíà÷å èíôîðìàöèÿ áóäåò ñîáðàíà ïî âñåì ñåêöèÿì è ñîñòàâëåíû óêàçàòåëè â áëîêå ïàìÿòè	199	;идет проверка на наличее значения timeout, для более быстрой работы, этот параметр должен быть уже обработан,т.е. в этом случае при его =0 будет сформирован указатель только на дефолтную секцию, иначе информация будет собрана по всем секциям и составлены указатели в блоке памяти
200	.found_sect_d:	200	.found_sect_d:
201		201
202	;check on name section	202	;check on name section
203	mov bx, cx	203	mov bx, cx
204	mov ax, di	204	mov ax, di
205	push si ;save point	205	push si ;save point
206		206
207	; mov si,parse_loader	207	; mov si,parse_loader
208	mov cx, save_cx_d;load size section	208	mov cx, save_cx_d;load size section
209	push es	209	push es
210	pop ds	210	pop ds
211		211
212	inc di	212	inc di
213	repe cmpsb	213	repe cmpsb
214	push cs	214	push cs
215	pop ds	215	pop ds
216	pop si	216	pop si
217		217
218	jnz .not_compare_d_s ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå )) çíà÷èò íå èñêëþ÷åíèå	218	jnz .not_compare_d_s ;цепочка не совпала :( перейдем далее )) значит не исключение
219	cmp byte[es:di], ']'	219	cmp byte[es:di], ']'
220	jnz .not_compare_d_s ;íåò â êîíöå íàøåé ñåêöèè çàâåðøàþùåãî ñèìâîëà :(	220	jnz .not_compare_d_s ;нет в конце нашей секции завершающего символа :(
221		221
222		222
223		223
224	;set flag -we have found default -not enter again in this prosedure	224	;set flag -we have found default -not enter again in this prosedure
225	or status_flag, flag_found_default	225	or status_flag, flag_found_default
226	pop cx	226	pop cx
227	pop di	227	pop di
228	mov point_default, ax ;point to [	228	mov point_default, ax ;point to [
229		229
230	if DEBUG	230	if DEBUG
231	pusha	231	pusha
232	mov si, lm_lf_default_f	232	mov si, lm_lf_default_f
233	call printplain	233	call printplain
234	popa	234	popa
235	end if	235	end if
236		236
237	jmp .get_next_str	237	jmp .get_next_str
238		238
239	.not_compare_d_s:	239	.not_compare_d_s:
240		240
241	mov cx, bx	241	mov cx, bx
242	mov di, ax	242	mov di, ax
243	jmp .start_d	243	jmp .start_d
244		244
245	.correct_exit:	245	.correct_exit:
246	pop cx ;âîññòàíîâèì çíà÷åíèå ñ÷åò÷èêà	246	pop cx ;восстановим значение счетчика
247	pop di	247	pop di
248		248
249		249
250	if DEBUG	250	if DEBUG
251	pusha	251	pusha
252	mov si, lm_lf_default	252	mov si, lm_lf_default
253	call printplain	253	call printplain
254	popa	254	popa
255	end if	255	end if
256	jmp .get_next_str	256	jmp .get_next_str
257		257
258	;//////////[loader].timeout	258	;//////////[loader].timeout
259	.loader_timeout:	259	.loader_timeout:
260	mov bx, cx	260	mov bx, cx
261	mov ax, di	261	mov ax, di
262		262
263	mov si, parse_l_timeout	263	mov si, parse_l_timeout
264	mov cx, parse_l_timeout_e - parse_l_timeout	264	mov cx, parse_l_timeout_e - parse_l_timeout
265	repe cmpsb	265	repe cmpsb
266	jnz error.rest_value ;is not compare	266	jnz error.rest_value ;is not compare
267		267
268	sub bx, parse_l_timeout_e - parse_l_timeout;correct cx	268	sub bx, parse_l_timeout_e - parse_l_timeout;correct cx
269	add bx, cx	269	add bx, cx
270	mov cx, bx	270	mov cx, bx
271		271
272	test status_flag, flag_found_timeout	272	test status_flag, flag_found_timeout
273	jz .correct_is_not_set_t	273	jz .correct_is_not_set_t
274		274
275	mov si, found_equal_timeout ;ìû íàøëè ÷òî ôëàã óæå óñòàíîâëåí, èíôîðìèðóåì	275	mov si, found_equal_timeout ;мы нашли что флаг уже установлен, информируем
276	call printplain	276	call printplain
277	jmp .get_next_str	277	jmp .get_next_str
278		278
279	.correct_is_not_set_t:	279	.correct_is_not_set_t:
280	mov ax, 0x3d20 ;cut al=' ' ah='='	280	mov ax, 0x3d20 ;cut al=' ' ah='='
281	repe scasb	281	repe scasb
282	jcxz .timeout_sec_end_d ;not found param timeout	282	jcxz .timeout_sec_end_d ;not found param timeout
283		283
284	cmp ah, byte [es:di-1] ;find '='	284	cmp ah, byte [es:di-1] ;find '='
285	jnz .get_next_str	285	jnz .get_next_str
286		286
287	repe scasb ;cut ' '	287	repe scasb ;cut ' '
288	inc cx	288	inc cx
289	dec di	289	dec di
290	;get timeout value	290	;get timeout value
291	;2 çíàêa ìîæåò áûòü îáðàáîòàíî ò.å. çíà÷åíèå îò 0 äî 99 ñåêóíä	291	;2 знакa может быть обработано т.е. значение от 0 до 99 секунд
292	push cx	292	push cx
293	xor bx, bx	293	xor bx, bx
294	mov cx, 2	294	mov cx, 2
295	@@:	295	@@:
296	mov al, byte [es:di]	296	mov al, byte [es:di]
297	cmp al, '0'	297	cmp al, '0'
298	jb .end_get_val_t	298	jb .end_get_val_t
299	cmp al, '9'	299	cmp al, '9'
300	ja .end_get_val_t	300	ja .end_get_val_t
301	imul bx, 10	301	imul bx, 10
302	xor al, 0x30	302	xor al, 0x30
303	add bl, al	303	add bl, al
304	.end_get_val_t:	304	.end_get_val_t:
305	inc di	305	inc di
306	loop @b	306	loop @b
307	mov word [value_timeout], bx	307	mov word [value_timeout], bx
308	; pop cx	308	; pop cx
309		309
310	if DEBUG	310	if DEBUG
311	pusha	311	pusha
312	mov si, lm_lf_timeout	312	mov si, lm_lf_timeout
313	call printplain	313	call printplain
314	popa	314	popa
315	end if	315	end if
316		316
317	jmp @f	317	jmp @f
318	.timeout_sec_end_d:	318	.timeout_sec_end_d:
319	mov word [value_timeout], default_timeout_value	319	mov word [value_timeout], default_timeout_value
320	mov si, set_default_timeout_val	320	mov si, set_default_timeout_val
321	call printplain	321	call printplain
322	@@:	322	@@:
323	pop cx	323	pop cx
324	jmp .get_next_str	324	jmp .get_next_str
325		325
326	;///////here end block loader	326	;///////here end block loader
327	.end_loader:	327	.end_loader:
328	if DEBUG	328	if DEBUG
329	pusha	329	pusha
330	mov si, lm_l_end	330	mov si, lm_l_end
331	call printplain	331	call printplain
332	popa	332	popa
333	end if	333	end if
334		334
335	}	335	}

Subversion Repositories Kolibri OS

(root)/kernel/trunk/sec_loader/trunk/parse_loader.inc – Rev 2288 → 3539