| 0,0 → 1,683 |
|---|
| ; Copyright (c) 2009, <Lrz> |
| ; 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 <organization> 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 <Lrz> ''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 <copyright holder> 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,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: |
| } |