# DAPLink observer V0.1.12: writes PID state to obs_samples.txt every 500ms
# W1@0x20000460 fault_stash_T(f) W2@0x20000464 fault_stash_I(f) W3@0x20000468 b0=fault_debounce
# W4@0x20000470 prev_temp(f) W5@0x20000474 integral(f) W6@0x20000478 b1=duty
# W7@0x2000047c ramp_target(f) W8@0x20000480 target(f) W9@0x20000484 b0=enable
# W10@0x200001d0 ntc_last_temp(f)

set LOGF "E:/Hulk-Coding/FilmForge/obs_samples.txt"
set g_f [open $LOGF a]
proc logline {s} { global g_f; puts $g_f $s; flush $g_f }

logline "OBS start [clock milliseconds]"
if {[catch {init} err]} { logline "ERR init: $err" }
while {1} {
    if {[catch {
        set w1 [mrw 0x20000460]
        set w2 [mrw 0x20000464]
        set w3 [mrw 0x20000468]
        set w4 [mrw 0x20000470]
        set w5 [mrw 0x20000474]
        set w6 [mrw 0x20000478]
        set w7 [mrw 0x2000047c]
        set w8 [mrw 0x20000480]
        set w9 [mrw 0x20000484]
        set w10 [mrw 0x200001d0]
        logline "[clock milliseconds] $w1 $w2 $w3 $w4 $w5 $w6 $w7 $w8 $w9 $w10"
    } err]} { logline "ERR loop: $err" }
    sleep 500
}