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

V1751 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 high [::V1751::ReadRegister ConfigROM80] set low [::V1751::ReadRegister ConfigROM84] set sn [expr ($high << 8) + $low] set html "S/N $sn" ] [ if {[set ::V1751::AcqStatus.B8] == 1} { set html "Module Ready" } else { set html "Warning: Module NOT Ready" } set html ] [ if {[set ::V1751::AcqStatus.B2] == 1} { set html "Acquisition Running" } else { set html "Module Idle" } set html ] [ set html "Module firmware: " append html "[expr ([set ::V1751::ROC_FPGARev] >> 8) & 255]" append html "." append html "[expr [set ::V1751::ROC_FPGARev] & 255]" append html "_" append html "[expr ([set ::V1751::AMC_FPGARev] >> 8) & 255]" append html "." append html "[expr [set ::V1751::AMC_FPGARev] & 255]" set html ]

Module Setup

Module Register   Act on ALL Modules?

[namespace eval V1751 { 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 V1751 { set updateproc [lindex $ChRegItem 3] if {$updateproc != "null"} {eval $updateproc} set drawproc [lindex $ChRegItem 4] if {$drawproc != "null"} {eval $drawproc} }]



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

" append html "" append html "

" set html } }]

[namespace eval V1751 { if {$ShowLogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval V1751 { if {$LogFlag == 1} then { set html "" } else { set html "" } set html }] [namespace eval V1751 { 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 V1751 { if {$JS != ""} { append JS "\");" set html "" } }] [mypage::contents [list Home ../index.tml]] [mypage::footer]