| 0,0 → 1,524 |
|---|
| ; 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. |
| ;***************************************************************************** |
| |
| ; òóò îïèñûâàþòñÿ ïðîöåäóðû êîòîðûå èñïîëüçóþòñÿ â 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 |
| pusha |
| lodsb |
| @@: |
| call putchar |
| lodsb |
| cmp al, 0 |
| jnz @b |
| mov al,13 |
| call putchar |
| |
| mov al,10 |
| call putchar |
| popa |
| 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_ |
| pop es |
| mov cx,di ;ïðåäïîëîæèì áóäåì ïðîñìàòðèâàòü ê íà÷àëó, òåêóùàÿ ïîçèöèÿ di = ñêîëüêî ñèìâîëîâ îò íà÷àëà äîêóìåíòà èìååòñÿ |
| mov bx,cx ;êîïèÿ |
| |
| ;íàñòðîèëè óêàçàòåëü íà äåôàóëò ñåêöèþ |
| ;áóäåì èñêàòü ââåðõ |
| .find_start_section: |
| std ;óñòàíîâêà ôëàãà íàïðàâëåíèÿ - áóäåì ïðîñìàòèðâàòü ê íà÷àëó íàøåãî èíè ôàéëà |
| ;áóäåì èñêàòü íà÷àëî ñåêöèè ò.å. '[' ýòîò ñèìâîë |
| mov al,0xa |
| repnz scasb ;ïðîñêàíèðóåì íà íàëè÷åå ñèìâîëà íà÷àëà ñåêöèè |
| jcxz .go_ ;ìû ïðîñìîòðåëè äî íà÷àëà ôàéëà, íî òàê è íè÷åãî íå íàøëè ;(( ïî òèõîìó âûéäåì ) |
| |
| mov find_sec_di,di ;ñîõðàíèì äàííûå |
| mov cx,di ; |
| |
| sub bx,cx |
| mov cx,bx ;â ñx çíà÷åíèå - êîë-âî ñèìâîëîâ |
| cld |
| call get_firs_sym |
| .ret_go: |
| jcxz ._not_section ; â äàííîì ñëó÷àå èìååì êîíñòðóêöèþ 0xa ... ; hello [ñåêöèÿ] îáëîìñ èùåì äàëåå |
| |
| cmp di,point_loader ; ñåêöèþ loader ìû íå çàíîñèì èíà÷å êðàõ |
| jz ._not_section |
| ;âñå óäà÷íî ìû íàøëè âõîæäåíèå ñåêöèè ïðåäûäóùåé |
| cmp al,'[' |
| jnz ._not_section |
| mov point_default,di |
| .exit_scan_sect: |
| ret |
| ;;;;;;;; âîññòàíîâèì çíà÷åíèÿ è ïðîäîëæèì ïîèñêè íà÷àëà ñåêöèè êîòîðàÿ íàñ óñòðîèò )) |
| ._not_section: |
| mov di,find_sec_di |
| mov cx,di |
| mov bx,cx |
| jmp .find_start_section |
| .go_: |
| cld |
| mov cx,bx ;â ñx çíà÷åíèå - êîë-âî ñèìâîëîâ |
| |
| mov al,byte [es:di] |
| push word .f_go |
| cmp al,' ' |
| jz @f |
| jmp get_firs_sym.not_space |
| @@: |
| jmp get_firs_sym.first_sp |
| |
| .f_go: |
| jcxz .exit_scan_sect ; â äàííîì ñëó÷àå èìååì êîíñòðóêöèþ 0xa ... ; hello [ñåêöèÿ] îáëîìñ èùåì äàëåå |
| |
| cmp di,point_loader ; ñåêöèþ loader ìû íå çàíîñèì èíà÷å êðàõ |
| jz .exit_scan_sect |
| ;âñå óäà÷íî ìû íàøëè âõîæäåíèå ñåêöèè ïðåäûäóùåé |
| cmp al,'[' |
| jnz .exit_scan_sect |
| mov point_default,di |
| ret |
| |
| |
| |
| |
| |
| |
| |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ; |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| find_next_sect: |
| mov di,point_default |
| push ini_data_ |
| pop es |
| mov cx,save_cx;di ;ïðåäïîëîæèì áóäåì ïðîñìàòðèâàòü ê êîíöó, òåêóùàÿ ïîçèöèÿ di = ñêîëüêî ñèìâîëîâ îò íà÷àëà äîêóìåíòà èìååòñÿ |
| sub cx,di ;ñåé÷àñ â cx îñòàòîê ò.å. ñêîëüêî ìîæíî êðóòèòü äî êîíöà è íå âûëàçèòü íà íà÷àëî |
| jmp .let_s_go |
| .h: |
| push ini_data_ |
| pop es |
| mov cx,save_cx;di ;ïðåäïîëîæèì áóäåì ïðîñìàòðèâàòü ê êîíöó, òåêóùàÿ ïîçèöèÿ di = ñêîëüêî ñèìâîëîâ îò íà÷àëà äîêóìåíòà èìååòñÿ |
| ; sub cx,di ;ñåé÷àñ â cx îñòàòîê ò.å. ñêîëüêî ìîæíî êðóòèòü äî êîíöà è íå âûëàçèòü íà íà÷àëî |
| |
| mov al,byte [es:di] |
| push word .let_s_go_ret |
| cmp al,' ' |
| jz @f |
| jmp get_firs_sym.not_space |
| @@: |
| jmp get_firs_sym.first_sp |
| |
| |
| |
| |
| ;íàñòðîèëè óêàçàòåëü íà äåôàóëò ñåêöèþ |
| ;áóäåì èñêàòü âíèç |
| .let_s_go: |
| call get_firs_sym |
| .let_s_go_ret: |
| jcxz .exit_scan_sect ; â äàííîì ñëó÷àå èìååì êîíñòðóêöèþ 0xa ... ; hello [ñåêöèÿ] îáëîìñ èùåì äàëåå |
| cmp al,'[' |
| jnz .let_s_go |
| cmp di,point_loader |
| jz .let_s_go |
| ;âñå óäà÷íî ìû íàøëè âõîæäåíèå ñåêöèè ïðåäûäóùåé |
| mov point_default,di |
| .exit_scan_sect: |
| ret |
| |
| ;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;clean old cursor |
| clean_active_cursor: |
| ;íå èçìåíÿåò çíà÷åíèå ax |
| ;îòîáðàæåíèå êóðñîðà ïî óìîë÷àíèþ |
| lea si,point_to_hframe |
| mov di,962-160 |
| mov dx,point_default |
| mov cx,18 |
| .clean_show_cur: |
| mov bx,[si] |
| add di,160 |
| cmp bx,dx |
| jz .clean_cursor_ |
| sub si,2 |
| loop .clean_show_cur |
| |
| ; jmp $ |
| |
| .clean_cursor_: |
| push 0xb800 |
| pop es |
| push ax |
| mov point_to_point_def,si |
| xor ax,ax |
| if DEBUG |
| mov ax,0x0720 |
| end if |
| stosw |
| add di,68 |
| stosw |
| pop ax |
| ret |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;óñòàíîâêà òàéìåðà è îòîáðàæåíèå ñ÷åò÷èêà âðåìåíè |
| gettime: |
| mov ah,0 |
| int 1Ah |
| xchg ax, cx |
| shl eax, 10h |
| xchg ax, dx |
| ret |
| newtimer: |
| push ds |
| |
| push cs |
| pop ds |
| |
| pushf |
| call far dword [old_timer] |
| |
| pushad |
| call gettime |
| |
| sub eax, dword[start_timer] |
| mov bx, word [value_timeout] |
| imul bx,18 |
| sub bx, ax |
| jbe .timergo |
| |
| push es |
| |
| push 0xb800 |
| pop es |
| mov ax,bx |
| |
| mov bx, 18 |
| xor dx, dx |
| div bx |
| |
| mov bx,10 |
| mov di,3734 |
| call .decode |
| |
| xor ax,ax |
| stosw |
| |
| ; wait 5/4/3/2 seconds, 1 second |
| pop es |
| popad |
| pop ds |
| |
| iret |
| .timergo: |
| push 0 |
| pop es |
| mov eax,dword [old_timer] |
| mov [es:8*4], eax |
| mov dword [timer_],eax |
| mov sp, word [start_stack] |
| mov bp,word [save_bp_from_timer] |
| ;;íå âîññòàíîâëåíûé ñòåê :( |
| sti |
| jmp parse_start.parse_run_only |
| |
| |
| .decode: |
| ;input ax - ÷èñëî, es:di êóäà ïèñàòü, bx=10 |
| cmp ax,bx |
| jb @f |
| xor dx,dx |
| div bx |
| push dx |
| call .decode |
| pop ax |
| @@: or al,0x30 |
| push ax |
| mov ah,9 |
| stosw |
| pop ax |
| ret |
| |
| show_bl_sc_sect: |
| ;1) îòîáðàæåíèå ñïèñêà ñåêöèé. Åñëè ñåêöèÿ íå èìåò èìÿ - îøèáêà - âûâîä Section unname |
| ;ïðîâåðêà íà íàëè÷åå èìåíè. |
| ;âõîäíûå äàííûå es:di -óêàçàòåëü íà ñåêöèþ - cx ðàçìåð ñåêöèè |
| ; push bp |
| mov bx,point_to_eframe |
| lea si,point_to_hframe |
| mov dx,966 |
| |
| .home_show_fb: |
| cmp si,bx |
| jb ._show_space_fb |
| mov di,[si] |
| sub si,2 |
| mov cx,[si] |
| sub cx,di ;home first section it's end before section |
| call show_name_section |
| add dx,160 |
| jmp .home_show_fb |
| ._show_space_fb: |
| sub dx,4 |
| push 0xb800 |
| pop es |
| @@: |
| cmp dx,0xE64 |
| ja .exit_show_fb |
| mov di,dx |
| ;clear array for message |
| xor ax,ax |
| if DEBUG |
| mov ax,0x0720 |
| end if |
| mov cx,39 |
| rep stosw |
| ;////////////////////// |
| |
| add dx,160 |
| jmp @b |
| .exit_show_fb: |
| ; pop bp |
| ret |
| |