mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
962 B
40 lines
962 B
$ErrorAction = 'Stop'
|
|
|
|
$CpmToolsPath = '../../Tools/cpmtools'
|
|
|
|
$env:PATH = $CpmToolsPath + ';' + $env:PATH
|
|
|
|
$Blank = ([byte[]](0xE5) * (128KB * 65))
|
|
|
|
"Creating work file..."
|
|
if (!(Test-Path('Blank.tmp'))) {Set-Content -Value $Blank -Encoding byte -Path 'Blank.tmp'}
|
|
|
|
"Creating hard disk images..."
|
|
#for ($Dsk=0; $Dsk -lt 2; $Dsk++)
|
|
foreach ($Dsk in @("hd0","hd1","hd_cpm3"))
|
|
{
|
|
"Generating Hard Disk ${Dsk}..."
|
|
for ($Slice=0; $Slice -lt 4; $Slice++)
|
|
{
|
|
"Adding files to slice ${Slice}..."
|
|
copy Blank.tmp slice${Slice}.tmp
|
|
for ($Usr=0; $Usr -lt 16; $Usr++)
|
|
{
|
|
if (Test-Path ("${Dsk}/s${Slice}/u${Usr}/*"))
|
|
{
|
|
$Cmd = "cpmcp -f wbw_hd0 slice${Slice}.tmp ${Dsk}/s${Slice}/u${Usr}/*.* ${Usr}:"
|
|
$Cmd
|
|
Invoke-Expression $Cmd
|
|
}
|
|
}
|
|
}
|
|
|
|
"Combining slices into final disk image ${Dsk}..."
|
|
&$env:COMSPEC /c copy /b slice*.tmp ..\..\Binary\${Dsk}.img
|
|
|
|
Remove-Item slice*.tmp
|
|
}
|
|
|
|
Remove-Item *.tmp
|
|
|
|
return
|