forked from KolibriOS/kolibrios
16-bit rubbish cleaning
git-svn-id: svn://kolibrios.org@3176 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
b9b90b4740
commit
fd0e46d25e
@ -15,72 +15,6 @@ $Revision$
|
||||
|
||||
boot_dev db 0 ; 0=floppy, 1=hd
|
||||
|
||||
;==========================================================================
|
||||
;
|
||||
; 16 BIT FUNCTIONS
|
||||
;
|
||||
;==========================================================================
|
||||
|
||||
|
||||
boot_read_floppy:
|
||||
push si
|
||||
xor si, si
|
||||
mov ah, 2 ; read
|
||||
@@:
|
||||
push ax
|
||||
int 0x13
|
||||
pop ax
|
||||
jnc @f
|
||||
inc si
|
||||
cmp si, 10
|
||||
jnb $
|
||||
@@:
|
||||
pop si
|
||||
ret
|
||||
|
||||
sayerr_plain:
|
||||
sayerr:
|
||||
jmp $
|
||||
|
||||
|
||||
; convert abs. sector number (AX) to BIOS T:H:S
|
||||
; sector number = (abs.sector%BPB_SecPerTrk)+1
|
||||
; pre.track number = (abs.sector/BPB_SecPerTrk)
|
||||
; head number = pre.track number%BPB_NumHeads
|
||||
; track number = pre.track number/BPB_NumHeads
|
||||
; Return: cl - sector number
|
||||
; ch - track number
|
||||
; dl - drive number (0 = a:)
|
||||
; dh - head number
|
||||
conv_abs_to_THS:
|
||||
push bx
|
||||
mov bx,word [BPB_SecPerTrk]
|
||||
xor dx,dx
|
||||
div bx
|
||||
inc dx
|
||||
mov cl, dl ; cl = sector number
|
||||
mov bx,word [BPB_NumHeads]
|
||||
xor dx,dx
|
||||
div bx
|
||||
; !!!!!!! ax = track number, dx = head number
|
||||
mov ch,al ; ch=track number
|
||||
xchg dh,dl ; dh=head number
|
||||
mov dl,0 ; dl=0 (drive 0 (a:))
|
||||
pop bx
|
||||
retn
|
||||
; needed variables
|
||||
BPB_SecPerTrk dw 0 ; sectors per track
|
||||
BPB_NumHeads dw 0 ; number of heads
|
||||
BPB_FATSz16 dw 0 ; size of FAT
|
||||
BPB_RootEntCnt dw 0 ; count of root dir. entries
|
||||
BPB_BytsPerSec dw 0 ; bytes per sector
|
||||
BPB_RsvdSecCnt dw 0 ; number of reserved sectors
|
||||
BPB_TotSec16 dw 0 ; count of the sectors on the volume
|
||||
BPB_SecPerClus db 0 ; number of sectors per cluster
|
||||
BPB_NumFATs db 0 ; number of FAT tables
|
||||
abs_sector_adj dw 0 ; adjustment to make abs. sector number
|
||||
end_of_FAT dw 0 ; end of FAT table
|
||||
FirstDataSector dw 0 ; begin of data
|
||||
|
||||
;=========================================================================
|
||||
;
|
||||
@ -92,23 +26,6 @@ diff16 "start_of_code: ",0,$
|
||||
|
||||
start_of_code:
|
||||
cld
|
||||
; \begin{diamond}[02.12.2005]
|
||||
; if bootloader sets ax = 'KL', then ds:si points to loader block
|
||||
cmp ax, 'KL'
|
||||
jnz @f
|
||||
mov word [cs:cfgmanager.loader_block], si
|
||||
mov word [cs:cfgmanager.loader_block+2], ds
|
||||
@@:
|
||||
; \end{diamond}[02.12.2005]
|
||||
|
||||
; if bootloader sets cx = 'HA' and dx = 'RD', then bx contains identifier of source hard disk
|
||||
; (see comment to bx_from_load)
|
||||
cmp cx, 'HA'
|
||||
jnz no_hd_load
|
||||
cmp dx,'RD'
|
||||
jnz no_hd_load
|
||||
mov word [cs:bx_from_load], bx ; {SPraid}[13.03.2007]
|
||||
no_hd_load:
|
||||
|
||||
; set up stack
|
||||
mov ax, 3000h
|
||||
@ -122,181 +39,48 @@ no_hd_load:
|
||||
|
||||
|
||||
cpugood:
|
||||
|
||||
push 0
|
||||
xor ax, ax
|
||||
push ax
|
||||
popf
|
||||
sti
|
||||
|
||||
; set up esp
|
||||
movzx esp, sp
|
||||
|
||||
push 0
|
||||
push ax
|
||||
pop es
|
||||
and word [es:0x9031], 0
|
||||
; \begin{Mario79}
|
||||
; find HDD IDE DMA PCI device
|
||||
; check for PCI BIOS
|
||||
mov ax, 0xB101
|
||||
int 0x1A
|
||||
jc .nopci
|
||||
cmp edx, 'PCI '
|
||||
jnz .nopci
|
||||
; find PCI class code
|
||||
; class 1 = mass storage
|
||||
; subclass 1 = IDE controller
|
||||
; a) class 1, subclass 1, programming interface 0x80
|
||||
mov ax, 0xB103
|
||||
mov ecx, 1*10000h + 1*100h + 0x80
|
||||
xor si, si ; device index = 0
|
||||
int 0x1A
|
||||
jnc .found
|
||||
; b) class 1, subclass 1, programming interface 0x8A
|
||||
mov ax, 0xB103
|
||||
mov ecx, 1*10000h + 1*100h + 0x8A
|
||||
xor si, si ; device index = 0
|
||||
int 0x1A
|
||||
jnc .found
|
||||
; c) class 1, subclass 1, programming interface 0x85
|
||||
mov ax, 0xB103
|
||||
mov ecx, 1*10000h + 1*100h + 0x85
|
||||
xor si, si
|
||||
int 0x1A
|
||||
jc .nopci
|
||||
.found:
|
||||
; get memory base
|
||||
mov ax, 0xB10A
|
||||
mov di, 0x20 ; memory base is config register at 0x20
|
||||
int 0x1A
|
||||
jc .nopci
|
||||
and cx, 0xFFF0 ; clear address decode type
|
||||
mov [es:0x9031], cx
|
||||
.nopci:
|
||||
; \end{Mario79}
|
||||
mov [es:0x9031], ax
|
||||
|
||||
; --------------- APM - removed--------------------
|
||||
and word [es:0x9044], 0 ; ver = 0.0 (APM not found)
|
||||
if 0
|
||||
mov ax, 0x5300
|
||||
xor bx, bx
|
||||
int 0x15
|
||||
jc apm_end ; APM not found
|
||||
test cx, 2
|
||||
jz apm_end ; APM 32-bit protected-mode interface not supported
|
||||
mov [es:0x9044], ax ; Save APM Version
|
||||
mov [es:0x9046], cx ; Save APM flags
|
||||
|
||||
mov ax, 0x5304 ; Disconnect interface
|
||||
xor bx, bx
|
||||
int 0x15
|
||||
mov ax, 0x5303 ; Connect 32 bit mode interface
|
||||
xor bx, bx
|
||||
int 0x15
|
||||
|
||||
mov [es:0x9040], ebx
|
||||
mov [es:0x9050], ax
|
||||
mov [es:0x9052], cx
|
||||
mov [es:0x9054], dx
|
||||
|
||||
apm_end:
|
||||
end if
|
||||
|
||||
;CHECK current of code
|
||||
cmp [cfgmanager.loader_block], -1
|
||||
jz noloaderblock
|
||||
les bx, [cfgmanager.loader_block]
|
||||
cmp byte [es:bx], 1
|
||||
jnz sayerr
|
||||
push 0
|
||||
pop es
|
||||
|
||||
noloaderblock:
|
||||
; DISPLAY VESA INFORMATION
|
||||
; call print_vesa_info
|
||||
; call calc_vmodes_table
|
||||
; call check_first_parm ;check and enable cursor_pos
|
||||
|
||||
; \begin{diamond}[30.11.2005]
|
||||
cfgmanager:
|
||||
; settings:
|
||||
; a) preboot_graph = graphical mode
|
||||
; preboot_gprobe = probe this mode?
|
||||
; b) preboot_dma = use DMA access?
|
||||
; c) preboot_vrrm = use VRR?
|
||||
; d) preboot_device = from what boot?
|
||||
|
||||
; determine default settings
|
||||
; mov [.bSettingsChanged], 0
|
||||
|
||||
;.preboot_gr_end:
|
||||
mov di, preboot_device
|
||||
; if image in memory is present and [preboot_device] is uninitialized,
|
||||
; set it to use this preloaded image
|
||||
cmp byte [di], 0
|
||||
jnz .preboot_device_inited
|
||||
cmp [.loader_block], -1
|
||||
jz @f
|
||||
les bx, [.loader_block]
|
||||
test byte [es:bx+1], 1
|
||||
jz @f
|
||||
mov byte [di], 3
|
||||
jmp .preboot_device_inited
|
||||
@@:
|
||||
; otherwise, set [preboot_device] to 1 (default value - boot from floppy)
|
||||
mov byte [di], 1
|
||||
.preboot_device_inited:
|
||||
; following 4 lines set variables to 1 if its current value is 0
|
||||
cmp byte [di+preboot_dma-preboot_device], 1
|
||||
adc byte [di+preboot_dma-preboot_device], 0
|
||||
cmp byte [di+preboot_biosdisk-preboot_device], 1
|
||||
adc byte [di+preboot_biosdisk-preboot_device], 0
|
||||
|
||||
; pop ax ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ??
|
||||
jmp .continue
|
||||
|
||||
.loader_block dd -1
|
||||
.continue:
|
||||
sti
|
||||
jmp .load
|
||||
|
||||
.loadc:
|
||||
pop eax
|
||||
.cont:
|
||||
push cs
|
||||
pop ds
|
||||
.load:
|
||||
|
||||
; ASK GRAPHICS MODE
|
||||
|
||||
; call set_vmode
|
||||
|
||||
; GRAPHICS ACCELERATION
|
||||
; force yes
|
||||
mov [es:0x901C], byte 1
|
||||
|
||||
; DMA ACCESS TO HD
|
||||
|
||||
mov al, [preboot_dma]
|
||||
mov al, 1
|
||||
mov [es:0x901F], al
|
||||
|
||||
; GRAPHICS ACCELERATION
|
||||
; force yes
|
||||
mov [es:0x901C], al
|
||||
|
||||
|
||||
; VRR_M USE
|
||||
|
||||
mov al,[preboot_vrrm]
|
||||
mov [es:0x9030], al
|
||||
mov [es:0x901E], byte 1
|
||||
mov [es:0x9030], byte 2
|
||||
mov [es:0x901E], al
|
||||
|
||||
; BOOT DEVICE
|
||||
|
||||
mov al, [preboot_device]
|
||||
dec al
|
||||
xor ax, ax
|
||||
mov [boot_dev], al
|
||||
mov es, ax
|
||||
|
||||
|
||||
; SET GRAPHICS
|
||||
|
||||
xor ax, ax
|
||||
mov es, ax
|
||||
|
||||
; mov bx, [es:0x9008] ; vga & 320x200
|
||||
mov ax, 0xA000 ; AtomBIOS Fn00
|
||||
mov cx, 0x550A ; 1024x768, 32bpp, ARGB8888
|
||||
setgr:
|
||||
|
@ -1,62 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
$Revision$
|
||||
|
||||
|
||||
; boot data: common strings (for all languages)
|
||||
macro line_full_top {
|
||||
db 201
|
||||
times 78 db 205
|
||||
db 187
|
||||
}
|
||||
macro line_full_bottom {
|
||||
db 200
|
||||
times 78 db 205
|
||||
db 188
|
||||
}
|
||||
macro line_half {
|
||||
db 186,' '
|
||||
times 76 db 0xc4
|
||||
db ' ',186
|
||||
}
|
||||
macro line_space {
|
||||
db 186
|
||||
times 78 db 32
|
||||
db 186
|
||||
}
|
||||
d80x25_top:
|
||||
line_full_top
|
||||
cur_line_pos = 75
|
||||
store byte ' ' at d80x25_top+cur_line_pos+1
|
||||
rev_var = __REV__
|
||||
while rev_var > 0
|
||||
store byte rev_var mod 10 + '0' at d80x25_top+cur_line_pos
|
||||
cur_line_pos = cur_line_pos - 1
|
||||
rev_var = rev_var / 10
|
||||
end while
|
||||
store byte ' ' at d80x25_top+cur_line_pos
|
||||
store dword ' SVN' at d80x25_top+cur_line_pos-4
|
||||
|
||||
space_msg: line_space
|
||||
verstr:
|
||||
; line_space
|
||||
; version string
|
||||
db 186,32
|
||||
repeat 78
|
||||
load a byte from version+%-1
|
||||
if a = 13
|
||||
break
|
||||
end if
|
||||
db a
|
||||
end repeat
|
||||
repeat 78 - ($-verstr)
|
||||
db ' '
|
||||
end repeat
|
||||
db 32,186
|
||||
line_half
|
||||
d80x25_top_num = 4
|
@ -1,38 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
$Revision$
|
||||
|
||||
|
||||
display_modechg db 0 ; display mode change for text, yes/no (0 or 2)
|
||||
;
|
||||
; !! Important note !!
|
||||
;
|
||||
; Must be set to 2, to avoid two screenmode
|
||||
; changes within a very short period of time.
|
||||
|
||||
display_atboot db 0 ; show boot screen messages ( 2-no )
|
||||
|
||||
preboot_graph dw 0 ; graph mode
|
||||
x_save dw 0 ; x
|
||||
y_save dw 0 ; y
|
||||
number_vm dw 0 ;
|
||||
;pixel_save dw 0 ; per to pixel
|
||||
preboot_gprobe db 0 ; probe vesa3 videomodes (1-no, 2-yes)
|
||||
preboot_vrrm db 0 ; use VRR_M (1-yes, 2- no)
|
||||
preboot_dma db 0 ; use DMA for access to HDD (1-always, 2-only for read, 3-never)
|
||||
preboot_device db 0 ; boot device
|
||||
; (1-floppy 2-harddisk 3-kernel restart 4-format ram disk)
|
||||
;!!!! 0 - autodetect !!!!
|
||||
preboot_blogesc = 0 ; start immediately after bootlog
|
||||
preboot_biosdisk db 0 ; use V86 to access disks through BIOS (1-yes, 2-no)
|
||||
|
||||
if $>0x200
|
||||
ERROR: prebooting parameters must fit in first sector!!!
|
||||
end if
|
||||
;hdsysimage db 'KOLIBRI IMG' ; load from
|
||||
;image_save db 'KOLIBRI IMG' ; save to
|
@ -1,51 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;; PCI16.INC ;;
|
||||
;; ;;
|
||||
;; 16 bit PCI driver code ;;
|
||||
;; ;;
|
||||
;; Version 0.2 December 21st, 2002 ;;
|
||||
;; ;;
|
||||
;; Author: Victor Prodan, victorprodan@yahoo.com ;;
|
||||
;; ;;
|
||||
;; See file COPYING for details ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
$Revision$
|
||||
|
||||
|
||||
init_pci_16:
|
||||
|
||||
pushad
|
||||
|
||||
xor ax,ax
|
||||
mov es,ax
|
||||
mov byte [es:0x9020],1 ;default mechanism:1
|
||||
mov ax,0xb101
|
||||
int 0x1a
|
||||
or ah,ah
|
||||
jnz pci16skip
|
||||
|
||||
mov [es:0x9021],cl ;last PCI bus in system
|
||||
mov [es:0x9022],bx
|
||||
mov [es:0x9024],edi
|
||||
|
||||
; we have a PCI BIOS, so check which configuration mechanism(s)
|
||||
; it supports
|
||||
; AL = PCI hardware characteristics (bit0 => mechanism1, bit1 => mechanism2)
|
||||
test al,1
|
||||
jnz pci16skip
|
||||
test al,2
|
||||
jz pci16skip
|
||||
mov byte [es:0x9020],2 ; if (al&3)==2 => mechanism 2
|
||||
|
||||
pci16skip:
|
||||
|
||||
mov ax,0x1000
|
||||
mov es,ax
|
||||
|
||||
popad
|
@ -12,8 +12,6 @@
|
||||
mov es, cx
|
||||
mov di, 0x9080
|
||||
mov byte [es:di-1], cl
|
||||
cmp [preboot_biosdisk], 1
|
||||
jnz bdde
|
||||
mov dl, 80h
|
||||
bdds:
|
||||
mov ah, 15h
|
||||
|
@ -88,7 +88,6 @@ pci_data_sel equ (pci_data_32-gdts)
|
||||
;;
|
||||
;; Kernel16.inc
|
||||
;; - Bootcode.inc Hardware setup
|
||||
;; - Pci16.inc PCI functions
|
||||
;;
|
||||
;; Kernel32.inc
|
||||
;; - Sys32.inc Process management
|
||||
@ -117,15 +116,9 @@ use16
|
||||
|
||||
version db 'Kolibri-A version 0.1.0.0 ',13,10,13,10,0
|
||||
|
||||
diff16 "preboot start: ",0,$
|
||||
include "boot/preboot.inc"
|
||||
|
||||
diff16 "bootcode start: ",0,$
|
||||
include "boot/bootcode.inc" ; 16 bit system boot code
|
||||
|
||||
diff16 "pci16 start: ",0,$
|
||||
include "bus/pci/pci16.inc"
|
||||
|
||||
diff16 "biosdisk start: ",0,$
|
||||
include "detect/biosdisk.inc"
|
||||
|
||||
|
@ -1,91 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
Ñïåöèôèêàöèÿ íà ïåðâè÷íûé çàãðóç÷èê KordOS.
|
||||
Çàãðóç÷èê äîëæåí ïðåäîñòàâëÿòü ñëåäóþùèå ñåðâèñû:
|
||||
1. Ïðè çàãðóçêå êîìïüþòåðà, ïîëó÷èâ óïðàâëåíèå îò BIOS'à, çàãðóæàòü
|
||||
ôàéë loader èç ïàïêè kord ïî àäðåñó 1000:0000.
|
||||
Ðàçìåð ôàéëà loader íå ïðåâîñõîäèò 30000h = 192 Kb.
|
||||
2. Ïðè ýòîì óñòàíàâëèâàòü ñëåäóþùèå ðåãèñòðû:
|
||||
ax èäåíòèôèöèðóåò óñòðîéñòâî:
|
||||
al = òèï:
|
||||
'f' - ôëîïèê
|
||||
'h' - HDD
|
||||
'c' - CD/DVD
|
||||
'u' - USB ôëåøêà
|
||||
'?' - íåèçâåñòíîå óñòðîéñòâî
|
||||
ah = íîìåð óñòðîéñòâà (ñðåäè âñåõ óñòðîéñòâ ôèêñèðîâàííîãî òèïà)
|
||||
bx = òèï ôàéëîâîé ñèñòåìû:
|
||||
'12' = FAT12
|
||||
'16' = FAT16
|
||||
'32' = FAT32
|
||||
'nt' = NTFS
|
||||
'is' = ISO-9660
|
||||
ds:si = far-óêàçàòåëü íà callback-ñåðâèñ
|
||||
3. Ïðåäîñòàâëÿòü callback-ñåðâèñ äëÿ âòîðè÷íîãî çàãðóç÷èêà - far-ïðîöåäóðó:
|
||||
íà âõîäå: ax = çàïðàøèâàåìàÿ ôóíêöèÿ
|
||||
íà âûõîäå: CF=1, åñëè ôóíêöèÿ íå ïîääåðæèâàåòñÿ; CF=0 èíà÷å
|
||||
Çàãðóç÷èê ìîæåò ðàçðóøàòü âñå ðåãèñòðû, âêëþ÷àÿ ñåãìåíòíûå,
|
||||
çà èñêëþ÷åíèåì ss è sp.
|
||||
4. Âñåãäà äîëæíà ïîääåðæèâàòüñÿ callback-ôóíêöèÿ 1:
|
||||
íàçíà÷åíèå: ïðî÷èòàòü ôàéë, ðàñïîëîæåííûé íà çàãðóçî÷íîì óñòðîéñòâå
|
||||
íà âõîäå: ax = 1, ds:di = óêàçàòåëü íà èíôîðìàöèîííóþ ñòðóêòóðó:
|
||||
dw:dw far-óêàçàòåëü íà áóôåð,
|
||||
ïåðâîå ñëîâî - ñìåùåíèå, âòîðîå - ñåãìåíò
|
||||
dw ìàêñèìàëüíîå ÷èñëî 4Kb-áëîêîâ äëÿ ÷òåíèÿ (0x1000 áàéò)
|
||||
äîëæíî áûòü íåíóëåâûì è ñòðîãî ìåíüøå 0x100
|
||||
ASCIIZ èìÿ ôàéëà â ôîðìàòå "<ïàïêà1>/<ïàïêà2>/<ôàéë>"
|
||||
Åñëè èìÿ ôàéëà ñîäåðæèò ñèìâîëû èç ñòàðøåé ïîëîâèíû
|
||||
ASCIIZ-òàáëèöû èëè íå ÿâëÿåòñÿ 8.3-èìåíåì (â ñìûñëå, îäíà èç êîìïîíåíò
|
||||
èìåíè ôàéëà èìååò èìÿ äëèííåå 8 ñèìâîëîâ èëè ðàñøèðåíèå äëèííåå 3),
|
||||
çàãðóç÷èê ìîæåò íå íàéòè òàêîé ôàéë, äàæå åñëè îí åñòü
|
||||
(à ìîæåò è íàéòè).
|
||||
íà âûõîäå: bx = ñòàòóñ:
|
||||
0 = óñïåøíî
|
||||
1 = ôàéë îêàçàëñÿ ñëèøêîì áîëüøèì, áóôåð çàïîëíåí öåëèêîì
|
||||
è åñòü åù¸ äàííûå ôàéëà
|
||||
2 = ôàéë íå íàéäåí
|
||||
3 = ïðîèçîøëà îøèáêà ÷òåíèÿ
|
||||
dx:ax = ðàçìåð ôàéëà èëè FFFF:FFFF, åñëè ôàéë íå íàéäåí
|
||||
5. Âñåãäà äîëæíà ïîääåðæèâàòüñÿ callback-ôóíêöèÿ 2:
|
||||
íàçíà÷åíèå: ïðîäîëæèòü ÷òåíèå ôàéëà, ÷àñòè÷íî çàãðóæåííîãî ôóíêöèåé 1
|
||||
íà âõîäå: ax = 2, ds:di = óêàçàòåëü íà èíôîðìàöèîííóþ ñòðóêòóðó:
|
||||
dw:dw far-óêàçàòåëü íà áóôåð,
|
||||
ïåðâîå ñëîâî - ñìåùåíèå, âòîðîå - ñåãìåíò
|
||||
dw ìàêñèìàëüíîå ÷èñëî 4Kb-áëîêîâ äëÿ ÷òåíèÿ (0x1000 áàéò)
|
||||
äîëæíî áûòü íåíóëåâûì è ñòðîãî ìåíüøå 0x100
|
||||
íà âûõîäå: bx = ñòàòóñ:
|
||||
0 = óñïåøíî
|
||||
1 = ôàéë îêàçàëñÿ ñëèøêîì áîëüøèì, áóôåð çàïîëíåí öåëèêîì
|
||||
è åñòü åù¸ äàííûå ôàéëà
|
||||
3 = ïðîèçîøëà îøèáêà ÷òåíèÿ
|
||||
dx:ax = ðàçìåð ôàéëà
|
||||
Ôóíêöèþ ìîæíî âûçûâàòü òîëüêî â ñëó÷àå, êîãäà ïîñëåäíèé âûçîâ ôóíêöèè
|
||||
1 è âñå ïîñëåäóþùèå âûçîâû ôóíêöèè 2 âåðíóëè bx=1 (èíûìè ñëîâàìè,
|
||||
òîëüêî äëÿ ïðîäîëæåíèÿ çàãðóçêè ôàéëà, êîòîðûé óæå áûë ÷àñòè÷íî
|
||||
çàãðóæåí, íî åù¸ íå çàãðóæåí ïîëíîñòüþ).
|
||||
Çàãðóç÷èê ìîæåò áûòü óâåðåí, ÷òî äàííûå â îáëàñòÿõ ïàìÿòè 0-9000 è
|
||||
60000-A0000 íå áóäóò ìîäèôèöèðîâàíû ÿäðîì.
|
@ -1,2 +0,0 @@
|
||||
@fasm -m 65535 kordldr.win.asm kordldr.win
|
||||
@pause
|
@ -1,509 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
; in: ss:bp = 0:dat
|
||||
; in: es:bx = address to load file
|
||||
; in: ds:si -> ASCIIZ name
|
||||
; in: cx = limit in sectors
|
||||
; out: bx = status: bx=0 - ok, bx=1 - file is too big, only part of file has been loaded, bx=2 - file not found
|
||||
; out: dx:ax = file size (0xFFFFFFFF if file not found)
|
||||
load_file_fat:
|
||||
mov eax, [bp + root_clus - dat]
|
||||
mov [bp + cur_obj - dat], root_string
|
||||
push es
|
||||
push bx
|
||||
push cx
|
||||
.parse_dir_loop:
|
||||
; convert name to FAT name
|
||||
push [bp + cur_obj - dat]
|
||||
push ax
|
||||
mov [bp + cur_obj - dat], si
|
||||
push ss
|
||||
pop es
|
||||
; convert ASCIIZ filename to FAT name
|
||||
mov di, fat_filename
|
||||
push di
|
||||
mov cx, 8+3
|
||||
mov al, ' '
|
||||
rep stosb
|
||||
pop di
|
||||
mov cl, 8 ; 8 symbols per name
|
||||
mov bl, 1
|
||||
.nameloop:
|
||||
lodsb
|
||||
test al, al
|
||||
jz .namedone
|
||||
cmp al, '/'
|
||||
jz .namedone
|
||||
cmp al, '.'
|
||||
jz .namedot
|
||||
dec cx
|
||||
js .badname
|
||||
cmp al, 'a'
|
||||
jb @f
|
||||
cmp al, 'z'
|
||||
ja @f
|
||||
sub al, 'a'-'A'
|
||||
@@:
|
||||
stosb
|
||||
jmp .nameloop
|
||||
.namedot:
|
||||
inc bx
|
||||
jp .badname
|
||||
add di, cx
|
||||
mov cl, 3
|
||||
jmp .nameloop
|
||||
.badname:
|
||||
mov si, badname_msg
|
||||
jmp find_error_si
|
||||
.namedone:
|
||||
; scan directory
|
||||
pop ax ; eax = cluster of directory
|
||||
; high word of eax is preserved by operations above
|
||||
push ds
|
||||
push si
|
||||
; read a folder sector-by-sector and scan
|
||||
; first, try to use the cache
|
||||
push ss
|
||||
pop ds
|
||||
mov bx, -2
|
||||
mov cx, [bp + rootcache_size - dat]
|
||||
cmp [bp + root_clus - dat], eax
|
||||
jz .lookcache_root
|
||||
mov di, foldcache_mark
|
||||
xor bx, bx
|
||||
mov cx, [bp + cachelimit - dat]
|
||||
@@:
|
||||
lea si, [di+bx]
|
||||
mov edx, dword [foldcache_clus+si-foldcache_mark+bx]
|
||||
cmp edx, eax
|
||||
jz .cacheok
|
||||
test edx, edx
|
||||
jz .cacheadd ; the cache has place for new entry
|
||||
inc bx
|
||||
inc bx
|
||||
dec cx
|
||||
js @b
|
||||
; the folder is not present in the cache, so add it
|
||||
; the cache is full; find the oldest entry and replace it with the new one
|
||||
mov bx, -2
|
||||
mov dx, [bp + cachelimit - dat]
|
||||
@@:
|
||||
inc bx
|
||||
inc bx
|
||||
cmp word [di+bx], dx ; marks have values 0 through [cachelimit]
|
||||
jnz @b
|
||||
.cacheadd:
|
||||
or word [di+bx], 0xFFFF ; very big value, it will be changed soon
|
||||
and [foldcache_size+di-foldcache_mark+bx], 0 ; no folder items yet
|
||||
lea si, [di+bx]
|
||||
mov dword [foldcache_clus+si-foldcache_mark+bx], eax
|
||||
.cacheok:
|
||||
; update cache marks
|
||||
mov dx, [di+bx]
|
||||
mov cx, [foldcache_size+di-foldcache_mark+bx]
|
||||
mov di, [bp + cachelimit - dat]
|
||||
add di, di
|
||||
.cacheupdate:
|
||||
cmp [foldcache_mark+di], dx
|
||||
adc [foldcache_mark+di], 0
|
||||
dec di
|
||||
dec di
|
||||
jns .cacheupdate
|
||||
and [foldcache_mark+bx], 0
|
||||
; done, bx contains (position in cache)*2
|
||||
.lookcache_root:
|
||||
; bx = (position in cache)*2 for non-root folders; bx = -2 for root folder
|
||||
;mov dx, bx
|
||||
;shl dx, 8
|
||||
;add dx, 0x9200
|
||||
lea dx, [bx + 0x92]
|
||||
xchg dl, dh
|
||||
mov ds, dx
|
||||
mov si, fat_filename ; ss:si -> filename in FAT style
|
||||
call fat_scan_for_filename
|
||||
jz .lookup_done
|
||||
; cache miss, read folder data from disk
|
||||
; we are reading parent directory, it can result in disk read errors; restore [cur_obj]
|
||||
mov di, sp
|
||||
mov bx, [bp + cur_obj - dat]
|
||||
xchg bx, [ss:di+4]
|
||||
mov [bp + cur_obj - dat], bx
|
||||
mov bx, cx
|
||||
add bx, 0xF
|
||||
shr bx, 4
|
||||
shl cx, 5
|
||||
mov di, cx ; es:di -> free space in cache entry
|
||||
; external loop: scan clusters
|
||||
.folder_next_cluster:
|
||||
; internal loop: scan sectors in cluster
|
||||
movzx ecx, byte [ss:0x320D] ; BPB_SecPerClus
|
||||
push eax
|
||||
; FAT12/16 root - special handling
|
||||
test eax, eax
|
||||
jnz .folder_notroot
|
||||
mov cx, [ss:0x3211] ; BPB_RootEntCnt
|
||||
mov dx, cx
|
||||
add cx, 0xF
|
||||
rcr cx, 1
|
||||
shr cx, 3
|
||||
mov eax, [bp + root_start - dat]
|
||||
jmp .folder_next_sector
|
||||
.folder_notroot:
|
||||
mul ecx
|
||||
add eax, [bp + data_start - dat]
|
||||
.folder_next_sector:
|
||||
sub dx, 0x10
|
||||
; skip first bx sectors
|
||||
dec bx
|
||||
jns .folder_skip_sector
|
||||
push cx
|
||||
push es di
|
||||
push 0x8000
|
||||
pop es
|
||||
xor bx, bx
|
||||
mov cx, 1
|
||||
push es
|
||||
call read
|
||||
jc ..found_disk_error
|
||||
; copy data to the cache...
|
||||
pop ds
|
||||
pop di es
|
||||
cmp di, 0x2000 ; ...if there is free space, of course
|
||||
jae @f
|
||||
pusha
|
||||
mov cx, 0x100
|
||||
xor si, si
|
||||
rep movsw
|
||||
mov di, es
|
||||
shr di, 8
|
||||
cmp di, 0x90
|
||||
jz .update_rootcache_size
|
||||
add [ss:foldcache_size+di-0x92], 0x10 ; 0x10 new entries in the cache
|
||||
jmp .updated_cachesize
|
||||
.update_rootcache_size:
|
||||
mov cl, 0x10
|
||||
cmp cx, dx
|
||||
jb @f
|
||||
mov cx, dx
|
||||
@@:
|
||||
add [bp + rootcache_size - dat], cx
|
||||
.updated_cachesize:
|
||||
popa
|
||||
@@:
|
||||
push es
|
||||
mov cl, 0x10 ; ch=0 at this point
|
||||
cmp cx, dx
|
||||
jb @f
|
||||
mov cx, dx
|
||||
@@:
|
||||
call fat_scan_for_filename
|
||||
pop es
|
||||
pop cx
|
||||
jz .lookup_done_pop
|
||||
.folder_skip_sector:
|
||||
inc eax
|
||||
loop .folder_next_sector
|
||||
pop eax ; eax = current cluster
|
||||
test eax, eax
|
||||
jz @f
|
||||
call [bp + get_next_cluster_ptr - dat]
|
||||
jc .folder_next_cluster
|
||||
@@:
|
||||
stc
|
||||
push eax
|
||||
.lookup_done_pop:
|
||||
pop eax
|
||||
.lookup_done:
|
||||
pop si
|
||||
; CF=1 <=> failed
|
||||
jnc .found
|
||||
pop ds
|
||||
pop [bp + cur_obj - dat]
|
||||
mov si, error_not_found
|
||||
jmp find_error_si
|
||||
.found:
|
||||
mov eax, [di+20-2]
|
||||
mov edx, [di+28]
|
||||
mov ax, [di+26] ; get cluster
|
||||
test byte [di+11], 10h ; directory?
|
||||
pop ds
|
||||
pop [bp + cur_obj - dat] ; forget old [cur_obj]
|
||||
jz .regular_file
|
||||
cmp byte [si-1], 0
|
||||
jnz .parse_dir_loop
|
||||
..directory_error:
|
||||
mov si, directory_string
|
||||
jmp find_error_si
|
||||
.regular_file:
|
||||
cmp byte [si-1], 0
|
||||
jz @f
|
||||
..notdir_error:
|
||||
mov si, notdir_string
|
||||
jmp find_error_si
|
||||
@@:
|
||||
; ok, we have found a regular file and the caller requested it
|
||||
; parse FAT chunk
|
||||
push ss
|
||||
pop es
|
||||
push ss
|
||||
pop ds
|
||||
mov di, 0x4005
|
||||
mov byte [di-5], 1 ; non-resident attribute
|
||||
mov dword [di-4], 1
|
||||
stosd
|
||||
pop cx
|
||||
push cx
|
||||
.parsefat:
|
||||
call [bp + get_next_cluster_ptr - dat]
|
||||
jnc .done
|
||||
mov esi, [di-8]
|
||||
add esi, [di-4]
|
||||
cmp eax, esi
|
||||
jz .contc
|
||||
mov dword [di], 1
|
||||
scasd
|
||||
stosd
|
||||
jmp @f
|
||||
.contc:
|
||||
inc dword [di-8]
|
||||
@@:
|
||||
sub cl, [0x320D]
|
||||
sbb ch, 0
|
||||
ja .parsefat
|
||||
.done:
|
||||
xor eax, eax
|
||||
stosd
|
||||
mov si, 0x4000
|
||||
load_file_common_end:
|
||||
xor ecx, ecx
|
||||
pop cx
|
||||
pop bx
|
||||
pop es
|
||||
mov [bp + filesize - dat], edx
|
||||
mov [bp + sectors_read - dat], ecx
|
||||
add edx, 0x1FF
|
||||
shr edx, 9
|
||||
mov [bp + filesize_sectors - dat], edx
|
||||
cmp edx, ecx
|
||||
seta al
|
||||
mov ah, 0
|
||||
push ax
|
||||
call read_file_chunk
|
||||
continue_load_common_end:
|
||||
mov [bp + cur_chunk_ptr - dat], si
|
||||
pop bx
|
||||
mov ax, word [bp + filesize - dat]
|
||||
mov dx, word [bp + filesize+2 - dat]
|
||||
jnc @f
|
||||
mov bl, 3 ; read error
|
||||
@@:
|
||||
ret
|
||||
|
||||
continue_load_file:
|
||||
; es:bx -> buffer for output, ecx = cx = number of sectors
|
||||
mov si, [bp + cur_chunk_ptr - dat]
|
||||
push ecx
|
||||
add ecx, [bp + sectors_read - dat]
|
||||
mov [bp + sectors_read - dat], ecx
|
||||
cmp [bp + filesize_sectors - dat], ecx
|
||||
pop ecx
|
||||
seta al
|
||||
mov ah, 0
|
||||
push ax
|
||||
push continue_load_common_end
|
||||
push ss
|
||||
pop ds
|
||||
cmp [bp + cur_chunk_resident - dat], ah
|
||||
jnz .nonresident
|
||||
.resident:
|
||||
mov ax, word [bp + num_sectors - dat]
|
||||
jmp read_file_chunk.resident.continue
|
||||
.nonresident:
|
||||
mov eax, [bp + cur_cluster - dat]
|
||||
mov edx, [bp + num_sectors - dat]
|
||||
add eax, [bp + cur_delta - dat]
|
||||
jmp read_file_chunk.nonresident.continue
|
||||
|
||||
fat_scan_for_filename:
|
||||
; in: ss:si -> 11-bytes FAT name
|
||||
; in: ds:0 -> part of directory data
|
||||
; in: cx = number of entries
|
||||
; out: if found: CF=0, ZF=1, es:di -> directory entry
|
||||
; out: if not found, but continue required: CF=1 and ZF=0
|
||||
; out: if not found and zero item reached: CF=1 and ZF=1
|
||||
push ds
|
||||
pop es
|
||||
xor di, di
|
||||
push cx
|
||||
jcxz .noent
|
||||
.loop:
|
||||
cmp byte [di], 0
|
||||
jz .notfound
|
||||
test byte [di+11], 8 ; volume label?
|
||||
jnz .cont ; ignore volume labels
|
||||
pusha
|
||||
mov cx, 11
|
||||
repz cmps byte [ss:si], byte [es:di]
|
||||
popa
|
||||
jz .done
|
||||
.cont:
|
||||
add di, 0x20
|
||||
loop .loop
|
||||
.noent:
|
||||
inc cx ; clear ZF flag
|
||||
.notfound:
|
||||
stc
|
||||
.done:
|
||||
pop cx
|
||||
ret
|
||||
|
||||
fat12_get_next_cluster:
|
||||
; in: ax = cluster (high word of eax is zero)
|
||||
; out: if there is next cluster: CF=1, ax = next cluster
|
||||
; out: if there is no next cluster: CF=0
|
||||
push si
|
||||
push ds
|
||||
push 0x6000
|
||||
pop ds
|
||||
mov si, ax
|
||||
shr si, 1
|
||||
add si, ax
|
||||
test al, 1
|
||||
lodsw
|
||||
jz @f
|
||||
shr ax, 4
|
||||
@@:
|
||||
and ax, 0xFFF
|
||||
cmp ax, 0xFF7
|
||||
pop ds si
|
||||
ret
|
||||
|
||||
fat16_get_next_cluster:
|
||||
; in: ax = cluster (high word of eax is zero)
|
||||
; out: if there is next cluster: CF=1, ax = next cluster
|
||||
; out: if there is no next cluster: CF=0
|
||||
; each sector contains 200h bytes = 100h FAT entries
|
||||
; so ah = # of sector, al = offset in sector
|
||||
push si
|
||||
mov si, ax
|
||||
shr si, 8
|
||||
; calculate segment for this sector of FAT table
|
||||
; base for FAT table is 6000:0000, so the sector #si has to be loaded to (60000 + 200*si)
|
||||
; segment = 6000 + 20*si, offset = 0
|
||||
push es
|
||||
push si
|
||||
shl si, 5
|
||||
add si, 0x6000
|
||||
mov es, si
|
||||
pop si
|
||||
cmp byte [ss:0x3400+si], 0 ; sector already loaded?
|
||||
jnz .noread
|
||||
; load corresponding sector, try all FATs if disk read error detected
|
||||
pusha
|
||||
movzx di, byte [ss:0x3210] ; BPB_NumFATs
|
||||
xor bx, bx
|
||||
mov ax, [ss:0x320E] ; BPB_RsvdSecCnt
|
||||
xor dx, dx
|
||||
add ax, si
|
||||
adc dx, bx
|
||||
@@:
|
||||
push es
|
||||
push dx ax
|
||||
pop eax
|
||||
mov cx, 1 ; read 1 sector
|
||||
call read
|
||||
pop es
|
||||
jnc @f
|
||||
add ax, [ss:0x3216] ; BPB_FATSz16
|
||||
adc dx, bx
|
||||
dec di
|
||||
jnz @b
|
||||
..found_disk_error:
|
||||
mov si, disk_error_msg
|
||||
jmp find_error_si
|
||||
@@:
|
||||
popa
|
||||
.noread:
|
||||
mov si, ax
|
||||
and si, 0xFF
|
||||
add si, si
|
||||
mov ax, [es:si]
|
||||
pop es
|
||||
cmp ax, 0xFFF7
|
||||
pop si
|
||||
ret
|
||||
|
||||
fat32_get_next_cluster:
|
||||
; in: eax = cluster
|
||||
; out: if there is next cluster: CF=1, eax = next cluster
|
||||
; out: if there is no next cluster: CF=0
|
||||
push di
|
||||
push ax
|
||||
shr eax, 7
|
||||
; eax = FAT sector number; look in cache
|
||||
push si
|
||||
mov si, cache1head
|
||||
call cache_lookup
|
||||
pop si
|
||||
jnc .noread
|
||||
; read FAT, try all FATs if disk read error detected
|
||||
push es
|
||||
pushad
|
||||
movzx edx, word [ss:0x320E] ; BPB_RsvdSecCnt
|
||||
add eax, edx
|
||||
movzx si, byte [ss:0x3210] ; BPB_NumFATs
|
||||
@@:
|
||||
lea cx, [di - 0x3400 + (0x6000 shr (9-3))]
|
||||
shl cx, 9-3
|
||||
mov es, cx
|
||||
xor bx, bx
|
||||
mov cx, 1
|
||||
call read
|
||||
jnc @f
|
||||
add eax, [ss:0x3224] ; BPB_FATSz32
|
||||
dec si
|
||||
jnz @b
|
||||
jmp ..found_disk_error
|
||||
@@:
|
||||
popad
|
||||
pop es
|
||||
.noread:
|
||||
; get requested item
|
||||
lea ax, [di - 0x3400 + (0x6000 shr (9-3))]
|
||||
pop di
|
||||
and di, 0x7F
|
||||
shl di, 2
|
||||
shl ax, 9-3
|
||||
push ds
|
||||
mov ds, ax
|
||||
and byte [di+3], 0x0F
|
||||
mov eax, [di]
|
||||
pop ds
|
||||
pop di
|
||||
;and eax, 0x0FFFFFFF
|
||||
cmp eax, 0x0FFFFFF7
|
||||
ret
|
@ -1,921 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
; KordOS bootloader, based on mtldr, KolibriOS bootloader, by diamond
|
||||
; It is used when main bootloader is Windows loader.
|
||||
|
||||
; this code is loaded:
|
||||
; NT/2k/XP: by ntldr to 0D00:0000
|
||||
; 9x: by io.sys from config.sys to xxxx:0100
|
||||
; Vista: by bootmgr to 0000:7C00
|
||||
format binary
|
||||
use16
|
||||
|
||||
; in any case, we relocate this code to 0000:0600
|
||||
org 0x600
|
||||
; entry point for 9x and Vista booting
|
||||
call @f
|
||||
db 'NTFS'
|
||||
@@:
|
||||
pop si
|
||||
sub si, 3
|
||||
cmp si, 100h
|
||||
jnz boot_vista
|
||||
mov si, load_question + 100h - 600h
|
||||
call out_string
|
||||
; mov si, answer + 100h - 0600h ; already is
|
||||
xxy: mov ah, 0
|
||||
int 16h
|
||||
or al, 20h
|
||||
mov [si], al
|
||||
cmp al, 'y'
|
||||
jz xxz
|
||||
cmp al, 'n'
|
||||
jnz xxy
|
||||
; continue load Windows
|
||||
; call out_string
|
||||
; ret
|
||||
out_string:
|
||||
push bx
|
||||
@@:
|
||||
lodsb
|
||||
test al, al
|
||||
jz @f
|
||||
mov ah, 0Eh
|
||||
mov bx, 7
|
||||
int 10h
|
||||
jmp @b
|
||||
@@:
|
||||
pop bx
|
||||
ret
|
||||
xxz:
|
||||
; boot KordOS
|
||||
call out_string
|
||||
; 9x bootloader has already hooked some interrupts; to correctly remove all DOS handlers,
|
||||
; issue int 19h (reboot interrupt) and trace its DOS handler until original BIOS handler is reached
|
||||
xor di, di
|
||||
mov ds, di
|
||||
mov word [di+4], new01handler + 100h - 600h
|
||||
mov [di+6], cs
|
||||
pushf
|
||||
pop ax
|
||||
or ah, 1
|
||||
push ax
|
||||
popf
|
||||
; we cannot issue INT 19h directly, because INT command clears TF
|
||||
; int 19h ; don't issue it directly, because INT command clears TF
|
||||
; so instead we use direct call
|
||||
; pushf ; there will be no IRET
|
||||
call far [di + 19h*4]
|
||||
xxt:
|
||||
xor di, di
|
||||
mov ds, di
|
||||
cmp word [di + 8*4+2], 0F000h
|
||||
jz @f
|
||||
les bx, [di + 8*4]
|
||||
mov eax, [es:bx+1]
|
||||
mov [di + 8*4], eax
|
||||
@@:
|
||||
mov si, 100h
|
||||
boot_vista:
|
||||
; relocate cs:si -> 0000:0600
|
||||
push cs
|
||||
pop ds
|
||||
xor ax, ax
|
||||
mov es, ax
|
||||
mov di, 0x600
|
||||
mov cx, 2000h/2
|
||||
rep movsw
|
||||
jmp 0:real_entry
|
||||
|
||||
load_question db 'Load KordOS? [y/n]: ',0
|
||||
answer db ?
|
||||
db 13,10,0
|
||||
|
||||
new01handler:
|
||||
; [sp]=ip, [sp+2]=cs, [sp+4]=flags
|
||||
push bp
|
||||
mov bp, sp
|
||||
push ds
|
||||
lds bp, [bp+2]
|
||||
cmp word [ds:bp], 19cdh
|
||||
jz xxt
|
||||
pop ds
|
||||
pop bp
|
||||
iret
|
||||
|
||||
; read from hard disk
|
||||
; in: eax = absolute sector
|
||||
; cx = number of sectors
|
||||
; es:bx -> buffer
|
||||
; out: CF=1 if error
|
||||
read:
|
||||
pushad
|
||||
add eax, [bp + partition_start - dat]
|
||||
cmp [bp + use_lba - dat], 0
|
||||
jz .chs
|
||||
; LBA read
|
||||
push ds
|
||||
.lbado:
|
||||
push ax
|
||||
push cx
|
||||
cmp cx, 0x7F
|
||||
jbe @f
|
||||
mov cx, 0x7F
|
||||
@@:
|
||||
; create disk address packet on the stack
|
||||
; dq starting LBA
|
||||
push 0
|
||||
push 0
|
||||
push eax
|
||||
; dd buffer
|
||||
push es
|
||||
push bx
|
||||
; dw number of blocks to transfer (no more than 0x7F)
|
||||
push cx
|
||||
; dw packet size in bytes
|
||||
push 10h
|
||||
; issue BIOS call
|
||||
push ss
|
||||
pop ds
|
||||
mov si, sp
|
||||
mov dl, [bp + boot_drive - dat]
|
||||
mov ah, 42h
|
||||
int 13h
|
||||
jc .disk_error_lba
|
||||
add sp, 10h ; restore stack
|
||||
; increase current sector & buffer; decrease number of sectors
|
||||
movzx esi, cx
|
||||
mov ax, es
|
||||
shl cx, 5
|
||||
add ax, cx
|
||||
mov es, ax
|
||||
pop cx
|
||||
pop ax
|
||||
add eax, esi
|
||||
sub cx, si
|
||||
jnz .lbado
|
||||
pop ds
|
||||
popad
|
||||
ret
|
||||
.disk_error_lba:
|
||||
add sp, 14h
|
||||
pop ds
|
||||
popad
|
||||
stc
|
||||
ret
|
||||
|
||||
.chs:
|
||||
pusha
|
||||
pop edi ; loword(edi) = di, hiword(edi) = si
|
||||
push bx
|
||||
|
||||
; eax / (SectorsPerTrack) -> eax, remainder bx
|
||||
movzx esi, [bp + sectors - dat]
|
||||
xor edx, edx
|
||||
div esi
|
||||
mov bx, dx ; bx = sector-1
|
||||
|
||||
; eax -> dx:ax
|
||||
push eax
|
||||
pop ax
|
||||
pop dx
|
||||
; (dword in dx:ax) / (NumHeads) -> (word in ax), remainder dx
|
||||
div [bp + heads - dat]
|
||||
|
||||
; number of sectors: read no more than to end of track
|
||||
sub si, bx
|
||||
cmp cx, si
|
||||
jbe @f
|
||||
mov cx, si
|
||||
@@:
|
||||
|
||||
inc bx
|
||||
; now ax=track, dl=head, dh=0, cl=number of sectors, ch=0, bl=sector
|
||||
; convert to int13 format
|
||||
movzx edi, cx
|
||||
mov dh, dl
|
||||
mov dl, [bp + boot_drive - dat]
|
||||
shl ah, 6
|
||||
mov ch, al
|
||||
mov al, cl
|
||||
mov cl, bl
|
||||
or cl, ah
|
||||
pop bx
|
||||
mov si, 3
|
||||
mov ah, 2
|
||||
@@:
|
||||
push ax
|
||||
int 13h
|
||||
jnc @f
|
||||
xor ax, ax
|
||||
int 13h ; reset drive
|
||||
pop ax
|
||||
dec si
|
||||
jnz @b
|
||||
add sp, 12
|
||||
popad
|
||||
stc
|
||||
ret
|
||||
@@:
|
||||
pop ax
|
||||
mov ax, es
|
||||
mov cx, di
|
||||
shl cx, 5
|
||||
add ax, cx
|
||||
mov es, ax
|
||||
push edi
|
||||
popa
|
||||
add eax, edi
|
||||
sub cx, di
|
||||
jnz .chs
|
||||
popad
|
||||
ret
|
||||
|
||||
disk_error2 db 'Fatal: cannot read partitions info: '
|
||||
disk_error_msg db 'disk read error',0
|
||||
disk_params_msg db 'Fatal: cannot get drive parameters',0
|
||||
start_msg db 2,' KordOS bootloader',13,10,0
|
||||
part_msg db 'looking at partition '
|
||||
part_char db '0' ; will be incremented before writing message
|
||||
db ' ... ',0
|
||||
errfs_msg db 'unknown filesystem',13,10,0
|
||||
fatxx_msg db 'FATxx'
|
||||
newline db 13,10,0
|
||||
ntfs_msg db 'NTFS',13,10,0
|
||||
error_msg db 'Error'
|
||||
colon db ': ',0
|
||||
root_string db '\',0
|
||||
nomem_msg db 'No memory',0
|
||||
filesys_string db '(filesystem)',0
|
||||
directory_string db 'is a directory',0
|
||||
notdir_string db 'not a directory',0
|
||||
|
||||
; entry point for NT/2k/XP booting
|
||||
; ntldr loads our code to 0D00:0000 and jumps to 0D00:0256
|
||||
repeat 600h + 256h - $
|
||||
db 1 ; any data can be here; 1 in ASCII is a nice face :)
|
||||
end repeat
|
||||
; cs=es=0D00, ds=07C0, ss=0
|
||||
; esi=edi=ebp=0, esp=7C00
|
||||
xor si, si
|
||||
jmp boot_vista
|
||||
|
||||
real_entry:
|
||||
; ax = 0
|
||||
mov ds, ax
|
||||
mov es, ax
|
||||
; our stack is 4 Kb: memory range 2000-3000
|
||||
mov ss, ax
|
||||
mov sp, 3000h
|
||||
mov bp, dat
|
||||
sti ; just for case
|
||||
; say hi to user
|
||||
mov si, start_msg
|
||||
call out_string
|
||||
; we are booting from hard disk identified by [boot_drive]
|
||||
mov dl, [bp + boot_drive - dat]
|
||||
; is LBA supported?
|
||||
mov [bp + use_lba - dat], 0
|
||||
mov ah, 41h
|
||||
mov bx, 55AAh
|
||||
int 13h
|
||||
jc .no_lba
|
||||
cmp bx, 0AA55h
|
||||
jnz .no_lba
|
||||
test cl, 1
|
||||
jz .no_lba
|
||||
inc [bp + use_lba - dat]
|
||||
jmp disk_params_ok
|
||||
.no_lba:
|
||||
; get drive geometry
|
||||
mov ah, 8
|
||||
mov dl, [bp + boot_drive - dat]
|
||||
int 13h
|
||||
jnc @f
|
||||
mov si, disk_params_msg
|
||||
call out_string
|
||||
jmp $
|
||||
@@:
|
||||
movzx ax, dh
|
||||
inc ax
|
||||
mov [bp + heads - dat], ax
|
||||
and cx, 3Fh
|
||||
mov [bp + sectors - dat], cx
|
||||
disk_params_ok:
|
||||
; determine size of cache for folders
|
||||
int 12h ; ax = size of available base memory in Kb
|
||||
sub ax, 94000h / 1024
|
||||
jc nomem
|
||||
shr ax, 3
|
||||
mov [bp + cachelimit - dat], ax ; size of cache - 1
|
||||
; scan all partitions
|
||||
new_partition_ex:
|
||||
xor eax, eax ; read first sector of current disk area
|
||||
mov [bp + extended_part_cur - dat], eax ; no extended partition yet
|
||||
mov [bp + cur_partition_ofs - dat], 31BEh ; start from first partition
|
||||
push es
|
||||
mov cx, 1
|
||||
mov bx, 3000h
|
||||
call read
|
||||
pop es
|
||||
jnc new_partition
|
||||
mov si, disk_error2
|
||||
call out_string
|
||||
jmp $
|
||||
new_partition:
|
||||
mov bx, [bp + cur_partition_ofs - dat]
|
||||
mov al, [bx+4] ; partition type
|
||||
test al, al
|
||||
jz next_partition
|
||||
cmp al, 5
|
||||
jz @f
|
||||
cmp al, 0xF
|
||||
jnz not_extended
|
||||
@@:
|
||||
; extended partition
|
||||
mov eax, [bx+8] ; partition start
|
||||
add eax, [bp + extended_part_start - dat]
|
||||
mov [bp + extended_part_cur - dat], eax
|
||||
next_partition:
|
||||
add [bp + cur_partition_ofs - dat], 10h
|
||||
cmp [bp + cur_partition_ofs - dat], 31FEh
|
||||
jb new_partition
|
||||
mov eax, [bp + extended_part_cur - dat]
|
||||
test eax, eax
|
||||
jz partitions_done
|
||||
cmp [bp + extended_part_start - dat], 0
|
||||
jnz @f
|
||||
mov [bp + extended_part_start - dat], eax
|
||||
@@:
|
||||
mov [bp + extended_parent - dat], eax
|
||||
mov [bp + partition_start - dat], eax
|
||||
jmp new_partition_ex
|
||||
partitions_done:
|
||||
mov si, total_kaput
|
||||
call out_string
|
||||
jmp $
|
||||
not_extended:
|
||||
mov eax, [bx+8]
|
||||
add eax, [bp + extended_parent - dat]
|
||||
mov [bp + partition_start - dat], eax
|
||||
; try to load from current partition
|
||||
; inform user
|
||||
mov si, part_msg
|
||||
inc [si + part_char - part_msg]
|
||||
call out_string
|
||||
; read bootsector
|
||||
xor eax, eax
|
||||
mov [bp + cur_obj - dat], filesys_string
|
||||
push es
|
||||
mov cx, 1
|
||||
mov bx, 3200h
|
||||
call read
|
||||
pop es
|
||||
mov si, disk_error_msg
|
||||
jc find_error_si
|
||||
movzx si, byte [bx+13]
|
||||
mov word [bp + sect_per_clust - dat], si
|
||||
test si, si
|
||||
jz unknown_fs
|
||||
lea ax, [si-1]
|
||||
test si, ax
|
||||
jnz unknown_fs
|
||||
; determine file system
|
||||
; Number of bytes per sector == 0x200 (this loader assumes that physical sector size is 200h)
|
||||
cmp word [bx+11], 0x200
|
||||
jnz unknown_fs
|
||||
; is it NTFS?
|
||||
cmp dword [bx+3], 'NTFS'
|
||||
jnz not_ntfs
|
||||
cmp byte [bx+16], bl
|
||||
jz ntfs
|
||||
not_ntfs:
|
||||
; is it FAT? FAT12/FAT16/FAT32?
|
||||
; get count of sectors to dword in cx:si
|
||||
mov si, [bx+19]
|
||||
xor cx, cx
|
||||
test si, si
|
||||
jnz @f
|
||||
mov si, [bx+32]
|
||||
mov cx, [bx+34]
|
||||
@@:
|
||||
xor eax, eax
|
||||
; subtract size of system area
|
||||
sub si, [bx+14] ; BPB_ResvdSecCnt
|
||||
sbb cx, ax
|
||||
mov ax, [bx+17] ; BPB_RootEntCnt
|
||||
add ax, 0xF
|
||||
rcr ax, 1
|
||||
shr ax, 3
|
||||
sub si, ax
|
||||
sbb cx, 0
|
||||
push cx
|
||||
push si
|
||||
mov ax, word [bx+22]
|
||||
test ax, ax
|
||||
jnz @f
|
||||
mov eax, [bx+36]
|
||||
@@:
|
||||
movzx ecx, byte [bx+16]
|
||||
imul ecx, eax
|
||||
pop eax
|
||||
sub eax, ecx
|
||||
; now eax = count of sectors in the data region
|
||||
xor edx, edx
|
||||
div [bp + sect_per_clust - dat]
|
||||
; now eax = count of clusters in the data region
|
||||
mov si, fatxx_msg
|
||||
cmp eax, 0xFFF5
|
||||
jae test_fat32
|
||||
; test magic value in FAT bootsector - FAT12/16 bootsector has it at the offset +38
|
||||
cmp byte [bx+38], 0x29
|
||||
jnz not_fat
|
||||
cmp ax, 0xFF5
|
||||
jae fat16
|
||||
fat12:
|
||||
mov [bp + get_next_cluster_ptr - dat], fat12_get_next_cluster
|
||||
mov di, cx ; BPB_NumFATs
|
||||
mov ax, '12'
|
||||
push ax ; save for secondary loader
|
||||
mov word [si+3], ax
|
||||
call out_string
|
||||
movzx ecx, word [bx+22] ; BPB_FATSz16
|
||||
; FAT12: read entire FAT table (it is no more than 0x1000*3/2 = 0x1800 bytes)
|
||||
.fatloop:
|
||||
; if first copy is not readable, try to switch to other copies
|
||||
push 0x6000
|
||||
pop es
|
||||
xor bx, bx
|
||||
movzx eax, word [0x320E] ; BPB_RsvdSecCnt
|
||||
push cx
|
||||
cmp cx, 12
|
||||
jb @f
|
||||
mov cx, 12
|
||||
@@:
|
||||
call read
|
||||
pop cx
|
||||
jnc fat1x_common
|
||||
add eax, ecx ; switch to next copy of FAT
|
||||
dec di
|
||||
jnz .fatloop
|
||||
mov si, disk_error_msg
|
||||
jmp find_error_si
|
||||
fat16:
|
||||
mov [bp + get_next_cluster_ptr - dat], fat16_get_next_cluster
|
||||
mov ax, '16'
|
||||
push ax ; save for secondary loader
|
||||
mov word [si+3], ax
|
||||
call out_string
|
||||
; FAT16: init FAT cache - no sectors loaded
|
||||
mov di, 0x3400
|
||||
xor ax, ax
|
||||
mov cx, 0x100/2
|
||||
rep stosw
|
||||
fat1x_common:
|
||||
mov bx, 0x3200
|
||||
movzx eax, word [bx+22] ; BPB_FATSz16
|
||||
xor esi, esi ; no root cluster
|
||||
jmp fat_common
|
||||
test_fat32:
|
||||
; FAT32 bootsector has it at the offset +66
|
||||
cmp byte [bx+66], 0x29
|
||||
jnz not_fat
|
||||
mov [bp + get_next_cluster_ptr - dat], fat32_get_next_cluster
|
||||
mov ax, '32'
|
||||
push ax ; save for secondary loader
|
||||
mov word [si+3], ax
|
||||
call out_string
|
||||
; FAT32 - init cache for FAT table: no sectors loaded
|
||||
lea si, [bp + cache1head - dat]
|
||||
mov [si], si ; no sectors in cache:
|
||||
mov [si+2], si ; 'prev' & 'next' links point to self
|
||||
mov [bp + cache1end - dat], 3400h ; first free item = 3400h
|
||||
mov [bp + cache1limit - dat], 3C00h
|
||||
mov eax, [bx+36] ; BPB_FATSz32
|
||||
mov esi, [bx+44] ; BPB_RootClus
|
||||
jmp fat_common
|
||||
not_fat:
|
||||
unknown_fs:
|
||||
mov si, errfs_msg
|
||||
call out_string
|
||||
jmp next_partition
|
||||
fat_common:
|
||||
push ss
|
||||
pop es
|
||||
movzx edx, byte [bx+16] ; BPB_NumFATs
|
||||
mul edx
|
||||
mov [bp + root_start - dat], eax ; this is for FAT1x
|
||||
; eax = total size of all FAT tables, in sectors
|
||||
movzx ecx, word [bx+17] ; BPB_RootEntCnt
|
||||
add ecx, 0xF
|
||||
shr ecx, 4
|
||||
add eax, ecx
|
||||
mov cx, word [bx+14] ; BPB_RsvdSecCnt
|
||||
add [bp + root_start - dat], ecx ; this is for FAT1x
|
||||
add eax, ecx
|
||||
; cluster 2 begins from sector eax
|
||||
movzx ebx, byte [bx+13] ; BPB_SecPerClus
|
||||
sub eax, ebx
|
||||
sub eax, ebx
|
||||
mov [bp + data_start - dat], eax
|
||||
; no clusters in folders cache
|
||||
mov di, foldcache_clus - 2
|
||||
xor ax, ax
|
||||
mov cx, 7*8/2 + 1
|
||||
rep stosw
|
||||
mov [bp + root_clus - dat], esi
|
||||
; load secondary loader
|
||||
mov [bp + load_file_ptr - dat], load_file_fat
|
||||
load_secondary:
|
||||
push 0x1000
|
||||
pop es
|
||||
xor bx, bx
|
||||
mov si, kernel_name
|
||||
mov cx, 0x30000 / 0x200
|
||||
call [bp + load_file_ptr - dat]
|
||||
; say error if needed
|
||||
mov si, error_too_big
|
||||
dec bx
|
||||
js @f
|
||||
jz find_error_si
|
||||
mov si, disk_error_msg
|
||||
jmp find_error_si
|
||||
@@:
|
||||
; fill loader information and jump to secondary loader
|
||||
mov al, 'h' ; boot device: hard drive
|
||||
mov ah, [bp + boot_drive - dat]
|
||||
sub ah, 80h ; boot device: identifier
|
||||
pop bx ; restore file system ID ('12'/'16'/'32'/'nt')
|
||||
mov si, callback
|
||||
jmp 1000h:0000h
|
||||
|
||||
nomem:
|
||||
mov si, nomem_msg
|
||||
call out_string
|
||||
jmp $
|
||||
|
||||
ntfs:
|
||||
push 'nt' ; save for secondary loader
|
||||
mov si, ntfs_msg
|
||||
call out_string
|
||||
xor eax, eax
|
||||
mov [bp + data_start - dat], eax
|
||||
mov ecx, [bx+40h] ; frs_size
|
||||
cmp cl, al
|
||||
jg .1
|
||||
neg cl
|
||||
inc ax
|
||||
shl eax, cl
|
||||
jmp .2
|
||||
.1:
|
||||
mov eax, ecx
|
||||
shl eax, 9
|
||||
.2:
|
||||
mov [bp + frs_size - dat], ax
|
||||
; standard value for frs_size is 0x400 bytes = 1 Kb, and it cannot be set different
|
||||
; (at least with standard tools)
|
||||
; we allow extra size, but no more than 0x1000 bytes = 4 Kb
|
||||
mov si, invalid_volume_msg
|
||||
cmp eax, 0x1000
|
||||
ja find_error_si
|
||||
; must be multiple of sector size
|
||||
test ax, 0x1FF
|
||||
jnz find_error_si
|
||||
shr ax, 9
|
||||
xchg cx, ax
|
||||
; initialize cache - no data loaded
|
||||
lea si, [bp + cache1head - dat]
|
||||
mov [si], si
|
||||
mov [si+2], si
|
||||
mov word [si+4], 3400h ; first free item = 3400h
|
||||
mov word [si+6], 3400h + 8*8 ; 8 items in this cache
|
||||
; read first MFT record - description of MFT itself
|
||||
mov [bp + cur_obj - dat], mft_string
|
||||
mov eax, [bx+30h] ; mft_cluster
|
||||
mul [bp + sect_per_clust - dat]
|
||||
push 0x8000
|
||||
pop es
|
||||
xor bx, bx
|
||||
push es
|
||||
call read
|
||||
pop ds
|
||||
call restore_usa
|
||||
; scan for unnamed $DATA attribute
|
||||
mov [bp + freeattr - dat], 4000h
|
||||
mov ax, 80h
|
||||
call load_attr
|
||||
push ss
|
||||
pop ds
|
||||
mov si, nodata_string
|
||||
jc find_error_si
|
||||
; load secondary loader
|
||||
mov [bp + load_file_ptr - dat], load_file_ntfs
|
||||
jmp load_secondary
|
||||
|
||||
find_error_si:
|
||||
push si
|
||||
find_error_sp:
|
||||
cmp [bp + in_callback - dat], 0
|
||||
jnz error_in_callback
|
||||
push ss
|
||||
pop ds
|
||||
push ss
|
||||
pop es
|
||||
mov si, error_msg
|
||||
call out_string
|
||||
mov si, [bp + cur_obj - dat]
|
||||
@@:
|
||||
lodsb
|
||||
test al, al
|
||||
jz @f
|
||||
cmp al, '/'
|
||||
jz @f
|
||||
mov ah, 0Eh
|
||||
mov bx, 7
|
||||
int 10h
|
||||
jmp @b
|
||||
@@:
|
||||
mov si, colon
|
||||
call out_string
|
||||
pop si
|
||||
call out_string
|
||||
mov si, newline
|
||||
call out_string
|
||||
mov sp, 0x3000
|
||||
jmp next_partition
|
||||
error_in_callback:
|
||||
; return status: file not found, except for read errors
|
||||
mov bx, 2
|
||||
cmp si, disk_error_msg
|
||||
jnz @f
|
||||
inc bx
|
||||
@@:
|
||||
mov ax, 0xFFFF
|
||||
mov dx, ax
|
||||
mov sp, 3000h - 6
|
||||
ret
|
||||
|
||||
callback:
|
||||
; in: ax = function number; only functions 1 and 2 are defined for now
|
||||
; save caller's stack
|
||||
mov dx, ss
|
||||
mov cx, sp
|
||||
; set our stack (required because we need ss=0)
|
||||
xor si, si
|
||||
mov ss, si
|
||||
mov sp, 3000h
|
||||
mov bp, dat
|
||||
mov [bp + in_callback - dat], 1
|
||||
push dx
|
||||
push cx
|
||||
; set ds:si -> ASCIIZ name
|
||||
lea si, [di+6]
|
||||
; set cx = limit in sectors; 4Kb = 8 sectors
|
||||
movzx ecx, word [di+4]
|
||||
shl cx, 3
|
||||
; set es:bx = pointer to buffer
|
||||
les bx, [di]
|
||||
; call our function
|
||||
stc ; unsupported function
|
||||
dec ax
|
||||
jz callback_readfile
|
||||
dec ax
|
||||
jnz callback_ret
|
||||
call continue_load_file
|
||||
jmp callback_ret_succ
|
||||
callback_readfile:
|
||||
; function 1: read file
|
||||
; in: ds:di -> information structure
|
||||
; dw:dw address
|
||||
; dw limit in 4Kb blocks (0x1000 bytes) (must be non-zero and not greater than 0x100)
|
||||
; ASCIIZ name
|
||||
; out: bx=0 - ok, bx=1 - file is too big, only part of file was loaded, bx=2 - file not found, bx=3 - read error
|
||||
; out: dx:ax = file size (0xFFFFFFFF if file was not found)
|
||||
call [bp + load_file_ptr - dat]
|
||||
callback_ret_succ:
|
||||
clc
|
||||
callback_ret:
|
||||
; restore caller's stack
|
||||
pop cx
|
||||
pop ss
|
||||
mov sp, cx
|
||||
; return to caller
|
||||
retf
|
||||
|
||||
read_file_chunk.resident:
|
||||
; auxiliary label for read_file_chunk procedure
|
||||
mov di, bx
|
||||
lodsw
|
||||
read_file_chunk.resident.continue:
|
||||
mov dx, ax
|
||||
add dx, 0x1FF
|
||||
shr dx, 9
|
||||
cmp dx, cx
|
||||
jbe @f
|
||||
mov ax, cx
|
||||
shl ax, 9
|
||||
@@:
|
||||
xchg ax, cx
|
||||
rep movsb
|
||||
xchg ax, cx
|
||||
clc ; no disk error if no disk requests
|
||||
mov word [bp + num_sectors - dat], ax
|
||||
ret
|
||||
|
||||
read_file_chunk:
|
||||
; in: ds:si -> file chunk
|
||||
; in: es:bx -> buffer for output
|
||||
; in: ecx = maximum number of sectors to read (high word must be 0)
|
||||
; out: CF=1 <=> disk read error
|
||||
lodsb
|
||||
mov [bp + cur_chunk_resident - dat], al
|
||||
test al, al
|
||||
jz .resident
|
||||
; normal case: load (non-resident) attribute from disk
|
||||
.read_block:
|
||||
lodsd
|
||||
xchg eax, edx
|
||||
test edx, edx
|
||||
jz .ret
|
||||
lodsd
|
||||
; eax = start cluster, edx = number of clusters, cx = limit in sectors
|
||||
imul eax, [bp + sect_per_clust - dat]
|
||||
add eax, [bp + data_start - dat]
|
||||
mov [bp + cur_cluster - dat], eax
|
||||
imul edx, [bp + sect_per_clust - dat]
|
||||
mov [bp + num_sectors - dat], edx
|
||||
and [bp + cur_delta - dat], 0
|
||||
.nonresident.continue:
|
||||
cmp edx, ecx
|
||||
jb @f
|
||||
mov edx, ecx
|
||||
@@:
|
||||
test dx, dx
|
||||
jz .read_block
|
||||
add [bp + cur_delta - dat], edx
|
||||
sub [bp + num_sectors - dat], edx
|
||||
sub ecx, edx
|
||||
push cx
|
||||
mov cx, dx
|
||||
call read
|
||||
pop cx
|
||||
jc .ret
|
||||
test cx, cx
|
||||
jnz .read_block
|
||||
.ret:
|
||||
ret
|
||||
|
||||
cache_lookup:
|
||||
; in: eax = value to look, si = pointer to cache structure
|
||||
; out: di->cache entry; CF=1 <=> the value was not found
|
||||
push ds bx
|
||||
push ss
|
||||
pop ds
|
||||
mov di, [si+2]
|
||||
.look:
|
||||
cmp di, si
|
||||
jz .not_in_cache
|
||||
cmp eax, [di+4]
|
||||
jz .in_cache
|
||||
mov di, [di+2]
|
||||
jmp .look
|
||||
.not_in_cache:
|
||||
; cache miss
|
||||
; cache is full?
|
||||
mov di, [si+4]
|
||||
cmp di, [si+6]
|
||||
jnz .cache_not_full
|
||||
; yes, delete the oldest entry
|
||||
mov di, [si]
|
||||
mov bx, [di]
|
||||
mov [si], bx
|
||||
push word [di+2]
|
||||
pop word [bx+2]
|
||||
jmp .cache_append
|
||||
.cache_not_full:
|
||||
; no, allocate new item
|
||||
add word [si+4], 8
|
||||
.cache_append:
|
||||
mov [di+4], eax
|
||||
stc
|
||||
jmp @f
|
||||
.in_cache:
|
||||
; delete this sector from the list
|
||||
push si
|
||||
mov si, [di]
|
||||
mov bx, [di+2]
|
||||
mov [si+2], bx
|
||||
mov [bx], si
|
||||
pop si
|
||||
@@:
|
||||
; add new sector to the end of list
|
||||
mov bx, di
|
||||
xchg bx, [si+2]
|
||||
push word [bx]
|
||||
pop word [di]
|
||||
mov [bx], di
|
||||
mov [di+2], bx
|
||||
pop bx ds
|
||||
ret
|
||||
|
||||
include 'fat.inc'
|
||||
include 'ntfs.inc'
|
||||
|
||||
total_kaput db 13,10,'Fatal error: cannot load the secondary loader',0
|
||||
error_too_big db 'file is too big',0
|
||||
nodata_string db '$DATA '
|
||||
error_not_found db 'not found',0
|
||||
noindex_string db '$INDEX_ROOT not found',0
|
||||
badname_msg db 'bad name for FAT',0
|
||||
invalid_volume_msg db 'invalid volume',0
|
||||
mft_string db '$MFT',0
|
||||
fragmented_string db 'too fragmented file',0
|
||||
invalid_read_request_string db 'cannot read attribute',0
|
||||
|
||||
kernel_name db 'kord/loader',0
|
||||
|
||||
align 4
|
||||
dat:
|
||||
|
||||
extended_part_start dd 0 ; start sector for main extended partition
|
||||
extended_part_cur dd ? ; start sector for current extended child
|
||||
extended_parent dd 0 ; start sector for current extended parent
|
||||
partition_start dd 0 ; start sector for current logical disk
|
||||
cur_partition_ofs dw ? ; offset in MBR data for current partition
|
||||
sect_per_clust dd 0
|
||||
; change this variable if you want to boot from other physical drive
|
||||
boot_drive db 80h
|
||||
in_callback db 0
|
||||
|
||||
; uninitialized data
|
||||
use_lba db ?
|
||||
cur_chunk_resident db ?
|
||||
align 2
|
||||
heads dw ?
|
||||
sectors dw ?
|
||||
cache1head rw 2
|
||||
cache1end dw ?
|
||||
cache1limit dw ?
|
||||
data_start dd ?
|
||||
cachelimit dw ?
|
||||
load_file_ptr dw ?
|
||||
cur_obj dw ?
|
||||
missing_slash dw ?
|
||||
root_clus dd ?
|
||||
root_start dd ?
|
||||
get_next_cluster_ptr dw ?
|
||||
frs_size dw ?
|
||||
freeattr dw ?
|
||||
index_root dw ?
|
||||
index_alloc dw ?
|
||||
cur_index_seg dw ?
|
||||
cur_index_cache dw ?
|
||||
filesize dd ?
|
||||
filesize_sectors dd ?
|
||||
cur_cluster dd ?
|
||||
cur_delta dd ?
|
||||
num_sectors dd ?
|
||||
sectors_read dd ?
|
||||
cur_chunk_ptr dw ?
|
||||
|
||||
rootcache_size dw ? ; must be immediately before foldcache_clus
|
||||
if $-dat >= 0x80
|
||||
warning: unoptimal data displacement!
|
||||
end if
|
||||
foldcache_clus rd 7
|
||||
foldcache_mark rw 7
|
||||
foldcache_size rw 7
|
||||
fat_filename rb 11
|
||||
|
||||
if $ > 2000h
|
||||
error: file is too big
|
||||
end if
|
||||
|
||||
; for NT/2k/XP, file must be 16 sectors = 0x2000 bytes long
|
||||
repeat 0x2600 - $
|
||||
db 2 ; any data can be here; 2 is another nice face in ASCII :)
|
||||
end repeat
|
@ -1,391 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
Нет повести печальнее на свете,
|
||||
Чем повесть о заклинившем Reset'е...
|
||||
|
||||
Загрузчик для FAT- и NTFS-томов для случаев, когда основной бутсектор загружает
|
||||
Windows, для носителей с размером сектора 512 байт.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Требования для работы:
|
||||
1) Все используемые файлы должны быть читабельны.
|
||||
2) Минимальный процессор - 80386.
|
||||
3) В системе должно быть как минимум 592K свободной базовой памяти.
|
||||
4) Пути к используемым файлам не должны содержать символических ссылок NTFS
|
||||
(жёсткие ссылки допускаются).
|
||||
5) Используемые файлы не должны быть сжатыми или разреженными файлами
|
||||
(актуально для NTFS, для FAT выполнено автоматически).
|
||||
|
||||
=====================================================================
|
||||
|
||||
Документация в тему (ссылки проверялись на валидность 08.08.2008):
|
||||
официальная спецификация FAT: http://www.microsoft.com/whdc/system/platform/firmware/fatgen.mspx
|
||||
в формате PDF: http://staff.washington.edu/dittrich/misc/fatgen103.pdf
|
||||
русский перевод: http://wasm.ru/docs/11/fatgen103-rus.zip
|
||||
спецификация NTFS: file://C:/windows/system32/drivers/ntfs.sys
|
||||
и file://C:/ntldr либо file://C:/bootmgr
|
||||
неофициальное описание NTFS: http://sourceforge.net/project/showfiles.php?group_id=13956&package_id=16543
|
||||
официальная спецификация расширения EDD BIOS 3.0: http://www.phoenix.com/NR/rdonlyres/19FEBD17-DB40-413C-A0B1-1F3F560E222F/0/specsedd30.pdf
|
||||
то же, версия 1.1: http://www.phoenix.com/NR/rdonlyres/9BEDED98-6B3F-4DAC-BBB7-FA89FA5C30F0/0/specsedd11.pdf
|
||||
описание функций BIOS: Interrupt List by Ralf Brown: http://www.cs.cmu.edu/~ralf/files.html
|
||||
официальная спецификация Boot BIOS: http://www.phoenix.com/NR/rdonlyres/56E38DE2-3E6F-4743-835F-B4A53726ABED/0/specsbbs101.pdf
|
||||
официальное описание bcdedit для Vista: http://www.microsoft.com/whdc/system/platform/firmware/bcdedit_reff.mspx
|
||||
официальное описание работы с базой данных загрузчика Vista: http://www.microsoft.com/whdc/system/platform/firmware/bcd.mspx
|
||||
формат таблицы разделов жёсткого диска: http://www.microsoft.com/technet/prodtechnol/windows2000serv/reskit/prork/prcb_dis_qxql.mspx
|
||||
|
||||
=====================================================================
|
||||
|
||||
Схема используемой памяти:
|
||||
600-2000 код загрузчика (и данные)
|
||||
2000-3000 стек
|
||||
3000-3200 сектор MBR
|
||||
3200-3400 бутсектор логического диска
|
||||
3400-3C00 информация о кэше для таблиц FAT16/FAT32:
|
||||
для FAT16 - массив на 0x100 байт, каждый байт равен
|
||||
0 или 1 в зависимости от того, загружен ли
|
||||
соответствующий сектор таблицы FAT16;
|
||||
для FAT32 - 100h входов по 8 байт: 4 байта
|
||||
(две ссылки - вперёд и назад) для организации L2-списка
|
||||
всех прочитанных секторов в порядке возрастания
|
||||
последнего времени использования + 4 байта для номера
|
||||
сектора; при переполнении кэша выкидывается элемент из
|
||||
головы списка, то есть тот, к которому дольше всех
|
||||
не было обращений
|
||||
3400-3440 информация о кэше для файловых записей NTFS в
|
||||
таком же формате, как и кэш для FAT32, но на 8 входов
|
||||
3480-34C0 заголовки для кэшей записей индекса NTFS
|
||||
3500-3D00 информация о кэшах записей индекса NTFS: с каждой
|
||||
файловой записью связан свой кэш для
|
||||
соответствующего индекса
|
||||
4000-8000 место для информации об атрибутах для NTFS
|
||||
60000-80000 таблица FAT12 / место под таблицу FAT16 /
|
||||
кэш для таблицы FAT32 / кэш для структур NTFS
|
||||
80000-90000 текущий рассматриваемый кластер
|
||||
90000-92000 FAT: кэш для корневой папки
|
||||
92000-... FAT: кэш для некорневых папок (каждой папке отводится
|
||||
2000h байт = 100h входов, одновременно в кэше
|
||||
может находиться не более 7 папок;
|
||||
точный размер определяется размером доступной
|
||||
физической памяти - как правило, непосредственно
|
||||
перед A0000 размещается EBDA, Extended BIOS Data Area)
|
||||
|
||||
=====================================================================
|
||||
|
||||
Основной процесс загрузки.
|
||||
0a. Загрузка из-под DOS и Win9x: установка kordldr.win осуществляется
|
||||
размещением команды install=c:\kordldr.win в первой строке config.sys;
|
||||
при этом основной загрузчик системы загружает kordldr.win как обычный
|
||||
com-файл, в какой-то сегмент по смещению 100h и передаёт управление
|
||||
в начало кода (xxxx:0100).
|
||||
0б. Загрузка из-под WinNT/2000/XP: установка kordldr.win осуществляется
|
||||
добавлением строки наподобие c:\kordldr.win="KordOS" в секцию
|
||||
[operating systems] файла boot.ini; если загружаемый файл имеет размер
|
||||
не менее 8 Кб (0x2000 байт) и по смещению 3 содержит сигнатуру 'NTFS'
|
||||
(в случае kordldr.win так и есть), то основной загрузчик каждой из
|
||||
этих систем загружает kordldr.win по адресу 0D00:0000 и передаёт
|
||||
управление на адрес 0D00:0256.
|
||||
0в. Загрузка из-под Vista: установка kordldr.win осуществляется манипуляциями
|
||||
с базой данных основного загрузчика через bcdedit и подробно описана в
|
||||
инструкции к kordldr.win; основной загрузчик загружает целиком
|
||||
kordldr.win по адресу 0000:7C00 и передаёт управление в начало кода.
|
||||
1. При загрузке из-под DOS/9x основной загрузчик не ожидает, что загруженная
|
||||
им программа окажется в свою очередь загрузчиком, и в этом случае
|
||||
kordldr.win оказывается в условиях, когда основной загрузчик уже
|
||||
установил какое-то окружение, в частности, перехватил некоторые
|
||||
прерывания. Поэтому перед остальными действиями загрузчик должен
|
||||
восстановить систему в начальное состояние. (При загрузке под
|
||||
NT-линейкой такой проблемы не возникает, поскольку там основной
|
||||
загрузчик ничего в системе не трогает.) Поэтому перед собственно
|
||||
инициализацией KordOS при работе из-под DOS/9x производятся
|
||||
дополнительные действия. Первым делом kordldr проверяет, какой из
|
||||
случаев 0а и 0в имеет место (случай 0б отличается тем, что передаёт
|
||||
управление не на начало кода): определяет значение ip (команда call
|
||||
помещает в стек адрес следующей после call инструкции, команда pop si
|
||||
выталкивает его в регистр si), и если оно равно 100h, то kordldr
|
||||
загружен как com-файл из-под DOS/9x. Тогда он спрашивает подтверждения
|
||||
у пользователя (поскольку в этой схеме kordldr загружается всегда,
|
||||
он должен оставить возможность продолжить загрузку DOS/9x). Если
|
||||
пользователь хочет продолжить обычную загрузку, kordldr завершается.
|
||||
Иначе используется тот факт, что при выдаче прерывания перезагрузки
|
||||
int 19h система предварительно снимает все свои перехваты BIOSовских
|
||||
прерываний, а потом в свою очередь выдаёт int 19h уже BIOSу. Так что
|
||||
kordldr устанавливает свой обработчик трассировочного прерывания,
|
||||
устанавливает флаг трассировки и передаёт управление DOSовскому
|
||||
обработчику. Обработчик трассировочного прерывания ничего не делает
|
||||
до тех пор, пока следующей инструкцией не оказывается int 19h, а
|
||||
в этот момент отбирает управление и продолжает загрузку KordOS.
|
||||
При этом BIOSовские обработчики восстановлены за исключением,
|
||||
быть может, прерывания таймера int 8, которое, возможно, восстановлено
|
||||
до команды jmp far на оригинальный обработчик. В последнем случае его
|
||||
нужно восстановить явно.
|
||||
2. Загрузчик перемещает свой код на адрес 0000:0600.
|
||||
3. (метка real_entry) Загрузчик устанавливает сегментные регистры ds = es = 0,
|
||||
настраивает стек ss:sp = 0000:3000 и устанавливает bp так, чтобы
|
||||
все данные можно было адресовать через [bp+N] с однобайтовым N
|
||||
(в дальнейшем они так и будут адресоваться для освобождения ds и
|
||||
экономии на размере кода). Разрешает прерывания на случай, если
|
||||
они были запрещены. Выдаёт сообщение о начале загрузки, начинающееся
|
||||
с весёлой рожицы (символ с ASCII-кодом 2).
|
||||
4. Определяет характеристики жёсткого диска, указанного в качестве
|
||||
загрузочного: проверяет поддержку LBA (функция 41h прерывания 13h),
|
||||
если LBA не поддерживается, то определяет геометрию - число дорожек
|
||||
и число секторов на дорожке (функция 8 прерывания 13h), эти параметры
|
||||
нужны функции чтения с диска.
|
||||
5. (метка new_partition_ex) Устраивает цикл по разделам жёсткого диска.
|
||||
Цель цикла - для каждого логического диска попытаться загрузиться с
|
||||
него (действия по загрузке с конкретного логического диска начинаются
|
||||
с метки not_extended), при ошибке загрузки управление передаётся
|
||||
назад этому циклу (метка next_partition), и поиск подходящего раздела
|
||||
продолжается. На выходе заполняется одна переменная partition_start,
|
||||
имеющая смысл начала текущего рассматриваемого логического диска,
|
||||
но по ходу дела из-за приколов таблиц разделов используются ещё четыре
|
||||
переменных. cur_partition_ofs - фактически счётчик цикла, формально
|
||||
указатель на текущий вход в текущей загрузочной записи. Сама
|
||||
загрузочная запись считывается в память начиная с адреса 3000h.
|
||||
Три оставшихся нужны для правильной работы с расширенными разделами.
|
||||
В каждой загрузочной записи помещается не более 4 записей о разделах.
|
||||
Поэтому главной загрузочной записи, размещающейся в первом физическом
|
||||
секторе диска, может не хватить, и обычно создаётся так называемый
|
||||
расширенный раздел с расширенными загрузочными записями, формат
|
||||
которых почти идентичен главной. Расширенный раздел может быть только
|
||||
один, но в нём может быть много логических дисков и расширенных
|
||||
загрузочных записей. Расширенные загрузочные записи организованы
|
||||
в односвязный список, в каждой такой записи первый вход указывает
|
||||
на соответствующий логический диск, а второй - на следующую расширенную
|
||||
загрузочную запись.
|
||||
При этом в главной загрузочной записи все адреса разделов являются
|
||||
абсолютными номерами секторов. В расширенных же записях адреса разделов
|
||||
относительны, причём с разными базами: адрес логического диска
|
||||
указывается относительно расширенной записи, а адрес следующей
|
||||
расширенной записи указывается относительно начала расширенного
|
||||
раздела. Такой разнобой выглядит несколько странно, но имеет место
|
||||
быть. Три оставшихся переменных содержат: extended_part_start -
|
||||
начало расширенного раздела; extended_parent - текущая рассматриваемая
|
||||
расширенная загрузочная запись; extended_part_cur - следующая
|
||||
загрузочная запись для рассмотрения.
|
||||
Цикл выглядит так: просматриваются все разделы, указанные в текущей
|
||||
(главной или расширенной) загрузочной записи; для нормальных разделов
|
||||
(они же логические диски) происходит переход на not_extended, где
|
||||
устанавливается partition_start и начинается собственно загрузка
|
||||
(последующие шаги); при встрече с разделом, тип которого указывает
|
||||
на расширенность (5 или 0xF), код запоминает начало этого раздела
|
||||
(в главной загрузочной записи такой тип означает расширенный раздел,
|
||||
в расширенной - только указатель на следующую расширенную запись,
|
||||
в обоих случаях он может встретиться только один раз в данной записи);
|
||||
когда код доходит до конца списка, все нормальные разделы, описываемые
|
||||
в этой записи, уже просмотрены, так что код с чистой совестью переходит
|
||||
к следующей расширенной записи. Если он её не встретил, значит, уже
|
||||
все логические разделы были подвергнуты попыткам загрузиться, и все
|
||||
безрезультатно, так что выводится ругательство и работа останавливается
|
||||
(jmp $).
|
||||
Может возникнуть вопрос, зачем нужна такая сложная схема и почему
|
||||
нельзя узнать нужный логический диск заранее или хотя бы ограничиться
|
||||
первым попавшимся логическим диском, не крутя цикл. Так вот, вариант
|
||||
с предварительным определением нужного раздела в данном случае не
|
||||
используется, поскольку повлёк бы за собой нетривиальные лишние
|
||||
действия по установке (в текущем виде установку можно провести вручную,
|
||||
и она сводится к указанию системному загрузчику на существование
|
||||
kordldr); кстати, в альтернативной версии загрузки после
|
||||
Windows-загрузчика, когда установка осуществляется не вручную, а
|
||||
специальной программой под Windows, используется модифицированная
|
||||
версия, в которой как раз начальный физический сектор нужного раздела
|
||||
прописывается установщиком. Сам kordldr не может установить, с какого
|
||||
раздела его загрузил Windows-загрузчик (и вообще под NT/2000/XP обязан
|
||||
быть файлом на диске C:\). Вариант с первым попавшимся логическим
|
||||
диском был реализован в первой версии загрузчика, но по ходу дела
|
||||
обнаружилось, что таки нужно крутить цикл: во-вторых, может быть
|
||||
приятным, что сама система может стоять вовсе не на системном C:\, а и
|
||||
на других дисках; во-первых, диск C: может и не быть первым логическим
|
||||
разделом - Vista любит создавать скрытый первичный раздел перед
|
||||
системным, и тогда диск C: становится вторым логическим.
|
||||
6. Извещает пользователя о том, что происходит попытка загрузки с очередного
|
||||
логического диска.
|
||||
7. Читает первый сектор логического диска и определяет файловую систему.
|
||||
И в FAT, и в NTFS поле со смещением +11 содержит число байт в секторе
|
||||
и должно совпадать с характеристикой физического носителя, то есть
|
||||
200h байт. И в FAT, и в NTFS поле со смещением +13 содержит число
|
||||
секторов в кластере и должно быть степенью двойки.
|
||||
Критерий NTFS: поле со смещением +3 содержит строку NTFS и поле со
|
||||
смещением +16 нулевое (в FAT оно содержит число таблиц FAT и обязано
|
||||
быть ненулевым).
|
||||
Критерий FAT: загрузчик вычисляет число кластеров, определяет
|
||||
предположительный тип (FAT12/FAT16/FAT32) и проверяет байт по смещению
|
||||
+38 для FAT12/16, +66 для FAT32 (он должен быть равен 0x29).
|
||||
После определения типа файловой системы извещает пользователя об
|
||||
определённом типе. Если файловая система не распознана, выдаёт
|
||||
соответствующее сообщение и переходит к следующему логическому диску.
|
||||
8a. Для FAT12-томов: засовывает в стек идентификатор файловой системы -
|
||||
константу '12'; устанавливает указатель на функцию получения следующего
|
||||
в цепочке FAT кластера на FAT12-обработчик; считывает в память всю
|
||||
таблицу FAT12 (она не превосходит 0x1800 байт = 6 Кб), при ошибке
|
||||
чтения пытается использовать другие копии FAT.
|
||||
8б. Для FAT16-томов: засовывает в стек идентификатор файловой системы -
|
||||
константу '16'; устанавливает указатель на функцию получения следующего
|
||||
в цепочке FAT кластера на FAT16-обработчик; инициализирует информацию
|
||||
о кэше секторов FAT (массив байт с возможными значениями 0 и 1,
|
||||
означающими, был ли уже загружен соответствующий сектор - всего в
|
||||
таблице FAT16 не более 0x100 секторов) - ни один сектор ещё не
|
||||
загружен, все байты нулевые.
|
||||
8в. Для FAT32-томов: засовывает в стек идентификатор файловой системы -
|
||||
константу '32'; устанавливает указатель на функцию получения следующего
|
||||
в цепочке FAT кластера на FAT16-обработчик; инициализирует информацию
|
||||
о кэше секторов FAT (формат информации описан выше, в распределении
|
||||
используемой загрузчиком памяти) - ни один сектор ещё не загружен.
|
||||
8г. Общее для FAT-томов: определяет значения служебных переменных
|
||||
root_start (первый сектор корневого каталога в FAT12/16, игнорируется
|
||||
при обработке FAT32-томов), data_start (начало данных с поправкой,
|
||||
вводимой для того, чтобы кластер N начинался с сектора
|
||||
N*sectors_per_cluster+data_start), root_clus (первый кластер корневого
|
||||
каталога в FAT32, 0 в FAT12/16); устанавливает указатель на функцию
|
||||
загрузки файла на FAT-обработчик.
|
||||
8д. Для NTFS-томов: засовывает в стек идентификатор файловой системы -
|
||||
константу 'nt'; определяет значение служебной переменной frs_size
|
||||
(размер в байтах файловой записи, File Record Segment), для полной
|
||||
корректности проверяет, что это значение (равное 0x400 байт на всех
|
||||
реальных NTFS-томах - единственный способ изменить его заключается
|
||||
в пересоздании всех системных структур вручную) не превосходит 0x1000
|
||||
и кратно размеру сектора 0x200 байт; инициализирует кэш файловых
|
||||
записей - ничего ещё не загружено; считывает первый кластер $MFT
|
||||
и загружает информацию о расположении на диске всей таблицы $MFT
|
||||
(атрибут 0x80, $Data); устанавливает указатель на функцию загрузки
|
||||
файла на NTFS-обработчик.
|
||||
9. (метка load_secondary) Вызывает функцию загрузки файла для файла вторичного
|
||||
загрузчика. При обнаружении ошибки переходит на обработчик ошибок с
|
||||
соответствующим сообщением.
|
||||
10. Устанавливает регистры для вторичного загрузчика: al='h' (жёсткий диск),
|
||||
ah=номер диска (для готового бинарника - 0 (BIOS-идентификатор 80h),
|
||||
может быть изменён путём модификации константы в исходнике или
|
||||
специальным установщиком), bx=идентификатор файловой системы (берётся
|
||||
из стека, куда ранее был засунут на шаге 8), ds:si=указатель на
|
||||
callback-функцию.
|
||||
11. Передаёт управление вторичному загрузчику дальним переходом на 1000:0000.
|
||||
|
||||
Функция обратного вызова для вторичного загрузчика:
|
||||
предоставляет возможность чтения файла.
|
||||
Вход и выход описаны в спецификации на загрузчик.
|
||||
Чтение файла:
|
||||
1. Сохраняет стек вызывающего кода и устанавливает свой стек:
|
||||
ss:sp = 0:3000, bp=dat: пара ss:bp при работе с остальным
|
||||
кодом должна указывать на 0:dat.
|
||||
2. Разбирает переданные параметры и вызывает процедуру загрузки файла.
|
||||
3. Восстанавливает стек вызывающего кода и возвращает управление.
|
||||
|
||||
Вспомогательные процедуры.
|
||||
Процедура чтения секторов (read):
|
||||
на входе должно быть установлено:
|
||||
ss:bp = 0:dat
|
||||
es:bx = указатель на начало буфера, куда будут прочитаны данные
|
||||
eax = стартовый сектор (относительно начала логического диска)
|
||||
cx = число секторов (должно быть больше нуля)
|
||||
на выходе: es:bx указывает на конец буфера, в который были прочитаны данные,
|
||||
флаг CF установлен, если возникла ошибка чтения
|
||||
1. Переводит стартовый сектор (отсчитываемый от начала тома) в сектор на
|
||||
устройстве, прибавляя номер первого сектора логического диска,
|
||||
найденный при переборе дисков.
|
||||
2. В цикле (шаги 3-6) читает секторы, следит за тем, чтобы на каждой итерации
|
||||
CHS-версия: все читаемые секторы были на одной дорожке.
|
||||
LBA-версия: число читаемых секторов не превосходило 7Fh (требование
|
||||
спецификации EDD BIOS).
|
||||
CHS-версия:
|
||||
3. Переводит абсолютный номер сектора в CHS-систему: сектор рассчитывается как
|
||||
единица плюс остаток от деления абсолютного номера на число секторов
|
||||
на дорожке; дорожка рассчитывается как остаток от деления частного,
|
||||
полученного на предыдущем шаге, на число дорожек, а цилиндр - как
|
||||
частное от этого же деления. Если число секторов для чтения больше,
|
||||
чем число секторов до конца дорожки, уменьшает число секторов для
|
||||
чтения.
|
||||
4. Формирует данные для вызова int 13h (ah=2 - чтение, al=число секторов,
|
||||
dh=головка, (младшие 6 бит cl)=сектор,
|
||||
(старшие 2 бита cl и весь ch)=дорожка, dl=диск, es:bx->буфер).
|
||||
5. Вызывает BIOS. Если BIOS рапортует об ошибке, выполняет сброс диска
|
||||
и повторяет попытку чтения, всего делается не более трёх попыток
|
||||
(несколько попыток нужно в случае дискеты для гарантии того, что
|
||||
мотор раскрутился). Если все три раза происходит ошибка чтения,
|
||||
переходит на код обработки ошибок с сообщением "Read error".
|
||||
6. В соответствии с числом прочитанных на текущей итерации секторов
|
||||
корректирует текущий сектор, число оставшихся секторов и указатель на
|
||||
буфер (в паре es:bx корректируется es). Если всё прочитано, заканчивает
|
||||
работу, иначе возвращается на шаг 3.
|
||||
LBA-версия:
|
||||
3. Если число секторов для чтения больше 7Fh, уменьшает его (для текущей
|
||||
итерации) до 7Fh.
|
||||
4. Формирует в стеке пакет для int 13h (кладёт все нужные данные командами
|
||||
push, причём в обратном порядке: стек - структура LIFO, и данные в
|
||||
стеке хранятся в обратном порядке по отношению к тому, как их туда
|
||||
клали).
|
||||
5. Вызывает BIOS. Если BIOS рапортует об ошибке, переходит на код обработки
|
||||
ошибок с сообщением "Read error". Очищает стек от пакета,
|
||||
сформированного на предыдущем шаге.
|
||||
6. В соответствии с числом прочитанных на текущей итерации секторов
|
||||
корректирует текущий сектор, число оставшихся секторов и указатель на
|
||||
буфер (в паре es:bx корректируется es). Если всё прочитано, заканчивает
|
||||
работу, иначе возвращается на шаг 3.
|
||||
|
||||
Процедура обработки ошибок (find_error_si и find_error_sp):
|
||||
на входе: указатель на сообщение об ошибке в si либо на верхушке стека
|
||||
0. Если вызывается find_error_si, она помещает переданный указатель в стек.
|
||||
1. Если ошибка произошла в процессе работы callback-функции, то
|
||||
(метка error_in_callback) обработчик просто возвращает управление
|
||||
вызвавшему коду, рапортуя о ненайденном файле.
|
||||
2. Если же ошибка произошла до передачи управления вторичному загрузчику,
|
||||
обработчик выводит сообщение типа "Error: <текущий объект>: <ошибка>"
|
||||
и (восстановив стек) переходит к следующему логическому диску.
|
||||
|
||||
Процедура чтения файла/атрибута по известному размещению на диске
|
||||
(read_file_chunk):
|
||||
на входе должно быть установлено:
|
||||
ds:si = указатель на информацию о размещении
|
||||
es:bx = указатель на начало буфера, куда будут прочитаны данные
|
||||
ecx = лимит числа секторов для чтения, старшее слово должно быть 0
|
||||
на выходе: es:bx указывает на конец буфера, в который были прочитаны данные,
|
||||
флаг CF установлен, если возникла ошибка чтения
|
||||
1. Определяет, является ли атрибут резидентным (возможно только в NTFS
|
||||
и означает, что данные файла/атрибута уже были целиком прочитаны при
|
||||
обработке информации о файле) или нерезидентным (означает, что данные
|
||||
хранятся где-то на диске, и имеется информация о том, где именно).
|
||||
2. Для резидентных атрибутов (метка read_file_chunk.resident) просто копирует
|
||||
данные по месту назначения (с учётом указанного лимита).
|
||||
3. Для нерезидентных атрибутов информация состоит из пар <размер очередного
|
||||
фрагмента файла в кластерах, стартовый кластер фрагмента>; процедура
|
||||
читает фрагменты, пока файл не закончится или пока не будет достигнут
|
||||
указанный лимит.
|
||||
|
||||
Процедура просмотра кэша (cache_lookup):
|
||||
на входе должно быть установлено:
|
||||
eax = искомое значение
|
||||
ss:si = указатель на структуру-заголовок кэша
|
||||
на выходе: ss:di = указатель на вход в кэше; флаг CF установлен, если значение
|
||||
было только что добавлено, и сброшен, если оно уже было в кэше.
|
||||
1. Просматривает кэш в поисках указанного значения. Если значение найдено
|
||||
(при этом флаг CF оказывается сброшенным), переходит к шагу 4.
|
||||
2. Если кэш уже заполнен, удаляет из кэша самый старый вход (он находится в
|
||||
голове двусвязного списка), иначе добавляет к кэшу ещё один вход.
|
||||
3. Устанавливает в полученном входе указанное значение. Устанавливает флаг
|
||||
CF, последующие шаги не меняют состояния флагов. Переходит к шагу 5.
|
||||
4. Удаляет вход из списка.
|
||||
5. Добавляет сектор в конец списка (самый новый вход).
|
@ -1,587 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
restore_usa:
|
||||
; Update Sequence Array restore
|
||||
; in: ds:bx -> USA-protected structure
|
||||
push bx
|
||||
lea di, [bx+1feh]
|
||||
mov cx, [bx+6]
|
||||
add bx, [bx+4]
|
||||
dec cx
|
||||
@@:
|
||||
mov ax, [bx+2]
|
||||
mov [di], ax
|
||||
inc bx
|
||||
inc bx
|
||||
add di, 200h
|
||||
loop @b
|
||||
pop bx
|
||||
ret
|
||||
|
||||
find_attr:
|
||||
; in: ds:di->file record, ax=attribute
|
||||
; out: ds:di->attribute or di=0 if not found
|
||||
add di, [di+14h]
|
||||
.1:
|
||||
; attributes' codes are formally dwords, but all of them fit in word
|
||||
cmp word [di], -1
|
||||
jz .notfound
|
||||
cmp word [di], ax
|
||||
jnz .continue
|
||||
; for $DATA attribute, scan only unnamed
|
||||
cmp ax, 80h
|
||||
jnz .found
|
||||
cmp byte [di+9], 0
|
||||
jz .found
|
||||
.continue:
|
||||
add di, [di+4]
|
||||
jmp .1
|
||||
.notfound:
|
||||
xor di, di
|
||||
.found:
|
||||
ret
|
||||
|
||||
process_mcb_nonres:
|
||||
; in: ds:si->attribute, es:di->buffer
|
||||
; out: es:di->buffer end
|
||||
pushad
|
||||
pop di
|
||||
add si, [si+20h]
|
||||
xor ebx, ebx
|
||||
.loop:
|
||||
lodsb
|
||||
test al, al
|
||||
jz .done
|
||||
push invalid_read_request_string
|
||||
movzx cx, al
|
||||
shr cx, 4
|
||||
jz find_error_sp
|
||||
xchg ax, dx
|
||||
and dx, 0Fh
|
||||
jz find_error_sp
|
||||
add si, cx
|
||||
add si, dx
|
||||
pop ax
|
||||
push si
|
||||
dec si
|
||||
movsx eax, byte [si]
|
||||
dec cx
|
||||
jz .l1e
|
||||
.l1:
|
||||
dec si
|
||||
shl eax, 8
|
||||
mov al, [si]
|
||||
loop .l1
|
||||
.l1e:
|
||||
xchg ebp, eax
|
||||
dec si
|
||||
movsx eax, byte [si]
|
||||
mov cx, dx
|
||||
dec cx
|
||||
jz .l2e
|
||||
.l2:
|
||||
dec si
|
||||
shl eax, 8
|
||||
mov al, byte [si]
|
||||
loop .l2
|
||||
.l2e:
|
||||
pop si
|
||||
add ebx, ebp
|
||||
; eax=length, ebx=disk block
|
||||
stosd
|
||||
mov eax, ebx
|
||||
stosd
|
||||
cmp di, 0x8000 - 12
|
||||
jbe .loop
|
||||
..attr_overflow:
|
||||
mov si, fragmented_string
|
||||
jmp find_error_si
|
||||
.done:
|
||||
xor ax, ax
|
||||
stosw
|
||||
stosw
|
||||
push di
|
||||
popad
|
||||
ret
|
||||
|
||||
load_attr:
|
||||
; in: ax=attribute, ds:bx->base record
|
||||
; out: if found: CF=0, attribute loaded to [freeattr], [freeattr] updated,
|
||||
; edx=size of attribute in bytes
|
||||
; out: if not found: CF=1
|
||||
mov di, [bp + freeattr - dat]
|
||||
push ss
|
||||
pop es
|
||||
mov byte [es:di], 1
|
||||
inc di
|
||||
cmp di, 0x8000 - 12
|
||||
ja ..attr_overflow
|
||||
or edx, -1 ; file size is not known yet
|
||||
; scan for attribute
|
||||
push di
|
||||
mov di, bx
|
||||
add di, [di+14h]
|
||||
@@:
|
||||
call find_attr.1
|
||||
test di, di
|
||||
jz .notfound1
|
||||
cmp byte [di+8], 0
|
||||
jnz .nonresident
|
||||
mov si, di
|
||||
pop di
|
||||
push ds
|
||||
jmp .resident
|
||||
.aux_resident:
|
||||
mov ax, ds
|
||||
mov si, di
|
||||
pop di ds bx ds edx
|
||||
push ss
|
||||
pop es
|
||||
push ds
|
||||
mov ds, ax
|
||||
; resident attribute
|
||||
.resident:
|
||||
dec di
|
||||
mov al, 0
|
||||
stosb
|
||||
mov ax, [si+10h]
|
||||
stosw
|
||||
push di
|
||||
add di, ax
|
||||
cmp di, 0x8000 - 12
|
||||
pop di
|
||||
ja ..attr_overflow
|
||||
movzx edx, ax ; length of attribute
|
||||
xchg ax, cx
|
||||
add si, [si+14h]
|
||||
rep movsb
|
||||
mov [bp + freeattr - dat], di
|
||||
pop ds
|
||||
ret
|
||||
.nonresident:
|
||||
; nonresident attribute
|
||||
cmp dword [di+10h], 0
|
||||
jnz @b
|
||||
; read start of data
|
||||
mov si, di
|
||||
mov edx, [di+30h] ; size of attribute
|
||||
pop di
|
||||
call process_mcb_nonres
|
||||
sub di, 4
|
||||
push di
|
||||
.notfound1:
|
||||
pop di
|
||||
push edx
|
||||
; $ATTRIBUTE_LIST is always in base file record
|
||||
cmp ax, 20h
|
||||
jz .nofragmented
|
||||
; try to load $ATTRIBUTE_LIST = 20h
|
||||
push ax
|
||||
mov ax, 20h
|
||||
push [bp + freeattr - dat]
|
||||
mov [bp + freeattr - dat], di
|
||||
push di
|
||||
call load_attr
|
||||
pop di
|
||||
pop [bp + freeattr - dat]
|
||||
pop ax
|
||||
jc .nofragmented
|
||||
push ds bx
|
||||
pusha
|
||||
mov si, di
|
||||
push ss
|
||||
pop ds
|
||||
push 0x8100
|
||||
pop es
|
||||
xor ecx, ecx
|
||||
mov cl, 0x78
|
||||
xor bx, bx
|
||||
push es
|
||||
call read_file_chunk
|
||||
pop ds
|
||||
jc ..found_disk_error
|
||||
test cx, cx
|
||||
jz ..attr_overflow
|
||||
popa
|
||||
push ss
|
||||
pop es
|
||||
xor bx, bx
|
||||
.1:
|
||||
cmp [bx], ax
|
||||
jnz .continue1
|
||||
; only unnamed $DATA attributes!
|
||||
cmp ax, 80h
|
||||
jnz @f
|
||||
cmp byte [bx+6], 0
|
||||
jnz .continue1
|
||||
@@:
|
||||
cmp dword [bx+10h], 0
|
||||
jz .continue1
|
||||
cmp dword [bx+8], 0
|
||||
jnz @f
|
||||
dec di
|
||||
cmp di, [bp + freeattr - dat]
|
||||
lea di, [di+1]
|
||||
jnz .continue1
|
||||
@@:
|
||||
push ds di
|
||||
push ax
|
||||
mov eax, [bx+10h]
|
||||
mov ecx, [bx+8]
|
||||
call read_file_record
|
||||
pop ax
|
||||
mov di, [14h]
|
||||
.2:
|
||||
call find_attr.1
|
||||
cmp byte [di+8], 0
|
||||
jz .aux_resident
|
||||
cmp dword [di+10h], ecx
|
||||
jnz .2
|
||||
mov si, di
|
||||
mov di, sp
|
||||
cmp dword [ss:di+8], -1
|
||||
jnz @f
|
||||
push dword [si+30h] ; size of attribute
|
||||
pop dword [ss:di+8]
|
||||
@@:
|
||||
pop di
|
||||
call process_mcb_nonres
|
||||
sub di, 4
|
||||
pop ds
|
||||
.continue1:
|
||||
add bx, [bx+4]
|
||||
cmp bx, dx
|
||||
jb .1
|
||||
pop bx ds
|
||||
.nofragmented:
|
||||
pop edx
|
||||
dec di
|
||||
cmp di, [bp + freeattr - dat]
|
||||
jnz @f
|
||||
stc
|
||||
ret
|
||||
@@:
|
||||
inc di
|
||||
xor ax, ax
|
||||
stosw
|
||||
stosw
|
||||
mov [bp + freeattr - dat], di
|
||||
ret
|
||||
|
||||
read_file_record:
|
||||
; in: eax = index of record
|
||||
; out: ds:0 -> record
|
||||
; find place in cache
|
||||
push di
|
||||
push si
|
||||
mov si, cache1head
|
||||
call cache_lookup
|
||||
pop si
|
||||
pushf
|
||||
sub di, 3400h
|
||||
shl di, 10-3
|
||||
add di, 0x6000
|
||||
mov ds, di
|
||||
popf
|
||||
pop di
|
||||
jnc .noread
|
||||
; read file record <eax> to ds:0
|
||||
pushad
|
||||
push ds
|
||||
push es
|
||||
movzx ecx, [bp + frs_size - dat]
|
||||
shr cx, 9
|
||||
mul ecx
|
||||
push ds
|
||||
pop es
|
||||
push ss
|
||||
pop ds
|
||||
mov si, 0x4000
|
||||
xor bx, bx
|
||||
push [bp + cur_obj - dat]
|
||||
mov [bp + cur_obj - dat], mft_string
|
||||
push es
|
||||
call read_attr
|
||||
; initialize cache for $INDEX_ALLOCATION for this record
|
||||
pop si
|
||||
push si
|
||||
sub si, 0x6000
|
||||
mov ax, si
|
||||
shr si, 10-3
|
||||
shr ax, 2
|
||||
add si, 3480h
|
||||
add ax, 3500h
|
||||
mov [si], si
|
||||
mov [si+2], si
|
||||
mov [si+4], ax
|
||||
pop ds
|
||||
call restore_usa
|
||||
pop [bp + cur_obj - dat]
|
||||
pop es
|
||||
pop ds
|
||||
popad
|
||||
.noread:
|
||||
ret
|
||||
|
||||
read_attr:
|
||||
; in: eax = offset in sectors, ecx = size in sectors (<10000h), es:bx -> buffer, ds:si -> attribute
|
||||
push invalid_read_request_string
|
||||
cmp byte [si], 0
|
||||
jnz .nonresident
|
||||
cmp eax, 10000h shr 9
|
||||
jae find_error_sp
|
||||
shl ax, 9
|
||||
shl cx, 9
|
||||
cmp ax, [si+2]
|
||||
jae find_error_sp
|
||||
cmp cx, [si+2]
|
||||
ja find_error_sp
|
||||
add si, 3
|
||||
add si, ax
|
||||
mov di, bx
|
||||
rep movsb
|
||||
pop ax
|
||||
ret
|
||||
.nonresident:
|
||||
inc si
|
||||
.loop:
|
||||
mov edx, dword [si]
|
||||
add si, 8
|
||||
test edx, edx
|
||||
jz find_error_sp
|
||||
imul edx, [bp + sect_per_clust - dat]
|
||||
sub eax, edx
|
||||
jnc .loop
|
||||
add eax, edx
|
||||
sub edx, eax
|
||||
push cx
|
||||
cmp ecx, edx
|
||||
jb @f
|
||||
mov cx, dx
|
||||
@@:
|
||||
push bx
|
||||
mov ebx, [si-4]
|
||||
imul ebx, [bp + sect_per_clust - dat]
|
||||
add eax, ebx
|
||||
pop bx
|
||||
call read
|
||||
jc ..found_disk_error
|
||||
mov dx, cx
|
||||
pop cx
|
||||
xor eax, eax
|
||||
sub cx, dx
|
||||
jnz .loop
|
||||
pop ax
|
||||
ret
|
||||
|
||||
load_file_ntfs:
|
||||
; in: ss:bp = 0:dat
|
||||
; in: es:bx = address to load file
|
||||
; in: ds:si -> ASCIIZ name
|
||||
; in: cx = limit in sectors
|
||||
; out: bx = status: bx=0 - ok, bx=1 - file is too big, only part has been loaded, bx=2 - file not found
|
||||
; out: dx:ax = file size (0xFFFFFFFF if file not found)
|
||||
push es bx cx
|
||||
mov eax, 5 ; root cluster
|
||||
mov [bp + cur_obj - dat], root_string
|
||||
.parse_dir_loop:
|
||||
push ds si
|
||||
call read_file_record
|
||||
; find attributes $INDEX_ROOT, $INDEX_ALLOCATION, $BITMAP
|
||||
mov ax, [bp + freeattr - dat]
|
||||
mov [bp + index_root - dat], ax
|
||||
mov ax, 90h ; $INDEX_ROOT
|
||||
xor bx, bx
|
||||
call load_attr
|
||||
mov si, noindex_string
|
||||
jc find_error_si
|
||||
mov ax, [bp + freeattr - dat]
|
||||
mov [bp + index_alloc - dat], ax
|
||||
mov ax, 0A0h ; $INDEX_ALLOCATION
|
||||
call load_attr
|
||||
jnc @f
|
||||
mov [bp + index_alloc - dat], bx
|
||||
@@:
|
||||
push ds
|
||||
; search for entry
|
||||
mov si, [bp + index_root - dat]
|
||||
push ss
|
||||
pop ds
|
||||
push 0x8100
|
||||
pop es
|
||||
xor ecx, ecx
|
||||
mov cl, 0x78
|
||||
xor bx, bx
|
||||
push es
|
||||
call read_file_chunk
|
||||
pop ds
|
||||
jc ..found_disk_error
|
||||
test cx, cx
|
||||
jz ..attr_overflow
|
||||
mov si, invalid_read_request_string
|
||||
cmp word [bx+10], 0
|
||||
jnz find_error_si
|
||||
; calculate number of items in cache
|
||||
mov di, [bx+8] ; subnode_size
|
||||
mov ax, 0x4000
|
||||
sub ax, word [bp + frs_size - dat]
|
||||
cwd
|
||||
div di
|
||||
test ax, ax
|
||||
jz find_error_si
|
||||
mov si, invalid_volume_msg
|
||||
test di, 0x1FF
|
||||
jnz find_error_si
|
||||
pop cx
|
||||
mov [bp + cur_index_seg - dat], cx
|
||||
shl ax, 3
|
||||
sub cx, 6000h
|
||||
mov si, cx
|
||||
shr cx, 2
|
||||
shr si, 10-3
|
||||
add cx, ax
|
||||
add si, 3480h
|
||||
mov [bp + cur_index_cache - dat], si
|
||||
add cx, 3500h
|
||||
mov [ss:si+6], cx
|
||||
mov dx, di
|
||||
add bx, 10h
|
||||
.scan_record:
|
||||
add bx, [bx]
|
||||
.scan:
|
||||
test byte [bx+0Ch], 2
|
||||
jnz .look_child
|
||||
movzx cx, byte [bx+50h] ; namelen
|
||||
lea di, [bx+52h] ; name
|
||||
push ds
|
||||
pop es
|
||||
pop si ds
|
||||
push ds si
|
||||
xor ax, ax
|
||||
.1:
|
||||
lodsb
|
||||
cmp al, '/'
|
||||
jnz @f
|
||||
mov al, 0
|
||||
@@:
|
||||
cmp al, 'A'
|
||||
jb .nocapital
|
||||
cmp al, 'Z'
|
||||
ja .nocapital
|
||||
or al, 20h
|
||||
.nocapital:
|
||||
cmp al, 'a'
|
||||
jb .notletter
|
||||
cmp al, 'z'
|
||||
ja .notletter
|
||||
or byte [es:di], 20h
|
||||
.notletter:
|
||||
scasw
|
||||
loopz .1
|
||||
jb .look_child
|
||||
ja @f
|
||||
cmp byte [si], 0
|
||||
jz .file_found
|
||||
cmp byte [si], '/'
|
||||
jz .file_found
|
||||
@@:
|
||||
push es
|
||||
pop ds
|
||||
add bx, [bx+8]
|
||||
jmp .scan
|
||||
.look_child:
|
||||
push es
|
||||
pop ds
|
||||
test byte [bx+0Ch], 1
|
||||
jz .not_found
|
||||
mov si, [bp + index_alloc - dat]
|
||||
test si, si
|
||||
jz .not_found
|
||||
add bx, [bx+8]
|
||||
mov eax, [bx-8]
|
||||
mov es, [bp + cur_index_seg - dat]
|
||||
push si
|
||||
mov si, [bp + cur_index_cache - dat]
|
||||
call cache_lookup
|
||||
pop si
|
||||
pushf
|
||||
mov bx, di
|
||||
mov bh, 0
|
||||
shr bx, 3
|
||||
imul bx, dx
|
||||
add bx, [bp + frs_size - dat]
|
||||
popf
|
||||
jnc .noread
|
||||
push es
|
||||
push dx
|
||||
push ss
|
||||
pop ds
|
||||
movzx ecx, dx
|
||||
shr cx, 9
|
||||
mul [bp + sect_per_clust - dat]
|
||||
call read_attr
|
||||
pop dx
|
||||
pop es
|
||||
push es
|
||||
pop ds
|
||||
call restore_usa
|
||||
.noread:
|
||||
push es
|
||||
pop ds
|
||||
add bx, 18h
|
||||
jmp .scan_record
|
||||
.not_found:
|
||||
pop [bp + cur_obj - dat]
|
||||
mov si, error_not_found
|
||||
jmp find_error_si
|
||||
.file_found:
|
||||
pop [bp + cur_obj - dat]
|
||||
pop cx
|
||||
mov ax, [bp + index_root - dat]
|
||||
mov [bp + freeattr - dat], ax
|
||||
mov eax, [es:bx]
|
||||
test byte [es:bx+48h+3], 10h
|
||||
jz .regular_file
|
||||
cmp byte [si], 0
|
||||
jz ..directory_error
|
||||
inc si
|
||||
jmp .parse_dir_loop
|
||||
.regular_file:
|
||||
cmp byte [si], 0
|
||||
jnz ..notdir_error
|
||||
; read entry
|
||||
call read_file_record
|
||||
xor bx, bx
|
||||
mov ax, 80h
|
||||
call load_attr
|
||||
mov si, nodata_string
|
||||
jc find_error_si
|
||||
mov si, [bp + index_root - dat]
|
||||
mov [bp + freeattr - dat], si
|
||||
push ss
|
||||
pop ds
|
||||
jmp load_file_common_end
|
@ -1,20 +0,0 @@
|
||||
echo off
|
||||
cls
|
||||
echo ** bulding after win loader **
|
||||
@fasm -m 65535 after_win/kordldr.win.asm after_win/kordldr.win
|
||||
echo ==============================
|
||||
echo ** building first loader for cd/dvd **
|
||||
@fasm -m 65535 cdfs/bootsect.asm cdfs/bootsect.bin
|
||||
echo ==============================
|
||||
echo ** building first loader for fat12/fat16 **
|
||||
@fasm -m 65535 fat1x/bootsect.asm fat1x/bootsect.bin
|
||||
@fasm -m 65535 fat1x/kordldr.f1x.asm fat1x/kordldr.f1x
|
||||
echo ==============================
|
||||
echo ** building firs loader for fat32 **
|
||||
@fasm -m 65535 fat32/bootsect.asm fat32/bootsect.bin
|
||||
@fasm -m 65535 fat32/kordldr.f1x.asm fat32/kordldr.f1x
|
||||
echo ==============================
|
||||
echo ** make a image of fdd **
|
||||
@fasm -m 65535 floppy.asc kord.img
|
||||
|
||||
@pause
|
File diff suppressed because it is too large
Load Diff
@ -1,418 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
Sector not found. N. N.N.N. N.N.N.N.N.N.N. N.N. N.N.N.N.N.N.?
|
||||
|
||||
Бутсектор для загрузки с CD/DVD с файловой системой ISO-9660.
|
||||
(ISO-9660 и её расширения - стандарт для CD; DVD может использовать
|
||||
либо ISO-9660, либо UDF.)
|
||||
|
||||
=====================================================================
|
||||
|
||||
Требования для работы:
|
||||
1) Сам бутсектор и все используемые файлы должны быть читабельны.
|
||||
2) Минимальный процессор - 80386.
|
||||
3) В системе должно быть как минимум 452K свободной базовой памяти.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Документация в тему (ссылки проверялись на валидность 14.09.2008):
|
||||
стандарт ISO-9660: http://www.ecma-international.org/publications/files/ECMA-ST/Ecma-119.pdf
|
||||
стандарт загрузочного CD: http://www.phoenix.com/NR/rdonlyres/98D3219C-9CC9-4DF5-B496-A286D893E36A/0/specscdrom.pdf
|
||||
официальная спецификация расширения EDD BIOS 3.0: http://www.phoenix.com/NR/rdonlyres/19FEBD17-DB40-413C-A0B1-1F3F560E222F/0/specsedd30.pdf
|
||||
то же, версия 1.1: http://www.phoenix.com/NR/rdonlyres/9BEDED98-6B3F-4DAC-BBB7-FA89FA5C30F0/0/specsedd11.pdf
|
||||
описание функций BIOS: Interrupt List by Ralf Brown: http://www.cs.cmu.edu/~ralf/files.html
|
||||
официальная спецификация Boot BIOS: http://www.phoenix.com/NR/rdonlyres/56E38DE2-3E6F-4743-835F-B4A53726ABED/0/specsbbs101.pdf
|
||||
|
||||
=====================================================================
|
||||
|
||||
Схема используемой памяти:
|
||||
1000-1800 временный буфер для чтения одиночных секторов
|
||||
...-7C00 стек
|
||||
7C00-8400 код бутсектора
|
||||
8400-8A00 информация о кэше для папок: массив входов следующего
|
||||
формата:
|
||||
dw следующий элемент в L2-списке закэшированных папок,
|
||||
упорядоченном по времени использования
|
||||
(голова списка - самый старый);
|
||||
dw предыдущий элемент в том же списке;
|
||||
dd первый сектор папки;
|
||||
dw размер папки в байтах;
|
||||
dw сегмент кэша
|
||||
60000-... содержимое Path Table, если она используется
|
||||
+ кэш для папок;
|
||||
точный размер определяется размером доступной
|
||||
физической памяти - как правило, непосредственно
|
||||
перед A0000 размещается EBDA, Extended BIOS Data Area
|
||||
|
||||
=====================================================================
|
||||
|
||||
Основной процесс загрузки.
|
||||
Точка входа (start): получает управление от BIOS при загрузке, при этом
|
||||
dl содержит идентификатор диска, с которого идёт загрузка
|
||||
1. При передаче управления загрузочному коду в случае CD/DVD пара cs:ip
|
||||
равна не 0:7C00, а на 07C0:0000. Поэтому сначала загрузчик делает
|
||||
дальний прыжок на самого себя с целью получить cs=0 (в некоторых
|
||||
местах используется адресация переменных загрузчика через cs, поскольку
|
||||
и ds, и es могут быть заняты под другие сегменты).
|
||||
2. Настраивает стек ss:sp = 0:7C00 (непосредственно перед основным кодом)
|
||||
и сегментные регистры ds=es=0. Форсирует сброшенный флаг направления
|
||||
и разрешённые прерывания. Сохраняет идентификатор загрузочного диска
|
||||
в специальную переменную.
|
||||
3. Проверяет поддержку LBA. Для CD/DVD носителя BIOS обязана предоставлять
|
||||
LBA-функции.
|
||||
4. Ищет описатель тома CD (Primary Volume Descriptor, PVD): по стандарту
|
||||
ISO9660 со смещения 10h начинается цепочка описателей тома,
|
||||
завершающаяся специальным описателем (Volume Descriptor Set
|
||||
Terminator). Код по очереди считывает все сектора, пока не наткнётся
|
||||
либо на искомый описатель, либо на терминатор. Во втором случае
|
||||
выдаётся соответствующее сообщение, и загрузка прекращается.
|
||||
Вообще говоря, в случае мультисессионных CD основной каталог содержимого CD
|
||||
располагается в последней сессии. И спецификация ElTorito загрузочного
|
||||
CD оперирует также с последней сессией. Однако на практике оказывается,
|
||||
что: во-первых, реальные BIOSы не понимают мультисессионных CD и
|
||||
всегда используют первую сессию; во-вторых, BIOSовский int 13h просто
|
||||
не позволяет получить информацию о последней сессии. В связи с этим
|
||||
загрузчик также использует первую сессию. (В-третьих, в одной из BIOS
|
||||
обнаружилась заготовка, которая в случае запроса сектора 10h, в котором
|
||||
во всех нормальных случаях и располагается PVD, перенаправляет его
|
||||
на сектор 10h+(начало сессии). Если бы этот BIOS ещё и грузился с
|
||||
последней сессии, то благодаря заготовке загрузчик без всяких
|
||||
модификаций также читал бы последнюю сессию.)
|
||||
5. (метка pvd_found) Считывает из PVD некоторую информацию о томе во
|
||||
внутренние переменные: размер логического блока (согласно спецификации,
|
||||
должен быть степенью двойки от 512 до размера логического сектора,
|
||||
равного 2048 для CD и DVD); положение на диске корневой папки;
|
||||
вычисляет число блоков в секторе (из предыдущего примечания следует,
|
||||
что оно всегда целое и само является степенью двойки).
|
||||
6. Получает размер базовой памяти вызовом int 12h; на его основе вычисляет
|
||||
размер пространства, которое может использовать загрузчик (от
|
||||
адреса 6000:0000 до конца доступной памяти).
|
||||
7. Загружает таблицу путей CD (Path Table) - область данных, которая содержит
|
||||
базовую информацию обо всех папках на диске. Если таблица слишком
|
||||
велика (больше 62K или больше половины доступной памяти), то она
|
||||
игнорируется. Если таблица путей недоступна, то запрос типа
|
||||
dir1/dir2/dir3/file приведёт к последовательному разбору корневой
|
||||
папки и папок dir1,dir2,dir3; если доступна, то достаточно разобрать
|
||||
саму таблицу путей (где записано положение папки dir1/dir2/dir3)
|
||||
и папку dir3. Если таблица загружена, то соответственно уменьшается
|
||||
объём оставшейся доступной памяти и увеличивается указатель на
|
||||
свободную область.
|
||||
8. Запоминает общий размер и начало кэша для папок (вся оставшаяся после п.7
|
||||
доступная память отводится под этот кэш).
|
||||
9. Выдаёт запрос на чтение файла вторичного загрузчика kord/loader. При ошибке
|
||||
печатает соответствующее сообщение и прекращает загрузку с CD.
|
||||
10. Устанавливает регистры для вторичного загрузчика: al='c' идентифицирует
|
||||
тип устройства - CD/DVD; ah=BIOS-идентификатор диска; bx='is'
|
||||
идентифицирует файловую систему ISO-9660; ds:si указывает на
|
||||
callback-функцию, которую может вызывать вторичный загрузчик.
|
||||
11. Передаёт управление вторичному загрузчику, совершая дальний прыжок
|
||||
на адрес, куда kord/loader был загружен.
|
||||
|
||||
Функция обратного вызова для вторичного загрузчика (callback):
|
||||
предоставляет возможность чтения файла.
|
||||
Вход и выход описаны в спецификации на загрузчик.
|
||||
Перенаправляет запрос соответствующей локальной процедуре (load_file при
|
||||
первом запросе на загрузку файла, loadloop.loadnew при последующих
|
||||
запросах на продолжение загрузки файла).
|
||||
|
||||
Вспомогательные процедуры.
|
||||
Код обработки ошибок (err):
|
||||
1. Выводит строку с сообщением об ошибке.
|
||||
2. Выводит строку "Press any key...".
|
||||
3. Ждёт нажатия any key.
|
||||
4. Вызывает int 18h, давая шанс BIOSу попытаться загрузиться откуда-нибудь ещё.
|
||||
5. Для подстраховки зацикливается.
|
||||
|
||||
Процедура чтения секторов (read_sectors):
|
||||
на входе должно быть установлено:
|
||||
es:bx = указатель на начало буфера, куда будут прочитаны данные
|
||||
eax = стартовый сектор
|
||||
cx = число секторов
|
||||
на выходе:
|
||||
es:bx указывает на конец буфера, в который были прочитаны данные
|
||||
если произошла ошибка чтения, флаг CF установлен
|
||||
1. В цикле (шаги 2-4) читает секторы, следит за тем, чтобы на каждой итерации
|
||||
число читаемых секторов не превосходило 7Fh (требование спецификации
|
||||
EDD BIOS).
|
||||
2. Если число секторов для чтения больше 7Fh, уменьшает его (для текущей
|
||||
итерации) до 7Fh.
|
||||
3. Формирует в стеке пакет для int 13h (кладёт все нужные данные командами
|
||||
push, причём в обратном порядке: стек - структура LIFO, и данные в
|
||||
стеке хранятся в обратном порядке по отношению к тому, как их туда
|
||||
клали).
|
||||
4. Вызывает BIOS. Если BIOS рапортует об ошибке, очищает стек,
|
||||
устанавливает CF=1 и выходит из процедуры.
|
||||
Очищает стек от пакета, сформированного на предыдущем шаге.
|
||||
5. В соответствии с числом прочитанных на текущей итерации секторов
|
||||
корректирует текущий сектор, число оставшихся секторов и указатель на
|
||||
буфер (в паре es:bx корректируется es). Если всё прочитано, заканчивает
|
||||
работу, иначе возвращается на шаг 2.
|
||||
|
||||
Процедура вывода на экран ASCIIZ-строки (out_string):
|
||||
на входе: ds:si -> строка
|
||||
В цикле, пока не достигнут завершающий ноль, вызывает функцию int 10h/ah=0Eh.
|
||||
|
||||
Процедура загрузки файла (load_file):
|
||||
на входе:
|
||||
ds:di = указатель на информационную структуру, описанную в спецификации
|
||||
на загрузчик, а также в комментариях к коду
|
||||
на выходе:
|
||||
bx = статус: 0=успех, 1=файл слишком большой, прочитана только часть,
|
||||
2=файл не найден, 3=ошибка чтения
|
||||
dx:ax = размер файла, 0xFFFFFFFF, если файл не найден
|
||||
1. Если подготовительный код загрузил таблицу путей, то ищет папку в таблице,
|
||||
иначе переходит сразу к шагу 4, установив eax = начальный блок
|
||||
корневой папки.
|
||||
2. Устанавливает es:di на начало таблицы путей. Ограничение на размер
|
||||
гарантирует, что вся таблица помещается в сегменте 6000h.
|
||||
Инициализирует dx (в котором будет хранится номер текущего входа в
|
||||
таблице, считая с 1), cx (размер оставшегося участка таблицы),
|
||||
bx (номер входа, соответствующего родительской папке для текущего
|
||||
рассматриваемого участка пути).
|
||||
3. В цикле ищет вход с нужным родительским элементом и нужным именем. Элементы
|
||||
таблицы путей упорядочены (подробно о порядке написано в спецификации),
|
||||
так что если родительский элемент для очередного входа больше нужного,
|
||||
то нужного входа в таблице нет совсем, и в этом случае происходит
|
||||
выход из процедуры с bx=2, ax=dx=0xFFFF. Если обнаружился элемент,
|
||||
соответствующий очередной папке в запрошенном пути, то на рассмотрение
|
||||
выносится следующая компонента пути. Если эта компонента последняя,
|
||||
то осталось найти файл в папке, и код переходит к пункту 4,
|
||||
установив eax = начальный блок этой папки. Если же нет, то эта
|
||||
компонента должна задавать имя папки, и код возвращается к пункту 3,
|
||||
скорректировав указатель на имя ds:si и номер родительского входа bx.
|
||||
4. (parse_dir) На этом шаге заданы начальный логический блок папки в eax
|
||||
и указатель на имя файла относительно этой папки в ds:si. Если
|
||||
папку искали по таблице путей, то имя файла уже не содержит подпапок;
|
||||
если же нет, то подпапки вполне возможны.
|
||||
5. Файлы в ISO-9660 могут состоять из нескольких кусков (File Section), каждый
|
||||
из которых задаётся отдельным входом в папке. Информация обо всех
|
||||
таких кусках при просмотре папки запоминается в области, начинающейся
|
||||
с адреса 0000:2000. Переменная cur_desc_end содержит указатель на
|
||||
конец этой области, он же указатель, куда будет помещена информация
|
||||
при обнаружении следующего входа. (Папки, согласно спецификации,
|
||||
должны задаваться одним куском.)
|
||||
6. Код сначала ищет запрошенную папку в кэше папок.
|
||||
7. (parse_dir.found) Если папка уже есть в кэше, то она удаляется из списка,
|
||||
отсортированного по давности последнего обращения и код переходит к
|
||||
п.15. (Следующим действием станет добавление папки в конец списка.)
|
||||
8. (parse_dir.notfound) Если же папки нет в кэше, то её придётся загружать
|
||||
с диска. Сначала загружается первый сектор (физический сектор,
|
||||
содержащий первый логический блок). При ошибке ввода/вывода
|
||||
происходит немедленный выход из процедуры с bx=3, dx=ax=0xFFFF.
|
||||
Первый элемент папки содержит информацию о самой этой папке, конкретно
|
||||
загрузчик интересуется её размером.
|
||||
9. Если размер папки слишком большой (больше или равен 64K либо больше половины
|
||||
общего размера кэша), то кэшироваться она не будет. В этом случае код
|
||||
считывает папку посекторно во временный буфер (0000:1000) и посекторно
|
||||
сканирует на наличие запрошенного имени, пока не найдёт такого имени
|
||||
или пока не кончатся данные. (Цикл начинается со сканирования,
|
||||
поскольку первая часть данных уже прочитана.) В конце код переходит
|
||||
к п.17.
|
||||
10. (parse_dir.yescache) Если принято решение о кэшировании папки, то нужно
|
||||
обеспечить достаточное количество свободного места. Для этого может
|
||||
понадобиться выкинуть какое-то количество старых данных (цикл
|
||||
parse_dir.freeloop). Но если просто выкидывать, то, вообще говоря,
|
||||
свободное пространство окажется разорванным на несколько фрагментов.
|
||||
Поэтому при выкидывании какой-то папки из кэша загрузчик перемещает
|
||||
все следующие за ней данные назад по памяти и соответственно
|
||||
корректирует информацию о местонахождении данных в информации о кэше.
|
||||
При этом новое пространство всегда добавляется в конец доступной
|
||||
памяти. Цикл выкидывания продолжается, пока не освободится место,
|
||||
достаточное для хранения папки. Из-за ограничений на размер кэшируемых
|
||||
папок в конце концов место найдётся.
|
||||
11. Выделяется новый элемент кэша. Все удалённые на шаге 10 элементы
|
||||
организуются в единый список свободных элементов; если он непуст,
|
||||
то очередной элемент берётся из этого списка; если же пуст, то
|
||||
берётся совсем новый элемент из области памяти, предназначенной для
|
||||
элементов кэша.
|
||||
12. В новом элементе заполняются поля начального блока, сегмента с данными,
|
||||
размера в байтах.
|
||||
13. Уже прочитанные данные первого физического сектора пересылаются на
|
||||
законное место в кэше.
|
||||
14. Если все данные не исчерпываются первым сектором, то догружаются оставшиеся
|
||||
данные с диска. При ошибке чтения, как и раньше, происходит выход из
|
||||
процедуры с bx=3, ax=dx=0xFFFF.
|
||||
15. (parse_dir.scan) Новый элемент добавляется в конец списка всех элементов
|
||||
кэша.
|
||||
16. Загрузчик ищет запрошенное имя в загруженных данных папки.
|
||||
(Из-за ограничений на размер кэшируемой папки все данные располагаются
|
||||
в одном сегменте.)
|
||||
17. (parse_dir.scandone) Если в процессе сканирования папки не было найдено
|
||||
никаких кусков файла, то cur_desc_end такой же, каким был вначале.
|
||||
В этом случае процедура рапортует о ненайденном файле и выходит.
|
||||
18. (filefound) Пропускает текущую компоненту имени. Если она была не последней
|
||||
(то есть подпапкой, в которой нужно производить дальнейший поиск),
|
||||
то код проверяет, что найденный вход - действительно подпапка,
|
||||
устанавливает новый стартовый блок и возвращается к п.4.
|
||||
Если же последней, то код проверяет, что найденный вход - регулярный
|
||||
файл и начинает загрузку файла.
|
||||
19. Нормализует указатель, по которому требуется прочитать файл. Под
|
||||
нормализацией понимается преобразование типа
|
||||
1234:FC08 -> (1234+0FC0):0008, которое не меняет суммарного адреса,
|
||||
но гарантирует отсутствие переполнений: в приведённом примере попытка
|
||||
переслать 400h байт по rep movsb приведёт к тому, что последние 8
|
||||
байт запишутся не в нужное место, а на 64K раньше. Далее нормализация
|
||||
будет производиться после каждой пересылки. В cur_limit помещает
|
||||
предельный размер для чтения в байтах.
|
||||
20. (loadloop) В цикле по найденным фрагментам файла загружает эти фрагменты
|
||||
(пункты 21-27).
|
||||
21. Обнуляет переменную [cur_start], имеющую смысл числа байт, которое
|
||||
нужно пропустить с начала фрагмента.
|
||||
22. (loadloop.loadnew) На эту метку управление может попасть либо с предыдущего
|
||||
шага, либо напрямую из callback-процедуры при запросе на продолжение
|
||||
чтения. Для этого и нужна вышеупомянутая переменная [cur_start] -
|
||||
при продолжении чтения, прервавшегося из-за конца буфера посередине
|
||||
фрагмента, там будет записано соответствующее значение.
|
||||
23. Определяет текущую длину (хранится в esi) как минимум из длины фрагмента
|
||||
и максимальной длины остатка. Если второе строго меньше, то
|
||||
запоминает, что файл слишком большой и прочитан только частично.
|
||||
Определяет новое значение числа прочитанных байт во фрагменте
|
||||
для возможных будущих вызовов [cur_start].
|
||||
24. Переводит пропускаемое число байт в число логических блоков и байт
|
||||
в первом блоке, последнее число записывает в переменную [first_byte],
|
||||
откуда её позднее достанет read_many_bytes.with_first.
|
||||
25. Если фрагмент записан в обычном режиме (non-interleaved mode), то код
|
||||
определяет начальный блок фрагмента и вызывает вспомогательную функцию
|
||||
чтения блоков. При ошибке чтения устанавливает bx=3 (код ошибки чтения)
|
||||
и выходит из цикла к п.28.
|
||||
26. Если фрагмент записан в чередуемом режиме (interleaved mode), то сначала
|
||||
код пропускает нужное количество непрерывных частей, а потом
|
||||
в цикле загружает непрерывные части с помощью той же функции,
|
||||
в промежутках между частями увеличивая номер начального блока.
|
||||
Пока не кончится фрагмент или пока не наберётся запрошенное число байт.
|
||||
При ошибке чтения делает то же самое, что и в предыдущем случае.
|
||||
27. (loadloop.loadcontinue) Если фрагменты ещё не кончились и предельный размер
|
||||
ещё не достигнут, переходит к следующему фрагменту и п.20. В противном
|
||||
случае устанавливает bx=0 либо bx=1 в зависимости от того, было ли
|
||||
переполнение в п.23.
|
||||
28. (loadloop.calclen) Подсчитывает общую длину файла, суммируя длины всех
|
||||
фрагментов.
|
||||
|
||||
Процедура проверки, является ли текущая компонента имени файла последней
|
||||
(is_last_component):
|
||||
на входе: ds:si = указатель на имя
|
||||
на выходе: флаг CF установлен, если есть последующие компоненты
|
||||
В цикле загружает символы имени в поисках нулевого и '/'; если нашёлся первый,
|
||||
то выходит (при этом CF=0); если нашёлся второй, то устанавливает CF
|
||||
и выходит.
|
||||
|
||||
Процедуры проверки на совпадение текущей компоненты имени файла с именем
|
||||
текущего элемента (test_filename1 для таблицы путей, test_filename2 для папки):
|
||||
на входе: ds:si = указатель на имя, es:di = указатель на элемент
|
||||
таблицы путей для test_filename1, папки для test_filename2
|
||||
на выходе: CF установлен, если имена не совпадают
|
||||
В цикле проверяет совпадение приведённых к верхнему регистру очередных символов
|
||||
имён файла и элемента. Условия выхода из цикла: закончилось имя файла
|
||||
в ds:si (то есть, очередной символ - нулевой либо '/') - совпадение
|
||||
возможно только в ситуации типа имени "filename.ext" и элемента
|
||||
"filename.ext;1" (в ISO9660 ";1" - версия файла, элементы с одинаковыми
|
||||
именами в папке отсортированы по убыванию версий);
|
||||
несовпадение символов - означает, что имена не совпадают;
|
||||
закончилось имя элемента - нужно проверить, закончилось ли при этом имя
|
||||
файла, и в зависимости от этого принимать решение о совпадении.
|
||||
|
||||
Процедура приведения символа в верхний регистр (toupper):
|
||||
на входе: ASCII-символ
|
||||
на выходе: тот же символ в верхнем регистре (он сам, если понятие регистра к
|
||||
нему неприменимо)
|
||||
Из символов в диапазоне 'a' - 'z' включительно вычитает константу 'a'-'A',
|
||||
остальные символы не трогает.
|
||||
|
||||
Процедура поиска файла в данных папки (scan_for_filename_in_sector):
|
||||
на входе:
|
||||
ds:si = указатель на имя файла
|
||||
es:bx = указатель на начало данных папки
|
||||
es:dx = указатель на конец данных папки
|
||||
на выходе:
|
||||
CF сброшен, если найден финальный фрагмент файла
|
||||
(и дальше сканировать папку не нужно)
|
||||
в область для информации о фрагментах файла записывается найденное
|
||||
В цикле просматривает все входы папки, пропуская те, у которых установлен
|
||||
бит Associated (это специальные входы, дополняющие основные). Если
|
||||
имя очередного входа совпадает с именем файла, то запоминает новый
|
||||
фрагмент. Если фрагмент финальный (не установлен бит Multi-Extent),
|
||||
то код выходит с CF=0. Если достигнут конец данных, то код выходит
|
||||
с CF=1. Если очередной вход нулевой (первый байт настоящего входа
|
||||
содержит длину и не может быть нулём), то процедура переходит к
|
||||
рассмотрению следующего логического блока. При этом потенциально
|
||||
возможно переполнение при добавлении размера блока; поскольку такой
|
||||
сценарий означает, что процедура вызвана для кэшированной папки
|
||||
с размером почти 64K и началом данных bx=0 (это свойство вызывающего
|
||||
кода), а размер блока - степень двойки, то после переполнения всегда
|
||||
bx=0, так что это можно обнаружить по взведённому ZF после сложения;
|
||||
в этом случае также происходит выход (а после переполнения CF=1).
|
||||
|
||||
Процедура перевода логического блока в номер сектора:
|
||||
на входе: eax = логический блок
|
||||
на выходе: eax = физический сектор, dx = номер логического блока в секторе
|
||||
Осуществляет обычное деление 32-битного числа на 32-битное (число логических
|
||||
блоков в секторе, хранящееся во внутренней переменной).
|
||||
|
||||
Процедура загрузки физического сектора, содержащего указанный логический блок
|
||||
(load_phys_sector_for_lb_force):
|
||||
на входе: eax = логический блок;
|
||||
si - индикатор, задающий, следует ли читать данные в случае,
|
||||
если логический блок начинается с начала физического:
|
||||
si = 0 - не нужно, si ненулевой - нужно
|
||||
на выходе:
|
||||
физический сектор загружен по адресу 0000:1000
|
||||
si указывает на данные логического блока
|
||||
CF установлен при ошибке чтения
|
||||
Преобразует предыдущей процедурой номер логического блока в номер физического
|
||||
сектора и номер логического блока внутри сектора; если последняя
|
||||
величина нулевая и никаких действий в этом случае не запрошено (si=0),
|
||||
то ничего и не делает; иначе устанавливает si в соответствии с ней
|
||||
и читает сектор.
|
||||
|
||||
Процедуры чтения нужного числа байт из непрерывной цепочки логических блоков
|
||||
(read_many_bytes и read_many_bytes.with_first):
|
||||
на входе:
|
||||
eax = логический блок
|
||||
esi = число байт для чтения
|
||||
es:bx = указатель на начало буфера, куда будут прочитаны данные
|
||||
cur_limit = размер буфера (не меньше esi)
|
||||
на выходе:
|
||||
es:bx указывает на конец буфера, в который были прочитаны данные
|
||||
если произошла ошибка чтения, флаг CF установлен
|
||||
cur_limit соответствующим образом уменьшен
|
||||
Отличие двух процедур: вторая дополнительно принимает во внимание переменную
|
||||
[first_byte], начиная чтение первого блока со смещения [first_byte];
|
||||
соответственно, первая читает блок с начала, обнуляя [first_byte]
|
||||
при входе.
|
||||
1. Отдельно считывает первый физический сектор во временную область 0000:1000,
|
||||
если первый логический блок начинается не с начала сектора. При
|
||||
ошибке чтения выходит из процедуры.
|
||||
2. Пересылает нужную часть данных (возможно, 0 байт), прочитанных в п.1,
|
||||
в буфер. Нормализует указатель на буфер.
|
||||
3. Если все необходимые данные уже прочитаны, выходит из процедуры.
|
||||
4. Дальнейшие данные находятся в нескольких физических секторах, при этом,
|
||||
возможно, последний сектор считывать нужно не целиком.
|
||||
5. Если в буфере есть место для считывания всех секторов, то сразу читаются
|
||||
все сектора, после чего указатель на буфер нужным образом уменьшается.
|
||||
6. Если же нет, то считываются все сектора, кроме последнего, после чего
|
||||
последний сектор считывается отдельно во временную область, и уже
|
||||
оттуда нужная часть данных копируется в буфер.
|
@ -1,2 +0,0 @@
|
||||
@fasm -m 65535 bootsect.asm bootsect.bin
|
||||
@pause
|
@ -1,392 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
use_lba = 0
|
||||
org 0x7C00
|
||||
jmp start
|
||||
nop
|
||||
; FAT parameters, BPB
|
||||
; note: they can be changed at install, replaced with real values
|
||||
; these settings are for most typical 1.44M floppies
|
||||
db 'KOLIBRI ' ; BS_OEMName, ignored
|
||||
dw 200h ; BPB_BytsPerSec
|
||||
BPB_SecsPerClus db 1
|
||||
BPB_RsvdSecCnt dw 1
|
||||
BPB_NumFATs db 2
|
||||
BPB_RootEntCnt dw 0xE0
|
||||
dw 2880 ; BPB_TotSec16
|
||||
db 0xF0 ; BPB_Media
|
||||
BPB_FATSz16 dw 9
|
||||
BPB_SecPerTrk dw 18
|
||||
BPB_NumHeads dw 2
|
||||
BPB_HiddSec dd 0
|
||||
dd 0 ; BPB_TotSec32
|
||||
BS_DrvNum db 0
|
||||
db 0 ; BS_Reserved1
|
||||
db ')' ; BS_BootSig
|
||||
dd 12344321h ; BS_VolID
|
||||
filename:
|
||||
db 'KORD.OS ' ; BS_VolLab
|
||||
db 'FAT12 ' ; BS_FilSysType
|
||||
; Used memory map:
|
||||
; 8000:0000 - current directory
|
||||
; 9000:0000 - root directory data [cached]
|
||||
start:
|
||||
xor ax, ax
|
||||
mov ss, ax
|
||||
mov sp, 0x7C00
|
||||
mov ds, ax
|
||||
mov bp, sp
|
||||
cld
|
||||
sti
|
||||
mov [bp+BS_DrvNum-0x7C00], dl
|
||||
if use_lba
|
||||
mov ah, 41h
|
||||
mov bx, 55AAh
|
||||
int 13h
|
||||
mov si, aNoLBA
|
||||
jc err_
|
||||
cmp bx, 0AA55h
|
||||
jnz err_
|
||||
test cx, 1
|
||||
jz err_
|
||||
else
|
||||
mov ah, 8
|
||||
int 13h
|
||||
jc @f ; on error, assume that BPB geometry is valid
|
||||
mov al, dh
|
||||
mov ah, 0
|
||||
inc ax
|
||||
mov [bp+BPB_NumHeads-0x7C00], ax
|
||||
and cx, 3Fh
|
||||
mov [bp+BPB_SecPerTrk-0x7C00], cx
|
||||
@@:
|
||||
end if
|
||||
; get FAT parameters
|
||||
xor bx, bx
|
||||
mov al, [bp+BPB_NumFATs-0x7C00]
|
||||
mov ah, 0
|
||||
mul [bp+BPB_FATSz16-0x7C00]
|
||||
add ax, [bp+BPB_RsvdSecCnt-0x7C00]
|
||||
adc dx, bx
|
||||
push dx
|
||||
push ax ; root directory start = dword [bp-4]
|
||||
mov cx, [bp+BPB_RootEntCnt-0x7C00]
|
||||
add cx, 0xF
|
||||
rcr cx, 1
|
||||
shr cx, 3 ; cx = size of root directory in sectors
|
||||
add ax, cx
|
||||
adc dx, bx
|
||||
push dx
|
||||
push ax ; data start = dword [bp-8]
|
||||
; load start of root directory (no more than 0x2000 bytes = 0x10 sectors)
|
||||
cmp cx, 0x10
|
||||
jb @f
|
||||
mov cx, 0x10
|
||||
@@:
|
||||
mov ax, [bp-4]
|
||||
mov dx, [bp-2]
|
||||
push 0x9000
|
||||
pop es
|
||||
call read_sectors
|
||||
add word [bp-4], cx ; dword [bp-4] = start of non-cached root data
|
||||
adc word [bp-2], bx
|
||||
; load kordldr.f12
|
||||
mov si, main_loader
|
||||
call lookup_in_root_dir
|
||||
jc noloader
|
||||
test byte [es:di+11], 10h ; directory?
|
||||
jz kordldr_ok
|
||||
noloader:
|
||||
mov si, aLoaderNotFound
|
||||
err_:
|
||||
call out_string
|
||||
mov si, aPressAnyKey
|
||||
call out_string
|
||||
xor ax, ax
|
||||
int 16h
|
||||
int 18h
|
||||
jmp $
|
||||
kordldr_ok:
|
||||
mov ax, [es:di+26] ; get file cluster
|
||||
mov bx, 0x7E00
|
||||
xor cx, cx
|
||||
mov es, cx
|
||||
sub ax, 2
|
||||
jc noloader
|
||||
push bx ; save return address: bx = 7E00
|
||||
mov cl, [bp+BPB_SecsPerClus-0x7C00]
|
||||
mul cx
|
||||
; fall through - 'ret' in read_sectors will return to 7E00
|
||||
|
||||
read_sectors2:
|
||||
; same as read_sectors, but dx:ax is relative to start of data
|
||||
add ax, [bp-8]
|
||||
adc dx, [bp-6]
|
||||
read_sectors:
|
||||
; ss:bp = 0:7C00
|
||||
; es:bx = pointer to data
|
||||
; dx:ax = first sector
|
||||
; cx = number of sectors
|
||||
pusha
|
||||
add ax, word [bp+BPB_HiddSec-0x7C00]
|
||||
adc dx, word [bp+BPB_HiddSec+2-0x7C00]
|
||||
if use_lba
|
||||
push ds
|
||||
do_read_sectors:
|
||||
push ax
|
||||
push cx
|
||||
push dx
|
||||
cmp cx, 0x7F
|
||||
jbe @f
|
||||
mov cx, 0x7F
|
||||
@@:
|
||||
; create disk address packet on the stack
|
||||
; dq starting LBA
|
||||
push 0
|
||||
push 0
|
||||
push dx
|
||||
push ax
|
||||
; dd buffer
|
||||
push es
|
||||
push bx
|
||||
; dw number of blocks to transfer (no more than 0x7F)
|
||||
push cx
|
||||
; dw packet size in bytes
|
||||
push 10h
|
||||
; issue BIOS call
|
||||
push ss
|
||||
pop ds
|
||||
mov si, sp
|
||||
mov dl, [bp+BS_DrvNum-0x7C00]
|
||||
mov ah, 42h
|
||||
int 13h
|
||||
mov si, aReadError
|
||||
jc err_
|
||||
; restore stack
|
||||
add sp, 10h
|
||||
; increase current sector & buffer; decrease number of sectors
|
||||
mov si, cx
|
||||
mov ax, es
|
||||
shl cx, 5
|
||||
add ax, cx
|
||||
mov es, ax
|
||||
pop dx
|
||||
pop cx
|
||||
pop ax
|
||||
add ax, si
|
||||
adc dx, 0
|
||||
sub cx, si
|
||||
jnz do_read_sectors
|
||||
pop ds
|
||||
popa
|
||||
ret
|
||||
else
|
||||
do_read_sectors:
|
||||
pusha
|
||||
pop di
|
||||
push bx
|
||||
|
||||
; (dword in dx:ax) / (SectorsPerTrack) -> (dword in dx:ax), remainder bx
|
||||
mov si, ax
|
||||
xchg ax, dx
|
||||
xor dx, dx
|
||||
div [bp+BPB_SecPerTrk-0x7C00]
|
||||
push ax
|
||||
mov ax, si
|
||||
div [bp+BPB_SecPerTrk-0x7C00]
|
||||
mov bx, dx ; bx=sector-1
|
||||
pop dx
|
||||
|
||||
; (dword in dx:ax) / (NumHeads) -> (word in ax), remainder dx
|
||||
div [bp+BPB_NumHeads-0x7C00]
|
||||
|
||||
; number of sectors: read no more than to end of track
|
||||
push bx
|
||||
sub bx, [bp+BPB_SecPerTrk-0x7C00]
|
||||
neg bx
|
||||
cmp cx, bx
|
||||
jbe @f
|
||||
mov cx, bx
|
||||
@@:
|
||||
pop bx
|
||||
|
||||
inc bx
|
||||
; now ax=track, dl=head, dh=0, cl=number of sectors, ch=0, bl=sector; convert to int13 format
|
||||
mov di, cx
|
||||
mov dh, dl
|
||||
mov dl, [bp+BS_DrvNum-0x7C00]
|
||||
shl ah, 6
|
||||
mov ch, al
|
||||
mov al, cl
|
||||
mov cl, bl
|
||||
or cl, ah
|
||||
pop bx
|
||||
mov si, 3
|
||||
mov ah, 2
|
||||
@@:
|
||||
push ax
|
||||
int 13h
|
||||
jnc @f
|
||||
xor ax, ax
|
||||
int 13h ; reset drive
|
||||
pop ax
|
||||
dec si
|
||||
jnz @b
|
||||
mov si, aReadError
|
||||
jmp err_
|
||||
@@:
|
||||
pop ax
|
||||
mov ax, es
|
||||
mov cx, di
|
||||
shl cx, 5
|
||||
add ax, cx
|
||||
mov es, ax
|
||||
push di
|
||||
popa
|
||||
add ax, di
|
||||
adc dx, 0
|
||||
sub cx, di
|
||||
jnz do_read_sectors
|
||||
popa
|
||||
ret
|
||||
end if
|
||||
|
||||
scan_for_filename:
|
||||
; in: ds:si -> 11-bytes FAT name
|
||||
; in: es:0 -> part of directory data
|
||||
; in: cx = number of entries
|
||||
; out: if found: CF=0, ZF=1, es:di -> directory entry
|
||||
; out: if not found, but continue required: CF=1 and ZF=0
|
||||
; out: if not found and zero item reached: CF=1 and ZF=1
|
||||
xor di, di
|
||||
push cx
|
||||
sloop:
|
||||
cmp byte [es:di], 0
|
||||
jz snotfound
|
||||
test byte [es:di+11], 8 ; volume label?
|
||||
jnz scont ; ignore volume labels
|
||||
pusha
|
||||
mov cx, 11
|
||||
repz cmpsb
|
||||
popa
|
||||
jz sdone
|
||||
scont:
|
||||
add di, 0x20
|
||||
loop sloop
|
||||
inc cx ; clear ZF flag
|
||||
snotfound:
|
||||
stc
|
||||
sdone:
|
||||
pop cx
|
||||
lrdret:
|
||||
ret
|
||||
|
||||
lookup_in_root_dir:
|
||||
; ss:bp = 0:7C00
|
||||
; in: ds:si -> 11-bytes FAT name
|
||||
; out: if found: CF=0, es:di -> directory entry
|
||||
; out: if not found: CF=1
|
||||
mov cx, [bp+BPB_RootEntCnt-0x7C00]
|
||||
push cx
|
||||
; first, look in root directory cache
|
||||
push 0x9000
|
||||
pop es
|
||||
test ch, ch
|
||||
jz @f
|
||||
mov cx, 0x100
|
||||
@@:
|
||||
mov ax, [bp-4]
|
||||
mov dx, [bp-2] ; dx:ax = starting sector of not cached data of root directory
|
||||
lrdloop:
|
||||
call scan_for_filename
|
||||
pop bx
|
||||
jz lrdret
|
||||
sub bx, cx
|
||||
mov cx, bx
|
||||
stc
|
||||
jz lrdret
|
||||
; read no more than 0x10000 bytes, or 0x10000/0x20 = 0x800 entries
|
||||
push cx
|
||||
cmp ch, 0x8
|
||||
jb @f
|
||||
mov cx, 0x800
|
||||
@@:
|
||||
push 0x8000
|
||||
pop es
|
||||
push cx
|
||||
push es
|
||||
xor bx, bx
|
||||
add cx, 0xF
|
||||
shr cx, 4
|
||||
call read_sectors
|
||||
pop es
|
||||
add ax, cx
|
||||
adc dx, bx
|
||||
pop cx
|
||||
jmp lrdloop
|
||||
|
||||
out_string:
|
||||
; in: ds:si -> ASCIIZ string
|
||||
lodsb
|
||||
test al, al
|
||||
jz lrdret
|
||||
mov ah, 0Eh
|
||||
mov bx, 7
|
||||
int 10h
|
||||
jmp out_string
|
||||
|
||||
aReadError db 'Read error',0
|
||||
if use_lba
|
||||
aNoLBA db 'The drive does not support LBA!',0
|
||||
end if
|
||||
aLoaderNotFound db 'Loader not found',0
|
||||
aPressAnyKey db 13,10,'Press any key...',13,10,0
|
||||
main_loader db 'KORDLDR F1X'
|
||||
|
||||
if use_lba
|
||||
db 0 ; make bootsector 512 bytes in length
|
||||
end if
|
||||
|
||||
; bootsector signature
|
||||
dw 0xAA55
|
||||
|
||||
; display offsets of all procedures used by kordldr.f12.asm
|
||||
macro show [procedure]
|
||||
{
|
||||
bits = 16
|
||||
display `procedure,' = '
|
||||
repeat bits/4
|
||||
d = '0' + procedure shr (bits - %*4) and 0Fh
|
||||
if d > '9'
|
||||
d = d + 'A'-'9'-1
|
||||
end if
|
||||
display d
|
||||
end repeat
|
||||
display 13,10
|
||||
}
|
||||
|
||||
show read_sectors, read_sectors2, lookup_in_root_dir, scan_for_filename, err_, noloader
|
@ -1,360 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
Встречаются вирус и FAT.
|
||||
- Привет, ты кто?
|
||||
- Я? Вирус.
|
||||
- A я AFT, то есть TAF, то есть FTA, черт, совсем запутался...
|
||||
|
||||
Бутсектор для FAT12/FAT16-тома на носителе с размером сектора 0x200 = 512 байт.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Есть две версии в зависимости от того, поддерживает ли носитель LBA,
|
||||
выбор осуществляется установкой константы use_lba в первой строке исходника.
|
||||
Требования для работы:
|
||||
1) Сам бутсектор, первая копия FAT и все используемые файлы
|
||||
должны быть читабельны.
|
||||
2) Минимальный процессор - 80186.
|
||||
3) В системе должно быть как минимум 592K свободной базовой памяти.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Документация в тему (ссылки валидны на момент написания этого файла, 15.05.2008):
|
||||
официальная спецификация FAT: http://www.microsoft.com/whdc/system/platform/firmware/fatgen.mspx
|
||||
в формате PDF: http://staff.washington.edu/dittrich/misc/fatgen103.pdf
|
||||
русский перевод: http://wasm.ru/docs/11/fatgen103-rus.zip
|
||||
официальная спецификация расширения EDD BIOS 3.0: http://www.phoenix.com/NR/rdonlyres/19FEBD17-DB40-413C-A0B1-1F3F560E222F/0/specsedd30.pdf
|
||||
то же, версия 1.1: http://www.phoenix.com/NR/rdonlyres/9BEDED98-6B3F-4DAC-BBB7-FA89FA5C30F0/0/specsedd11.pdf
|
||||
описание функций BIOS: Interrupt List by Ralf Brown: http://www.cs.cmu.edu/~ralf/files.html
|
||||
официальная спецификация Boot BIOS: http://www.phoenix.com/NR/rdonlyres/56E38DE2-3E6F-4743-835F-B4A53726ABED/0/specsbbs101.pdf
|
||||
|
||||
=====================================================================
|
||||
|
||||
Максимальное количество кластеров на FAT12-томе - 0xFF4 = 4084; каждый кластер
|
||||
занимает 12 бит в таблице FAT, так что общий размер не превосходит
|
||||
0x17EE = 6126 байт. Вся таблица помещается в памяти.
|
||||
Максимальное количество кластеров на FAT16-томе - 0xFFF4 = 65524; каждый
|
||||
кластер занимает 16 бит в таблице FAT, так что общий размер не превосходит
|
||||
0x1FFE8 = 131048 байт. Вся таблица также помещается в памяти, однако в
|
||||
этом случае несколько нецелесообразно считывать всю таблицу, поскольку
|
||||
на практике нужна только небольшая её часть. Поэтому место в памяти
|
||||
резервируется, но данные считываются только в момент, когда к ним
|
||||
действительно идёт обращение.
|
||||
|
||||
Схема используемой памяти:
|
||||
...-7C00 стек
|
||||
7C00-7E00 код бутсектора
|
||||
7E00-8200 вспомогательный файл загрузчика (kordldr.f1x)
|
||||
8200-8300 список загруженных секторов таблицы FAT16
|
||||
(1 = соответствующий сектор загружен)
|
||||
60000-80000 загруженная таблица FAT12 / место для таблицы FAT16
|
||||
80000-90000 текущий кластер текущей рассматриваемой папки
|
||||
90000-92000 кэш для корневой папки
|
||||
92000-... кэш для некорневых папок (каждой папке отводится
|
||||
2000h байт = 100h входов, одновременно в кэше
|
||||
может находиться не более 7 папок;
|
||||
точный размер определяется размером доступной
|
||||
физической памяти - как правило, непосредственно
|
||||
перед A0000 размещается EBDA, Extended BIOS Data Area)
|
||||
|
||||
=====================================================================
|
||||
|
||||
Основной процесс загрузки.
|
||||
Точка входа (start): получает управление от BIOS при загрузке, при этом
|
||||
dl содержит идентификатор диска, с которого идёт загрузка
|
||||
1. Настраивает стек ss:sp = 0:7C00 (стек располагается непосредственно перед
|
||||
кодом), сегмент данных ds = 0, и устанавливает ss:bp на начало
|
||||
бутсектора (в дальнейшем данные будут адресоваться через [bp+N] -
|
||||
это освобождает ds и экономит на размере кода).
|
||||
2. LBA-версия: проверяет, поддерживает ли носитель LBA, вызовом функции 41h
|
||||
прерывания 13h. Если нет, переходит на код обработки ошибок с
|
||||
сообщением об отсутствии LBA.
|
||||
CHS-версия: определяет геометрию носителя вызовом функции 8 прерывания 13h и
|
||||
записывает полученные данные поверх BPB. Если вызов завершился ошибкой,
|
||||
предполагает уже существующие данные корректными.
|
||||
3. Вычисляет некоторые параметры FAT-тома: начальный сектор корневой папки
|
||||
и начальный сектор данных. Кладёт их в стек; впоследствии они
|
||||
всегда будут лежать в стеке и адресоваться через bp.
|
||||
4. Считывает начало корневой папки по адресу 9000:0000. Число считываемых
|
||||
секторов - минимум из размера корневой папки, указанного в BPB, и 16
|
||||
(размер кэша для корневой папки - 2000h байт = 16 секторов).
|
||||
5. Ищет в корневой папке элемент kordldr.f1x. Если не находит, или если
|
||||
он оказывается папкой, или если файл имеет нулевую длину -
|
||||
переходит на код обработки ошибок с сообщением о
|
||||
ненайденном загрузчике.
|
||||
Замечание: на этом этапе загрузки искать можно только в корневой
|
||||
папке и только имена, заданные в формате файловой системе FAT
|
||||
(8+3 - 8 байт на имя, 3 байта на расширение, все буквы должны
|
||||
быть заглавными, при необходимости имя и расширение дополняются
|
||||
пробелами, разделяющей точки нет, завершающего нуля нет).
|
||||
6. Загружает первый кластер файла kordldr.f1x по адресу 0:7E00 и передаёт
|
||||
ему управление. При этом в регистрах dx:ax оказывается абсолютный
|
||||
номер первого сектора kordldr.f1x, а в cx - число считанных секторов
|
||||
(равное размеру кластера).
|
||||
|
||||
Вспомогательные процедуры бутсектора.
|
||||
Код обработки ошибок (err):
|
||||
1. Выводит строку с сообщением об ошибке.
|
||||
2. Выводит строку "Press any key...".
|
||||
3. Ждёт нажатия any key.
|
||||
4. Вызывает int 18h, давая шанс BIOSу попытаться загрузиться откуда-нибудь ещё.
|
||||
5. Для подстраховки зацикливается.
|
||||
|
||||
Процедура чтения секторов (read_sectors и read_sectors2):
|
||||
на входе должно быть установлено:
|
||||
ss:bp = 0:7C00
|
||||
es:bx = указатель на начало буфера, куда будут прочитаны данные
|
||||
dx:ax = стартовый сектор (относительно начала логического диска
|
||||
для read_sectors, относительно начала данных для read_sectors2)
|
||||
cx = число секторов (должно быть больше нуля)
|
||||
на выходе: es:bx указывает на конец буфера, в который были прочитаны данные
|
||||
0. Если вызывается read_sectors2, она переводит указанный ей номер сектора
|
||||
в номер относительно начала логического диска, прибавляя номер сектора
|
||||
начала данных, хранящийся в стеке как [bp-8].
|
||||
1. Переводит стартовый сектор (отсчитываемый от начала тома) в сектор на
|
||||
устройстве, прибавляя значение соответствующего поля из BPB.
|
||||
2. В цикле (шаги 3-6) читает секторы, следит за тем, чтобы на каждой итерации
|
||||
CHS-версия: все читаемые секторы были на одной дорожке.
|
||||
LBA-версия: число читаемых секторов не превосходило 7Fh (требование
|
||||
спецификации EDD BIOS).
|
||||
CHS-версия:
|
||||
3. Переводит абсолютный номер сектора в CHS-систему: сектор рассчитывается как
|
||||
единица плюс остаток от деления абсолютного номера на число секторов
|
||||
на дорожке; дорожка рассчитывается как остаток от деления частного,
|
||||
полученного на предыдущем шаге, на число дорожек, а цилиндр - как
|
||||
частное от этого же деления. Если число секторов для чтения больше,
|
||||
чем число секторов до конца дорожки, уменьшает число секторов для
|
||||
чтения.
|
||||
4. Формирует данные для вызова int 13h (ah=2 - чтение, al=число секторов,
|
||||
dh=головка, (младшие 6 бит cl)=сектор,
|
||||
(старшие 2 бита cl и весь ch)=дорожка, dl=диск, es:bx->буфер).
|
||||
5. Вызывает BIOS. Если BIOS рапортует об ошибке, выполняет сброс диска
|
||||
и повторяет попытку чтения, всего делается не более трёх попыток
|
||||
(несколько попыток нужно в случае дискеты для гарантии того, что
|
||||
мотор раскрутился). Если все три раза происходит ошибка чтения,
|
||||
переходит на код обработки ошибок с сообщением "Read error".
|
||||
6. В соответствии с числом прочитанных на текущей итерации секторов
|
||||
корректирует текущий сектор, число оставшихся секторов и указатель на
|
||||
буфер (в паре es:bx корректируется es). Если всё прочитано, заканчивает
|
||||
работу, иначе возвращается на шаг 3.
|
||||
LBA-версия:
|
||||
3. Если число секторов для чтения больше 7Fh, уменьшает его (для текущей
|
||||
итерации) до 7Fh.
|
||||
4. Формирует в стеке пакет для int 13h (кладёт все нужные данные командами
|
||||
push, причём в обратном порядке: стек - структура LIFO, и данные в
|
||||
стеке хранятся в обратном порядке по отношению к тому, как их туда
|
||||
клали).
|
||||
5. Вызывает BIOS. Если BIOS рапортует об ошибке, переходит на код обработки
|
||||
ошибок с сообщением "Read error". Очищает стек от пакета,
|
||||
сформированного на предыдущем шаге.
|
||||
6. В соответствии с числом прочитанных на текущей итерации секторов
|
||||
корректирует текущий сектор, число оставшихся секторов и указатель на
|
||||
буфер (в паре es:bx корректируется es). Если всё прочитано, заканчивает
|
||||
работу, иначе возвращается на шаг 3.
|
||||
|
||||
Процедура поиска элемента по имени в уже прочитанных данных папки
|
||||
(scan_for_filename):
|
||||
на входе должно быть установлено:
|
||||
ds:si = указатель на имя файла в формате FAT (11 байт, 8 на имя,
|
||||
3 на расширение, все буквы заглавные, если имя/расширение
|
||||
короче, оно дополняется до максимума пробелами)
|
||||
es = сегмент данных папки
|
||||
cx = число элементов в прочитанных данных
|
||||
на выходе: ZF определяет, нужно ли продолжать разбор данных папки
|
||||
(ZF=1, если либо найден запрошенный элемент, либо достигнут
|
||||
конец папки); CF определяет, удалось ли найти элемент с искомым именем
|
||||
(CF=1, если не удалось); если удалось, то es:di указывает на него.
|
||||
scan_for_filename считает, что данные папки размещаются начиная с es:0.
|
||||
Первой командой процедура обнуляет di. Затем просто в цикле по элементам папки
|
||||
проверяет имена.
|
||||
|
||||
Процедура поиска элемента в корневой папке (lookup_in_root_dir):
|
||||
на входе должно быть установлено:
|
||||
ss:bp = 0:7C00
|
||||
ds:si = указатель на имя файла в формате FAT (см. выше)
|
||||
на выходе: флаг CF определяет, удалось ли найти файл; если удалось, то
|
||||
CF сброшен и es:di указывает на элемент папки
|
||||
Начинает с просмотра кэшированной (начальной) части корневой папки. В цикле
|
||||
сканирует элементы; если по результатам сканирования обнаруживает,
|
||||
что нужно читать папку дальше, то считывает не более 0x10000 = 64K
|
||||
байт (ограничение введено по двум причинам: во-первых, чтобы заведомо
|
||||
не вылезти за пределы используемой памяти, во-вторых, сканирование
|
||||
предполагает, что все обрабатываемые элементы располагаются в одном
|
||||
сегменте) и продолжает цикл.
|
||||
Сканирование прекращается в трёх случаях: обнаружен искомый элемент;
|
||||
кончились элементы в папке (судя по числу элементов, указанному в BPB);
|
||||
очередной элемент папки сигнализирует о конце (первый байт нулевой).
|
||||
|
||||
Процедура вывода на экран ASCIIZ-строки (out_string):
|
||||
на входе: ds:si -> строка
|
||||
В цикле, пока не достигнут завершающий ноль, вызывает функцию int 10h/ah=0Eh.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Работа вспомогательного загрузчика kordldr.f1x:
|
||||
1. Определяет, был ли он загружен CHS- или LBA-версией бутсектора.
|
||||
В зависимости от этого устанавливает смещения используемых процедур
|
||||
бутсектора. Критерий проверки: scan_for_filename должна начинаться
|
||||
с инструкции 'xor di,di' с кодом 31 FF (вообще-то эта инструкция может
|
||||
с равным успехом ассемблироваться и как 33 FF, но fasm генерирует
|
||||
именно такую форму).
|
||||
2. Узнаёт размер свободной базовой памяти (т.е. свободного непрерывного куска
|
||||
адресов памяти, начинающегося с 0) вызовом int 12h. В соответствии с
|
||||
ним вычисляет число элементов в кэше папок. Хотя бы для одного элемента
|
||||
место должно быть, отсюда ограничение в 592 Kb (94000h байт).
|
||||
Замечание: этот размер не может превосходить 0A0000h байт и
|
||||
на практике оказывается немного (на 1-2 килобайта) меньшим из-за
|
||||
наличия дополнительной области данных BIOS "вверху" базовой памяти.
|
||||
3. Определяет тип файловой системы: FAT12 или FAT16. Согласно официальной
|
||||
спецификации от Microsoft (версия 1.03 спецификации датирована,
|
||||
к слову, 06 декабря 2000 года), разрядность FAT определяется
|
||||
исключительно числом кластеров: максимальное число кластеров на
|
||||
FAT12-томе равно 4094 = 0xFF4. Согласно здравому смыслу, на FAT12
|
||||
может быть 0xFF5 кластеров, но не больше: кластеры нумеруются с 2,
|
||||
а число 0xFF7 не может быть корректным номером кластера.
|
||||
Win95/98/Me следует здравому смыслу: разграничение FAT12/16 делается
|
||||
по максимуму 0xFF5. Драйвер FAT в WinNT/2k/XP/Vista вообще поступает
|
||||
явно неверно, считая, что 0xFF6 (или меньше) кластеров означает
|
||||
FAT12-том, в результате получается, что последний кластер
|
||||
(в случае 0xFF6) неадресуем. Основной загрузчик osloader.exe
|
||||
[встроен в ntldr] для NT/2k/XP делает так же. Первичный загрузчик
|
||||
[бутсектор FAT12/16 загружает первый сектор ntldr, и разбор FAT-таблицы
|
||||
лежит на нём] в NT/2k подвержен той же ошибке. В XP её таки исправили
|
||||
в соответствии со спецификацией. Linux при определении FAT12/FAT16
|
||||
честно следует спецификации.
|
||||
Здесь код основан всё же на спецификации. 9x мертва, а в линейке NT
|
||||
Microsoft если и будет исправлять ошибки, то согласно собственному
|
||||
описанию.
|
||||
4. Для FAT12: загружает в память первую копию таблицы FAT по адресу 6000:0000.
|
||||
Если размер, указанный в BPB, превосходит 12 секторов,
|
||||
это означает, что заявленный размер слишком большой (это не считается
|
||||
ошибкой файловой системы), и читаются только 12 секторов (таблица FAT12
|
||||
заведомо влезает в такой объём данных).
|
||||
Для FAT16: инициализирует внутренние данные, указывая, что никакой сектор
|
||||
FAT не загружен (они будут подгружаться позднее, когда понадобятся
|
||||
и только те, которые понадобятся).
|
||||
5. Если кластер равен сектору, то бутсектор загрузил только часть файла
|
||||
kordldr.f1x, и загрузчик подгружает вторую свою часть, используя
|
||||
значения регистров на входе в kordldr.f1x.
|
||||
6. Загружает вторичный загрузчик kord/loader по адресу 1000:0000. Если файл не
|
||||
найден, или оказался папкой, или оказался слишком большим, то переходит
|
||||
на код обработки ошибок из бутсектора с сообщением
|
||||
"Fatal error: cannot load the secondary loader".
|
||||
Замечание: на этом этапе имя файла уже можно указывать вместе с путём
|
||||
и в формате ASCIIZ, хотя поддержки длинных имён и неанглийских символов
|
||||
по-прежнему нет.
|
||||
7. Изменяет код обработки ошибок бутсектора на переход на метку hooked_err.
|
||||
Это нужно, чтобы последующие обращения к коду бутсектора в случае
|
||||
ошибок чтения не выводил соответствующее сообщение с последующей
|
||||
перезагрузкой, а рапортовал об ошибке чтения, которую мог бы
|
||||
как-нибудь обработать вторичный загрузчик.
|
||||
8. Если загрузочный диск имеет идентификатор меньше 0x80,
|
||||
то устанавливает al='f' ("floppy"), ah=идентификатор диска,
|
||||
иначе al='h' ("hard"), ah=идентификатор диска-0x80 (номер диска).
|
||||
Устанавливает bx='12', если тип файловой системы - FAT12, и
|
||||
bx='16' в случае FAT16. Устанавливает si=смещение функции обратного
|
||||
вызова. Поскольку в этот момент ds=0, то ds:si образуют полный адрес.
|
||||
9. Передаёт управление по адресу 1000:0000.
|
||||
|
||||
Функция обратного вызова для вторичного загрузчика:
|
||||
предоставляет возможность чтения файла.
|
||||
Вход и выход описаны в спецификации на загрузчик.
|
||||
1. Сохраняет стек вызывающего кода и устанавливает свой стек:
|
||||
ss:sp = 0:(7C00-8), bp=7C00: пара ss:bp при работе с остальным
|
||||
кодом должна указывать на 0:7C00, а -8 берётся от того, что
|
||||
инициализирующий код бутсектора уже поместил в стек 2 двойных слова,
|
||||
и они должны сохраняться в неизменности.
|
||||
2. Разбирает переданные параметры, выясняет, какое действие запрошено,
|
||||
и вызывает нужную вспомогательную процедуру.
|
||||
3. Восстанавливает стек вызывающего кода и возвращает управление.
|
||||
|
||||
Вспомогательные процедуры kordldr.f1x.
|
||||
Процедура получения следующего кластера в FAT (get_next_cluster):
|
||||
1. Вспоминает разрядность FAT, вычисленную ранее.
|
||||
Для FAT12:
|
||||
2. Устанавливает ds = 0x6000 - сегмент, куда ранее была считана
|
||||
вся таблица FAT.
|
||||
3. Подсчитывает si = (кластер) + (кластер)/2 - смещение в этом сегменте
|
||||
слова, задающего следующий кластер. Загружает слово по этому адресу.
|
||||
4. Если кластер имеет нечётный номер, то соответствующий ему элемент
|
||||
располагается в старших 12 битах слова, и слово нужно сдвинуть вправо
|
||||
на 4 бита; в противном случае - в младших 12 битах, и делать ничего не
|
||||
надо.
|
||||
5. Выделяет из получившегося слова 12 бит. Сравнивает их с пределом 0xFF7:
|
||||
номера нормальных кластеров меньше, и флаг CF устанавливается;
|
||||
специальные значения EOF и BadClus сбрасывают флаг CF.
|
||||
Для FAT16:
|
||||
2. Вычисляет адрес памяти, предназначенной для соответствующего сектора данных
|
||||
в таблице FAT.
|
||||
3. Если сектор ещё не загружен, то загружает его.
|
||||
4. Вычисляет смещение данных для конкретного кластера относительно начала
|
||||
сектора.
|
||||
5. Загружает слово в ax из адреса, вычисленному на шагах 1 и 3.
|
||||
6. Сравнивает его с пределом 0xFFF7: номера нормальных кластеров меньше, и флаг
|
||||
CF устанавливается; специальные значения EOF и BadClus сбрасывают CF.
|
||||
|
||||
Процедура загрузки файла (load_file):
|
||||
1. Текущая рассматриваемая папка - корневая. В цикле выполняет шаги 2-4.
|
||||
2. Конвертирует имя текущего рассматриваемого компонента имени (компоненты
|
||||
разделяются символом '/') в FAT-формат 8+3. Если это невозможно
|
||||
(больше 8 символов в имени, больше 3 символов в расширении или
|
||||
больше одной точки), возвращается с ошибкой.
|
||||
3. Ищет элемент с таким именем в текущей рассматриваемой папке. Для корневой
|
||||
папки используется процедура из бутсектора. Для остальных папок:
|
||||
a) Проверяет, есть ли такая папка в кэше некорневых папок.
|
||||
(Идентификация папок осуществляется по номеру начального кластера.)
|
||||
Если такой папки ещё нет, добавляет её в кэш; если тот переполняется,
|
||||
выкидывает папку, к которой дольше всего не было обращений. (Для
|
||||
каждого элемента кэша хранится метка от 0 до (размер кэша)-1,
|
||||
определяющая его номер при сортировке по давности последнего обращения.
|
||||
При обращении к какому-то элементу его метка становится нулевой,
|
||||
а те метки, которые меньше старого значения, увеличиваются на единицу.)
|
||||
б) Просматривает в поисках запрошенного имени все элементы из кэша,
|
||||
используя процедуру из бутсектора. Если обнаруживает искомый элемент,
|
||||
переходит к шагу 4. Если обнаруживает конец папки, возвращается из
|
||||
процедуры с ошибкой.
|
||||
в) В цикле считывает папку посекторно. При этом пропускает начальные
|
||||
секторы, которые уже находятся в кэше и уже были просмотрены. Каждый
|
||||
прочитанный сектор копирует в кэш, если там ещё остаётся место,
|
||||
и просматривает в нём все элементы. Работает, пока не случится одно из
|
||||
трёх событий: найден искомый элемент; кончились кластеры (судя по
|
||||
цепочке кластеров в FAT); очередной элемент папки сигнализирует о конце
|
||||
(первый байт нулевой). В двух последних случаях возвращается с ошибкой.
|
||||
4. Проверяет тип найденного элемента (файл/папка): последний элемент в
|
||||
запрошенном имени должен быть файлом, все промежуточные - папками.
|
||||
Если текущий компонент имени - промежуточный, продвигает текущую
|
||||
рассматриваемую папку и возвращается к пункту 2.
|
||||
5. Проходит по цепочке кластеров в FAT и считывает все кластеры в указанный
|
||||
при вызове буфер последовательными вызовами функции бутсектора;
|
||||
при этом если несколько кластеров файла расположены на диске
|
||||
последовательно, то их чтение объединяется в одну операцию.
|
||||
Следит за тем, чтобы не превысить указанный при вызове процедуры
|
||||
лимит числа секторов для чтения.
|
||||
|
||||
Процедура продолжения загрузки файла (continue_load_file): встроена
|
||||
внутрь шага 5 load_file; загружает в регистры нужные значения (ранее
|
||||
сохранённые из load_file) и продолжает шаг 5.
|
@ -1,3 +0,0 @@
|
||||
@fasm -m 65535 bootsect.asm bootsect.bin
|
||||
@fasm -m 65535 kordldr.f1x.asm kordldr.f1x
|
||||
@pause
|
@ -1,667 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
org 0x7E00
|
||||
; the KordOS FAT12/FAT16 bootsector loads first cluster of this file to 0:7E00 and transfers control to here
|
||||
; ss:bp = 0:7C00
|
||||
virtual at bp
|
||||
rb 3 ; BS_jmpBoot
|
||||
rb 8 ; BS_OEMName, ignored
|
||||
dw ? ; BPB_BytsPerSec
|
||||
BPB_SecsPerClus db ?
|
||||
BPB_RsvdSecCnt dw ?
|
||||
BPB_NumFATs db ?
|
||||
BPB_RootEntCnt dw ?
|
||||
BPB_TotSec16 dw ?
|
||||
db ? ; BPB_Media
|
||||
BPB_FATSz16 dw ?
|
||||
BPB_SecPerTrk dw ?
|
||||
BPB_NumHeads dw ?
|
||||
BPB_HiddSec dd ?
|
||||
BPB_TotSec32 dd ?
|
||||
BS_DrvNum db ?
|
||||
fat_type db ? ; this is BS_Reserved1,
|
||||
; we use it to save FS type: 0=FAT12, 1=FAT16
|
||||
db ? ; BS_BootSig
|
||||
num_sectors dd ? ; BS_VolID
|
||||
; rb 11 ; BS_VolLab
|
||||
; rb 3 ; BS_FilSysType, first 3 bytes
|
||||
read_sectors dw ?
|
||||
read_sectors2 dw ?
|
||||
lookup_in_root_dir dw ?
|
||||
scan_for_filename dw ?
|
||||
err_ dw ?
|
||||
noloader dw ?
|
||||
cachelimit dw ?
|
||||
filesize: ; will be used to save file size
|
||||
rb 5 ; BS_FilSysType, last 5 bytes
|
||||
; following variables are located in the place of starting code;
|
||||
; starting code is no more used at this point
|
||||
sect_per_clus dw ?
|
||||
cur_cluster dw ?
|
||||
next_cluster dw ?
|
||||
flags dw ?
|
||||
cur_delta dd ?
|
||||
end virtual
|
||||
|
||||
; procedures from boot sector
|
||||
; LBA version
|
||||
lba_read_sectors = 7CE2h
|
||||
lba_read_sectors2 = 7CDCh
|
||||
lba_lookup_in_root_dir = 7D4Fh
|
||||
lba_scan_for_filename = 7D2Dh
|
||||
lba_err = 7CB5h
|
||||
lba_noloader = 7CB2h
|
||||
; CHS version
|
||||
chs_read_sectors = 7CDEh
|
||||
chs_read_sectors2 = 7CD8h
|
||||
chs_lookup_in_root_dir = 7D70h
|
||||
chs_scan_for_filename = 7D4Eh
|
||||
chs_err = 7CB1h
|
||||
chs_noloader = 7CAEh
|
||||
|
||||
push ax cx ; save our position on disk
|
||||
push ss
|
||||
pop es
|
||||
; determine version of bootsector (LBA vs CHS)
|
||||
; mov [read_sectors], chs_read_sectors
|
||||
; mov [read_sectors2], chs_read_sectors2
|
||||
; mov [lookup_in_root_dir], chs_lookup_in_root_dir
|
||||
; mov [scan_for_filename], chs_scan_for_filename
|
||||
; mov [err], chs_err
|
||||
; mov [noloader], chs_noloader
|
||||
lea di, [read_sectors]
|
||||
mov si, chs_proc_addresses
|
||||
mov cx, 6*2
|
||||
cmp word [chs_scan_for_filename], 0xFF31 ; 'xor di,di'
|
||||
jz @f
|
||||
add si, cx
|
||||
; mov [read_sectors], lba_read_sectors
|
||||
; mov [read_sectors2], lba_read_sectors2
|
||||
; mov [lookup_in_root_dir], lba_lookup_in_root_dir
|
||||
; mov [scan_for_filename], lba_scan_for_filename
|
||||
; mov [err], lba_err
|
||||
; mov [noloader], lba_noloader
|
||||
@@:
|
||||
rep movsb
|
||||
mov cl, [BPB_SecsPerClus]
|
||||
mov [sect_per_clus], cx
|
||||
xor bx, bx
|
||||
; determine size of cache for folders
|
||||
int 12h ; ax = size of available base memory in Kb
|
||||
sub ax, 94000h / 1024
|
||||
jae @f
|
||||
nomem:
|
||||
mov si, nomem_str
|
||||
jmp [err_]
|
||||
@@:
|
||||
shr ax, 3
|
||||
mov [cachelimit], ax ; size of cache - 1
|
||||
; get type of file system - FAT12 or FAT16?
|
||||
; calculate number of clusters
|
||||
mov ax, [BPB_TotSec16]
|
||||
xor dx, dx
|
||||
test ax, ax
|
||||
jnz @f
|
||||
mov ax, word [BPB_TotSec32]
|
||||
mov dx, word [BPB_TotSec32+2]
|
||||
@@:
|
||||
sub ax, [bp-8] ; dword [bp-8] = first data sector
|
||||
sbb dx, [bp-6]
|
||||
jb j_noloader
|
||||
div [sect_per_clus]
|
||||
; ax = number of clusters
|
||||
; note: this is loader for FAT12/FAT16, so 'div' does not overflow on correct volumes
|
||||
mov [fat_type], ch
|
||||
cmp ax, 0xFF5
|
||||
jb init_fat12
|
||||
inc [fat_type]
|
||||
init_fat16:
|
||||
; no sectors loaded
|
||||
mov di, 0x8200
|
||||
xor ax, ax
|
||||
mov cx, 0x100/2
|
||||
rep stosw
|
||||
jmp init_fat_done
|
||||
init_fat12:
|
||||
; read FAT
|
||||
push 0x6000
|
||||
pop es
|
||||
mov ax, [BPB_RsvdSecCnt]
|
||||
mov cx, [BPB_FATSz16]
|
||||
cmp cx, 12
|
||||
jb @f
|
||||
mov cx, 12
|
||||
@@:
|
||||
xor dx, dx
|
||||
call [read_sectors]
|
||||
init_fat_done:
|
||||
; if cluster = sector, we need to read second part of our file
|
||||
; (bootsector loads only first cluster of kordldr.f1x)
|
||||
pop cx ax ; restore our position on disk
|
||||
cmp cx, 1
|
||||
ja kordldr_full
|
||||
sub ax, [bp-8]
|
||||
inc ax
|
||||
inc ax ; ax = first cluster of kordldr.f12
|
||||
call get_next_cluster
|
||||
jc @f
|
||||
j_noloader:
|
||||
jmp [noloader]
|
||||
@@:
|
||||
dec ax
|
||||
dec ax
|
||||
push 0x800
|
||||
pop es
|
||||
call [read_sectors2]
|
||||
kordldr_full:
|
||||
; ...continue loading...
|
||||
mov di, secondary_loader_info
|
||||
call load_file
|
||||
test bx, bx
|
||||
mov bx, [err_]
|
||||
jz @f
|
||||
mov si, aKernelNotFound
|
||||
jmp bx
|
||||
@@:
|
||||
; for subsequent calls to callback function, hook error handler
|
||||
; mov byte [bx], 0xE9 ; 'jmp' opcode
|
||||
; mov ax, hooked_err - 3
|
||||
; sub ax, bx
|
||||
; mov word [bx+1], ax
|
||||
; push hooked_err / ret
|
||||
mov word [bx], 0x68 + ((hooked_err and 0xFF) shl 8)
|
||||
mov word [bx+2], (hooked_err shr 8) + (0xC3 shl 8)
|
||||
; set registers for secondary loader
|
||||
mov ah, [BS_DrvNum]
|
||||
mov al, 'f'
|
||||
test ah, ah
|
||||
jns @f
|
||||
sub ah, 80h
|
||||
mov al, 'h'
|
||||
@@:
|
||||
mov bx, '12'
|
||||
cmp [fat_type], 0
|
||||
jz @f
|
||||
mov bh, '6'
|
||||
@@:
|
||||
mov si, callback ; ds:si = far pointer to callback procedure
|
||||
jmp far [si-callback+secondary_loader_info] ; jump to 1000:0000
|
||||
|
||||
nomem_str db 'No memory',0
|
||||
|
||||
chs_proc_addresses:
|
||||
dw chs_read_sectors
|
||||
dw chs_read_sectors2
|
||||
dw chs_lookup_in_root_dir
|
||||
dw chs_scan_for_filename
|
||||
dw chs_err
|
||||
dw chs_noloader
|
||||
lba_proc_addresses:
|
||||
dw lba_read_sectors
|
||||
dw lba_read_sectors2
|
||||
dw lba_lookup_in_root_dir
|
||||
dw lba_scan_for_filename
|
||||
dw lba_err
|
||||
dw lba_noloader
|
||||
|
||||
get_next_cluster:
|
||||
; in: ax = cluster
|
||||
; out: if there is next cluster: CF=1, ax = next cluster
|
||||
; out: if there is no next cluster: CF=0
|
||||
push si
|
||||
cmp [fat_type], 0
|
||||
jnz gnc16
|
||||
; for FAT12
|
||||
push ds
|
||||
push 0x6000
|
||||
pop ds
|
||||
mov si, ax
|
||||
shr si, 1
|
||||
add si, ax
|
||||
test al, 1
|
||||
lodsw
|
||||
jz @f
|
||||
shr ax, 4
|
||||
@@:
|
||||
and ax, 0xFFF
|
||||
cmp ax, 0xFF7
|
||||
pop ds si
|
||||
ret
|
||||
; for FAT16
|
||||
gnc16:
|
||||
; each sector contains 200h bytes = 100h FAT entries
|
||||
; so ah = # of sector, al = offset in sector
|
||||
mov si, ax
|
||||
mov ah, 0
|
||||
shr si, 8
|
||||
; calculate segment for this sector of FAT table
|
||||
; base for FAT table is 6000:0000, so the sector #si has to be loaded to (60000 + 200*si)
|
||||
; segment = 6000 + 20*si, offset = 0
|
||||
push es
|
||||
push si
|
||||
shl si, 5
|
||||
add si, 0x6000
|
||||
mov es, si
|
||||
pop si
|
||||
cmp byte [ss:0x8200+si], ah ; sector already loaded?
|
||||
jnz @f
|
||||
; load corresponding sector
|
||||
pusha
|
||||
push es
|
||||
xor bx, bx
|
||||
mov ax, [BPB_RsvdSecCnt]
|
||||
xor dx, dx
|
||||
add ax, si
|
||||
adc dx, bx
|
||||
mov cx, 1 ; read 1 sector
|
||||
call [read_sectors]
|
||||
pop es
|
||||
popa
|
||||
@@:
|
||||
mov si, ax
|
||||
add si, si
|
||||
; mov ax, [es:si]
|
||||
lods word [es:si]
|
||||
pop es
|
||||
cmp ax, 0xFFF7
|
||||
pop si
|
||||
ret
|
||||
|
||||
if $ > 0x8000
|
||||
error 'get_next_cluster must fit in first sector of kordldr.f1x!'
|
||||
end if
|
||||
|
||||
load_file:
|
||||
; in: ss:bp = 0:7C00
|
||||
; in: ds:di -> information structure
|
||||
; dw:dw address
|
||||
; dw limit in 4Kb blocks (0x1000 bytes) (must be non-zero and not greater than 0x100)
|
||||
; ASCIIZ name
|
||||
; out: bx = status: bx=0 - ok, bx=1 - file is too big, only part of file was loaded, bx=2 - file not found
|
||||
; out: dx:ax = file size (0xFFFFFFFF if file not found)
|
||||
xor ax, ax ; start from root directory
|
||||
mov dx, -1
|
||||
mov word [filesize], dx
|
||||
mov word [filesize+2], dx ; initialize file size with invalid value
|
||||
lea si, [di+6]
|
||||
parse_dir_loop:
|
||||
; convert name to FAT name
|
||||
push di
|
||||
push ax
|
||||
push ss
|
||||
pop es
|
||||
; convert ASCIIZ filename to FAT name
|
||||
mov di, filename
|
||||
push di
|
||||
mov cx, 8+3
|
||||
mov al, ' '
|
||||
rep stosb
|
||||
pop di
|
||||
mov cl, 8 ; 8 symbols per name
|
||||
mov bl, 1
|
||||
nameloop:
|
||||
lodsb
|
||||
test al, al
|
||||
jz namedone
|
||||
cmp al, '/'
|
||||
jz namedone
|
||||
cmp al, '.'
|
||||
jz namedot
|
||||
dec cx
|
||||
js badname
|
||||
cmp al, 'a'
|
||||
jb @f
|
||||
cmp al, 'z'
|
||||
ja @f
|
||||
sub al, 'a'-'A'
|
||||
@@:
|
||||
stosb
|
||||
jmp nameloop
|
||||
namedot:
|
||||
inc bx
|
||||
jp badname
|
||||
add di, cx
|
||||
mov cl, 3
|
||||
jmp nameloop
|
||||
badname: ; do not make direct js/jp to notfound_pop:
|
||||
; this generates long forms of conditional jumps and results in longer code
|
||||
jmp notfound_pop
|
||||
namedone:
|
||||
; scan directory
|
||||
pop ax ; ax = cluster of directory or 0 for root
|
||||
push ds
|
||||
push si
|
||||
push es
|
||||
pop ds
|
||||
mov si, filename ; ds:si -> filename in FAT style
|
||||
test ax, ax
|
||||
jnz lookup_in_notroot_dir
|
||||
; for root directory, use the subroutine from bootsector
|
||||
call [lookup_in_root_dir]
|
||||
jmp lookup_done
|
||||
lookup_in_notroot_dir:
|
||||
; for other directories, read a folder sector-by-sector and scan
|
||||
; first, try to use the cache
|
||||
push ds
|
||||
push cs
|
||||
pop ds
|
||||
mov bx, [cachelimit]
|
||||
add bx, bx
|
||||
mov di, foldcache_mark
|
||||
@@:
|
||||
mov dx, [foldcache_clus+di-foldcache_mark+bx]
|
||||
cmp dx, ax
|
||||
jz cacheok
|
||||
test dx, dx
|
||||
jz cacheadd ; the cache has place for new entry
|
||||
dec bx
|
||||
dec bx
|
||||
jns @b
|
||||
; the folder is not present in the cache, so add it
|
||||
; the cache is full; find the oldest entry and replace it with the new one
|
||||
mov dx, [cachelimit]
|
||||
@@:
|
||||
inc bx
|
||||
inc bx
|
||||
cmp word [di+bx], dx ; marks have values 0 through [cachelimit]
|
||||
jnz @b
|
||||
cacheadd:
|
||||
or word [di+bx], 0xFFFF ; very big value, it will be changed soon
|
||||
mov [foldcache_clus+di-foldcache_mark+bx], ax
|
||||
and [foldcache_size+di-foldcache_mark+bx], 0 ; no folder items yet
|
||||
cacheok:
|
||||
; update cache marks
|
||||
mov dx, [di+bx]
|
||||
mov cx, [foldcache_size+di-foldcache_mark+bx]
|
||||
mov di, [cachelimit]
|
||||
add di, di
|
||||
cacheupdate:
|
||||
cmp [foldcache_mark+di], dx
|
||||
adc [foldcache_mark+di], 0
|
||||
dec di
|
||||
dec di
|
||||
jns cacheupdate
|
||||
and [foldcache_mark+bx], 0
|
||||
; done, bx contains (position in cache)*2
|
||||
pop ds
|
||||
; mov dx, bx
|
||||
; shl dx, 8 ; dx = (position in cache)*0x2000/0x10
|
||||
; add dx, 0x9200
|
||||
lea dx, [bx+0x92]
|
||||
xchg dl, dh
|
||||
mov es, dx
|
||||
jcxz not_in_cache
|
||||
call [scan_for_filename]
|
||||
jz lookup_done
|
||||
not_in_cache:
|
||||
; cache miss, read folder data from disk
|
||||
mov bx, cx
|
||||
shr bx, 4
|
||||
shl cx, 5
|
||||
mov di, cx ; es:di -> free space in cache entry
|
||||
; external loop: scan clusters
|
||||
folder_next_cluster:
|
||||
; internal loop: scan sectors in cluster
|
||||
mov cx, [sect_per_clus]
|
||||
push ax
|
||||
dec ax
|
||||
dec ax
|
||||
mul cx
|
||||
add ax, [bp-8]
|
||||
adc dx, [bp-6] ; dx:ax = absolute sector
|
||||
folder_next_sector:
|
||||
; skip first bx sectors
|
||||
dec bx
|
||||
jns folder_skip_sector
|
||||
push cx
|
||||
push es di
|
||||
push 0x8000
|
||||
pop es
|
||||
xor bx, bx
|
||||
mov cx, 1
|
||||
push es
|
||||
call [read_sectors]
|
||||
; copy data to the cache...
|
||||
pop ds
|
||||
pop di es
|
||||
cmp di, 0x2000 ; ...if there is free space, of course
|
||||
jae @f
|
||||
push si di
|
||||
mov cx, 0x100
|
||||
xor si, si
|
||||
rep movsw
|
||||
mov di, es
|
||||
shr di, 8
|
||||
add [ss:foldcache_size+di-0x92], 0x10 ; 0x10 new entries in the cache
|
||||
pop di si
|
||||
@@:
|
||||
push es
|
||||
push 0x8000
|
||||
pop es
|
||||
push cs
|
||||
pop ds
|
||||
mov cx, 0x10
|
||||
call [scan_for_filename]
|
||||
pop es
|
||||
pop cx
|
||||
jz lookup_done_pop
|
||||
folder_skip_sector:
|
||||
inc ax
|
||||
jnz @f
|
||||
inc dx
|
||||
@@:
|
||||
loop folder_next_sector
|
||||
pop ax ; ax = current cluster
|
||||
call get_next_cluster
|
||||
jc folder_next_cluster
|
||||
stc
|
||||
push ax
|
||||
lookup_done_pop:
|
||||
pop ax
|
||||
lookup_done:
|
||||
pop si
|
||||
pop ds
|
||||
; CF=1 <=> failed
|
||||
jnc found
|
||||
notfound:
|
||||
pop di
|
||||
mov bx, 2 ; file not found
|
||||
mov ax, 0xFFFF
|
||||
mov dx, ax ; invalid file size
|
||||
ret
|
||||
notfound_pop:
|
||||
pop ax
|
||||
jmp notfound
|
||||
found:
|
||||
mov ax, [es:di+26] ; get cluster
|
||||
test byte [es:di+11], 10h ; directory?
|
||||
jz regular_file
|
||||
cmp byte [si-1], 0
|
||||
jz notfound ; don't read directories as a regular files
|
||||
; ok, we have found a directory and the caller requested a file into it
|
||||
pop di
|
||||
jmp parse_dir_loop ; restart with new cluster in ax
|
||||
regular_file:
|
||||
cmp byte [si-1], 0
|
||||
jnz notfound ; file does not contain another files
|
||||
; ok, we have found a regular file and the caller requested it
|
||||
; save file size
|
||||
mov dx, [es:di+28]
|
||||
mov [filesize], dx
|
||||
mov dx, [es:di+30]
|
||||
mov [filesize+2], dx
|
||||
pop di
|
||||
mov si, [di+4]
|
||||
shl si, 3
|
||||
push si ; [ds:di+4] = limit in 4K blocks
|
||||
les bx, [di] ; es:bx -> buffer
|
||||
clusloop:
|
||||
; ax = first cluster, top of stack contains limit in sectors
|
||||
mov si, ax ; remember current cluster
|
||||
xor cx, cx ; cx will contain number of consecutive clusters
|
||||
mov word [cur_delta], cx
|
||||
mov word [cur_delta+2], cx
|
||||
mov di, ax
|
||||
clusfind:
|
||||
inc di
|
||||
inc cx
|
||||
call get_next_cluster
|
||||
jnc clusread
|
||||
cmp ax, di
|
||||
jz clusfind
|
||||
stc
|
||||
clusread:
|
||||
pop di ; limit in sectors
|
||||
push ax ; save next cluster
|
||||
pushf ; save flags
|
||||
; read cx clusters, starting from si
|
||||
; calculate number of sectors
|
||||
xchg ax, cx
|
||||
mul [sect_per_clus]
|
||||
; dx:ax = number of sectors; compare with limit
|
||||
mov word [num_sectors], ax
|
||||
mov word [num_sectors+2], dx
|
||||
jmp @f
|
||||
continue_load_file:
|
||||
les bx, [di] ; es:bx -> buffer
|
||||
mov di, [di+4] ; ds:di = limit in 4K blocks
|
||||
shl di, 3 ; now di = limit in sectors
|
||||
mov ax, word [num_sectors]
|
||||
mov dx, word [num_sectors+2]
|
||||
mov si, [cur_cluster]
|
||||
push [next_cluster]
|
||||
push [flags]
|
||||
or ax, dx
|
||||
jz nextclus
|
||||
@@:
|
||||
test dx, dx
|
||||
jnz clusdecrease
|
||||
push dx ; limit was not exceeded
|
||||
cmp ax, di
|
||||
jbe @f
|
||||
pop ax
|
||||
clusdecrease:
|
||||
push 1 ; limit was exceeded
|
||||
mov ax, di
|
||||
@@:
|
||||
sub di, ax ; calculate new limit
|
||||
sub word [num_sectors], ax
|
||||
sbb word [num_sectors+2], 0
|
||||
; calculate starting sector
|
||||
xchg ax, cx
|
||||
lea ax, [si-2]
|
||||
mul [sect_per_clus]
|
||||
add ax, word [cur_delta]
|
||||
adc dx, word [cur_delta+2]
|
||||
add word [cur_delta], cx
|
||||
adc word [cur_delta+2], 0
|
||||
; read
|
||||
call [read_sectors2]
|
||||
pop dx
|
||||
; next cluster?
|
||||
nextclus:
|
||||
popf
|
||||
pop ax
|
||||
mov [cur_cluster], si
|
||||
mov [next_cluster], ax
|
||||
pushf
|
||||
pop [flags]
|
||||
jnc @f ; no next cluster => return
|
||||
mov dl, 1 ; dh=0 in any case
|
||||
test di, di
|
||||
jz @f ; if there is next cluster but current limit is 0 => return: limit exceeded
|
||||
push di
|
||||
jmp clusloop ; all is ok, continue
|
||||
hooked_err:
|
||||
mov sp, 7C00h-12-2 ; restore stack
|
||||
mov dx, 3 ; return: read error
|
||||
@@:
|
||||
mov bx, dx
|
||||
mov ax, [filesize]
|
||||
mov dx, [filesize+2]
|
||||
ret
|
||||
|
||||
; Callback function for secondary loader
|
||||
callback:
|
||||
; in: ax = function number; only functions 1 and 2 are defined for now
|
||||
; save caller's stack
|
||||
mov dx, ss
|
||||
mov cx, sp
|
||||
; set our stack (required because we need ss=0)
|
||||
xor si, si
|
||||
mov ss, si
|
||||
mov sp, 7C00h-8
|
||||
mov bp, 7C00h
|
||||
push dx
|
||||
push cx
|
||||
; call our function
|
||||
stc ; unsupported function
|
||||
dec ax
|
||||
jz callback_readfile
|
||||
dec ax
|
||||
jnz callback_ret
|
||||
; function 2: continue loading file
|
||||
; can be called only after function 1 returned value bx=1 (only part of file was loaded)
|
||||
; in: ds:di -> information structure
|
||||
; dw:dw address
|
||||
; dw limit in 4Kb blocks (0x1000 bytes) (must be non-zero and not greater than 0x100)
|
||||
; out: bx=0 - ok, bx=1 - still only part of file was loaded, bx=3 - read error
|
||||
; out: dx:ax = file size
|
||||
call continue_load_file
|
||||
jmp callback_ret_succ
|
||||
callback_readfile:
|
||||
; function 1: read file
|
||||
; in: ds:di -> information structure
|
||||
; dw:dw address
|
||||
; dw limit in 4Kb blocks (0x1000 bytes) (must be non-zero and not greater than 0x100)
|
||||
; ASCIIZ name
|
||||
; out: bx=0 - ok, bx=1 - file is too big, only part of file was loaded, bx=2 - file not found, bx=3 - read error
|
||||
; out: dx:ax = file size (0xFFFFFFFF if file was not found)
|
||||
call load_file
|
||||
callback_ret_succ:
|
||||
clc ; function is supported
|
||||
callback_ret:
|
||||
; restore caller's stack
|
||||
pop cx
|
||||
pop ss
|
||||
mov sp, cx
|
||||
; return to caller
|
||||
retf
|
||||
|
||||
secondary_loader_info:
|
||||
dw 0, 0x1000
|
||||
dw 0x30000 / 0x1000
|
||||
db 'kord/loader',0
|
||||
aKernelNotFound db 'Fatal error: cannot load the secondary loader',0
|
||||
|
||||
foldcache_clus dw 0,0,0,0,0,0,0 ; start with no folders in cache
|
||||
foldcache_mark rw 7
|
||||
foldcache_size rw 7
|
||||
filename rb 11
|
||||
if $ > 0x8200
|
||||
error: table overwritten
|
||||
end if
|
@ -1,358 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
use_lba = 0
|
||||
org 0x7C00
|
||||
jmp start
|
||||
nop
|
||||
; FAT parameters, BPB
|
||||
; they must be changed at install, replaced with real values
|
||||
rb 8 ; BS_OEMName, ignored
|
||||
dw 200h ; BPB_BytsPerSec
|
||||
BPB_SecsPerClus db ?
|
||||
BPB_RsvdSecCnt dw ?
|
||||
BPB_NumFATs db ?
|
||||
BPB_RootEntCnt dw ?
|
||||
dw ? ; BPB_TotSec16
|
||||
db ? ; BPB_Media
|
||||
dw ? ; BPB_FATSz16 = 0 for FAT32
|
||||
BPB_SecPerTrk dw ?
|
||||
BPB_NumHeads dw ?
|
||||
BPB_HiddSec dd ?
|
||||
dd ? ; BPB_TotSec32
|
||||
BPB_FATSz32 dd ?
|
||||
BPB_ExtFlags dw ?
|
||||
dw ? ; BPB_FSVer
|
||||
BPB_RootClus dd ?
|
||||
dw ? ; BPB_FSInfo
|
||||
BPB_BkBootSec dw ?
|
||||
rb 12 ; BPB_Reserved
|
||||
BS_DrvNum db ?
|
||||
db ? ; BS_Reserved1
|
||||
db ? ; BS_BootSig
|
||||
dd ? ; BS_VolID
|
||||
rb 11 ; BS_VolLab
|
||||
rb 8 ;
|
||||
|
||||
curseg dw 0x8000
|
||||
|
||||
start:
|
||||
xor ax, ax
|
||||
mov ss, ax
|
||||
mov sp, 0x7C00
|
||||
mov ds, ax
|
||||
mov bp, sp
|
||||
cld
|
||||
sti
|
||||
push dx ; byte [bp-2] = boot drive
|
||||
if use_lba
|
||||
mov ah, 41h
|
||||
mov bx, 55AAh
|
||||
int 13h
|
||||
mov si, aNoLBA
|
||||
jc err_
|
||||
cmp bx, 0AA55h
|
||||
jnz err_
|
||||
test cl, 1
|
||||
jz err_
|
||||
else
|
||||
mov ah, 8
|
||||
int 13h
|
||||
jc @f
|
||||
movzx ax, dh
|
||||
inc ax
|
||||
mov [bp+BPB_NumHeads-0x7C00], ax
|
||||
and cx, 3Fh
|
||||
mov [bp+BPB_SecPerTrk-0x7C00], cx
|
||||
@@:
|
||||
end if
|
||||
; get FAT parameters
|
||||
xor bx, bx
|
||||
movzx eax, [bp+BPB_NumFATs-0x7C00]
|
||||
mul [bp+BPB_FATSz32-0x7C00]
|
||||
movzx ecx, [bp+BPB_RsvdSecCnt-0x7C00]
|
||||
push ecx ; FAT start = dword [bp-6]
|
||||
add eax, ecx
|
||||
push eax ; data start = dword [bp-10]
|
||||
;push dword -1 ; dword [bp-14] = current sector for FAT cache
|
||||
db 66h
|
||||
push -1 ; dword [bp-14] = current sector for FAT cache
|
||||
mov eax, [bp+BPB_RootClus-0x7C00]
|
||||
mov si, main_loader
|
||||
call lookup_in_dir
|
||||
jnc kordldr_ok
|
||||
noloader:
|
||||
mov si, aLoaderNotFound
|
||||
err_:
|
||||
call out_string
|
||||
mov si, aPressAnyKey
|
||||
call out_string
|
||||
xor ax, ax
|
||||
int 16h
|
||||
int 18h
|
||||
jmp $
|
||||
kordldr_ok:
|
||||
mov eax, [es:di+20-2] ; hiword(eax) = hiword(cluster)
|
||||
mov ax, [es:di+26] ; loword(eax) = loword(cluster)
|
||||
mov es, bx ; es = 0
|
||||
mov bx, 0x7E00
|
||||
push bx ; save return address: bx = 7E00
|
||||
; fall through - 'ret' in read_cluster will return to 7E00
|
||||
|
||||
read_cluster:
|
||||
; ss:bp = 0:7C00
|
||||
; es:bx = pointer to data
|
||||
; eax = cluster
|
||||
sub eax, 2
|
||||
movzx ecx, [bp+BPB_SecsPerClus-0x7C00]
|
||||
mul ecx
|
||||
|
||||
read_sectors2:
|
||||
; same as read_sectors32, but eax is relative to start of data
|
||||
add eax, [bp-10]
|
||||
read_sectors32:
|
||||
; ss:bp = 0:7C00
|
||||
; es:bx = pointer to data
|
||||
; eax = first sector
|
||||
; cx = number of sectors
|
||||
; some high words of 32-bit registers are destroyed!
|
||||
pusha
|
||||
add eax, [bp+BPB_HiddSec-0x7C00]
|
||||
if use_lba
|
||||
push ds
|
||||
do_read_sectors:
|
||||
push ax
|
||||
push cx
|
||||
cmp cx, 0x7F
|
||||
jbe @f
|
||||
mov cx, 0x7F
|
||||
@@:
|
||||
; create disk address packet on the stack
|
||||
; dq starting LBA
|
||||
push 0
|
||||
push 0
|
||||
push eax
|
||||
; dd buffer
|
||||
push es
|
||||
push bx
|
||||
; dw number of blocks to transfer (no more than 0x7F)
|
||||
push cx
|
||||
; dw packet size in bytes
|
||||
push 10h
|
||||
; issue BIOS call
|
||||
push ss
|
||||
pop ds
|
||||
mov si, sp
|
||||
mov dl, [bp-2]
|
||||
mov ah, 42h
|
||||
int 13h
|
||||
mov si, aReadError
|
||||
jc err_
|
||||
; restore stack
|
||||
add sp, 10h
|
||||
; increase current sector & buffer; decrease number of sectors
|
||||
movzx esi, cx
|
||||
mov ax, es
|
||||
shl cx, 5
|
||||
add ax, cx
|
||||
mov es, ax
|
||||
pop cx
|
||||
pop ax
|
||||
add eax, esi
|
||||
sub cx, si
|
||||
jnz do_read_sectors
|
||||
pop ds
|
||||
popa
|
||||
ret
|
||||
else
|
||||
do_read_sectors:
|
||||
pusha
|
||||
pop edi ; loword(edi) = di, hiword(edi) = si
|
||||
push bx
|
||||
|
||||
; eax / (SectorsPerTrack) -> eax, remainder bx
|
||||
movzx esi, [bp+BPB_SecPerTrk-0x7C00]
|
||||
xor edx, edx
|
||||
div esi
|
||||
mov bx, dx ; bx=sector-1
|
||||
|
||||
; eax -> dx:ax
|
||||
push eax
|
||||
pop ax
|
||||
pop dx
|
||||
; (dword in dx:ax) / (NumHeads) -> (word in ax), remainder dx
|
||||
div [bp+BPB_NumHeads-0x7C00]
|
||||
|
||||
; number of sectors: read no more than to end of track
|
||||
sub si, bx
|
||||
cmp cx, si
|
||||
jbe @f
|
||||
mov cx, si
|
||||
@@:
|
||||
|
||||
inc bx
|
||||
; now ax=track, dl=head, dh=0, cl=number of sectors, ch=0, bl=sector; convert to int13 format
|
||||
movzx edi, cx
|
||||
mov dh, dl
|
||||
mov dl, [bp-2]
|
||||
shl ah, 6
|
||||
mov ch, al
|
||||
mov al, cl
|
||||
mov cl, bl
|
||||
or cl, ah
|
||||
pop bx
|
||||
mov si, 3
|
||||
mov ah, 2
|
||||
@@:
|
||||
push ax
|
||||
int 13h
|
||||
jnc @f
|
||||
xor ax, ax
|
||||
int 13h ; reset drive
|
||||
pop ax
|
||||
dec si
|
||||
jnz @b
|
||||
mov si, aReadError
|
||||
jmp err_
|
||||
@@:
|
||||
pop ax
|
||||
mov ax, es
|
||||
mov cx, di
|
||||
shl cx, 5
|
||||
add ax, cx
|
||||
mov es, ax
|
||||
push edi
|
||||
popa
|
||||
add eax, edi
|
||||
sub cx, di
|
||||
jnz do_read_sectors
|
||||
popa
|
||||
ret
|
||||
end if
|
||||
|
||||
lookup_in_dir:
|
||||
; in: ds:si -> 11-bytes FAT name
|
||||
; in: eax = cluster
|
||||
; in: bx = 0
|
||||
; out: if found: CF=0, es:di -> directory entry
|
||||
; out: if not found: CF=1
|
||||
; push 0x8000
|
||||
; pop es
|
||||
; read current cluster: first cluster goes to 8000:0000, others - to 8200:0000
|
||||
mov es, [bp-7C00h + curseg]
|
||||
push es
|
||||
push eax
|
||||
call read_cluster
|
||||
mov ax, es
|
||||
cmp ah, 82h
|
||||
jb @f
|
||||
mov ax, 8200h
|
||||
@@:
|
||||
mov [bp-7C00h + curseg], ax
|
||||
pop eax
|
||||
pop es
|
||||
; scan for filename
|
||||
shl cx, 4
|
||||
xor di, di
|
||||
sloop:
|
||||
cmp byte [es:di], bl
|
||||
jz snotfound
|
||||
test byte [es:di+11], 8 ; volume label?
|
||||
jnz scont ; ignore volume labels
|
||||
pusha
|
||||
mov cx, 11
|
||||
repz cmpsb
|
||||
popa
|
||||
jz sdone
|
||||
scont:
|
||||
add di, 0x20
|
||||
loop sloop
|
||||
; next cluster
|
||||
push 0x6000
|
||||
pop es
|
||||
push es ax
|
||||
shr eax, 7
|
||||
cmp eax, [bp-14]
|
||||
mov [bp-14], eax
|
||||
jz @f
|
||||
add eax, [bp-6]
|
||||
mov cx, 1
|
||||
call read_sectors32
|
||||
@@:
|
||||
pop di es
|
||||
and di, 0x7F
|
||||
shl di, 2
|
||||
and byte [es:di+3], 0x0F
|
||||
mov eax, [es:di]
|
||||
;and eax, 0x0FFFFFFF
|
||||
cmp eax, 0x0FFFFFF7
|
||||
jb lookup_in_dir
|
||||
snotfound:
|
||||
stc
|
||||
sdone:
|
||||
ret
|
||||
|
||||
out_string:
|
||||
; in: ds:si -> ASCIIZ string
|
||||
lodsb
|
||||
test al, al
|
||||
jz sdone
|
||||
mov ah, 0Eh
|
||||
mov bx, 7
|
||||
int 10h
|
||||
jmp out_string
|
||||
|
||||
aReadError db 'Read error',0
|
||||
if use_lba
|
||||
aNoLBA db 'The drive does not support LBA!',0
|
||||
end if
|
||||
aLoaderNotFound db 'Loader not found',0
|
||||
aPressAnyKey db 13,10,'Press any key...',13,10,0
|
||||
main_loader db 'KORDLDR F32'
|
||||
|
||||
db 56h
|
||||
; just to make file 512 bytes long :)
|
||||
db 'd' xor 'i' xor 'a' xor 'm' xor 'o' xor 'n' xor 'd'
|
||||
|
||||
; bootsector signature
|
||||
dw 0xAA55
|
||||
|
||||
; display offsets of all procedures used by kordldr.f12.asm
|
||||
macro show [procedure]
|
||||
{
|
||||
bits = 16
|
||||
display `procedure,' = '
|
||||
repeat bits/4
|
||||
d = '0' + procedure shr (bits - %*4) and 0Fh
|
||||
if d > '9'
|
||||
d = d + 'A'-'9'-1
|
||||
end if
|
||||
display d
|
||||
end repeat
|
||||
display 13,10
|
||||
}
|
||||
|
||||
show read_sectors32, read_sectors2, err_, noloader
|
@ -1,333 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
Читай между строк - там никогда не бывает опечаток.
|
||||
|
||||
Бутсектор для FAT32-тома на носителе с размером сектора 0x200 = 512 байт.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Есть две версии в зависимости от того, поддерживает ли носитель LBA,
|
||||
выбор осуществляется установкой константы use_lba в первой строке исходника.
|
||||
Требования для работы:
|
||||
1) Сам бутсектор, первая копия FAT и все используемые файлы
|
||||
должны быть читабельны. (Если дело происходит на носителе с разбиением на
|
||||
разделы и загрузочный код в MBR достаточно умный, то читабельности резервной
|
||||
копии бутсектора (сектор номер 6 на томе) достаточно вместо читабельности
|
||||
самого бутсектора).
|
||||
2) Минимальный процессор - 80386.
|
||||
3) В системе должно быть как минимум 584K свободной базовой памяти.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Документация в тему (ссылки проверялись на валидность 15.05.2008):
|
||||
официальная спецификация FAT: http://www.microsoft.com/whdc/system/platform/firmware/fatgen.mspx
|
||||
в формате PDF: http://staff.washington.edu/dittrich/misc/fatgen103.pdf
|
||||
русский перевод: http://wasm.ru/docs/11/fatgen103-rus.zip
|
||||
официальная спецификация расширения EDD BIOS 3.0: http://www.phoenix.com/NR/rdonlyres/19FEBD17-DB40-413C-A0B1-1F3F560E222F/0/specsedd30.pdf
|
||||
то же, версия 1.1: http://www.phoenix.com/NR/rdonlyres/9BEDED98-6B3F-4DAC-BBB7-FA89FA5C30F0/0/specsedd11.pdf
|
||||
описание функций BIOS: Interrupt List by Ralf Brown: http://www.cs.cmu.edu/~ralf/files.html
|
||||
официальная спецификация Boot BIOS: http://www.phoenix.com/NR/rdonlyres/56E38DE2-3E6F-4743-835F-B4A53726ABED/0/specsbbs101.pdf
|
||||
|
||||
=====================================================================
|
||||
|
||||
Схема используемой памяти:
|
||||
...-7C00 стек
|
||||
7C00-7E00 код бутсектора
|
||||
7E00-8200 вспомогательный файл загрузчика (kordldr.f32)
|
||||
8400-8C00 информация о кэше для таблицы FAT: 100h входов по 8
|
||||
байт: 4 байта (две ссылки - вперёд и назад) для
|
||||
организации L2-списка всех прочитанных секторов в
|
||||
порядке возрастания последнего времени использования
|
||||
+ 4 байта для номера сектора; при переполнении кэша
|
||||
выкидывается элемент из головы списка, то есть тот,
|
||||
к которому дольше всех не было обращений
|
||||
60000-80000 кэш для таблицы FAT (100h секторов)
|
||||
80000-90000 текущий кластер текущей рассматриваемой папки
|
||||
90000-... кэш для содержимого папок (каждой папке отводится
|
||||
2000h байт = 100h входов, одновременно в кэше
|
||||
может находиться не более 8 папок;
|
||||
точный размер определяется размером доступной
|
||||
физической памяти - как правило, непосредственно
|
||||
перед A0000 размещается EBDA, Extended BIOS Data Area)
|
||||
|
||||
=====================================================================
|
||||
|
||||
Основной процесс загрузки.
|
||||
Точка входа (start): получает управление от BIOS при загрузке, при этом
|
||||
dl содержит идентификатор диска, с которого идёт загрузка
|
||||
1. Настраивает стек ss:sp = 0:7C00 (стек располагается непосредственно перед
|
||||
кодом), сегмент данных ds = 0, и устанавливает ss:bp на начало
|
||||
бутсектора (в дальнейшем данные будут адресоваться через [bp+N] -
|
||||
это освобождает ds и экономит на размере кода). Сохраняет в стеке
|
||||
идентификатор загрузочного диска для последующего обращения
|
||||
через byte [bp-2].
|
||||
2. LBA-версия: проверяет, поддерживает ли носитель LBA, вызовом функции 41h
|
||||
прерывания 13h. Если нет, переходит на код обработки ошибок с
|
||||
сообщением об отсутствии LBA.
|
||||
CHS-версия: определяет геометрию носителя вызовом функции 8 прерывания 13h и
|
||||
записывает полученные данные поверх BPB. Если вызов завершился ошибкой,
|
||||
предполагает уже существующие данные корректными.
|
||||
3. Вычисляет начало данных FAT-тома, сохраняет его в стек для последующего
|
||||
обращения через dword [bp-10]. В процессе вычисления узнаёт начало
|
||||
первой FAT, сохраняет и его в стек для последующего обращения через
|
||||
dword [bp-6].
|
||||
4. (Заканчивая тему параметров в стеке) Помещает в стек dword-значение -1
|
||||
для последующего обращения через dword [bp-14] - инициализация
|
||||
переменной, содержащей текущий сектор, находящийся в кэше FAT
|
||||
(-1 не является валидным значением для номера сектора FAT).
|
||||
5. Ищет в корневой папке элемент kordldr.f32. Если не находит - переходит на
|
||||
код обработки ошибок с сообщением о ненайденном загрузчике.
|
||||
Замечание: на этом этапе загрузки искать можно только в корневой
|
||||
папке и только имена, заданные в формате файловой системе FAT
|
||||
(8+3 - 8 байт на имя, 3 байта на расширение, все буквы должны
|
||||
быть заглавными, при необходимости имя и расширение дополняются
|
||||
пробелами, разделяющей точки нет, завершающего нуля нет).
|
||||
6. Загружает первый кластер файла kordldr.f32 по адресу 0:7E00 и передаёт
|
||||
ему управление. При этом в регистре eax оказывается абсолютный
|
||||
номер первого сектора kordldr.f32, а в cx - число считанных секторов
|
||||
(равное размеру кластера).
|
||||
|
||||
Вспомогательные процедуры бутсектора.
|
||||
Код обработки ошибок (err):
|
||||
1. Выводит строку с сообщением об ошибке.
|
||||
2. Выводит строку "Press any key...".
|
||||
3. Ждёт нажатия any key.
|
||||
4. Вызывает int 18h, давая шанс BIOSу попытаться загрузиться откуда-нибудь ещё.
|
||||
5. Для подстраховки зацикливается.
|
||||
|
||||
Процедура чтения кластера (read_cluster):
|
||||
на входе должно быть установлено:
|
||||
ss:bp = 0:7C00
|
||||
es:bx = указатель на начало буфера, куда будут прочитаны данные
|
||||
eax = номер кластера
|
||||
на выходе: ecx = число прочитанных секторов (размер кластера),
|
||||
es:bx указывает на конец буфера, в который были прочитаны данные,
|
||||
eax и старшие слова других 32-битных регистров разрушаются
|
||||
Загружает в ecx размер кластера, перекодирует номер кластера в номер сектора
|
||||
и переходит к следующей процедуре.
|
||||
|
||||
Процедура чтения секторов (read_sectors32 и read_sectors2):
|
||||
на входе должно быть установлено:
|
||||
ss:bp = 0:7C00
|
||||
es:bx = указатель на начало буфера, куда будут прочитаны данные
|
||||
eax = стартовый сектор (относительно начала логического диска
|
||||
для read_sectors32, относительно начала данных
|
||||
для read_sectors2)
|
||||
cx = число секторов (должно быть больше нуля)
|
||||
на выходе: es:bx указывает на конец буфера, в который были прочитаны данные
|
||||
старшие слова 32-битных регистров могут разрушиться
|
||||
0. Если вызывается read_sectors2, она переводит указанный ей номер сектора
|
||||
в номер относительно начала логического диска, прибавляя номер сектора
|
||||
начала данных, хранящийся в стеке как [bp-10].
|
||||
1. Переводит стартовый сектор (отсчитываемый от начала тома) в сектор на
|
||||
устройстве, прибавляя значение соответствующего поля из BPB.
|
||||
2. В цикле (шаги 3-6) читает секторы, следит за тем, чтобы на каждой итерации
|
||||
CHS-версия: все читаемые секторы были на одной дорожке.
|
||||
LBA-версия: число читаемых секторов не превосходило 7Fh (требование
|
||||
спецификации EDD BIOS).
|
||||
CHS-версия:
|
||||
3. Переводит абсолютный номер сектора в CHS-систему: сектор рассчитывается как
|
||||
единица плюс остаток от деления абсолютного номера на число секторов
|
||||
на дорожке; дорожка рассчитывается как остаток от деления частного,
|
||||
полученного на предыдущем шаге, на число дорожек, а цилиндр - как
|
||||
частное от этого же деления. Если число секторов для чтения больше,
|
||||
чем число секторов до конца дорожки, уменьшает число секторов для
|
||||
чтения.
|
||||
4. Формирует данные для вызова int 13h (ah=2 - чтение, al=число секторов,
|
||||
dh=головка, (младшие 6 бит cl)=сектор,
|
||||
(старшие 2 бита cl и весь ch)=дорожка, dl=диск, es:bx->буфер).
|
||||
5. Вызывает BIOS. Если BIOS рапортует об ошибке, выполняет сброс диска
|
||||
и повторяет попытку чтения, всего делается не более трёх попыток
|
||||
(несколько попыток нужно в случае дискеты для гарантии того, что
|
||||
мотор раскрутился). Если все три раза происходит ошибка чтения,
|
||||
переходит на код обработки ошибок с сообщением "Read error".
|
||||
6. В соответствии с числом прочитанных на текущей итерации секторов
|
||||
корректирует текущий сектор, число оставшихся секторов и указатель на
|
||||
буфер (в паре es:bx корректируется es). Если всё прочитано, заканчивает
|
||||
работу, иначе возвращается на шаг 3.
|
||||
LBA-версия:
|
||||
3. Если число секторов для чтения больше 7Fh, уменьшает его (для текущей
|
||||
итерации) до 7Fh.
|
||||
4. Формирует в стеке пакет для int 13h (кладёт все нужные данные командами
|
||||
push, причём в обратном порядке: стек - структура LIFO, и данные в
|
||||
стеке хранятся в обратном порядке по отношению к тому, как их туда
|
||||
клали).
|
||||
5. Вызывает BIOS. Если BIOS рапортует об ошибке, переходит на код обработки
|
||||
ошибок с сообщением "Read error". Очищает стек от пакета,
|
||||
сформированного на предыдущем шаге.
|
||||
6. В соответствии с числом прочитанных на текущей итерации секторов
|
||||
корректирует текущий сектор, число оставшихся секторов и указатель на
|
||||
буфер (в паре es:bx корректируется es). Если всё прочитано, заканчивает
|
||||
работу, иначе возвращается на шаг 3.
|
||||
|
||||
Процедура поиска элемента в папке (lookup_in_dir):
|
||||
на входе должно быть установлено:
|
||||
ss:bp = 0:7C00
|
||||
ds:si = указатель на имя файла в формате FAT (см. выше)
|
||||
eax = начальный кластер папки
|
||||
bx = 0
|
||||
на выходе: флаг CF определяет, удалось ли найти файл; если удалось, то
|
||||
CF сброшен и es:di указывает на элемент папки
|
||||
В цикле считывает кластеры папки и ищет запрошенный элемент в прочитанных
|
||||
данных. Для чтения кластера использует уже описанную процедуру read_clusters,
|
||||
для продвижения по цепочке кластеров - описанную далее процедуру
|
||||
get_next_clusters. Данные читаются в область памяти, начинающуюся с адреса
|
||||
8000:0000, при этом первые 2000h байт из данных папки (может быть, меньше,
|
||||
если чтение прервётся раньше) не перекрываются последующими чтениями
|
||||
(это будет использовано позднее, в системе кэширования из kordldr.f32).
|
||||
Выход осуществляется в любом из следующих случаев: найден запрошенный элемент;
|
||||
кончились элементы в папке (первый байт очередного элемента нулевой);
|
||||
кончились данные папки в соответствии с цепочкой кластеров из FAT.
|
||||
|
||||
Процедура вывода на экран ASCIIZ-строки (out_string):
|
||||
на входе: ds:si -> строка
|
||||
В цикле, пока не достигнут завершающий ноль, вызывает функцию int 10h/ah=0Eh.
|
||||
|
||||
=====================================================================
|
||||
|
||||
Работа вспомогательного загрузчика kordldr.f32:
|
||||
1. Определяет, был ли он загружен CHS- или LBA-версией бутсектора.
|
||||
В зависимости от этого устанавливает смещения используемых процедур
|
||||
бутсектора. Критерий проверки: в CHS-версии по адресу err находится
|
||||
байт 0xE8 (машинная команда call), в LBA-версии по тому же адресу
|
||||
находится байт 0x14, а адрес процедуры err другой.
|
||||
2. Узнаёт размер свободной базовой памяти (т.е. свободного непрерывного куска
|
||||
адресов памяти, начинающегося с 0) вызовом int 12h. В соответствии с
|
||||
ним вычисляет число элементов в кэше папок. Хотя бы для одного элемента
|
||||
место должно быть, отсюда ограничение в 592 Kb (94000h байт).
|
||||
Замечание: этот размер не может превосходить 0A0000h байт и
|
||||
на практике оказывается немного (на 1-2 килобайта) меньшим из-за
|
||||
наличия дополнительной области данных BIOS "вверху" базовой памяти.
|
||||
3. Инициализирует кэширование папок. Бутсектор уже загрузил какую-то часть
|
||||
данных корневой папки; копирует загруженные данные в кэш и запоминает,
|
||||
что в кэше есть корневая папка.
|
||||
4. Инициализирует кэширование FAT. Бутсектор имеет дело с FAT в том и только
|
||||
том случае, когда ему приходится загружать данные корневой папки,
|
||||
не поместившиеся в один кластер. В этом случае в памяти присутствует
|
||||
один сектор FAT (если было несколько обращений - последний из
|
||||
использованных).
|
||||
5. Если кластер равен сектору, то бутсектор загрузил только часть файла
|
||||
kordldr.f32, и загрузчик подгружает вторую свою часть, используя
|
||||
значения регистров на входе в kordldr.f32.
|
||||
6. Загружает вторичный загрузчик kord/loader по адресу 1000:0000. Если файл не
|
||||
найден, или оказался папкой, или оказался слишком большим, то переходит
|
||||
на код обработки ошибок из бутсектора с сообщением
|
||||
"Fatal error: cannot load the secondary loader".
|
||||
Замечание: на этом этапе имя файла уже можно указывать вместе с путём
|
||||
и в формате ASCIIZ, хотя поддержки длинных имён и неанглийских символов
|
||||
по-прежнему нет.
|
||||
7. Изменяет код обработки ошибок бутсектора на переход на метку hooked_err.
|
||||
Это нужно, чтобы последующие обращения к коду бутсектора в случае
|
||||
ошибок чтения не выводил соответствующее сообщение с последующей
|
||||
перезагрузкой, а рапортовал об ошибке чтения, которую могло бы
|
||||
как-нибудь обработать ядро.
|
||||
8. Если загрузочный диск имеет идентификатор меньше 0x80,
|
||||
то устанавливает al='f' ("floppy"), ah=идентификатор диска,
|
||||
иначе al='h' ("hard"), ah=идентификатор диска-0x80 (номер диска).
|
||||
(Говорите, дискеток с FAT32 не бывает? В чём-то Вы правы... но
|
||||
уверены ли Вы, что нет загрузочных устройств, подобных дискетам,
|
||||
но большего размера, и для которых BIOS-идентификатор меньше 0x80?)
|
||||
Устанавливает bx='32' (тип файловой системы - FAT32).
|
||||
Устанавливает si=смещение функции обратного вызова. Поскольку в этот
|
||||
момент ds=0, то ds:si образуют полный адрес.
|
||||
9. Передаёт управление по адресу 1000:0000.
|
||||
|
||||
Функция обратного вызова для вторичного загрузчика:
|
||||
предоставляет возможность чтения файла.
|
||||
Вход и выход описаны в спецификации на загрузчик.
|
||||
1. Сохраняет стек вызывающего кода и устанавливает свой стек:
|
||||
ss:sp = 0:(7C00-10), bp=7C00: пара ss:bp при работе с остальным
|
||||
кодом должна указывать на 0:7C00, а -10 берётся от того, что
|
||||
инициализирующий код бутсектора уже поместил в стек 10 байт параметров,
|
||||
и они должны сохраняться в неизменности. (Значение [ebp-14],
|
||||
"текущий сектор, находящийся в кэше FAT", не используется после
|
||||
инициализации кэширования в kordldr.f32.)
|
||||
2. Разбирает переданные параметры и вызывает нужную из вспомогательных
|
||||
процедур (загрузки файла либо продолжения загрузки файла).
|
||||
3. Восстанавливает стек вызывающего кода и возвращает управление.
|
||||
|
||||
Вспомогательные процедуры kordldr.f32.
|
||||
Процедура получения следующего кластера в FAT (get_next_cluster):
|
||||
1. Вычисляет номер сектора в FAT, в котором находится запрошенный элемент.
|
||||
(В секторе 0x200 байт, каждый вход занимает 4 байта.)
|
||||
2. Проверяет, есть ли сектор в кэше. Если есть, пропускает шаги 3 и 4.
|
||||
3. Если нет, то в кэш нужно вставить новый элемент. Если кэш ещё не заполнен,
|
||||
выделяет очередной элемент в конце кэша. Если заполнен, удаляет
|
||||
самый старый элемент (тот, к которому дольше всего не было обращений);
|
||||
для того, чтобы отслеживать порядок элементов по времени последнего
|
||||
обращения, все (выделенные) элементы кэша связаны в двусвязный список,
|
||||
в котором первым элементом является самый старый, а ссылки вперёд
|
||||
указывают на следующий по времени последнего обращения.
|
||||
4. Читает соответствующий сектор FAT с диска.
|
||||
5. Корректирует список: текущий обрабатываемый элемент удаляется с той позиции,
|
||||
где он находится, и добавляется в конец. (В случае со свежедобавленными
|
||||
в кэш элементами удаления не делается, поскольку их в списке ещё нет.)
|
||||
6. Считывает нужный вход в FAT, сбрасывая старшие 4 бита.
|
||||
7. Сравнивает прочитанное значение с пределом: если оно строго меньше
|
||||
0x0FFFFFF7, то оно задаёт номер следующего кластера в цепочке;
|
||||
в противном случае цепочка закончилась.
|
||||
|
||||
Процедура загрузки файла (load_file):
|
||||
1. Текущая рассматриваемая папка - корневая. В цикле выполняет шаги 2-4.
|
||||
2. Конвертирует имя текущего рассматриваемого компонента имени (компоненты
|
||||
разделяются символом '/') в FAT-формат 8+3. Если это невозможно
|
||||
(больше 8 символов в имени, больше 3 символов в расширении или
|
||||
больше одной точки), возвращается с ошибкой.
|
||||
3. Ищет элемент с таким именем в текущей рассматриваемой папке.
|
||||
а) Проверяет, есть ли такая папка в кэше папок. (Идентификация папок
|
||||
осуществляется по номеру начального кластера.) Если такой папки ещё
|
||||
нет, добавляет её в кэш; если тот переполняется, выкидывает папку,
|
||||
к которой дольше всего не было обращений. (Для каждого элемента кэша
|
||||
хранится метка от 0 до (размер кэша)-1, определяющая его номер при
|
||||
сортировке по давности последнего обращения. При обращении к какому-то
|
||||
элементу его метка становится нулевой, а те метки, которые меньше
|
||||
старого значения, увеличиваются на единицу.)
|
||||
б) Просматривает в поисках запрошенного имени все элементы из кэша,
|
||||
используя процедуру из бутсектора. Если обнаруживает искомый элемент,
|
||||
переходит к шагу 4. Если обнаруживает конец папки, возвращается из
|
||||
процедуры с ошибкой.
|
||||
в) В цикле считывает папку посекторно. При этом пропускает начальные
|
||||
секторы, которые уже находятся в кэше и уже были просмотрены. Каждый
|
||||
прочитанный сектор копирует в кэш, если там ещё остаётся место,
|
||||
и просматривает в нём все элементы. Работает, пока не случится одно из
|
||||
трёх событий: найден искомый элемент; кончились кластеры (судя по
|
||||
цепочке кластеров в FAT); очередной элемент папки сигнализирует о конце
|
||||
(первый байт нулевой). В двух последних случаях возвращается с ошибкой.
|
||||
4. Проверяет тип найденного элемента (файл/папка): последний элемент в
|
||||
запрошенном имени должен быть файлом, все промежуточные - папками.
|
||||
Если текущий компонент имени - промежуточный, продвигает текущую
|
||||
рассматриваемую папку и возвращается к пункту 2.
|
||||
5. Проходит по цепочке кластеров в FAT и считывает все кластеры в указанный
|
||||
при вызове буфер последовательными вызовами функции бутсектора;
|
||||
при этом если несколько кластеров файла расположены на диске
|
||||
последовательно, то их чтение объединяется в одну операцию.
|
||||
Следит за тем, чтобы не превысить указанный при вызове процедуры
|
||||
лимит числа секторов для чтения.
|
||||
|
||||
Процедура продолжения загрузки файла (continue_load_file): встроена
|
||||
внутрь шага 5 load_file; загружает в регистры нужные значения (ранее
|
||||
сохранённые из load_file) и продолжает шаг 5.
|
@ -1,3 +0,0 @@
|
||||
@fasm -m 65535 bootsect.asm bootsect.bin
|
||||
@fasm -m 65535 kordldr.f32.asm kordldr.f32
|
||||
@pause
|
@ -1,672 +0,0 @@
|
||||
; Copyright (c) 2008-2009, diamond
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
org 0x7E00
|
||||
; the KordOS FAT32 bootsector loads first cluster of this file to 0:7E00 and transfers control to here
|
||||
; ss:bp = 0:7C00
|
||||
; ds = 0
|
||||
virtual at bp
|
||||
rb 3 ; BS_jmpBoot
|
||||
rb 8 ; BS_OEMName, ignored
|
||||
dw ? ; BPB_BytsPerSec
|
||||
BPB_SecsPerClus db ?
|
||||
BPB_RsvdSecCnt dw ?
|
||||
BPB_NumFATs db ?
|
||||
BPB_RootEntCnt dw ?
|
||||
dw ? ; BPB_TotSec16
|
||||
db ? ; BPB_Media
|
||||
dw ? ; BPB_FATSz16 = 0 for FAT32
|
||||
BPB_SecPerTrk dw ?
|
||||
BPB_NumHeads dw ?
|
||||
BPB_HiddSec dd ?
|
||||
dd ? ; BPB_TotSec32
|
||||
BPB_FATSz32 dd ?
|
||||
BPB_ExtFlags dw ?
|
||||
dw ? ; BPB_FSVer
|
||||
BPB_RootClus dd ?
|
||||
filesize:
|
||||
dw ? ; BPB_FSInfo
|
||||
dw ? ; BPB_BkBootSec
|
||||
rb 12 ; BPB_Reserved
|
||||
BS_DrvNum db ?
|
||||
db ? ; BS_Reserved1
|
||||
db ? ; BS_BootSig
|
||||
dd ? ; BS_VolID
|
||||
; rb 11 ; BS_VolLab
|
||||
; rb 5 ; BS_FilSysType, first 5 bytes
|
||||
read_sectors32 dw ?
|
||||
read_sectors2 dw ?
|
||||
err_ dw ?
|
||||
noloader dw ?
|
||||
cachelimit dw ?
|
||||
fatcachehead rw 2
|
||||
fatcacheend dw ?
|
||||
rb 3 ; BS_FilSysType, last 3 bytes
|
||||
curseg dw ?
|
||||
num_sectors dd ?
|
||||
cur_cluster dd ?
|
||||
next_cluster dd ?
|
||||
flags dw ?
|
||||
cur_delta dd ?
|
||||
end virtual
|
||||
|
||||
; procedures from boot sector
|
||||
; LBA version
|
||||
lba_read_sectors2 = 7CD6h
|
||||
lba_err = 7CAAh
|
||||
lba_noloader = 7CA7h ; = lba_err - 3
|
||||
; CHS version
|
||||
chs_read_sectors2 = 7CD2h
|
||||
chs_err = 7CA6h
|
||||
chs_noloader = 7CA3h ; = chs_err - 3
|
||||
|
||||
push eax cx ; save our position on disk
|
||||
; determine version of bootsector (LBA vs CHS)
|
||||
mov [read_sectors2], chs_read_sectors2
|
||||
mov bx, chs_err
|
||||
mov [err_], bx
|
||||
; mov [noloader], chs_noloader
|
||||
cmp byte [bx], 0xE8 ; [chs_err] = 0xE8 for CHS version, 0x14 for LBA version
|
||||
jz @f
|
||||
add [read_sectors2], lba_read_sectors2 - chs_read_sectors2
|
||||
add [err_], lba_err - chs_err
|
||||
; mov [noloader], lba_noloader
|
||||
@@:
|
||||
xor bx, bx
|
||||
; determine size of cache for folders
|
||||
int 12h ; ax = size of available base memory in Kb
|
||||
sub ax, 92000h / 1024
|
||||
jae @f
|
||||
nomem:
|
||||
mov si, nomem_str
|
||||
jmp [err_]
|
||||
@@:
|
||||
shr ax, 3
|
||||
mov [cachelimit], ax ; size of cache - 1
|
||||
mov es, bx
|
||||
; no folders in cache yet
|
||||
mov di, foldcache_clus
|
||||
mov cx, 8*4/2 + 1
|
||||
xor ax, ax
|
||||
rep stosw
|
||||
; bootsector code caches one FAT sector, [bp-14], in 6000:0000
|
||||
; initialize our (more advanced) FAT caching from this
|
||||
mov di, 8400h
|
||||
mov cx, di
|
||||
lea si, [fatcachehead]
|
||||
mov [si], si ; no sectors in cache:
|
||||
mov [si+2], si ; 'prev' & 'next' links point to self
|
||||
mov [fatcacheend], di ; first free item = 8400h
|
||||
stosw ; 'next cached sector' link
|
||||
stosw ; 'prev cached sector' link
|
||||
mov eax, [bp-14]
|
||||
stosd ; first sector number in cache
|
||||
test eax, eax
|
||||
js @f
|
||||
mov [si], cx ; 'first cached sector' link = 8400h
|
||||
mov [si+2], cx ; 'next cached sector' link = 8400h
|
||||
mov [fatcacheend], di ; first free item = 8406h
|
||||
@@:
|
||||
; if cluster = sector, we need to read second part of our file
|
||||
; (bootsector loads only first cluster of kordldr.f32)
|
||||
pop cx eax ; restore our position on disk
|
||||
cmp cx, 1
|
||||
ja kordldr_full
|
||||
sub eax, [bp-10]
|
||||
inc eax
|
||||
inc eax ; eax = first cluster of kordldr.f32
|
||||
call get_next_cluster
|
||||
jc @f
|
||||
; jmp [noloader]
|
||||
mov ax, [err_]
|
||||
sub ax, 3
|
||||
jmp ax
|
||||
@@:
|
||||
dec eax
|
||||
dec eax
|
||||
push 0x800
|
||||
pop es
|
||||
call [read_sectors2]
|
||||
kordldr_full:
|
||||
; bootsector code has read some data of root directory to 8000:0000
|
||||
; initialize our folder caching from this
|
||||
mov eax, [BPB_RootClus]
|
||||
mov [foldcache_clus], eax
|
||||
mov cx, [curseg]
|
||||
mov ax, 8000h
|
||||
sub cx, ax ; cx = size of data read in paragraphs (0x10 bytes)
|
||||
shr cx, 1 ; cx = size of folder data read in entries (0x20 bytes)
|
||||
mov [foldcache_size], cx
|
||||
shl cx, 4
|
||||
push ds
|
||||
mov ds, ax
|
||||
push 0x9000
|
||||
pop es
|
||||
xor si, si
|
||||
xor di, di
|
||||
rep movsw
|
||||
pop ds
|
||||
; ...continue loading...
|
||||
mov di, secondary_loader_info
|
||||
call load_file
|
||||
test bx, bx
|
||||
mov bx, [err_]
|
||||
jz @f
|
||||
mov si, aKernelNotFound
|
||||
jmp bx
|
||||
@@:
|
||||
; for subsequent calls to callback function, hook error handler
|
||||
; push hooked_err / ret
|
||||
mov dword [bx], 0x68 + (hooked_err shl 8) + (0xC3 shl 24)
|
||||
; set registers for secondary loader
|
||||
mov ah, [bp-2] ; drive id
|
||||
mov al, 'f'
|
||||
btr ax, 15
|
||||
jnc @f
|
||||
mov al, 'h'
|
||||
@@:
|
||||
mov bx, '32'
|
||||
mov si, callback
|
||||
jmp far [si+secondary_loader_info-callback]
|
||||
|
||||
nomem_str db 'No memory',0
|
||||
|
||||
cluster2sector:
|
||||
sub eax, 2
|
||||
clustersz2sectorsz:
|
||||
movzx ecx, [BPB_SecsPerClus]
|
||||
mul ecx
|
||||
ret
|
||||
|
||||
get_next_cluster:
|
||||
; in: eax = cluster
|
||||
; out: if there is next cluster: CF=1, eax = next cluster
|
||||
; out: if there is no next cluster: CF=0
|
||||
push di bx
|
||||
push ds
|
||||
push ss
|
||||
pop ds
|
||||
push ax
|
||||
shr eax, 7
|
||||
; eax = FAT sector number; look in cache
|
||||
mov di, 8400h
|
||||
.cache_lookup:
|
||||
cmp di, [fatcacheend]
|
||||
jae .not_in_cache
|
||||
scasd
|
||||
scasd
|
||||
jnz .cache_lookup
|
||||
.in_cache:
|
||||
sub di, 8
|
||||
; delete this sector from the list
|
||||
push si
|
||||
mov si, [di]
|
||||
mov bx, [di+2]
|
||||
mov [si+2], bx
|
||||
mov [bx], si
|
||||
pop si
|
||||
jmp @f
|
||||
.not_in_cache:
|
||||
; cache miss
|
||||
; cache is full?
|
||||
mov di, [fatcacheend]
|
||||
cmp di, 8C00h
|
||||
jnz .cache_not_full
|
||||
; yes, delete the oldest entry
|
||||
mov di, [fatcachehead]
|
||||
mov bx, [di]
|
||||
mov [fatcachehead], bx
|
||||
push word [di+2]
|
||||
pop word [bx+2]
|
||||
jmp .cache_append
|
||||
.cache_not_full:
|
||||
; no, allocate new sector
|
||||
add [fatcacheend], 8
|
||||
.cache_append:
|
||||
; read FAT
|
||||
mov [di+4], eax
|
||||
push es
|
||||
pushad
|
||||
lea cx, [di + 0x10000 - 0x8400 + (0x6000 shr (9-3))] ; +0x10000 - for FASM
|
||||
shl cx, 9-3
|
||||
mov es, cx
|
||||
xor bx, bx
|
||||
mov cx, 1
|
||||
add eax, [bp-6] ; FAT start
|
||||
sub eax, [bp-10]
|
||||
call [read_sectors2]
|
||||
popad
|
||||
pop es
|
||||
@@:
|
||||
; add new sector to the end of list
|
||||
mov bx, di
|
||||
xchg bx, [fatcachehead+2]
|
||||
push word [bx]
|
||||
pop word [di]
|
||||
mov [bx], di
|
||||
mov [di+2], bx
|
||||
; get requested item
|
||||
lea ax, [di + 0x10000 - 0x8400 + (0x6000 shr (9-3))]
|
||||
pop di
|
||||
and di, 0x7F
|
||||
shl di, 2
|
||||
shl ax, 9-3
|
||||
mov ds, ax
|
||||
and byte [di+3], 0x0F
|
||||
mov eax, [di]
|
||||
pop ds
|
||||
pop bx di
|
||||
;and eax, 0x0FFFFFFF
|
||||
cmp eax, 0x0FFFFFF7
|
||||
ret
|
||||
|
||||
if $ > 0x8000
|
||||
error 'get_next_cluster must fit in first sector of kordldr.f32!'
|
||||
end if
|
||||
|
||||
load_file:
|
||||
; in: ss:bp = 0:7C00
|
||||
; in: ds:di -> information structure
|
||||
; dw:dw address
|
||||
; dw limit in 4Kb blocks (0x1000 bytes) (must be non-zero and not greater than 0x100)
|
||||
; ASCIIZ name
|
||||
; out: bx = status: bx=0 - ok, bx=1 - file is too big, only part of file was loaded, bx=2 - file not found
|
||||
; out: dx:ax = file size (0xFFFFFFFF if file not found)
|
||||
mov eax, [BPB_RootClus] ; start from root directory
|
||||
or dword [filesize], -1 ; initialize file size with invalid value
|
||||
lea si, [di+6]
|
||||
parse_dir_loop:
|
||||
; convert name to FAT name
|
||||
push di
|
||||
push ax
|
||||
push ss
|
||||
pop es
|
||||
; convert ASCIIZ filename to FAT name
|
||||
filename equ bp
|
||||
mov di, filename
|
||||
push di
|
||||
mov cx, 8+3
|
||||
mov al, ' '
|
||||
rep stosb
|
||||
pop di
|
||||
mov cl, 8 ; 8 symbols per name
|
||||
mov bl, 1
|
||||
nameloop:
|
||||
lodsb
|
||||
test al, al
|
||||
jz namedone
|
||||
cmp al, '/'
|
||||
jz namedone
|
||||
cmp al, '.'
|
||||
jz namedot
|
||||
dec cx
|
||||
js badname
|
||||
cmp al, 'a'
|
||||
jb @f
|
||||
cmp al, 'z'
|
||||
ja @f
|
||||
sub al, 'a'-'A'
|
||||
@@:
|
||||
stosb
|
||||
jmp nameloop
|
||||
namedot:
|
||||
inc bx
|
||||
jp badname
|
||||
add di, cx
|
||||
mov cl, 3
|
||||
jmp nameloop
|
||||
badname: ; do not make direct js/jp to notfound_pop:
|
||||
; this generates long forms of conditional jumps and results in longer code
|
||||
jmp notfound_pop
|
||||
namedone:
|
||||
; scan directory
|
||||
pop ax ; eax = cluster of directory
|
||||
; high word of eax is preserved by operations above
|
||||
push ds
|
||||
push si
|
||||
; read a folder sector-by-sector and scan
|
||||
; first, try to use the cache
|
||||
push ss
|
||||
pop ds
|
||||
mov di, foldcache_mark
|
||||
xor bx, bx
|
||||
mov cx, [cachelimit]
|
||||
@@:
|
||||
lea si, [di+bx]
|
||||
mov edx, dword [foldcache_clus+si-foldcache_mark+bx]
|
||||
cmp edx, eax
|
||||
jz cacheok
|
||||
test edx, edx
|
||||
jz cacheadd ; the cache has place for new entry
|
||||
inc bx
|
||||
inc bx
|
||||
dec cx
|
||||
jns @b
|
||||
; the folder is not present in the cache, so add it
|
||||
; the cache is full; find the oldest entry and replace it with the new one
|
||||
mov bx, -2
|
||||
mov dx, [cachelimit]
|
||||
@@:
|
||||
inc bx
|
||||
inc bx
|
||||
cmp word [di+bx], dx ; marks have values 0 through [cachelimit]
|
||||
jnz @b
|
||||
lea si, [di+bx]
|
||||
cacheadd:
|
||||
or word [di+bx], 0xFFFF ; very big value, it will be changed soon
|
||||
and [foldcache_size+di-foldcache_mark+bx], 0 ; no folder items yet
|
||||
mov dword [foldcache_clus+si-foldcache_mark+bx], eax
|
||||
cacheok:
|
||||
; update cache marks
|
||||
mov dx, [di+bx]
|
||||
mov cx, [foldcache_size+di-foldcache_mark+bx]
|
||||
mov di, [cachelimit]
|
||||
add di, di
|
||||
cacheupdate:
|
||||
cmp [foldcache_mark+di], dx
|
||||
adc [foldcache_mark+di], 0
|
||||
dec di
|
||||
dec di
|
||||
jns cacheupdate
|
||||
and [foldcache_mark+bx], 0
|
||||
; done, bx contains (position in cache)*2
|
||||
;mov dx, bx
|
||||
;shl dx, 8 ; dx = (position in cache)*0x2000/0x10
|
||||
;add dx, 0x9000
|
||||
lea dx, [bx + 0x90]
|
||||
xchg dl, dh
|
||||
mov ds, dx
|
||||
mov si, filename ; ss:si -> filename in FAT style
|
||||
call scan_for_filename
|
||||
jz lookup_done
|
||||
; cache miss, read folder data from disk
|
||||
mov bx, cx
|
||||
shr bx, 4
|
||||
shl cx, 5
|
||||
mov di, cx ; es:di -> free space in cache entry
|
||||
; external loop: scan clusters
|
||||
folder_next_cluster:
|
||||
; internal loop: scan sectors in cluster
|
||||
push eax
|
||||
call cluster2sector
|
||||
folder_next_sector:
|
||||
; skip first bx sectors
|
||||
dec bx
|
||||
jns folder_skip_sector
|
||||
push cx
|
||||
push es di
|
||||
push 0x8000
|
||||
pop es
|
||||
xor bx, bx
|
||||
mov cx, 1
|
||||
push es
|
||||
push eax
|
||||
call [read_sectors2]
|
||||
pop eax
|
||||
; copy data to the cache...
|
||||
pop ds
|
||||
pop di es
|
||||
cmp di, 0x2000 ; ...if there is free space, of course
|
||||
jae @f
|
||||
pusha
|
||||
mov cx, 0x100
|
||||
xor si, si
|
||||
rep movsw
|
||||
mov di, es
|
||||
shr di, 8
|
||||
add [ss:foldcache_size+di-0x90], 0x10 ; 0x10 new entries in the cache
|
||||
popa
|
||||
@@:
|
||||
push es
|
||||
mov cl, 0x10 ; ch=0 at this point
|
||||
call scan_for_filename
|
||||
pop es
|
||||
pop cx
|
||||
jz lookup_done_pop
|
||||
folder_skip_sector:
|
||||
inc eax
|
||||
loop folder_next_sector
|
||||
pop eax ; eax = current cluster
|
||||
call get_next_cluster
|
||||
jc folder_next_cluster
|
||||
stc
|
||||
push eax
|
||||
lookup_done_pop:
|
||||
pop eax
|
||||
lookup_done:
|
||||
pop si
|
||||
; CF=1 <=> failed
|
||||
jnc found
|
||||
pop ds
|
||||
notfound:
|
||||
pop di
|
||||
notfound2:
|
||||
mov bx, 2 ; file not found
|
||||
mov ax, 0xFFFF
|
||||
mov dx, ax ; invalid file size
|
||||
ret
|
||||
notfound_pop:
|
||||
pop ax
|
||||
jmp notfound
|
||||
found:
|
||||
mov eax, [di+20-2]
|
||||
mov edx, [di+28]
|
||||
mov ax, [di+26] ; get cluster
|
||||
test byte [di+11], 10h ; directory?
|
||||
pop ds
|
||||
pop di
|
||||
jz regular_file
|
||||
cmp byte [si-1], 0
|
||||
jz notfound2 ; don't read directories as regular files
|
||||
; ok, we have found a directory and the caller requested a file into it
|
||||
jmp parse_dir_loop ; restart with new cluster in ax
|
||||
regular_file:
|
||||
cmp byte [si-1], 0
|
||||
jnz notfound2 ; file does not contain another files
|
||||
; ok, we have found a regular file and the caller requested it
|
||||
; save file size
|
||||
mov [filesize], edx
|
||||
mov si, [di+4] ; [ds:di+4] = limit in 4K blocks
|
||||
shl si, 3
|
||||
push si
|
||||
les bx, [di] ; es:bx -> buffer
|
||||
clusloop:
|
||||
; eax = first cluster, top of stack contains limit in sectors
|
||||
mov esi, eax ; remember current cluster
|
||||
xor ecx, ecx ; ecx will contain number of consecutive clusters
|
||||
mov [cur_delta], ecx
|
||||
mov edi, eax
|
||||
clusfind:
|
||||
inc edi
|
||||
inc ecx
|
||||
call get_next_cluster
|
||||
jnc clusread
|
||||
cmp eax, edi
|
||||
jz clusfind
|
||||
stc
|
||||
clusread:
|
||||
pop di ; limit in sectors
|
||||
movzx edi, di
|
||||
push eax ; save next cluster
|
||||
pushf ; save flags
|
||||
; read cx clusters, starting from si
|
||||
; calculate number of sectors
|
||||
xchg eax, ecx
|
||||
call clustersz2sectorsz
|
||||
mov [num_sectors], eax
|
||||
jmp @f
|
||||
continue_load_file:
|
||||
les bx, [di] ; es:bx -> buffer
|
||||
movzx edi, word [di+4] ; di = limit in 4K blocks
|
||||
shl di, 3 ; now di = limit in sectors
|
||||
mov eax, [num_sectors]
|
||||
mov esi, [cur_cluster]
|
||||
push [next_cluster]
|
||||
push [flags]
|
||||
test eax, eax
|
||||
jz nextclus
|
||||
@@:
|
||||
; eax = number of sectors; compare with limit
|
||||
cmp eax, edi
|
||||
seta dl
|
||||
push dx ; limit was exceeded?
|
||||
jbe @f
|
||||
mov eax, edi
|
||||
@@:
|
||||
sub di, ax ; calculate new limit
|
||||
sub [num_sectors], eax
|
||||
mov [cur_cluster], esi
|
||||
; calculate starting sector
|
||||
push ax
|
||||
xchg eax, esi
|
||||
call cluster2sector
|
||||
pop cx
|
||||
add eax, [cur_delta]
|
||||
add [cur_delta], ecx
|
||||
; read
|
||||
call [read_sectors2]
|
||||
pop dx
|
||||
; next cluster?
|
||||
nextclus:
|
||||
popf
|
||||
pop eax
|
||||
mov [next_cluster], eax
|
||||
pushf
|
||||
pop [flags]
|
||||
jnc @f ; no next cluster => return
|
||||
mov dl, 1 ; dh=0 in any case
|
||||
test di, di
|
||||
jz @f ; if there is next cluster but current limit is 0 => return: limit exceeded
|
||||
push di
|
||||
jmp clusloop ; all is ok, continue
|
||||
hooked_err:
|
||||
mov sp, 7C00h-14-2 ; restore stack
|
||||
mov dx, 3 ; return: read error
|
||||
@@:
|
||||
mov bx, dx
|
||||
mov ax, [filesize]
|
||||
mov dx, [filesize+2]
|
||||
ret
|
||||
|
||||
scan_for_filename:
|
||||
; in: ss:si -> 11-bytes FAT name
|
||||
; in: ds:0 -> part of directory data
|
||||
; in: cx = number of entries
|
||||
; in: bh = 0
|
||||
; out: if found: CF=0, ZF=1, es:di -> directory entry
|
||||
; out: if not found, but continue required: CF=1 and ZF=0
|
||||
; out: if not found and zero item reached: CF=1 and ZF=1
|
||||
push ds
|
||||
pop es
|
||||
xor di, di
|
||||
push cx
|
||||
jcxz snoent
|
||||
sloop:
|
||||
cmp byte [di], bh
|
||||
jz snotfound
|
||||
test byte [di+11], 8 ; volume label?
|
||||
jnz scont ; ignore volume labels
|
||||
pusha
|
||||
mov cx, 11
|
||||
repz cmps byte [ss:si], byte [es:di]
|
||||
popa
|
||||
jz sdone
|
||||
scont:
|
||||
add di, 0x20
|
||||
loop sloop
|
||||
snoent:
|
||||
inc cx ; clear ZF flag
|
||||
snotfound:
|
||||
stc
|
||||
sdone:
|
||||
pop cx
|
||||
lrdret:
|
||||
ret
|
||||
|
||||
; Callback function for secondary loader
|
||||
callback:
|
||||
; in: ax = function number; only functions 1 and 2 are defined for now
|
||||
; save caller's stack
|
||||
mov dx, ss
|
||||
mov cx, sp
|
||||
; set our stack (required because we need ss=0)
|
||||
xor si, si
|
||||
mov ss, si
|
||||
mov sp, 7C00h-10
|
||||
mov bp, 7C00h
|
||||
push dx
|
||||
push cx
|
||||
; call our function
|
||||
stc ; unsupported function
|
||||
dec ax
|
||||
jz callback_readfile
|
||||
dec ax
|
||||
jnz callback_ret
|
||||
; function 2: continue loading file
|
||||
; can be called only after function 1 returned value bx=1 (only part of file was loaded)
|
||||
; in: ds:di -> information structure
|
||||
; dw:dw address
|
||||
; dw limit in 4Kb blocks (0x1000 bytes) (must be non-zero and not greater than 0x100)
|
||||
; out: bx=0 - ok, bx=1 - still only part of file was loaded, bx=3 - read error
|
||||
; out: dx:ax = file size
|
||||
call continue_load_file
|
||||
jmp callback_ret_succ
|
||||
callback_readfile:
|
||||
; function 1: read file
|
||||
; in: ds:di -> information structure
|
||||
; dw:dw address
|
||||
; dw limit in 4Kb blocks (0x1000 bytes) (must be non-zero and not greater than 0x100)
|
||||
; ASCIIZ name
|
||||
; out: bx=0 - ok, bx=1 - file is too big, only part of file was loaded, bx=2 - file not found, bx=3 - read error
|
||||
; out: dx:ax = file size (0xFFFFFFFF if file was not found)
|
||||
call load_file
|
||||
callback_ret_succ:
|
||||
clc ; function is supported
|
||||
callback_ret:
|
||||
; restore caller's stack
|
||||
pop cx
|
||||
pop ss
|
||||
mov sp, cx
|
||||
; return to caller
|
||||
retf
|
||||
|
||||
secondary_loader_info:
|
||||
dw 0, 0x1000
|
||||
dw 0x30000 / 0x1000
|
||||
db 'kord/loader',0
|
||||
aKernelNotFound db 'Fatal error: cannot load the secondary loader',0
|
||||
|
||||
;if $ > 0x8200
|
||||
;error 'total size of kordldr.f32 must not exceed 1024 bytes!'
|
||||
;end if
|
||||
|
||||
;foldcache_clus dd 0,0,0,0,0,0,0,0 ; start with no folders in cache
|
||||
;foldcache_mark dw 0
|
||||
; rw 7
|
||||
;foldcache_size rw 8
|
||||
foldcache_clus rd 8
|
||||
foldcache_mark rw 8
|
||||
foldcache_size rw 8
|
@ -1,49 +0,0 @@
|
||||
include "mkfloppy.inc"
|
||||
;// insert boot sect
|
||||
file "fat1x/bootsect.bin", 512
|
||||
|
||||
; fat1
|
||||
db 0F0h, 0FFh, 0FFh, 9*512-3 dup 0
|
||||
; fat2
|
||||
db 0F0h, 0FFh, 0FFh, 9*512-3 dup 0
|
||||
|
||||
; root
|
||||
dent kordldr, "KORDLDR F1X", FA_ARC
|
||||
dent kord, "KORD ",FA_DIR
|
||||
dent kolibri, "KOLIBRI ",FA_DIR
|
||||
; ...
|
||||
|
||||
rb 33*512-$
|
||||
;///////////////////////////
|
||||
defdir kord
|
||||
{
|
||||
dent loader, "LOADER ", FA_ARC
|
||||
dent ini,"STARTOS INI", FA_ARC
|
||||
}
|
||||
|
||||
defdir kolibri
|
||||
{
|
||||
dent kolibri_ldm, "KOLIBRI LDM", FA_ARC
|
||||
}
|
||||
|
||||
|
||||
; data
|
||||
stof kordldr, "fat1x/kordldr.f1x"
|
||||
stod kord,root
|
||||
|
||||
stof loader, "../loader"
|
||||
stof ini,"../startos.ini"
|
||||
|
||||
store dword ini_base/512+1 at ini_base+1F8h
|
||||
store word (ini_size+511)/512-1 at ini_base+1FCh
|
||||
store word 220h at ini_base+1FEh
|
||||
|
||||
stod kolibri,root
|
||||
stof kolibri_ldm, "../kolibri_ldm/bin/kolibri.ldm"
|
||||
store dword kolibri_ldm_base/512+1 at kolibri_ldm_base+1F8h
|
||||
store word (kolibri_ldm_size+511)/512-1 at kolibri_ldm_base+1FCh
|
||||
store word 220h at kolibri_ldm_base+1FEh
|
||||
|
||||
|
||||
; ...
|
||||
rb 2*80*18*512-$
|
@ -1,90 +0,0 @@
|
||||
; ---------------------------------------------------------------------------
|
||||
; mkfloppy.inc
|
||||
; ---------------------------------------------------------------------------
|
||||
; Created by Phantom-84
|
||||
; ---------------------------------------------------------------------------
|
||||
|
||||
FA_RO equ 01h
|
||||
FA_HID equ 02h
|
||||
FA_SYS equ 04h
|
||||
FA_VOL equ 08h
|
||||
FA_DIR equ 10h
|
||||
FA_ARC equ 20h
|
||||
|
||||
DSTAMP equ 28C1h
|
||||
TSTAMP equ 6000h
|
||||
|
||||
root_size=0
|
||||
|
||||
macro reset id
|
||||
{
|
||||
local count, cur, disp, val, var
|
||||
times 511-($+511) mod 512 db 0
|
||||
if id#_size>0
|
||||
count=(id#_size+511)/512
|
||||
cur=id#_base/512-(33-2)
|
||||
repeat count
|
||||
if %=count
|
||||
val=0FFFh
|
||||
else
|
||||
val=cur+1
|
||||
end if
|
||||
if cur and 1
|
||||
val=val shl 4
|
||||
end if
|
||||
disp=(cur*3)/2
|
||||
load var word from 512+disp
|
||||
var=var or val
|
||||
store word var at 512+disp
|
||||
store word var at 10*512+disp
|
||||
cur=cur+1
|
||||
end repeat
|
||||
end if
|
||||
}
|
||||
|
||||
macro dent id, name, attr
|
||||
{
|
||||
@@ db name
|
||||
times @b+11-$ db 32
|
||||
db attr
|
||||
dw 0, TSTAMP, DSTAMP, DSTAMP, 0, TSTAMP, DSTAMP
|
||||
if id#_size=0
|
||||
dw 0
|
||||
else
|
||||
dw id#_base/512-(33-2)
|
||||
end if
|
||||
if (attr) and FA_DIR
|
||||
dd 0
|
||||
else
|
||||
dd id#_size
|
||||
end if
|
||||
}
|
||||
|
||||
macro orgdir id, parentid
|
||||
{
|
||||
id#_base:
|
||||
dent id, ".", FA_DIR
|
||||
dent parentid, "..", FA_DIR
|
||||
}
|
||||
|
||||
macro findir id
|
||||
{
|
||||
id#_size=$-id#_base
|
||||
reset id
|
||||
}
|
||||
|
||||
macro stod id, parentid
|
||||
{
|
||||
orgdir id, parentid
|
||||
id
|
||||
findir id
|
||||
}
|
||||
|
||||
macro stof id, name
|
||||
{
|
||||
id#_base: file name
|
||||
id#_size=$-id#_base
|
||||
reset id
|
||||
}
|
||||
|
||||
defdir fix macro
|
@ -1,68 +0,0 @@
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
;======================================================================
|
||||
;
|
||||
; BOOT DATA
|
||||
;
|
||||
;======================================================================
|
||||
|
||||
|
||||
version db 'Secondary Loader v 0.010',0
|
||||
version_end:
|
||||
|
||||
select_section db 'Select section:'
|
||||
select_section_end:
|
||||
section_description db 'Section description:'
|
||||
section_description_end:
|
||||
soft_mes db 'Soft (c) 2008-2009'
|
||||
soft_mes_end:
|
||||
|
||||
badprocessor db '>Fatal - CPU 586+ required.',0
|
||||
error_ini_f1 db '>Error: cannot load ini file, buffer is full',0
|
||||
error_ini_f2 db '>Error: ini file not found',0
|
||||
error_ini_f3 db '>Error: cannot read ini file',0
|
||||
error_ini_nf db '>Error: unrecognized error when loading ini file',0
|
||||
not_found_sec_loader db '>Not found section [loader]',0
|
||||
not_found_def_sect db '>Not found value default in section [loader]',0
|
||||
default_eq_loader db '>Error in section [loader] parametr default=loader',0
|
||||
found_equal_default db '>Found equal parametr default will be use first value',0
|
||||
found_equal_timeout db '>Found equal parametr timeout will be use first value',0
|
||||
set_default_timeout_val db '>Section timeout has incorrect value, will be use default value',0
|
||||
error_ini_common db ">I will use predefined settings and try to boot. Let's hope for the best..."
|
||||
db 13,10,"Press any key to continue...",0
|
||||
load_ini db '>Ini file loaded successfully',0
|
||||
parse_ini_end db '>End parsing ini file',0
|
||||
point_to_default_sec_not_found db '>Point to default section is not found in ini file',0
|
||||
incorect_section_define db ">Incorect section define not found ']'",0
|
||||
default_section_name db '"Section unname"'
|
||||
|
||||
start_msg db "Press any key to change default section, press [Enter] to continue booting"
|
||||
start_msg_e:
|
||||
time_msg db "or wait 4 seconds before default continuation"
|
||||
time_msg_e:
|
||||
time_str db "seconds before default continuation"
|
||||
time_str_e:
|
@ -1,4 +0,0 @@
|
||||
@fasm -m 65535 loader.asm loader
|
||||
@echo off
|
||||
REM @fasm -m 65535 loader.asm loader > loader.lst
|
||||
REM @pause
|
@ -1,77 +0,0 @@
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
;Òóò îïðåäåëåíû âñå ñîîáùåíèÿ, êîòîðûå íóæíû â ïðîöåññå îòëàäêè, è ñîâñåì íå íóæíû â ðàáî÷åé êîïèè ïðîãðàììû.
|
||||
If DEBUG
|
||||
cseg_msg db ' - Adress of code segment',0
|
||||
stack_msg db 'Set stack & segments is have completed',0
|
||||
show_string db 'Have loaded size:'
|
||||
show_decode db ' ',0
|
||||
show_db1 db ' -Message debug1',0
|
||||
show_db2 db ' -Message debug2',0
|
||||
|
||||
|
||||
lm_l_found db '[loader] is found',0
|
||||
lm_lf_timeout db 'timeout is found',0
|
||||
lm_lf_default db 'name default is found and end parsing section',0
|
||||
lm_lf_section db 'found section [',0
|
||||
lm_lf_default_f db 'found default parametr',0
|
||||
lm_l_end db 'section [loader] is end',0
|
||||
show_all_sect db 'SHOW ALL Sections',0
|
||||
no_show_only_w db 'Not show sections - only work on default sect',0
|
||||
_not_found db '[ not found',0
|
||||
_found_1 db '[] found',0
|
||||
_found_2 db '[ found',0
|
||||
say_hello db 'Hello $)',0
|
||||
ramdiskFS_st db 'Start use_RamdiskFS macros',0
|
||||
free_memory_msg db ' -Kb availability system free memory',0
|
||||
RamdiskSize_msg db ' -Kb equal RamdiskSize',0
|
||||
RamdiskSector_msg db ' -byts RamdiskSector',0
|
||||
RamdiskCluster_msg db ' -RamdiskCluster',0
|
||||
RamdiskFile_msg db ' -size RamdiskFile',0
|
||||
fat_create_msg db ' -first create fat table, point to next block',0
|
||||
BPB_msg db ' -in byte, why we get data from move BPB struct',0
|
||||
firstDataSect_msg db ' -first data sector, offset to data in sectors',0
|
||||
size_root_dir_msg db ' -size root dir in sectrors',0
|
||||
DataClasters_msg db ' -size data in Clasters',0
|
||||
first_entry_in_fat db ' -data segment in FIRST entry FAT',0
|
||||
check_root_fat_ db ' : --------------',0
|
||||
check_name_fat_msg_y db 'Name is present that is BAD',0
|
||||
check_name_fat_msg_n db 'Name is not present that is GOOD',0
|
||||
name_of_seg_get_64 db ' -name of seg where we get 64 Kb of data',0
|
||||
convertion_file_name_msg_y db '->Destination name of file is GOOD',0
|
||||
convertion_file_name_msg_n db '->Destination name of file is BAD',0
|
||||
alarm_msg db '%%%%%%%% WARNING: MISS THE FILE %%%%%%%%%%%',0
|
||||
start_making_FAT12_msg db '>>>>>> Begin make a RAMDISK and FS after 1 Mb <<<<<<<',0
|
||||
make_fat12_RFS_msg db '-Make FAT12 Ram FS',0
|
||||
get_type_FS_msg db '-End make RamDisk',0
|
||||
seg_where_get_data db ' - Segment where we get data for move up file',0
|
||||
return_code_af_move db ' -return code after 0x87 int 0x15, move block',0
|
||||
return_code_af_fat_m db ' -return code after 0x87 int 0x15, move fat struc',0
|
||||
|
||||
|
||||
|
||||
end if
|
Binary file not shown.
@ -1,98 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;; booteng.asm the module for Secondary Loader ;;
|
||||
;; ;;
|
||||
;; KolibriOS 16-bit loader module, ;;
|
||||
;; based on bootcode for KolibriOS ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;======================================================================
|
||||
;
|
||||
; BOOT DATA
|
||||
;
|
||||
;======================================================================
|
||||
|
||||
d80x25_bottom:
|
||||
db 186,' KolibriOS is based on MenuetOS and comes with ABSOLUTELY '
|
||||
db 'NO WARRANTY ',186
|
||||
db 186,' See file COPYING for details '
|
||||
db ' ',186
|
||||
line_full_bottom
|
||||
d80x25_bottom_num = 3
|
||||
|
||||
msg_apm db " APM x.x ", 0
|
||||
vervesa db "Version of Vesa: Vesa x.x",13,10,0
|
||||
novesa db "Display: EGA/CGA",13,10,0
|
||||
s_vesa db "Version of VESA: "
|
||||
.ver db "?.?",13,10,0
|
||||
|
||||
gr_mode db "Select a videomode: ",13,10,0
|
||||
|
||||
vrrmprint db "Apply VRR? (picture frequency greater than 60Hz"
|
||||
db " only for transfers:",13,10
|
||||
db 186," 1024*768->800*600 and 800*600->640*480) [1-yes,2-no]:",0
|
||||
|
||||
|
||||
ask_bd db "Add disks visible by BIOS emulated in V86-mode? [1-yes, 2-no]: ",0
|
||||
|
||||
bdev db "Load ramdisk from [1-floppy; 2-C:\kolibri.img (FAT32);"
|
||||
db 13,10,186," "
|
||||
db "3-use preloaded ram-image from kernel restart;"
|
||||
db 13,10,186," "
|
||||
db "4-create blank image]: ",0
|
||||
probetext db 13,10,13,10,186," Use standart graphics mode? [1-yes, "
|
||||
db "2-probe bios (Vesa 3.0)]: ",0
|
||||
prnotfnd db "Fatal - Videomode not found.",0
|
||||
not386 db "Fatal - CPU 386+ required.",0
|
||||
btns db "Fatal - Can't determine color depth.",0
|
||||
fatalsel db "Fatal - Graphics mode not supported by hardware.",0
|
||||
pres_key db "Press any key to choose a new videomode.",0
|
||||
badsect db 13,10,186," Fatal - Bad sector. Replace floppy.",0
|
||||
memmovefailed db 13,10,186," Fatal - Int 0x15 move failed.",0
|
||||
okt db " ... OK"
|
||||
linef db 13,10,0
|
||||
diskload db "Loading diskette: 00 %",8,8,8,8,0
|
||||
pros db "00"
|
||||
backspace2 db 8,8,0
|
||||
boot_dev db 0 ; 0=floppy, 1=hd
|
||||
start_msg db "Press [abc] to change settings, press [Enter] to continue booting",13,10,0
|
||||
time_msg db " or wait "
|
||||
time_str db " 5 seconds"
|
||||
db " before automatical continuation",13,10,0
|
||||
current_cfg_msg db "Current settings:",13,10,0
|
||||
curvideo_msg db " [a] Videomode: ",0
|
||||
|
||||
mode0 db "320x200, EGA/CGA 256 colors",13,10,0
|
||||
mode9 db "640x480, VGA 16 colors",13,10,0
|
||||
|
||||
usebd_msg db " [b] Add disks visible by BIOS:",0
|
||||
on_msg db " on",13,10,0
|
||||
off_msg db " off",13,10,0
|
||||
;readonly_msg db " only for reading",13,10,0
|
||||
vrrm_msg db " [c] Use VRR:",0
|
||||
preboot_device_msg db " [d] Floppy image: ",0
|
||||
preboot_device_msgs dw 0,pdm1,pdm2,pdm3
|
||||
pdm1 db "real floppy",13,10,0
|
||||
pdm2 db "C:\kolibri.img (FAT32)",13,10,0
|
||||
pdm3 db "use already loaded image",13,10,0
|
||||
pdm4 db "create blank image",13,10,0
|
||||
loading_msg db "Loading KolibriOS...",0
|
||||
save_quest db "Remember current settings? [y/n]: ",0
|
||||
loader_block_error db "Bootloader data invalid, I cannot continue. Stopped.",0
|
||||
|
||||
_st db 186,' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄ¿',13,10,0
|
||||
_r1 db 186,' ³ 320x200 EGA/CGA 256 colors ³ ³',13,10,0
|
||||
_r2 db 186,' ³ 640x480 VGA 16 colors ³ ³',13,10,0
|
||||
_rs db 186,' ³ ????x????@?? SVGA VESA ³ ³',13,10,0
|
||||
_bt db 186,' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÙ',13,10,0
|
||||
|
||||
remark1 db "Default values were selected to match most of configurations, but not all.",0
|
||||
remark2 db "If you have LCD-monitor, disable VRR in the item [c] - you do not need it.",0
|
||||
remark3 db "If the system does not boot, try to disable the item [b].",0
|
||||
remarks dw remark1, remark2, remark3
|
||||
num_remarks = 3
|
@ -1,119 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;; kolibri_ldm.asm the module for Secondary Loader ;;
|
||||
;; ;;
|
||||
;; KolibriOS 16-bit loader module, ;;
|
||||
;; based on bootcode for KolibriOS ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;======================================================================
|
||||
;
|
||||
; BOOT DATA
|
||||
;
|
||||
;======================================================================
|
||||
|
||||
|
||||
d80x25_bottom:
|
||||
db 186,' KolibriOS based on MenuetOS and comes with ABSOLUTELY '
|
||||
db 'NO WARRANTY ',186
|
||||
db 186,' See file COPYING for details '
|
||||
db ' ',186
|
||||
line_full_bottom
|
||||
d80x25_bottom_num = 3
|
||||
|
||||
novesa db "Ekraan: EGA/CGA",13,10,0
|
||||
vervesa db "Vesa versioon: Vesa x.x",13,10,0
|
||||
vervesa_off=20
|
||||
msg_apm db " APM x.x ", 0
|
||||
gr_mode db 186," Vesa 2.0+ 16 M LFB: [1] 640x480, [2] 800x600, "
|
||||
db "[3] 1024x768, [4] 1280x1024",13,10
|
||||
db 186," Vesa 1.2 16 M Bnk: [5] 640x480, [6] 800x600, "
|
||||
db "[7] 1024x768, [8] 1280x1024",13,10
|
||||
db 186," EGA/CGA 256 värvi: [9] 320x200, "
|
||||
db "VGA 16 värvi: [0] 640x480",13,10
|
||||
db 186," Vali reziim: ",0
|
||||
bt24 db "Bitti pikseli kohta: 24",13,10,0
|
||||
bt32 db "Bitti pikseli kohta: 32",13,10,0
|
||||
vrrmprint db "Kinnita VRR? (ekraani sagedus suurem kui 60Hz"
|
||||
db " ainult:",13,10
|
||||
db 186," 1024*768->800*600 ja 800*600->640*480) [1-jah,2-ei]:",0
|
||||
;askmouse db " Hiir:"
|
||||
; db " [1] PS/2 (USB), [2] Com1, [3] Com2."
|
||||
; db " Vali port [1-3]: ",0
|
||||
;no_com1 db 13,10,186, " No COM1 mouse",0
|
||||
;no_com2 db 13,10,186, " No COM2 mouse",0
|
||||
;ask_dma db "Use DMA for HDD access? [1-yes, 2-only for reading, 3-no]: ",0
|
||||
ask_bd db "Add disks visible by BIOS emulated in V86-mode? [1-yes, 2-no]: ",0
|
||||
;gr_direct db 186," Use direct LFB writing? "
|
||||
; db "[1-yes/2-no] ? ",0
|
||||
;mem_model db 13,10,186," Motherboard memory [1-16 Mb / 2-32 Mb / "
|
||||
; db "3-64Mb / 4-128 Mb / 5-256 Mb] ? ",0
|
||||
;bootlog db 13,10,186," After bootlog display [1-continue/2-pause] ? ",0
|
||||
bdev db "Paigalda mäluketas [1-diskett; 2-C:\kolibri.img (FAT32);"
|
||||
db 13,10,186," "
|
||||
db "3-kasuta eellaaditud mäluketast kerneli restardist;"
|
||||
db 13,10,186," "
|
||||
db "4-loo tühi pilt]: ",0
|
||||
probetext db 13,10,13,10,186," Kasuta standartset graafika reziimi? [1-jah, "
|
||||
db "2-leia biosist (Vesa 3.0)]: ",0
|
||||
;memokz256 db 13,10,186," RAM 256 Mb",0
|
||||
;memokz128 db 13,10,186," RAM 128 Mb",0
|
||||
;memokz64 db 13,10,186," RAM 64 Mb",0
|
||||
;memokz32 db 13,10,186," RAM 32 Mb",0
|
||||
;memokz16 db 13,10,186," RAM 16 Mb",0
|
||||
prnotfnd db "Fataalne - Videoreziimi ei leitud.",0
|
||||
;modena db "Fataalne - VBE 0x112+ on vajalik.",0
|
||||
not386 db "Fataalne - CPU 386+ on vajalik.",0
|
||||
btns db "Fataalne - Ei suuda värvisügavust määratleda.",0
|
||||
fatalsel db "Fataalne - Graafilist reziimi riistvara ei toeta.",0
|
||||
badsect db 13,10,186," Fataalne - Vigane sektor. Asenda diskett.",0
|
||||
memmovefailed db 13,10,186," Fataalne - Int 0x15 liigutamine ebaõnnestus.",0
|
||||
okt db " ... OK"
|
||||
linef db 13,10,0
|
||||
diskload db "Loen disketti: 00 %",8,8,8,8,0
|
||||
pros db "00"
|
||||
backspace2 db 8,8,0
|
||||
boot_dev db 0 ; 0=floppy, 1=hd
|
||||
start_msg db "Vajuta [abcd] seadete muutmiseks, vajuta [Enter] laadimise jätkamiseks",13,10,0
|
||||
time_msg db " või oota "
|
||||
time_str db " 5 sekundit"
|
||||
db " automaatseks jätkamiseks",13,10,0
|
||||
current_cfg_msg db "Praegused seaded:",13,10,0
|
||||
curvideo_msg db " [a] Videoreziim: ",0
|
||||
mode1 db "640x480",0
|
||||
mode2 db "800x600",0
|
||||
mode3 db "1024x768",0
|
||||
mode4 db "1280x1024",0
|
||||
modes_msg dw mode4,mode1,mode2,mode3
|
||||
modevesa20 db " koos LFB",0
|
||||
modevesa12 db ", VESA 1.2 Bnk",0
|
||||
mode9 db "320x200, EGA/CGA 256 värvi",0
|
||||
mode10 db "640x480, VGA 16 värvi",0
|
||||
probeno_msg db " (standard reziim)",0
|
||||
probeok_msg db " (kontrolli ebastandardseid reziime)",0
|
||||
;dma_msg db " [b] Kasuta DMA'd HDD juurdepääsuks:",0
|
||||
usebd_msg db " [b] Add disks visible by BIOS:",0
|
||||
on_msg db " sees",13,10,0
|
||||
off_msg db " väljas",13,10,0
|
||||
;readonly_msg db " ainult lugemiseks",13,10,0
|
||||
vrrm_msg db " [c] Kasuta VRR:",0
|
||||
preboot_device_msg db " [d] Disketi kujutis: ",0
|
||||
preboot_device_msgs dw 0,pdm1,pdm2,pdm3
|
||||
pdm1 db "reaalne diskett",13,10,0
|
||||
pdm2 db "C:\kolibri.img (FAT32)",13,10,0
|
||||
pdm3 db "kasuta juba laaditud kujutist",13,10,0
|
||||
pdm4 db "loo tühi pilt",13,10,0
|
||||
loading_msg db "Laadin KolibriOS...",0
|
||||
save_quest db "Jäta meelde praegused seaded? [y/n]: ",0
|
||||
loader_block_error db "Alglaaduri andmed vigased, ei saa jätkata. Peatatud.",0
|
||||
|
||||
remark1 db "Default values were selected to match most of configurations, but not all.",0
|
||||
remark2 db "If you have LCD-monitor, disable VRR in the item [c] - you do not need it.",0
|
||||
remark3 db "If the system does not boot, try to disable the item [b].",0
|
||||
remarks dw remark1, remark2, remark3
|
||||
num_remarks = 3
|
@ -1,118 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;======================================================================
|
||||
;
|
||||
; BOOT DATA
|
||||
;
|
||||
;======================================================================
|
||||
|
||||
|
||||
d80x25_bottom:
|
||||
; db 186,' KolibriOS based on MenuetOS and comes with ABSOLUTELY '
|
||||
; db 'NO WARRANTY ',186
|
||||
; db 186,' See file COPYING for details '
|
||||
; db ' ',186
|
||||
|
||||
db 186,' KolibriOS basiert auf MenuetOS und wird ohne jegliche '
|
||||
db ' Garantie vertrieben ',186
|
||||
db 186,' Details stehen in der Datei COPYING '
|
||||
db ' ',186
|
||||
line_full_bottom
|
||||
d80x25_bottom_num = 3
|
||||
|
||||
novesa db "Anzeige: EGA/CGA ",13,10,0
|
||||
vervesa db "Vesa-Version: Vesa ",13,10,0
|
||||
vervesa_off=22
|
||||
msg_apm db " APM x.x ", 0
|
||||
gr_mode db 186," Vesa 2.0+ 16 M LFB: [1] 640x480, [2] 800x600, "
|
||||
db "[3] 1024x768, [4] 1280x1024",13,10
|
||||
db 186," Vesa 1.2 16 M Bnk: [5] 640x480, [6] 800x600, "
|
||||
db "[7] 1024x768, [8] 1280x1024",13,10
|
||||
db 186," EGA/CGA 256 Farben: [9] 320x200, "
|
||||
db "VGA 16 Farben: [0] 640x480",13,10
|
||||
db 186," Waehle Modus: ",0
|
||||
bt24 db "Bits Per Pixel: 24",13,10,0
|
||||
bt32 db "Bits Per Pixel: 32",13,10,0
|
||||
vrrmprint db "VRR verwenden? (Monitorfrequenz groesser als 60Hz"
|
||||
db " only for transfers:",13,10
|
||||
db 186," 1024*768->800*600 und 800*600->640*480) [1-ja,2-nein]:",0
|
||||
;askmouse db " Maus angeschlossen an:"
|
||||
; db " [1] PS/2 (USB), [2] Com1, [3] Com2."
|
||||
; db " Waehle Port [1-3]: ",0
|
||||
;no_com1 db 13,10,186, " Keine COM1 Maus",0
|
||||
;no_com2 db 13,10,186, " Keine COM2 Maus",0
|
||||
;ask_dma db "Nutze DMA zum HDD Zugriff? [1-ja, 2-allein fur Lesen, 3-nein]: ",0
|
||||
ask_bd db "Add disks visible by BIOS emulated in V86-mode? [1-yes, 2-no]: ",0
|
||||
;gr_direct db 186," Benutze direct LFB? "
|
||||
; db "[1-ja/2-nein] ? ",0
|
||||
;mem_model db 13,10,186," Hauptspeicher [1-16 Mb / 2-32 Mb / "
|
||||
; db "3-64Mb / 4-128 Mb / 5-256 Mb] ? ",0
|
||||
;bootlog db 13,10,186," After bootlog display [1-continue/2-pause] ? ",0
|
||||
bdev db "Lade die Ramdisk von [1-Diskette; 2-C:\kolibri.img (FAT32);"
|
||||
db 13,10,186," "
|
||||
db "3-benutze ein bereits geladenes Kernel image;"
|
||||
db 13,10,186," "
|
||||
db "4-create blank image]: ",0
|
||||
probetext db 13,10,13,10,186," Nutze Standardgrafikmodi? [1-ja, "
|
||||
db "2-BIOS Test (Vesa 3.0)]: ",0
|
||||
;memokz256 db 13,10,186," RAM 256 Mb",0
|
||||
;memokz128 db 13,10,186," RAM 128 Mb",0
|
||||
;memokz64 db 13,10,186," RAM 64 Mb",0
|
||||
;memokz32 db 13,10,186," RAM 32 Mb",0
|
||||
;memokz16 db 13,10,186," RAM 16 Mb",0
|
||||
prnotfnd db "Fatal - Videomodus nicht gefunden.",0
|
||||
;modena db "Fatal - VBE 0x112+ required.",0
|
||||
not386 db "Fatal - CPU 386+ benoetigt.",0
|
||||
btns db "Fatal - konnte Farbtiefe nicht erkennen.",0
|
||||
fatalsel db "Fatal - Grafikmodus nicht unterstuetzt.",0
|
||||
badsect db 13,10,186," Fatal - Sektorfehler, Andere Diskette neutzen.",0
|
||||
memmovefailed db 13,10,186," Fatal - Int 0x15 Fehler.",0
|
||||
okt db " ... OK"
|
||||
linef db 13,10,0
|
||||
diskload db "Lade Diskette: 00 %",8,8,8,8,0
|
||||
pros db "00"
|
||||
backspace2 db 8,8,0
|
||||
boot_dev db 0 ; 0=floppy, 1=hd
|
||||
start_msg db "Druecke [abcd], um die Einstellungen zu aendern , druecke [Enter] zum starten",13,10,0
|
||||
time_msg db " oder warte "
|
||||
time_str db " 5 Sekunden"
|
||||
db " bis zum automatischen Start",13,10,0
|
||||
current_cfg_msg db "Aktuelle Einstellungen:",13,10,0
|
||||
curvideo_msg db " [a] Videomodus: ",0
|
||||
mode1 db "640x480",0
|
||||
mode2 db "800x600",0
|
||||
mode3 db "1024x768",0
|
||||
mode4 db "1280x1024",0
|
||||
modes_msg dw mode4,mode1,mode2,mode3
|
||||
modevesa20 db " mit LFB",0
|
||||
modevesa12 db ", VESA 1.2 Bnk",0
|
||||
mode9 db "320x200, EGA/CGA 256 colors",0
|
||||
mode10 db "640x480, VGA 16 colors",0
|
||||
probeno_msg db " (Standard Modus)",0
|
||||
probeok_msg db " (teste nicht-standard Modi)",0
|
||||
;dma_msg db " [b] Nutze DMA zum HDD Aufschreiben:",0
|
||||
usebd_msg db " [b] Add disks visible by BIOS:",0
|
||||
on_msg db " an",13,10,0
|
||||
off_msg db " aus",13,10,0
|
||||
;readonly_msg db " fur Lesen",13,10,0
|
||||
vrrm_msg db " [c] Nutze VRR:",0
|
||||
preboot_device_msg db " [d] Diskettenimage: ",0
|
||||
preboot_device_msgs dw 0,pdm1,pdm2,pdm3
|
||||
pdm1 db "Echte Diskette",13,10,0
|
||||
pdm2 db "C:\kolibri.img (FAT32)",13,10,0
|
||||
pdm3 db "Nutze bereits geladenes Image",13,10,0
|
||||
pdm4 db "create blank image",13,10,0
|
||||
loading_msg db "Lade KolibriOS...",0
|
||||
save_quest db "Aktuelle Einstellungen speichern? [y/n]: ",0
|
||||
loader_block_error db "Bootloader Daten ungueltig, Kann nicht fortfahren. Angehalten.",0
|
||||
|
||||
remark1 db "Default values were selected to match most of configurations, but not all.",0
|
||||
remark2 db "If you have LCD-monitor, disable VRR in the item [c] - you do not need it.",0
|
||||
remark3 db "If the system does not boot, try to disable the item [b].",0
|
||||
remarks dw remark1, remark2, remark3
|
||||
num_remarks = 3
|
@ -1,87 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2008. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;=================================================================
|
||||
;
|
||||
; BOOT DATA
|
||||
;
|
||||
;=================================================================
|
||||
|
||||
|
||||
d80x25_bottom:
|
||||
db 186,' Kolibri OS ®á®¢ Menuet OS ¨ ¥ ¯à¥¤®áâ ¢«ï¥â '
|
||||
db '¨ª ª¨å £ àa⨩. ',186
|
||||
db 186,' <20>®¤à®¡¥¥ ᬮâà¨â¥ ¢ ä ©«¥ COPYING.TXT '
|
||||
db ' ',186
|
||||
line_full_bottom
|
||||
msg_apm db " APM x.x ", 0
|
||||
novesa db "‚¨¤¥®ª àâ : EGA/CGA",13,10,0
|
||||
s_vesa db "‚¥àá¨ï VESA: "
|
||||
.ver db "?.?",13,10,0
|
||||
|
||||
gr_mode db "‚ë¡¥à¨â¥ ¢¨¤¥®à¥¦¨¬: ",13,10,0
|
||||
vrrmprint db "ˆá¯®«ì§®¢ âì VRR? (ç áâ®â ª ¤à®¢ ¢ëè¥ 60 ƒæ"
|
||||
db " ⮫쪮 ¤«ï ¯¥à¥å®¤®¢:",13,10
|
||||
db 186," 1024*768>800*600 ¨ 800*600>640*480) [1-¤ , 2-¥â]: ",0
|
||||
;ask_dma db "ˆá¯®«ì§®¢ âì DMA ¤«ï ¤®áâ㯠ª HDD? [1-¤ , 2-⮫쪮 ç⥨¥, 3-¥â]: ",0
|
||||
ask_bd db "„®¡ ¢¨âì ¤¨áª¨, ¢¨¤¨¬ë¥ ç¥à¥§ BIOS ¢ ०¨¬¥ V86? [1-¤ , 2-¥â]: ",0
|
||||
bdev db "‡ £à㧨âì ®¡à § ¨§ [1-¤¨áª¥â ; 2-C:\kolibri.img (FAT32);"
|
||||
db 13,10,186," "
|
||||
db "3-¨á¯®«ì§®¢ âì 㦥 § £àã¦¥ë© ®¡à §;"
|
||||
db 13,10,186," "
|
||||
db "4-ᮧ¤ âì ç¨áâë© ®¡à §]: ",0
|
||||
prnotfnd db "Žè¨¡ª - ‚¨¤¥®à¥¦¨¬ ¥ ©¤¥.",0
|
||||
not386 db "Žè¨¡ª - ’ॡã¥âáï ¯à®æ¥áá®à 386+.",0
|
||||
fatalsel db "Žè¨¡ª - ‚ë¡à ë© ¢¨¤¥®à¥¦¨¬ ¥ ¯®¤¤¥à¦¨¢ ¥âáï.",0
|
||||
pres_key db "<EFBFBD> ¦¨¬¨â¥ «î¡ãî ª« ¢¨èã, ¤«ï ¯¥à¥å®¤ ¢ ¢ë¡®à ०¨¬®¢.",0
|
||||
badsect db 13,10,186," Žè¨¡ª - „¨áª¥â ¯®¢à¥¦¤¥ . <20>®¯à®¡ã©â¥ ¤àã£ãî.",0
|
||||
memmovefailed db 13,10,186," Žè¨¡ª - Int 0x15 move failed.",0
|
||||
okt db " ... OK"
|
||||
linef db 13,10,0
|
||||
diskload db "‡ £à㧪 ¤¨áª¥âë: 00 %",8,8,8,8,0
|
||||
pros db "00"
|
||||
backspace2 db 8,8,0
|
||||
boot_dev db 0
|
||||
start_msg db "<EFBFBD> ¦¬¨â¥ [abc] ¤«ï ¨§¬¥¥¨ï áâ஥ª, [Enter] ¤«ï ¯à®¤®«¦¥¨ï § £à㧪¨",13,10,0
|
||||
time_msg db " ¨«¨ ¯®¤®¦¤¨â¥ "
|
||||
time_str db " 5 ᥪ㤠"
|
||||
db " ¤® ¢â®¬ â¨ç¥áª®£® ¯à®¤®«¦¥¨ï",13,10,0
|
||||
current_cfg_msg db "’¥ªã騥 áâனª¨:",13,10,0
|
||||
curvideo_msg db " [a] ‚¨¤¥®à¥¦¨¬: ",0
|
||||
|
||||
|
||||
mode0 db "320x200, EGA/CGA 256 梥⮢",13,10,0
|
||||
mode9 db "640x480, VGA 16 梥⮢",13,10,0
|
||||
|
||||
usebd_msg db " [b] „®¡ ¢¨âì ¤¨áª¨, ¢¨¤¨¬ë¥ ç¥à¥§ BIOS:",0
|
||||
on_msg db " ¢ª«",13,10,0
|
||||
off_msg db " ¢ëª«",13,10,0
|
||||
readonly_msg db " ⮫쪮 ç⥨¥",13,10,0
|
||||
vrrm_msg db " [c] ˆá¯®«ì§®¢ ¨¥ VRR:",0
|
||||
;preboot_device_msg db " [d] Ž¡à § ¤¨áª¥âë: ",0
|
||||
;preboot_device_msgs dw 0,pdm1,pdm2,pdm3,pdm4
|
||||
;pdm1 db " áâ®ïé ï ¤¨áª¥â ",13,10,0
|
||||
;pdm2 db "C:\kolibri.img (FAT32)",13,10,0
|
||||
;pdm3 db "¨á¯®«ì§®¢ âì 㦥 § £àã¦¥ë© ®¡à §",13,10,0
|
||||
;pdm4 db "ᮧ¤ âì ç¨áâë© ®¡à §",13,10,0
|
||||
loading_msg db "ˆ¤ñâ § £à㧪 KolibriOS...",0
|
||||
save_quest db "‡ ¯®¬¨âì ⥪ã騥 áâனª¨? [y/n]: ",0
|
||||
loader_block_error db "Žè¨¡ª ¢ ¤ ëå ç «ì®£® § £àã§ç¨ª , ¯à®¤®«¦¥¨¥ ¥¢®§¬®¦®.",0
|
||||
|
||||
|
||||
_st db 186,' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄ¿ ',13,10,0
|
||||
_r1 db 186,' ³ 320x200 EGA/CGA 256 梥⮢ ³ ³ ',13,10,0
|
||||
_r2 db 186,' ³ 640x480 VGA 16 梥⮢ ³ ³ ',13,10,0
|
||||
_rs db 186,' ³ ????x????@?? SVGA VESA ³ ³ ',13,10,0
|
||||
_bt db 186,' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÙ ',13,10,0
|
||||
|
||||
|
||||
remark1 db "‡ ç¥¨ï ¯® 㬮«ç ¨î ¢ë¡à ë ¤«ï 㤮¡á⢠¡®«ìè¨á⢠, ® ¥ ¢á¥å.",0
|
||||
remark2 db "…᫨ ã ‚ á LCD-¬®¨â®à, ®âª«îç¨â¥ VRR ¢ ¯ãªâ¥ [c] - ® ‚ ¬ ¥ 㦥.",0
|
||||
remark3 db "…᫨ ã ‚ á ¥ £à㧨âáï á¨á⥬ , ¯®¯à®¡ã©â¥ ®âª«îç¨âì ¯ãªâ [b].",0
|
||||
remarks dw remark1, remark2, remark3
|
||||
num_remarks = 3
|
@ -1,55 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
|
||||
; boot data: common strings (for all languages)
|
||||
macro line_full_top {
|
||||
db 201
|
||||
times 78 db 205
|
||||
db 187
|
||||
}
|
||||
macro line_full_bottom {
|
||||
db 200
|
||||
times 78 db 205
|
||||
db 188
|
||||
}
|
||||
macro line_half {
|
||||
db 186,' '
|
||||
times 76 db 0xc4
|
||||
db ' ',186
|
||||
}
|
||||
macro line_space {
|
||||
db 186
|
||||
times 78 db 32
|
||||
db 186
|
||||
}
|
||||
d80x25_top:
|
||||
line_full_top
|
||||
cur_line_pos = 75
|
||||
; store byte ' ' at d80x25_top+cur_line_pos+1
|
||||
; store byte ' ' at d80x25_top+cur_line_pos
|
||||
; store dword ' SVN' at d80x25_top+cur_line_pos-4
|
||||
|
||||
space_msg: line_space
|
||||
;verstr:
|
||||
; line_space
|
||||
; version string
|
||||
; db 186,32
|
||||
; repeat 78
|
||||
; load a byte from version+%-1
|
||||
; if a = 13
|
||||
; break
|
||||
; end if
|
||||
; db a
|
||||
; end repeat
|
||||
; repeat 78 - ($-verstr)
|
||||
; db ' '
|
||||
; end repeat
|
||||
; db 32,186
|
||||
; line_half
|
||||
|
@ -1,754 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
struc VBE_VGAInfo {
|
||||
.VESASignature dd ? ; char
|
||||
.VESAVersion dw ? ; short
|
||||
.OemStringPtr dd ? ; char *
|
||||
.Capabilities dd ? ; ulong
|
||||
.VideoModePtr dd ? ; ulong
|
||||
.TotalMemory dw ? ; short
|
||||
; VBE 2.0+
|
||||
.OemSoftwareRev db ? ; short
|
||||
.OemVendorNamePtr dw ? ; char *
|
||||
.OemProductNamePtr dw ? ; char *
|
||||
.OemProductRevPtr dw ? ; char *
|
||||
.reserved rb 222 ; char
|
||||
.OemData rb 256 ; char
|
||||
}
|
||||
|
||||
struc VBE_ModeInfo {
|
||||
.ModeAttributes dw ? ; short
|
||||
.WinAAttributes db ? ; char
|
||||
.WinBAttributes db ? ; char
|
||||
.WinGranularity dw ? ; short
|
||||
.WinSize dw ? ; short
|
||||
.WinASegment dw ? ; ushort
|
||||
.WinBSegment dw ? ; ushort
|
||||
.WinFuncPtr dd ? ; void *
|
||||
.BytesPerScanLine dw ? ; short
|
||||
.XRes dw ? ; short
|
||||
.YRes dw ? ; short
|
||||
.XCharSize db ? ; char
|
||||
.YCharSize db ? ; char
|
||||
.NumberOfPlanes db ? ; char
|
||||
.BitsPerPixel db ? ; char
|
||||
.NumberOfBanks db ? ; char
|
||||
.MemoryModel db ? ; char
|
||||
.BankSize db ? ; char
|
||||
.NumberOfImagePages db ? ; char
|
||||
.res1 db ? ; char
|
||||
.RedMaskSize db ? ; char
|
||||
.RedFieldPosition db ? ; char
|
||||
.GreenMaskSize db ? ; char
|
||||
.GreenFieldPosition db ? ; char
|
||||
.BlueMaskSize db ? ; char
|
||||
.BlueFieldPosition db ? ; char
|
||||
.RsvedMaskSize db ? ; char
|
||||
.RsvedFieldPosition db ? ; char
|
||||
.DirectColorModeInfo db ? ; char ; MISSED IN THIS TUTORIAL!! SEE ABOVE
|
||||
; VBE 2.0+
|
||||
.PhysBasePtr dd ? ; ulong
|
||||
.OffScreenMemOffset dd ? ; ulong
|
||||
.OffScreenMemSize dw ? ; short
|
||||
; VBE 3.0+
|
||||
.LinbytesPerScanLine dw ? ; short
|
||||
.BankNumberOfImagePages db ? ; char
|
||||
.LinNumberOfImagePages db ? ; char
|
||||
.LinRedMaskSize db ? ; char
|
||||
.LinRedFieldPosition db ? ; char
|
||||
.LingreenMaskSize db ? ; char
|
||||
.LinGreenFieldPosition db ? ; char
|
||||
.LinBlueMaskSize db ? ; char
|
||||
.LinBlueFieldPosition db ? ; char
|
||||
.LinRsvdMaskSize db ? ; char
|
||||
.LinRsvdFieldPosition db ? ; char
|
||||
.MaxPixelClock dd ? ; ulong
|
||||
.res2 rb 190 ; char
|
||||
}
|
||||
|
||||
virtual at $A000
|
||||
vi VBE_VGAInfo
|
||||
mi VBE_ModeInfo
|
||||
modes_table:
|
||||
end virtual
|
||||
cursor_pos dw 0 ;âðåìåííîå õðàíåíèå êóðñîðà.
|
||||
home_cursor dw 0 ;current shows rows a table
|
||||
end_cursor dw 0 ;end of position current shows rows a table
|
||||
scroll_start dw 0 ;start position of scroll bar
|
||||
scroll_end dw 0 ;end position of scroll bar
|
||||
long_v_table equ 9 ;long of visible video table
|
||||
size_of_step equ 10
|
||||
scroll_area_size equ (long_v_table-2)
|
||||
int2str:
|
||||
dec bl
|
||||
jz @f
|
||||
xor edx,edx
|
||||
div ecx
|
||||
push edx
|
||||
call int2str
|
||||
pop eax
|
||||
@@: or al,0x30
|
||||
mov [ds:di],al
|
||||
inc di
|
||||
ret
|
||||
|
||||
int2strnz:
|
||||
cmp eax,ecx
|
||||
jb @f
|
||||
xor edx,edx
|
||||
div ecx
|
||||
push edx
|
||||
call int2strnz
|
||||
pop eax
|
||||
@@: or al,0x30
|
||||
mov [es:di],al
|
||||
inc di
|
||||
ret
|
||||
|
||||
;-------------------------------------------------------
|
||||
;Write message about incorrect v_mode and write message about jmp on swith v_mode
|
||||
v_mode_error:
|
||||
_setcursor 19,2
|
||||
mov si, fatalsel
|
||||
call printplain
|
||||
_setcursor 20,2
|
||||
mov si,pres_key
|
||||
call printplain
|
||||
xor eax,eax
|
||||
int 16h
|
||||
jmp cfgmanager.d
|
||||
;-------------------------------------------------------
|
||||
;
|
||||
|
||||
|
||||
|
||||
;-------------------------------------------------------
|
||||
print_vesa_info:
|
||||
_setcursor 5,2
|
||||
|
||||
mov [es:vi.VESASignature],'VBE2'
|
||||
mov ax,0x4F00
|
||||
mov di,vi ;0xa000
|
||||
int 0x10
|
||||
or ah,ah
|
||||
jz @f
|
||||
mov [es:vi.VESASignature],'VESA'
|
||||
mov ax,$4F00
|
||||
mov di,vi
|
||||
int 0x10
|
||||
or ah,ah
|
||||
jnz .exit
|
||||
@@:
|
||||
cmp [es:vi.VESASignature],'VESA'
|
||||
jne .exit
|
||||
cmp [es:vi.VESAVersion],0x0100
|
||||
jb .exit
|
||||
jmp .vesaok2
|
||||
|
||||
.exit:
|
||||
mov si,novesa
|
||||
call printplain
|
||||
ret
|
||||
|
||||
.vesaok2:
|
||||
mov ax,[es:vi.VESAVersion]
|
||||
add ax,'00'
|
||||
|
||||
mov [s_vesa.ver], ah
|
||||
mov [s_vesa.ver+2], al
|
||||
mov si,s_vesa
|
||||
call printplain
|
||||
|
||||
_setcursor 4,2
|
||||
mov si,word[es:vi.OemStringPtr]
|
||||
mov di,si
|
||||
|
||||
push ds
|
||||
mov ds,word[es:vi.OemStringPtr+2]
|
||||
call printplain
|
||||
pop ds
|
||||
|
||||
ret
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
calc_vmodes_table:
|
||||
pushad
|
||||
|
||||
; push 0
|
||||
; pop es
|
||||
|
||||
lfs si, [es:vi.VideoModePtr]
|
||||
|
||||
mov bx,modes_table
|
||||
;save no vesa mode of work 320x200, EGA/CGA 256 梥⮢ and 640x480, VGA 16 梥⮢
|
||||
mov word [es:bx],640
|
||||
mov word [es:bx+2],480
|
||||
mov word [es:bx+6],0x13
|
||||
|
||||
mov word [es:bx+10],640
|
||||
mov word [es:bx+12],480
|
||||
mov word [es:bx+16],0x12
|
||||
add bx,20
|
||||
.next_mode:
|
||||
mov cx,word [fs:si] ; mode number
|
||||
cmp cx,-1
|
||||
je .modes_ok.2
|
||||
|
||||
mov ax,0x4F01
|
||||
mov di,mi
|
||||
int 0x10
|
||||
|
||||
or ah,ah
|
||||
jnz .modes_ok.2;vesa_info.exit
|
||||
|
||||
test [es:mi.ModeAttributes],00000001b ;videomode support ?
|
||||
jz @f
|
||||
test [es:mi.ModeAttributes],00010000b ;picture ?
|
||||
jz @f
|
||||
test [es:mi.ModeAttributes],10000000b ;LFB ?
|
||||
jz @f
|
||||
|
||||
cmp [es:mi.BitsPerPixel], 24 ;It show only videomodes to have support 24 and 32 bpp
|
||||
jb @f
|
||||
|
||||
; cmp [es:mi.BitsPerPixel],16
|
||||
; jne .l0
|
||||
; cmp [es:mi.GreenMaskSize],5
|
||||
; jne .l0
|
||||
; mov [es:mi.BitsPerPixel],15
|
||||
|
||||
|
||||
.l0:
|
||||
cmp [es:mi.XRes],640
|
||||
jb @f
|
||||
cmp [es:mi.YRes],480
|
||||
jb @f
|
||||
; cmp [es:mi.BitsPerPixel],8
|
||||
; jb @f
|
||||
|
||||
mov ax,[es:mi.XRes]
|
||||
mov [es:bx+0],ax ; +0[2] : resolution X
|
||||
mov ax,[es:mi.YRes]
|
||||
mov [es:bx+2],ax ; +2[2] : resolution Y
|
||||
mov ax,[es:mi.ModeAttributes]
|
||||
mov [es:bx+4],ax ; +4[2] : attributes
|
||||
|
||||
cmp [s_vesa.ver],'2'
|
||||
jb .lp1
|
||||
|
||||
or cx,0x4000 ; use LFB
|
||||
.lp1: mov [es:bx+6],cx ; +6 : mode number
|
||||
movzx ax,byte [es:mi.BitsPerPixel]
|
||||
mov word [es:bx+8],ax ; +8 : bits per pixel
|
||||
add bx,size_of_step ; size of record
|
||||
|
||||
@@:
|
||||
add si,2
|
||||
jmp .next_mode
|
||||
|
||||
.modes_ok.2:
|
||||
|
||||
mov word[es:bx],-1 ;end video table
|
||||
mov word[end_cursor],bx ;save end cursor position
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
;Sort array
|
||||
; mov si,modes_table
|
||||
;.new_mode:
|
||||
; mov ax,word [es:si]
|
||||
; cmp ax,-1
|
||||
; je .exxit
|
||||
; add ax,word [es:si+2]
|
||||
; add ax,word [es:si+8]
|
||||
; mov bp,si
|
||||
;.again:
|
||||
; add bp,12
|
||||
; mov bx,word [es:bp]
|
||||
; cmp bx,-1
|
||||
; je .exit
|
||||
; add bx,word [es:bp+2]
|
||||
; add bx,word [es:bp+8]
|
||||
;
|
||||
; cmp ax,bx
|
||||
; ja .loops
|
||||
; jmp .again
|
||||
;.loops:
|
||||
; push dword [es:si]
|
||||
; push dword [es:si+4]
|
||||
; push dword [es:si+8]
|
||||
; push dword [es:bp]
|
||||
; push dword [es:bp+4]
|
||||
; push dword [es:bp+8]
|
||||
;
|
||||
; pop dword [es:si+8]
|
||||
; pop dword [es:si+4]
|
||||
; pop dword [es:si]
|
||||
; pop dword [es:bp+8]
|
||||
; pop dword [es:bp+4]
|
||||
; pop dword [es:bp]
|
||||
; jmp .new_mode
|
||||
;
|
||||
;.exit: add si,12
|
||||
; jmp .new_mode
|
||||
;.exxit:
|
||||
popad
|
||||
ret
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
draw_current_vmode:
|
||||
push 0
|
||||
pop es
|
||||
|
||||
mov si,word [cursor_pos]
|
||||
|
||||
cmp word [es:si+6],0x12
|
||||
je .no_vesa_0x12
|
||||
|
||||
cmp word [es:si+6],0x13
|
||||
je .no_vesa_0x13
|
||||
|
||||
mov di,loader_block_error
|
||||
movzx eax,word[es:si+0]
|
||||
mov ecx,10
|
||||
call int2strnz
|
||||
mov byte[es:di],'x'
|
||||
inc di
|
||||
movzx eax,word[es:si+2]
|
||||
call int2strnz
|
||||
mov byte[es:di],'x'
|
||||
inc di
|
||||
movzx eax,word[es:si+8]
|
||||
call int2strnz
|
||||
mov dword[es:di],0x00000d0a
|
||||
mov si,loader_block_error
|
||||
push ds
|
||||
push es
|
||||
pop ds
|
||||
call printplain
|
||||
pop ds
|
||||
ret
|
||||
.no_vesa_0x13:
|
||||
mov si,mode0
|
||||
jmp .print
|
||||
.no_vesa_0x12:
|
||||
mov si,mode9
|
||||
.print:
|
||||
call printplain
|
||||
ret
|
||||
;-----------------------------------------------------------------------------
|
||||
check_first_parm:
|
||||
mov si,word [preboot_graph]
|
||||
test si,si
|
||||
jnz .no_zero ;if no zero
|
||||
.zerro:
|
||||
; mov ax,modes_table
|
||||
; mov word [cursor_pos],ax
|
||||
; mov word [home_cursor],ax
|
||||
; mov word [preboot_graph],ax
|
||||
;SET default video of mode first probe will fined a move of work 1024x768@32
|
||||
|
||||
mov ax,1024
|
||||
mov bx,768
|
||||
mov si,modes_table
|
||||
call .loops
|
||||
test ax,ax
|
||||
jz .ok_found_mode
|
||||
mov ax,800
|
||||
mov bx,600
|
||||
mov si,modes_table
|
||||
call .loops
|
||||
test ax,ax
|
||||
jz .ok_found_mode
|
||||
mov ax,640
|
||||
mov bx,480
|
||||
mov si,modes_table
|
||||
call .loops
|
||||
test ax,ax
|
||||
jz .ok_found_mode
|
||||
|
||||
mov si,modes_table
|
||||
jmp .ok_found_mode
|
||||
|
||||
|
||||
|
||||
.no_zero:
|
||||
mov bp,word [number_vm]
|
||||
cmp bp,word [es:si+6]
|
||||
jz .ok_found_mode
|
||||
mov ax,word [x_save]
|
||||
mov bx,word [y_save]
|
||||
mov si,modes_table
|
||||
call .loops
|
||||
test ax,ax
|
||||
jz .ok_found_mode
|
||||
|
||||
mov si,modes_table
|
||||
; cmp ax,modes_table
|
||||
; jb .zerro ;check on correct if bellow
|
||||
; cmp ax,word [end_cursor]
|
||||
; ja .zerro ;check on correct if anymore
|
||||
|
||||
.ok_found_mode:
|
||||
mov word [home_cursor],si
|
||||
; mov word [cursor_pos],si
|
||||
mov word [preboot_graph],si
|
||||
mov ax,si
|
||||
|
||||
mov ecx,long_v_table
|
||||
|
||||
.loop: add ax,size_of_step
|
||||
cmp ax,word [end_cursor]
|
||||
jae .next_step
|
||||
loop .loop
|
||||
.next_step:
|
||||
sub ax,size_of_step*long_v_table
|
||||
cmp ax,modes_table
|
||||
jae @f
|
||||
mov ax,modes_table
|
||||
@@:
|
||||
|
||||
mov word [home_cursor],ax
|
||||
mov si,[preboot_graph]
|
||||
mov word [cursor_pos],si
|
||||
|
||||
push word [es:si]
|
||||
pop word [x_save]
|
||||
push word [es:si+2]
|
||||
pop word [y_save]
|
||||
push word [es:si+6]
|
||||
pop word [number_vm]
|
||||
|
||||
ret
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
.loops:
|
||||
cmp ax,word [es:si]
|
||||
jne .next
|
||||
cmp bx,word [es:si+2]
|
||||
jne .next
|
||||
cmp word [es:si+8],32
|
||||
je .ok
|
||||
cmp word [es:si+8],24
|
||||
je .ok
|
||||
.next: add si,size_of_step
|
||||
cmp word [es:si],-1
|
||||
je .exit
|
||||
jmp .loops
|
||||
.ok: xor ax,ax
|
||||
ret
|
||||
.exit: or ax,-1
|
||||
ret
|
||||
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
;default_vmode:
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
draw_vmodes_table:
|
||||
_setcursor 9, 2
|
||||
mov si,gr_mode
|
||||
call printplain
|
||||
|
||||
mov si,_st
|
||||
call printplain
|
||||
|
||||
push word [cursor_pos]
|
||||
pop ax
|
||||
push word [home_cursor]
|
||||
pop si
|
||||
mov cx,si
|
||||
|
||||
cmp ax,si
|
||||
je .ok
|
||||
jb .low
|
||||
|
||||
|
||||
add cx,size_of_step*long_v_table
|
||||
|
||||
cmp ax,cx
|
||||
jb .ok
|
||||
|
||||
sub cx,size_of_step*long_v_table
|
||||
add cx,size_of_step
|
||||
cmp cx,word[end_cursor]
|
||||
jae .ok
|
||||
add si,size_of_step
|
||||
push si
|
||||
pop word [home_cursor]
|
||||
jmp .ok
|
||||
|
||||
|
||||
.low: sub cx,size_of_step
|
||||
cmp cx,modes_table
|
||||
jb .ok
|
||||
push cx
|
||||
push cx
|
||||
pop word [home_cursor]
|
||||
pop si
|
||||
|
||||
|
||||
.ok:
|
||||
; calculate scroll position
|
||||
push si
|
||||
mov ax, [end_cursor]
|
||||
sub ax, modes_table
|
||||
mov bx, size_of_step
|
||||
cwd
|
||||
div bx
|
||||
mov si, ax ; si = size of list
|
||||
mov ax, [home_cursor]
|
||||
sub ax, modes_table
|
||||
cwd
|
||||
div bx
|
||||
mov di, ax
|
||||
mov ax, scroll_area_size*long_v_table
|
||||
cwd
|
||||
div si
|
||||
test ax, ax
|
||||
jnz @f
|
||||
inc ax
|
||||
@@:
|
||||
cmp al, scroll_area_size
|
||||
jb @f
|
||||
mov al, scroll_area_size
|
||||
@@:
|
||||
mov cx, ax
|
||||
; cx = scroll height
|
||||
; calculate scroll pos
|
||||
xor bx, bx ; initialize scroll pos
|
||||
sub al, scroll_area_size+1
|
||||
neg al
|
||||
sub si, long_v_table-1
|
||||
jbe @f
|
||||
mul di
|
||||
div si
|
||||
mov bx, ax
|
||||
@@:
|
||||
inc bx
|
||||
imul ax, bx, size_of_step
|
||||
add ax, [home_cursor]
|
||||
mov [scroll_start], ax
|
||||
imul cx, size_of_step
|
||||
add ax, cx
|
||||
mov [scroll_end], ax
|
||||
pop si
|
||||
mov bp,long_v_table ;show rows
|
||||
.@@_next_bit:
|
||||
;clear cursor
|
||||
mov ax,' '
|
||||
mov word[ds:_r1+21],ax
|
||||
mov word[ds:_r1+50],ax
|
||||
|
||||
mov word[ds:_r2+21],ax
|
||||
mov word[ds:_r2+45],ax
|
||||
|
||||
mov word[ds:_rs+21],ax
|
||||
mov word[ds:_rs+46],ax
|
||||
; draw string
|
||||
cmp word [es:si+6],0x12
|
||||
je .show_0x12
|
||||
cmp word [es:si+6],0x13
|
||||
je .show_0x13
|
||||
|
||||
movzx eax,word[es:si]
|
||||
cmp ax,-1
|
||||
je .@@_end
|
||||
mov di,_rs+23
|
||||
mov ecx,10
|
||||
mov bl,4
|
||||
call int2str
|
||||
movzx eax,word[es:si+2]
|
||||
inc di
|
||||
mov bl,4
|
||||
call int2str
|
||||
|
||||
movzx eax,word[es:si+8]
|
||||
inc di
|
||||
mov bl,2
|
||||
call int2str
|
||||
|
||||
cmp si, word [cursor_pos]
|
||||
jne .next
|
||||
;draw cursor
|
||||
mov word[ds:_rs+21],'>>'
|
||||
mov word[ds:_rs+46],'<<'
|
||||
|
||||
|
||||
|
||||
.next:
|
||||
push si
|
||||
mov si,_rs
|
||||
.@@_sh:
|
||||
; add to the string pseudographics for scrollbar
|
||||
pop bx
|
||||
push bx
|
||||
mov byte [si+53], ' '
|
||||
cmp bx, [scroll_start]
|
||||
jb @f
|
||||
cmp bx, [scroll_end]
|
||||
jae @f
|
||||
mov byte [si+53], 0xDB ; filled bar
|
||||
@@:
|
||||
push bx
|
||||
add bx, size_of_step
|
||||
cmp bx, [end_cursor]
|
||||
jnz @f
|
||||
mov byte [si+53], 31 ; 'down arrow' symbol
|
||||
@@:
|
||||
sub bx, [home_cursor]
|
||||
cmp bx, size_of_step*long_v_table
|
||||
jnz @f
|
||||
mov byte [si+53], 31 ; 'down arrow' symbol
|
||||
@@:
|
||||
pop bx
|
||||
cmp bx, [home_cursor]
|
||||
jnz @f
|
||||
mov byte [si+53], 30 ; 'up arrow' symbol
|
||||
@@:
|
||||
call printplain
|
||||
pop si
|
||||
add si,size_of_step
|
||||
|
||||
dec bp
|
||||
jnz .@@_next_bit
|
||||
|
||||
.@@_end:
|
||||
mov si,_bt
|
||||
call printplain
|
||||
ret
|
||||
.show_0x13:
|
||||
push si
|
||||
|
||||
cmp si, word [cursor_pos]
|
||||
jne @f
|
||||
mov word[ds:_r1+21],'>>'
|
||||
mov word[ds:_r1+50],'<<'
|
||||
@@:
|
||||
mov si,_r1
|
||||
jmp .@@_sh
|
||||
.show_0x12:
|
||||
push si
|
||||
cmp si, word [cursor_pos]
|
||||
jne @f
|
||||
|
||||
mov word[ds:_r2+21],'>>'
|
||||
mov word[ds:_r2+45],'<<'
|
||||
@@:
|
||||
mov si,_r2
|
||||
jmp .@@_sh
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
;Clear arrea of current video page (0xb800)
|
||||
clear_vmodes_table:
|
||||
pusha
|
||||
; draw frames
|
||||
push es
|
||||
push 0xb800
|
||||
pop es
|
||||
mov di,1444
|
||||
xor ax,ax
|
||||
mov ah, 1*16+15
|
||||
mov cx,70
|
||||
mov bp,12
|
||||
.loop_start:
|
||||
rep stosw
|
||||
mov cx,70
|
||||
add di,20
|
||||
dec bp
|
||||
jns .loop_start
|
||||
pop es
|
||||
popa
|
||||
ret
|
||||
|
||||
;-----------------------------------------------------------------------------
|
||||
|
||||
set_vmode:
|
||||
push 0 ;0;x1000
|
||||
pop es
|
||||
|
||||
mov si,word [preboot_graph] ;[preboot_graph]
|
||||
mov cx,word [es:si+6] ; number of mode
|
||||
|
||||
|
||||
mov ax,word [es:si+0] ; resolution X
|
||||
mov bx,word [es:si+2] ; resolution Y
|
||||
|
||||
|
||||
mov word [es:0x900A],ax ; resolution X
|
||||
mov word [es:0x900C],bx ; resolution Y
|
||||
mov word [es:0x9008],cx ; number of mode
|
||||
|
||||
cmp cx,0x12
|
||||
je .mode0x12_0x13
|
||||
cmp cx,0x13
|
||||
je .mode0x12_0x13
|
||||
|
||||
|
||||
cmp byte [s_vesa.ver],'2'
|
||||
jb .vesa12
|
||||
|
||||
; VESA 2 and Vesa 3
|
||||
|
||||
mov ax,0x4f01
|
||||
and cx,0xfff
|
||||
mov di,mi;0xa000
|
||||
int 0x10
|
||||
; LFB
|
||||
mov eax,[es:mi.PhysBasePtr];di+0x28]
|
||||
mov [es:0x9018],eax
|
||||
; ---- vbe voodoo
|
||||
BytesPerLine equ 0x10
|
||||
mov ax, [es:di+BytesPerLine]
|
||||
mov [es:0x9001], ax
|
||||
; BPP
|
||||
cmp [es:mi.BitsPerPixel],16
|
||||
jne .l0
|
||||
cmp [es:mi.GreenMaskSize],5
|
||||
jne .l0
|
||||
mov [es:mi.BitsPerPixel],15
|
||||
.l0:
|
||||
mov al, byte [es:di+0x19]
|
||||
mov [es:0x9000], al
|
||||
jmp .exit
|
||||
|
||||
.mode0x12_0x13:
|
||||
mov byte [es:0x9000], 32
|
||||
or dword [es:0x9018], 0xFFFFFFFF; 0x800000
|
||||
|
||||
|
||||
; VESA 1.2 PM BANK SWITCH ADDRESS
|
||||
|
||||
.vesa12:
|
||||
|
||||
|
||||
mov ax,0x4f0A
|
||||
xor bx,bx
|
||||
int 0x10
|
||||
xor eax,eax
|
||||
xor ebx,ebx
|
||||
mov ax,es
|
||||
shl eax,4
|
||||
mov bx,di
|
||||
add eax,ebx
|
||||
movzx ebx,word[es:di]
|
||||
add eax,ebx
|
||||
push 0x0000
|
||||
pop es
|
||||
mov [es:0x9014],eax
|
||||
.exit:
|
||||
ret
|
||||
|
||||
|
||||
; mov dword[es:0x9018],0x000A0000
|
||||
; ret
|
||||
|
||||
;=============================================================================
|
||||
;=============================================================================
|
||||
;=============================================================================
|
||||
|
@ -1,89 +0,0 @@
|
||||
@echo off
|
||||
|
||||
set languages=en ru ge et
|
||||
call :Check_Lang %1
|
||||
for %%a in (ru) do if %%a==%target%
|
||||
call :Target_%target%
|
||||
|
||||
if ERRORLEVEL 0 goto Exit_OK
|
||||
|
||||
echo There was an error executing script.
|
||||
echo For any help, please send a report.
|
||||
pause
|
||||
goto :eof
|
||||
|
||||
|
||||
|
||||
|
||||
:Check_Lang
|
||||
set res=%1
|
||||
:Check_Lang_loop
|
||||
for %%a in (%languages%) do if %%a==%res% set lang=%res%
|
||||
if defined lang call :make_all goto :eof
|
||||
|
||||
echo Language '%res%' is incorrect
|
||||
echo Enter valid language [ %languages% ]:
|
||||
|
||||
set /P res=">
|
||||
goto Check_Lang_loop
|
||||
goto :eof
|
||||
|
||||
|
||||
:make_all
|
||||
echo *** building module Kolibri.ldm for Secondary Loader with language '%lang%' ...
|
||||
|
||||
if not exist bin mkdir bin
|
||||
echo lang fix %lang% > lang.inc
|
||||
fasm -m 65536 kolibri_ldm.asm bin\kolibri.ldm
|
||||
if not %errorlevel%==0 goto :Error_FasmFailed
|
||||
erase lang.inc
|
||||
goto Exit_OK
|
||||
|
||||
|
||||
:Target_all
|
||||
call :Target_kernel
|
||||
call :Target_drivers
|
||||
call :Target_skins
|
||||
goto :eof
|
||||
|
||||
|
||||
:Target_drivers
|
||||
echo *** building drivers ...
|
||||
|
||||
if not exist bin\drivers mkdir bin\drivers
|
||||
cd drivers
|
||||
for %%a in (%drivers%) do (
|
||||
fasm -m 65536 %%a.asm ..\bin\drivers\%%a.obj
|
||||
if not %errorlevel%==0 goto :Error_FasmFailed
|
||||
)
|
||||
cd ..
|
||||
move bin\drivers\vmode.obj bin\drivers\vmode.mdr
|
||||
goto :eof
|
||||
|
||||
|
||||
:Target_skins
|
||||
echo *** building skins ...
|
||||
|
||||
if not exist bin\skins mkdir bin\skins
|
||||
cd skin
|
||||
fasm -m 65536 default.asm ..\bin\skins\default.skn
|
||||
if not %errorlevel%==0 goto :Error_FasmFailed
|
||||
cd ..
|
||||
goto :eof
|
||||
|
||||
:Target_clean
|
||||
echo *** cleaning ...
|
||||
rmdir /S /Q bin
|
||||
goto :Exit_OK
|
||||
|
||||
|
||||
:Error_FasmFailed
|
||||
echo error: fasm execution failed
|
||||
erase lang.inc
|
||||
pause
|
||||
exit 1
|
||||
|
||||
:Exit_OK
|
||||
echo all operations has been done
|
||||
pause
|
||||
exit 0
|
@ -1,14 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
; Full ASCII code font
|
||||
; only õ and ä added
|
||||
; Kaitz
|
||||
ET_FNT:
|
||||
fontfile file "ETFONT.FNT"
|
||||
|
@ -1,808 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Last modify Alexey Teplov <Lrz> 2008. All rights reserved. ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;; kolibri_ldm.asm the module for Secondary Loader ;;
|
||||
;; ;;
|
||||
;; KolibriOS 16-bit loader module, ;;
|
||||
;; based on bootcode for KolibriOS ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
include "lang.inc"
|
||||
|
||||
macro _setcursor row,column
|
||||
{
|
||||
mov dx, row*256 + column
|
||||
call setcursor
|
||||
}
|
||||
long_v_table equ 9 ;long of visible video table
|
||||
size_of_step equ 10
|
||||
d80x25_bottom_num equ 3
|
||||
d80x25_top_num equ 4
|
||||
;It's a module for Secondary Loader to load kolibri OS
|
||||
;
|
||||
start_of_code:
|
||||
cld
|
||||
; \begin{diamond}[02.12.2005]
|
||||
; if bootloader sets ax = 'KL', then ds:si points to loader block
|
||||
; cmp ax, 'KL'
|
||||
; jnz @f
|
||||
; mov word [cs:cfgmanager.loader_block], si
|
||||
; mov word [cs:cfgmanager.loader_block+2], ds
|
||||
;@@:
|
||||
; \end{diamond}[02.12.2005]
|
||||
|
||||
; if bootloader sets cx = 'HA' and dx = 'RD', then bx contains identifier of source hard disk
|
||||
; (see comment to bx_from_load)
|
||||
; cmp cx, 'HA'
|
||||
; jnz no_hd_load
|
||||
; cmp dx,'RD'
|
||||
; jnz no_hd_load
|
||||
; mov word [cs:bx_from_load], bx ; {SPraid}[13.03.2007]
|
||||
;no_hd_load:
|
||||
|
||||
; set up stack
|
||||
push cs
|
||||
pop ss
|
||||
xor ax,ax
|
||||
mov sp,ax
|
||||
; mov ax, 3000h
|
||||
; mov ss, ax
|
||||
; mov sp, 0EC00h
|
||||
; set up segment registers
|
||||
push cs
|
||||
pop ds
|
||||
push cs
|
||||
pop es
|
||||
|
||||
; set videomode
|
||||
mov ax, 3
|
||||
int 0x10
|
||||
|
||||
;if lang eq ru
|
||||
; Load & set russian VGA font (RU.INC)
|
||||
mov bp, RU_FNT1 ; RU_FNT1 - First part
|
||||
mov bx, 1000h ; 768 bytes
|
||||
mov cx, 30h ; 48 symbols
|
||||
mov dx, 80h ; 128 - position of first symbol
|
||||
mov ax, 1100h
|
||||
int 10h
|
||||
|
||||
mov bp, RU_FNT2 ; RU_FNT2 -Second part
|
||||
mov bx, 1000h ; 512 bytes
|
||||
mov cx, 20h ; 32 symbols
|
||||
mov dx, 0E0h ; 224 - position of first symbol
|
||||
mov ax, 1100h
|
||||
int 10h
|
||||
; End set VGA russian font
|
||||
;else if lang eq et
|
||||
; mov bp, ET_FNT ; ET_FNT1
|
||||
; mov bx, 1000h ;
|
||||
; mov cx, 255 ; 256 symbols
|
||||
; xor dx, dx ; 0 - position of first symbol
|
||||
; mov ax, 1100h
|
||||
; int 10h
|
||||
;end if
|
||||
|
||||
; draw frames
|
||||
push 0xb800
|
||||
pop es
|
||||
xor di, di
|
||||
mov ah, 1*16+15
|
||||
|
||||
; draw top
|
||||
mov si, d80x25_top
|
||||
mov cx, d80x25_top_num * 80
|
||||
@@:
|
||||
lodsb
|
||||
stosw
|
||||
loop @b
|
||||
; draw spaces
|
||||
mov si, space_msg
|
||||
mov dx, 25 - d80x25_top_num - d80x25_bottom_num
|
||||
dfl1:
|
||||
push si
|
||||
mov cx, 80
|
||||
@@:
|
||||
lodsb
|
||||
stosw
|
||||
loop @b
|
||||
pop si
|
||||
dec dx
|
||||
jnz dfl1
|
||||
; draw bottom
|
||||
mov si, d80x25_bottom
|
||||
mov cx, d80x25_bottom_num * 80
|
||||
@@:
|
||||
lodsb
|
||||
stosw
|
||||
loop @b
|
||||
|
||||
mov byte [space_msg+80], 0 ; now space_msg is null terminated
|
||||
|
||||
_setcursor d80x25_top_num,0
|
||||
|
||||
|
||||
; TEST FOR 386+
|
||||
|
||||
mov bx, 0x4000
|
||||
pushf
|
||||
pop ax
|
||||
mov dx, ax
|
||||
xor ax, bx
|
||||
push ax
|
||||
popf
|
||||
pushf
|
||||
pop ax
|
||||
and ax, bx
|
||||
and dx, bx
|
||||
cmp ax, dx
|
||||
jnz cpugood
|
||||
mov si, not386
|
||||
sayerr:
|
||||
call print
|
||||
jmp $
|
||||
cpugood:
|
||||
|
||||
push 0
|
||||
popf
|
||||
sti
|
||||
|
||||
; set up esp
|
||||
movzx esp, sp
|
||||
|
||||
push 0
|
||||
pop es
|
||||
and word [es:0x9031], 0
|
||||
; \begin{Mario79}
|
||||
; find HDD IDE DMA PCI device
|
||||
; check for PCI BIOS
|
||||
mov ax, 0xB101
|
||||
int 0x1A
|
||||
jc .nopci
|
||||
cmp edx, 'PCI '
|
||||
jnz .nopci
|
||||
; find PCI class code
|
||||
; class 1 = mass storage
|
||||
; subclass 1 = IDE controller
|
||||
; a) class 1, subclass 1, programming interface 0x80
|
||||
mov ax, 0xB103
|
||||
mov ecx, 1*10000h + 1*100h + 0x80
|
||||
xor si, si ; device index = 0
|
||||
int 0x1A
|
||||
jnc .found
|
||||
; b) class 1, subclass 1, programming interface 0x8A
|
||||
mov ax, 0xB103
|
||||
mov ecx, 1*10000h + 1*100h + 0x8A
|
||||
xor si, si ; device index = 0
|
||||
int 0x1A
|
||||
jnc .found
|
||||
; c) class 1, subclass 1, programming interface 0x85
|
||||
mov ax, 0xB103
|
||||
mov ecx, 1*10000h + 1*100h + 0x85
|
||||
xor si, si
|
||||
int 0x1A
|
||||
jc .nopci
|
||||
.found:
|
||||
; get memory base
|
||||
mov ax, 0xB10A
|
||||
mov di, 0x20 ; memory base is config register at 0x20
|
||||
int 0x1A
|
||||
jc .nopci
|
||||
and cx, 0xFFF0 ; clear address decode type
|
||||
mov [es:0x9031], cx
|
||||
.nopci:
|
||||
; \end{Mario79}
|
||||
|
||||
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
|
||||
|
||||
;;;/diamond today 5.02.2008
|
||||
; 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
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; --------------- APM ---------------------
|
||||
and word [es:0x9044], 0 ; ver = 0.0 (APM not found)
|
||||
mov ax, 0x5300
|
||||
xor bx, bx
|
||||
int 0x15
|
||||
jc apm_end ; APM not found
|
||||
test cx, 2
|
||||
jz apm_end ; APM 32-bit protected-mode interface not supported
|
||||
mov [es:0x9044], ax ; Save APM Version
|
||||
mov [es:0x9046], cx ; Save APM flags
|
||||
|
||||
; Write APM ver ----
|
||||
and ax, 0xf0f
|
||||
add ax, '00'
|
||||
mov si, msg_apm
|
||||
mov [si + 5], ah
|
||||
mov [si + 7], al
|
||||
_setcursor 0, 3
|
||||
call printplain
|
||||
; ------------------
|
||||
|
||||
mov ax, 0x5304 ; Disconnect interface
|
||||
xor bx, bx
|
||||
int 0x15
|
||||
mov ax, 0x5303 ; Connect 32 bit mode interface
|
||||
xor bx, bx
|
||||
int 0x15
|
||||
|
||||
mov [es:0x9040], ebx
|
||||
mov [es:0x9050], ax
|
||||
mov [es:0x9052], cx
|
||||
mov [es:0x9054], dx
|
||||
|
||||
apm_end:
|
||||
_setcursor d80x25_top_num, 0
|
||||
|
||||
;CHECK current of code
|
||||
cmp [cfgmanager.loader_block], -1
|
||||
jz noloaderblock
|
||||
les bx, [cfgmanager.loader_block]
|
||||
cmp byte [es:bx], 1
|
||||
mov si, loader_block_error
|
||||
jnz sayerr
|
||||
push 0
|
||||
pop es
|
||||
|
||||
noloaderblock:
|
||||
; DISPLAY VESA INFORMATION
|
||||
call print_vesa_info
|
||||
call calc_vmodes_table
|
||||
call check_first_parm ;check and enable cursor_pos
|
||||
|
||||
|
||||
; \begin{diamond}[30.11.2005]
|
||||
cfgmanager:
|
||||
; settings:
|
||||
; a) preboot_graph = graphical mode
|
||||
; preboot_gprobe = probe this mode?
|
||||
; b) preboot_dma = use DMA access?
|
||||
; c) preboot_vrrm = use VRR?
|
||||
|
||||
; determine default settings
|
||||
mov [.bSettingsChanged], 0
|
||||
|
||||
;.preboot_gr_end:
|
||||
mov di, preboot_device
|
||||
; if image in memory is present and [preboot_device] is uninitialized,
|
||||
; set it to use this preloaded image
|
||||
cmp byte [di], 0
|
||||
jnz .preboot_device_inited
|
||||
cmp [.loader_block], -1
|
||||
jz @f
|
||||
les bx, [.loader_block]
|
||||
test byte [es:bx+1], 1
|
||||
jz @f
|
||||
mov byte [di], 3
|
||||
jmp .preboot_device_inited
|
||||
@@:
|
||||
; otherwise, set [preboot_device] to 1 (default value - boot from floppy)
|
||||
mov byte [di], 1
|
||||
.preboot_device_inited:
|
||||
; following 6 lines set variables to 1 if its current value is 0
|
||||
cmp byte [di+preboot_dma-preboot_device], 1
|
||||
adc byte [di+preboot_dma-preboot_device], 0
|
||||
cmp byte [di+preboot_biosdisk-preboot_device], 1
|
||||
adc byte [di+preboot_biosdisk-preboot_device], 0
|
||||
cmp byte [di+preboot_vrrm-preboot_device], 1
|
||||
adc byte [di+preboot_vrrm-preboot_device], 0
|
||||
; notify user
|
||||
_setcursor 5,2
|
||||
|
||||
mov si, linef
|
||||
call printplain
|
||||
mov si, start_msg
|
||||
call print
|
||||
mov si, time_msg
|
||||
call print
|
||||
; get start time
|
||||
call .gettime
|
||||
mov [.starttime], eax
|
||||
mov word [.timer], .newtimer
|
||||
mov word [.timer+2], cs
|
||||
.printcfg:
|
||||
_setcursor 9,0
|
||||
mov si, current_cfg_msg
|
||||
call print
|
||||
mov si, curvideo_msg
|
||||
call print
|
||||
|
||||
call draw_current_vmode
|
||||
|
||||
mov si, usebd_msg
|
||||
cmp [preboot_biosdisk], 1
|
||||
call .say_on_off
|
||||
mov si, vrrm_msg
|
||||
cmp [preboot_vrrm], 1
|
||||
call .say_on_off
|
||||
; mov si, preboot_device_msg
|
||||
; call print
|
||||
; mov al, [preboot_device]
|
||||
; and eax, 7
|
||||
; mov si, [preboot_device_msgs+eax*2]
|
||||
; call printplain
|
||||
.show_remarks:
|
||||
; show remarks in gray color
|
||||
mov di, ((21-num_remarks)*80 + 2)*2
|
||||
push 0xB800
|
||||
pop es
|
||||
mov cx, num_remarks
|
||||
mov si, remarks
|
||||
.write_remarks:
|
||||
lodsw
|
||||
push si
|
||||
xchg ax, si
|
||||
mov ah, 1*16+7 ; background: blue (1), foreground: gray (7)
|
||||
push di
|
||||
.write_remark:
|
||||
lodsb
|
||||
test al, al
|
||||
jz @f
|
||||
stosw
|
||||
jmp .write_remark
|
||||
@@:
|
||||
pop di
|
||||
pop si
|
||||
add di, 80*2
|
||||
loop .write_remarks
|
||||
.wait:
|
||||
_setcursor 25,0 ; out of screen
|
||||
; set timer interrupt handler
|
||||
cli
|
||||
push 0
|
||||
pop es
|
||||
push dword [es:8*4]
|
||||
pop dword [.oldtimer]
|
||||
push dword [.timer]
|
||||
pop dword [es:8*4]
|
||||
; mov eax, [es:8*4]
|
||||
; mov [.oldtimer], eax
|
||||
; mov eax, [.timer]
|
||||
; mov [es:8*4], eax
|
||||
sti
|
||||
; wait for keypressed
|
||||
xor ax,ax
|
||||
int 16h
|
||||
push ax
|
||||
; restore timer interrupt
|
||||
; push 0
|
||||
; pop es
|
||||
mov eax, [.oldtimer]
|
||||
mov [es:8*4], eax
|
||||
mov [.timer], eax
|
||||
_setcursor 7,0
|
||||
mov si, space_msg
|
||||
call printplain
|
||||
; clear remarks and restore normal attributes
|
||||
push es
|
||||
mov di, ((21-num_remarks)*80 + 2)*2
|
||||
push 0xB800
|
||||
pop es
|
||||
mov cx, num_remarks
|
||||
mov ax, ' ' + (1*16 + 15)*100h
|
||||
@@:
|
||||
push cx
|
||||
mov cx, 76
|
||||
rep stosw
|
||||
pop cx
|
||||
add di, 4*2
|
||||
loop @b
|
||||
pop es
|
||||
pop ax
|
||||
; switch on key
|
||||
cmp al, 13
|
||||
jz .continue
|
||||
or al, 20h
|
||||
cmp al, 'a'
|
||||
jz .change_a
|
||||
cmp al, 'b'
|
||||
jz .change_b
|
||||
cmp al, 'c'
|
||||
jnz .show_remarks
|
||||
|
||||
_setcursor 15,0
|
||||
mov si, vrrmprint
|
||||
call print
|
||||
mov bx, '12'
|
||||
call getkey
|
||||
mov [preboot_vrrm], al
|
||||
_setcursor 12,0
|
||||
.d:
|
||||
mov [.bSettingsChanged], 1
|
||||
call clear_vmodes_table ;clear vmodes_table
|
||||
jmp .printcfg
|
||||
.change_a:
|
||||
.loops:
|
||||
call draw_vmodes_table
|
||||
_setcursor 25,0 ; out of screen
|
||||
xor ax,ax
|
||||
int 0x16
|
||||
; call clear_table_cursor ;clear current position of cursor
|
||||
|
||||
mov si,word [cursor_pos]
|
||||
|
||||
cmp ah,0x48;x,0x48E0 ; up
|
||||
jne .down
|
||||
cmp si,modes_table
|
||||
jbe .loops
|
||||
sub word [cursor_pos],size_of_step
|
||||
jmp .loops
|
||||
|
||||
.down: cmp ah,0x50;x,0x50E0 ; down
|
||||
jne .pgup
|
||||
cmp word[es:si+10],-1
|
||||
je .loops
|
||||
add word [cursor_pos],size_of_step
|
||||
jmp .loops
|
||||
|
||||
.pgup: cmp ah,0x49 ; page up
|
||||
jne .pgdn
|
||||
sub si, size_of_step*long_v_table
|
||||
cmp si, modes_table
|
||||
jae @f
|
||||
mov si, modes_table
|
||||
@@:
|
||||
mov word [cursor_pos], si
|
||||
mov si, word [home_cursor]
|
||||
sub si, size_of_step*long_v_table
|
||||
cmp si, modes_table
|
||||
jae @f
|
||||
mov si, modes_table
|
||||
@@:
|
||||
mov word [home_cursor], si
|
||||
jmp .loops
|
||||
|
||||
.pgdn: cmp ah,0x51 ; page down
|
||||
jne .enter
|
||||
mov ax, [end_cursor]
|
||||
add si, size_of_step*long_v_table
|
||||
cmp si, ax
|
||||
jb @f
|
||||
mov si, ax
|
||||
sub si, size_of_step
|
||||
@@:
|
||||
mov word [cursor_pos], si
|
||||
mov si, word [home_cursor]
|
||||
sub ax, size_of_step*long_v_table
|
||||
add si, size_of_step*long_v_table
|
||||
cmp si, ax
|
||||
jb @f
|
||||
mov si, ax
|
||||
@@:
|
||||
mov word [home_cursor], si
|
||||
jmp .loops
|
||||
|
||||
.enter: cmp al,0x0D;x,0x1C0D ; enter
|
||||
jne .loops
|
||||
push word [cursor_pos]
|
||||
pop bp
|
||||
push word [es:bp]
|
||||
pop word [x_save]
|
||||
push word [es:bp+2]
|
||||
pop word [y_save]
|
||||
push word [es:bp+6]
|
||||
pop word [number_vm]
|
||||
mov word [preboot_graph],bp ;save choose
|
||||
|
||||
jmp .d
|
||||
|
||||
.change_b:
|
||||
_setcursor 15,0
|
||||
; mov si, ask_dma
|
||||
; call print
|
||||
; mov bx, '13'
|
||||
; call getkey
|
||||
; mov [preboot_dma], al
|
||||
mov si, ask_bd
|
||||
call print
|
||||
mov bx, '12'
|
||||
call getkey
|
||||
mov [preboot_biosdisk], al
|
||||
_setcursor 11,0
|
||||
jmp .d
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
.say_on_off:
|
||||
pushf
|
||||
call print
|
||||
mov si, on_msg
|
||||
popf
|
||||
jz @f
|
||||
mov si, off_msg
|
||||
@@: jmp printplain
|
||||
; novesa and vervesa strings are not used at the moment of executing this code
|
||||
virtual at novesa
|
||||
.oldtimer dd ?
|
||||
.starttime dd ?
|
||||
.bSettingsChanged db ?
|
||||
.timer dd ?
|
||||
end virtual
|
||||
.loader_block dd -1
|
||||
.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 [.oldtimer]
|
||||
pushad
|
||||
call .gettime
|
||||
sub eax, [.starttime]
|
||||
sub ax, 18*5
|
||||
jae .timergo
|
||||
neg ax
|
||||
add ax, 18-1
|
||||
mov bx, 18
|
||||
xor dx, dx
|
||||
div bx
|
||||
if lang eq ru
|
||||
; ¯®¤®¦¤¨â¥ 5 ᥪã¤, 4/3/2 ᥪã¤ë, 1 ᥪã¤ã
|
||||
cmp al, 5
|
||||
mov cl, ' '
|
||||
jae @f
|
||||
cmp al, 1
|
||||
mov cl, 'ã'
|
||||
jz @f
|
||||
mov cl, 'ë'
|
||||
@@: mov [time_str+9], cl
|
||||
else if lang eq et
|
||||
cmp al, 1
|
||||
ja @f
|
||||
mov [time_str+9], ' '
|
||||
mov [time_str+10],' '
|
||||
@@:
|
||||
else
|
||||
; wait 5/4/3/2 seconds, 1 second
|
||||
cmp al, 1
|
||||
mov cl, 's'
|
||||
ja @f
|
||||
mov cl, ' '
|
||||
@@: mov [time_str+9], cl
|
||||
end if
|
||||
add al, '0'
|
||||
mov [time_str+1], al
|
||||
mov si, time_msg
|
||||
_setcursor 7,0
|
||||
call print
|
||||
_setcursor 25,0
|
||||
popad
|
||||
pop ds
|
||||
iret
|
||||
.timergo:
|
||||
push 0
|
||||
pop es
|
||||
mov eax, [.oldtimer]
|
||||
mov [es:8*4], eax
|
||||
mov sp, 0EC00h
|
||||
.continue:
|
||||
sti
|
||||
_setcursor 6,0
|
||||
mov si, space_msg
|
||||
call printplain
|
||||
call printplain
|
||||
_setcursor 6,0
|
||||
mov si, loading_msg
|
||||
call print
|
||||
_setcursor 15,0
|
||||
cmp [.bSettingsChanged], 0
|
||||
jz .load
|
||||
cmp [.loader_block], -1
|
||||
jz .load
|
||||
les bx, [.loader_block]
|
||||
mov eax, [es:bx+3]
|
||||
push ds
|
||||
pop es
|
||||
test eax, eax
|
||||
jz .load
|
||||
push eax
|
||||
mov si, save_quest
|
||||
call print
|
||||
.waityn:
|
||||
mov ah, 0
|
||||
int 16h
|
||||
or al, 20h
|
||||
cmp al, 'n'
|
||||
jz .loadc
|
||||
cmp al, 'y'
|
||||
jnz .waityn
|
||||
call putchar
|
||||
mov byte [space_msg+80], 186
|
||||
pop eax
|
||||
push cs
|
||||
push .cont
|
||||
push eax
|
||||
retf
|
||||
.loadc:
|
||||
pop eax
|
||||
.cont:
|
||||
push cs
|
||||
pop ds
|
||||
mov si, space_msg
|
||||
mov byte [si+80], 0
|
||||
_setcursor 15,0
|
||||
call printplain
|
||||
_setcursor 15,0
|
||||
.load:
|
||||
; \end{diamond}[02.12.2005]
|
||||
|
||||
; ASK GRAPHICS MODE
|
||||
|
||||
call set_vmode
|
||||
|
||||
; GRAPHICS ACCELERATION
|
||||
; force yes
|
||||
mov [es:0x901C], byte 1
|
||||
|
||||
; DMA ACCESS TO HD
|
||||
|
||||
mov al, [preboot_dma]
|
||||
mov [es:0x901F], al
|
||||
|
||||
; VRR_M USE
|
||||
|
||||
mov al,[preboot_vrrm]
|
||||
mov [es:0x9030], al
|
||||
mov [es:0x901E], byte 1
|
||||
|
||||
; BOOT DEVICE
|
||||
|
||||
mov al, [preboot_device]
|
||||
dec al
|
||||
mov [boot_dev], al
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
;;;;;;;;;;; set videomode
|
||||
xor ax, ax
|
||||
mov es, ax
|
||||
|
||||
mov ax, [es:0x9008] ; vga & 320x200
|
||||
mov bx, ax
|
||||
cmp ax, 0x13
|
||||
je setgr
|
||||
cmp ax, 0x12
|
||||
je setgr
|
||||
mov ax, 0x4f02 ; Vesa
|
||||
setgr:
|
||||
int 0x10
|
||||
test ah, ah
|
||||
mov si, fatalsel
|
||||
jnz v_mode_error
|
||||
; set mode 0x12 graphics registers:
|
||||
cmp bx, 0x12
|
||||
jne gmok2
|
||||
|
||||
mov al, 0x05
|
||||
mov dx, 0x03ce
|
||||
push dx
|
||||
out dx, al ; select GDC mode register
|
||||
mov al, 0x02
|
||||
inc dx
|
||||
out dx, al ; set write mode 2
|
||||
|
||||
mov al, 0x02
|
||||
mov dx, 0x03c4
|
||||
out dx, al ; select VGA sequencer map mask register
|
||||
mov al, 0x0f
|
||||
inc dx
|
||||
out dx, al ; set mask for all planes 0-3
|
||||
|
||||
mov al, 0x08
|
||||
pop dx
|
||||
out dx, al ; select GDC bit mask register
|
||||
; for writes to 0x03cf
|
||||
gmok2:
|
||||
push ds
|
||||
pop es
|
||||
|
||||
jmp $
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;data
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
include "lang.inc"
|
||||
include "bootstr.inc" ; language-independent boot messages
|
||||
;if lang eq en
|
||||
;include "booteng.inc" ; english system boot messages
|
||||
;else if lang eq ru
|
||||
include "bootru.inc" ; russian system boot messages
|
||||
include "ru.inc" ; Russian font
|
||||
;else if lang eq et
|
||||
;include "bootet.inc" ; estonian system boot messages
|
||||
;include "et.inc" ; Estonian font
|
||||
;else
|
||||
;include "bootge.inc" ; german system boot messages
|
||||
;end if
|
||||
|
||||
include 'macros.inc'
|
||||
include 'bootvesa.inc'
|
||||
|
||||
include "preboot.inc"
|
||||
|
||||
|
||||
setcursor:
|
||||
; in: dl=column, dh=row
|
||||
mov ah, 2
|
||||
mov bh, 0
|
||||
int 10h
|
||||
ret
|
||||
|
||||
putchar:
|
||||
; in: al=character
|
||||
mov ah, 0Eh
|
||||
mov bh, 0
|
||||
int 10h
|
||||
ret
|
||||
|
||||
print:
|
||||
; in: si->string
|
||||
mov al, 186
|
||||
call putchar
|
||||
mov al, ' '
|
||||
call putchar
|
||||
|
||||
printplain:
|
||||
; in: si->string
|
||||
pusha
|
||||
lodsb
|
||||
@@:
|
||||
call putchar
|
||||
lodsb
|
||||
cmp al, 0
|
||||
jnz @b
|
||||
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
|
@ -1,86 +0,0 @@
|
||||
|
||||
|
||||
; structure definition helper
|
||||
macro struct name, [arg]
|
||||
{
|
||||
common
|
||||
name@struct equ name
|
||||
struc name arg {
|
||||
}
|
||||
|
||||
macro struct_helper name
|
||||
{
|
||||
match xname,name
|
||||
\{
|
||||
virtual at 0
|
||||
xname xname
|
||||
sizeof.#xname = $ - xname
|
||||
name equ sizeof.#xname
|
||||
end virtual
|
||||
\}
|
||||
}
|
||||
|
||||
ends fix } struct_helper name@struct
|
||||
|
||||
;// mike.dld, 2006-29-01 [
|
||||
|
||||
; macros definition
|
||||
macro diff16 title,l1,l2
|
||||
{
|
||||
local s,d
|
||||
s = l2-l1
|
||||
display title,': 0x'
|
||||
repeat 16
|
||||
d = 48 + s shr ((16-%) shl 2) and $0F
|
||||
if d > 57
|
||||
d = d + 65-57-1
|
||||
end if
|
||||
display d
|
||||
end repeat
|
||||
display 13,10
|
||||
}
|
||||
macro diff10 title,l1,l2
|
||||
{
|
||||
local s,d,z,m
|
||||
s = l2-l1
|
||||
z = 0
|
||||
m = 1000000000
|
||||
display title,': '
|
||||
repeat 10
|
||||
d = '0' + s / m
|
||||
s = s - (s/m)*m
|
||||
m = m / 10
|
||||
if d <> '0'
|
||||
z = 1
|
||||
end if
|
||||
if z <> 0
|
||||
display d
|
||||
end if
|
||||
end repeat
|
||||
display 13,10
|
||||
}
|
||||
|
||||
; \begin{diamond}[29.09.2006]
|
||||
; may be useful for kernel debugging
|
||||
; example 1:
|
||||
; dbgstr 'Hello, World!'
|
||||
; example 2:
|
||||
; dbgstr 'Hello, World!', save_flags
|
||||
macro dbgstr string*, f
|
||||
{
|
||||
local a
|
||||
iglobal_nested
|
||||
a db 'K : ',string,13,10,0
|
||||
endg_nested
|
||||
if ~ f eq
|
||||
pushfd
|
||||
end if
|
||||
push esi
|
||||
mov esi, a
|
||||
call sys_msg_board_str
|
||||
pop esi
|
||||
if ~ f eq
|
||||
popfd
|
||||
end if
|
||||
}
|
||||
; \end{diamond}[29.09.2006]
|
@ -1,36 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
display_modechg db 0 ; display mode change for text, yes/no (0 or 2)
|
||||
;
|
||||
; !! Important note !!
|
||||
;
|
||||
; Must be set to 2, to avoid two screenmode
|
||||
; changes within a very short period of time.
|
||||
|
||||
display_atboot db 0 ; show boot screen messages ( 2-no )
|
||||
|
||||
preboot_graph dw 0 ; graph mode
|
||||
x_save dw 0 ; x
|
||||
y_save dw 0 ; y
|
||||
number_vm dw 0 ;
|
||||
;pixel_save dw 0 ; per to pixel
|
||||
preboot_gprobe db 0 ; probe vesa3 videomodes (1-no, 2-yes)
|
||||
preboot_vrrm db 0 ; use VRR_M (1-yes, 2- no)
|
||||
preboot_dma db 0 ; use DMA for access to HDD (1-always, 2-only for read, 3-never)
|
||||
preboot_device db 0 ; boot device
|
||||
; (1-floppy 2-harddisk 3-kernel restart 4-format ram disk)
|
||||
;!!!! 0 - autodetect !!!!
|
||||
preboot_blogesc = 0 ; start immediately after bootlog
|
||||
preboot_biosdisk db 0 ; use V86 to access disks through BIOS (1-yes, 2-no)
|
||||
|
||||
; if $>0x200
|
||||
;ERROR: prebooting parameters must fit in first sector!!!
|
||||
; end if
|
||||
;hdsysimage db 'KOLIBRI IMG' ; load from
|
||||
;image_save db 'KOLIBRI IMG' ; save to
|
@ -1,123 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
; READ RAMDISK IMAGE FROM HD
|
||||
|
||||
cmp [boot_dev+OS_BASE+0x10000],1
|
||||
jne no_sys_on_hd
|
||||
|
||||
test [DRIVE_DATA+1],byte 0x40
|
||||
jz position_2
|
||||
mov [hdbase],0x1f0
|
||||
mov [hdid],0x0
|
||||
mov [hdpos],1
|
||||
mov [fat32part],0
|
||||
position_1_1:
|
||||
inc [fat32part]
|
||||
call search_and_read_image
|
||||
cmp [image_retrieved],1
|
||||
je yes_sys_on_hd
|
||||
movzx eax,byte [DRIVE_DATA+2]
|
||||
cmp [fat32part],eax
|
||||
jle position_1_1
|
||||
position_2:
|
||||
test [DRIVE_DATA+1],byte 0x10
|
||||
jz position_3
|
||||
mov [hdbase],0x1f0
|
||||
mov [hdid],0x10
|
||||
mov [hdpos],2
|
||||
mov [fat32part],0
|
||||
position_2_1:
|
||||
inc [fat32part]
|
||||
call search_and_read_image
|
||||
cmp [image_retrieved],1
|
||||
je yes_sys_on_hd
|
||||
movzx eax,byte [DRIVE_DATA+3]
|
||||
cmp eax,[fat32part]
|
||||
jle position_2_1
|
||||
position_3:
|
||||
test [DRIVE_DATA+1],byte 0x4
|
||||
jz position_4
|
||||
mov [hdbase],0x170
|
||||
mov [hdid],0x0
|
||||
mov [hdpos],3
|
||||
mov [fat32part],0
|
||||
position_3_1:
|
||||
inc [fat32part]
|
||||
call search_and_read_image
|
||||
cmp [image_retrieved],1
|
||||
je yes_sys_on_hd
|
||||
movzx eax,byte [DRIVE_DATA+4]
|
||||
cmp eax,[fat32part]
|
||||
jle position_3_1
|
||||
position_4:
|
||||
test [DRIVE_DATA+1],byte 0x1
|
||||
jz no_sys_on_hd
|
||||
mov [hdbase],0x170
|
||||
mov [hdid],0x10
|
||||
mov [hdpos],4
|
||||
mov [fat32part],0
|
||||
position_4_1:
|
||||
inc [fat32part]
|
||||
call search_and_read_image
|
||||
cmp [image_retrieved],1
|
||||
je yes_sys_on_hd
|
||||
movzx eax,byte [DRIVE_DATA+5]
|
||||
cmp eax,[fat32part]
|
||||
jle position_4_1
|
||||
jmp yes_sys_on_hd
|
||||
|
||||
search_and_read_image:
|
||||
call set_FAT32_variables
|
||||
mov edx, bootpath
|
||||
call read_image
|
||||
test eax, eax
|
||||
jz image_present
|
||||
mov edx, bootpath2
|
||||
call read_image
|
||||
test eax, eax
|
||||
jz image_present
|
||||
ret
|
||||
image_present:
|
||||
mov [image_retrieved],1
|
||||
ret
|
||||
|
||||
read_image:
|
||||
mov eax, hdsysimage+OS_BASE+0x10000
|
||||
mov ebx, 1474560/512
|
||||
mov ecx, RAMDISK
|
||||
mov esi, 0
|
||||
mov edi, 12
|
||||
call file_read
|
||||
ret
|
||||
|
||||
image_retrieved db 0
|
||||
counter_of_partitions db 0
|
||||
no_sys_on_hd:
|
||||
; test_to_format_ram_disk (need if not using ram disk)
|
||||
cmp [boot_dev+OS_BASE+0x10000],3
|
||||
jne not_format_ram_disk
|
||||
; format_ram_disk
|
||||
mov edi, RAMDISK
|
||||
mov ecx, 0x1080
|
||||
xor eax,eax
|
||||
@@:
|
||||
stosd
|
||||
loop @b
|
||||
|
||||
mov ecx, 0x58F7F
|
||||
mov eax,0xF6F6F6F6
|
||||
@@:
|
||||
stosd
|
||||
loop @b
|
||||
|
||||
mov [RAMDISK+0x200],dword 0xFFFFF0 ; fat table
|
||||
mov [RAMDISK+0x4200],dword 0xFFFFF0
|
||||
|
||||
not_format_ram_disk:
|
||||
yes_sys_on_hd:
|
@ -1,100 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
; Generated by RUFNT.EXE
|
||||
; By BadBugsKiller (C)
|
||||
; Modifyed by BadBugsKiller 12.01.2004 17:45
|
||||
; Øðèôò óìåíüøåí â ðàçìåðå è òåïåðü ñîñòîèò èç 2-óõ ÷àñòåé,
|
||||
; ñîäåðæàùèõ òîëüêî ñèìâîëû ðóññêîãî àëôàâèòà.
|
||||
; ñèìâîëû â êîäèðîâêå ASCII (ÄÎÑ'îâñêàÿ), êîäîâàÿ ñòðàíèöà 866.
|
||||
RU_FNT1:
|
||||
db 0x00, 0x00, 0x1E, 0x36, 0x66, 0xC6, 0xC6, 0xFE, 0xC6, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xFE, 0x62, 0x60, 0x60, 0x7C, 0x66, 0x66, 0x66, 0x66, 0xFC, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xFC, 0x66, 0x66, 0x66, 0x7C, 0x66, 0x66, 0x66, 0x66, 0xFC, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xFE, 0x66, 0x62, 0x60, 0x60, 0x60, 0x60, 0x60, 0x60, 0xF0, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x1E, 0x36, 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, 0xFF, 0xC3, 0x81, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xFE, 0x66, 0x62, 0x68, 0x78, 0x68, 0x60, 0x62, 0x66, 0xFE, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xDB, 0xDB, 0x5A, 0x5A, 0x7E, 0x7E, 0x5A, 0xDB, 0xDB, 0xDB, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x7C, 0xC6, 0x06, 0x06, 0x3C, 0x06, 0x06, 0x06, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xCE, 0xDE, 0xF6, 0xE6, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x6C, 0x38, 0xC6, 0xC6, 0xC6, 0xCE, 0xDE, 0xF6, 0xE6, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xE6, 0x66, 0x6C, 0x6C, 0x78, 0x78, 0x6C, 0x6C, 0x66, 0xE6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x1F, 0x36, 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, 0x66, 0xCF, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC6, 0xEE, 0xFE, 0xFE, 0xD6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xC6, 0xFE, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x7C, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xFE, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
|
||||
db 0x00, 0x00, 0xFC, 0x66, 0x66, 0x66, 0x66, 0x7C, 0x60, 0x60, 0x60, 0xF0, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x7C, 0xC6, 0xC6, 0xC0, 0xC0, 0xC0, 0xC0, 0xC2, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xFF, 0xDB, 0x99, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7E, 0x06, 0x06, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x7E, 0xDB, 0xDB, 0xDB, 0xDB, 0xDB, 0xDB, 0x7E, 0x18, 0x3C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC6, 0xC6, 0x6C, 0x7C, 0x38, 0x38, 0x7C, 0x6C, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xFF, 0x03, 0x03, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7E, 0x06, 0x06, 0x06, 0x06, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xFE, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xFF, 0x03, 0x03, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xF8, 0xF0, 0xB0, 0x30, 0x3E, 0x33, 0x33, 0x33, 0x33, 0x7E, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xC3, 0xC3, 0xC3, 0xC3, 0xF3, 0xDB, 0xDB, 0xDB, 0xDB, 0xF3, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xF0, 0x60, 0x60, 0x60, 0x7C, 0x66, 0x66, 0x66, 0x66, 0xFC, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x7C, 0xC6, 0x06, 0x26, 0x3E, 0x26, 0x06, 0x06, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xCE, 0xDB, 0xDB, 0xDB, 0xFB, 0xDB, 0xDB, 0xDB, 0xDB, 0xCE, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x3F, 0x66, 0x66, 0x66, 0x3E, 0x3E, 0x66, 0x66, 0x66, 0xE7, 0x00, 0x00, 0x00, 0x00
|
||||
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x78, 0x0C, 0x7C, 0xCC, 0xCC, 0xCC, 0x76, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x02, 0x06, 0x7C, 0xC0, 0xC0, 0xFC, 0xC6, 0xC6, 0xC6, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xFC, 0x66, 0x66, 0x7C, 0x66, 0x66, 0xFC, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xFE, 0x62, 0x62, 0x60, 0x60, 0x60, 0xF0, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x1E, 0x36, 0x66, 0x66, 0x66, 0x66, 0xFF, 0xC3, 0xC3, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7C, 0xC6, 0xC6, 0xFE, 0xC0, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xD6, 0xD6, 0x54, 0x7C, 0x54, 0xD6, 0xD6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7C, 0xC6, 0x06, 0x3C, 0x06, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0xC6, 0xCE, 0xD6, 0xE6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x6C, 0x38, 0xC6, 0xC6, 0xCE, 0xD6, 0xE6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xE6, 0x6C, 0x78, 0x78, 0x6C, 0x66, 0xE6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x1E, 0x36, 0x66, 0x66, 0x66, 0x66, 0xE6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0xEE, 0xFE, 0xFE, 0xD6, 0xD6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xFE, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7C, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xFE, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
|
||||
RU_FNT2:
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xDC, 0x66, 0x66, 0x66, 0x66, 0x66, 0x7C, 0x60, 0x60, 0xF0, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7C, 0xC6, 0xC0, 0xC0, 0xC0, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7E, 0x5A, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7E, 0x06, 0x06, 0xC6, 0x7C, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x3C, 0x18, 0x7E, 0xDB, 0xDB, 0xDB, 0xDB, 0xDB, 0x7E, 0x18, 0x18, 0x3C, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0x6C, 0x38, 0x38, 0x38, 0x6C, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0xFF, 0x03, 0x03, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xC6, 0x7E, 0x06, 0x06, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xFE, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xD6, 0xFE, 0x03, 0x03, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xF8, 0xB0, 0xB0, 0x3E, 0x33, 0x33, 0x7E, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xC6, 0xC6, 0xC6, 0xF6, 0xDE, 0xDE, 0xF6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xF0, 0x60, 0x60, 0x7C, 0x66, 0x66, 0xFC, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7C, 0xC6, 0x06, 0x3E, 0x06, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0xCE, 0xDB, 0xDB, 0xFB, 0xDB, 0xDB, 0xCE, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7F, 0xC6, 0xC6, 0x7E, 0x36, 0x66, 0xE7, 0x00, 0x00, 0x00, 0x00
|
||||
|
||||
db 0x6C, 0x00, 0xFE, 0x66, 0x62, 0x68, 0x78, 0x68, 0x60, 0x62, 0x66, 0xFE, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x6C, 0x00, 0x7C, 0xC6, 0xC6, 0xFC, 0xC0, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x7C, 0xC6, 0xC0, 0xC8, 0xF8, 0xC8, 0xC0, 0xC0, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x7C, 0xC6, 0xC0, 0xF8, 0xC0, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x66, 0x00, 0x3C, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x6C, 0x00, 0x38, 0x18, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x6C, 0x38, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7E, 0x06, 0x06, 0xC6, 0x7C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x6C, 0x38, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7E, 0x06, 0x06, 0xC6, 0x7C, 0x00
|
||||
db 0x00, 0x38, 0x6C, 0x6C, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x0E, 0x0C, 0x0C, 0x0C, 0x0C, 0x0C, 0x0C, 0xEC, 0x6C, 0x3C, 0x1C, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0xCF, 0xCD, 0xEF, 0xEC, 0xFF, 0xDC, 0xDC, 0xCC, 0xCC, 0xCC, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0xC6, 0x7C, 0xC6, 0xC6, 0xC6, 0xC6, 0xC6, 0x7C, 0xC6, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x7E, 0x7E, 0x7E, 0x7E, 0x7E, 0x7E, 0x7E, 0x00, 0x00, 0x00, 0x00, 0x00
|
||||
db 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
|
@ -1,207 +0,0 @@
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; ;;
|
||||
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
||||
;; Distributed under terms of the GNU General Public License ;;
|
||||
;; ;;
|
||||
;; Shutdown for Menuet ;;
|
||||
;; ;;
|
||||
;; Distributed under General Public License ;;
|
||||
;; See file COPYING for details. ;;
|
||||
;; Copyright 2003 Ville Turjanmaa ;;
|
||||
;; ;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
align 4
|
||||
pr_mode_exit:
|
||||
|
||||
; setup stack
|
||||
mov ax, 0x3000
|
||||
mov ss, ax
|
||||
mov esp, 0x0EC00
|
||||
; setup ds
|
||||
push cs
|
||||
pop ds
|
||||
|
||||
lidt [old_ints_h]
|
||||
;remap IRQs
|
||||
mov al,0x11
|
||||
out 0x20,al
|
||||
call rdelay
|
||||
out 0xA0,al
|
||||
call rdelay
|
||||
|
||||
mov al,0x08
|
||||
out 0x21,al
|
||||
call rdelay
|
||||
mov al,0x70
|
||||
out 0xA1,al
|
||||
call rdelay
|
||||
|
||||
mov al,0x04
|
||||
out 0x21,al
|
||||
call rdelay
|
||||
mov al,0x02
|
||||
out 0xA1,al
|
||||
call rdelay
|
||||
|
||||
mov al,0x01
|
||||
out 0x21,al
|
||||
call rdelay
|
||||
out 0xA1,al
|
||||
call rdelay
|
||||
|
||||
mov al,0xB8
|
||||
out 0x21,al
|
||||
call rdelay
|
||||
mov al,0xBD
|
||||
out 0xA1,al
|
||||
sti
|
||||
|
||||
temp_3456:
|
||||
xor ax,ax
|
||||
mov es,ax
|
||||
mov al,byte [es:0x9030]
|
||||
cmp al,1
|
||||
jl nbw
|
||||
cmp al,4
|
||||
jle nbw32
|
||||
|
||||
nbw:
|
||||
in al,0x60
|
||||
cmp al,6
|
||||
jae nbw
|
||||
mov bl,al
|
||||
nbw2:
|
||||
in al,0x60
|
||||
cmp al,bl
|
||||
je nbw2
|
||||
cmp al,240 ;ax,240
|
||||
jne nbw31
|
||||
mov al,bl
|
||||
dec ax
|
||||
jmp nbw32
|
||||
nbw31:
|
||||
add bl,128
|
||||
cmp al,bl
|
||||
jne nbw
|
||||
sub al,129
|
||||
|
||||
nbw32:
|
||||
|
||||
dec ax
|
||||
dec ax ; 2 = power off
|
||||
jnz no_apm_off
|
||||
call APM_PowerOff
|
||||
jmp $
|
||||
no_apm_off:
|
||||
|
||||
dec ax ; 3 = reboot
|
||||
jnz restart_kernel ; 4 = restart kernel
|
||||
push 0x40
|
||||
pop ds
|
||||
mov word[0x0072],0x1234
|
||||
jmp 0xF000:0xFFF0
|
||||
|
||||
|
||||
rdelay:
|
||||
ret
|
||||
|
||||
APM_PowerOff:
|
||||
mov ax, 5304h
|
||||
xor bx, bx
|
||||
int 15h
|
||||
;!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
mov ax,0x5300
|
||||
xor bx,bx
|
||||
int 0x15
|
||||
push ax
|
||||
|
||||
mov ax,0x5301
|
||||
xor bx,bx
|
||||
int 0x15
|
||||
|
||||
mov ax,0x5308
|
||||
mov bx,1
|
||||
mov cx,bx
|
||||
int 0x15
|
||||
|
||||
mov ax,0x530E
|
||||
xor bx,bx
|
||||
pop cx
|
||||
int 0x15
|
||||
|
||||
mov ax,0x530D
|
||||
mov bx,1
|
||||
mov cx,bx
|
||||
int 0x15
|
||||
|
||||
mov ax,0x530F
|
||||
mov bx,1
|
||||
mov cx,bx
|
||||
int 0x15
|
||||
|
||||
mov ax,0x5307
|
||||
mov bx,1
|
||||
mov cx,3
|
||||
int 0x15
|
||||
;!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
ret
|
||||
|
||||
restart_kernel:
|
||||
|
||||
mov ax,0x0003 ; set text mode for screen
|
||||
int 0x10
|
||||
jmp 0x4000:0000
|
||||
|
||||
restart_kernel_4000:
|
||||
cli
|
||||
|
||||
push ds
|
||||
pop es
|
||||
mov cx, 0x8000
|
||||
push cx
|
||||
push 0x7000
|
||||
pop ds
|
||||
xor si, si
|
||||
xor di, di
|
||||
rep movsw
|
||||
pop cx
|
||||
mov ds, cx
|
||||
push 0x2000
|
||||
pop es
|
||||
rep movsw
|
||||
push 0x9000
|
||||
pop ds
|
||||
push 0x3000
|
||||
pop es
|
||||
mov cx, 0xE000/2
|
||||
rep movsw
|
||||
|
||||
wbinvd ; write and invalidate cache
|
||||
|
||||
mov al, 00110100b
|
||||
out 43h, al
|
||||
jcxz $+2
|
||||
mov al, 0xFF
|
||||
out 40h, al
|
||||
jcxz $+2
|
||||
out 40h, al
|
||||
jcxz $+2
|
||||
sti
|
||||
|
||||
; (hint by Black_mirror)
|
||||
; We must read data from keyboard port,
|
||||
; because there may be situation when previous keyboard interrupt is lost
|
||||
; (due to return to real mode and IRQ reprogramming)
|
||||
; and next interrupt will not be generated (as keyboard waits for handling)
|
||||
in al, 0x60
|
||||
|
||||
; bootloader interface
|
||||
push 0x1000
|
||||
pop ds
|
||||
mov si, kernel_restart_bootblock
|
||||
mov ax, 'KL'
|
||||
jmp 0x1000:0000
|
||||
|
||||
|
@ -1,635 +0,0 @@
|
||||
; Listing generator
|
||||
; LocoDelAssembly 2007.06.01
|
||||
|
||||
INSTRUCTIONS equ bt in ja jb jc je jg jl jo jp js jz or \
|
||||
aaa aad aam aas adc add and bsf bsr btc btr bts cbw cdq clc \
|
||||
cld cli cmc cmp cqo cwd daa das dec div fld fst hlt inc ins \
|
||||
int jae jbe jge jle jmp jna jnb jnc jne jng jnl jno jnp jns \
|
||||
jnz jpe jpo lar lds lea les lfs lgs lsl lss ltr mov mul neg \
|
||||
nop not out pop por rcl rcr ret rol ror rsm sal sar sbb shl \
|
||||
shr stc std sti str sub ud2 xor \
|
||||
arpl call cdqe clgi clts cmps cwde emms fabs fadd fbld fchs \
|
||||
fcom fcos fdiv feni fild fist fld1 fldz fmul fnop fsin fstp \
|
||||
fsub ftst fxam fxch idiv imul insb insd insw int1 int3 into \
|
||||
invd iret jcxz jnae jnbe jnge jnle lahf lgdt lidt lldt lmsw \
|
||||
lods loop movd movq movs orpd orps outs pand popa popd popf \
|
||||
popq popw push pxor retd retf retn retq retw sahf salc scas \
|
||||
seta setb setc sete setg setl seto setp sets setz sgdt shld \
|
||||
shrd sidt sldt smsw stgi stos test verr verw wait xadd xchg \
|
||||
xlat \
|
||||
addpd addps addsd addss andpd andps bound bswap cmova cmovb \
|
||||
cmovc cmove cmovg cmovl cmovo cmovp cmovs cmovz cmppd cmpps \
|
||||
cmpsb cmpsd cmpsq cmpss cmpsw cpuid divpd divps divsd divss \
|
||||
enter f2xm1 faddp fbstp fclex fcomi fcomp fdisi fdivp fdivr \
|
||||
femms ffree fiadd ficom fidiv fimul finit fistp fisub fldcw \
|
||||
fldpi fmulp fneni fprem fptan fsave fsqrt fstcw fstsw fsubp \
|
||||
fsubr fucom fwait fyl2x icebp iretd iretq iretw jecxz jrcxz \
|
||||
lddqu leave lodsb lodsd lodsq lodsw loopd loope loopq loopw \
|
||||
loopz maxpd maxps maxsd maxss minpd minps minsd minss movsb \
|
||||
movsd movsq movss movsw movsx movzx mulpd mulps mulsd mulss \
|
||||
mwait outsb outsd outsw pabsb pabsd pabsw paddb paddd paddq \
|
||||
paddw pandn pause pavgb pavgw pf2id pf2iw pfacc pfadd pfmax \
|
||||
pfmin pfmul pfrcp pfsub pi2fd pi2fw popad popaw popfd popfq \
|
||||
popfw pslld psllq psllw psrad psraw psrld psrlq psrlw psubb \
|
||||
psubd psubq psubw pusha pushd pushf pushq pushw rcpps rcpss \
|
||||
rdmsr rdpmc rdtsc retfd retfq retfw retnd retnq retnw scasb \
|
||||
scasd scasq scasw setae setbe setge setle setna setnb setnc \
|
||||
setne setng setnl setno setnp setns setnz setpe setpo stosb \
|
||||
stosd stosq stosw subpd subps subsd subss vmrun vmxon wrmsr \
|
||||
xlatb xorpd xorps \
|
||||
andnpd andnps cmovae cmovbe cmovge cmovle cmovna cmovnb cmovnc\
|
||||
cmovne cmovng cmovnl cmovno cmovnp cmovns cmovnz cmovpe cmovpo\
|
||||
comisd comiss fcmovb fcmove fcmovu fcomip fcompp fdivrp ffreep\
|
||||
ficomp fidivr fisttp fisubr fldenv fldl2e fldl2t fldlg2 fldln2\
|
||||
fnclex fndisi fninit fnsave fnstcw fnstsw fpatan fprem1 frstor\
|
||||
frstpm fscale fsetpm fstenv fsubrp fucomi fucomp fxsave haddpd\
|
||||
haddps hsubpd hsubps invlpg lfence looped loopeq loopew loopne\
|
||||
loopnz loopzd loopzq loopzw mfence movapd movaps movdqa movdqu\
|
||||
movhpd movhps movlpd movlps movnti movntq movsxd movupd movups\
|
||||
paddsb paddsw pextrw pfnacc pfsubr phaddd phaddw phsubd phsubw\
|
||||
pinsrw pmaxsw pmaxub pminsw pminub pmulhw pmullw psadbw pshufb\
|
||||
pshufd pshufw psignb psignd psignw pslldq psrldq psubsb psubsw\
|
||||
pswapd pushad pushaw pushfd pushfq pushfw rdmsrq rdtscp setalc\
|
||||
setnae setnbe setnge setnle sfence shufpd shufps skinit sqrtpd\
|
||||
sqrtps sqrtsd sqrtss swapgs sysret vmcall vmload vmread vmsave\
|
||||
vmxoff wbinvd wrmsrq \
|
||||
clflush cmovnae cmovnbe cmovnge cmovnle cmpeqpd cmpeqps \
|
||||
cmpeqsd cmpeqss cmplepd cmpleps cmplesd cmpless cmpltpd \
|
||||
cmpltps cmpltsd cmpltss cmpxchg fcmovbe fcmovnb fcmovne \
|
||||
fcmovnu fdecstp fincstp fnstenv frndint fsincos fucomip \
|
||||
fucompp fxrstor fxtract fyl2xp1 invlpga ldmxcsr loopned \
|
||||
loopneq loopnew loopnzd loopnzq loopnzw monitor movddup \
|
||||
movdq2q movhlps movlhps movntdq movntpd movntps movq2dq \
|
||||
paddusb paddusw palignr pavgusb pcmpeqb pcmpeqd pcmpeqw \
|
||||
pcmpgtb pcmpgtd pcmpgtw pfcmpeq pfcmpge pfcmpgt pfpnacc \
|
||||
pfrsqrt phaddsw phsubsw pmaddwd pmulhrw pmulhuw pmuludq \
|
||||
pshufhw pshuflw psubusb psubusw rsqrtps rsqrtss stmxcsr \
|
||||
syscall sysexit sysretq ucomisd ucomiss vmclear vmmcall \
|
||||
vmptrld vmptrst vmwrite \
|
||||
addsubpd addsubps cmpneqpd cmpneqps cmpneqsd cmpneqss cmpnlepd\
|
||||
cmpnleps cmpnlesd cmpnless cmpnltpd cmpnltps cmpnltsd cmpnltss\
|
||||
cmpordpd cmpordps cmpordsd cmpordss cvtdq2pd cvtdq2ps cvtpd2dq\
|
||||
cvtpd2pi cvtpd2ps cvtpi2pd cvtpi2ps cvtps2dq cvtps2pd cvtps2pi\
|
||||
cvtsd2si cvtsd2ss cvtsi2sd cvtsi2ss cvtss2sd cvtss2si fcmovnbe\
|
||||
maskmovq movmskpd movmskps movshdup movsldup packssdw packsswb\
|
||||
packuswb pfrcpit1 pfrcpit2 pfrsqit1 pmovmskb pmulhrsw prefetch\
|
||||
sysenter sysexitq unpckhpd unpckhps unpcklpd unpcklps vmlaunch\
|
||||
vmresume \
|
||||
cmpxchg8b cvttpd2dq cvttpd2pi cvttps2dq cvttps2pi cvttsd2si \
|
||||
cvttss2si pmaddubsw prefetchw punpckhbw punpckhdq punpckhwd \
|
||||
punpcklbw punpckldq punpcklwd \
|
||||
cmpunordpd cmpunordps cmpunordsd cmpunordss cmpxchg16b \
|
||||
loadall286 loadall386 maskmovdqu prefetcht0 prefetcht1 \
|
||||
prefetcht2 punpckhqdq punpcklqdq prefetchnta
|
||||
|
||||
PREFIXES equ rep lock repe repz repne repnz
|
||||
|
||||
DATA_DEFINITORS equ db dw du dd dp df dq dt file
|
||||
DATA_RESERVERS equ rb rw rd rp rf rq rt
|
||||
|
||||
CRLF equ 13, 10 ; Remove 13 for Linux
|
||||
MAX_BYTES equ 13
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MODE MACROSES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
macro use16
|
||||
{
|
||||
use16
|
||||
_USE = 16
|
||||
}
|
||||
|
||||
macro use32
|
||||
{
|
||||
use32
|
||||
_USE = 32
|
||||
}
|
||||
|
||||
macro use64
|
||||
{
|
||||
use64
|
||||
_USE = 64
|
||||
}
|
||||
|
||||
macro detect_mode
|
||||
{
|
||||
local aux
|
||||
|
||||
_USE = 32
|
||||
|
||||
virtual at 0
|
||||
xchg eax, eax
|
||||
load aux byte from 0
|
||||
|
||||
if aux = $66
|
||||
_USE = 16
|
||||
else if aux = $87
|
||||
_USE = 64
|
||||
end if
|
||||
end virtual
|
||||
}
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;; DISPLAYING MACROSES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
macro display_address address*
|
||||
{
|
||||
local aux, digit
|
||||
|
||||
aux = address
|
||||
|
||||
repeat _USE / 4
|
||||
digit = aux shr (_USE - 4 * %) and $F
|
||||
|
||||
display digit + '0' + ('9' - 'B') and (9 - digit) shr 4 and $F
|
||||
end repeat
|
||||
|
||||
display ': '
|
||||
}
|
||||
|
||||
macro display_bytes pointer
|
||||
{
|
||||
local aux, size, digit
|
||||
|
||||
size = $ - pointer
|
||||
|
||||
if size > MAX_BYTES
|
||||
size = MAX_BYTES
|
||||
end if
|
||||
|
||||
repeat size
|
||||
load aux byte from pointer+%-1
|
||||
|
||||
digit = aux shr 4
|
||||
display digit + '0' + ('9' - 'B') and (9 - digit) shr 4 and $F
|
||||
|
||||
digit = aux and $F
|
||||
display digit + '0' + ('9' - 'B') and (9 - digit) shr 4 and $F
|
||||
|
||||
|
||||
display ' '
|
||||
end repeat
|
||||
|
||||
repeat MAX_BYTES - size
|
||||
display ' '
|
||||
end repeat
|
||||
}
|
||||
|
||||
; The macro below in some situations doesn't adds a space to separate things unfortunatelly, so for readability ensurance
|
||||
; another one will be used instead...
|
||||
;macro display_args [args]
|
||||
;{
|
||||
;common
|
||||
; aux = 1
|
||||
;
|
||||
;forward
|
||||
; if ~args eq
|
||||
; if aux
|
||||
; display ' '
|
||||
; else
|
||||
; display ', '
|
||||
; end if
|
||||
;
|
||||
; aux = 0
|
||||
;
|
||||
; match =ON, _RESOLVE_EQUATES
|
||||
; \{
|
||||
; match args, args
|
||||
; \\{
|
||||
; irps arg, args
|
||||
; \\\{
|
||||
; display \\\`arg
|
||||
; \\\}
|
||||
; \\}
|
||||
; \}
|
||||
; match =OFF, _RESOLVE_EQUATES
|
||||
; \{
|
||||
; irps arg, args
|
||||
; \\{
|
||||
; display \\`arg
|
||||
; \\}
|
||||
;
|
||||
; \}
|
||||
; end if
|
||||
;}
|
||||
|
||||
; This one separates everything with one space. A very ugly listing but at least you will not see things
|
||||
; like "push ebxesiedi" nor "ret word0"
|
||||
|
||||
macro display_args [args]
|
||||
{
|
||||
common
|
||||
aux = 1
|
||||
|
||||
forward
|
||||
if ~args eq
|
||||
if ~aux
|
||||
display ','
|
||||
end if
|
||||
|
||||
aux = 0
|
||||
|
||||
match =ON, _RESOLVE_EQUATES
|
||||
\{
|
||||
match args, args
|
||||
\\{
|
||||
if ~args eqtype ""
|
||||
irps arg, args
|
||||
\\\{
|
||||
display ' ', \\\`arg
|
||||
\\\}
|
||||
else
|
||||
display " '", args, "'"
|
||||
end if
|
||||
\\}
|
||||
\}
|
||||
match =OFF, _RESOLVE_EQUATES
|
||||
\{
|
||||
if ~args eqtype ""
|
||||
irps arg, args
|
||||
\\{
|
||||
display ' ', \\`arg
|
||||
\\}
|
||||
else
|
||||
display " '", args, "'"
|
||||
end if
|
||||
\}
|
||||
end if
|
||||
}
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;; INSTRUCTIONS & PREFIXES MACROSES ;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
macro prefix mnemonic
|
||||
{
|
||||
local aux
|
||||
|
||||
macro mnemonic [args]
|
||||
\{
|
||||
\common
|
||||
match =1, _ON_VIRTUAL\\{_LISTING equ 0\\}
|
||||
match =equ, args\\{_LISTING equ 0\\}
|
||||
match =equ any, args\\{_LISTING equ 0\\}
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_address $
|
||||
aux = $
|
||||
\\}
|
||||
|
||||
mnemonic
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_bytes aux
|
||||
|
||||
display \`mnemonic
|
||||
display CRLF
|
||||
\\}
|
||||
|
||||
match =1, _ON_VIRTUAL\\{restore _LISTING\\}
|
||||
match =equ, args\\{restore _LISTING\\}
|
||||
match =equ any, args\\{restore _LISTING\\}
|
||||
|
||||
def_prefix mnemonic
|
||||
args
|
||||
purge mnemonic
|
||||
\}
|
||||
}
|
||||
|
||||
macro def_prefix mnemonic
|
||||
{
|
||||
macro def_prefix mnemonic
|
||||
\{
|
||||
prefix mnemonic
|
||||
\}
|
||||
def_prefix mnemonic
|
||||
}
|
||||
|
||||
macro instruction mnemonic
|
||||
{
|
||||
local aux
|
||||
|
||||
macro mnemonic [args]
|
||||
\{
|
||||
\common
|
||||
match =1, _ON_VIRTUAL\\{_LISTING equ 0\\}
|
||||
match =equ, args\\{_LISTING equ 0\\}
|
||||
match =equ any, args\\{_LISTING equ 0\\}
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_address $
|
||||
aux = $
|
||||
\\}
|
||||
|
||||
mnemonic args
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_bytes aux
|
||||
|
||||
display \`mnemonic
|
||||
|
||||
virtual at 0
|
||||
db \`mnemonic
|
||||
repeat 11 - $
|
||||
display ' '
|
||||
end repeat
|
||||
end virtual
|
||||
|
||||
display_args args
|
||||
display CRLF
|
||||
\\}
|
||||
|
||||
match =1, _ON_VIRTUAL\\{restore _LISTING\\}
|
||||
match =equ, args\\{restore _LISTING\\}
|
||||
match =equ any, args\\{restore _LISTING\\}
|
||||
\}
|
||||
}
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DATA MACROSES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
macro data_define mnemonic
|
||||
{
|
||||
local aux
|
||||
macro mnemonic [args]
|
||||
\{
|
||||
\common
|
||||
match =1, _ON_VIRTUAL\\{_LISTING equ 0\\}
|
||||
match =equ, args\\{_LISTING equ 0\\}
|
||||
match =equ any, args\\{_LISTING equ 0\\}
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_address $
|
||||
aux = $
|
||||
\\}
|
||||
|
||||
mnemonic args
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_bytes aux
|
||||
|
||||
display \`mnemonic
|
||||
|
||||
display_args args
|
||||
display CRLF
|
||||
|
||||
aux = aux + MAX_BYTES
|
||||
|
||||
repeat ($ - aux + MAX_BYTES - 1) / MAX_BYTES
|
||||
display_address aux
|
||||
display_bytes aux
|
||||
display CRLF
|
||||
|
||||
aux = aux + MAX_BYTES
|
||||
end repeat
|
||||
\\}
|
||||
|
||||
match =1, _ON_VIRTUAL\\{restore _LISTING\\}
|
||||
match =equ, args\\{restore _LISTING\\}
|
||||
match =equ any, args\\{restore _LISTING\\}
|
||||
\}
|
||||
|
||||
struc mnemonic [args]
|
||||
\{
|
||||
\common
|
||||
match =1, _ON_VIRTUAL\\{_LISTING equ 0\\}
|
||||
match =equ, args\\{_LISTING equ 0\\}
|
||||
match =equ any, args\\{_LISTING equ 0\\}
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_address $
|
||||
aux = $
|
||||
\\}
|
||||
|
||||
. mnemonic args
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_bytes aux
|
||||
|
||||
display \`., ' ', \`mnemonic
|
||||
|
||||
display_args args
|
||||
display CRLF
|
||||
|
||||
aux = aux + MAX_BYTES
|
||||
|
||||
repeat ($ - aux + MAX_BYTES - 1) / MAX_BYTES
|
||||
display_address aux
|
||||
display_bytes aux
|
||||
display CRLF
|
||||
|
||||
aux = aux + MAX_BYTES
|
||||
end repeat
|
||||
\\}
|
||||
|
||||
match =1, _ON_VIRTUAL\\{restore _LISTING\\}
|
||||
match =equ, args\\{restore _LISTING\\}
|
||||
match =equ any, args\\{restore _LISTING\\}
|
||||
\}
|
||||
}
|
||||
|
||||
macro data_reserve mnemonic
|
||||
{
|
||||
local aux
|
||||
macro mnemonic [args]
|
||||
\{
|
||||
\common
|
||||
match =1, _ON_VIRTUAL\\{_LISTING equ 0\\}
|
||||
match =equ, args\\{_LISTING equ 0\\}
|
||||
match =equ any, args\\{_LISTING equ 0\\}
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_address $
|
||||
aux = $
|
||||
\\}
|
||||
|
||||
mnemonic args
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
times MAX_BYTES display ' '
|
||||
|
||||
display \`mnemonic
|
||||
|
||||
display_args args
|
||||
display CRLF
|
||||
\\}
|
||||
|
||||
match =1, _ON_VIRTUAL\\{restore _LISTING\\}
|
||||
match =equ, args\\{restore _LISTING\\}
|
||||
match =equ any, args\\{restore _LISTING\\}
|
||||
\}
|
||||
|
||||
struc mnemonic [args]
|
||||
\{
|
||||
\common
|
||||
match =1, _ON_VIRTUAL\\{_LISTING equ 0\\}
|
||||
match =equ, args\\{_LISTING equ 0\\}
|
||||
match =equ any, args\\{_LISTING equ 0\\}
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
display_address $
|
||||
aux = $
|
||||
\\}
|
||||
|
||||
. mnemonic args
|
||||
|
||||
match =1, _LISTING
|
||||
\\{
|
||||
times MAX_BYTES display ' '
|
||||
|
||||
display \`., ' ', \`mnemonic
|
||||
|
||||
display_args args
|
||||
display CRLF
|
||||
\\}
|
||||
|
||||
match =1, _ON_VIRTUAL\\{restore _LISTING\\}
|
||||
match =equ, args\\{restore _LISTING\\}
|
||||
match =equ any, args\\{restore _LISTING\\}
|
||||
\}
|
||||
}
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;; LISTING CONTROL MACROSES ;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
macro virtual [args]
|
||||
{
|
||||
common
|
||||
_ON_VIRTUAL equ 1
|
||||
|
||||
virtual args
|
||||
}
|
||||
|
||||
macro end [args]
|
||||
{
|
||||
common
|
||||
match =virtual, args\{restore _ON_VIRTUAL\}
|
||||
|
||||
end args
|
||||
}
|
||||
|
||||
macro enable_listing
|
||||
{
|
||||
detect_mode
|
||||
|
||||
match =0, _MACROSES_INSTALLED
|
||||
\{
|
||||
match instructions, INSTRUCTIONS
|
||||
\\{
|
||||
irps ins, instructions
|
||||
\\\{
|
||||
instruction ins
|
||||
\\\}
|
||||
\\}
|
||||
|
||||
match prefixes, PREFIXES
|
||||
\\{
|
||||
irps prefix, prefixes
|
||||
\\\{
|
||||
def_prefix prefix
|
||||
\\\}
|
||||
\\}
|
||||
|
||||
match data_definitors, DATA_DEFINITORS
|
||||
\\{
|
||||
irps def, data_definitors
|
||||
\\\{
|
||||
data_define def
|
||||
\\\}
|
||||
\\}
|
||||
|
||||
match data_reservers, DATA_RESERVERS
|
||||
\\{
|
||||
irps def, data_reservers
|
||||
\\\{
|
||||
data_reserve def
|
||||
\\\}
|
||||
\\}
|
||||
\}
|
||||
|
||||
_MACROSES_INSTALLED equ 1
|
||||
_LISTING equ 1
|
||||
}
|
||||
|
||||
macro disable_listing
|
||||
{
|
||||
_LISTING equ 0
|
||||
}
|
||||
|
||||
macro enable [feature*]
|
||||
{
|
||||
forward
|
||||
UNKNOWN equ 1
|
||||
|
||||
match =resolve_equates, feature
|
||||
\{
|
||||
restore _RESOLVE_EQUATES
|
||||
_RESOLVE_EQUATES equ ON
|
||||
UNKNOWN equ 0
|
||||
\}
|
||||
|
||||
match =listing, feature
|
||||
\{
|
||||
enable_listing
|
||||
UNKNOWN equ 0
|
||||
\}
|
||||
|
||||
match =1, UNKNOWN
|
||||
\{
|
||||
display 'ERROR: Unknown "',`feature, '" feature', 13, 10
|
||||
err
|
||||
\}
|
||||
|
||||
restore UNKNOWN
|
||||
restore UNKNOWN
|
||||
}
|
||||
|
||||
macro disable [feature*]
|
||||
{
|
||||
UNKNOWN equ 1
|
||||
|
||||
match =resolve_equates, feature
|
||||
\{
|
||||
restore _RESOLVE_EQUATES
|
||||
_RESOLVE_EQUATES equ OFF
|
||||
UNKNOWN equ 0
|
||||
\}
|
||||
|
||||
match =listing, feature
|
||||
\{
|
||||
disable_listing
|
||||
UNKNOWN equ 0
|
||||
\}
|
||||
|
||||
match =1, UNKNOWN
|
||||
\{
|
||||
display 'ERROR: Unknown "',`feature, '" feature', 13, 10
|
||||
err
|
||||
\}
|
||||
|
||||
restore UNKNOWN
|
||||
restore UNKNOWN
|
||||
}
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; INITIALIZATION ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
_MACROSES_INSTALLED equ 0
|
||||
_ON_VIRTUAL equ 0
|
||||
|
||||
disable resolve_equates
|
@ -1,317 +0,0 @@
|
||||
; Copyright (c) 2008-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 nickname <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.
|
||||
;*****************************************************************************
|
||||
|
||||
;start of the project 13.02.2008 year.
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;Secondary Loader copyright Alexey Teplov nickname <Lrz>
|
||||
;if you need log preproc
|
||||
;/////////////
|
||||
;include 'listing.inc'
|
||||
;enable listing
|
||||
;////////////
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;start of code: ;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use16
|
||||
org 0x0
|
||||
jmp start
|
||||
include 'sl_equ.inc' ; â ôàéëå ðàçìåùåíû âñå equ ïðåäîïðåäåëåíèÿ
|
||||
include 'boot_st.inc'
|
||||
include 'debug_msg.inc' ;here is message from debug
|
||||
include 'parse_dat.inc'
|
||||
include 'sl_proc.inc'
|
||||
include 'parse.inc'
|
||||
include 'parse_loader.inc'
|
||||
include 'parse_any.inc'
|
||||
include 'parse_def_sect.inc'
|
||||
include 'parse_err.inc'
|
||||
|
||||
file_data dw 0x0,ini_data_ ;ôîðìàò: ñìåùåíèå: ñåãìåíò ò.ê. èñïîëüçóåòñÿ les
|
||||
size_data dw 16 ;16 áëîêîâ ïî 4 êá ò.å ïðåäåë äî 64 êá
|
||||
name_ini_f db 'kord/startos.ini',0
|
||||
|
||||
;////////////
|
||||
loader_callback dd ?
|
||||
load_drive dw ?
|
||||
load_ft dw ?
|
||||
;Start code
|
||||
|
||||
start:
|
||||
; Save far pointer to callback procedure, ds:si is point
|
||||
mov word [cs:loader_callback], si
|
||||
mov word [cs:loader_callback+2], ds
|
||||
; Save type of drive
|
||||
mov word [cs:load_drive],ax
|
||||
; Save type of FT
|
||||
mov word [cs:load_ft],bx
|
||||
; set up stack
|
||||
mov ax, cs
|
||||
mov ss, ax
|
||||
xor sp, sp
|
||||
; set up segment registers
|
||||
mov ds,ax
|
||||
mov es,ax
|
||||
; just to be sure: force DF=0, IF=1
|
||||
cld
|
||||
sti
|
||||
|
||||
; set videomode
|
||||
mov ax,3
|
||||
int 0x10
|
||||
|
||||
mov si,version
|
||||
call printplain
|
||||
mov al,'#'
|
||||
mov cx,80
|
||||
;input cx=size al=char áóäåò âûâäåí ñèìâîë ñêîëüêî ðàç óêàçàíî â cx
|
||||
@@:
|
||||
call putchar
|
||||
loop @b
|
||||
|
||||
if DEBUG
|
||||
pushad
|
||||
mov ax,cs
|
||||
shl eax,4 ; â äåñÿòè÷íîé ñèñòåìå àäðåñ ñåãìåíòà
|
||||
mov cx,0xa
|
||||
mov di,cseg_msg
|
||||
call decode
|
||||
;***************
|
||||
mov si,cseg_msg
|
||||
call printplain
|
||||
popad
|
||||
end if
|
||||
|
||||
|
||||
if DEBUG
|
||||
mov si,stack_msg
|
||||
call printplain
|
||||
end if
|
||||
|
||||
; Require 586 or higher processor (cpuid and rdtsc,rdmsr/wrmsr commands)
|
||||
; install int 6 (#UD) handler
|
||||
xor bx, bx
|
||||
mov ds, bx
|
||||
push word [bx+6*4+2]
|
||||
push word [bx+6*4]
|
||||
mov word [bx+6*4], ud16
|
||||
mov word [bx+6*4+2], cs
|
||||
; issue CPUID command
|
||||
xor eax, eax ; N.B.: will cause #UD before 386
|
||||
cpuid ; N.B.: will cause #UD before later 486s
|
||||
test eax, eax
|
||||
jz cpubad
|
||||
; get processor features
|
||||
xor eax, eax
|
||||
inc ax
|
||||
cpuid
|
||||
test dl, 10h ; CPUID[1].edx[4] - TSC support
|
||||
jz cpubad
|
||||
test dl, 20h ; CPUID[1].edx[5] - MSR support
|
||||
jnz cpugood
|
||||
|
||||
ud16: ; #UD handler, called if processor did not recognize some commands
|
||||
cpubad:
|
||||
; restore int 6 (#UD) handler
|
||||
pop word [6*4]
|
||||
pop word [6*4+2]
|
||||
; say error
|
||||
push cs
|
||||
pop ds
|
||||
mov si, badprocessor
|
||||
sayerr:
|
||||
call printplain
|
||||
jmp $
|
||||
|
||||
cpugood:
|
||||
; restore int 6 (#UD) handler
|
||||
pop dword [6*4]
|
||||
push cs
|
||||
pop ds
|
||||
|
||||
; set up esp
|
||||
movzx esp, sp
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; init memory
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
|
||||
|
||||
|
||||
; Load startos.ini
|
||||
mov cx,loop_read_startos_file ;êîë-âî ïîïûòîê ÷òåíèÿ ôàéëà êîíôèãóðàöèè startos.ini
|
||||
align 4
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; Load startos.ini ;
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
load_startos_file:
|
||||
|
||||
xor ax,ax
|
||||
mov di,file_data
|
||||
inc ax ;function 1 - read file
|
||||
push cx
|
||||
call far dword [loader_callback]
|
||||
pop cx
|
||||
push cs
|
||||
push cs
|
||||
pop ds
|
||||
pop es
|
||||
|
||||
test bx,bx
|
||||
jz check_conf_file
|
||||
dec cx
|
||||
jnz load_startos_file
|
||||
|
||||
;SET DEFAULT Not use ini file
|
||||
error_ini:
|
||||
mov si, error_ini_f1 ;Error: cannot load ini file, buffer is full
|
||||
dec bx
|
||||
jz err_show_ini
|
||||
mov si, error_ini_f2 ;Error: ini file not found
|
||||
dec bx
|
||||
jz err_show_ini
|
||||
mov si, error_ini_f3 ;Error: cannot read ini file
|
||||
dec bx
|
||||
jz err_show_ini
|
||||
|
||||
mov si, error_ini_nf ;Error: unrecognized error when loading ini file
|
||||
err_show_ini:
|
||||
call printplain
|
||||
mov si, error_ini_common
|
||||
call printplain
|
||||
; wait for keypress
|
||||
xor ax,ax
|
||||
int 16h
|
||||
|
||||
ini_loaded:
|
||||
|
||||
jmp $
|
||||
|
||||
align 4
|
||||
check_conf_file:
|
||||
;Check config file in current dir
|
||||
push ax ;save size file
|
||||
if DEBUG
|
||||
mov cx,0x0a
|
||||
mov di,show_decode
|
||||
call decode
|
||||
;Show size
|
||||
mov si,show_string
|
||||
call printplain
|
||||
end if
|
||||
|
||||
|
||||
;Show message
|
||||
mov si,load_ini
|
||||
call printplain
|
||||
|
||||
pop cx ;restore size file
|
||||
use_parse ;parsing startos.ini
|
||||
;
|
||||
jmp ini_loaded
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;DATA
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; table for move to extended memory (int 15h, ah=87h)
|
||||
align 4
|
||||
table_15_87:
|
||||
db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
|
||||
db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
|
||||
|
||||
db 0xff,0xff
|
||||
db 0x0,0x10
|
||||
db 0x00,0x93,0x0,0x0
|
||||
|
||||
db 0xff,0xff,0x0,0x00,0x10,0x93,0x0,0x0
|
||||
|
||||
db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
|
||||
db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
|
||||
db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
|
||||
db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
|
||||
|
||||
fat12_buffer:
|
||||
.BS_jmpBoot db 0x90,0x90,0x90 ;3 áàéòà NOP èíñòðóêöèÿ - íè÷åãî íå äåëàòü
|
||||
.BS_OEMName db 'K SyS 64' ;8 áàéò
|
||||
.BPB_BytsPerSec dw 512 ;êîë-âî áàéòîâ â ñåêòîðå ìîæåò áûòü ëþáîå 512 1024 2048 4096 2 áàéòà
|
||||
.BPB_SecPerClus db 0x1 ;êîë-âî ñåêòîðîâ â êëàñòåðå
|
||||
.BPB_RsvdSecCnt dw 0x1 ;äëÿ FAt12/16 òîëüêî 1, äëÿ FAT32 îáû÷íî 32
|
||||
.BPB_NumFATs db 0x1 ;êîë-âî ôàò òàáëèö, íà òîò ñëó÷àé åñëè áóäåò ñáðîñ íà äèñêåòó îáðàçà ðàì äèñêà
|
||||
.BPB_RootEntCnt dw 512 ;äëÿ ìàê ñîâìåñòèìîñòè ñ fat16
|
||||
.BPB_TotSec16 dw 0x0 ;êë-âî ñåêòîðîâ
|
||||
.BPB_Media db 0xF0
|
||||
.BPB_FATSz16 dw 0x0
|
||||
.BPB_SecPerTrk dw 0x0 ;ñîäåðæèò ãåîìåòðèþ äèñêà äëÿ RAMFS íà êàê áû áåç ðàçíèöû, ïîêà ïóñòîå ïîëå, ïîçæå âíåñòè ðåàëüíûå çíà÷åíèÿ.
|
||||
.BPB_NumHeads dw 0x0
|
||||
.BPB_HiddSec dd 0x0 ;êîë-âî ñêðûòûõ ñåêòîðîâ
|
||||
.BPB_TotSec32 dd 0x0
|
||||
.BS_DrvNum db 'R' ;îò ñëîâà RAM
|
||||
.BS_Reserved1 db 0x0
|
||||
.BS_BootSig db 0x29
|
||||
.BS_VolID db 'RFKS'
|
||||
.BS_VolLab db 'RAM DISK FS' ;11 ñèìâîëîâ
|
||||
.BS_FilSysType db 'FAT12 ' ;8 ñèìâîëîâ
|
||||
;62 áàéòà ñòðóêòóðà fat12.
|
||||
db (512-($-fat12_buffer))dup(0x90)
|
||||
|
||||
|
||||
|
||||
;ñòðóêòóðà äëÿ äèððåêòîðèè fat
|
||||
struc FAT_32_entry ;Byte Directory Entry Structure
|
||||
{
|
||||
.DIR_Name rb 11
|
||||
.DIR_Attr db ?
|
||||
.DIR_NTRes db ?
|
||||
.DIR_CrtTimeTenth db ?
|
||||
.DIR_CrtTime dw ?
|
||||
.DIR_CrtDate dw ?
|
||||
.DIR_LstAccDate dw ?
|
||||
.DIR_FstClusHI dw ?
|
||||
.DIR_WrtTime dw ?
|
||||
.DIR_WrtDate dw ?
|
||||
.DIR_FstClusLO dw ?
|
||||
.DIR_FileSize dd ?
|
||||
|
||||
|
||||
}
|
||||
;Òóò áóäóò ðàñïîëîãàòñüÿ äàííûå, êîòîðûå çàòðóäíèòåëüíî ðàñïîëîãàòü â ñòåêîâîé îáëàñòè....
|
||||
;;;
|
||||
;timer
|
||||
shot_name_fat rb 11 ;âðåìåííûé áóôåð äëÿ fat12, â íåì õðàíÿòüñÿ èìåíà ôàéëîâ ïðèâåäåííûå ê ïðàâèëàì FAT /* âäàëüíåéøåì ïåðåíåñòè â ñòýê
|
||||
|
||||
if DEBUG
|
||||
rb 1 ;íóæåí äëÿ îòëàäêè è âûâîäà èìåíè ôàéëà ïîñëå ïðåîáðàçîâàíèÿ
|
||||
dest_name_fat db 24 dup('_');12
|
||||
db 0x0
|
||||
end if
|
||||
|
||||
value_timeout rw 1 ;value to timeout
|
||||
old_timer rd 1 ;ñòàðîå çíà÷åíèå âåêòîðà òàéìåðà
|
||||
start_timer rd 1 ;çíà÷åíèå òàéìåðà
|
||||
timer_ rd 1 ;íîâîå çíà÷åíèå âåêòîðà òàéìåðà ò.å. SL
|
||||
start_stack rw 1 ;save stack
|
||||
save_bp_from_timer rw 1 ;save bp from timer
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -1,118 +0,0 @@
|
||||
; 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 nickname <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.
|
||||
;*****************************************************************************
|
||||
|
||||
; Ìîäóëü ïàðñèíãà - ýòî ñòàíäàðòíûé êîìïîíåíò, âñòðàèâàåìûé âî âòîðè÷íûé çàãðóç÷èê.
|
||||
; Äàííûé ìîäóëü ïîçâîëÿåò ñòàíäàðòíî ïðîèçâåñòè ðàçáîð ini ôàéëà
|
||||
; (è ñ èñïîëüçîâàíèåì ïîëó÷åííûõ äàííûõ ÎÑ áóäåò çàãðóæàòüñÿ äàëüøå).
|
||||
;  íà÷àëå íàéäåì îòêðûâàþùèé "[" - ýòî áóäåò óêàçûâàòü íà íà÷àëî
|
||||
; ñåêöèè. Ïîääåðæèâàåòñÿ 1 ñåêöèÿ ýòî [loader], îñòàëüíûå ñåêöèè ìîãóò èìåòü
|
||||
; ëþáûå èìåíà, íî îíè äîëæíû áûòü çàêëþ÷åíû â â ñêîáêè []
|
||||
macro use_parse
|
||||
{
|
||||
;input cx=size of ini file
|
||||
parse_start:
|
||||
;es:di as 2000:0000 new segment
|
||||
;óñòàíîâèì óêàçàòåëü íà çàãðóæåííûé áëîê
|
||||
enter 256,0 ;set 16 byte for current task in stack
|
||||
;we are is not use bp because bp is pointer on array 16 byte
|
||||
mov word [save_bp_from_timer],bp ;save point to own data array
|
||||
mov save_cx,cx ;it's placed size of ini file
|
||||
les di,dword [file_data]
|
||||
;îáíóëèì âñå ïåðåìåííûå âûäåëåííûå èç ñòåêà
|
||||
;init flag
|
||||
xor ax,ax
|
||||
mov status_flag,ax
|
||||
;set data size
|
||||
mov info_real_mode_size,ini_data_ +0x1000 ;èçìåíèì çíà÷åíèå çàíÿòîñòè ïàìÿòè
|
||||
|
||||
;ïîèñê íà÷àëà áëîêà.
|
||||
;///////////check [loader]
|
||||
cld
|
||||
|
||||
mov ret_on_ch,.start ;set return
|
||||
mov al,byte [es:di]
|
||||
push word .first_ret
|
||||
cmp al,' '
|
||||
jz .first_sp_1
|
||||
jmp get_firs_sym.not_space
|
||||
.first_sp_1:
|
||||
jmp get_firs_sym.first_sp
|
||||
|
||||
.start:
|
||||
call get_firs_sym ;get first symbol on new line
|
||||
.first_ret: ;ïåðâûé âîçâðàò
|
||||
; jcxz .end_file ;.end_loader ;found or not found parametrs in section exit in section
|
||||
test cx,cx
|
||||
jz error.not_loader
|
||||
cmp al,'['
|
||||
jz .parse_loader
|
||||
jmp .start
|
||||
;////// ïðîâåðêà íà íàëè÷åå ñåêöèè loader
|
||||
use_parse_loader
|
||||
;pause
|
||||
if DEBUG
|
||||
xor ax,ax
|
||||
int 16h
|
||||
end if
|
||||
;////// âûâîä ãðàôè÷åñêîãî ýêðàíà, âûáîð, ñåêöèè ïîä äåôîëòó
|
||||
use_any_sec
|
||||
;ïàðñèíã âûáðàíîé èëè äåôîëòíîé ñåêöèè ò.å. ðàçáîð ïàðàìåòðîâ âûïîëíåíèå ñöåíàðèÿ
|
||||
use_parse_def_sect
|
||||
|
||||
;//////////////////
|
||||
;/end parse block
|
||||
;//////////////////
|
||||
;.end_bl:
|
||||
; mov cx,bx
|
||||
;
|
||||
; jmp .start
|
||||
|
||||
.exit:
|
||||
|
||||
; mov si,parse_ini_end
|
||||
; call printplain
|
||||
;
|
||||
;if DEBUG
|
||||
; pusha
|
||||
; mov ax,cx
|
||||
; mov cx,0x0a
|
||||
; mov di,show_db1_dec
|
||||
; mov dword[ds:di],' '
|
||||
; call decode
|
||||
;Show size
|
||||
; mov si,show_db1
|
||||
; call printplain
|
||||
;
|
||||
; popa
|
||||
;end if
|
||||
jmp $
|
||||
|
||||
;///////////////////procedure //////////
|
||||
;input es:di - is pointer to date
|
||||
;cx - counter
|
||||
;return: cx - status if =0 - end of date else es:di point to first symbol on new line
|
||||
|
||||
}
|
@ -1,683 +0,0 @@
|
||||
; 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,(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:
|
||||
}
|
@ -1,56 +0,0 @@
|
||||
; 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 nickname <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.
|
||||
;*****************************************************************************
|
||||
|
||||
;Òóò ïðåäñòàâëåííû òåãè, äëÿ ñðàâíåíèÿ
|
||||
parse_loader db '[loader]'
|
||||
parse_loader_e:
|
||||
parse_l_timeout db 'timeout'
|
||||
parse_l_timeout_e:
|
||||
parse_l_default db 'default'
|
||||
parse_l_default_e:
|
||||
parse_name db 'ame'
|
||||
parse_name_e:
|
||||
parse_descript db 'descript'
|
||||
parse_descript_e:
|
||||
|
||||
parse_LoaderModule db 'LoaderModule'
|
||||
parse_LoaderModule_e:
|
||||
parse_RamdiskSize db 'RamdiskSize'
|
||||
parse_RamdiskSize_e:
|
||||
parse_RamdiskFS db 'RamdiskFS'
|
||||
parse_RamdiskFS_e:
|
||||
parse_RamdiskSector db 'RamdiskSector'
|
||||
parse_RamdiskSector_e:
|
||||
parse_RamdiskCluster db 'RamdiskCluster'
|
||||
parse_RamdiskCluster_e:
|
||||
parse_RFS_FAT db 'FAT'
|
||||
parse_RFS_FAT_e:
|
||||
parse_RFS_KRFS db 'KRFS'
|
||||
parse_RFS_KRFS_e:
|
||||
parse_Loader_Image db 'LoaderImage'
|
||||
parse_Loader_Image_e:
|
||||
parse_RamdiskFile db 'RamdiskFile'
|
||||
parse_RamdiskFile_e:
|
File diff suppressed because it is too large
Load Diff
@ -1,66 +0,0 @@
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
error:
|
||||
.rest_value:
|
||||
mov di,ax ;restore value after repe cmpsb
|
||||
mov cx,bx
|
||||
jmp ret_on_ch ;return
|
||||
|
||||
;///// îøèáêà ïðè íàõîäæåíèè äëèííû ñåêöèè â ïàðàìåòðå default
|
||||
.error_get_size_d_sect:
|
||||
leave ;clear array in stack
|
||||
mov si,not_found_def_sect
|
||||
jmp err_show_ini
|
||||
|
||||
;/////ERROR
|
||||
.not_loader:
|
||||
leave ;clear array in stack
|
||||
mov si,not_found_sec_loader
|
||||
jmp err_show_ini
|
||||
|
||||
.default_eq_loader: ;êðèòè÷åñêàÿ îøèáêà default ñåêöèÿ = loader
|
||||
leave
|
||||
mov si,default_eq_loader
|
||||
jmp err_show_ini
|
||||
.correct_exit_bl:
|
||||
leave
|
||||
mov si,point_to_default_sec_not_found
|
||||
jmp err_show_ini
|
||||
.incorect_section_def:
|
||||
leave
|
||||
mov si,incorect_section_define
|
||||
jmp err_show_ini
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;show message error
|
||||
.LoaderModule:
|
||||
push word 0xb800
|
||||
pop es
|
||||
|
||||
|
||||
|
||||
|
||||
ret
|
@ -1,332 +0,0 @@
|
||||
; 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 nickname <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.
|
||||
;*****************************************************************************
|
||||
|
||||
;áëîê ìàêðîñîâ ïî îáðàáîòêå ñåêöèè [loader]
|
||||
;âõîäíûå äàííûå:
|
||||
;es:di - óêàçàòåëü íà ñåêöèþ íà÷èíàþùèþñÿ ñ '[' âñòå÷àþùèþñÿ ïîñëå 0õa
|
||||
;cx - ñ÷åò÷èê êîë-âî áàéò äëÿ ïðîâåðêå â êàäðå
|
||||
;
|
||||
macro use_parse_loader
|
||||
{
|
||||
.parse_loader:
|
||||
;//////////////////
|
||||
;/ parse [loader]
|
||||
;//////////////////
|
||||
mov bx,cx ;cîõðàíèì â ðåãèñòðû çíà÷åíèÿ ñ÷åò÷èêà è óêàçàòåëÿ
|
||||
mov ax,di
|
||||
|
||||
; mov word [bp-4],.start ;is alredy set, see up
|
||||
mov si,parse_loader
|
||||
mov cx,parse_loader_e - parse_loader
|
||||
repe cmpsb
|
||||
jnz error.rest_value ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå ò.å. áóäåì ñíîâà èñêàòü))
|
||||
|
||||
;ñîõðàíèì óêàçàòåëüíà loader, ÷òî áû ïîòîì áîëüøå åãî íå èñêàòü
|
||||
mov point_loader,ax
|
||||
sub bx,parse_loader_e - parse_loader ;correct cx
|
||||
add bx,cx
|
||||
mov cx,bx
|
||||
|
||||
if DEBUG
|
||||
pusha
|
||||
mov si,lm_l_found
|
||||
call printplain
|
||||
popa
|
||||
end if
|
||||
;/////////////////end check [loader]. [loader] is found
|
||||
;parsing section [loader]
|
||||
;first found end section,let's found '[' -it's start next section
|
||||
;in previosly steep bx =cx we are not need save cx, save only di - point
|
||||
mov dx,di
|
||||
@@:
|
||||
call get_firs_sym
|
||||
jcxz .loader_f_end ;.end_loader ; end äàæå åñëè ìû íå íàøëè ñåêöèþ ïðåäïîëîæèì ÷òî ñåêöèÿ [loader] ñòîèò â êîíöå
|
||||
cmp al,'['
|
||||
jnz @b
|
||||
|
||||
.loader_f_end:
|
||||
sub bx,cx ;bx = n byte presend in section [loader]
|
||||
mov di,dx ;restore di
|
||||
;////////////////parse parametrs in section [loader]
|
||||
;//timeout=5
|
||||
;//default=main
|
||||
; mov di,dx ;set pointer on section [loader] i think it's not need
|
||||
mov cx,bx ;set counter for parsing section [loader] cx= êîë-âó ñèìâîëîâ â ñåêöèè [loader]
|
||||
mov ret_on_ch,.get_next_str ; return point
|
||||
;;;;;;; parse timeout & default
|
||||
.get_next_str:
|
||||
call get_firs_sym ;get first symbol on new line
|
||||
|
||||
test cx,cx
|
||||
jz .end_loader
|
||||
; jcxz .end_loader ;çàâåðøåíèå ïàðñèíãà çíà÷åíèé timeout & default
|
||||
cmp al,'t'
|
||||
jz .loader_timeout
|
||||
cmp al,'d'
|
||||
jnz .get_next_str
|
||||
;//////[loader].default
|
||||
;input di point to data cx=size [loader]
|
||||
mov bx,cx
|
||||
mov ax,di
|
||||
|
||||
mov si,parse_l_default
|
||||
mov cx,parse_l_default_e - parse_l_default
|
||||
repe cmpsb
|
||||
|
||||
jnz error.rest_value ;is not compare öåïî÷êà íå ñîâïàëà
|
||||
|
||||
sub bx,parse_l_default_e - parse_l_default ;correct cx
|
||||
add bx,cx
|
||||
mov cx,bx
|
||||
|
||||
test status_flag,flag_found_default
|
||||
jz .correct_is_not_set
|
||||
|
||||
mov si,found_equal_default ;ìû íàøëè ÷òî ôëàã óæå óñòàíîâëåí, èíôîðìèðóåì
|
||||
call printplain
|
||||
jmp .get_next_str
|
||||
|
||||
.correct_is_not_set:
|
||||
mov ax,0x3d20 ;cut al=' ' ah='='
|
||||
repe scasb
|
||||
test cx,cx
|
||||
jz .end_loader
|
||||
|
||||
cmp ah,byte [es:di-1] ;find '='
|
||||
jnz .get_next_str
|
||||
|
||||
repe scasb ;cut ' '
|
||||
inc cx
|
||||
dec di
|
||||
;ñåé÷àñ es:di óêàçûâàþò íà íàçâàíèå ñåêöèè, èìÿ ñåêöèè ïî äåôîëòó íå äîëæíî áûòü loader ò.å. èíà÷å âîçìîæíî çàöèêëèâàíèå
|
||||
;óñòàíîâèì óêàçàòåëü si íà ýòî çíà÷åíèå è ñíà÷àëà ïðîâåðèì
|
||||
|
||||
;ïîëó÷åíèå äëèííû ñåêöèè
|
||||
; cx=bx ñîäåðæèò äëèííó îñòàòêà ñåêöèè
|
||||
; di=ax óêàçàòåëü íà òåêóùèþ ñåêöèþ
|
||||
mov bx,cx
|
||||
mov dx,di
|
||||
|
||||
@@: mov al,byte [es:di]
|
||||
inc di
|
||||
dec cx
|
||||
test cx,cx
|
||||
jz error.error_get_size_d_sect ;ïåðåõîä íà îáðàáîòêó îøèáêè ïî íàõîæäåíèþ äëèíû äåôîëòíîé ñåêöèè
|
||||
cmp al,' '
|
||||
jz @b
|
||||
cmp al,0xd
|
||||
jz .found_size_d_sect
|
||||
cmp al,0xa
|
||||
jnz @b
|
||||
.found_size_d_sect:
|
||||
;
|
||||
inc cx ;correct cx
|
||||
mov ax,bx
|
||||
sub bx,cx ; â bx äëèíà ñåêöèè êîòîðàÿ îïðåäåëåíà ïî äåôîëòó
|
||||
mov save_cx_d,bx
|
||||
mov di,dx
|
||||
|
||||
mov cx,bx ;set size default section
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ïðîâåðêà íà =loader
|
||||
;save in reg point and ñ÷åò÷èê
|
||||
;check on loader
|
||||
mov bx,ax
|
||||
mov ax,dx
|
||||
|
||||
mov si,parse_loader
|
||||
inc si ;set only loader and 6 char in counter
|
||||
repe cmpsb
|
||||
jnz .check_section ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå )) çíà÷èò íå èñêëþ÷åíèå
|
||||
|
||||
jmp error.default_eq_loader ;error êðèòè÷åñêàÿ îøèáêà ò.å. â äåôîëòå ïðèñóòñòâóåò èìÿ [loader]
|
||||
|
||||
.check_section: ;ïîèñê ñîîòâåòñòâóþùåé ñåêöèè íàì íóæíî áóäåò óçíàòü àäðåñ ýòîé ñåêöèè
|
||||
mov cx,bx
|
||||
mov di,ax
|
||||
|
||||
;/////////////////////////////
|
||||
; mov ret_on_ch,.start_d ;set return
|
||||
mov si,di ;óñòàíîâèì óêàçàòåëü íà íàøó ñåêöèþ, êîòîðàÿ ïî äåôîëòó
|
||||
|
||||
push di ;save point di
|
||||
|
||||
push cx ;save cx
|
||||
;óñòàíîâèì óêàçàòåëü es:di íà íà÷àëî ini ôàéëà
|
||||
mov cx,save_cx ;it's placed size of ini file
|
||||
les di,dword [file_data]
|
||||
|
||||
|
||||
mov al,byte [es:di]
|
||||
push word .first_ret_d
|
||||
cmp al,' '
|
||||
jz .first_sp_1_d
|
||||
jmp get_firs_sym.not_space
|
||||
.first_sp_1_d:
|
||||
jmp get_firs_sym.first_sp
|
||||
|
||||
.start_d:
|
||||
call get_firs_sym ;get first symbol on new line
|
||||
.first_ret_d: ;ïåðâûé âîçâðàò
|
||||
jcxz .correct_exit ;.end_loader ;found or not found parametrs in section exit in section
|
||||
cmp al,'['
|
||||
jz .found_sect_d
|
||||
jmp .start_d
|
||||
;ïðîñìàòðèâàåì ini ôàéë ñ íà÷àëà â ïîèñêàõ ñåêöèè óêàçàíîé êàê default
|
||||
;èäåò ïðîâåðêà íà íàëè÷åå çíà÷åíèÿ timeout, äëÿ áîëåå áûñòðîé ðàáîòû, ýòîò ïàðàìåòð äîëæåí áûòü óæå îáðàáîòàí,ò.å. â ýòîì ñëó÷àå ïðè åãî =0 áóäåò ñôîðìèðîâàí óêàçàòåëü òîëüêî íà äåôîëòíóþ ñåêöèþ, èíà÷å èíôîðìàöèÿ áóäåò ñîáðàíà ïî âñåì ñåêöèÿì è ñîñòàâëåíû óêàçàòåëè â áëîêå ïàìÿòè
|
||||
.found_sect_d:
|
||||
|
||||
;check on name section
|
||||
mov bx,cx
|
||||
mov ax,di
|
||||
push si ;save point
|
||||
|
||||
; mov si,parse_loader
|
||||
mov cx,save_cx_d ;load size section
|
||||
push es
|
||||
pop ds
|
||||
|
||||
inc di
|
||||
repe cmpsb
|
||||
push cs
|
||||
pop ds
|
||||
pop si
|
||||
|
||||
jnz .not_compare_d_s ;öåïî÷êà íå ñîâïàëà :( ïåðåéäåì äàëåå )) çíà÷èò íå èñêëþ÷åíèå
|
||||
cmp byte[es:di],']'
|
||||
jnz .not_compare_d_s ;íåò â êîíöå íàøåé ñåêöèè çàâåðøàþùåãî ñèìâîëà :(
|
||||
|
||||
|
||||
|
||||
;set flag -we have found default -not enter again in this prosedure
|
||||
or status_flag,flag_found_default
|
||||
pop cx
|
||||
pop di
|
||||
mov point_default,ax ;point to [
|
||||
|
||||
if DEBUG
|
||||
pusha
|
||||
mov si,lm_lf_default_f
|
||||
call printplain
|
||||
popa
|
||||
end if
|
||||
|
||||
jmp .get_next_str
|
||||
|
||||
.not_compare_d_s:
|
||||
|
||||
mov cx,bx
|
||||
mov di,ax
|
||||
jmp .start_d
|
||||
|
||||
.correct_exit:
|
||||
pop cx ;âîññòàíîâèì çíà÷åíèå ñ÷åò÷èêà
|
||||
pop di
|
||||
|
||||
|
||||
if DEBUG
|
||||
pusha
|
||||
mov si,lm_lf_default
|
||||
call printplain
|
||||
popa
|
||||
end if
|
||||
jmp .get_next_str
|
||||
|
||||
;//////////[loader].timeout
|
||||
.loader_timeout:
|
||||
mov bx,cx
|
||||
mov ax,di
|
||||
|
||||
mov si,parse_l_timeout
|
||||
mov cx,parse_l_timeout_e - parse_l_timeout
|
||||
repe cmpsb
|
||||
jnz error.rest_value ;is not compare
|
||||
|
||||
sub bx,parse_l_timeout_e - parse_l_timeout ;correct cx
|
||||
add bx,cx
|
||||
mov cx,bx
|
||||
|
||||
test status_flag,flag_found_timeout
|
||||
jz .correct_is_not_set_t
|
||||
|
||||
mov si,found_equal_timeout ;ìû íàøëè ÷òî ôëàã óæå óñòàíîâëåí, èíôîðìèðóåì
|
||||
call printplain
|
||||
jmp .get_next_str
|
||||
|
||||
.correct_is_not_set_t:
|
||||
mov ax,0x3d20 ;cut al=' ' ah='='
|
||||
repe scasb
|
||||
jcxz .timeout_sec_end_d ;not found param timeout
|
||||
|
||||
cmp ah,byte [es:di-1] ;find '='
|
||||
jnz .get_next_str
|
||||
|
||||
repe scasb ;cut ' '
|
||||
inc cx
|
||||
dec di
|
||||
;get timeout value
|
||||
;2 çíàêa ìîæåò áûòü îáðàáîòàíî ò.å. çíà÷åíèå îò 0 äî 99 ñåêóíä
|
||||
push cx
|
||||
xor bx,bx
|
||||
mov cx,2
|
||||
@@: mov al,byte [es:di]
|
||||
cmp al,'0'
|
||||
jb .end_get_val_t
|
||||
cmp al,'9'
|
||||
ja .end_get_val_t
|
||||
imul bx,10
|
||||
xor al,0x30
|
||||
add bl,al
|
||||
.end_get_val_t:
|
||||
inc di
|
||||
loop @b
|
||||
mov word [value_timeout],bx
|
||||
; pop cx
|
||||
|
||||
if DEBUG
|
||||
pusha
|
||||
mov si,lm_lf_timeout
|
||||
call printplain
|
||||
popa
|
||||
end if
|
||||
|
||||
jmp @f
|
||||
.timeout_sec_end_d:
|
||||
mov word [value_timeout],default_timeout_value
|
||||
mov si,set_default_timeout_val
|
||||
call printplain
|
||||
@@: pop cx
|
||||
jmp .get_next_str
|
||||
|
||||
;///////here end block loader
|
||||
.end_loader:
|
||||
if DEBUG
|
||||
pusha
|
||||
mov si,lm_l_end
|
||||
call printplain
|
||||
popa
|
||||
end if
|
||||
|
||||
}
|
@ -1,98 +0,0 @@
|
||||
; Copyright (c) 2008-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.
|
||||
;*****************************************************************************
|
||||
; Ïðåäîïðåäåëåíèÿ
|
||||
DEBUG equ 1 ;êîìïèëÿöèÿ ñ îòëàäî÷íîé èíôîðìàöèåé =1 áåç îòëàäî÷íîé èíôîðàöèè =0
|
||||
loop_read_startos_file equ 3 ;êîë-âî ïîïûòîê ñ÷èòàòü ÷åðåç callback ñåðâèñ ôàéë êîíôèãóðàöèè áëîê2
|
||||
root_dir_entry_count equ 224 ;êîë-âî ýëåìåíòîâ â êîðíåâîé äèððåêòîðèè
|
||||
;point_to_fat_struc equ 0xA000 ;âðåìåííûé áóôåð, êóäà áóäåò ðàçìåùåíà Fat òàáëèöà, è çàòåì ïåðåíåñåíà çà 1 ìá
|
||||
ini_data_ equ 0x2000 ;ôàéë ãäå ðàçìåùåí ôàéë ñöåíàðèÿ çàãðóçêè, òàì ïðîèñõîäèò ñèíòàêñè÷åñêèé ðàçáîð
|
||||
size_show_section equ 18
|
||||
default_timeout_value equ 5 ;default value to timeout is will was some errors
|
||||
flag_found_default equ 0x1 ;default value is found
|
||||
flag_found_timeout equ 0x2 ;timeout value is found
|
||||
flag_found_LM equ 0x1 ;found LM value
|
||||
flag_found_RS equ 0x2 ;found RS value
|
||||
flag_found_GTRFMS equ 0x4 ;found type RamFS
|
||||
flag_found_RamdiskSector equ 0x8 ;found RamdiskSector
|
||||
flag_found_RamdiskCluster equ 0x16 ;found RamdiskCluster
|
||||
;statick data ýòè äàííûå íå ïðåäîïðåäåëÿþòñÿ â òå÷åíèè âûïîëíåíèÿ âñåé ïðîãðàììû.
|
||||
save_cx equ word [bp-2] ;save cx size ini file
|
||||
ret_on_ch equ word [bp-4] ;point to return ðàçðóøàåìîå çíà÷åíèå
|
||||
save_cx_d equ word [bp-6] ;save cx - size default section and working section
|
||||
status_flag equ word [bp-8] ;status flag
|
||||
point_loader equ word [bp-10]
|
||||
point_default equ word [bp-12] ;point to default
|
||||
|
||||
;äàííûå êîòîðûå çàâèñèìû îò âåòêè âûïîëíåíèÿ è êîòîðûå ìîãóò áûòü ïåðåîïðåäåëåíû â ïðîöåññå âûïîëíåíèÿ ïðîãðàììû.
|
||||
point_to_hframe equ word [bp-14] ;point on start frame (for change section)
|
||||
point_to_1 equ word [bp-16]
|
||||
point_to_2 equ word [bp-18]
|
||||
point_to_3 equ word [bp-20]
|
||||
point_to_4 equ word [bp-22]
|
||||
point_to_5 equ word [bp-24]
|
||||
point_to_6 equ word [bp-26]
|
||||
point_to_7 equ word [bp-28]
|
||||
point_to_8 equ word [bp-30]
|
||||
point_to_9 equ word [bp-32]
|
||||
point_to_10 equ word [bp-34]
|
||||
point_to_11 equ word [bp-36]
|
||||
point_to_12 equ word [bp-38]
|
||||
point_to_13 equ word [bp-40]
|
||||
point_to_14 equ word [bp-42]
|
||||
point_to_15 equ word [bp-44]
|
||||
point_to_16 equ word [bp-46]
|
||||
point_to_16 equ word [bp-48]
|
||||
point_to_17 equ word [bp-50]
|
||||
point_to_18 equ word [bp-52]
|
||||
;here array for fast scroling 16 word - poin to start section
|
||||
point_to_point_def equ word [bp-54]
|
||||
point_to_eframe equ word [bp-56] ;point on point frame
|
||||
|
||||
|
||||
|
||||
; òóò ðàñïîëîæåíî âðåìåííîå õðàíèëèùå äëÿ cx è di ïðè ïåðåõîäå íà ñëåäóþùèé áóôåð ïðè ïîèñêå ñåêöèé
|
||||
find_sec_di equ word [bp-58] ;òóò áóäåò õðàíèòüñÿ di
|
||||
info_real_mode_size equ word [bp-60];òóò õðàíèòüñÿ èíôîðìàöèÿ î çàíÿòîé îáëàñòè ò.å. ðàçìåð, ìîæíî óçíàòü ñêîëüêî îñòàëîñü ìåñòà âû÷èñëèâ
|
||||
free_ad_memory equ word [bp-62] ;ñêîëüêî ó íàñ ðàñøèðåííîé ïàìÿòè äëÿ ôîðìèðîâàíèÿ ðàì äèñêà è çàãðóçêè ìîäóëåé
|
||||
show_errors_sect equ word [bp-64] ;ïåðåìåíàÿ êîòîðàÿ õðàíèò áèòû îøèáîê äëÿ êàæäîé ëîãè÷åñêîé ñåêöèè.
|
||||
save_descript_size equ word [bp-66] ;save descript size previos section ñîõðàíèì ðàçìåð ïðåäûäóùåé ñåêöèè êîòîðóþ âûâîäèëè
|
||||
save_ramdisksize equ dword [bp-70] ;save size of ramdisk in byte
|
||||
save_file_size equ dword [bp-74] ;save size of reading file
|
||||
set_ramfs equ word [bp-76] ;îïðåäåëåííûé òèï ôàéëîâîé ñèñòåìû,íóæíî äëÿ ôîðìèðîâàíèÿ ðàì äèñêà
|
||||
point_next_fat_str equ word [bp-78] ;óêàçàòåëü íà ñëåäóþùèé ýëåìåíò fat òàáëèöû
|
||||
size_root_dir equ word [bp-80] ;êîë-âî ýëåìåíòîâ â ñåêòîðàõ ïî 512 áàéò êîðíåâîé äèðåêòîðèè
|
||||
firstDataSect equ word [bp-82] ;ïåðâûé ñåêòîð äàííûõ â ñåòîðàõ îò 0
|
||||
DataClasters equ word [bp-84] ;ðàçìåð ìàññèâà äîñòóïíîé äëÿ çàïèñè äàííûõ â êëàñòåðàõ.
|
||||
point_to_free_root equ word [bp-86] ;óêàçàòåëü íà ñëåäóþùèé ïóñòóþ çàïèñü â ðóò äèð
|
||||
point_to_dest_file_name equ word [bp-88] ;óêàçûâàåò íà íà÷àëî èìåíè ôàéëà íàçíà÷åíèÿ. â ôîðìàòå es:point_to_dest_file_name, ãäå es =0x2000
|
||||
data_offset equ word [bp-90] ;ñìåùåíèå â êëàñòåðàõ äëÿ çàïèñàííûõ äàííûõ ò.å ïåðåêèíóòûõ çà 1-é ìá
|
||||
first_input equ word [bp-92] ;ïîëå äëÿ ôëàãîâ â ïðåîáðàçîâàíèè èìåíè.
|
||||
save_di_RAMDISK equ word [bp-94] ;ñîõðàíèì di -óêàçàòåëÿ ïðè îáðàáîòêå ñåêöèè
|
||||
save_cx_RAMDISK equ word [bp-96] ;ñîõðàíèì ðàçìåð îñòàòêà ñåêöèè
|
||||
status_flag_loader_f equ word [bp-98] ;ñîõðàíèì ðåçóëüòàò âûïîëåíåíèÿ çàãðóçêè ôàéëà
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;äàííûå êîòîðûå èñïîëüçóþòñÿ ïðè îáðàáîòêå ñåêöèè, ò.å. ïîñëå íàæàòèÿ Enter, óæå íå âîçìîæíî âåðíóòüñÿ â ïåðâîíà÷àëüíûé ýêðàí
|
||||
;äëÿ âîçâðàòà, íåîáõîäèìî ïåðåçàïóñòèòü ïîëíîñòüþ êîä ò.å. ñòàðòîâàòü ñ 0õ1000:0000
|
@ -1,524 +0,0 @@
|
||||
; 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
|
||||
|
@ -1,98 +0,0 @@
|
||||
; 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.
|
||||
;*****************************************************************************
|
||||
|
||||
; ýòî êîììåíòàðèé
|
||||
[loader]
|
||||
; ñåêöèÿ [loader] ñîäåðæèò ïàðàìåòðû çàãðóç÷èêà
|
||||
; â òå÷åíèå timeout ñåêóíä çàãðóç÷èê áóäåò æäàòü ðåàêöèè ïîëüçîâàòåëÿ,
|
||||
; åñëè å¸ íå ïîñëåäóåò, áóäåò çàãðóæåíà êîíôèãóðàöèÿ, óêàçàííàÿ â default
|
||||
timeout=5
|
||||
default=kolibri_EE
|
||||
; ïðî÷èå ñåêöèè - ïî îäíîé íà êàæäóþ êîíôèãóðàöèþ
|
||||
; è ïî îäíîé íà êàæäûé âòîðè÷íûé ìîäóëü
|
||||
[main]
|
||||
name="Kord OS v 0.00001"
|
||||
descript="This is x64 OS microkernel"
|
||||
kernel=kord/kord001.ker
|
||||
module=kord/fat.mod
|
||||
module=kord/ntfs.mod
|
||||
RamdiskFS=fat
|
||||
RamdiskSector=512
|
||||
RamdiskCluster=1
|
||||
RamdiskSize=1440K
|
||||
RamdiskFile=kord/launcher,launcher
|
||||
RamdiskFile=kord/filema~1/kfar,"File Managers/kfar"
|
||||
[beta]
|
||||
name="Kord OS v 0.00002 beta"
|
||||
descript="This is x64 OS microkernel version 2"
|
||||
kernel=kord/kord002.ker
|
||||
module=kord/fat.mod
|
||||
module=kord/ntfs.mod
|
||||
RamdiskFS=fat
|
||||
RamdiskSector=512
|
||||
RamdiskCluster=1
|
||||
RamdiskSize=1440K
|
||||
RamdiskFile=kord/launcher,launcher
|
||||
RamdiskFile=kord/filema~1/kfar,"File Managers/kfar"
|
||||
[kolibri_EE]
|
||||
name="KOLIBRY EXCLUSIVE EDITION"
|
||||
descript="KOLIBRY EXCLUSIVE EDITION BEST OF THE BEST opetation system"
|
||||
LoaderModule=kolibri/kolibri.ldm
|
||||
RamdiskFS=FAT
|
||||
RamdiskSector=512
|
||||
RamdiskCluster=1
|
||||
RamdiskSize=1440K
|
||||
LoaderRamImage=kolibri.img
|
||||
RamdiskPATH=/kolibri/
|
||||
RamdiskFile=@menu,@menu
|
||||
RamdiskFile=@PANEL,@PANEL
|
||||
RamdiskFile=@RB,@PANEL
|
||||
|
||||
[legacy_kolibri]
|
||||
name="KolibriOS"
|
||||
descript="Standart KolibriOS"
|
||||
LoaderModule=kord/kolibri.ldm
|
||||
RamdiskFS=fat
|
||||
RamdiskSector=512
|
||||
RamdiskCluster=1
|
||||
RamdiskSize=1440K
|
||||
RamdiskPATH=/kolibri/
|
||||
RamdiskFile=@menu,@menu
|
||||
RamdiskFile=@PANEL,@PANEL
|
||||
RamdiskFile=@RB,@RB
|
||||
RamdiskFile=@rcher,@rcher
|
||||
RamdiskFile=@ss,@ss
|
||||
RamdiskFile=ac97snd,ac97snd
|
||||
RamdiskFile=animage,animage
|
||||
RamdiskFile=AUTOEXEC.CMD,AUTOEXEC.CMD
|
||||
RamdiskFile=AUTORUN.DAT,AUTORUN.DAT
|
||||
RamdiskFile=calc,calc
|
||||
RamdiskFile=calendar,calendar
|
||||
RamdiskFile=progs/cdp,cdp
|
||||
RamdiskFile=cmd,cmd
|
||||
RamdiskFile=config.inc,config.inc
|
||||
RamdiskFile=copy2,copy2
|
||||
|
Loading…
Reference in New Issue
Block a user