PowerView Scripting (PRACTICE)

// CMM (Command Macro Language): TRACE32's built-in scripting language

// Variables: GLOBAL (persist) vs LOCAL (sub-program scope)
GLOBAL &deviceId &testResult
LOCAL  &loopCount &tempVal

// Assign values
&deviceId=0x1A560000
&loopCount=0.          // decimal suffix required for decimal literals
&tempVal=Var.VALUE(g_vehicleSpeed_mps)  // read from target

// String variables
LOCAL &msg
&msg="ECU Debug Session v3.2"
PRINT &msg

// Arithmetic
&tempVal=&tempVal*3.6  // convert m/s to km/h
PRINT "Speed: " FORMAT.FLOAT(2.,1.,&tempVal) " km/h"

// Hex formatting
PRINT "DeviceID: 0x" FORMAT.HEX(8.,&deviceId)

// Conditional
IF &tempVal>200.
    PRINT %ERROR "Speed exceeds 200 km/h — verify sensor"
ELSE
    PRINT "Speed OK"

// TRACE32 state checks
IF STATE.RUN()      // CPU is currently running
    PRINT "CPU running"
IF !STATE.RUN()     // CPU is halted
    PRINT "CPU halted at " FORMAT.ADDRESS(Register(PC))

// CMM control flow: loops, GOSUB, error handling

// WHILE loop: poll until flag set (max 10 iterations)
LOCAL &i &done
&i=0.
&done=0.
WHILE (&i<10.)&&(&done==0.)
(
    IF Var.VALUE(g_initDone)==1
        &done=1.
    ELSE
    (
        WAIT 100ms
        &i=&i+1.
    )
)
IF &done==0.
    PRINT %ERROR "g_initDone never set after 1s!"

// GOSUB: call sub-routine in same file
GOSUB WaitForHalt 5000.   // 5000ms timeout
RETURN                     // end of main script

WaitForHalt:
    ENTRY &timeout_ms
    LOCAL &deadline
    &deadline=CLOCK.HIRES()+(&timeout_ms*1000.)
    WHILE STATE.RUN()
    (
        IF CLOCK.HIRES()>&deadline
        (
            PRINT %ERROR "Timeout waiting for halt"
            RETURN
        )
        WAIT 10ms
    )
    PRINT "Halted at: " FORMAT.ADDRESS(Register(PC))
    RETURN

// Error handling: ON.ERROR
ON.ERROR GOTO ErrorHandler
Data.LOAD.Elf "missing_file.elf"   // this will fail
GOTO EndScript

ErrorHandler:
    PRINT %ERROR "Script error: " ERROR.MESSAGE()
    ENDDO

EndScript:
    PRINT "Script complete"
    ENDDO

// Reusable TRACE32 utility macros — include with DO debug_utils.cmm

// Usage: DO debug_utils.cmm ; GOSUB WaitAndCheck "g_flag" 1. 2000.
RETURN    // if called directly, return immediately

WaitAndCheck:
    ENTRY &varname &expected &timeout_ms
    LOCAL &start &val
    &start=CLOCK.HIRES()
    WHILE CLOCK.HIRES()-&start < (&timeout_ms*1000.)
    (
        &val=Var.VALUE(&varname)
        IF &val==&expected
        (
            PRINT "OK: " &varname "==" FORMAT.HEX(8.,&expected) " in " (CLOCK.HIRES()-&start)/1000. "ms"
            RETURN 0.
        )
        WAIT 10ms
    )
    PRINT %ERROR "TIMEOUT: " &varname " never reached " FORMAT.HEX(8.,&expected)
    RETURN 1.

DumpCanStats:
    LOCAL &txcnt &rxcnt &errcnt
    &txcnt=Var.VALUE(g_CanTxCount)
    &rxcnt=Var.VALUE(g_CanRxCount)
    &errcnt=Var.VALUE(g_CanErrCount)
    PRINT "CAN TX=" &txcnt " RX=" &rxcnt " ERR=" &errcnt
    RETURN

// Automated regression: run 5 test cases; report PASS/FAIL summary

LOCAL &pass &fail
&pass=0.
&fail=0.

// Test 1: CAN receive counter increments
Go CanRx_MainFunction
WAIT !STATE.RUN() 2s
LOCAL &cnt1 &cnt2
&cnt1=Var.VALUE(g_CanRxCount)
Go CanRx_MainFunction   // run one more iteration
WAIT !STATE.RUN() 2s
&cnt2=Var.VALUE(g_CanRxCount)
IF &cnt2>&cnt1
    &pass=&pass+1.
ELSE
(
    PRINT %ERROR "FAIL TC1: CanRxCount did not increment"
    &fail=&fail+1.
)

// Test 2: Speed conversion accurate to 0.1 km/h
Var.SET g_speedRaw 2778.    // 100 km/h in 0.036 m/s units
Go App_SpeedFilter
WAIT !STATE.RUN() 2s
LOCAL &speed_kmh
&speed_kmh=Var.VALUE(g_speed_kmh)
IF ((&speed_kmh>99.9)&&(&speed_kmh<100.1))
    &pass=&pass+1.
ELSE
(
    PRINT %ERROR "FAIL TC2: speed=" FORMAT.FLOAT(2.,2.,&speed_kmh) " expected 100.0"
    &fail=&fail+1.
)

PRINT ""
PRINT "=== Results: PASS=" &pass " FAIL=" &fail " ==="
IF &fail>0.
    ENDDO 1.   // exit code 1 = CI failure
ENDDO 0.