Subversion Repositories Kolibri OS

; 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 aka  ''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.

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

; тут описываются процедуры которые используются в secondary loader

color_sym_black equ     0

color_sym_blue  equ     1

color_sym_green equ     2

color_sym_turquoise equ 3

color_sym_red   equ     4

color_sym_lightgray equ 7

color_sym_lightblue equ 9

color_sym_lettuce   equ 10

color_sym_pink  equ     12

color_sym_yellow equ    14

color_sym_white equ     15

if DEBUG

decode:

;input eax - число, es:di куда писать, cx=10

        cmp     eax, ecx

        jb      @f

        xor     edx, edx

        div     ecx

        push    edx

        call    decode

        pop     eax

    @@:

        or      al, 0x30

        mov     [ds:di], al

        inc     di

        ret

end if

putchar:

; in: al=character

        mov     ah, 0Eh

        mov     bh, 0

        int     10h

        ret

printplain:

; in: si->string

        pushad

        lodsb

@@:

        call    putchar

        lodsb

        test    al, al

        jnz     @b

        mov     al, 13

        call    putchar

        mov     al, 10

        call    putchar

        popad

        ret

getkey:

; get number in range [bl,bh] (bl,bh in ['0'..'9'])

; in: bx=range

; out: ax=digit (1..9, 10 for 0)

        mov     ah, 0

        int     16h

        cmp     al, bl

        jb      getkey

        cmp     al, bh

        ja      getkey

        push    ax

        call    putchar

        pop     ax

        and     ax, 0Fh

        jnz     @f

        mov     al, 10

@@:

        ret

;setcursor:

; in: dl=column, dh=row

;        mov     ah, 2

;        mov     bh, 0

;        int     10h

;        ret

;macro _setcursor row,column

;{

;        mov     dx, row*256 + column

;        call    setcursor

;}

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

;

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

get_firs_sym:

.start:

        mov     al, byte [es:di]

        inc     di

        dec     cx

        jcxz    .exit

        cmp     al, 0xa         ;cmp al,0xa

        jz      ._entry

        cmp     al, ';'

        jnz     .start

.first_com:

        mov     al, 0xa

        repnz scasb

        jcxz    .exit

._entry:

        mov     al, byte [es:di]

.first_sp:

        cmp     al, ' '

        jnz     .not_space

;       mov     al,' '          ;cut ' '

        repe scasb

        dec     di

        inc     cx

        mov     al, byte [es:di]

.not_space:

        cmp     al, ';'

        jz      .first_com

.exit:

        ret

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

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

show_name_section:

        push    si

        push    ini_data_

        pop     es

        mov     al, ']'

        repnz scasb

        test    cx, cx

        jz      error.incorect_section_def

.find_val_name_fb1:

        mov     al, 'n'

.find_val_name_fb:

        repnz scasb

        jcxz    .not_name_sec_fb

        mov     si, parse_name

        push    cx

        push    di

        mov     cx, parse_name_e -parse_name

        repe cmpsb

        pop     di

        pop     cx

        jz      .yaaa_find_value

        jmp     .find_val_name_fb

.yaaa_find_value:

        sub     cx, parse_name_e -parse_name

        add     di, parse_name_e -parse_name

        mov     ax, 0x3d20         ; ah='='

        repe scasb

        test    cx, cx

        jz      .not_name_sec_fb

        cmp     ah, byte [es:di-1]   ;find '='

        jnz     .find_val_name_fb1

        repe scasb                 ;cut ' '

        inc     cx

        dec     di

;все вырезали и все готово для вывода имени секции ))

        push    es

        pop     ds

.def_sect_name:

        push    0xb800

        pop     es

;clear array for message

        xor     ax, ax

if DEBUG

        mov     ax, 0x0720

end if

        mov     cx, 39

        mov     si, di

        mov     di, dx

        sub     di, 2

        rep stosw

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

        mov     di, dx

        mov     ah, color_sym_white;color_sym_lightblue

        mov     cx, 36

        lodsb

        sub     di, 2

        cmp     al, '"'

        jz      @f

        cmp     al, "'"

        jnz     .end_sh_name_sec

@@:

        lodsb

@@:

        stosw

        lodsb

        cmp     al, '"'

        jz      .end_sh_name_sec

        cmp     al, "'"

        jz      .end_sh_name_sec

        loop    @b

        mov     al, '}'

        mov     ah, color_sym_yellow

        stosw

.end_sh_name_sec:

        push    cs

        pop     ds

        pop     si

        ret

.not_name_sec_fb:    ;нет имени в названии секции - значит так и скажем об этом

        push    cs

        pop     ds

        mov     di, default_section_name

        jmp     .def_sect_name

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

;процедура поиска вверх следующей секции

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

;для того что бы отобразить и пропарсить следующий фрейм, нам нужно получить за пердыдущий или следующий указатель

find_before_sect:

        mov     di, point_default

.e:

        push    ini_data_