;*************************************
;	made by Leif
;	array001 (back: tdc07 with discr & adc)
;	14 Feb 2002
;	> remove all usage of TDCs (just the ADC now)
;*************************************

; NOTES:

; 1) If gate width is too large (adc has a max allowed: ~2 microseconds, they say),
;	adc freezes and run must be stopped. The adc must be cleared. (EnableADC does a clear module.)



; ____________________________________________________________________
; event "prototypes" (declarations)
; "$" before name indicates event can be called via toolsheet widget (my design decision)

DECLARE WriteFileHeader AS EVENT	; MUST be first to match edf2txt code (event type = 6)
DECLARE WaitForRoundSecond AS EVENT
DECLARE INIT AS EVENT
DECLARE INITcc AS EVENT
DECLARE $MainSwitch AS EVENT
DECLARE ResetTimer AS EVENT
DECLARE $SetAutoHalt AS EVENT
DECLARE $RefreshIncr AS EVENT
DECLARE IncTimer AS EVENT
DECLARE UpdateCounters AS EVENT
DECLARE UpdateAutoHalt AS EVENT
DECLARE $5minGateAvgSelect AS EVENT
DECLARE $TotalGateAvgSelect AS EVENT
DECLARE WriteTime AS EVENT
DECLARE GetCurrTime AS EVENT
DECLARE BeepAgain AS EVENT
DECLARE $CLEARsheet AS EVENT
DECLARE $CLEARdisp AS EVENT
DECLARE ClearStatusDisplay AS EVENT

DECLARE INITadc AS EVENT
DECLARE EnableADC AS EVENT
DECLARE DisableADC AS EVENT
DECLARE ADC_READ AS EVENT
DECLARE WriteADC1header AS EVENT
DECLARE WriteADC1data AS EVENT
DECLARE $CLEARhist AS EVENT
DECLARE ClearHistograms AS EVENT
DECLARE $SetBinSize AS EVENT
DECLARE $LogLinToggle AS EVENT
DECLARE $HistZoomIn AS EVENT
DECLARE $HistZoomOut AS EVENT
DECLARE UpdateHist AS EVENT
DECLARE $ShowCh0 AS EVENT
DECLARE $ShowCh1 AS EVENT
DECLARE $ShowCh2 AS EVENT
DECLARE $ShowCh3 AS EVENT
DECLARE $ShowCh4 AS EVENT
DECLARE $ShowCh5 AS EVENT
DECLARE $ShowCh6 AS EVENT
DECLARE $ShowCh7 AS EVENT
DECLARE $ShowCh8 AS EVENT
DECLARE $ShowCh9 AS EVENT
DECLARE $ShowCh10 AS EVENT
DECLARE $ShowCh11 AS EVENT
DECLARE UpdateADCDisplays AS EVENT

DECLARE INITdiscr AS EVENT
DECLARE EnableDiscr AS EVENT
DECLARE DisableDiscr AS EVENT
DECLARE $LocRem1 AS EVENT
DECLARE $LocRem2 AS EVENT
DECLARE ReadThresh1 AS EVENT
DECLARE ReadThresh2 AS EVENT
DECLARE $Discr1_CustomThresh AS EVENT
DECLARE $Discr1_10mV AS EVENT
DECLARE $Discr1_15mV AS EVENT
DECLARE $Discr1_20mV AS EVENT
DECLARE $Discr1_30mV AS EVENT
DECLARE $Discr2_CustomThresh AS EVENT
DECLARE $Discr2_1fold AS EVENT
DECLARE $Discr2_2fold AS EVENT
DECLARE $Discr2_3fold AS EVENT
DECLARE $Discr2_4fold AS EVENT


; ____________________________________________________________________
; variables treated as constants

; slots for each module (initialized in GO)
DECLARE ADC1 AS INTEGER
DECLARE DISCR1 AS INTEGER
DECLARE DISCR2 AS INTEGER
; module number (e.g., 2249 for LeCroy's ADC)
DECLARE ADC1number AS INTEGER
DECLARE DISCR1number AS INTEGER
DECLARE DISCR2number AS INTEGER

DECLARE MAXINT AS INTEGER			; really big positive 32-bit number used as "Refresh Never" value
DECLARE HISTMAX AS INTEGER		; treated as const (init'd in GO); number of bins in hist arrays and widget

; ____________________________________________________________________
; variables

DECLARE timeCounter AS INTEGER		; seconds counter for the run
DECLARE gateCounter AS INTEGER		; gates counter for the run
DECLARE timer5min AS INTEGER			; counter of seconds for 5-minute adc trigger freq average
DECLARE gateCount5min AS INTEGER		; counter of gates for 5-minute adc trigger freq average
DECLARE refreshIncrSize AS INTEGER		; number of events between hist and ADC data updates (of display)
DECLARE refreshCount AS INTEGER		; counter for updating displays
;
DECLARE I AS INTEGER			; for loop counter variable, usually for channel number or histogram bin
DECLARE J AS INTEGER			; for loop counter variable, usually for channel number or histogram bin
DECLARE tempData AS INTEGER			; used as all-purpose integer
DECLARE widget AS STRING			; used to build toolsheet widget names when inside loops
DECLARE num1 AS INTEGER			; used as all-purpose integer
DECLARE num2 AS INTEGER			; used as all-purpose integer
DECLARE tempStr AS STRING			; used as all-purpose string
DECLARE tempStr2 AS STRING			; used as all-purpose cleanser (uh... string)
DECLARE tempReal AS REAL			; used as all-purpose real
DECLARE bin AS INTEGER			; used in the 11 $ShowChX events for histogram stuff
DECLARE BIT AS INTEGER			; used when masking with bitwise logic operations
DECLARE ok AS BOOLEAN			; used as all-purpose boolean
DECLARE startTime_ms AS INTEGER		; start of run in milliseconds
DECLARE lastSecInt AS INTEGER			; used for IncTimer to correct 4.3% error of SET...TIMER
DECLARE fileHeaderDone AS BOOLEAN		; init'd in GO, and set in WriteFileHeader, checked in SRQ
DECLARE moduleReadOutInProgress AS BOOLEAN	; for use in SRQ and last module read event
DECLARE beepCount AS INTEGER		; used for errors in adc counts (ADC_READ)
DECLARE adcDataReadIn AS INTEGER		; data from ADC read
; histogramming events
DECLARE BINSIZE AS INTEGER			; treated as semi-const (init'd in GO, changed in $SetBinSize); hist widget's bin size
DECLARE running AS BOOLEAN			; true if $MainSwitch set to run toolsheet (adc stuff) (CC is not inhibited)
DECLARE updateHist AS BOOLEAN		; set to get into $ShowChX from UpdateHist event (IF stmt would otherwise stop it)
DECLARE showingHistCh AS INTEGER		; presently displayed histogram channel on toolsheet, set in INIT and $ShowChX
; AutoHalt feature
DECLARE endTimeSetAt AS STRING		; time and date that AutoHalt feature was set
DECLARE hoursSetForEnd AS REAL		; num of hours Autohalt set for (does not count down)
DECLARE secsToEnd AS INTEGER		; countdown in seconds before HALTing toolsheet
; read and write capabilites (set in GetCurrTime, used for parameter WRITEs)
DECLARE yearInt AS INTEGER
DECLARE monthInt AS INTEGER
DECLARE dayInt AS INTEGER
DECLARE hourInt AS INTEGER
DECLARE minuteInt AS INTEGER
DECLARE secondInt AS INTEGER
; ADC_READ
DECLARE adc1Data[12] AS INTEGER
; array for storing each ADC channel's histogram for viewing (automatically init'd to 0)
DECLARE histCh[13680] AS INTEGER		; 13680 = 12 channels * 1140 bins
; $WriteThreshReg1
DECLARE TDACin AS REAL
DECLARE TDACout AS INTEGER

; ____________________________________________________________________



;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

; GO => entry point to toolsheet; initialize everything (without starting run)
ON GO DO
	HISTMAX = 1140		; if changing HISTMAX, must change array sizes for histCh[ ] and histogram widget "Display > X Length"
	BINSIZE = 1		; histogram widget's bin size (changeable through toolsheet)

	MAXINT = 2147483647		; maximum positive integer for 32 bits

	; set constants for module SLOT numbers
	; (I highly recommend using these variables for non-CC WRDIO instead of integer constants!)
	DISCR1 = 1
	DISCR2 = 2
	ADC1 = 6

	; set constants for module numbers
	; (for output to edf file, id purposes)
	ADC1number = 2249
	DISCR1number = 7106
	DISCR2number = 7106

	CALL INIT				; initialize variables and toolsheet
	CALL INITcc			; init, clear, load LAM mask
	CALL INITadc			; init adc's and prepare adc part of toolsheet
	CALL INITdiscr			; init discr's and prepare discr part of toolsheet

	fileHeaderDone = FALSE		; boolean for writing file head, REQUESTed from SRQ only once (also set in $MainSwitch)
	moduleReadOutInProgress = FALSE	; for use in SRQ and last module read event

	CALL ResetTimer
END

; __________________________________________

; HALT => exit point of toolsheet; disable and finalize everything
ON HALT DO
	WRDIO < "setup1"[30], 30, 9, 26 >    ;SCM301_Controller;Set CAMAC Inhibit.
	WRDIO < "setup1"[28], 28, 9, 26 >    ;SCM301_Controller;CAMAC Clear.
	IF (running) THEN
		SET "$MainSwitch" CONTROL TO "run / STOP"
		SET IncTimer TIMER TO 0 SECS		; stop timer
	END IF

	CALL DisableDiscr
	CALL DisableADC

	CALL UpdateCounters	; to update text fields with fresh data
END

; __________________________________________

; SRQ => called by KmaxNT when a LAM occurs
ON SRQ DO
	; if modules haven't finished with their read out of data, exit SRQ
	; [the last module's code for writing data should set this to variable FALSE  (e.g., in ADC_READ)]
	IF (moduleReadOutInProgress) THEN
		EXIT
	END IF

	; only write file header once per run (set to FALSE in GO and $MainSwitch; set to TRUE in WriteFileHeader)
	IF (fileHeaderDone=FALSE) THEN
		REQUEST WriteFileHeader
	END IF

	; "If the #FCode# specified is a literal value and is 0-5, the data that is read is inserted into the event data stream."
	I = 0
	WRDIO < "setup1"[30], 30, 0, I >    ;SCM301_Controller;Read LAM Pattern.
	; data written to %_DATA when no var is explicitly present

	num2 = 2**(ADC1-1)			; expected LAM pattern
	num1 = %_DATA & num2	; actual LAM pattern ANDed with expected

	; must have actual ADC LAM
	IF (num1 = num2) THEN			; if ADC LAM is present
		moduleReadOutInProgress = TRUE

		; increment gate counters here instead of a CALLed event
		gateCounter = gateCounter + 1
		gateCount5min = gateCount5min + 1
		refreshCount = refreshCount + 1

		; DO THE REAL WORK
		REQUEST WriteTime
		REQUEST ADC_READ

		; refresh displays that change often
		IF (refreshCount=refreshIncrSize) THEN
			REQUEST UpdateADCDisplays		; REQUEST because don't have ADC data yet
			; include other display refreshing stuff here

			refreshCount = 0
		END IF
	ELSE		; if not both TDC and ADC LAMs
		;	IF (moduleReadOutInProgress=FALSE) THEN
		WRDIO < "setup1"[ADC1], ADC1, 0, 9 >    ;LRS2249_ADC;Clear Module and LAM (A=0-11).
		;	END IF
	END IF
END

;===========================================

; WriteFileHeader => write format code to edf file
;	- REQUESTed by SRQ
;	- MUST be first user event (type = 6) to agree with edf2txt code
ON WriteFileHeader DO
	WRITE -5 AS PARAMETER		; header for edf file to identify edf format
	fileHeaderDone = TRUE		; this variable is set here because WriteFileheader was REQUESTed, not CALLed
END

; __________________________________________

; WaitForRoundSecond => wait to set startTime_ms to 0 ms (when the second changes value)
;	- CALLed by $MainSwitch
;	- done to make sense of parameter write of current ms in relation to start of run (the only place absolute time is written)
ON WaitForRoundSecond DO
	CALL GetCurrTime
	tempData = secondInt

	REPEAT
		CALL GetCurrTime
	UNTIL (tempData<>secondInt)

	startTime_ms = %_TICKS		; set start ms when second changes to set start time to a round second
END

;===========================================

; INIT => initialize general display portion of toolsheet and variables
;	- CALLed by GO and $CLEARSheet
ON INIT DO
	SET "$MainSwitch" CONTROL TO "run / STOP"
	running = FALSE
	SET "$StartDisplay" CONTROL TO " "		; static text field displaying start of run

	; AutoHalt variables
	SET HALT TIMER TO 0 SECS			; stop timer for HALTing
	SET endTimeSetAt TO "Not Set"
	hoursSetForEnd = -1
	secsToEnd = -1

	; refresh display stuff
	GET "$RefreshIncr" CONTROL IN %_DATA
	CALL $RefreshIncr				; $RefreshIncr needs value in %_DATA
END

; __________________________________________

; INITcc => initialize crate controller and set LAM mask
;	- CALLed by GO
ON INITcc DO
	WRDIO < "setup1"[28], 28, 8, 26 >    ;SCM301_Controller;CAMAC Initialize.
	WRDIO < "setup1"[28], 28, 9, 26 >    ;SCM301_Controller;CAMAC Clear.
	WRDIO < "setup1"[30], 30, 9, 26 >    ;SCM301_Controller;Set CAMAC Inhibit.

	; set LAM mask in CC
	; example:
	;	slot 9 = 256	2**(TDC1-1)	slot 6 = 32		2**(ADC1-1)
	;	256 + 32 = 288	; binary: 100100000 (only slot 6's and 9's LAMs are enabled)
	%_DATA = 2**(ADC1-1)

	WRDIO < "setup1"[30], 30, 0, 16 > (%_DATA)    ;SCM301_Controller;Load LAM Mask.
END

; __________________________________________

; $MainSwitch => start/stop data run by initializing variables and enabling/disabling modules
ON $MainSwitch DO
	; if stopped, then run
	IF (running=FALSE) THEN
		WRDIO < "setup1"[30], 30, 9, 24 >    ;SCM301_Controller;Remove CAMAC Inhibit.
		SET "$MainSwitch" CONTROL TO "RUN / stop"
		running = TRUE

		; display run start date & time
		CALL GetCurrTime
		SET %_TEXT TO yearInt
		ADD "." TO %_TEXT
		SET tempStr TO monthInt
		ADD tempStr TO %_TEXT
		ADD "." TO %_TEXT
		SET tempStr TO dayInt
		ADD tempStr TO %_TEXT
		ADD "   " TO %_TEXT
		SET tempStr TO %_TIME
		ADD tempStr TO %_TEXT
		SET "$StartDisplay" CONTROL TO %_TEXT

		; display gate freq for total
		CALL $TotalGateAvgSelect

		lastSecInt = -1				; variable used in IncTimer (presently just needs to be <= 0)
		moduleReadOutInProgress = FALSE		; for use in SRQ and last module read event
		fileHeaderDone = FALSE			; file header to identify our format for the edf

		CALL WaitForRoundSecond			; to be able to reset timer on the next round second (more or less)
		CALL ResetTimer				; to make everything 0 along with ms
		SET IncTimer TIMER TO 1 SECS			; start timer

		; set-up modules to accept data input
		CALL EnableDiscr
		CALL EnableADC

	ELSE		; if running, then stop
		WRDIO < "setup1"[30], 30, 9, 26 >    ;SCM301_Controller;Set CAMAC Inhibit.
		SET "$MainSwitch" CONTROL TO "run / STOP"
		running = FALSE

		CALL UpdateCounters			; to update text fields with fresh data
		SET IncTimer TIMER TO 0 SECS		; stop timer

		; set modules to stop allowing data to come in
		CALL DisableDiscr
		CALL DisableADC
	END IF
END

; __________________________________________

; ResetTimer => reinitialize counting variables and widgets
;	- CALLed by GO, $MainSwitch, and $CLEARsheet
ON ResetTimer DO
	timeCounter = 0
	gateCounter = 0
	refreshCount = 0		; event count for refreshing displays

	SET "$TIMER" CONTROL TO 0
	SET "$GATEcounter" CONTROL TO 0
	SET "$FREQ" CONTROL TO "0.0000"
	timer5min = 0
	gateCount5min = 0
END

; __________________________________________

; $SetAutoHalt => inform user when AutoHalt is set for and ask user for time (in hours) to automatically HALT the toolsheet
ON $SetAutoHalt DO
	SET %_TEXT TO ""
	IF (hoursSetForEnd>0) THEN
		SET tempStr TO "The present run is set to halt in "
		IF (secsToEnd<60) THEN
			SET %_TEXT TO secsToEnd
			ADD " seconds." TO %_TEXT
		ELSE
			IF (secsToEnd<3600) THEN
				tempReal = secsToEnd/60
				SET %_TEXT TO tempReal
				ADD " minutes." TO %_TEXT
			ELSE
				tempReal = secsToEnd/3600
				SET %_TEXT TO tempReal
				ADD " hours." TO %_TEXT
			END IF
		END IF
		ADD %_TEXT TO tempStr
	ELSE
		SET tempStr TO "The present run has no halt time set."
	END IF

	ADD "\nDo you want to set the halt time?" TO tempStr
	ALERT WITH tempStr

	IF (%_OK) THEN
		SET tempStr TO "How many hours until AutoHalt? (-1 to remove or >0.017)"
		SET %_TEXT TO ""
		PROMPT WITH tempStr

		IF (%_OK) THEN
			SET tempReal TO %_TEXT
			IF ((tempReal*60)>=1) THEN		; if valid hours (greater than 1 minute)
				hoursSetForEnd = tempReal
				SET endTimeSetAt TO %_TIME
				SET %_TEXT TO %_DATE
				ADD " " TO endTimeSetAt
				ADD %_TEXT TO endTimeSetAt
				DISPLAY "Halt Timer set to " hoursSetForEnd " hours."
				SET ClearStatusDisplay TIMER TO 10 SECS
				tempData = hoursSetForEnd*60

				; this next line is the whole point to this event!
				SET HALT TIMER TO tempData MINS

				SET UpdateAutoHalt TIMER TO 30 SECS
				secsToEnd = hoursSetForEnd*3600

			ELSE							; if less than 1 minute
				IF (tempReal>=0) THEN
					DISPLAY "Halt Timer not changed."
					SET ClearStatusDisplay TIMER TO 10 SECS
				ELSE						; if less than 0
					hoursSetForEnd = -1
					SET HALT TIMER TO 0 SECS			; stop timer for HALTing
					DISPLAY "Halt Timer stopped."
					SET ClearStatusDisplay TIMER TO 10 SECS
					secsToEnd = -1
				END IF
			END IF

		ELSE
			DISPLAY "Halt Timer not changed."
			SET ClearStatusDisplay TIMER TO 10 SECS
		END IF
	END IF
END

; __________________________________________

; $RefreshIncr => set the number of events between updating the frequently changing display (to cut I/O time)
ON $RefreshIncr DO
	refreshCount = 0

	; %_DATA will be 1..8
	IF (%_DATA=1) THEN
		refreshIncrSize = 1
	ELSE
		IF (%_DATA=2) THEN
			refreshIncrSize = 5
		ELSE
			IF (%_DATA=3) THEN
				refreshIncrSize = 10
			ELSE
				IF (%_DATA=4) THEN
					refreshIncrSize = 50
				ELSE
					IF (%_DATA=5) THEN
						refreshIncrSize = 100
					ELSE
						IF (%_DATA=6) THEN
							refreshIncrSize = 500
						ELSE
							IF (%_DATA=7) THEN
								refreshIncrSize = 1000
							ELSE
								refreshIncrSize = MAXINT
							END IF
						END IF
					END IF
				END IF
			END IF
		END IF
	END IF
END

; __________________________________________

; IncTimer => executes every second; heartbeat of DAQ
;	- posted to event queue in 1 sec from the BEGINNING of this event
ON IncTimer DO
	SET IncTimer TIMER TO 1 SECS		; do this event again in 1 second

	num2 = %_TICKS - startTime_ms		; time since run started in milliseconds
	secondInt = num2 / 1000		; time in seconds

	num1 = secondInt - lastSecInt

	IF (num1<1) THEN
		BEEP
		RECORDLN "IncTimer Warning!\t" %_TIME IN "$DISPLAY"
		RECORDLN %_DATE IN "$DISPLAY"
		RECORDLN "timer changed by " num1 " sec\n" IN "$DISPLAY"
	END IF

	lastSecInt = secondInt

	timeCounter = timeCounter + num1
	timer5min = timer5min + num1

	CALL UpdateCounters	; to update counter text fields with fresh data

	; to bypass needing a queue (array) to keep track of gates over last 5 minutes, the 5min counter is reset every 5 min
	; also: when timer5min = 0, $FREQ has already (just) been updated
	IF (MOD(timer5min,300)=0) THEN		; if 5 minute interval ending, then reset 5-minute stats (300 seconds)
		timer5min = 0
		gateCount5min = 0
	END IF
END

; __________________________________________

; UpdateCounters => refresh counter widgets
;	- CALLed by IncTimer and $MainSwitch
ON UpdateCounters DO
	GET "$TotalGateAvgSelect" CONTROL IN tempData
	IF (tempData=1) THEN			; if set to display total gate average then...
		num1 = gateCounter
		num2 = timeCounter
	ELSE				; if set to display 5-minute gate average then...
		num1 = gateCount5min
		num2 = timer5min
	END IF

	IF (num2=0) THEN
		tempReal = 0
	ELSE
		tempReal = num1 / num2
	END IF

	SET tempStr TO tempReal
	SET "$FREQ" CONTROL TO tempStr

	SET "$TIMER" CONTROL TO timeCounter
	SET "$GATEcounter" CONTROL TO gateCounter
END

; __________________________________________

; UpdateAutoHalt => update AutoHalt variable (seconds counter for informing user when HALT occurs)
ON UpdateAutoHalt DO
	IF (secsToEnd>0) THEN
		secsToEnd = secsToEnd - 30
		SET UpdateAutoHalt TIMER TO 30 SECS
	END IF
END

; __________________________________________

; $5minGateAvgSelect => change freq display to freq for 5 minutes
ON $5minGateAvgSelect DO
	SET "$5minGateAvgSelect" CONTROL TO 1
	SET "$TotalGateAvgSelect" CONTROL TO 0

	IF (timer5min = 0) THEN
		tempReal = 0
	ELSE
		tempReal = gateCount5min / timer5min
	END IF
	SET tempStr TO tempReal
	SET "$FREQ" CONTROL TO tempStr
END

; __________________________________________

; $TotalGateAvgSelect => change freq display to freq for all of run
ON $TotalGateAvgSelect DO
	SET "$5minGateAvgSelect" CONTROL TO 0
	SET "$TotalGateAvgSelect" CONTROL TO 1

	IF (timeCounter = 0) THEN
		tempReal = 0
	ELSE
		tempReal = gateCounter / timeCounter
	END IF
	SET tempStr TO tempReal
	SET "$FREQ" CONTROL TO tempStr
END

;===========================================

; __________________________________________

; WriteTime => write stuff to event data stream (file, if one is open)
;	- REQUESTed by SRQ
ON WriteTime DO
	WRITE -1 AS PARAMETER		; starts SRQ block collection in edf

	num2 = %_TICKS - startTime_ms		; time since run started, in milliseconds
	WRITE num2 AS PARAMETER

	CALL GetCurrTime
	WRITE yearInt AS PARAMETER
	WRITE monthInt AS PARAMETER
	WRITE dayInt AS PARAMETER
	WRITE hourInt AS PARAMETER
	WRITE minuteInt AS PARAMETER
	WRITE secondInt AS PARAMETER
END

; __________________________________________

; GetCurrTime => extract date & time from KmaxNT variables %_DATE & %_TIME
;	- executes in ~0.8 ms
ON GetCurrTime DO
	SET tempStr TO ""
	SET %_TEXT TO %_DATE		; store the current time as a REWRITABLE string

	MOVE WORD FROM %_TEXT TO tempStr		; remove day
	MOVE WORD FROM %_TEXT TO tempStr		; remove comma

	SET tempStr TO ""
	MOVE WORD FROM %_TEXT TO tempStr
	IF (tempStr = "January") THEN
		monthInt = 1
	ELSE
		IF (tempStr = "February") THEN
			monthInt = 2
		ELSE
			IF (tempStr = "March") THEN
				monthInt = 3
			ELSE
				IF (tempStr = "April") THEN
					monthInt = 4
				ELSE
					IF (tempStr = "May") THEN
						monthInt = 5
					ELSE
						IF (tempStr = "June") THEN
							monthInt = 6
						ELSE
							IF (tempStr = "July") THEN
								monthInt = 7
							ELSE
								IF (tempStr = "August") THEN
									monthInt = 8
								ELSE
									IF (tempStr = "September") THEN
										monthInt = 9
									ELSE
										IF (tempStr = "October") THEN
											monthInt = 10
										ELSE
											IF (tempStr = "November") THEN
												monthInt = 11
											ELSE
												IF (tempStr = "December") THEN
													monthInt = 12
												END IF
											END IF
										END IF
									END IF
								END IF
							END IF
						END IF
					END IF
				END IF
			END IF
		END IF
	END IF

	SET tempStr TO ""
	MOVE CHAR FROM %_TEXT TO tempStr		; start getting date
	IF (tempStr = "0") THEN
		SET tempStr TO ""			; to avoid being treated like an octal with SET...TO...
	END IF
	MOVE CHAR FROM %_TEXT TO tempStr		; continue getting date
	SET dayInt TO tempStr

	MOVE WORD FROM %_TEXT TO tempStr		; remove comma
	SET tempStr TO ""
	MOVE WORD FROM %_TEXT TO tempStr		; get year
	SET yearInt TO tempStr

	SET %_TEXT TO %_TIME			; store the current time as a string
	SET tempStr TO ""
	MOVE CHAR FROM %_TEXT TO tempStr		; get hours 1
	IF (tempStr = "0") THEN
		SET tempStr TO ""			; to avoid being treated like an octal with SET...TO...
	END IF
	MOVE CHAR FROM %_TEXT TO tempStr		; get hours 2
	SET hourInt TO tempStr
	MOVE CHAR FROM %_TEXT TO tempStr		; get colon

	SET tempStr TO ""
	MOVE CHAR FROM %_TEXT TO tempStr		; get minutes 1
	IF (tempStr = "0") THEN
		SET tempStr TO ""			; to avoid being treated like an octal with SET...TO...
	END IF
	MOVE CHAR FROM %_TEXT TO tempStr		; get minutes 2
	SET minuteInt TO tempStr
	MOVE CHAR FROM %_TEXT TO tempStr		; get colon

	SET tempStr TO ""
	MOVE CHAR FROM %_TEXT TO tempStr		; get seconds 1
	IF (tempStr = "0") THEN
		SET tempStr TO ""			; to avoid being treated like an octal with SET...TO...
	END IF
	MOVE CHAR FROM %_TEXT TO tempStr		; get seconds 2
	SET secondInt TO tempStr
END

; __________________________________________

; BeepAgain => used for warnings that need repeated beeps
ON BeepAgain DO
	IF (beepCount = 0) THEN
		SET BeepAgain TIMER TO 0 SECS
	ELSE
		BEEP		; uses the current Windows Default Sound (which is now ~180 ms long)
		beepCount = beepCount - 1
		SET BeepAgain TIMER TO 250 MSECS
	END IF
END

; __________________________________________

; $CLEARsheet => clear displays and modules (if not running)
ON $CLEARsheet DO
	IF (running = FALSE) THEN
		CLEAR "$DISPLAY"
		CALL ResetTimer
		CALL INIT		; clears histograms, AutoHalt
		CALL INITadc	; apparently need this to avoid problems (clear module and LAMs?)
		; want to keep discr settings, so no INITdiscr:
		;		CALL INITdiscr
		;		CALL INITtdc
	ELSE
		ALERT WITH "This will clear the display, all histograms, timers, and counters (but not AutoHalt). Continue?"
		IF (%_OK) THEN
			CLEAR "$DISPLAY"
			CALL ResetTimer
			CALL ClearHistograms
		END IF
	END IF
END

; __________________________________________

; $CLEARdisp => clear main display
ON $CLEARdisp DO
	IF (running = FALSE) THEN
		CLEAR "$DISPLAY"
	ELSE
		ALERT WITH "This will clear the display. Continue?"
		IF (%_OK) THEN
			CLEAR "$DISPLAY"
		END IF
	END IF
END

; __________________________________________

; ClearStatusDisplay => clear status bar at bottom of KmaxNT window
ON ClearStatusDisplay DO
	DISPLAY ""
END

;============================================



;***********************************************************************
;***********************************************************************
;***********************************************************************
;***********************************************************************
;***********************************************************************

;______#________#####_______#####
;_____#_#_______#____#_____#_____#
;____#___#______#_____#___#
;___#######_____#_____#___#
;__#_______#____#____#_____#_____#
;_#_________#___#####_______#####


; INITadc => init module and adc display widgets
ON INITadc DO
	WRDIO < "setup1"[ADC1], ADC1, 0, 9 >    ;LRS2249_ADC;Clear Module and LAM (A=0-11).

	FOR I = 0 TO 11
		SET widget TO "$ADC"
		SET tempStr TO I
		ADD tempStr TO widget
		SET widget CONTROL TO -1	; channel data field
	END FOR

	SET "$CurrChHist" CONTROL TO "Showing Ch 2 -->"
	showingHistCh = 2			; arbitrary channel
	CALL ClearHistograms
	updateHist = FALSE
	CALL $LogLinToggle			; for histogram vertical axis
END

; __________________________________________

; EnableADC => clear module and enable LAMs
ON EnableADC DO
	WRDIO < "setup1"[ADC1], ADC1, 0, 9 >    ;LRS2249_ADC;Clear Module and LAM (A=0-11).
	WRDIO < "setup1"[ADC1], ADC1, 0, 26 >    ;LRS2249_ADC;Enable LAM (A=0-11).
END

; __________________________________________

; DisableADC => clear module and disable LAMs
ON DisableADC DO
	WRDIO < "setup1"[ADC1], ADC1, 0, 9 >    ;LRS2249_ADC;Clear Module and LAM (A=0-11).
	WRDIO < "setup1"[ADC1], ADC1, 0, 24 >    ;LRS2249_ADC;Disable LAM (A=0-11).
END

; __________________________________________

; ADC_READ => read data from ADCs (right now, only 1 ADC)
ON ADC_READ DO
	FOR I = 0 TO 11
		WRDIO < "setup1"[ADC1], ADC1, I, 2 > (adc1Data[I])    ;LRS2249_ADC;Read Registers Clear Module and LAM (Clears on A=11 only).

		adcDataReadIn = adc1Data[I]

		; save adc1Data[I] in histogram array
		%_DATA = adcDataReadIn
		IF (%_DATA<HISTMAX) THEN
			%_DATA = (I*HISTMAX)+%_DATA	; offset to correct channel in 1-D array
			histCh[%_DATA] = histCh[%_DATA] + 1
		END IF

		; display any error (weird number of counts)
		IF (adcDataReadIn<10) THEN
			beepCount = 2
			BEEP
			SET BeepAgain TIMER TO 250 MSECS
			RECORD "\B\n> CH" I " is low: " adcDataReadIn "\n   " %_DATE "\n   " %_TIME IN "$DISPLAY"
			RECORDLN "    timer: " timeCounter " sec" IN "$DISPLAY"
		ELSE
			IF (adcDataReadIn>=HISTMAX) THEN
				BEEP
				RECORD "\B\n> CH" I " is high: " adcDataReadIn "\n   " %_DATE "\n   " %_TIME IN "$DISPLAY"
				RECORDLN "    timer: " timeCounter " sec" IN "$DISPLAY"
			END IF
		END IF

		; histogram if in range of hist bins
		IF ((adcDataReadIn<HISTMAX) && (I=showingHistCh)) THEN			; showingHistCh in $ShowChX event
			adcDataReadIn = adcDataReadIn / BINSIZE		; integer math to force into integer bin with size BINSIZE
			adcDataReadIn = adcDataReadIn * BINSIZE
			{"ADC_Counts"}[adcDataReadIn] = {"ADC_Counts"}[adcDataReadIn] + 1
		END IF
	END FOR

	REQUEST WriteADC1header
	REQUEST WriteADC1data
END

; __________________________________________

; WriteADC1header => write module header to event data stream
;	- REQUESTed by ADC_READ
ON WriteADC1header DO
	WRITE ADC1number AS PARAMETER		; module number
	WRITE ADC1 AS PARAMETER			; slot number
END

; __________________________________________

; WriteADC1data => write adc1 data to event data stream
;	- REQUESTed by ADC_READ
ON WriteADC1data(12) DO
	FOR I = 0 TO 11
		WRITE adc1Data[I] AS PARAMETER
	END FOR

	moduleReadOutInProgress = FALSE
END

; __________________________________________

; $CLEARhist => safety buffer for calling a clear of adc1 histogram widget
ON $CLEARhist DO
	IF (running = FALSE) THEN
		CALL ClearHistograms
	ELSE
		ALERT WITH "This will clear the histograms. Continue?"
		IF (%_OK) THEN
			CALL ClearHistograms
		END IF
	END IF
END

; __________________________________________

; ClearHistograms => clear adc1 histogram widget & arrays
ON ClearHistograms DO
	CLEAR "ADC_Counts"			; clear histogram widget
	num1 = HISTMAX - 1
	FOR J = 0 TO 11
		FOR I = 0 TO num1			; time-consuming loops!
			%_DATA = (HISTMAX * J) + I
			histCh[%_DATA] = 0
		END FOR
	END FOR
END

; __________________________________________

;$SetBinSize => ask user to change adc1 histograms bin size
ON $SetBinSize DO
	SET %_TEXT TO BINSIZE			; default is 1
	PROMPT WITH "Enter new histogram bin size:"
	IF (%_OK) THEN
		SET tempData TO  %_TEXT
		IF ((tempData>0)&&(tempData<=HISTMAX)) THEN
			SET BINSIZE TO tempData
		END IF
	END IF
	DISPLAY "Bin Size: " BINSIZE
	SET ClearStatusDisplay TIMER TO 10 SECS
	REQUEST UpdateHist
END

; __________________________________________

; $LogLinToggle => switch between log and linear y-axis for adc1 histogram widget
ON $LogLinToggle DO
	GET "$LogLinToggle" CONTROL IN %_DATA
	IF (%_DATA = 0) THEN					; if set to LINEAR then...
		SET "ADC_Counts" VALUE_SCALE TO "LINEAR"
	ELSE							; if set to log then...
		SET "ADC_Counts" VALUE_SCALE TO "LOG"
	END IF
	UPDATE "ADC_Counts"
END

; __________________________________________

; $HistZoomIn => zoom adc1 histogram widget to what's between widget cursors
ON $HistZoomIn DO
	EXPAND "ADC_Counts"
END

; __________________________________________

; $HistZoomOut => display complete range of adc1 histogram widget
ON $HistZoomOut DO
	%_DATA = HISTMAX-1
	SET "ADC_Counts" CURSORS TO 0, %_DATA
	EXPAND "ADC_Counts"
END

; __________________________________________

; UpdateHist => load hist array into adc1 hist widget
;	- REQUESTed from $SetBinSize or from $ShowChX
;	- showingHistCh is present channel that is showing (if from $SetBinSize) or new channel to show (if from $ShowChX)
ON UpdateHist DO
	CLEAR "ADC_Counts"
	num1 = (HISTMAX/BINSIZE) - 1

	FOR I = 0 TO num1				; 0 to number of bins used in hist
		bin = I * BINSIZE			; hist bin actually used
		{"ADC_Counts"}[bin] = 0
		num2 = BINSIZE - 1 + bin		; last array bin counted in hist bin of BINSIZE
		FOR J = bin TO num2
			%_DATA = HISTMAX*showingHistCh + J
			{"ADC_Counts"}[bin] = {"ADC_Counts"}[bin] + histCh[%_DATA]
		END FOR
	END FOR
	UPDATE "ADC_Counts"

	; update display text for what adc channel is now being shown
	SET %_TEXT TO "Showing Ch "
	SET tempStr TO showingHistCh
	ADD tempStr TO %_TEXT
	ADD " -->" TO %_TEXT
	SET "$CurrChHist" CONTROL TO %_TEXT
END

; __________________________________________

; $ShowChX => set variable and request a hist update
;	- X = 0..11
;	- CALLed by toolsheet buttons only

ON $ShowCh0 DO
	showingHistCh = 0
	REQUEST UpdateHist	; REQUEST or CALL? (either)
END
;---------------------------------------------------------
ON $ShowCh1 DO
	showingHistCh = 1
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh2 DO
	showingHistCh = 2
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh3 DO
	showingHistCh = 3
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh4 DO
	showingHistCh = 4
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh5 DO
	showingHistCh = 5
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh6 DO
	showingHistCh = 6
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh7 DO
	showingHistCh = 7
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh8 DO
	showingHistCh = 8
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh9 DO
	showingHistCh = 9
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh10 DO
	showingHistCh = 10
	REQUEST UpdateHist
END
;---------------------------------------------------------
ON $ShowCh11 DO
	showingHistCh = 11
	REQUEST UpdateHist
END

; __________________________________________

; UpdateADCDisplays => refresh text fields and histograms for ADCs
;	- REQUESTed by SRQ
ON UpdateADCDisplays DO
	FOR I = 0 TO 11
		SET widget TO "$ADC"
		SET tempStr TO I
		ADD tempStr TO widget		; widget = "$ADCx"
		SET widget CONTROL TO adc1Data[I]	; display channel's register data in text field
	END FOR
	UPDATE "ADC_Counts"			; update histogram
END
; __________________________________________




;***********************************************************************
;***********************************************************************
;***********************************************************************
;***********************************************************************
;***********************************************************************

;_#####_____#####____####_____####____#####
;_#____#______#_____#________#____#___#____#
;_#_____#_____#______####___#_________#____#
;_#_____#_____#__________#__#_________#####
;_#____#______#_____#____#___#____#___#___#
;_#####_____#####____####_____####____#____#


; INITdiscr => init module and its display toolsheet widgets
;	- CALLed by GO
ON INITdiscr DO
	SET "$LocRem1" CONTROL TO 0		; set to LOCAL
	SET "$LocRem2" CONTROL TO 0		; set to LOCAL
	%_DATA = 0
	CALL $LocRem1		; $LocRem1 needs value in %_DATA
	%_DATA = 0
	CALL $LocRem2		; $LocRem2 needs value in %_DATA

	; set default thresholds
	CALL $Discr1_10mV
	CALL $Discr2_3fold		; default is 3-fold coincidence

	; allow all channels to accept data input
	WRDIO < "setup1"[DISCR1], DISCR1, 0, 16 > ($FFFF)    ;PS7106_Discr;Write Mask register.
	WRDIO < "setup1"[DISCR2], DISCR2, 0, 16 > ($FFFF)    ;PS7106_Discr;Write Mask register.
END

; __________________________________________

; EnableDiscr => allow discr modules to accept data input
;	- CALLed by $MainSwitch
ON EnableDiscr DO
	SET "$LocRem1" CONTROL TO 1		; set to REMOTE
	SET "$LocRem2" CONTROL TO 1		; set to REMOTE
	%_DATA = 1			; needed because this is value of slider widget when toolsheet calls $LocRem1
	CALL $LocRem1
	%_DATA = 1
	CALL $LocRem2
END

; __________________________________________

; DisableDiscr => disallow data input into discr modules
ON DisableDiscr DO
	SET "$LocRem1" CONTROL TO 0		; set to LOCAL
	SET "$LocRem2" CONTROL TO 0		; set to LOCAL
	%_DATA = 0
	CALL $LocRem1
	%_DATA = 0
	CALL $LocRem2
END

; __________________________________________

; $LocRem1 => local / remote switch for discr1
ON $LocRem1 DO
	; value of widget automatically passed in %_DATA from toolsheet
	IF (%_DATA = 1) THEN			; REMOTE
		WRDIO < "setup1"[DISCR1], DISCR1, 0, 26 >    ;PS7106_Discr ; Set internal mode bit (go to Remote).
	ELSE					; LOCAL
		WRDIO < "setup1"[DISCR1], DISCR1, 0, 24 >    ;PS7106_Discr ; Clear internal mode bit (go to LOCAL).
	END IF

	CALL ReadThresh1
END

; __________________________________________

; $LocRem2 => local / remote switch for discr2
ON $LocRem2 DO
	; value of widget automatically passed in %_DATA from toolsheet
	IF (%_DATA = 1) THEN			; REMOTE
		WRDIO < "setup1"[DISCR2], DISCR2, 0, 26 >    ;PS7106_Discr ; Set internal mode bit (go to Remote).
	ELSE					; LOCAL
		WRDIO < "setup1"[DISCR2], DISCR2, 0, 24 >    ;PS7106_Discr ; Clear internal mode bit (go to LOCAL).
	END IF

	CALL ReadThresh2
END

; __________________________________________

; ReadThresh1 => display thresholds for discr1 on toolsheet
ON ReadThresh1 DO
	; first, display what threshold would be if Discr1 were in REMOTE mode
	I = 1
	WRDIO < "setup1"[DISCR1], DISCR1, 0, I >    ;PS7106_Discr;Read Threshold DAC.
	tempReal = (%_DATA & (2**10-1))
	tempReal = tempReal/(-1000) - 0.01		; convert to voltage; -0.01 is largest (least neg.) voltage
	tempReal = tempReal*1000		; to display in mV
	SET num2 TO tempReal			; integer-ify the value
	SET "$Discr1ThreshSetFor" CONTROL TO num2

	; figure out what mode Discr1 is in
	I = 1
	WRDIO < "setup1"[DISCR1], DISCR1, 1, I >    ;PS7106_Discr;Read Threshold Level.
	num1 = (%_DATA & (2**15))>>15		; remote or local mode

	; treat each mode differently because the first way is the only way to read the thresh in LOCAL mode
	; and is off by ~10 mV (hence the 2nd way when in REMOTE)
	IF (num1 = 1) THEN	; LOCAL mode
		FOR I = 1 TO 10
			; this loop is silly but is used because changes aren't immediately readable and it is not time-dependent:
			; that is, one can't wait before the WRDIO for the register to "settle"
			WRDIO < "setup1"[DISCR1], DISCR1, 1, 1 >    ;PS7106_Discr;Read Threshold Level.
		END FOR

		; R1-R10: ADC reading,-1 mV/bit conversion
		tempReal = (%_DATA & (2**10-1))
		tempReal = tempReal/(-1000) - 0.01		; convert to voltage; -0.01 is largest (least neg.) voltage

		tempReal = tempReal*1000		; to display in mV
		SET num1 TO tempReal			; integer-ify the value
	ELSE					; REMOTE mode
		; already read in threshold for REMOTE mode
		num1 = num2
	END IF

	SET "$Discr1Thresh" CONTROL TO num1
END

; __________________________________________

; ReadThresh2 => display thresholds for discr2 on toolsheet
ON ReadThresh2 DO
	; first, display what threshold would be if Discr2 were in REMOTE mode
	I = 1
	WRDIO < "setup1"[DISCR2], DISCR2, 0, I >    ;PS7106_Discr;Read Threshold DAC.
	tempReal = (%_DATA & (2**10-1))
	tempReal = tempReal/(-1000) - 0.01		; convert to voltage; -0.01 is largest (least neg.) voltage
	tempReal = tempReal*1000		; to display in mV
	SET num2 TO tempReal			; integer-ify the value
	SET "$Discr2ThreshSetFor" CONTROL TO num2

	; figure out what mode Discr2 is in
	I = 1
	WRDIO < "setup1"[DISCR2], DISCR2, 1, I >    ;PS7106_Discr;Read Threshold Level.
	num1 = (%_DATA & (2**15))>>15		; remote or local mode

	; treat each mode differently because the first way is the only way to read the thresh in LOCAL mode
	; and is off by ~10 mV (hence the 2nd way when in REMOTE)
	IF (num1 = 1) THEN	; LOCAL mode
		FOR I = 1 TO 10
			; this loop is silly but is used because changes aren't immediately readable and it is not time-dependent:
			; that is, one can't wait before the WRDIO for the register to "settle"
			WRDIO < "setup1"[DISCR2], DISCR2, 1, 1 >    ;PS7106_Discr;Read Threshold Level.
		END FOR

		; R1-R10: ADC reading,-1 mV/bit conversion
		tempReal = (%_DATA & (2**10-1))
		tempReal = tempReal/(-1000) - 0.01		; convert to voltage; -0.01 is largest (least neg.) voltage

		tempReal = tempReal*1000		; to display in mV
		SET num1 TO tempReal			; integer-ify the value
	ELSE		; REMOTE mode
		; already read in threshold for REMOTE mode
		num1 = num2
	END IF

	SET "$Discr2Thresh" CONTROL TO num1
END

; __________________________________________

; $Discr1_CustomThresh => get discr1 threshold from user
ON $Discr1_CustomThresh DO
	SET %_TEXT TO ""
	SET tempStr TO "Enter new threshold for slot"
	SET tempStr2 TO DISCR1
	ADD tempStr2 TO tempStr
	ADD " in negative mV (1034 > x > 9):" TO tempStr
	PROMPT WITH tempStr

	SET TDACin TO %_TEXT
	IF (%_OK) THEN
		TDACout = (TDACin - 10)			; convert voltage to data for WRDIO
		IF ((TDACout > -1) && (TDACout < 1024)) THEN
			WRDIO < "setup1"[DISCR1], DISCR1, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
			CALL ReadThresh1			; to update threshold display

			SET "$Discr1_10mV" CONTROL TO 0
			SET "$Discr1_15mV" CONTROL TO 0
			SET "$Discr1_20mV" CONTROL TO 0
			SET "$Discr1_30mV" CONTROL TO 0
		ELSE
			DISPLAY "Threshold not changed."
			SET ClearStatusDisplay TIMER TO 10 SECS
		END IF
	END IF
END

; __________________________________________

; $Discr1_10mV => preset for discr1 threshold
ON $Discr1_10mV DO
	SET "$Discr1_10mV" CONTROL TO 1
	SET "$Discr1_15mV" CONTROL TO 0
	SET "$Discr1_20mV" CONTROL TO 0
	SET "$Discr1_30mV" CONTROL TO 0

	TDACin = -0.01
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR1], DISCR1, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh1				; to update threshold display
END

; __________________________________________

; $Discr1_15mV => preset for discr1 threshold
ON $Discr1_15mV DO
	SET "$Discr1_10mV" CONTROL TO 0
	SET "$Discr1_15mV" CONTROL TO 1
	SET "$Discr1_20mV" CONTROL TO 0
	SET "$Discr1_30mV" CONTROL TO 0

	TDACin = -0.015
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR1], DISCR1, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh1				; to update threshold display
END
; __________________________________________

; $Discr1_20mV => preset for discr1 threshold
ON $Discr1_20mV DO
	SET "$Discr1_10mV" CONTROL TO 0
	SET "$Discr1_15mV" CONTROL TO 0
	SET "$Discr1_20mV" CONTROL TO 1
	SET "$Discr1_30mV" CONTROL TO 0

	TDACin = -0.02
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR1], DISCR1, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh1				; to update threshold display
END
; __________________________________________

; $Discr1_30mV => preset for discr1 threshold
ON $Discr1_30mV DO
	SET "$Discr1_10mV" CONTROL TO 0
	SET "$Discr1_15mV" CONTROL TO 0
	SET "$Discr1_20mV" CONTROL TO 0
	SET "$Discr1_30mV" CONTROL TO 1

	TDACin = -0.03
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR1], DISCR1, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh1				; to update threshold display
END
; __________________________________________

; $Discr2_CustomThresh => get discr2 threshold from user
ON $Discr2_CustomThresh DO
	SET %_TEXT TO ""
	SET tempStr TO "Enter new threshold for slot"
	SET tempStr2 TO DISCR2
	ADD tempStr2 TO tempStr
	ADD " in negative mV (1034 > x > 9):" TO tempStr

	PROMPT WITH tempStr

	SET TDACin TO %_TEXT
	IF (%_OK) THEN
		TDACout = (TDACin - 10)		; convert voltage to data for WRDIO
		IF ((TDACout > -1) && (TDACout < 1024)) THEN
			WRDIO < "setup1"[DISCR2], DISCR2, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
			CALL ReadThresh2		; to update threshold display

			SET "$Discr2_1fold" CONTROL TO 0
			SET "$Discr2_2fold" CONTROL TO 0
			SET "$Discr2_3fold" CONTROL TO 0
			SET "$Discr2_4fold" CONTROL TO 0
		ELSE
			DISPLAY "Threshold not changed."
			SET ClearStatusDisplay TIMER TO 10 SECS
		END IF
	END IF
END

; __________________________________________

; $Discr2_1fold => preset for discr2 threshold
ON $Discr2_1fold DO
	SET "$Discr2_1fold" CONTROL TO 1
	SET "$Discr2_2fold" CONTROL TO 0
	SET "$Discr2_3fold" CONTROL TO 0
	SET "$Discr2_4fold" CONTROL TO 0

	TDACin = -0.01
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR2], DISCR2, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh2				; to update threshold display
END

; __________________________________________

; $Discr2_2fold => preset for discr2 threshold
ON $Discr2_2fold DO
	SET "$Discr2_1fold" CONTROL TO 0
	SET "$Discr2_2fold" CONTROL TO 1
	SET "$Discr2_3fold" CONTROL TO 0
	SET "$Discr2_4fold" CONTROL TO 0

	TDACin = -0.07
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR2], DISCR2, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh2				; to update threshold display
END

; __________________________________________

; $Discr2_3fold => preset for discr2 threshold
ON $Discr2_3fold DO
	SET "$Discr2_1fold" CONTROL TO 0
	SET "$Discr2_2fold" CONTROL TO 0
	SET "$Discr2_3fold" CONTROL TO 1
	SET "$Discr2_4fold" CONTROL TO 0

	TDACin = -0.12
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR2], DISCR2, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh2				; to update threshold display
END

; __________________________________________

; $Discr2_4fold => preset for discr2 threshold
ON $Discr2_4fold DO
	SET "$Discr2_1fold" CONTROL TO 0
	SET "$Discr2_2fold" CONTROL TO 0
	SET "$Discr2_3fold" CONTROL TO 0
	SET "$Discr2_4fold" CONTROL TO 1

	TDACin = -0.17
	TDACout = (TDACin + 0.01) * (-1000)		; convert voltage to data for WRDIO

	WRDIO < "setup1"[DISCR2], DISCR2, 0, 17 > (TDACout)    ;PS7106_Discr;Write Threshold DAC.
	CALL ReadThresh2				; to update threshold display
END



;===========================================