C64-dev/newLang/scripts/verify-args-test.ps1

# E04-S08: parse ARGS.N8, run Calc.twice, and check the byte result is 6.
[CmdletBinding()]
param([int]$Port = 6563, [int]$TimeoutSeconds = 180)

$ErrorActionPreference = "Stop"
$project = Split-Path $PSScriptRoot -Parent
Import-Module (Join-Path $PSScriptRoot "lib\Nova128Test.psm1") -Force
& (Join-Path $PSScriptRoot "build-args-test.ps1")

$out = Join-Path $project "build\args-test"
$disk = Join-Path $out "args-test.d81"
$failures = @()

$session = Start-Nova128X128 -Autostart $disk -Drive8Image $disk -Port $Port `
    -Screenshot (Join-Path $out "args-vicii.png")
try {
    $mb = Wait-Nova128Mailbox $session -TimeoutSeconds $TimeoutSeconds
} catch {
    $dump = Read-Nova128Memory $session 0x1BF0 16
    Write-Host ("timeout mailbox: " + (($dump | ForEach-Object { $_.ToString('X2') }) -join ' '))
    throw
} finally {
    Stop-Nova128X128 $session
}
Write-Host ("mailbox: " + (($mb | ForEach-Object { $_.ToString('X2') }) -join ' '))

if ($mb[2] -ne 0x02) { $failures += "producer $($mb[2]) expected 2 (compiler)" }
if ($mb[3] -ne 0xA5) { $failures += ("fixture status {0:X2} failed at stage {1}" -f $mb[3], $mb[4]) }
if ($mb[8] -ne 0) { $failures += "diagnostics present: $($mb[8])" }
if ($mb[9] -ne 0) { $failures += "emitter error $($mb[9])" }
if ($mb[10] -ne 6) { $failures += "result = $($mb[10]), expected 6" }
if ($mb[12] -ne 0) { $failures += "codegen error $($mb[12])" }
if ($mb[13] -ne 0) { $failures += "flow error $($mb[13])" }

if ($failures) { throw ("args verification failed:`n  " + ($failures -join "`n  ")) }
Write-Host ("emitted {0} bytes; Calc.twice returned {1}" -f $mb[11], $mb[10])
Write-Host "verified byte argument push, sized prologue, and byte return in x128"