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.

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

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

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,'Ä'

        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:

}