[Doc_Dynamic] [global env; source [file join $env(MIDASBASE) TclHttpd Html settings.tml]] VME: V1730PHA Control @ [global env; set env(ComputerName)]

V1730PHA Control @ [set MyInfo] client address is [set ClientIPAddress]

[namespace eval VMEConfig { if {![info exists ::VMEControl::started]} { set html "" } }] $m"} }] > [namespace eval VMEConfig { if {[ReadVMERegister HasBeenConfigured] == 0} { set html "" } }]

Module   [ set MSB [::V1730PHA::ReadRegister ConfigROM80] set LSB [::V1730PHA::ReadRegister ConfigROM84] set serial [expr ($MSB<<8)+$LSB] set html "S/N [set serial]" ] [ if {[set ::V1730PHA::AcqStatus.B8] == 1} { set html "Module Ready" } else { set html "Warning: Module NOT Ready" } set html ] [ if {[set ::V1730PHA::AcqStatus.B2] == 1} { set html "Acquisition Running" } else { set html "Module Idle" } set html ] [ if {[::V1730PHA::ReadRegister "FirmWareLicense"] == 0} {set html "WARNING: firmware license expired"} else {set html "DPP firmware OK"} set html ] [ set html "Module firmware: " append html "[expr ([set ::V1730PHA::ROC_FPGARev] >> 8) & 255]" append html "." append html "[expr [set ::V1730PHA::ROC_FPGARev] & 255]" append html "_" append html "[expr ([set ::V1730PHA::AMC_FPGARev] >> 8) & 255]" append html "." append html "[expr [set ::V1730PHA::AMC_FPGARev] & 255]" set html ]

Module Setup

Module Register   Act on ALL Modules?

[namespace eval V1730PHA { set updateproc [lindex $ModuleRegItem 3] if {$updateproc != "null"} {eval $updateproc} set drawproc [lindex $ModuleRegItem 4] if {$drawproc != "null"} {eval $drawproc} }]

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

Channel Setup

Channel Register   Act on ALL Channels?

[namespace eval V1730PHA { set updateproc [lindex $ChRegItem 3] if {$updateproc != "null"} {eval $updateproc} set drawproc [lindex $ChRegItem 4] if {$drawproc != "null"} {eval $drawproc} }]



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

" append html "" append html "

" set html } }]

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

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

[namespace eval V1730PHA { if {$JS != ""} { append JS "\");" set html "" } }]