05d76a70d9
Attempt to clean up the hard disk image creation process to better handle the existence of the two formats (hd512 and hd1024).
95 lines
1.9 KiB
PowerShell
95 lines
1.9 KiB
PowerShell
Param($Disk, $Format="", $SysFile="")
|
|
|
|
$ErrorAction = 'Stop'
|
|
|
|
$CpmToolsPath = '../../Tools/cpmtools'
|
|
|
|
$env:PATH = $CpmToolsPath + ';' + $env:PATH
|
|
|
|
if ($Format.Length -eq 0)
|
|
{
|
|
Write-Error "No disk format specified!" -ErrorAction Stop
|
|
return
|
|
}
|
|
|
|
switch ($Format)
|
|
{
|
|
"wbw_fd144"
|
|
{
|
|
# 1.44MB Floppy Disk
|
|
$Desc = "1.44MB Floppy Disk"
|
|
$ImgFile = "fd144_${Disk}.img"
|
|
$MediaID = 6
|
|
$Size = 1440KB
|
|
}
|
|
|
|
"wbw_hd512"
|
|
{
|
|
# 512 Directory Entry Hard Disk Format
|
|
$Desc = "Hard Disk (512 directory entry format)"
|
|
$ImgFile = "hd512_${Disk}.img"
|
|
$MediaID = 4
|
|
$Size = 8MB + 128KB
|
|
}
|
|
|
|
"wbw_hd1024"
|
|
{
|
|
# 1024 Directory Entry Hard Disk Format
|
|
$Desc = "Hard Disk (1024 directory entry format)"
|
|
$ImgFile = "hd1024_${Disk}.img"
|
|
$MediaID = 10
|
|
$Size = 8MB
|
|
}
|
|
}
|
|
|
|
if (-not (Test-Path("d_${Disk}/")))
|
|
{
|
|
Write-Error "Source directory d_${Disk} for disk ${Disk} not found!" -ErrorAction Stop
|
|
return
|
|
}
|
|
|
|
"Generating $Disk $Desc..."
|
|
|
|
if ($SysFile.Length -gt 0)
|
|
{ [byte[]]$SysImg = [System.IO.File]::ReadAllBytes($SysFile) }
|
|
else
|
|
{ [byte[]]$SysImg = @() }
|
|
|
|
$Image = ($SysImg + ([byte[]](0xE5) * ($Size - $SysImg.length)))
|
|
|
|
# $Image[1410] = 0x4D
|
|
# $Image[1411] = 0x49
|
|
# $Image[1412] = 0x44
|
|
# $Image[1413] = $MediaID
|
|
|
|
[System.IO.File]::WriteAllBytes($ImgFile, $Image)
|
|
|
|
for ($Usr=0; $Usr -lt 16; $Usr++)
|
|
{
|
|
if (Test-Path ("d_${Disk}/u${Usr}/*"))
|
|
{
|
|
$Cmd = "cpmcp -f $Format $ImgFile d_${Disk}/u${Usr}/*.* ${Usr}:"
|
|
$Cmd
|
|
Invoke-Expression $Cmd
|
|
}
|
|
}
|
|
|
|
if (Test-Path("d_${Disk}.txt"))
|
|
{
|
|
foreach($Line in Get-Content "d_${Disk}.txt")
|
|
{
|
|
$Spec = $Line.Trim()
|
|
if (($Spec.Length -gt 0) -and ($Spec.Substring(0,1) -ne "#"))
|
|
{
|
|
$Cmd = "cpmcp -f $Format $ImgFile ${Spec}"
|
|
$Cmd
|
|
Invoke-Expression $Cmd
|
|
}
|
|
}
|
|
}
|
|
|
|
"Moving image $ImgFile into output directory..."
|
|
|
|
Move-Item $ImgFile -Destination "..\..\Binary\" -Force
|
|
|
|
return |