|
- # pc-run.ps1 - link given object files with the ORIGINAL Power C linker (copy of POWERc.d81),
- # optionally run the program and type keys at it. The original disk image is never written.
- # pc-run.ps1 -Obj a.o,b.o -Name prog -Dir outdir [-Keys 'text\n'] [-Data file1,file2]
- param([string[]]$Obj, [string]$Name = "prog", [string]$Dir, [string]$Keys = "", [string[]]$Data = @(), [string[]]$LibObj = @(),
- [int]$Delay = 900, [int]$Tail = 8, [int]$Settle = 15, [string]$Shot = "run.png")
- $ErrorActionPreference = "Continue"
- $vice = "C:\Program Files\GTK3VICE-3.10-win64\bin"
- $x64 = Join-Path $vice "x64sc.exe"; $c1541 = Join-Path $vice "c1541.exe"
- $Obj = @($Obj | % { $_ -split "," } | % { (Resolve-Path $_).Path })
- $LibObj = @($LibObj | ? { $_ } | % { $_ -split "," } | % { (Resolve-Path $_).Path })
- $Data = @($Data | ? { $_ } | % { $_ -split "," } | % { (Resolve-Path $_).Path })
- New-Item -ItemType Directory -Force -Path $Dir | Out-Null
- $Dir = (Resolve-Path $Dir).Path
- $here = $PSScriptRoot
- $base = (Resolve-Path (Join-Path $here "..\..\POWERc.d81")).Path
- $wd = Join-Path $here "..\work"; New-Item -ItemType Directory -Force -Path $wd | Out-Null; $wd = (Resolve-Path $wd).Path
- Set-Location $wd
- $img = "r.d81"; Copy-Item $base $img -Force
- $names = @()
- foreach ($o in $Obj) {
- $n = [IO.Path]::GetFileNameWithoutExtension($o); $names += $n
- $null = & $c1541 $img -delete "$n.o" 2>$null
- $null = & $c1541 $img -write $o "$n.o,s" 2>$null
- }
- foreach ($l in $LibObj) { $ln = [IO.Path]::GetFileName($l); $null = & $c1541 $img -delete $ln 2>$null; $null = & $c1541 $img -write $l "$ln,s" 2>$null }
- foreach ($d in $Data) { $null = & $c1541 $img -write $d ([IO.Path]::GetFileName($d) + ",s") 2>$null }
- function Quote-Arg([string]$a) {
- if ($a -ne "" -and $a -notmatch '[\s"]') { return $a }
- $e = $a -replace '(\\*)"', '$1$1\"'; $e = $e -replace '(\\+)$', '$1$1'; return '"' + $e + '"'
- }
- $kb = "link -s\n"
- foreach ($n in $names) { $kb += "$n.o\n" }
- $kb += "^\n\n$Name\n" + ("\n" * $Tail)
- $haveKeys = $Keys -ne ""
- if ($haveKeys) {
- $kb += "bye\n" + ("\n" * 6) + 'load"' + $Name + '",8,1' + "\n" + ("\n" * 10) + "run\n" + $Keys
- }
- $shotp = Join-Path $Dir $Shot; if (Test-Path $shotp) { Remove-Item $shotp -Force }
- $cycles = [long](($kb.Length * $Delay / 1000.0 + $Settle) * 13000000); if ($cycles -gt 2000000000) { $cycles = 2000000000 }
- $argv = @("-8", $img, "-autostart", "${img}:shell", "-autostart-warp", "-warp", "-sounddev", "dummy",
- "-keybuf-delay", "$Delay", "-keybuf", $kb, "-limitcycles", "$cycles", "-exitscreenshot", $shotp)
- $psi = New-Object System.Diagnostics.ProcessStartInfo
- $psi.WorkingDirectory = $wd; $psi.FileName = $x64; $psi.Arguments = ($argv | % { Quote-Arg $_ }) -join ' '; $psi.UseShellExecute = $false
- $p = [Diagnostics.Process]::Start($psi); $p.WaitForExit(); Start-Sleep -Milliseconds 900
- $prg = Join-Path $Dir "$Name.prg"; if (Test-Path $prg) { Remove-Item $prg -Force }
- & $c1541 $img -read $Name $prg 2>$null | Out-Null
- if (Test-Path $prg) { Write-Host ("linked {0}: {1} bytes" -f $Name, (Get-Item $prg).Length) } else { Write-Host "LINK FAILED" }
|
