rdos/boot/fatvbr.asm

315 lines
4.9 KiB
NASM
Raw Normal View History

; Memory layout:
2019-09-16 14:05:15 +02:00
%define self 0x00600 ; 1 sector
2019-09-15 19:26:09 +02:00
%define fattab 0x01000 ; variable size
%define rootdir 0x06000 ; variable size
%define psp (prog - 0x100)
%define prog 0x07C00
%define filename (psp + 0x5C + 1)
%define arguments (psp + 0x81)
2019-05-19 22:07:08 +02:00
org self
2019-09-15 19:26:09 +02:00
jmp short init
cluster_offset:
dw 0
times (0x0B - ($-$$)) db 0
2019-05-19 22:07:08 +02:00
fdc:
2019-03-27 23:05:00 +01:00
.ss:
dw 0x200 ; sector size
.sc:
2019-03-31 22:53:14 +02:00
db 2 ; sectors per cluster
2019-03-27 23:05:00 +01:00
.rsc:
2019-03-31 22:53:14 +02:00
dw 1 ; reserved sector count
2019-03-27 23:05:00 +01:00
.fn:
2019-03-31 22:53:14 +02:00
db 2 ; number of file allocation tables
2019-03-27 23:05:00 +01:00
.rde:
2019-03-31 22:53:14 +02:00
dw 0x70 ; number of root directory entries
2019-03-28 00:06:13 +01:00
.ts:
dw 720 ; total number of sectors
2019-03-27 23:05:00 +01:00
.mi: ; medium identifier
2019-03-25 09:51:37 +01:00
db 0xFD ; 5.25-inch Double sided, 40 tracks per side, 9 sectors per track (360 KB)
2019-03-27 23:05:00 +01:00
.sf: ; sectors per fat
2019-03-31 22:53:14 +02:00
dw 2
2019-03-25 09:51:37 +01:00
.spt:
dw 9 ; sectors per track
2019-03-27 23:05:00 +01:00
.nos:
dw 2 ; number of sides (heads)
.po:
dd 0 ; partition offset (in LBA blocks)
2019-03-28 00:06:13 +01:00
.lrgts:
2019-05-07 19:50:07 +02:00
dd 0
2019-03-27 23:05:00 +01:00
.drv:
2019-03-26 21:46:40 +01:00
db 0 ; drive number
db 0
2019-03-27 23:05:00 +01:00
db 0x29 ; efdc signature
.vid:
dd 0 ; volume id
.vlabel:
db "2B"
times (54 - ($-$$)) db " "
.fstype:
db "FAT12"
times (62 - ($-$$)) db " "
2019-03-25 09:51:37 +01:00
2019-09-15 19:26:09 +02:00
init:
cli
; Stack grows down from PSP + 64k
mov ax, (psp >> 4)
mov ss, ax
xor sp, sp
push sp
; Relocate from [prog] to [self]
xor ax, ax
mov ds, ax
mov es, ax
mov si, prog
mov di, self
mov cx, 0x100
rep movsw
2019-09-15 19:26:09 +02:00
jmp 0:main
2019-09-15 19:26:09 +02:00
main:
mov [fdc.drv], dl ; save drive number in fd
sti
; load fat table into memory
mov ax, [fdc.rsc]
mov cx, [fdc.sf]
xor dx, dx
mov bx, fattab
call load_sectors
; calculate length of rootdir
mov ax, [fdc.rde]
mov cl, 4
shr ax, cl ; 32 bytes per entry
mov cx, ax
; load root dir
xor dx, dx
mov ax, [fdc.sf]
mul byte [fdc.fn]
add ax, [fdc.rsc]
mov bx, rootdir
call load_sectors
; remember where we left off
; clusters start after rootdir
mov [cluster_offset], ax
2019-09-15 19:26:09 +02:00
call parse_cmdline
call load_file
2019-09-15 19:26:09 +02:00
mov bp, 0x3332
jc error
; setup int 19h call if prog returns
mov WORD [psp], 0x19CD
; clean registers
xor ax, ax
xor cx, cx
xor dx, dx
xor bx, bx
; restore boot drive number
mov dl, [fdc.drv]
; setup segment registers
push ss
pop ds
push ss
pop es
; jump into target
jmp 0x07B0:0x0100
; Read sectors from disk
; Does not return on error
; ax and bx will be incremented, cx decremented
; in dx:ax sector number
; es:bx buffer
; cx number of sectors to read
; out dx:ax next sector to read
; es:bx next free buffer
; cx zero
load_sectors:
; fail instantly if reading sectors > 16 bit
test dx, dx
2019-09-15 19:26:09 +02:00
mov bp, 0x3330
jnz error
.loop:
push ax
push cx
push dx
2019-09-18 00:41:39 +02:00
; add partition offset (required for HDD)
add ax, [fdc.po]
adc dx, [fdc.po+2]
; calculate CHS data
div word [cs:fdc.spt] ; ax:temp = (lba / spt)
inc dx ; dx:sector = (lba % spt) + 1
mov cl, dl ; sector number
xor dx, dx
div word [cs:fdc.nos] ; ax:cylinder = (tmp / heads)
; dx:head = (tmp % heads)
mov ch, al ; cylinder number
mov dh, dl ; head number
mov dl, [cs:fdc.drv] ; driver number
mov ax, 0x0201 ; ah=0x02 al=0x01
int 0x13
2019-09-15 19:26:09 +02:00
mov bp, 0x3331
jc error
2019-03-31 22:53:14 +02:00
pop dx
pop cx
pop ax
2019-03-29 23:32:50 +01:00
; count up for next sector
add bx, 0x0200
inc ax
loop .loop
ret
2019-05-19 22:07:08 +02:00
; Load the file in [filename]
; or exit with carry set
load_file:
mov si, rootdir
2019-05-19 22:07:08 +02:00
mov cx, [fdc.rde]
.loop:
call file_match
je read_clusters
2019-05-19 22:07:08 +02:00
add si, 0x20
loop .loop
2019-09-15 19:26:09 +02:00
stc
ret
; Compares the FAT dirent against [filename]
; in ds:si filename
; out ZF zero flag set if equal
file_match:
2019-05-19 22:07:08 +02:00
push cx
push si
mov di, filename
mov cx, 11
repe cmpsb
2019-05-19 22:07:08 +02:00
pop si
pop cx
2019-05-19 22:07:08 +02:00
ret
; Read the file given by cluster number
; into the target program area
2019-05-19 22:07:08 +02:00
; in ax cluster number
read_clusters:
add si, 0x1A
lodsw
mov bx, prog
.loop:
; read cluster into area for target file
push ax
sub ax, 2
mul BYTE [fdc.sc]
add ax, [cluster_offset]
xor dx, dx
mov cx, [fdc.sc]
xor ch, ch
call load_sectors
pop ax
; calculate index in FAT
mov si, ax
shr si, 1
add si, ax
add si, fattab
; load entry from FAT, truncate to 12 bit
mov dx, [si]
test ax, 1
jz .noshift
mov cl, 4
shr dx, 4
.noshift:
mov ax, dx
and ax, 0x0FFF
cmp ax, 0x0FF8
jc .loop
2019-05-19 22:07:08 +02:00
ret
error:
mov ax, bp
mov ah, 0x0e
mov bx, 7
int 0x10
mov al, 0x21
int 0x10
xor ax, ax
int 0x16
int 0x19
2019-09-15 19:26:09 +02:00
parse_cmdline:
mov si, cmdline
mov di, filename
.cleanout:
push di
mov cx, 0x0A
mov al, 0x20
rep stosb
pop di
.base_loop:
call .read
cmp al, 0x2E
je .ext_start
cmp al, 0x20
je .args_start
stosb
jmp .base_loop
.ext_start:
mov di, (filename + 8)
.ext_loop:
call .read
cmp al, 0x20
je .args_start
stosb
jmp .ext_loop
.args_start:
mov di, (psp + 0x81)
.args_loop:
2019-09-15 19:51:44 +02:00
lodsb
test al, al
jz .args_end
2019-09-15 19:26:09 +02:00
stosb
jmp .args_loop
2019-09-15 19:51:44 +02:00
.args_end:
mov ax, di
sub ax, (psp + 0x81)
mov [psp+0x80], al
mov al, 0x0D
stosb
ret
2019-09-15 19:26:09 +02:00
.read:
lodsb
test al, al
jnz .ret
pop ax
.ret:
ret
2019-03-29 22:40:44 +01:00
2019-09-15 19:26:09 +02:00
cmdline:
2019-09-15 19:51:44 +02:00
db CMDLINE, 0
2019-03-29 22:40:44 +01:00
times (0x1FE - ($-$$)) db 0
2019-03-29 22:40:44 +01:00
2019-03-25 09:51:37 +01:00
dw 0xAA55