forked from KolibriOS/kolibrios
Added new driver for mount raw disk images.
- Added driver virt_disk.sys - Added the program "virtdisk" which allows you to add, delete and view virtual disks. git-svn-id: svn://kolibrios.org@9945 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Doczom
parent
244de0059e
commit
9ab6258bfe
@ -2,3 +2,4 @@ if tup.getconfig("NO_FASM") ~= "" then return end
|
|||||||
ROOT = "../.."
|
ROOT = "../.."
|
||||||
tup.include(ROOT .. "/programs/use_fasm.lua")
|
tup.include(ROOT .. "/programs/use_fasm.lua")
|
||||||
tup.rule("tmpdisk.asm", "fasm %f %o " .. PESTRIP_CMD .. tup.getconfig("KPACK_CMD"), "%B.sys")
|
tup.rule("tmpdisk.asm", "fasm %f %o " .. PESTRIP_CMD .. tup.getconfig("KPACK_CMD"), "%B.sys")
|
||||||
|
tup.rule("virt_disk.asm", "fasm %f %o " .. PESTRIP_CMD .. tup.getconfig("KPACK_CMD"), "%B.sys")
|
||||||
725
drivers/disk/virt_disk.asm
Normal file
725
drivers/disk/virt_disk.asm
Normal file
@ -0,0 +1,725 @@
|
|||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; ;;
|
||||||
|
;; Copyright (C) KolibriOS team 2023. All rights reserved. ;;
|
||||||
|
;; Distributed under terms of the GNU General Public License ;;
|
||||||
|
;; ;;
|
||||||
|
;; Virtual disk driver for KolibriOS ;;
|
||||||
|
;; ;;
|
||||||
|
;; Written by Mikhail Frolov aka Doczom ;;
|
||||||
|
;; ;;
|
||||||
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
||||||
|
;; Version 2, June 1991 ;;
|
||||||
|
;; ;;
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
DISK_STATUS_OK = 0 ; success
|
||||||
|
DISK_STATUS_GENERAL_ERROR = -1; if no other code is suitable
|
||||||
|
DISK_STATUS_INVALID_CALL = 1 ; invalid input parameters
|
||||||
|
DISK_STATUS_NO_MEDIA = 2 ; no media present
|
||||||
|
DISK_STATUS_END_OF_MEDIA = 3 ; end of media while reading/writing data
|
||||||
|
|
||||||
|
; For all IOCTLs the driver returns one of the following error codes:
|
||||||
|
NO_ERROR equ 0
|
||||||
|
ERROR_INVALID_IOCTL equ 1 ; unknown IOCTL code
|
||||||
|
|
||||||
|
maxPathLength = 1000h
|
||||||
|
|
||||||
|
include '../struct.inc'
|
||||||
|
|
||||||
|
; TODO list:
|
||||||
|
; add support VDI image
|
||||||
|
|
||||||
|
; Input structures:
|
||||||
|
Flag:
|
||||||
|
.Ro = 1b
|
||||||
|
.Wo = 10b
|
||||||
|
.RW = 11b
|
||||||
|
|
||||||
|
struct DISK_DEV
|
||||||
|
next rd 1
|
||||||
|
pref rd 1
|
||||||
|
SectorCount rd 2
|
||||||
|
DiskHandle rd 1
|
||||||
|
DiskNumber rd 1
|
||||||
|
Flags rd 1 ; 1-ro 2-wo 3-rw
|
||||||
|
TypeImage rd 1 ; 0-raw 1-vhd 2-vdi 3-imd
|
||||||
|
SectorSize rd 1
|
||||||
|
DiskPath rb maxPathLength
|
||||||
|
ends
|
||||||
|
struct IMAGE_ADD_STRUCT
|
||||||
|
Flags rd 1 ; 1-ro 2-wo 3-rw
|
||||||
|
TypeImage rd 1 ; 0-raw 1-vhd 2-vdi 3-imd
|
||||||
|
SectorSize rd 1
|
||||||
|
DiskPath rb maxPathLength
|
||||||
|
ends
|
||||||
|
|
||||||
|
struct DISKMEDIAINFO
|
||||||
|
Flags dd ?
|
||||||
|
SectorSize dd ?
|
||||||
|
Capacity dq ?
|
||||||
|
ends
|
||||||
|
|
||||||
|
DEBUG = 1
|
||||||
|
__DEBUG__ = 1
|
||||||
|
__DEBUG_LEVEL__ = 1 ; 1 = verbose, 2 = errors only
|
||||||
|
|
||||||
|
format PE DLL native 0.05
|
||||||
|
entry START
|
||||||
|
|
||||||
|
section '.flat' code readable writable executable
|
||||||
|
|
||||||
|
include '../proc32.inc'
|
||||||
|
include '../peimport.inc'
|
||||||
|
include '../macros.inc'
|
||||||
|
|
||||||
|
include '../fdo.inc'
|
||||||
|
|
||||||
|
proc START c, state:dword, cmdline:dword
|
||||||
|
xor eax, eax ; set return value in case we will do nothing
|
||||||
|
cmp dword [state], 1
|
||||||
|
jne .nothing
|
||||||
|
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexInit
|
||||||
|
|
||||||
|
DEBUGF 1, "VIRT_DISK: driver loaded\n"
|
||||||
|
invoke RegService, my_service, service_proc
|
||||||
|
ret
|
||||||
|
.nothing:
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
; get version
|
||||||
|
; add disk
|
||||||
|
; del disk
|
||||||
|
; get list disks
|
||||||
|
; get disk info
|
||||||
|
proc service_proc
|
||||||
|
push ebx esi edi
|
||||||
|
; 2. Get parameter from the stack: [esp+16] is the first parameter,
|
||||||
|
; pointer to IOCTL structure.
|
||||||
|
mov ebx, [esp + 16] ; edx -> IOCTL
|
||||||
|
|
||||||
|
mov ecx, [ebx + IOCTL.io_code]
|
||||||
|
test ecx, ecx ; check for SRV_GETVERSION
|
||||||
|
jnz .add_disk
|
||||||
|
|
||||||
|
cmp [ebx + IOCTL.out_size], 4
|
||||||
|
jb .error_ret
|
||||||
|
mov eax, [ebx + IOCTL.output]
|
||||||
|
mov dword [eax], 1 ;API_VERSION
|
||||||
|
xor eax, eax
|
||||||
|
jmp .return
|
||||||
|
|
||||||
|
.add_disk:
|
||||||
|
dec ecx ; check for DEV_ADD_DISK
|
||||||
|
jnz .del_disk
|
||||||
|
|
||||||
|
cmp [ebx + IOCTL.inp_size], sizeof.IMAGE_ADD_STRUCT
|
||||||
|
jb .error_ret
|
||||||
|
|
||||||
|
cmp [ebx + IOCTL.out_size], 4
|
||||||
|
jb .error_ret
|
||||||
|
|
||||||
|
invoke KernelAlloc, sizeof.DISK_DEV
|
||||||
|
test eax, eax
|
||||||
|
jz .error_ret
|
||||||
|
|
||||||
|
push eax
|
||||||
|
mov edi, eax
|
||||||
|
mov ecx, sizeof.DISK_DEV/4
|
||||||
|
xor eax, eax
|
||||||
|
rep stosd
|
||||||
|
pop eax
|
||||||
|
|
||||||
|
mov edi, eax
|
||||||
|
add edi, DISK_DEV.Flags
|
||||||
|
mov esi, [ebx + IOCTL.input]
|
||||||
|
mov ecx, sizeof.IMAGE_ADD_STRUCT/4
|
||||||
|
rep movsd
|
||||||
|
|
||||||
|
mov esi, eax ;save
|
||||||
|
|
||||||
|
cmp byte[esi + DISK_DEV.DiskPath], '/'
|
||||||
|
jnz .add_disk.error
|
||||||
|
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexLock
|
||||||
|
|
||||||
|
call get_free_num
|
||||||
|
jnz .add_disk.error2
|
||||||
|
mov [esi + DISK_DEV.DiskNumber], eax
|
||||||
|
mov ecx,[ebx + IOCTL.output]
|
||||||
|
mov [ecx], eax
|
||||||
|
|
||||||
|
; init image
|
||||||
|
mov eax, [esi + DISK_DEV.TypeImage]
|
||||||
|
cmp eax, image_type.max_num
|
||||||
|
ja .add_disk.error2
|
||||||
|
|
||||||
|
call dword[image_type + eax*8] ;esi - DISK_DEV*
|
||||||
|
test eax, eax
|
||||||
|
jnz .add_disk.error2
|
||||||
|
|
||||||
|
; creating name
|
||||||
|
push ebp
|
||||||
|
mov ebp, esp
|
||||||
|
|
||||||
|
mov eax, [esi + DISK_DEV.DiskNumber]
|
||||||
|
mov edi, esp
|
||||||
|
dec edi
|
||||||
|
mov byte[edi], 0
|
||||||
|
mov ecx, 10
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
div ecx
|
||||||
|
add edx,'0'
|
||||||
|
dec edi
|
||||||
|
mov byte[edi], dl
|
||||||
|
test eax, eax
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
mov esp, edi
|
||||||
|
push word 'vd'
|
||||||
|
sub edi, 2
|
||||||
|
|
||||||
|
; add disk
|
||||||
|
mov eax, [esi + DISK_DEV.TypeImage]
|
||||||
|
invoke DiskAdd, dword[image_type + eax*8 + 4] , \
|
||||||
|
edi, esi, 0
|
||||||
|
mov [esi + DISK_DEV.DiskHandle], eax
|
||||||
|
mov esp, ebp
|
||||||
|
pop ebp
|
||||||
|
test eax, eax
|
||||||
|
jz .add_disk.error2
|
||||||
|
|
||||||
|
invoke DiskMediaChanged, eax, 1
|
||||||
|
|
||||||
|
; add in list
|
||||||
|
mov dword[esi], disk_root_list
|
||||||
|
mov eax, [disk_root_list + 4]
|
||||||
|
mov [esi + 4], eax
|
||||||
|
mov [eax], esi
|
||||||
|
mov [disk_root_list + 4], esi
|
||||||
|
inc dword[disk_count]
|
||||||
|
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexUnlock
|
||||||
|
|
||||||
|
xor eax, eax
|
||||||
|
jmp .return
|
||||||
|
|
||||||
|
.add_disk.error2:
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexUnlock
|
||||||
|
|
||||||
|
.add_disk.error:
|
||||||
|
invoke KernelFree, esi
|
||||||
|
jmp .error_ret
|
||||||
|
|
||||||
|
|
||||||
|
.del_disk:
|
||||||
|
dec ecx ; check for DEV_DEL_DISK
|
||||||
|
jnz .get_root_list
|
||||||
|
|
||||||
|
cmp [ebx + IOCTL.inp_size], 4
|
||||||
|
jb .error_ret
|
||||||
|
|
||||||
|
mov ecx, [ebx + IOCTL.input]
|
||||||
|
mov ecx, [ecx]
|
||||||
|
call get_disk
|
||||||
|
|
||||||
|
test eax, eax
|
||||||
|
jz .error_ret
|
||||||
|
|
||||||
|
cmp [eax + DISK_DEV.DiskHandle], 0
|
||||||
|
jz .error_ret
|
||||||
|
mov ecx, [eax + DISK_DEV.DiskHandle]
|
||||||
|
mov [eax + DISK_DEV.DiskHandle], 0
|
||||||
|
invoke DiskDel, ecx
|
||||||
|
|
||||||
|
xor eax, eax
|
||||||
|
jmp .return
|
||||||
|
|
||||||
|
.get_root_list:
|
||||||
|
dec ecx ; check for DEV_DEL_DISK
|
||||||
|
jnz .get_disk_info
|
||||||
|
|
||||||
|
cmp [ebx + IOCTL.inp_size], 4*2 ; offset + count
|
||||||
|
jb .error_ret
|
||||||
|
mov ecx, [ebx + IOCTL.input]
|
||||||
|
mov edx, [ecx] ; offset
|
||||||
|
mov eax, [ecx + 4] ; count
|
||||||
|
|
||||||
|
add edx, eax
|
||||||
|
cmp edx, [disk_count]
|
||||||
|
ja .error_ret
|
||||||
|
|
||||||
|
xor edx, edx
|
||||||
|
imul eax, sizeof.DISK_DEV - 8
|
||||||
|
add eax, 4
|
||||||
|
cmp [ebx + IOCTL.out_size], eax
|
||||||
|
jb .error_ret
|
||||||
|
|
||||||
|
mov edi, [ebx + IOCTL.output]
|
||||||
|
mov eax, [disk_count]
|
||||||
|
stosd
|
||||||
|
|
||||||
|
mov edx, [ecx]
|
||||||
|
mov eax, [disk_root_list]
|
||||||
|
@@:
|
||||||
|
test edx, edx
|
||||||
|
jz @f
|
||||||
|
mov eax, [eax]
|
||||||
|
dec edx
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
mov edx, [ecx + 4]
|
||||||
|
@@:
|
||||||
|
test edx, edx
|
||||||
|
jz @f
|
||||||
|
mov esi, eax
|
||||||
|
add esi, 8
|
||||||
|
mov ecx, (sizeof.DISK_DEV - 8)/4
|
||||||
|
rep movsd
|
||||||
|
mov eax, [eax]
|
||||||
|
dec edx
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
xor eax, eax
|
||||||
|
jmp .return
|
||||||
|
|
||||||
|
.get_disk_info:
|
||||||
|
dec ecx
|
||||||
|
jnz .error_ret
|
||||||
|
|
||||||
|
cmp [ebx + IOCTL.inp_size], 4
|
||||||
|
jb .error_ret
|
||||||
|
cmp [ebx + IOCTL.out_size], sizeof.DISK_DEV - 8
|
||||||
|
jb .error_ret
|
||||||
|
mov ecx, [ebx + IOCTL.input]
|
||||||
|
mov ecx, [ecx]
|
||||||
|
|
||||||
|
call get_disk
|
||||||
|
test eax, eax
|
||||||
|
jz .error_ret
|
||||||
|
|
||||||
|
mov esi, eax
|
||||||
|
add esi, 4*2
|
||||||
|
mov edi, [ebx + IOCTL.output]
|
||||||
|
mov ecx, (sizeof.DISK_DEV - 8)/4
|
||||||
|
rep movsd
|
||||||
|
|
||||||
|
xor eax, eax
|
||||||
|
jmp .return
|
||||||
|
|
||||||
|
.error_ret:
|
||||||
|
mov eax, ERROR_INVALID_IOCTL
|
||||||
|
.return:
|
||||||
|
pop edi esi ebx
|
||||||
|
retn 4
|
||||||
|
endp
|
||||||
|
|
||||||
|
; IN: ecx - ptr DISK_DEV
|
||||||
|
; OUT: ZF - found zF - not found
|
||||||
|
proc disk_dev_check
|
||||||
|
push eax
|
||||||
|
mov eax, disk_root_list
|
||||||
|
@@:
|
||||||
|
mov eax, [eax]
|
||||||
|
cmp eax, disk_root_list
|
||||||
|
jz .nf
|
||||||
|
cmp eax, ecx
|
||||||
|
jnz @b
|
||||||
|
pop eax
|
||||||
|
ret
|
||||||
|
.nf:
|
||||||
|
test eax, eax
|
||||||
|
pop eax
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
; IN: ecx - disk number
|
||||||
|
; OUT: eax - ptr DISK_DEV
|
||||||
|
proc get_disk
|
||||||
|
push ecx
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexLock
|
||||||
|
pop ecx
|
||||||
|
|
||||||
|
mov eax, disk_root_list
|
||||||
|
@@:
|
||||||
|
mov eax, [eax]
|
||||||
|
cmp eax, disk_root_list
|
||||||
|
jz .nf
|
||||||
|
cmp ecx, [eax + DISK_DEV.DiskNumber]
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
push eax
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexUnlock
|
||||||
|
pop eax
|
||||||
|
ret
|
||||||
|
.nf:
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexUnlock
|
||||||
|
|
||||||
|
xor eax, eax
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
; OUT: eax - number free disk
|
||||||
|
; Zf - good zf - not found
|
||||||
|
proc get_free_num
|
||||||
|
xor eax, eax
|
||||||
|
mov edx, disk_root_list
|
||||||
|
@@:
|
||||||
|
mov edx, [edx]
|
||||||
|
cmp edx, disk_root_list
|
||||||
|
jz @f
|
||||||
|
cmp eax, [edx + DISK_DEV.DiskNumber]
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
inc eax
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
test edx, edx ; random :)
|
||||||
|
@@:
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
;; IN: ecx - number disk
|
||||||
|
;; OUT: eax - ptr to DISK_DEV or zero
|
||||||
|
;proc get_link_disk
|
||||||
|
;
|
||||||
|
; push ecx
|
||||||
|
; mov ecx, disk_list_lock
|
||||||
|
; invoke MutexLock
|
||||||
|
; pop ecx
|
||||||
|
;
|
||||||
|
; xor eax, eax
|
||||||
|
; cmp ecx, [disk_array.len]
|
||||||
|
; jae .end
|
||||||
|
;
|
||||||
|
; mov eax, [disk_array]
|
||||||
|
; mov eax, [edx + ecx*4]
|
||||||
|
;
|
||||||
|
;.end:
|
||||||
|
; push eax
|
||||||
|
; ; unlock disk list
|
||||||
|
; mov ecx, disk_list_lock
|
||||||
|
; invoke MutexUnlock
|
||||||
|
; pop eax
|
||||||
|
; ret
|
||||||
|
;endp
|
||||||
|
;; IN: esi - ptr to DISK_DEV
|
||||||
|
;; OUT: eax - offset in array or -1
|
||||||
|
;proc add_link_disk
|
||||||
|
; ; find free item
|
||||||
|
; mov ecx, [disk_array]
|
||||||
|
; xor eax, eax
|
||||||
|
; dec eax
|
||||||
|
;@@:
|
||||||
|
; inc eax
|
||||||
|
; cmp eax, [disk_array.len]
|
||||||
|
; jae .not_found
|
||||||
|
;
|
||||||
|
; cmp dword[ecx + eax*4], 0
|
||||||
|
; jnz @b
|
||||||
|
;
|
||||||
|
; mov [ecx + eax*4], esi
|
||||||
|
; ret
|
||||||
|
;
|
||||||
|
;.not_found:
|
||||||
|
; inc dword[disk_array.len]
|
||||||
|
; ;get new memory
|
||||||
|
; mov eax,[disk_array.len]
|
||||||
|
; shl eax, 2 ;*4
|
||||||
|
; invoke Kmalloc
|
||||||
|
; test eax, eax
|
||||||
|
; jz .err
|
||||||
|
; ; copy data
|
||||||
|
; push edi esi
|
||||||
|
; mov ecx, [disk_array.len]
|
||||||
|
; mov edi, eax
|
||||||
|
; mov esi, [disk_array]
|
||||||
|
; rep movsd
|
||||||
|
; pop esi edi
|
||||||
|
; ; del old array
|
||||||
|
; xchg [disk_array], eax
|
||||||
|
; invoke Kfree
|
||||||
|
; mov eax, [disk_array.len]
|
||||||
|
; ret
|
||||||
|
;.err:
|
||||||
|
; dec dword[disk_array.len]
|
||||||
|
; mov eax, -1
|
||||||
|
; ret
|
||||||
|
;endp
|
||||||
|
;
|
||||||
|
;; IN: ecx - offset in array
|
||||||
|
;proc del_link_disk
|
||||||
|
; mov edx, ecx
|
||||||
|
; dec edx
|
||||||
|
; cmp edx,[disk_array.len]
|
||||||
|
; jz .last_item
|
||||||
|
;
|
||||||
|
; mov edx,[disk_array]
|
||||||
|
; mov [edx + ecx*4], 0
|
||||||
|
; ret
|
||||||
|
;.last_item:
|
||||||
|
; dec dword[disk_array.len]
|
||||||
|
; ;get new memory
|
||||||
|
; mov eax,[disk_array.len]
|
||||||
|
; shl eax, 2 ;*4
|
||||||
|
; invoke Kmalloc
|
||||||
|
; test eax, eax
|
||||||
|
; jz .err
|
||||||
|
; ; copy data
|
||||||
|
; push edi esi
|
||||||
|
; mov ecx, [disk_array.len]
|
||||||
|
; mov edi, eax
|
||||||
|
; mov esi, [disk_array]
|
||||||
|
; rep movsd
|
||||||
|
; pop esi edi
|
||||||
|
; ; del old array
|
||||||
|
; xchg [disk_array], eax
|
||||||
|
; invoke Kfree
|
||||||
|
; ret
|
||||||
|
;.err:
|
||||||
|
; inc dword[disk_array.len]
|
||||||
|
; mov eax, -1
|
||||||
|
; ret
|
||||||
|
;endp
|
||||||
|
|
||||||
|
; RAW IMAGE DISK FUNCTIONS
|
||||||
|
proc raw_disk_close stdcall, pdata
|
||||||
|
; del item list
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexLock
|
||||||
|
|
||||||
|
mov ecx, [pdata]
|
||||||
|
mov eax, [ecx] ; eax = next
|
||||||
|
mov edx, [ecx + 4] ; edx = prev
|
||||||
|
mov [eax + 4], edx ; [next.prev] = prev
|
||||||
|
mov [edx], eax ; [prev.next] = next
|
||||||
|
|
||||||
|
dec dword[disk_count]
|
||||||
|
|
||||||
|
mov ecx, disk_list_lock
|
||||||
|
invoke MutexUnlock
|
||||||
|
|
||||||
|
invoke KernelFree, [pdata]
|
||||||
|
DEBUGF 1, "VIRT_DISK: disk deleted\n"
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
proc disk_querymedia stdcall, pdata, mediainfo
|
||||||
|
mov eax, [mediainfo]
|
||||||
|
mov edx, [pdata]
|
||||||
|
mov [eax + DISKMEDIAINFO.Flags], 0
|
||||||
|
mov ecx, [edx + DISK_DEV.SectorSize]
|
||||||
|
mov [eax + DISKMEDIAINFO.SectorSize], ecx
|
||||||
|
mov ecx, [edx + DISK_DEV.SectorCount]
|
||||||
|
mov dword[eax + DISKMEDIAINFO.Capacity], ecx
|
||||||
|
mov ecx, [edx + DISK_DEV.SectorCount + 4]
|
||||||
|
mov dword[eax + DISKMEDIAINFO.Capacity + 4], ecx
|
||||||
|
xor eax, eax
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
proc raw_disk_rd stdcall pdata: dword,\
|
||||||
|
buffer: dword,\
|
||||||
|
startsector: qword,\
|
||||||
|
numsectors_ptr:dword
|
||||||
|
|
||||||
|
mov ecx, [pdata]
|
||||||
|
test [ecx + DISK_DEV.Flags], Flag.Ro
|
||||||
|
jz .no_support
|
||||||
|
|
||||||
|
pusha
|
||||||
|
lea eax,[ecx + DISK_DEV.DiskPath]
|
||||||
|
push eax
|
||||||
|
dec esp
|
||||||
|
mov byte[esp], 0
|
||||||
|
push dword[buffer]
|
||||||
|
|
||||||
|
mov eax, [numsectors_ptr]
|
||||||
|
mov eax, [eax]
|
||||||
|
mul dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
push eax
|
||||||
|
; get offset for startsector
|
||||||
|
mov eax, dword[startsector]
|
||||||
|
xor edx, edx
|
||||||
|
mul dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
push edx
|
||||||
|
push eax
|
||||||
|
mov eax, dword[startsector + 4]
|
||||||
|
mul dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
add [esp + 4], eax
|
||||||
|
push dword 0 ;read file
|
||||||
|
|
||||||
|
mov ebx, esp
|
||||||
|
invoke FS_Service
|
||||||
|
push eax
|
||||||
|
mov ecx, [pdata]
|
||||||
|
mov eax, ebx
|
||||||
|
xor edx, edx
|
||||||
|
div dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
mov edx, [numsectors_ptr]
|
||||||
|
mov [edx], eax
|
||||||
|
pop eax
|
||||||
|
|
||||||
|
add esp, 6*4+1 ; size FS struct
|
||||||
|
test eax, eax
|
||||||
|
popa
|
||||||
|
jz @f
|
||||||
|
mov eax, 1
|
||||||
|
ret
|
||||||
|
@@:
|
||||||
|
xor eax, eax
|
||||||
|
ret
|
||||||
|
.no_support:
|
||||||
|
mov eax, DISK_STATUS_GENERAL_ERROR
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
|
||||||
|
proc raw_disk_wr stdcall pdata: dword,\
|
||||||
|
buffer: dword,\
|
||||||
|
startsector: qword,\
|
||||||
|
numsectors_ptr:dword
|
||||||
|
|
||||||
|
mov ecx, [pdata]
|
||||||
|
test [ecx + DISK_DEV.Flags], Flag.Wo
|
||||||
|
jz .no_support
|
||||||
|
|
||||||
|
pusha
|
||||||
|
lea eax,[ecx + DISK_DEV.DiskPath]
|
||||||
|
push eax
|
||||||
|
dec esp
|
||||||
|
mov byte[esp],0
|
||||||
|
push dword[buffer]
|
||||||
|
|
||||||
|
mov eax, [numsectors_ptr]
|
||||||
|
mov eax, [eax]
|
||||||
|
mul dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
push eax
|
||||||
|
; get offset for startsector
|
||||||
|
mov eax, dword[startsector]
|
||||||
|
xor edx, edx
|
||||||
|
mul dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
push edx
|
||||||
|
push eax
|
||||||
|
xor edx, edx
|
||||||
|
mov eax, dword[startsector + 4]
|
||||||
|
mul dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
add [esp + 4], eax
|
||||||
|
push dword 3 ; write file
|
||||||
|
mov ebx, esp
|
||||||
|
invoke FS_Service
|
||||||
|
|
||||||
|
push eax
|
||||||
|
mov ecx, [pdata]
|
||||||
|
mov eax, ebx
|
||||||
|
xor edx, edx
|
||||||
|
div dword[ecx + DISK_DEV.SectorSize]
|
||||||
|
mov edx, [numsectors_ptr]
|
||||||
|
mov [edx], eax
|
||||||
|
pop eax
|
||||||
|
|
||||||
|
add esp, 6*4+1 ; size FS struct
|
||||||
|
test eax, eax
|
||||||
|
popa
|
||||||
|
jz @f
|
||||||
|
mov eax, 1
|
||||||
|
ret
|
||||||
|
@@:
|
||||||
|
xor eax, eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
.no_support:
|
||||||
|
mov eax, DISK_STATUS_GENERAL_ERROR
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
disk_root_list:
|
||||||
|
dd disk_root_list
|
||||||
|
dd disk_root_list
|
||||||
|
disk_count: dd 0
|
||||||
|
disk_list_lock: MUTEX
|
||||||
|
|
||||||
|
image_type:
|
||||||
|
; init function, table disk function
|
||||||
|
dd raw_image_init, raw_disk_functions
|
||||||
|
; vdi
|
||||||
|
.max_num = ($ - image_type - 8) / 8; 8 - item size
|
||||||
|
|
||||||
|
align 4
|
||||||
|
; esi - ptr to DISK_DEV
|
||||||
|
;WARNING: raw image size >=2tb not supported.
|
||||||
|
|
||||||
|
proc raw_image_init
|
||||||
|
sub esp, 40 ; for file_info
|
||||||
|
mov ecx, esp
|
||||||
|
|
||||||
|
pusha
|
||||||
|
lea eax,[esi + DISK_DEV.DiskPath]
|
||||||
|
push eax
|
||||||
|
dec esp
|
||||||
|
mov byte[esp],0
|
||||||
|
push ecx
|
||||||
|
xor eax, eax
|
||||||
|
push eax eax eax
|
||||||
|
push dword 5
|
||||||
|
|
||||||
|
mov ebx, esp
|
||||||
|
invoke FS_Service
|
||||||
|
add esp, 6*4+1
|
||||||
|
test eax, eax
|
||||||
|
popa
|
||||||
|
lea esp,[esp + 40]
|
||||||
|
jnz .err
|
||||||
|
|
||||||
|
; WARNING: Not working with stack, destroys the structure!
|
||||||
|
mov eax, [ecx + 32]
|
||||||
|
mov edx, [ecx + 36]
|
||||||
|
test eax, eax
|
||||||
|
jz .err
|
||||||
|
|
||||||
|
div dword[esi + DISK_DEV.SectorSize] ; undefined exeption
|
||||||
|
mov [esi + DISK_DEV.SectorCount], eax
|
||||||
|
mov [esi + DISK_DEV.SectorCount + 4], 0
|
||||||
|
; END WARNING
|
||||||
|
|
||||||
|
xor eax, eax
|
||||||
|
ret
|
||||||
|
.err:
|
||||||
|
or eax, -1
|
||||||
|
ret
|
||||||
|
endp
|
||||||
|
|
||||||
|
align 4
|
||||||
|
raw_disk_functions:
|
||||||
|
dd .size
|
||||||
|
dd raw_disk_close
|
||||||
|
dd 0 ; no need in .closemedia
|
||||||
|
dd disk_querymedia
|
||||||
|
dd raw_disk_rd
|
||||||
|
dd raw_disk_wr
|
||||||
|
dd 0 ; no need in .flush
|
||||||
|
dd disk_adjust_cache_size
|
||||||
|
.size = $ - raw_disk_functions
|
||||||
|
|
||||||
|
proc disk_adjust_cache_size
|
||||||
|
virtual at esp+4
|
||||||
|
.userdata dd ?
|
||||||
|
.suggested_size dd ?
|
||||||
|
end virtual
|
||||||
|
xor eax, eax
|
||||||
|
retn 8
|
||||||
|
endp
|
||||||
|
|
||||||
|
my_service db 'VIRT_DISK',0
|
||||||
|
|
||||||
|
data fixups
|
||||||
|
end data
|
||||||
|
|
||||||
|
include_debug_strings
|
||||||
34
programs/system/virtdisk/README.md
Normal file
34
programs/system/virtdisk/README.md
Normal file
@ -0,0 +1,34 @@
|
|||||||
|
# VIRT_DISK
|
||||||
|
Driver for mounting RAW disk images in KolibriOS.
|
||||||
|
|
||||||
|
To demonstrate the operation of the driver, the virtdisk program was written. Program allows you to add, delete and view virtual disks.
|
||||||
|
|
||||||
|
|
||||||
|
## List of virtdisk arguments:
|
||||||
|
- Delete command:
|
||||||
|
|
||||||
|
<CODE> virtdisk -d <DISK_NUMBER> </CODE>
|
||||||
|
|
||||||
|
- Information from disk:
|
||||||
|
|
||||||
|
<CODE> virtdisk -i <DISK_NUMBER> </CODE>
|
||||||
|
|
||||||
|
- Add disk image in file system:
|
||||||
|
|
||||||
|
<CODE> virtdisk -a <IMAGE_PATH> -s <SECTOR_SIZE> -t <IMAGE_TYPE> -f <ACCESS_FLAGS> </CODE>
|
||||||
|
|
||||||
|
- Input list all virtual disks:
|
||||||
|
|
||||||
|
<CODE> virtdisk -l </CODE>
|
||||||
|
|
||||||
|
## List flags:
|
||||||
|
- <CODE>ro</CODE> - read only access
|
||||||
|
- <CODE>rw</CODE> - read-write access
|
||||||
|
|
||||||
|
## List disk image types:
|
||||||
|
- <CODE>RAW</CODE> - it is used to mount disk images in "raw", "img" and "iso" formats
|
||||||
|
|
||||||
|
## Exemples command:
|
||||||
|
<CODE> virtdisk -a /sd0/4/kolibri.img -f ro </CODE>
|
||||||
|
|
||||||
|
<CODE> virtdisk -d 3 </CODE>
|
||||||
2
programs/system/virtdisk/Tupfile.lua
Normal file
2
programs/system/virtdisk/Tupfile.lua
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||||
|
tup.rule("virtdisk.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "virtdisk")
|
||||||
322
programs/system/virtdisk/parser.inc
Normal file
322
programs/system/virtdisk/parser.inc
Normal file
@ -0,0 +1,322 @@
|
|||||||
|
; data for parsing string
|
||||||
|
param_cmd: dd 0 ;set when for "-a" command
|
||||||
|
|
||||||
|
; virtdisk -d <DISK_NUMBER>
|
||||||
|
; virtdisk -i <DISK_NUMBER>
|
||||||
|
; virtdisk -a <PATH> -s <SECTOR_SIZE> -t <IMAGE_TYPE> -f <FLAGS>
|
||||||
|
; virtdisk -l
|
||||||
|
parse_cmd:
|
||||||
|
mov edi, PATH
|
||||||
|
; find string length
|
||||||
|
xor al, al
|
||||||
|
mov ecx, 4096
|
||||||
|
repne scasb
|
||||||
|
|
||||||
|
mov ecx, edi
|
||||||
|
sub ecx, PATH
|
||||||
|
mov edi, PATH
|
||||||
|
.still:
|
||||||
|
mov al, ' '
|
||||||
|
repz scasb
|
||||||
|
|
||||||
|
test ecx, ecx
|
||||||
|
jz .end_parser
|
||||||
|
|
||||||
|
dec edi
|
||||||
|
or word[edi], 0x2020 ; ïåðåâîäèì â íèæíèé ðåãèñòð
|
||||||
|
; -a -d -i -l -s -t -f
|
||||||
|
|
||||||
|
cmp word[edi], '-a'
|
||||||
|
jnz @f
|
||||||
|
;add virt disk
|
||||||
|
mov dword[param_cmd],-1
|
||||||
|
|
||||||
|
add edi, 3
|
||||||
|
sub ecx, 2
|
||||||
|
js ERROR_EXIT ; error not found path
|
||||||
|
|
||||||
|
mov edx, add_disk.file
|
||||||
|
call .copy_str
|
||||||
|
or dword[edx -4], 0x20202020
|
||||||
|
mov dword[add_disk.size], 512
|
||||||
|
cmp dword[edx -4], '.iso'
|
||||||
|
jnz .still
|
||||||
|
mov dword[add_disk.size], 2048
|
||||||
|
|
||||||
|
jmp .still
|
||||||
|
@@:
|
||||||
|
cmp word[edi], '-d'
|
||||||
|
jnz @f
|
||||||
|
|
||||||
|
add edi, 3
|
||||||
|
sub ecx, 2
|
||||||
|
js ERROR_EXIT ; error not found path
|
||||||
|
|
||||||
|
call .get_number
|
||||||
|
mov [disk_num],eax
|
||||||
|
|
||||||
|
pusha
|
||||||
|
mov al, 68
|
||||||
|
mov bl, 17
|
||||||
|
mov ecx, ioctl_del_disk
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
push str_command_successfully
|
||||||
|
call _sc_puts
|
||||||
|
popa
|
||||||
|
|
||||||
|
jmp .still
|
||||||
|
@@:
|
||||||
|
cmp word[edi], '-i'
|
||||||
|
jnz .no_disk_info
|
||||||
|
; write info
|
||||||
|
add edi, 3
|
||||||
|
sub ecx, 2
|
||||||
|
js ERROR_EXIT ; error not found path
|
||||||
|
; get disk number
|
||||||
|
call .get_number
|
||||||
|
mov [disk_num],eax
|
||||||
|
|
||||||
|
pusha
|
||||||
|
mov al, 68
|
||||||
|
mov bl, 17
|
||||||
|
mov ecx, ioctl_info_disk
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
call write_disk_info
|
||||||
|
popa
|
||||||
|
jmp .still
|
||||||
|
|
||||||
|
.no_disk_info:
|
||||||
|
cmp word[edi], '-l'
|
||||||
|
jnz .no_disk_list
|
||||||
|
; write list disks
|
||||||
|
add edi, 2
|
||||||
|
sub ecx, 1
|
||||||
|
pusha
|
||||||
|
|
||||||
|
mov al, 68
|
||||||
|
mov bl, 17
|
||||||
|
mov ecx, ioctl_count_disk
|
||||||
|
int 0x40
|
||||||
|
test eax, eax
|
||||||
|
jnz ERROR_EXIT
|
||||||
|
|
||||||
|
push str_header_disk_list
|
||||||
|
call _sc_puts
|
||||||
|
|
||||||
|
mov ecx, ioctl_list_disk.count
|
||||||
|
mov eax, 68
|
||||||
|
mov bl, 12
|
||||||
|
imul ecx, sizeof.info_buffer
|
||||||
|
add ecx, 4
|
||||||
|
mov [ioctl_list_disk.size_buffer], ecx
|
||||||
|
int 0x40
|
||||||
|
test eax, eax
|
||||||
|
jz ERROR_EXIT
|
||||||
|
|
||||||
|
mov [ioctl_list_disk.buffer], eax
|
||||||
|
mov esi, eax
|
||||||
|
mov edi, eax
|
||||||
|
add esi, 4
|
||||||
|
|
||||||
|
mov al, 68
|
||||||
|
mov bl, 17
|
||||||
|
mov ecx, ioctl_list_disk
|
||||||
|
int 0x40
|
||||||
|
test eax, eax
|
||||||
|
jnz ERROR_EXIT
|
||||||
|
|
||||||
|
cmp dword[edi], 0
|
||||||
|
jz .end_list
|
||||||
|
.next_item_list:
|
||||||
|
|
||||||
|
; num2str
|
||||||
|
push dword 10
|
||||||
|
mov ecx, esp
|
||||||
|
mov eax, [esi + info_buffer.disk_num - info_buffer]
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
div dword[esp]
|
||||||
|
dec ecx
|
||||||
|
add dl, '0'
|
||||||
|
mov byte[ecx], dl
|
||||||
|
test eax, eax
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
mov edx, str_input_disk_number + 1
|
||||||
|
mov dword[edx], ' '
|
||||||
|
@@:
|
||||||
|
mov al, byte[ecx]
|
||||||
|
mov byte[edx], al
|
||||||
|
inc edx
|
||||||
|
inc ecx
|
||||||
|
cmp ecx, esp
|
||||||
|
jnz @b
|
||||||
|
;-------
|
||||||
|
mov ecx, esp
|
||||||
|
mov eax, [esi + info_buffer.sector_size - info_buffer]
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
div dword[esp]
|
||||||
|
dec ecx
|
||||||
|
add dl, '0'
|
||||||
|
mov byte[ecx], dl
|
||||||
|
test eax, eax
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
mov edx, str_input_disk_sector
|
||||||
|
mov dword[edx], ' '
|
||||||
|
@@:
|
||||||
|
mov al, byte[ecx]
|
||||||
|
mov byte[edx], al
|
||||||
|
inc edx
|
||||||
|
inc ecx
|
||||||
|
cmp ecx, esp
|
||||||
|
jnz @b
|
||||||
|
;-------
|
||||||
|
add esp, 4
|
||||||
|
; flags
|
||||||
|
mov dword[str_input_disk_flags], ' '
|
||||||
|
cmp dword[esi + info_buffer.flags - info_buffer], 1b
|
||||||
|
jnz @f
|
||||||
|
mov word[str_input_disk_flags], 'ro'
|
||||||
|
@@:
|
||||||
|
cmp dword[esi + info_buffer.flags - info_buffer], 11b
|
||||||
|
jnz @f
|
||||||
|
mov word[str_input_disk_flags], 'rw'
|
||||||
|
@@:
|
||||||
|
;-------
|
||||||
|
pusha
|
||||||
|
add esi, info_buffer.path - info_buffer
|
||||||
|
push esi
|
||||||
|
push str_input_disk_number
|
||||||
|
call _sc_puts
|
||||||
|
call _sc_puts
|
||||||
|
push str_newline
|
||||||
|
call _sc_puts
|
||||||
|
popa
|
||||||
|
|
||||||
|
add esi, sizeof.info_buffer
|
||||||
|
dec dword[edi]
|
||||||
|
jnz .next_item_list
|
||||||
|
.end_list:
|
||||||
|
|
||||||
|
mov eax, 68
|
||||||
|
mov ebx, 13
|
||||||
|
mov ecx, edi
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
popa
|
||||||
|
jmp .still
|
||||||
|
.no_disk_list:
|
||||||
|
cmp dword[param_cmd],0
|
||||||
|
jz .no_cmd
|
||||||
|
|
||||||
|
cmp word[edi], '-s'
|
||||||
|
jnz .no_sector_size
|
||||||
|
; set sector size for -a command
|
||||||
|
add edi, 3
|
||||||
|
sub ecx, 2
|
||||||
|
js ERROR_EXIT ; error
|
||||||
|
; get number
|
||||||
|
call .get_number
|
||||||
|
mov [add_disk.size], eax
|
||||||
|
jmp .still
|
||||||
|
.no_sector_size:
|
||||||
|
cmp word[edi], '-t'
|
||||||
|
jnz .no_disk_type
|
||||||
|
; set image type for -a command
|
||||||
|
add edi, 3+3
|
||||||
|
sub ecx, 2+3
|
||||||
|
js ERROR_EXIT ; error
|
||||||
|
|
||||||
|
or dword[edi - 4], 0x20202020
|
||||||
|
cmp dword[edi - 4], ' raw'
|
||||||
|
jnz .still
|
||||||
|
; TODO!!!
|
||||||
|
mov dword[add_disk.type], 0
|
||||||
|
jmp .still
|
||||||
|
.no_disk_type:
|
||||||
|
cmp word[edi], '-f'
|
||||||
|
jnz .no_cmd
|
||||||
|
; set flags for -a command
|
||||||
|
add edi, 3+2
|
||||||
|
sub ecx, 2+2
|
||||||
|
js ERROR_EXIT ; error
|
||||||
|
|
||||||
|
or word[edi - 2], 0x2020
|
||||||
|
cmp word[edi - 2], 'ro'
|
||||||
|
jnz @f
|
||||||
|
mov dword[add_disk.flags], 1b
|
||||||
|
|
||||||
|
@@: cmp word[edi - 2], 'rw'
|
||||||
|
jnz .still
|
||||||
|
mov dword[add_disk.flags], 11b
|
||||||
|
jmp .still
|
||||||
|
.no_cmd:
|
||||||
|
inc edi
|
||||||
|
jmp .still
|
||||||
|
.end_parser:
|
||||||
|
ret
|
||||||
|
|
||||||
|
.get_str:
|
||||||
|
push edi
|
||||||
|
inc dword[esp]
|
||||||
|
mov al, '"'
|
||||||
|
cmp byte[edi], al
|
||||||
|
jz @f
|
||||||
|
dec dword[esp]
|
||||||
|
mov al, ' '
|
||||||
|
dec edi
|
||||||
|
@@:
|
||||||
|
inc edi
|
||||||
|
repne scasb
|
||||||
|
and byte[edi - 1], 0
|
||||||
|
pop eax
|
||||||
|
ret
|
||||||
|
|
||||||
|
; edx - buffer
|
||||||
|
.copy_str:
|
||||||
|
mov al, ' '
|
||||||
|
cmp byte[edi], '"'
|
||||||
|
jnz @f
|
||||||
|
mov al, '"'
|
||||||
|
inc edi
|
||||||
|
dec ecx
|
||||||
|
@@:
|
||||||
|
mov ah, byte[edi]
|
||||||
|
test ah, ah
|
||||||
|
jz @f
|
||||||
|
cmp ah, al
|
||||||
|
jz @f
|
||||||
|
mov byte[edx], ah
|
||||||
|
inc edx
|
||||||
|
inc edi
|
||||||
|
dec ecx
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
mov byte[edx], 0
|
||||||
|
ret
|
||||||
|
|
||||||
|
.get_number:
|
||||||
|
xor eax, eax
|
||||||
|
@@:
|
||||||
|
movzx edx, byte[edi]
|
||||||
|
test edx, edx
|
||||||
|
jz @f
|
||||||
|
cmp dl, ' '
|
||||||
|
jz @f
|
||||||
|
sub dl, '0'
|
||||||
|
js ERROR_EXIT
|
||||||
|
|
||||||
|
cmp dl, 9
|
||||||
|
ja ERROR_EXIT
|
||||||
|
|
||||||
|
imul eax, 10
|
||||||
|
add eax, edx
|
||||||
|
dec ecx
|
||||||
|
inc edi
|
||||||
|
jmp @b
|
||||||
|
@@:
|
||||||
|
ret
|
||||||
300
programs/system/virtdisk/shell.inc
Normal file
300
programs/system/virtdisk/shell.inc
Normal file
@ -0,0 +1,300 @@
|
|||||||
|
|
||||||
|
|
||||||
|
SC_OK = 0
|
||||||
|
SC_EXIT = 1
|
||||||
|
SC_PUTC = 2
|
||||||
|
SC_PUTS = 3
|
||||||
|
SC_GETC = 4
|
||||||
|
SC_GETS = 5
|
||||||
|
SC_CLS = 6
|
||||||
|
SC_PID = 7
|
||||||
|
SC_PING = 8
|
||||||
|
|
||||||
|
SHM_WRITE = 0x01
|
||||||
|
SHM_OPEN_ALWAYS = 0x04
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
align 4
|
||||||
|
sc_name rb 64
|
||||||
|
sc_pid dd 0
|
||||||
|
sc_buffer dd 0
|
||||||
|
sc_process dd 0
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
if used _sc_pid2name
|
||||||
|
align 4
|
||||||
|
_sc_pid2name:
|
||||||
|
|
||||||
|
push esp
|
||||||
|
push ebx
|
||||||
|
|
||||||
|
xor ecx, ecx
|
||||||
|
mov eax, [sc_pid]
|
||||||
|
mov ebx, 10
|
||||||
|
@@:
|
||||||
|
xor edx, edx
|
||||||
|
div ebx
|
||||||
|
push edx
|
||||||
|
inc ecx
|
||||||
|
test eax, eax
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
mov edi, sc_name
|
||||||
|
|
||||||
|
@@:
|
||||||
|
pop eax
|
||||||
|
add al, '0'
|
||||||
|
stosb
|
||||||
|
loop @b
|
||||||
|
|
||||||
|
|
||||||
|
mov al, '-'
|
||||||
|
stosb
|
||||||
|
mov al, 'S'
|
||||||
|
stosb
|
||||||
|
mov al, 'H'
|
||||||
|
stosb
|
||||||
|
mov al, 'E'
|
||||||
|
stosb
|
||||||
|
mov al, 'L'
|
||||||
|
stosb
|
||||||
|
mov al, 'L'
|
||||||
|
stosb
|
||||||
|
mov al, 0
|
||||||
|
stosb
|
||||||
|
|
||||||
|
|
||||||
|
pop ebx
|
||||||
|
pop esp
|
||||||
|
|
||||||
|
ret
|
||||||
|
end if
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
if used _sc_init
|
||||||
|
align 4
|
||||||
|
; void __stdcall sc_init();
|
||||||
|
_sc_init:
|
||||||
|
|
||||||
|
push esp
|
||||||
|
push ebx
|
||||||
|
|
||||||
|
mov eax, 68
|
||||||
|
mov ebx, 11
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov eax, 68 ; ¢ë¤¥«¨âì ¯ ¬ïâì
|
||||||
|
mov ebx, 12
|
||||||
|
mov ecx, 1024
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov [sc_process], eax
|
||||||
|
|
||||||
|
mov eax, 9 ; ¯®«ãç¨âì ¨ä®à¬ æ¨î ® ⥪ã饬 ¯à®æ¥áá¥
|
||||||
|
mov ebx, [sc_process]
|
||||||
|
mov ecx, -1
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov dword eax, [ebx+30] ; ¯®«ãç ¥¬ PID ⥪饣® ¯à®æ¥áá
|
||||||
|
mov [sc_pid], eax
|
||||||
|
|
||||||
|
mov eax, 68 ; ®á¢®¡®¤¨âì ¯ ¬ïâì
|
||||||
|
mov ebx, 13
|
||||||
|
mov ecx, [sc_process]
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
call _sc_pid2name
|
||||||
|
|
||||||
|
mov eax, 68 ; ®âªàëâì ¨¬¥®¢ ãî ®¡« áâì
|
||||||
|
mov ebx, 22
|
||||||
|
mov dword ecx, sc_name
|
||||||
|
mov edx, 4096
|
||||||
|
mov esi, SHM_OPEN_ALWAYS or SHM_WRITE
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov [sc_buffer], eax
|
||||||
|
|
||||||
|
pop ebx
|
||||||
|
pop esp
|
||||||
|
|
||||||
|
ret
|
||||||
|
end if
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
if used _sc_puts
|
||||||
|
align 4
|
||||||
|
; void __stdcall sc_puts(char *str);
|
||||||
|
_sc_puts:
|
||||||
|
|
||||||
|
push esp
|
||||||
|
push ebx
|
||||||
|
|
||||||
|
mov esi, [esp+12]
|
||||||
|
mov edi, [sc_buffer]
|
||||||
|
mov al, SC_PUTS
|
||||||
|
stosb
|
||||||
|
|
||||||
|
@@:
|
||||||
|
lodsb
|
||||||
|
stosb
|
||||||
|
test al, al
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
mov ebx, [sc_buffer]
|
||||||
|
|
||||||
|
@@:
|
||||||
|
mov byte dl, [ebx]
|
||||||
|
test dl, dl
|
||||||
|
jz @f
|
||||||
|
push ebx
|
||||||
|
mov eax, 5
|
||||||
|
mov ebx, 5
|
||||||
|
int 0x40
|
||||||
|
pop ebx
|
||||||
|
jmp @b
|
||||||
|
|
||||||
|
@@:
|
||||||
|
|
||||||
|
pop ebx
|
||||||
|
pop esp
|
||||||
|
ret 4
|
||||||
|
end if
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
if used _sc_exit
|
||||||
|
align 4
|
||||||
|
; void __stdcall sc_exit();
|
||||||
|
_sc_exit:
|
||||||
|
push ebx
|
||||||
|
push esp
|
||||||
|
|
||||||
|
mov ebx, [sc_buffer]
|
||||||
|
mov byte [ebx], SC_EXIT
|
||||||
|
|
||||||
|
@@:
|
||||||
|
mov byte dl, [ebx]
|
||||||
|
test dl, dl
|
||||||
|
jz @f
|
||||||
|
push ebx
|
||||||
|
mov eax, 5
|
||||||
|
mov ebx, 5
|
||||||
|
int 0x40
|
||||||
|
pop ebx
|
||||||
|
jmp @b
|
||||||
|
|
||||||
|
@@:
|
||||||
|
mov eax, 68 ;§ ªàëâì ¨¬¥®¢ ãî ®¡« áâì
|
||||||
|
mov ebx, 23
|
||||||
|
mov dword ecx, sc_name
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
pop esp
|
||||||
|
pop ebx
|
||||||
|
ret
|
||||||
|
end if
|
||||||
|
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
if used _sc_gets
|
||||||
|
align 4
|
||||||
|
; void __stdcall sc_gets(char *str);
|
||||||
|
_sc_gets:
|
||||||
|
|
||||||
|
push esp
|
||||||
|
push ebx
|
||||||
|
|
||||||
|
mov edi, [esp+12]
|
||||||
|
|
||||||
|
mov ebx, [sc_buffer]
|
||||||
|
mov byte [ebx], SC_GETS
|
||||||
|
|
||||||
|
@@:
|
||||||
|
mov byte dl, [ebx]
|
||||||
|
test dl, dl
|
||||||
|
jz @f
|
||||||
|
push ebx
|
||||||
|
mov eax, 5
|
||||||
|
mov ebx, 5
|
||||||
|
int 0x40
|
||||||
|
pop ebx
|
||||||
|
jmp @b
|
||||||
|
|
||||||
|
@@:
|
||||||
|
|
||||||
|
|
||||||
|
mov esi, [sc_buffer]
|
||||||
|
inc esi
|
||||||
|
|
||||||
|
@@:
|
||||||
|
lodsb
|
||||||
|
stosb
|
||||||
|
test al, al
|
||||||
|
jnz @b
|
||||||
|
|
||||||
|
pop ebx
|
||||||
|
pop esp
|
||||||
|
ret 4
|
||||||
|
end if
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
if used _sc_pid
|
||||||
|
_sc_pid:
|
||||||
|
;int __stdcall sc_pid (void);
|
||||||
|
push ebx ecx
|
||||||
|
|
||||||
|
mov ecx, [sc_buffer]
|
||||||
|
mov byte [ecx], SC_PID
|
||||||
|
|
||||||
|
@@:
|
||||||
|
mov eax, 5
|
||||||
|
mov ebx, 5
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
cmp byte [ecx], 0
|
||||||
|
je @f
|
||||||
|
call _sc_ping
|
||||||
|
test eax, eax
|
||||||
|
jnz .err
|
||||||
|
|
||||||
|
@@:
|
||||||
|
mov eax, [ecx+1]
|
||||||
|
pop ecx ebx
|
||||||
|
ret
|
||||||
|
|
||||||
|
.err:
|
||||||
|
pop ecx ebx
|
||||||
|
xor eax, eax
|
||||||
|
dec eax
|
||||||
|
ret
|
||||||
|
end if
|
||||||
|
|
||||||
|
;============================
|
||||||
|
|
||||||
|
if used _sc_ping
|
||||||
|
_sc_ping:
|
||||||
|
;int __stdcall sc_ping (void);
|
||||||
|
push ebx ecx
|
||||||
|
|
||||||
|
mov ecx, [sc_buffer]
|
||||||
|
mov byte [ecx], SC_PING
|
||||||
|
|
||||||
|
mov eax, 5
|
||||||
|
mov ebx, 200
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
xor eax, eax
|
||||||
|
cmp byte [ecx], 0
|
||||||
|
je @f
|
||||||
|
dec eax
|
||||||
|
|
||||||
|
@@:
|
||||||
|
pop ecx ebx
|
||||||
|
ret
|
||||||
|
end if
|
||||||
173
programs/system/virtdisk/virtdisk.asm
Normal file
173
programs/system/virtdisk/virtdisk.asm
Normal file
@ -0,0 +1,173 @@
|
|||||||
|
;-----------------------------------------------------------------------------;
|
||||||
|
; Copyright (C) 2023, Mikhail Frolov aka Doczom . All rights reserved. ;
|
||||||
|
; Distributed under terms of the GNU General Public License ;
|
||||||
|
; ;
|
||||||
|
; Demo program for the VIRT_DISK driver. ;
|
||||||
|
; ;
|
||||||
|
; GNU GENERAL PUBLIC LICENSE ;
|
||||||
|
; Version 2, June 1991 ;
|
||||||
|
; ;
|
||||||
|
;-----------------------------------------------------------------------------;
|
||||||
|
format binary as ""
|
||||||
|
use32
|
||||||
|
org 0
|
||||||
|
db 'MENUET01'
|
||||||
|
dd 1, START, I_END, MEM, STACKTOP, PATH, 0
|
||||||
|
|
||||||
|
include 'parser.inc'
|
||||||
|
include 'shell.inc'
|
||||||
|
START:
|
||||||
|
call _sc_init
|
||||||
|
|
||||||
|
mov al, 68
|
||||||
|
mov bl, 16
|
||||||
|
mov ecx, drv_name
|
||||||
|
int 0x40
|
||||||
|
mov [ioctl_add_disk.hand], eax
|
||||||
|
mov [ioctl_del_disk.hand], eax
|
||||||
|
mov [ioctl_info_disk.hand], eax
|
||||||
|
mov [ioctl_list_disk.hand], eax
|
||||||
|
mov [ioctl_count_disk.hand], eax
|
||||||
|
test eax, eax
|
||||||
|
jz .end
|
||||||
|
|
||||||
|
cmp byte[PATH], 0
|
||||||
|
jz .end
|
||||||
|
|
||||||
|
call parse_cmd
|
||||||
|
|
||||||
|
cmp dword[param_cmd],0
|
||||||
|
jz .end
|
||||||
|
|
||||||
|
mov al, 68
|
||||||
|
mov bl, 17
|
||||||
|
mov ecx, ioctl_add_disk
|
||||||
|
int 0x40
|
||||||
|
test eax, eax
|
||||||
|
jnz @f
|
||||||
|
push str_command_successfully
|
||||||
|
call _sc_puts
|
||||||
|
jmp .end
|
||||||
|
@@:
|
||||||
|
push str_error
|
||||||
|
call _sc_puts
|
||||||
|
.end:
|
||||||
|
call _sc_exit
|
||||||
|
mov eax,-1
|
||||||
|
int 0x40
|
||||||
|
ERROR_EXIT:
|
||||||
|
push str_runtime_err
|
||||||
|
call _sc_puts
|
||||||
|
|
||||||
|
call _sc_exit
|
||||||
|
mov eax,-1
|
||||||
|
int 0x40
|
||||||
|
write_disk_info:
|
||||||
|
pusha
|
||||||
|
push str_disk_info.path
|
||||||
|
call _sc_puts
|
||||||
|
|
||||||
|
push info_buffer.path
|
||||||
|
call _sc_puts
|
||||||
|
|
||||||
|
push str_newline
|
||||||
|
call _sc_puts
|
||||||
|
popa
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
|
I_END:
|
||||||
|
drv_name: db 'VIRT_DISK',0
|
||||||
|
|
||||||
|
; messages
|
||||||
|
str_runtime_err:
|
||||||
|
db 'Runtime error', 13, 10, 0
|
||||||
|
str_command_successfully:
|
||||||
|
db 'Command successfully', 13, 10, 0
|
||||||
|
str_header_disk_list:
|
||||||
|
db ' disk | sector | flags | file', 13, 10
|
||||||
|
db '-------|--------|-------|---------------------',13, 10, 0
|
||||||
|
str_input_disk_number:
|
||||||
|
db ' | ' ; ,0
|
||||||
|
str_input_disk_sector:
|
||||||
|
db ' | ';,0
|
||||||
|
str_input_disk_flags:
|
||||||
|
db ' | ',0
|
||||||
|
str_error:
|
||||||
|
db 'Error',0
|
||||||
|
str_disk_info:
|
||||||
|
.num: db 'Disk number: ',0
|
||||||
|
;.type: db 'Type: ', 0
|
||||||
|
;.sector_size:
|
||||||
|
; db 'Sector size: ', 0
|
||||||
|
.path: db 'File: ', 0
|
||||||
|
str_newline:
|
||||||
|
db ' ', 13, 10, 0
|
||||||
|
|
||||||
|
ioctl_count_disk:
|
||||||
|
.hand: dd 0, 3 ;iocode
|
||||||
|
dd .get_count_disk, 8
|
||||||
|
dd ioctl_list_disk.count, 4
|
||||||
|
.get_count_disk:
|
||||||
|
dd 0, 0
|
||||||
|
|
||||||
|
ioctl_list_disk:
|
||||||
|
.hand: dd 0, 3 ;iocode
|
||||||
|
dd .inp, 8
|
||||||
|
.buffer:
|
||||||
|
dd 0
|
||||||
|
.size_buffer:
|
||||||
|
dd 0
|
||||||
|
.inp:
|
||||||
|
dd 0
|
||||||
|
.count: dd 0
|
||||||
|
|
||||||
|
ioctl_info_disk:
|
||||||
|
.hand: dd 0, 4 ;iocode
|
||||||
|
dd disk_num, 4
|
||||||
|
dd info_buffer, sizeof.info_buffer
|
||||||
|
ioctl_del_disk:
|
||||||
|
.hand: dd 0, 2 ;iocode
|
||||||
|
dd disk_num, 4
|
||||||
|
dd 0, 0
|
||||||
|
ioctl_add_disk:
|
||||||
|
.hand: dd 0, 1 ;iocode
|
||||||
|
dd add_disk, add_disk.end - add_disk
|
||||||
|
dd disk_num, 4
|
||||||
|
|
||||||
|
disk_num: rd 0
|
||||||
|
add_disk:
|
||||||
|
.flags: dd 11b ;rw
|
||||||
|
.type: dd 0 ; TypeImage 0 - RAW
|
||||||
|
.size: dd 512
|
||||||
|
.file: rb 4096
|
||||||
|
.end:
|
||||||
|
|
||||||
|
PATH: rb 4096
|
||||||
|
|
||||||
|
info_buffer:
|
||||||
|
.sector_count: rd 2
|
||||||
|
.disk_hand: rd 1
|
||||||
|
.disk_num: rd 1
|
||||||
|
.flags: rd 1
|
||||||
|
.type: rd 1
|
||||||
|
.sector_size: rd 1
|
||||||
|
.path: rb 4096
|
||||||
|
sizeof.info_buffer = $ - info_buffer
|
||||||
|
|
||||||
|
rb 4096
|
||||||
|
STACKTOP:
|
||||||
|
MEM:
|
||||||
|
; EXAMPLE COMMANDS:
|
||||||
|
; virtdisk -f/sd0/4/kolibri.img -s512
|
||||||
|
; virtdisk -f/sd0/4/kolibri.img
|
||||||
|
; virtdisk -f/sd0/4/kolibri.iso -s2048
|
||||||
|
; default sector size = 512 for all disk
|
||||||
|
; 2048 for ISO disk
|
||||||
|
|
||||||
|
;struct IMAGE_ADD_STRUCT
|
||||||
|
; Flags rd 1 ; 1-ro 2-wo 3-rw
|
||||||
|
; TypeImage rd 1 ; 0-raw 1-vhd 2-vdi 3-imd
|
||||||
|
; SectorSize rd 1
|
||||||
|
; DiskPath rb maxPathLength
|
||||||
|
;ends
|
||||||
Loading…
Reference in New Issue
Block a user