forked from KolibriOS/kolibrios
525 lines
11 KiB
PHP
525 lines
11 KiB
PHP
; 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
|
|
pushad
|
|
lodsb
|
|
@@:
|
|
call putchar
|
|
lodsb
|
|
test al,al
|
|
jnz @b
|
|
mov al,13
|
|
call putchar
|
|
|
|
mov al,10
|
|
call putchar
|
|
popad
|
|
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
|
|
|