PROC lena_powerup
;
;Brief Description: LENA Power-up procedure
;
;
GOTO BEGIN
;
;Created by:   David G. Simpson        Date:  January 19, 2001
;
;VERSION:  @(#)lena_powerup.prc	1.0 01/01/19
;
;History:
;   <name>             <date>      <Description of change>
;
;SIGN OFF:
;
;     WAYNE GUSTAFSON   ________________________________
;
;     MIKE JOHNSON      ________________________________
;
;
;Duration:  2 hours
;
BEGIN:

WRITE "BEGINNING LENA POWER-UP SEQUENCE"
WRITE ""
WRITE "NOTE:  This procedure should only be run AFTER LENA is tuned on " | ;;
WRITE "(LENA_ON), and it is verified that Program Mode=RAM," | ;;
WRITE "Autonomous Test=Dis"
WAIT

STAGE1:

; Disable HVPS Safing
;
/L_HVP_GBL_USAFE RT
WAIT 1

; Set voltage thresholds
;
/L_SYS_HVP_VTHR  MCPSTRT=x'AA' MCPSTP=x'AA' COLL_P=x'74';;
		COLL_N=x'74' OPTICS=x'51' RT
WAIT 1

; Command high voltages to zero level
/L_HVP_MSTP_CMD V=x'0' RT
WAIT 1
/L_HVP_MSTR_CMD V=x'0' RT

; Set overcount threshold
;
/L_SYS_OVCT_THR P1=x'09' RT
WRITE "Wait for HVPS Safe=Dis; " | ;;
WRITE "VTHR= 2, 2, 4, 4, 6.99 kV;" | ;;
WRITE "Overcount Threshold=9"
WAIT

STAGE2:

; Set start & stop MCP commanded voltages
;
/L_HVP_MSTR_EN RT
WAIT 1
/L_HVP_MSTP_EN RT
WAIT 1
/L_HVP_MSTR_CMD V=x'40' RT
WAIT 1
/L_HVP_MSTP_CMD V=x'40' RT
WRITE "Wait for start & stop MCP cmd voltages=1.2 kV"
WAIT

STAGE3:

; Increase start & stop MCP commanded voltages & thresholds
;
/L_HVP_MSTR_CMD V=x'80' RT
WAIT 1
/L_HVP_MSTP_CMD V=x'80' RT
WAIT 1
/L_SYS_HVP_VTHR  MCPSTRT=x'D5' MCPSTP=x'D5' COLL_P=x'91';;
		COLL_N=x'91' OPTICS=x'73' RT
WRITE "Wait for VTHR=2.5, 2.5, 5, 5, 9.92 kV; start/stop=1.8 kV"
WAIT

STAGE4:

; Increase start & stop MCP commanded voltages
;
/L_HVP_MSTR_CMD V=x'A0' RT
WAIT 1
/L_HVP_MSTP_CMD V=x'90' RT
WRITE "Wait for cmd start=2.1 kV; cmd stop=1.95 kV"
WAIT

STAGE5:
;enable optics supply
/L_HVP_OPT_EN RT 
WRITE "Wait for cmd optics supply enabled confirmation"
wait
STAGE6:

; Increase optics voltage to 4.51 kV
;
/L_HVP_OPT_CMD V=x'20' RT
WRITE "Wait for optics voltage = 4.51 kV"
WAIT

STAGE7:

; Increase optics voltage to 7.02 kV
;
/L_HVP_OPT_CMD V=x'40' RT
WRITE "Wait for optics voltage = 7.02 kV"
WAIT

STAGE8:

; Increase optics voltage to 8.27 kV
;
/L_HVP_OPT_CMD V=x'50' RT
WRITE "Wait for optics voltage = 8.27 kV"
WAIT

STAGE9:

; Increase optics voltage to 9.53 kV; threshold to 13 kV
;
/L_HVP_OPT_CMD V=x'60' RT
WAIT 1
/L_SYS_HVP_VTHR  MCPSTRT=x'D5' MCPSTP=x'D5' COLL_P=x'91';;
		COLL_N=x'91' OPTICS=x'97' RT
WRITE "Wait for optics voltage=9.53 kV; optics thresh=13 kV"
WAIT

STAGE10:

; Increase optics voltage to 10.8 kV
;
/L_HVP_OPT_CMD V=x'70' RT
WRITE "Wait for optics voltage = 10.8 kV"
WAIT

STAGE11:

; Increase optics voltage to 11.4 kV
;
/L_HVP_OPT_CMD V=x'78' RT
WRITE "Wait for optics voltage = 11.4 kV"
WAIT

STAGE12:

; Enable negative collimator
;
/L_HVP_COLN_EN RT
WAIT 1
/L_SYS_STAT_SAVE RT
WAIT 1

; Define region for ROI segment 0
;
/L_ROI_CNFGPKG0 ROIDEF=[x'3F',x'8',x'0B',x'2',x'0',x'2C'] RT
WAIT 1

; Enable ROI segment 0
/L_SYS_ROI_SEL ROISEG=x'01' RT
WAIT 1

; Autonomous state restore enable
;
/L_SYS_RSTR_EN RT
WRITE "Wait for Coll- = Ena"
WRITE "LENA POWER-UP SEQUENCE COMPLETE"

ENDPROC