ace-dent
f7a26ece7a
- Move source code from `trunk` into root directory. Changes mirrored in old `branch` copies for parity. - Checked build files and ASM include paths; no changes required. (Work towards [#75](KolibriOS/kolibrios#75), point 3) Reviewed-on: KolibriOS/kolibrios#435 Reviewed-by: Ivan B <1+dunkaist@noreply.localhost> Reviewed-by: Burer <burer@kolibrios.org> Co-authored-by: Andrew <dent.ace@gmail.com> Co-committed-by: Andrew <dent.ace@gmail.com>
92 lines
1.3 KiB
FASM
92 lines
1.3 KiB
FASM
; ---------------------------------------------------------------------------
|
|
; 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
|