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.

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

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

;òóò ðàñïîëîãàåòñÿ ìîäóëü ñ ïîìîùüþ êîòîðîãî áóäóò ïàðñèòüñÿ âñå îñòàëüíûå ñåêöèè

;тут распологается модуль с помощью которого будут парситься все остальные секции

color_sym_black equ     0

color_sym_black equ     0

color_sym_blue  equ     1

color_sym_blue  equ     1

color_sym_green equ     2

color_sym_green equ     2

color_sym_turquoise equ 3

color_sym_turquoise equ 3

color_sym_pink  equ     12

color_sym_pink  equ     12

color_sym_yellow equ    14

color_sym_yellow equ    14

macro use_any_sec

macro use_any_sec

;èíà÷å ìû åå äîëæíû îòîáðàçèòü è æäàòü çàÿâëåíîå âðåìÿ äëÿ âûáîðà è êîíèãóðèðîâàíèÿ ïóêíêòîâ ñåêöèè îò ïîëüçîâàòåëÿ.

;иначе мы ее должны отобразить и ждать заявленое время для выбора и конигурирования пукнктов секции от пользователя.

        pusha

        pusha

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

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

;        mov     ax,cx

;        mov     ax,cx

        mov     cx, 0x0a

        mov     cx, 0x0a

        mov     di, show_db1

        mov     di, show_db1

end if  

end if  

        test    ax, ax

        test    ax, ax

;îòîáðàçèì ïîëíûé ñïèñîê âñåõ íàéäåíûõ ñåêöèé.

;отобразим полный список всех найденых секций.

if DEBUG

if DEBUG

        pusha

        pusha

        mov     si, show_all_sect

        mov     si, show_all_sect

        call    printplain

        call    printplain

        popa

        popa

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

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

        mov     al, 0xf6        ; Ñáðîñ êëàâèàòóðû, ðàçðåøèòü ñêàíèðîâàíèå

        mov     al, 0xf6        ; Сброс клавиатуры, разрешить сканирование

        out     0x60, al

        out     0x60, al

        xor     cx, cx

        xor     cx, cx

.wait_loop:       ; variant 2

.wait_loop:       ; variant 2

; get start time

; get start time

        call    gettime

        call    gettime

        mov     dword [start_timer], eax

        mov     dword [start_timer], eax

        mov     word [timer_], newtimer

        mov     word [timer_], newtimer

        mov     word [timer_+2], cs

        mov     word [timer_+2], cs

        cli

        cli

        push    0

        push    0

        pop     es

        pop     es

        push    dword [es:8*4]

        push    dword [es:8*4]

        pop     dword [old_timer]

        pop     dword [old_timer]

        push    dword [timer_]

        push    dword [timer_]

        pop     dword [es:8*4]

        pop     dword [es:8*4]

        sti

        sti

;ïðîöåäóðà ôîðìèðîâàíèÿ áóôåðà äëÿ ñêðîëèíãà ñåêöèé

;процедура формирования буфера для скролинга секций

;if DEBUG        

;if DEBUG        

;        pusha

;        pusha

;       mov     ax,point_default

;       mov     ax,point_default

;        mov     ax,cx

;        mov     ax,cx

;

;

;       xor     ax,ax

;       xor     ax,ax

;       int     0x16

;       int     0x16

;        popa

;        popa

;end if  

;end if  

        mov     save_descript_size, 18

        mov     save_descript_size, 18

show_bl_sc      ;es=0xb800

show_bl_sc      ;es=0xb800

.show_all_scr:

.show_all_scr:

get_frame_buffer  ;es=0x2000

get_frame_buffer  ;es=0x2000

        call    show_bl_sc_sect   ;es=0xb800

        call    show_bl_sc_sect   ;es=0xb800

.show_active_cursor:

.show_active_cursor:

show_act_cursor

show_act_cursor

;îòîáðàçèòü Press any key ....

;отобразить Press any key ....

        mov     eax, dword [old_timer]

        mov     eax, dword [old_timer]

        cmp     eax, dword [timer_]

        cmp     eax, dword [timer_]

        jz      .interrupt_16

        jz      .interrupt_16

show_timer_message

show_timer_message

.interrupt_16:

.interrupt_16:

        xor     ax, ax  ;ïîëó÷èì èíôîðìàöèþ î òîì ÷òî íàæàòî

        xor     ax, ax  ;получим информацию о том что нажато

        int     0x16

        int     0x16

;check on change

;check on change

        mov     ebx, dword [old_timer]

        mov     ebx, dword [old_timer]

        cmp     ebx, dword [timer_]

        cmp     ebx, dword [timer_]

        jz      @f

        jz      @f

;restore timer interrupt

;restore timer interrupt

        cli

        cli

        pop     es

        pop     es

;        mov     eax,dword [old_timer]  ; âîññòàíîâèì ïðåæäíåå ïðåðûâàíèå

;        mov     eax,dword [old_timer]  ; восстановим прежднее прерывание

        mov     [es:8*4], ebx

        mov     [es:8*4], ebx

        mov     dword [timer_], ebx

        mov     dword [timer_], ebx

        sti

        sti

        push    ax

        push    ax

clear_timer_msg

clear_timer_msg

@@:

@@:

        call    clean_active_cursor   ;clean old cursor   ;es=0xb800

        call    clean_active_cursor   ;clean old cursor   ;es=0xb800

        cmp     ah, 0x48 ;ðåàêöèÿ ñèñòåìû íà ñîáûòèÿ

        cmp     ah, 0x48 ;реакция системы на события

        jz      .up

        jz      .up

        jz      .end

        jz      .end

        cmp     al, 0xD

        cmp     al, 0xD

.up:

.up:

        mov     si, point_to_point_def  ;çíà÷åíèå óêàçàòåëÿ

        mov     si, point_to_point_def  ;значение указателя

        add     si, 2

        add     si, 2

        lea     ax, point_to_hframe

        lea     ax, point_to_hframe

        jmp     .show_all_scr

        jmp     .show_all_scr

.down:

.down:

        mov     si, point_to_point_def  ;çíà÷åíèå óêàçàòåëÿ

        mov     si, point_to_point_def  ;значение указателя

        mov     ax, point_to_eframe     ;óêàçàòåëü íà ïîñëåäíèé ýëåìåíò

        mov     ax, point_to_eframe     ;указатель на последний элемент

        sub     si, 2

        sub     si, 2

        jmp     .show_all_scr

        jmp     .show_all_scr

; òóò ìû áóäåì ïàðñèòü òîëüêî äåôîëòíóþ ñåêöèþ è âûïîëíÿòü åå íè÷åãî íå ïðåäëàãàÿ ïîëüçîâàòåëþ èç äèàëîãîâ. 

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

.parse_run_only:

.parse_run_only:

;show black screen SL

;show black screen SL

macro show_bl_sc

macro show_bl_sc

{

{

;î÷èñòèì ýêðàí è âûâåäåì ìåíþ 

;очистим экран и выведем меню 

; draw frames

; draw frames

        xor     ax, ax

        xor     ax, ax

if DEBUG

if DEBUG

        mov     ax, 0x0720

        mov     ax, 0x0720

        stosw

        stosw

        loop    @b

        loop    @b

;;;;;;;;;;;;;;;;;;;;;;; show '__________________________'

;;;;;;;;;;;;;;;;;;;;;;; show '__________________________'

        mov     di, 480

        mov     di, 480

        mov     ah, color_sym_yellow

        mov     ah, color_sym_yellow

        mov     cx, 61

        mov     cx, 61

        rep stosw

        rep stosw

;;;;;;;;;;;;;;;;;;;;;;; show 'Select section'

;;;;;;;;;;;;;;;;;;;;;;; show 'Select section'

        mov     di, 804

        mov     di, 804

        mov     si, select_section

        mov     si, select_section

        les     di, dword [file_data]

        les     di, dword [file_data]

        mov     si, di  ;point frame

        mov     si, di  ;point frame

        mov     bx, cx

        mov     bx, cx

;       mov     point_to_hframe,di      ; âíåñåì çíà÷åíèå, òàê ïîäñòðàõîâêà íå áîëåå

;       mov     point_to_hframe,di      ; внесем значение, так подстраховка не более

        mov     al, byte [es:di]

        mov     al, byte [es:di]

        push    word .first_ret_bl_sc

        push    word .first_ret_bl_sc

        jmp     .analisist_al

        jmp     .analisist_al

        call    get_firs_sym    ;get first symbol on new line

        call    get_firs_sym    ;get first symbol on new line

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

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

        test    cx, cx

        test    cx, cx

        jz      error.correct_exit_bl   ;critical error not found default point it's not possible because it's param chacking before

        jz      error.correct_exit_bl   ;critical error not found default point it's not possible because it's param chacking before

.analisist_al:

.analisist_al:

;ïðîñìàòðèâàåì ini ôàéë ñ íà÷àëà â ïîèñêàõ ñåêöèè óêàçàíîé êàê default 

;просматриваем ini файл с начала в поисках секции указаной как default 

;ïîèñê ôðåéìà â êîòîðîì ñîäåðæèòüñÿ çíà÷åíèå default

;поиск фрейма в котором содержиться значение default

.found_sect_bl:

.found_sect_bl:

        cmp     di, point_loader

        cmp     di, point_loader

        jz      .start_bl

        jz      .start_bl

        jmp     .start_hbl

        jmp     .start_hbl

.save_point_def:

.save_point_def:

;èòàê äàëåå ìû äîëæíû çàïîëíèòü frame áóôåð àäðåñîâ ñåêöèé, ÷òî áû ïîòîì ïî íåìó áûñòðî ïåðåìåùàòüñÿ íå âû÷èñëÿÿ ñíîâà àäðåñà

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

        lea     si, point_to_hframe

        lea     si, point_to_hframe

        mov     dx, size_show_section+1  ;ò.ê. ó íàñ ñòðóêòóðà ñîäåðæèò ðàçìåð ìåæäó ïåðâûì è âòîðûì óêàçàòåëåì, òî íàì íóæíî íà 1 àäðåñ áîëüøå îáñ÷èòàòü ñåêöèé.

        mov     dx, size_show_section+1  ;т.к. у нас структура содержит размер между первым и вторым указателем, то нам нужно на 1 адрес больше обсчитать секций.

;ïåðåõîäèì íà îáðàáîòêó çíà÷åíèÿ óêàçàòåëÿ

;переходим на обработку значения указателя

        mov     al, byte [es:di]

        mov     al, byte [es:di]

        push    word .first_ret_mfb

        push    word .first_ret_mfb

        cmp     al, ' '

        cmp     al, ' '

        jz      .first_bl_mbf

        jz      .first_bl_mbf

        jmp     get_firs_sym.not_space

        jmp     get_firs_sym.not_space

.first_bl_mbf:

.first_bl_mbf:

.start_mfb:

.start_mfb:

        call    get_firs_sym    ;get first symbol on new line

        call    get_firs_sym    ;get first symbol on new line

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

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

}

}

{

{

;îòîáðàæåíèå êóðñîðà ïî óìîë÷àíèþ

;отображение курсора по умолчанию

        lea     si, point_to_hframe

        lea     si, point_to_hframe

        mov     di, 962-160

        mov     di, 962-160

        mov     ax, point_default

        mov     ax, point_default

        call    show_bl_sc_sect ;es=0xb800

        call    show_bl_sc_sect ;es=0xb800

}

}

macro show_descript

macro show_descript

;Ýòîò ìàêðîñ ïîêàçûâàåò êðàòêîå îïèñàíèå, åñëè îíî åñòü ó ñåêöèè â ïóíêòå 

;Этот макрос показывает краткое описание, если оно есть у секции в пункте 

;Section description

;Section description

{

{

local .start_p_sh_d

local .start_p_sh_d

        mov     di, point_default

        mov     di, point_default

        push    ini_data_

        push    ini_data_

        mov     si, point_to_point_def

        mov     si, point_to_point_def

        pop     es

        pop     es

        sub     si, 2

        sub     si, 2

.start_p_sh_d:

.start_p_sh_d:

        call    get_firs_sym    ;get first symbol on new line

        call    get_firs_sym    ;get first symbol on new line

        jz      .exit   ;íåòó? íó ëàäíî - ñëåäóþùåå çíà÷åíèå òîãäà ) 

        jz      .exit   ;нету? ну ладно - следующее значение тогда ) 

        cmp     al, 'd'

        cmp     al, 'd'

        jnz     .start_p_sh_d

        jnz     .start_p_sh_d

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

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

        jnz     .rest_value_loop_sh_d      ;is not compare

        jnz     .rest_value_loop_sh_d      ;is not compare

        sub     bx, parse_descript_e - parse_descript;correct cx

        sub     bx, parse_descript_e - parse_descript;correct cx

        add     bx, cx

        add     bx, cx

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ðàçáîð àëÿ ' = '

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; разбор аля ' = '

        mov     ax, 0x3d20         ;cut al=' ' ah='='

        mov     ax, 0x3d20         ;cut al=' ' ah='='

        repe scasb

        repe scasb

        jcxz    .rest_value_loop_sh_d          ;not found param timeout

        jcxz    .rest_value_loop_sh_d          ;not found param timeout

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

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

        jnz     .rest_value_loop_sh_d

        jnz     .rest_value_loop_sh_d

;ñòðî÷êà áóäåò âûâîäèòüñÿ áëîêàìè ïî 37 ñèìâîëîâ.

;строчка будет выводиться блоками по 37 символов.

;íàñòðîèì êóäà áóäåì âûâîäèòü ò.å. íà÷àëî

;настроим куда будем выводить т.е. начало

;es:di - óêàçûâàþò íà ñòðî÷êó èç êîòîðîé ìû áåðåì ñèìâîë, ds:si êóäà áóäåì âûâîäèòü

;es:di - указывают на строчку из которой мы берем символ, ds:si куда будем выводить

        push    di

        push    di