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

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

Module   [ set Version [::V1495V2::ReadRegister FirmwareVersion] set Date [::V1495V2::ReadRegister FirmwareDate] set html "firmware version $Version: date $Date" ] Act on ALL Modules?

[namespace eval V1495V2 { proc DrawCtrl {} { variable Name for {set i 0} {$i <=15} {incr i} {variable Ctrl.B$i} set html "Card Control Register (0x1018)" append html "

" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" # Bit 0 append html "" # Bit 1 append html "" # Bit 2 append html "" # Bit 3 append html "" # Bit 4 append html "" # Bit 5 append html "" # Bit 6 append html "" # Bit 7 append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" # Bit 8: append html "" # Bit 9: append html "" # Bit 10: append html "" # Bit 11: append html "" # Bit 12: append html "" # Bit 13: append html "" # Bit 14: append html "" # Bit 15: append html "" append html "" append html "
Output GOutput DOutput EOutput FProgLevelOutSoftware pulsereservedGate Source
" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "
RunForce GateInvert GateForce Clear GateForce Clear BusySoft ResetTrig Counter ResetTS Reset
" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "
" append html "

" return $html } proc DrawRdOutStatus {} { variable Name for {set i 0} {$i <=15} {incr i} {variable RdStat.B$i} set html "ReadOut Status Register (0x103c)" append html "

" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" # Bit 0 append html "" # Bit 1 append html "" # Bit 2 append html "" # Bit 3 append html "" # Bit 4 append html "" append html "" append html "
RunBuffer FillingData Ready/Start ReadoutReadout CompleteBusy
" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "" append html "
" append html "

" return $html } proc DrawRdOutCtrl {} { variable Name for {set i 0} {$i <=15} {incr i} {variable RdOutCtrl.B$i} set html "Readout Control Register (0x101c)" append html "

" append html "" append html "" append html "" append html "" # Bit 0 append html "" append html "" append html "
Readout Complete
" append html "" append html "
" append html "

" return $html } proc DrawGateWidth {} { variable Name variable GateWidth set html "Gate Width Register (0x1010)" append html "

" append html "" append html "" append html "" append html "" append html "
" append html "Gate Width (units 10ns)" append html "
" append html "

" return $html } proc DrawTS {} { variable Name variable TS3100 variable TS4732 set html "Time Stamp Registers (0x1044/0x1048)" append html "

" append html "" append html "" append html "" append html "" append html "" append html "
" append html "TS of Gate (47:32)" append html "" append html "TS of Gate (31:0)" append html "
" append html "

" return $html } proc DrawCounters {} { variable Name variable TrigReq variable TrigAcc set html "Trigger Counters (0x1030/0x1034)" append html "

" append html "" append html "" append html "" append html "" append html "" append html "
" append html "Trigger Request Counter" append html "" append html "Trigger Accept Counter" append html "
" append html "

" return $html } }]

Module Setup

[namespace eval V1495V2 {set html [DrawCtrl]}] [namespace eval V1495V2 {set html [DrawRdOutStatus]}] [namespace eval V1495V2 {set html [DrawRdOutCtrl]}] [namespace eval V1495V2 {set html [DrawGateWidth]}] [namespace eval V1495V2 {set html [DrawTS]}] [namespace eval V1495V2 {set html [DrawCounters]}]

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


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

" append html "" append html "

" set html } }]

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