Subversion Repositories Kolibri OS

; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

; 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

; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS

; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

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

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

;cx - ñ÷åò÷èê êîë-âî áàéò äëÿ ïðîâåðêå â êàäðå

;cx - счетчик кол-во байт для проверке в кадре

;

;

macro use_parse_loader

macro use_parse_loader

{

{

.parse_loader:

.parse_loader:

;//////////////////

;//////////////////

;/ parse  [loader]

;/ parse  [loader]

        mov     bx, cx  ;cîõðàíèì â ðåãèñòðû çíà÷åíèÿ ñ÷åò÷èêà è óêàçàòåëÿ

        mov     bx, cx  ;cохраним в регистры значения счетчика и указателя

        mov     ax, di

        mov     ax, di

;       mov     word [bp-4],.start  ;is alredy set, see up

;       mov     word [bp-4],.start  ;is alredy set, see up

        mov     si, parse_loader

        mov     si, parse_loader

        jnz     error.rest_value        ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå  ò.å. áóäåì ñíîâà èñêàòü)) 

        jnz     error.rest_value        ;цепочка не совпала :( перейдем далее  т.е. будем снова искать)) 

        ;ñîõðàíèì óêàçàòåëüíà loader, ÷òî áû ïîòîì áîëüøå åãî íå èñêàòü

        ;сохраним указательна loader, что бы потом больше его не искать

        mov     point_loader, ax

        mov     point_loader, ax

;first found end section,let's found '[' -it's start next section

;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 

;in previosly steep bx =cx we are not need save cx, save only di - point 

        mov     dx, di

        mov     dx, di

@@:

@@:

        call    get_firs_sym

        call    get_firs_sym

        cmp     al, '['

        cmp     al, '['

        jnz     @b

        jnz     @b

.loader_f_end:

.loader_f_end:

        sub     bx, cx  ;bx = n byte presend in section [loader]

        sub     bx, cx  ;bx = n byte presend in section [loader]

        mov     di, dx  ;restore di 

        mov     di, dx  ;restore di 

;////////////////parse parametrs in section [loader]

;////////////////parse parametrs in section [loader]

;//timeout=5

;//timeout=5

;//default=main

;//default=main

        mov     cx, bx  ;set counter for parsing section [loader] cx= êîë-âó ñèìâîëîâ â ñåêöèè [loader]

        mov     cx, bx  ;set counter for parsing section [loader] cx= кол-ву символов в секции [loader]

        mov     ret_on_ch, .get_next_str; return point 

        mov     ret_on_ch, .get_next_str; return point 

;;;;;;; parse timeout & default

;;;;;;; parse timeout & default

.get_next_str:

.get_next_str:

        call    get_firs_sym    ;get first symbol on new line

        call    get_firs_sym    ;get first symbol on new line

        jz      .end_loader

        jz      .end_loader

;        jcxz   .end_loader     ;çàâåðøåíèå ïàðñèíãà çíà÷åíèé timeout & default 

;        jcxz   .end_loader     ;завершение парсинга значений timeout & default 

        cmp     al, 't'

        cmp     al, 't'

        jz      .loader_timeout

        jz      .loader_timeout

        cmp     al, 'd'

        cmp     al, 'd'

        mov     si, parse_l_default

        mov     si, parse_l_default

        mov     cx, parse_l_default_e - parse_l_default

        mov     cx, parse_l_default_e - parse_l_default

        jnz     error.rest_value      ;is not compare öåïî÷êà íå ñîâïàëà

        jnz     error.rest_value      ;is not compare цепочка не совпала

        sub     bx, parse_l_default_e - parse_l_default;correct cx

        sub     bx, parse_l_default_e - parse_l_default;correct cx

        add     bx, cx

        add     bx, cx

        test    status_flag, flag_found_default

        test    status_flag, flag_found_default

        jz      .correct_is_not_set

        jz      .correct_is_not_set

        jnz     .get_next_str

        jnz     .get_next_str

        repe scasb                 ;cut ' '

        repe scasb                 ;cut ' '

        inc     cx

        inc     cx

; cx=bx ñîäåðæèò äëèííó îñòàòêà ñåêöèè

; cx=bx содержит длинну остатка секции

; di=ax óêàçàòåëü íà òåêóùèþ ñåêöèþ

; di=ax указатель на текущию секцию

        mov     bx, cx

        mov     bx, cx

        mov     dx, di

        mov     dx, di

@@:

@@:

        mov     al, byte [es:di]

        mov     al, byte [es:di]

        dec     cx

        dec     cx

        test    cx, cx

        test    cx, cx

        jz      error.error_get_size_d_sect  ;ïåðåõîä íà îáðàáîòêó îøèáêè ïî íàõîæäåíèþ äëèíû äåôîëòíîé ñåêöèè

        jz      error.error_get_size_d_sect  ;переход на обработку ошибки по нахождению длины дефолтной секции

        cmp     al, ' '

        cmp     al, ' '

        jz      @b

        jz      @b

        cmp     al, 0xd

        cmp     al, 0xd

        jz      .found_size_d_sect

        jz      .found_size_d_sect

        cmp     al, 0xa

        cmp     al, 0xa

        jnz     @b

        jnz     @b

.found_size_d_sect:

.found_size_d_sect:

        inc     cx      ;correct cx

        inc     cx      ;correct cx

        mov     ax, bx

        mov     ax, bx

        sub     bx, cx  ; â bx äëèíà ñåêöèè êîòîðàÿ îïðåäåëåíà ïî äåôîëòó

        sub     bx, cx  ; в bx длина секции которая определена по дефолту

        mov     cx, bx  ;set size default section

        mov     cx, bx  ;set size default section

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ïðîâåðêà íà =loader

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;проверка на =loader

;save in reg point and ñ÷åò÷èê

;save in reg point and счетчик

;check on loader 

;check on loader 

        mov     bx, ax

        mov     bx, ax

        inc     si      ;set only loader and 6 char in counter

        inc     si      ;set only loader and 6 char in counter

        repe cmpsb

        repe cmpsb

        jnz     .check_section        ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå )) çíà÷èò íå èñêëþ÷åíèå

        jnz     .check_section        ;цепочка не совпала :( перейдем далее )) значит не исключение

.check_section:         ;ïîèñê ñîîòâåòñòâóþùåé ñåêöèè íàì íóæíî áóäåò óçíàòü àäðåñ ýòîé ñåêöèè

.check_section:         ;поиск соответствующей секции нам нужно будет узнать адрес этой секции

        mov     di, ax

        mov     di, ax

;/////////////////////////////

;/////////////////////////////

.first_sp_1_d:

.first_sp_1_d:

        jmp     get_firs_sym.first_sp

        jmp     get_firs_sym.first_sp

.start_d:

.start_d:

.first_ret_d:                     ;ïåðâûé âîçâðàò

.first_ret_d:                     ;первый возврат

        jcxz    .correct_exit   ;.end_loader     ;found or not found parametrs in section  exit in section

        jcxz    .correct_exit   ;.end_loader     ;found or not found parametrs in section  exit in section

        cmp     al, '['

        cmp     al, '['

        jz      .found_sect_d

        jz      .found_sect_d

;èäåò ïðîâåðêà íà íàëè÷åå çíà÷åíèÿ timeout, äëÿ áîëåå áûñòðîé ðàáîòû, ýòîò ïàðàìåòð äîëæåí áûòü óæå îáðàáîòàí,ò.å. â ýòîì ñëó÷àå ïðè åãî =0 áóäåò ñôîðìèðîâàí óêàçàòåëü òîëüêî íà äåôîëòíóþ ñåêöèþ, èíà÷å èíôîðìàöèÿ áóäåò ñîáðàíà ïî âñåì ñåêöèÿì è ñîñòàâëåíû óêàçàòåëè â áëîêå ïàìÿòè        

;идет проверка на наличее значения timeout, для более быстрой работы, этот параметр должен быть уже обработан,т.е. в этом случае при его =0 будет сформирован указатель только на дефолтную секцию, иначе информация будет собрана по всем секциям и составлены указатели в блоке памяти        

.found_sect_d:

.found_sect_d:

;check on name section

;check on name section

        repe cmpsb

        repe cmpsb

        push    cs

        push    cs

        pop     ds

        pop     ds

        pop     si

        pop     si

        jnz     .not_compare_d_s        ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå )) çíà÷èò íå èñêëþ÷åíèå

        jnz     .not_compare_d_s        ;цепочка не совпала :( перейдем далее )) значит не исключение

        jnz     .not_compare_d_s        ;íåò â êîíöå íàøåé ñåêöèè çàâåðøàþùåãî ñèìâîëà :(

        jnz     .not_compare_d_s        ;нет в конце нашей секции завершающего символа :(

        mov     cx, bx

        mov     cx, bx

        mov     di, ax

        mov     di, ax

        jmp     .start_d

        jmp     .start_d

        pop     cx ;âîññòàíîâèì çíà÷åíèå ñ÷åò÷èêà

        pop     cx ;восстановим значение счетчика

        pop     di

        pop     di

        mov     cx, bx

        mov     cx, bx

        test    status_flag, flag_found_timeout

        test    status_flag, flag_found_timeout

        mov     si, found_equal_timeout                         ;ìû íàøëè ÷òî ôëàã óæå óñòàíîâëåí, èíôîðìèðóåì

        mov     si, found_equal_timeout                         ;мы нашли что флаг уже установлен, информируем

        call    printplain

        call    printplain

        jmp     .get_next_str

        jmp     .get_next_str

        repe scasb                 ;cut ' '

        repe scasb                 ;cut ' '

        inc     cx

        inc     cx

        dec     di

        dec     di

;2 çíàêa ìîæåò áûòü îáðàáîòàíî ò.å. çíà÷åíèå îò 0 äî 99 ñåêóíä

;2 знакa может быть обработано т.е. значение от 0 до 99 секунд

        push    cx

        push    cx

        xor     bx, bx

        xor     bx, bx

        mov     cx, 2

        mov     cx, 2

@@:

@@: