[Doc_Dynamic] VME: CAEN PLL Configure [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]]

CAEN PLL Configure @ [set MyInfo] client address is [set ClientIPAddress]

Module Type:         Module Index:         Interface:         Image:  

PLL Program File:  

Settings From File [namespace eval PLL {variable PLLConfigFile; set html [set PLLConfigFile]}] [namespace eval PLL { set html "" for {set i 0} {$i <= 15} {incr i} { append html "" } catch {unset PLLData} set PLLData [GetPLLConfig] set len [llength $PLLData] set k 0 for {set j 0} {$j <= 5} {incr j} { if {$len < 0} {break} append html "" append html "" for {set i 0} {$i <= 15} {incr i} { if {$len < 0} { append html "" } else { set Offset [first [lindex $PLLData $k]] if {[expr ($j * 16) + $i] == $Offset} { set Data [second [lindex $PLLData $k]] append html "" incr k incr len -1 } else { append html "" } } } } set html }]
Offset[format "0x%02x" $i]
[format "0x%02x" [expr 16*$j]] $Data 

Contents from Module Flash [namespace eval PLL {variable ModuleIndex; variable ModuleName; set html "[set ModuleName]#[set ModuleIndex]"}] [namespace eval PLL { set html "" for {set i 0} {$i <= 15} {incr i} { append html "" } catch {unset PLLData} foreach item [PLLReadFlash N] { set Offset [first $item] if {$Offset == 0xff} {continue} set Data [second $item] set PLLData($Offset) $Data if {$Offset >= 0x5a} {break} } set k 0 for {set j 0} {$j <= 5} {incr j} { append html "" append html "" for {set i 0} {$i <= 15} {incr i} { set Offset [format "0x%02x" [expr ($j * 16) + $i]] if {![info exists PLLData($Offset)]} { append html "" } else { set Data [set PLLData($Offset)] append html "" } } } set html }]
Offset[format "0x%02x" $i]
[format "0x%02x" [expr 16*$j]] $Data

Clock Output Enable:  

System functions (Expert users only for test/debugging purposes!!!)  

[namespace eval PLL { if {$ShowLogFlag == 1} then { set html "" append html "

" append html "" append html "

" set html } }]

[namespace eval PLL { if {$ShowLogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval PLL { if {$LogFlag == 1} then { set html "" } else { set html "" } set html }]

Last Updated: [clock format [clock seconds] -format "%B %d, %Y %H:%M:%S"]

[namespace eval PLL { if {$JS != ""} { append JS "\");" set html "" } }] [mypage::contents [list Home ../index.tml]] [mypage::footer]