ac2f10996a
Trying to make sense out of the disk image creation process so that it is easier to maintain going forward. This is just the initial round of changes.
97 lines
2.0 KiB
PowerShell
97 lines
2.0 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 ($LASTEXITCODE -gt 0) {throw "Command returned exit code $LASTEXITCODE"}
|
|
}
|
|
}
|
|
|
|
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
|
|
if ($LASTEXITCODE -gt 0) {throw "Command returned exit code $LASTEXITCODE"}
|
|
}
|
|
}
|
|
}
|
|
|
|
"Moving image $ImgFile into output directory..."
|
|
|
|
Move-Item $ImgFile -Destination "..\..\Binary\" -Force
|
|
|
|
return |