forked from KolibriOS/kolibrios
360 lines
12 KiB
NASM
360 lines
12 KiB
NASM
; 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.
|
|
;*****************************************************************************
|
|
|
|
;start of the project 13.02.2008 year.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;Secondary Loader copyright Alexey Teplov aka <Lrz> & K Soft team
|
|
;if you need log preproc
|
|
;/////////////
|
|
;include 'listing.inc'
|
|
;enable listing
|
|
;////////////
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;start of code:
|
|
;;;;;;;;;;;;;;;
|
|
DEBUG equ 1
|
|
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] ;óêàçûâàåò íà íà÷àëî èìåíè ôàéëà íàçíà÷åíèÿ.
|
|
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
|
|
|
|
|
|
|
|
|
|
use16
|
|
org 0x0
|
|
jmp start
|
|
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
|
|
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
|
|
|
|
;Load startos.ini
|
|
xor ax,ax ; function 1 - read file
|
|
mov di,file_data
|
|
inc ax
|
|
call far dword [loader_callback]
|
|
push cs
|
|
push cs
|
|
pop ds
|
|
pop es
|
|
|
|
test bx,bx
|
|
jnz error_ini
|
|
|
|
;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
|
|
|
|
;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
|
|
mov ah, 0
|
|
int 16h
|
|
|
|
ini_loaded:
|
|
|
|
jmp $
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;DATA
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; table for move to extended memory (int 15h, ah=87h)
|
|
align 8
|
|
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.
|
|
|
|
|
|
|
|
|
|
;ñòðóêòóðà äëÿ äèððåêòîðèè 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
|
|
if DEBUG
|
|
rb 1 ;íóæåí äëÿ îòëàäêè è âûâîäà èìåíè ôàéëà ïîñëå ïðåîáðàçîâàíèÿ
|
|
dest_name_fat rb 12
|
|
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
|
|
|