WebSVN – Kolibri OS – Diff – /kernel/trunk/sec_loader/trunk/parse_any.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 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.
;*****************************************************************************
 
;тут распологается модуль с помощью которого будут парситься все остальные секции
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
 
macro use_any_sec
{
;узнаем работу предыдущего шага т.е. чему = timeout, если он 0, то визуальная часть не будет отображена на дисплее с выбором загрузочных секций.
;иначе мы ее должны отобразить и ждать заявленое время для выбора и конигурирования пукнктов секции от пользователя.
 
if DEBUG        
        pusha
        mov     ax, word [value_timeout];идет проверка на наличее значения timeout, для более быстрой работы, этот параметр должен быть уже обработан,т.е. в этом случае при его =0 будет сформирован указатель только на дефолтную секцию, иначе информация будет собрана по всем секциям и составлены указатели в блоке памяти
;        mov     ax,cx
        mov     cx, 0x0a
        mov     di, show_db1
        mov     dword[ds:di], '    '
        mov     word [ds:di+4], '  '
        call    decode
;Show size
        mov     si, show_db1
        call    printplain
;
        popa
end if  
 
        test    ax, ax
        jz      .parse_run_only
 
;отобразим полный список всех найденых секций.
if DEBUG
        pusha
        mov     si, show_all_sect
        call    printplain
        popa
end if
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        mov     al, 0xf6        ; Сброс клавиатуры, разрешить сканирование
        out     0x60, al
        xor     cx, cx
.wait_loop:       ; variant 2
; reading state of port of 8042 controller
        in      al, 64h
        and     al, 00000010b  ; ready flag
; wait until 8042 controller is ready
        loopnz  .wait_loop
 
 
; set keyboard typematic rate & delay
        mov     al, 0xf3
        out     0x60, al
        xor     cx, cx
@@:
        in      al, 64h
        test    al, 2
        loopnz  @b
        mov     al, 0
        out     0x60, al
        xor     cx, cx
@@:
        in      al, 64h
        test    al, 2
        loopnz  @b
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; get start time
        call    gettime
        mov     dword [start_timer], eax
        mov     word [timer_], newtimer
        mov     word [timer_+2], cs
;установить свое прерывание на таймер т.е. код будет перрываться ~18 раз в сек и переходить на обработчик
        cli
        push    0
        pop     es
        push    dword [es:8*4]
        pop     dword [old_timer]
        push    dword [timer_]
        pop     dword [es:8*4]
        sti
 
;процедура формирования буфера для скролинга секций
;if DEBUG        
;        pusha
;       mov     ax,point_default
;        mov     ax,cx
;        mov     cx,0x0a
;        mov     di,show_db1
;        mov     dword[ds:di],'    '
;       mov     word [ds:di+4],'  '
;        call    decode                                                                    
;Show size
;        mov     si,show_db1
;        call    printplain
;
;       xor     ax,ax
;       int     0x16
;        popa
;end if  
;;;;;;;;;;;;;размер предыдущей сеции установим =0
        mov     save_descript_size, 18
;отобразить black screen
show_bl_sc      ;es=0xb800
.show_all_scr:
get_frame_buffer  ;es=0x2000
;отображение секций
        call    show_bl_sc_sect   ;es=0xb800
;отобразить активный курсор
.show_active_cursor:
show_act_cursor
show_descript   ;макрос по отображению описания секции
 
;отобразить Press any key ....
        mov     eax, dword [old_timer]
        cmp     eax, dword [timer_]
        jz      .interrupt_16
 
show_timer_message
        mov     word [start_stack], sp
.interrupt_16:
        xor     ax, ax  ;получим информацию о том что нажато
        int     0x16
;check on change
        mov     ebx, dword [old_timer]
        cmp     ebx, dword [timer_]
        jz      @f
;restore timer interrupt
        cli
        push    0
        pop     es
;        mov     eax,dword [old_timer]  ; восстановим прежднее прерывание
        mov     [es:8*4], ebx
        mov     dword [timer_], ebx
        sti
        
        push    ax
clear_timer_msg
        pop     ax
@@:
        call    clean_active_cursor   ;clean old cursor   ;es=0xb800
 
        cmp     ah, 0x48 ;реакция системы на события
        jz      .up
        cmp     ah, 0x50
        jz      .down
        cmp     ah, 0x49
        jz      .pgup
        cmp     ah, 0x51
        jz      .pgdown
        cmp     ah, 0x47
        jz      .home
        cmp     ah, 0x4f
        jz      .end
 
        cmp     al, 0xD
        jnz     .show_active_cursor
 
        jmp     .end_show_all           ;парсинг секции которая указана в point_default
.up:
        mov     si, point_to_point_def  ;значение указателя
        add     si, 2
        lea     ax, point_to_hframe
 
        cmp     si, ax
        ja      @f
 
        mov     point_to_point_def, si
        mov     ax, [si]
        mov     point_default, ax
        jmp     .show_active_cursor
@@:     
        call    find_before_sect
        jmp     .show_all_scr
 
 
 
.down:
        mov     si, point_to_point_def  ;значение указателя
        mov     ax, point_to_eframe     ;указатель на последний элемент
        sub     si, 2
        cmp     si, ax
        jb      @f
 
        mov     point_to_point_def, si
        mov     ax, [si]
        mov     point_default, ax
        jmp     .show_active_cursor
 
@@:
        call    find_next_sect
        jmp     .show_all_scr
 
.pgup:
        mov     cx, size_show_section
@@:
        push    cx
        call    find_before_sect
        pop     cx
        loop    @b
        jmp     .show_all_scr
 
 
.pgdown:
        mov     cx, size_show_section
@@:
        push    cx
        call    find_next_sect
        pop     cx
        loop    @b
        jmp     .show_all_scr
 
.home:
        xor     di, di
        call    find_next_sect.h
        jmp     .show_all_scr
 
.end:
        mov     di, save_cx
        call    find_before_sect.e
        jmp     .show_all_scr
 
 
 
 
; тут мы будем парсить только дефолтную секцию и выполнять ее ничего не предлагая пользователю из диалогов. 
.parse_run_only:
if DEBUG
        pusha
        mov     si, no_show_only_w
        call    printplain
        popa
end if
 
 
.end_show_all:
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
;show black screen SL
macro show_bl_sc
{
;;;;;;;;;;;;;;;
;очистим экран и выведем меню 
; draw frames
        xor     ax, ax
if DEBUG
        mov     ax, 0x0720
end if
        push    0xb800
        pop     es
        xor     di, di
; draw top
        mov     cx, 25 * 80
        rep stosw
;;;;;;;;;;;;;;;;;;;;;;; show 'Secondary Loader v0.xxx'
        mov     di, 164
        mov     si, version
        mov     cx, version_end-version
        mov     ah, color_sym_yellow
@@:
        lodsb
        stosw
        loop    @b
;;;;;;;;;;;;;;;;;;;;;;; show firm ))
        mov     di, (2*160-(2*(soft_mes_end-soft_mes+4)))       ;286
        mov     ah, color_sym_pink;color_sym_red
        mov     al, 'K'
        stosw
        mov     al, ' '
        stosw
        mov     ah, color_sym_lightgray;color_sym_lightblue;color_sym_pink
        mov     si, soft_mes
        mov     cx, soft_mes_end- soft_mes
@@:
        lodsb
        stosw
        loop    @b
;;;;;;;;;;;;;;;;;;;;;;; show '__________________________'
        mov     di, 480
        mov     ah, color_sym_yellow
        mov     al, 0xC4 ; '─'
        mov     cx, 61
        rep stosw
;;;;;;;;;;;;;;;;;;;;;;; show 'Select section'
        mov     di, 804
        mov     si, select_section
        mov     cx, select_section_end - select_section
        mov     ah, color_sym_lightgray
@@:
        lodsb
        stosw
        loop    @b
;;;;;;;;;;;;;;;;;;;;;;; show 'Section description'
        mov     di, 880
        mov     si, section_description
        mov     cx, section_description_end - section_description
;       mov     ah,color_sym_lightgray
@@:
        lodsb
        stosw
        loop    @b
 
}
 
macro show_timer_message
{
;;;;;;;;;;;;;;;;;;;;; show Press any key
;;;;;;;;;;;;;;;;;;;;; show ramk
 
        xor     ax, ax
        mov     di, 3360
        mov     cx, 80*4
        rep stosw
 
        mov     di, 3362
        mov     ah, color_sym_pink
        mov     al, 0xDA
        stosw
        mov     al, 0xc4
        mov     cx, 76
        rep stosw
        mov     al, 0xBF
        stosw
        add     di, 4
        mov     al, 0xb3
        stosw
        add     di, 152
        stosw
        add     di, 4
        stosw
        add     di, 152
        stosw
        add     di, 4
        mov     al, 0xc0
        stosw
        mov     al, 0xc4
        mov     cx, 76
        rep stosw
        mov     al, 0xd9
        stosw
;;;;;;;;;;;;;;;;;;;;;;;;ramk is complete show
;show first message
        mov     si, start_msg
        mov     cx, start_msg_e-start_msg
        mov     di, 3526
@@:
        lodsb
        stosw
        loop    @b
;;;;;;;;;;;;;;;;;;;; show press Enter to....
        add     di, 44
        mov     si, time_msg
        mov     cx, time_msg_e-time_msg
@@:
        lodsb
        stosw
        loop    @b
}
 
 
 
 
 
 
 
 
macro get_frame_buffer
{
        mov     cx, save_cx     ;it's placed size of ini file
        les     di, dword [file_data]
 
        mov     si, di  ;point frame
        mov     bx, cx
        mov     dx, size_show_section
;       mov     point_to_hframe,di      ; внесем значение, так подстраховка не более
 
        mov     al, byte [es:di]
        push    word .first_ret_bl_sc
        cmp     al, ' '
        jz      .first_bl_sc
        jmp     get_firs_sym.not_space
.first_bl_sc:
        jmp     get_firs_sym.first_sp
 
.start_hbl:              
        call    get_firs_sym    ;get first symbol on new line
        test    cx, cx
        jz      error.correct_exit_bl   ;critical error not found default point it's not possible because it's param chacking before
        cmp     al, '['
        jnz     .start_hbl
 
        mov     si, di   ;point frame
        mov     bx, cx
        mov     dx, size_show_section
        jmp     .analisist_al
 
 
.start_bl:
        call    get_firs_sym    ;get first symbol on new line
.first_ret_bl_sc:                     ;первый возврат
        test    cx, cx
        jz      error.correct_exit_bl   ;critical error not found default point it's not possible because it's param chacking before
.analisist_al:
        cmp     al, '['
        jnz     .start_bl
;просматриваем ini файл с начала в поисках секции указаной как default 
;поиск фрейма в котором содержиться значение default
.found_sect_bl:
        cmp     di, point_loader
        jz      .start_bl
        cmp     di, point_default
        jz      .save_point_def
 
        dec     dx
        jnz     .start_bl
 
        jmp     .start_hbl
 
 
.save_point_def:
;итак далее мы должны заполнить frame буфер адресов секций, что бы потом по нему быстро перемещаться не вычисляя снова адреса
        mov     di, si  ;указатель на начало 
        mov     cx, bx
        lea     si, point_to_hframe
        mov     dx, size_show_section+1  ;т.к. у нас структура содержит размер между первым и вторым указателем, то нам нужно на 1 адрес больше обсчитать секций.
;переходим на обработку значения указателя
        mov     al, byte [es:di]
        push    word .first_ret_mfb
        cmp     al, ' '
        jz      .first_bl_mbf
        jmp     get_firs_sym.not_space
.first_bl_mbf:
        jmp     get_firs_sym.first_sp
 
.start_mfb:
        call    get_firs_sym    ;get first symbol on new line
.first_ret_mfb:                     ;первый возврат
        jcxz    .val_buff_comp  ;.end_loader     ;found or not found parametrs in section  exit in section
        cmp     al, '['
        jnz     .start_mfb
 
.found_sect_mfb:
        cmp     di, point_loader    ;if we have section loader
        jz      .start_mfb
 
        mov     [si], di
 
        sub     si, 2
        dec     dx
        jnz     .start_mfb
;bufer is full
        jmp     @f
.val_buff_comp:
        push    save_cx
        pop     word [si]
        sub     si, 2
@@:
 
        add     si, 4
        mov     point_to_eframe, si
 
}
 
macro show_act_cursor
{
;отображение курсора по умолчанию
        lea     si, point_to_hframe
        mov     di, 962-160
        mov     ax, point_default
        mov     cx, size_show_section
.home_show_cur:
        mov     bx, [si]
        add     di, 160
        cmp     bx, ax
        jz      .show_cursor_activ
        sub     si, 2
        loop    .home_show_cur
 
.show_cursor_activ:
;        push   0xb800
;       pop     es
        mov     point_to_point_def, si
        mov     ax, (color_sym_red*0x100+0x10)
        stosw
        add     di, 68
        inc     ax
        stosw
}
 
macro clear_timer_msg
{
        push    0xb800
        pop     es
        xor     ax, ax
if DEBUG
        mov     ax, 0x0720
end if
;;;;;;;;;;;;;;;;;;;;; show Press any key
        mov     di, 3360
        mov     cx, 80*4
        rep stosw
 
;show sect
        push    ini_data_
        pop     es
        call    show_bl_sc_sect ;es=0xb800
 
}
 
macro show_descript
;Этот макрос показывает краткое описание, если оно есть у секции в пункте 
;Section description
{
local .start_p_sh_d
local .exit
local .rest_value_loop_sh_d
local .end_sh_desc_sec
local .loop_message
local .show_mess_prev_eq
        mov     di, point_default
        push    ini_data_
        mov     si, point_to_point_def
        pop     es
        sub     si, 2
        mov     cx, [si]        ;загрузим указатель наследующию секцию
        sub     cx, di          ;вот теперь имеем истиный размер
;di - указатель на дефолтную секцию т.е. выбранную cx - размер области. для просмотра
 
.start_p_sh_d:
        call    get_firs_sym    ;get first symbol on new line
        test    cx, cx
        jz      .exit   ;нету? ну ладно - следующее значение тогда ) 
        cmp     al, 'd'
        jnz     .start_p_sh_d
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
        mov     bx, cx
        mov     ax, di
 
        mov     si, parse_descript
        mov     cx, parse_descript_e - parse_descript
        repe cmpsb
        jnz     .rest_value_loop_sh_d      ;is not compare
 
        sub     bx, parse_descript_e - parse_descript;correct cx
        add     bx, cx
        mov     cx, bx
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; разбор аля ' = '
        mov     ax, 0x3d20         ;cut al=' ' ah='='
        repe scasb
        jcxz    .rest_value_loop_sh_d          ;not found param timeout
        
        cmp     ah, byte [es:di-1]   ;find '='
        jnz     .rest_value_loop_sh_d
        
        repe scasb                 ;cut ' '
        inc     cx
        dec     di
;;;;;;;;;;;;;;;;;;;;di указывает на строчку, которую нам нужно выводить.
;строчка будет выводиться блоками по 37 символов.
;настроим куда будем выводить т.е. начало
;es:di - указывают на строчку из которой мы берем символ, ds:si куда будем выводить
        push    di
        pop     si
 
        push    es
        pop     ds
 
        push    0xb800
        pop     es
        
        mov     di, 1040
        mov     bx, 18
        mov     find_sec_di, di
        mov     save_cx_d, bx
;;;;;;;;;;;;;;;;;;;;;;;;;;      
;clean string
 
        push    di
        xor     ax, ax
 
@@:
        mov     cx, 38
        push    di
        rep stosw
        pop     di
 
        cmp     save_descript_size, bx
        jz      @f
 
 
        add     di, 160
        dec     bx
        jnz     @b
 
@@:
        pop     di
;enter in mess
.show_mess_prev_eq:
        lodsb
        mov     ah, color_sym_lettuce;color_sym_turquoise
;       sub     di,2
        cmp     al, '"'
        jz      .loop_message
        cmp     al, "'"
        jnz     .end_sh_desc_sec
 
.loop_message:        
        mov     cx, 38
@@:
        lodsb
        cmp     al, '"'
        jz      .end_sh_desc_sec
        cmp     al, "'"
        jz      .end_sh_desc_sec
        stosw
        loop    @b
        
        add     find_sec_di, 160
        mov     di, find_sec_di
        dec     save_cx_d
        cmp     save_cx_d, 0
        jnz     .loop_message
 
.end_sh_desc_sec:
        push    save_cx_d
        pop     save_descript_size
 
        push    cs
        pop     ds
        jmp     .exit
 
 
.rest_value_loop_sh_d:
        mov     di, ax
        mov     cx, bx
        jmp     .start_p_sh_d
 
.exit:
}

Rev 3539	Rev 3544
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 aka ''AS IS'' AND ANY	15	; THIS SOFTWARE IS PROVIDED BY Alexey Teplov aka ''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	;тут распологается модуль с помощью которого будут парситься все остальные секции	27	;тут распологается модуль с помощью которого будут парситься все остальные секции
28	color_sym_black equ 0	28	color_sym_black equ 0
29	color_sym_blue equ 1	29	color_sym_blue equ 1
30	color_sym_green equ 2	30	color_sym_green equ 2
31	color_sym_turquoise equ 3	31	color_sym_turquoise equ 3
32	color_sym_red equ 4	32	color_sym_red equ 4
33		33
34	color_sym_lightgray equ 7	34	color_sym_lightgray equ 7
35		35
36	color_sym_lightblue equ 9	36	color_sym_lightblue equ 9
37	color_sym_lettuce equ 10	37	color_sym_lettuce equ 10
38	color_sym_pink equ 12	38	color_sym_pink equ 12
39	color_sym_yellow equ 14	39	color_sym_yellow equ 14
40		40
41	macro use_any_sec	41	macro use_any_sec
42	{	42	{
43	;узнаем работу предыдущего шага т.е. чему = timeout, если он 0, то визуальная часть не будет отображена на дисплее с выбором загрузочных секций.	43	;узнаем работу предыдущего шага т.е. чему = timeout, если он 0, то визуальная часть не будет отображена на дисплее с выбором загрузочных секций.
44	;иначе мы ее должны отобразить и ждать заявленое время для выбора и конигурирования пукнктов секции от пользователя.	44	;иначе мы ее должны отобразить и ждать заявленое время для выбора и конигурирования пукнктов секции от пользователя.
45		45
46	if DEBUG	46	if DEBUG
47	pusha	47	pusha
48	mov ax, word [value_timeout];идет проверка на наличее значения timeout, для более быстрой работы, этот параметр должен быть уже обработан,т.е. в этом случае при его =0 будет сформирован указатель только на дефолтную секцию, иначе информация будет собрана по всем секциям и составлены указатели в блоке памяти	48	mov ax, word [value_timeout];идет проверка на наличее значения timeout, для более быстрой работы, этот параметр должен быть уже обработан,т.е. в этом случае при его =0 будет сформирован указатель только на дефолтную секцию, иначе информация будет собрана по всем секциям и составлены указатели в блоке памяти
49	; mov ax,cx	49	; mov ax,cx
50	mov cx, 0x0a	50	mov cx, 0x0a
51	mov di, show_db1	51	mov di, show_db1
52	mov dword[ds:di], ' '	52	mov dword[ds:di], ' '
53	mov word [ds:di+4], ' '	53	mov word [ds:di+4], ' '
54	call decode	54	call decode
55	;Show size	55	;Show size
56	mov si, show_db1	56	mov si, show_db1
57	call printplain	57	call printplain
58	;	58	;
59	popa	59	popa
60	end if	60	end if
61		61
62	test ax, ax	62	test ax, ax
63	jz .parse_run_only	63	jz .parse_run_only
64		64
65	;отобразим полный список всех найденых секций.	65	;отобразим полный список всех найденых секций.
66	if DEBUG	66	if DEBUG
67	pusha	67	pusha
68	mov si, show_all_sect	68	mov si, show_all_sect
69	call printplain	69	call printplain
70	popa	70	popa
71	end if	71	end if
72	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	72	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
73	mov al, 0xf6 ; Сброс клавиатуры, разрешить сканирование	73	mov al, 0xf6 ; Сброс клавиатуры, разрешить сканирование
74	out 0x60, al	74	out 0x60, al
75	xor cx, cx	75	xor cx, cx
76	.wait_loop: ; variant 2	76	.wait_loop: ; variant 2
77	; reading state of port of 8042 controller	77	; reading state of port of 8042 controller
78	in al, 64h	78	in al, 64h
79	and al, 00000010b ; ready flag	79	and al, 00000010b ; ready flag
80	; wait until 8042 controller is ready	80	; wait until 8042 controller is ready
81	loopnz .wait_loop	81	loopnz .wait_loop
82		82
83		83
84	; set keyboard typematic rate & delay	84	; set keyboard typematic rate & delay
85	mov al, 0xf3	85	mov al, 0xf3
86	out 0x60, al	86	out 0x60, al
87	xor cx, cx	87	xor cx, cx
88	@@:	88	@@:
89	in al, 64h	89	in al, 64h
90	test al, 2	90	test al, 2
91	loopnz @b	91	loopnz @b
92	mov al, 0	92	mov al, 0
93	out 0x60, al	93	out 0x60, al
94	xor cx, cx	94	xor cx, cx
95	@@:	95	@@:
96	in al, 64h	96	in al, 64h
97	test al, 2	97	test al, 2
98	loopnz @b	98	loopnz @b
99	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	99	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
100	; get start time	100	; get start time
101	call gettime	101	call gettime
102	mov dword [start_timer], eax	102	mov dword [start_timer], eax
103	mov word [timer_], newtimer	103	mov word [timer_], newtimer
104	mov word [timer_+2], cs	104	mov word [timer_+2], cs
105	;установить свое прерывание на таймер т.е. код будет перрываться ~18 раз в сек и переходить на обработчик	105	;установить свое прерывание на таймер т.е. код будет перрываться ~18 раз в сек и переходить на обработчик
106	cli	106	cli
107	push 0	107	push 0
108	pop es	108	pop es
109	push dword [es:8*4]	109	push dword [es:8*4]
110	pop dword [old_timer]	110	pop dword [old_timer]
111	push dword [timer_]	111	push dword [timer_]
112	pop dword [es:8*4]	112	pop dword [es:8*4]
113	sti	113	sti
114		114
115	;процедура формирования буфера для скролинга секций	115	;процедура формирования буфера для скролинга секций
116	;if DEBUG	116	;if DEBUG
117	; pusha	117	; pusha
118	; mov ax,point_default	118	; mov ax,point_default
119	; mov ax,cx	119	; mov ax,cx
120	; mov cx,0x0a	120	; mov cx,0x0a
121	; mov di,show_db1	121	; mov di,show_db1
122	; mov dword[ds:di],' '	122	; mov dword[ds:di],' '
123	; mov word [ds:di+4],' '	123	; mov word [ds:di+4],' '
124	; call decode	124	; call decode
125	;Show size	125	;Show size
126	; mov si,show_db1	126	; mov si,show_db1
127	; call printplain	127	; call printplain
128	;	128	;
129	; xor ax,ax	129	; xor ax,ax
130	; int 0x16	130	; int 0x16
131	; popa	131	; popa
132	;end if	132	;end if
133	;;;;;;;;;;;;;размер предыдущей сеции установим =0	133	;;;;;;;;;;;;;размер предыдущей сеции установим =0
134	mov save_descript_size, 18	134	mov save_descript_size, 18
135	;отобразить black screen	135	;отобразить black screen
136	show_bl_sc ;es=0xb800	136	show_bl_sc ;es=0xb800
137	.show_all_scr:	137	.show_all_scr:
138	get_frame_buffer ;es=0x2000	138	get_frame_buffer ;es=0x2000
139	;отображение секций	139	;отображение секций
140	call show_bl_sc_sect ;es=0xb800	140	call show_bl_sc_sect ;es=0xb800
141	;отобразить активный курсор	141	;отобразить активный курсор
142	.show_active_cursor:	142	.show_active_cursor:
143	show_act_cursor	143	show_act_cursor
144	show_descript ;макрос по отображению описания секции	144	show_descript ;макрос по отображению описания секции
145		145
146	;отобразить Press any key ....	146	;отобразить Press any key ....
147	mov eax, dword [old_timer]	147	mov eax, dword [old_timer]
148	cmp eax, dword [timer_]	148	cmp eax, dword [timer_]
149	jz .interrupt_16	149	jz .interrupt_16
150		150
151	show_timer_message	151	show_timer_message
152	mov word [start_stack], sp	152	mov word [start_stack], sp
153	.interrupt_16:	153	.interrupt_16:
154	xor ax, ax ;получим информацию о том что нажато	154	xor ax, ax ;получим информацию о том что нажато
155	int 0x16	155	int 0x16
156	;check on change	156	;check on change
157	mov ebx, dword [old_timer]	157	mov ebx, dword [old_timer]
158	cmp ebx, dword [timer_]	158	cmp ebx, dword [timer_]
159	jz @f	159	jz @f
160	;restore timer interrupt	160	;restore timer interrupt
161	cli	161	cli
162	push 0	162	push 0
163	pop es	163	pop es
164	; mov eax,dword [old_timer] ; восстановим прежднее прерывание	164	; mov eax,dword [old_timer] ; восстановим прежднее прерывание
165	mov [es:8*4], ebx	165	mov [es:8*4], ebx
166	mov dword [timer_], ebx	166	mov dword [timer_], ebx
167	sti	167	sti
168		168
169	push ax	169	push ax
170	clear_timer_msg	170	clear_timer_msg
171	pop ax	171	pop ax
172	@@:	172	@@:
173	call clean_active_cursor ;clean old cursor ;es=0xb800	173	call clean_active_cursor ;clean old cursor ;es=0xb800
174		174
175	cmp ah, 0x48 ;реакция системы на события	175	cmp ah, 0x48 ;реакция системы на события
176	jz .up	176	jz .up
177	cmp ah, 0x50	177	cmp ah, 0x50
178	jz .down	178	jz .down
179	cmp ah, 0x49	179	cmp ah, 0x49
180	jz .pgup	180	jz .pgup
181	cmp ah, 0x51	181	cmp ah, 0x51
182	jz .pgdown	182	jz .pgdown
183	cmp ah, 0x47	183	cmp ah, 0x47
184	jz .home	184	jz .home
185	cmp ah, 0x4f	185	cmp ah, 0x4f
186	jz .end	186	jz .end
187		187
188	cmp al, 0xD	188	cmp al, 0xD
189	jnz .show_active_cursor	189	jnz .show_active_cursor
190		190
191	jmp .end_show_all ;парсинг секции которая указана в point_default	191	jmp .end_show_all ;парсинг секции которая указана в point_default
192	.up:	192	.up:
193	mov si, point_to_point_def ;значение указателя	193	mov si, point_to_point_def ;значение указателя
194	add si, 2	194	add si, 2
195	lea ax, point_to_hframe	195	lea ax, point_to_hframe
196		196
197	cmp si, ax	197	cmp si, ax
198	ja @f	198	ja @f
199		199
200	mov point_to_point_def, si	200	mov point_to_point_def, si
201	mov ax, [si]	201	mov ax, [si]
202	mov point_default, ax	202	mov point_default, ax
203	jmp .show_active_cursor	203	jmp .show_active_cursor
204	@@:	204	@@:
205	call find_before_sect	205	call find_before_sect
206	jmp .show_all_scr	206	jmp .show_all_scr
207		207
208		208
209		209
210	.down:	210	.down:
211	mov si, point_to_point_def ;значение указателя	211	mov si, point_to_point_def ;значение указателя
212	mov ax, point_to_eframe ;указатель на последний элемент	212	mov ax, point_to_eframe ;указатель на последний элемент
213	sub si, 2	213	sub si, 2
214	cmp si, ax	214	cmp si, ax
215	jb @f	215	jb @f
216		216
217	mov point_to_point_def, si	217	mov point_to_point_def, si
218	mov ax, [si]	218	mov ax, [si]
219	mov point_default, ax	219	mov point_default, ax
220	jmp .show_active_cursor	220	jmp .show_active_cursor
221		221
222	@@:	222	@@:
223	call find_next_sect	223	call find_next_sect
224	jmp .show_all_scr	224	jmp .show_all_scr
225		225
226	.pgup:	226	.pgup:
227	mov cx, size_show_section	227	mov cx, size_show_section
228	@@:	228	@@:
229	push cx	229	push cx
230	call find_before_sect	230	call find_before_sect
231	pop cx	231	pop cx
232	loop @b	232	loop @b
233	jmp .show_all_scr	233	jmp .show_all_scr
234		234
235		235
236	.pgdown:	236	.pgdown:
237	mov cx, size_show_section	237	mov cx, size_show_section
238	@@:	238	@@:
239	push cx	239	push cx
240	call find_next_sect	240	call find_next_sect
241	pop cx	241	pop cx
242	loop @b	242	loop @b
243	jmp .show_all_scr	243	jmp .show_all_scr
244		244
245	.home:	245	.home:
246	xor di, di	246	xor di, di
247	call find_next_sect.h	247	call find_next_sect.h
248	jmp .show_all_scr	248	jmp .show_all_scr
249		249
250	.end:	250	.end:
251	mov di, save_cx	251	mov di, save_cx
252	call find_before_sect.e	252	call find_before_sect.e
253	jmp .show_all_scr	253	jmp .show_all_scr
254		254
255		255
256		256
257		257
258	; тут мы будем парсить только дефолтную секцию и выполнять ее ничего не предлагая пользователю из диалогов.	258	; тут мы будем парсить только дефолтную секцию и выполнять ее ничего не предлагая пользователю из диалогов.
259	.parse_run_only:	259	.parse_run_only:
260	if DEBUG	260	if DEBUG
261	pusha	261	pusha
262	mov si, no_show_only_w	262	mov si, no_show_only_w
263	call printplain	263	call printplain
264	popa	264	popa
265	end if	265	end if
266		266
267		267
268	.end_show_all:	268	.end_show_all:
269	}	269	}
270		270
271		271
272		272
273		273
274		274
275		275
276		276
277		277
278		278
279		279
280		280
281		281
282		282
283		283
284		284
285	;show black screen SL	285	;show black screen SL
286	macro show_bl_sc	286	macro show_bl_sc
287	{	287	{
288	;;;;;;;;;;;;;;;	288	;;;;;;;;;;;;;;;
289	;очистим экран и выведем меню	289	;очистим экран и выведем меню
290	; draw frames	290	; draw frames
291	xor ax, ax	291	xor ax, ax
292	if DEBUG	292	if DEBUG
293	mov ax, 0x0720	293	mov ax, 0x0720
294	end if	294	end if
295	push 0xb800	295	push 0xb800
296	pop es	296	pop es
297	xor di, di	297	xor di, di
298	; draw top	298	; draw top
299	mov cx, 25 * 80	299	mov cx, 25 * 80
300	rep stosw	300	rep stosw
301	;;;;;;;;;;;;;;;;;;;;;;; show 'Secondary Loader v0.xxx'	301	;;;;;;;;;;;;;;;;;;;;;;; show 'Secondary Loader v0.xxx'
302	mov di, 164	302	mov di, 164
303	mov si, version	303	mov si, version
304	mov cx, version_end-version	304	mov cx, version_end-version
305	mov ah, color_sym_yellow	305	mov ah, color_sym_yellow
306	@@:	306	@@:
307	lodsb	307	lodsb
308	stosw	308	stosw
309	loop @b	309	loop @b
310	;;;;;;;;;;;;;;;;;;;;;;; show firm ))	310	;;;;;;;;;;;;;;;;;;;;;;; show firm ))
311	mov di, (2160-(2(soft_mes_end-soft_mes+4))) ;286	311	mov di, (2160-(2(soft_mes_end-soft_mes+4))) ;286
312	mov ah, color_sym_pink;color_sym_red	312	mov ah, color_sym_pink;color_sym_red
313	mov al, 'K'	313	mov al, 'K'
314	stosw	314	stosw
315	mov al, ' '	315	mov al, ' '
316	stosw	316	stosw
317	mov ah, color_sym_lightgray;color_sym_lightblue;color_sym_pink	317	mov ah, color_sym_lightgray;color_sym_lightblue;color_sym_pink
318	mov si, soft_mes	318	mov si, soft_mes
319	mov cx, soft_mes_end- soft_mes	319	mov cx, soft_mes_end- soft_mes
320	@@:	320	@@:
321	lodsb	321	lodsb
322	stosw	322	stosw
323	loop @b	323	loop @b
324	;;;;;;;;;;;;;;;;;;;;;;; show '__________________________'	324	;;;;;;;;;;;;;;;;;;;;;;; show '__________________________'
325	mov di, 480	325	mov di, 480
326	mov ah, color_sym_yellow	326	mov ah, color_sym_yellow
327	mov al, 'Д'	327	mov al, 0xC4 ; '─'
328	mov cx, 61	328	mov cx, 61
329	rep stosw	329	rep stosw
330	;;;;;;;;;;;;;;;;;;;;;;; show 'Select section'	330	;;;;;;;;;;;;;;;;;;;;;;; show 'Select section'
331	mov di, 804	331	mov di, 804
332	mov si, select_section	332	mov si, select_section
333	mov cx, select_section_end - select_section	333	mov cx, select_section_end - select_section
334	mov ah, color_sym_lightgray	334	mov ah, color_sym_lightgray
335	@@:	335	@@:
336	lodsb	336	lodsb
337	stosw	337	stosw
338	loop @b	338	loop @b
339	;;;;;;;;;;;;;;;;;;;;;;; show 'Section description'	339	;;;;;;;;;;;;;;;;;;;;;;; show 'Section description'
340	mov di, 880	340	mov di, 880
341	mov si, section_description	341	mov si, section_description
342	mov cx, section_description_end - section_description	342	mov cx, section_description_end - section_description
343	; mov ah,color_sym_lightgray	343	; mov ah,color_sym_lightgray
344	@@:	344	@@:
345	lodsb	345	lodsb
346	stosw	346	stosw
347	loop @b	347	loop @b
348		348
349	}	349	}
350		350
351	macro show_timer_message	351	macro show_timer_message
352	{	352	{
353	;;;;;;;;;;;;;;;;;;;;; show Press any key	353	;;;;;;;;;;;;;;;;;;;;; show Press any key
354	;;;;;;;;;;;;;;;;;;;;; show ramk	354	;;;;;;;;;;;;;;;;;;;;; show ramk
355		355
356	xor ax, ax	356	xor ax, ax
357	mov di, 3360	357	mov di, 3360
358	mov cx, 80*4	358	mov cx, 80*4
359	rep stosw	359	rep stosw
360		360
361	mov di, 3362	361	mov di, 3362
362	mov ah, color_sym_pink	362	mov ah, color_sym_pink
363	mov al, 0xDA	363	mov al, 0xDA
364	stosw	364	stosw
365	mov al, 0xc4	365	mov al, 0xc4
366	mov cx, 76	366	mov cx, 76
367	rep stosw	367	rep stosw
368	mov al, 0xBF	368	mov al, 0xBF
369	stosw	369	stosw
370	add di, 4	370	add di, 4
371	mov al, 0xb3	371	mov al, 0xb3
372	stosw	372	stosw
373	add di, 152	373	add di, 152
374	stosw	374	stosw
375	add di, 4	375	add di, 4
376	stosw	376	stosw
377	add di, 152	377	add di, 152
378	stosw	378	stosw
379	add di, 4	379	add di, 4
380	mov al, 0xc0	380	mov al, 0xc0
381	stosw	381	stosw
382	mov al, 0xc4	382	mov al, 0xc4
383	mov cx, 76	383	mov cx, 76
384	rep stosw	384	rep stosw
385	mov al, 0xd9	385	mov al, 0xd9
386	stosw	386	stosw
387	;;;;;;;;;;;;;;;;;;;;;;;;ramk is complete show	387	;;;;;;;;;;;;;;;;;;;;;;;;ramk is complete show
388	;show first message	388	;show first message
389	mov si, start_msg	389	mov si, start_msg
390	mov cx, start_msg_e-start_msg	390	mov cx, start_msg_e-start_msg
391	mov di, 3526	391	mov di, 3526
392	@@:	392	@@:
393	lodsb	393	lodsb
394	stosw	394	stosw
395	loop @b	395	loop @b
396	;;;;;;;;;;;;;;;;;;;; show press Enter to....	396	;;;;;;;;;;;;;;;;;;;; show press Enter to....
397	add di, 44	397	add di, 44
398	mov si, time_msg	398	mov si, time_msg
399	mov cx, time_msg_e-time_msg	399	mov cx, time_msg_e-time_msg
400	@@:	400	@@:
401	lodsb	401	lodsb
402	stosw	402	stosw
403	loop @b	403	loop @b
404	}	404	}
405		405
406		406
407		407
408		408
409		409
410		410
411		411
412		412
413	macro get_frame_buffer	413	macro get_frame_buffer
414	{	414	{
415	mov cx, save_cx ;it's placed size of ini file	415	mov cx, save_cx ;it's placed size of ini file
416	les di, dword [file_data]	416	les di, dword [file_data]
417		417
418	mov si, di ;point frame	418	mov si, di ;point frame
419	mov bx, cx	419	mov bx, cx
420	mov dx, size_show_section	420	mov dx, size_show_section
421	; mov point_to_hframe,di ; внесем значение, так подстраховка не более	421	; mov point_to_hframe,di ; внесем значение, так подстраховка не более
422		422
423	mov al, byte [es:di]	423	mov al, byte [es:di]
424	push word .first_ret_bl_sc	424	push word .first_ret_bl_sc
425	cmp al, ' '	425	cmp al, ' '
426	jz .first_bl_sc	426	jz .first_bl_sc
427	jmp get_firs_sym.not_space	427	jmp get_firs_sym.not_space
428	.first_bl_sc:	428	.first_bl_sc:
429	jmp get_firs_sym.first_sp	429	jmp get_firs_sym.first_sp
430		430
431	.start_hbl:	431	.start_hbl:
432	call get_firs_sym ;get first symbol on new line	432	call get_firs_sym ;get first symbol on new line
433	test cx, cx	433	test cx, cx
434	jz error.correct_exit_bl ;critical error not found default point it's not possible because it's param chacking before	434	jz error.correct_exit_bl ;critical error not found default point it's not possible because it's param chacking before
435	cmp al, '['	435	cmp al, '['
436	jnz .start_hbl	436	jnz .start_hbl
437		437
438	mov si, di ;point frame	438	mov si, di ;point frame
439	mov bx, cx	439	mov bx, cx
440	mov dx, size_show_section	440	mov dx, size_show_section
441	jmp .analisist_al	441	jmp .analisist_al
442		442
443		443
444	.start_bl:	444	.start_bl:
445	call get_firs_sym ;get first symbol on new line	445	call get_firs_sym ;get first symbol on new line
446	.first_ret_bl_sc: ;первый возврат	446	.first_ret_bl_sc: ;первый возврат
447	test cx, cx	447	test cx, cx
448	jz error.correct_exit_bl ;critical error not found default point it's not possible because it's param chacking before	448	jz error.correct_exit_bl ;critical error not found default point it's not possible because it's param chacking before
449	.analisist_al:	449	.analisist_al:
450	cmp al, '['	450	cmp al, '['
451	jnz .start_bl	451	jnz .start_bl
452	;просматриваем ini файл с начала в поисках секции указаной как default	452	;просматриваем ini файл с начала в поисках секции указаной как default
453	;поиск фрейма в котором содержиться значение default	453	;поиск фрейма в котором содержиться значение default
454	.found_sect_bl:	454	.found_sect_bl:
455	cmp di, point_loader	455	cmp di, point_loader
456	jz .start_bl	456	jz .start_bl
457	cmp di, point_default	457	cmp di, point_default
458	jz .save_point_def	458	jz .save_point_def
459		459
460	dec dx	460	dec dx
461	jnz .start_bl	461	jnz .start_bl
462		462
463	jmp .start_hbl	463	jmp .start_hbl
464		464
465		465
466	.save_point_def:	466	.save_point_def:
467	;итак далее мы должны заполнить frame буфер адресов секций, что бы потом по нему быстро перемещаться не вычисляя снова адреса	467	;итак далее мы должны заполнить frame буфер адресов секций, что бы потом по нему быстро перемещаться не вычисляя снова адреса
468	mov di, si ;указатель на начало	468	mov di, si ;указатель на начало
469	mov cx, bx	469	mov cx, bx
470	lea si, point_to_hframe	470	lea si, point_to_hframe
471	mov dx, size_show_section+1 ;т.к. у нас структура содержит размер между первым и вторым указателем, то нам нужно на 1 адрес больше обсчитать секций.	471	mov dx, size_show_section+1 ;т.к. у нас структура содержит размер между первым и вторым указателем, то нам нужно на 1 адрес больше обсчитать секций.
472	;переходим на обработку значения указателя	472	;переходим на обработку значения указателя
473	mov al, byte [es:di]	473	mov al, byte [es:di]
474	push word .first_ret_mfb	474	push word .first_ret_mfb
475	cmp al, ' '	475	cmp al, ' '
476	jz .first_bl_mbf	476	jz .first_bl_mbf
477	jmp get_firs_sym.not_space	477	jmp get_firs_sym.not_space
478	.first_bl_mbf:	478	.first_bl_mbf:
479	jmp get_firs_sym.first_sp	479	jmp get_firs_sym.first_sp
480		480
481	.start_mfb:	481	.start_mfb:
482	call get_firs_sym ;get first symbol on new line	482	call get_firs_sym ;get first symbol on new line
483	.first_ret_mfb: ;первый возврат	483	.first_ret_mfb: ;первый возврат
484	jcxz .val_buff_comp ;.end_loader ;found or not found parametrs in section exit in section	484	jcxz .val_buff_comp ;.end_loader ;found or not found parametrs in section exit in section
485	cmp al, '['	485	cmp al, '['
486	jnz .start_mfb	486	jnz .start_mfb
487		487
488	.found_sect_mfb:	488	.found_sect_mfb:
489	cmp di, point_loader ;if we have section loader	489	cmp di, point_loader ;if we have section loader
490	jz .start_mfb	490	jz .start_mfb
491		491
492	mov [si], di	492	mov [si], di
493		493
494	sub si, 2	494	sub si, 2
495	dec dx	495	dec dx
496	jnz .start_mfb	496	jnz .start_mfb
497	;bufer is full	497	;bufer is full
498	jmp @f	498	jmp @f
499	.val_buff_comp:	499	.val_buff_comp:
500	push save_cx	500	push save_cx

Subversion Repositories Kolibri OS

(root)/kernel/trunk/sec_loader/trunk/parse_any.inc – Rev 3539 → 3544