;File: ngims_postlaunch_baselinelow.txt

;			Test ID Number __________________
;			Test Date _________________Time ______________
;			Test Conditions Hot__  Cold__ Input Voltage______V
;			This script      345  ____
;			1553 Bus selected   A__  B__ 
;			Alt Boot? Y___ N___
;			Flat Table ID number  ___________(#304) BaselineFT-28
;			Normal Config Table ID      __________(#61  Cfg 69)
;			High Corr Config Table ID __________(#56) 
;			Low  Corr Config Table ID  __________(#55) 
;See end of test for complete Revision Record.
;Rev 63 8-Dec-01	Add Adaptive to Mode 2, 5, 6 RR sequences.
;			Add FTC command at end to reset Alt-Boot counter to 15
;Rev 64 9-Dec-01 	Minor timing and otherwise.  Deleivered to S/C .prc file.
;Rev 65 12-Dec-01	Add "$" to NOP 5420  did not print Mode 2
;Rev 66 Mar 1 2002	Reconcile differences between ssf and txt.
;       Apr 11, 2002	Remove Valve operations after safe arm connector
;			removed.
;                       This file will be run from now prior to breakoff.
;                       Added TM On command after dumps
;			Added RAM dump
;       Apr 25, 2002	Change EM2 setting to 205
;			Added EM1 at low setting Noise Test (NOP 415/416)
;	Apr 28, 2002	Change all filament tests to high emission
;	Apr 29, 2002	ER: Fixed some comments, no name change, 
;			Change Lens 6 (DAC 25) in Elec Shrt Test to 3000
;			still BaselineTest67_NoValves_hiEmis.txt
;Rev 68	May 3, 2002	Put back Valves - new name BaselineTest68.txt
;ngims_postlaunch_baselinelow July 8, 2002 Start with BaselineTest68
;			low emission, no valves
;			removed low setting Noise Test (NOP 415/416)
;Note this procedure assumes that the following is accomplished before this test;
;	1-  Correct Flat Table & Config Table (above) are loaded into EEPROM____.
;	2- Imon strip chart (minimum) is displayed by GSE____.
;	3- S/C valve enable ON ____(Not required for Functional).

;Set new save file for SC Sim so that MET starts at 0!   ___
;Verify Lab PS voltage _______V
;Verify Lab PS Current is set to 2.45A____
;Before running this test;
;			negse program up and running
;			any new required tables imported including this script
;			conn
;			switch power on  PS Current  _______(.52 A ±.01 at 33.5V)
;			start  (SC-SIM)  Verify NPT on NEGSE
;			run nnn  Start this procedure
;			Verify Non Packet TM
$tcrate 1000		;Set comnd rate at 1/sec.   Comment out for STOL convert 
$WAIT 2
$sim bus A	;	Select 1553 bus for this test.  (Change in other tests).
$WAIT 2
$Show RW 0 0	;Click on Science TM button  ­ to confirm FSW Version Number
$TM ON
$WAIT 10
$NOP 1 100		;Start Limit Check for turnon condition
$WAIT 30		;Operator verify AMUX values - as possible.
			;Read&Rec thermistor pressure  ____________(>3.2V at 25C)
			;Read&Rec Kulite pressure  ____________(.47 B)
			;Operator print AMUX _____
			;Read Science TM (3x48) for Software Version Code
			;PROM boot = 3600 _____    EEPROM = 3707 _______
;Reference AMUX with NO ANALYZER - use for leakage reference.
;
;Reference AMUX WITH ANALYZER - use for "standard" reference.
;

$NOP 1 102		;End turnon limit check
$show DU 500 585	;Show Dump status window
$WAIT 5		;Wait for NOP
$dump e0 0xfffd 1	;Confirm Dump value of 0x00E____.  
$wait 20
$ftc 54 0xfffd 0x41 1 0x0f	;update alt boot counter to 15
$wait 20			;Alt Boot counter will now show 0x00F in PROM dump.


;**********************Dump Both EEPROM Memories  **********************
$TM OFF
$WAIT 5
$STANDBY ON		;Standby for Dump
$Dump e0 0 32768 		;Dump EEPROM 0  from 0 for 32768 words
$WAIT 85			;Waiting for dump
$Dump e0 32768 32768 	;Dump EEPROM 0  Verify NO errors ____
$Wait 85			;Read & record value of Alt Boot Counter  _________(15)
$Dump e1 0 32768		;Dump EEPROM 1 Change display to Dump 1
$Wait 85			;Waiting for dump
$Dump e1 32768 32768	;2nd half EEPROM 1   Verify NO errors ____
$Wait 85			;Stop test if any errors.  (Other than Alt-Boot counter)
$dump r 0 32768		;dump ram from 0 - 32767
$wait 85
$dump r 32768 32768	;2nd half OF RAM   Verify NO errors ____
$Wait 85			;

$TM On		;added 4/11/02
;Set Initial Conditions  for entire test  *********************************
$Hide DU
$Hide RW
$Wait 5
$Hidestrip m16			;Close existing RF AGC Monitor
$Strip m16 e -0.5 4.5 500 0 500 200;RF AGC monitor  (upper right)
$DCON0 10 0			;Deflector 1 off  -no longer used in analyzer
$DCON0 11 0			;Deflector 2 off  -no longer used in analyzer
$Wait 10
$LoadMT 9		;PROM equal AMUX Table with alternate Imons
$WAIT 10		;Should have been loaded as default
$tableupdate	;Load RAM with EEPROM values (just verified in dump)
$Wait 2
$FLast 2580		;0 volts DACs
$FFirst 2566	;All DAC output voltages at 0 (except OS EFB1/2)
$Wait 2
$DAC 8 0		;EM1 OFF
$DAC 9 0		;EM2 OFF
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$Wait 5
$NOP 1 105		;End of Setup 
$Wait 5

;******************  Valve Operation  ************************
;$strip m69 e 0 5 902 233 200 200  	;Valve Plus monitor
;$strip m70 e -5 0 902 433 200 200  	;Valve Minus monitor
;$strip m71 e 0 5.5 902 633 200 200 	 ;Valve Switch monitor
;Verify valve safe plug with 2.7 ohm resistor connected _____
;Operator verify S/C Valve enable ON.  __________
;This sequence sends pulses to V1, but power goes to resistor in safe connector.
;Valve 2 is not normally checked.

;CLOSE Valve 1 (Rupture)
;$DCON1 0 1	;	Valve 1 Plus power on (close-Rupture!)
;$DCON1 0 0	;	Valve 1 Plus power off
;$DCON1 0 0	;	Valve 1 Plus power off Send 2 times
;$NOP 1 108		;Verify down (-) pulse in plus valve voltage ___
;$WAIT 10		;
;$NOP 1 110		;Verify Valve Switch Mon 2.53V,  No change ____
;$WAIT 5		;Wait for NOP

;OPEN Valve 1 (Rupture)
;$DCON1 1 1		;Valve 1 minus power on (open)
;$DCON1 1 0		;Valve 1 minus power off
;$DCON1 1 0		;Send 2 times 
;$NOP 1 112		;Verify up (+) pulse in minus valve voltage ___
;$WAIT 10		;Switch closed for valve open (flight position).
;$NOP 1 114		;Verify Valve Switch Mon  2.53V,  No change ____
;$WAIT 5		;Note; 3.0V is Rupture!  -  2.5V is both OPEN (normal)

;Close Valve 2
;This test will only be run a few times to protect valve bellows life.
;$DCON1 2 1	;Valve 2 Plus power on (close)
;$DCON1 2 0	;Valve 2 Plus power off
;$DCON1 2 0	;Send 2 times
;$NOP 1 120		;Verify down (-) pulse in plus valve voltage ___
;$WAIT 10
;$NOP 1 122		;Verify Valve Switch Monitor up,  _____(3.8V)
;$WAIT 10		;Wait for NOP

;OPEN Valve 2
;$DCON1 3 1		;Valve 2 Minus power on (Open)
;$DCON1 3 0		;Valve 2 minus power off
;$DCON1 3 0		;Send 2 times
;$NOP 1 124		;Verify up (+) pulse in minus valve voltage ___
;$WAIT 10		;Verify Valve Switch Mon _______(2.53V)
;$NOP 1 126
;$WAIT 10		;Wait for NOP

;Remove 3 strip charts from display
$Hidestrip m69
$Hidestrip m70
$Hidestrip m71
;This completes valve tests.  Valves are left OPEN.
;To analyzer; plot Imon, V+, V-, Vsw, from NOP 200 thru 240

;********************* Electrode short test ********************
;This test takes approximately 10 minutes using 15 sec averages.
;Set all HV DACs to 0 volts  and QB, OL1, OL2.
$Hidestrip m81
$Wait 2
$strip m81 e .5 .6 0 0 500 200	;Imon hi resolution - set to .6A full scale

$DAC 14 2048	;Ion Deflector 1/2
$DACOR 14 ON
$DAC 15 2048	;QL 1  Watch Science HK window for DACOR bit status
$DACOR 15 ON
$DAC 16 2048	;QL 2
$DACOR 16 ON
$DAC 17 2048	;QL 3
$DACOR 17 ON
$DAC 18 2048	;QL 4
$DACOR 18 ON
$DAC 19 2048	;Faraday Cup  (27-Oct-01)
$DACOR 19 ON
$DAC 20 2048	;Einzel Lens
$DACOR 20 ON
$DAC 21 2048	;Top Plate Lens
$DACOR 21 ON
$DAC 22 2048	;Ion Deflector 3/4
$DACOR 22 ON
$DAC 23 2048	;OL 3
$DACOR 23 ON
$DAC 24 2048	;OL 4
$DACOR 24 ON
$DAC 25 2048	;Lens 6
$DACOR 25 ON
$DAC 26 2048	;Lens 4 A/B
$DACOR 26 ON
$DAC 27 2048	;Lens 5 A/B
$DACOR 27 ON
$DAC 28 2048	;B S Lens
$DACOR 28 ON
$DAC 29 2048	;Lens 2
$DACOR 29 ON
$DAC1 0 0		;DAC1 = RFDC = 0V  and NOT Ion_Mode  DAC1 special case
$DACOR 1 ON
$DAC2 8191 M	;DAC2 = QB = 8191= 0V  0=full scale  DAC2 special case
$DACOR 2 ON	;L = Low frequency,  M = Mid frequency, H = High freq
$DAC 3 32768	;DAC 3 = RFAC = 0 volts   ~7000 max output
$DACOR 3 ON
$DAC 4 233		;DAC 4 = EFB1 = 233 = -63V source = +190V target & Ion Mode
$DACOR 4 ON	;These are the only non-zero values in INITMODE.
$DAC 5 229		;DAC 5 = EFB2 = 229 = -62V source = +189V target & Ion Mode
$DACOR 5 ON	;Normal = -62/-63 V   Target and Ion Mode = +190 V
$DAC 6 128		;OL1 = 0V
$DACOR 6 ON
$DAC 7 128		;OL2 = 0 V
$DACOR 7 ON
$DAC 8 0		;EM1 = 0  Volts  (255 full scale=3272V = 12.8V/bit)
$DACOR 8 ON
$DAC 9 0		;EM2 = 0  Volts  (255 full scale=3226V = 12.65V/bit)
$DACOR 9 ON	;DAC 10 & 11 are not used 4 bit DACs
$DAC 12 4		;Set Threshold 1 at 4 (Normal)
$DACOR 12 ON	
$DAC 13 4		;Set Threshold 2 at 4 (Normal)
$DACOR 13 ON	;Leave on for EM Tests
$NOP 1 130		;130 Start reference current for IDL check
$WAIT 15	
$NOP 1 132		;End reference current for IDL check
$WAIT 3		;Wait for NOP

$DAC 14 4095	;Full Scale Minus   ­  Ion Def 1/2
$NOP 1 140		;140 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 142		;end Limit Check out short test
$WAIT 3		;Wait for NOP   Limitcheck needs a clean time for stable values
$DAC 14 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 15 4095	;Full Scale Minus  -  QL 1
$NOP 1 150		;150 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 152		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 15 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 16 4095	;Full Scale Minus  -  QL 2
$NOP 1 160		;160 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 162		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 16 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 17 4095	;Full Scale Minus  -  QL 3
$NOP 1 170		;170 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 172		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 17 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 18 4095	;Full Scale Minus -  QL 4
$NOP 1 180		;180 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 182		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 18 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 19 4095	;Full Scale Minus -  Faraday Cup (27-Oct-01)
$NOP 1 190		;190 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 192		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 19 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 20 4095	;Full Scale Minus -  Einzel Lens
$NOP 1 200		;200 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 205		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 20 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 21 4095	;Full Scale Minus -  Top Plate
$NOP 1 210		;210 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 212		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 21 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 22 4095	;Ion Def 3/4
$NOP 1 220		;220 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 222		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 22 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 23 4095	;OL 3
$NOP 1 230 		;230 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 232		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 23 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 24 4095	;Full Scale Minus  -  OL 4
$NOP 1 240		;240 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 242		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 24 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 25 3000	;Full Scale Minus  -  Lens 6
$NOP 1 250		;250 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 252		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 25 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 26 4095	;Full Scale Minus  -  Lens 4 A/B
$NOP 1 260		;260 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 262		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 26 2048	;Set back to 0 V out 
$WAIT 3		;Wait for reference again

$DAC 27 4095	;Full Scale Minus  -  Lens 5 A/B
$NOP 1 270		;270 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 272		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 27 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 28 4095	;Full Scale Minus  -  BS Lens
$NOP 1 280		;280 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 282		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 28 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 29 4095	;Full Scale Minus  -  Lens 2
$NOP 1 290		;290 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 292		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 29 2048	;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC2 0 M		;Full Scale plus  QB
$NOP 1 300		;300 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 302		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC2 8192 M	;Set back to 0 V out Mid Freq
$WAIT 3		;Wait for reference again

$DAC 6 0		;OL1 Full Scale plus
$NOP 1 310		;310 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 312		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 6 128		;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 7 0		;OL2 Full Scale plus
$NOP 1 320		;320 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 322		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 7 128		;Set back to 0 V out
$WAIT 3		;Wait for reference again

$DAC 4 0		;EFB1 to 0 V from -63
$NOP 1 324		;324 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 325		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 4 233		;Set back to -63 V out
$WAIT 3		;Wait for reference again

$DAC 5 0		;EFB2 to 0 V from -62V
$NOP 1 326		;326 Start Limit Check out short test
$WAIT 15		;Operator verify small change in Imon
$NOP 1 327		;end Limit Check out short test
$WAIT 3		;Wait for NOP
$DAC 5 229		;Set back to -62 V out
$WAIT 3		;Wait for reference again

$WAIT 15		;Reference current again
$NOP 1 330		;end IDL short test
$WAIT 5		;Wait for NOP
			;DAC 8/9, EM HV are set to 0,  with DACOR 8/9 ON
;Verify with expanded Imon plot for NOP 105 thru NOP 1700

; ************************  Ion_Mode - Fils Off  **************************
;This test is used to check the monitor offset of the EFBs at +290V in Ion Mode
$DAC1 0 1		;DAC1 = RFDC = 0V  and Ion_Mode ON  DAC1 special case
$NOP 1 340		;This set both EFBs to +190 V and both FSs to -2 V
$WAIT 5		;Wait for NOP
$WAIT 60		;Ion_Mode      Note change in OS-EFB1/2 in AMUX display
;Go to Ion_Mode to check the Ion Source electrode current monitor offsets
;for OS-FS1, OS-FS2, OS-EFB1, and OSEFB2, along with EFB1 and EFB2 drive mon
;FSs are at -67V with no Ion_Mode and -1V with Ion_Mode or other filament ON
;EFBs are at -63V (@DAC=233) with no Ion_Mode and +190V with Ion_Mode or
;other filament ON.
$NOP 1 350		;Verify OS1 EFB1 ___________(179uA) in Ion_Mode
$WAIT 5		;Wait for NOP
$DAC1 0 0		;DAC1 = RFDC = 0V  and Ion_Mode OFF  DAC1 special case
$WAIT 4
; 10 min of Electrode tests
;Electrode short test complete
;	>>>>>>>NOTE;  All DACs are left in Override !!!!!<<<<<<<<<<
;Verify with expanded Imon, and HV Drives, for NOPs 130 thru 350

;*******************BA FILAMENT ON ******************
$LoadMT 18	;AMUX table with fil mons at 5x rate
$WAIT 4		;The higher rate gives better time resolution for turnon.
$tableupdate	;Load RAM with EEPROM values incl. hi file sampling
$Wait 5		;Table update turns off all DAC Overrides
$FLast 2580		;0 volts DACs
$FFirst 2566	;All DAC output voltages at 0 (except OS EFB1/2)
$Wait 2
$dac 8 0
$dac 9 0
$DACOR 8 ON	;DACOR for EM1 On  (DAC 8 = 0 during Elec short test) 
$DACOR 9 ON	;DACOR for EM2 On  (DAC 9 = 0 during Elec short test) 
$Hidestrip m81
$strip m81 e .5 1.5 0 0 500 200		;Imon Normal - was set to .6A FS
$strip m65 e 0 2.5 902 233 200 200	;BA Fil Amps
$strip m66 e 0 1000 902 433 200 200	;BA Grid Emission
$strip m67 e -100 500 902 633 200 200	;BA Out, 500 pico amps fs
$Wait 5		;Wait for strip chart display
;
$DCON0 9 0		;BA set Lo Emission
$NOP 1 360		;Start plot for BA monitors and end for Imon short plot.
$DCON0 8 1		;BA filament on
$WAIT 59		;Wait for filament turnon before limitcheck
			;Operator enter (but do not send) INITMODE in cmnd window.
$NOP 1 365
$Bell
$Bell
$Bell
$HOLD
	;If BA Fil MORE THAN 2.1A send Initmode  - immediately
	;Read and Record Imon  	 __________(.66 A ±.01)
	;BA Fil __________(2.0A)  BA Grid _________(60 uA)
	;BA Out _________(<100 pA)     7 pA on 2-Dec-01
	;If BA is out MORE THAN 500 pA send Initmode  - immediately
	;If BA-Out is less than 500 pA  Operator send GO
	;10 pA ~= 1e-7 mbar  (Lo emission)
$NOP 1 370
$WAIT 5		;Wait for NOP
$DCON0 9 1		;BA Hi Emission  
$WAIT 30		;Wait for BA hi before limitcheck
$NOP 1 375
$Bell
$Bell
$Bell
$HOLD
	;If BA Fil MORE THAN 2.4A send Initmode  - immediately
	;BA Fil __________(2.0A)  BA Grid _________(527 uA)
	;BA Out _________(<1000 pA)     50 pA on 2-Dec-01
	;If BA-Out is less than 1000 pA  Operator send GO
	;100 pA ~= 1e-7 mbar  (Hi emission)
	;Operator clear INITMODE from command window.
$NOP 1 380
$WAIT 5
$DCON0 8 0		;BA filament OFF
$DCON0 9 0		;Set BA back to Lo Emission
$WAIT 10
$NOP 1 385		;End BA plots
$WAIT 5		;Wait for NOP
			;Remove 3 strip charts from display
$Hidestrip m65 	;BA Fil Amps
$Hidestrip m66	;BA Grid Emission
$Hidestrip m67	;BA Out
;To analyze; Plot Imon, BAfil, BAgrid, BAout, for NOPs 1700 thru 1740
;Note;  All DACORs are ON, and RF DACOR is ON, HV1, and HV2 are on.

; ************************  EM HV Background Noise **************************
;This sequence uses the same tables used for the PHD.  Except system noise is 
;checked with the filaments off.
;3 tables, of 15 IPs, step thru 15 threshold values, for OFF, Normal, and Hi EMs.
;The same Flat Table IPs are used for both EM1/counter1 & EM2/counter2.
;EM1 L=171, Norm=187, H=207    EM2; L=190, Norm=205, H=220 (Apr 25,02)
$strip i257 e 0 100000 300 230 230 220	;Counter 1 display at e5 c/s full scale
$DACOR 12 OFF	;Set DACOR off for threshold 1
$DACOR 13 OFF	;Set DACOR off for threshold 2

			;Both EMs OFF  -  Check System Noise  ************
$FLast 2535		;Fixed tune to M28 (Mid Freq), CS values, changing DAC 12/13
$FFirst 2521	;FT sequence PHD 1
$DAC 8 0		;EM1 OFF
$DAC 9 0		;EM2 OFF
$WAIT 5		;Wait for NOP
$NOP 1 400
$WAIT 30		;Average threshold sweeps  -  System Noise
$NOP 1 410
$WAIT 8		;Wait for NOP

			;EM 1 ON at Low Voltage  ************
;$FLast 2535		;Fixed tune to M28 (Mid Freq), CS values, FT sequence PHD 1
;$FFirst 2521	;But DAC 3 (RF AC) is set OFF (and DACOR) on pg 5
;$DAC 8 171		;EM1 set to Low Voltage Value
;$DAC 9 0		;Confirm EM 2 is at 0 volts.
;$WAIT 5		;Wait for NOP
;$NOP 1 415
;$WAIT 30		;Average threshold sweeps - Detector 1
;$NOP 1 416
;$WAIT 8		;Wait for NOP

			;EM 1 ON at Normal Voltage  ************
$FLast 2550		;Fixed tune to M28 (Mid Freq), CS values, FT sequence PHD 2
$FFirst 2536	;But DAC 3 (RF AC) is set OFF (and DACOR) on pg 5
$DAC 8 187		;EM1 set to Normal Voltage Value
$DAC 9 0		;Confirm EM 2 is at 0 volts.
$WAIT 5		;Wait for NOP
$NOP 1 420
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 430
$WAIT 8		;Wait for NOP

			;EM 1 ON at High Voltage  ************
$FLast 2565		;FT sequence PHD 3
$FFirst 2551
$DAC 8 207		;EM1 set to High Voltage Value
$DAC 9 0		;Confirm EM 2 is at 0 volts.
$WAIT 5		;Wait for NOP
$NOP 1 440
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 450
$WAIT 8		;Wait for NOP

			;EM 2 ON at Low Voltage  ************
$hidestrip i257				;Hide counter 1 display (if any)
$Strip i258 e 0 100000 270 289 300 200	;Counter 2 display
$FLast 2535		;FT sequence PHD 1
$FFirst 2521
$DAC 8 0		;EM1 OFF
$DAC 9 190		;EM2 Set to Low Voltage
$WAIT 5		;Wait for NOP
$NOP 1 500
$WAIT 30		;Average threshold sweeps - Detector 2 - Low voltage
$NOP 1 510
$WAIT 8		;Wait for NOP

			;EM 2 ON at Normal Voltage  ************
$FLast 2550		;FT sequence PHD 2
$FFirst 2536
$DAC 8 0		;Confirm EM 1 is at 0 volts.
$DAC 9 205		;EM2  set to Normal Voltage
$WAIT 5		;Wait for NOP
$NOP 1 520
$WAIT 30		;Average threshold sweeps - Detector 2 - Normal Voltage
$NOP 1 530
$WAIT 8		;Wait for NOP

			;EM 2 ON at High Voltage  ************
$FLast 2565		;FT sequence PHD 3
$FFirst 2551
$DAC 8 0		;Confirm EM 1 is at 0 volts.
$DAC 9 220		;EM2 set to High Voltage
$WAIT 5		;Wait for NOP
$NOP 1 540
$WAIT 30		;Average threshold sweeps - Detector 2
$NOP 1 550
$WAIT 8		;Wait for NOP

			;Put EMs back to normal conditions  *****************
$FLast 2580		;Go back to 0 volts DACs to replace threshold sweeps
$FFirst 2566	;All DAC output voltages at 0 (except OS EFB1/2)
$Wait 2
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$DACOR 12 ON
$DACOR 13 ON
$Wait 8
			;Note;  RF AC is still off by DACOR and DAC 3 value = 32768
$hidestrip i258			;Hide counter 2 display
;Noise check finished.   
;Verify with X-Y plots for 400-450 & 500-550

;*******************  CS FIL 1 ON  *********************
$Strip i258 e 0 100000 270 289 300 200	;Counter 2 display
$strip m33 e 0 2.5 902 233 200 200	;CS1 Fil Amps
$strip m34 e 0 800 902 433 200 200	;CS1 Fil Emission

;First set all DACORs OFF
;This will change to all 0 volts out from current Flat Table  $FLast 2580/2565	
$DACOR 14 OFF
$DACOR 15 OFF
$DACOR 16 OFF
$DACOR 17 OFF
$DACOR 18 OFF
$DACOR 19 OFF
$DACOR 20 OFF
$DACOR 21 OFF
$DACOR 22 OFF
$DACOR 23 OFF
$DACOR 24 OFF
$DACOR 25 OFF
$DACOR 26 OFF
$DACOR 27 OFF
$DACOR 28 OFF
$DACOR 29 OFF
$DACOR 1 OFF	;RF DC
$DACOR 2 OFF	;QB
$DACOR 3 OFF	;RF AC  This will turn the RF AC back on to M28
$DACOR 6 OFF	;OL1
$DACOR 7 OFF	;OL2
			;DACOR 8 and 9 (EM HV) are left ON to set HV for rest of test
;			;Do not turn DACOR 12/13 (Threshold) off yet - leave at 4.
$FLast 2595		;Fixed tune to M28 (Mid Freq), CS values
$FFirst 2581	;This turns on the RF at Mass 28  AGC=1.2V@M28
$Wait 3
$NOP 1 2000	;Start check for RF noise
$WAIT 60		;Check overall noise with only RF (M28) additional on
$NOP 1 2002	;Limit check RF ON
$WAIT 5		;Wait for NOP                       RF AGC _________(1.27 V)

			;CS Fil 1 turnon w/Low Emission  ***********************
$DCON0 2 0		;CS Lo Emission
$NOP 1 2006	;Start plot for CS Fil 1 Turnon
$DCON0 6 1		;CS Fil 1 on 
$Wait 60		;Read & Record  Fil _______(1.9A)  Emis ______  (56 uA)
$NOP 1 2010	;Start Limit Check for CS Fil1 on.
$Wait 60
$NOP 1 2020	;End Lo Emission limit check      Counts _____________(c/IP)
$WAIT 5		;Wait for NOP

			;CS Fil 1 switch to high Emission  ***********************
$DCON0 2 1		;Switch to Hi Emis 
$Wait 30		;Read & Record HI Emis   ______(2.1A) _______  (500 uA)
$NOP 1 2030	;Start Limit check for CS1 Hi E
$WAIT 30		;Limit check
$NOP 1 2040	;End Limit check for CS1 Hi E
$WAIT 5		;Wait for NOP
$DCON0 2 0		;CS Lo Emission
$DCON0 6 0		;CS Fil 1 OFF
$NOP 1 2050	;End plotting for fil on           Counts _____________(c/IP)
$Hidestrip m33 	;CS1 Fil Amps
$Hidestrip m34	;CS1 Fil Emission

;*******************  OS FIL 1 ON  ******************
$strip m1 e 0 2.5  902 233 200 200	;OS1 Fil Amps
$strip m2 e 0 800  902 433 200 200	;OS1 Fil Emission
$FLast 2610		;Fixed tune to M28 (Mid Freq) Open Source selected
$FFirst 2596	;Only one 15 IP sequence 
$DCON0 0 0		;OS Lo Emission

			;OS Fil 1 turnon w/Low Emission  ***********************
$NOP 1 2100	;Start plot for OS Fil 1 Turnon
$DCON0 4 1		;OS Fil 1 on  (Hi leakage, slow turnon 8/5/01)
$Wait 60		;Read & Record   ______(1.7A)  Emis _______(50)
$NOP 1 2110	;Expect peak of ~100, 000 c/s, then falling
$Wait 60
$NOP 1 2120	;End Limit Check        Counts _____________(c/IP)
$WAIT 5		;Wait for NOP

			;OS Fil 1 switch to high Emission  ***********************
$DCON0 0 1		;Switch to Hi Emis
$Wait 30		;Read & Record  _______(1.8A) Emis _________(500 uA)
$NOP 1 2130	;Start Limit Check for Hi Emission
$Wait 30		;
$NOP 1 2140	;End Limit Check   Expect 6600 c/IP = 220K c/sec
$WAIT 5		;Wait for NOP
$DCON0 0 0		;OS Lo Emission
$DCON0 4 0		;OS Fil 1 OFF
$NOP 1 2150	;End Plotting                 Counts _____________(c/IP)
$WAIT 6		;Wait for NOP
$Hidestrip m1	;OS1 Fil Amps
$Hidestrip m2	;OS1 Fil Emission

;*******************  OS FIL 2 ON  **************************
$strip m17 e 0 2.5 902 233 200 200	;OS2 Fil Amps
$strip m18 e 0 800 902 433 200 200	;OS2 Fil Emission
$DCON0 0 0		;OS Lo Emission

			;OS Fil 2 turnon w/Low Emission  ***********************
$NOP 1 2200	;Start plot for OS Fil 2 Turnon
$DCON0 5 1		;OS Fil 2 on
$Wait 60		;Read & Record   ______(2.2A)  Emis _________(85 uA)
$NOP 1 2210	;Start Limit Check
$Wait 60		;Note number of OS counts _______(3000 c/IP or 100K/Sec)
$NOP 1 2220	;(Number of counts required to set scale for prints).
$WAIT 5		;Wait for NOP

			;OS Fil 2 switch to high Emission  ***********************
$DCON0 0 1		;Switch to OS Hi Emis
$Wait 30		;Read & Record ______(2.4A)   Emis _________  (467 uA)
$NOP 1 2230	;Start Limit Check for Hi Emission
$Wait 30
$NOP 1 2240	;End Limit Check
$WAIT 5		;Wait for NOP
$DCON0 0 0		;OS Lo Emission               Counts _____________(c/IP)
$DCON0 5 0		;OS Fil 1 OFF
$NOP 1 2250	;End Plotting
$WAIT 6		;Wait for NOP
$Hidestrip m17	;OS2 Fil Amps
$Hidestrip m18	;OS2 Fil Emission

;*******************CS FIL 2 ON ************************************
$strip m49 e 0 2.5 902 233 200 200	;CS2 Fil Amps
$strip m50 e 0 800 902 433 200 200	;CS2 Fil Emission
$FLast 2595		;Fixed tune to M28 (Mid Freq), CS values
$FFirst 2581
$DCON0 2 0	
			;CS Fil 2 turnon w/Low Emission  ***********************
$NOP 1 2300
$DCON0 7 1		;CS Fil 2 On
$WAIT 60		;Wait for filament to fully turn on when LO Emission
$NOP 1 2310	;Start Limit Check for CS Fil1 on.
$Wait 60		;Read & Record Lo  ______(1.96A) Emis ________(157 uA)
$NOP 1 2320	;Note number of CS counts ___________(100K C/S)
$WAIT 5		;Wait for NOP

			;CS Fil 2 switch to high Emission  ***********************
$DCON0 2 1		;Switch to Hi Emis 
$Wait 30		;Read & Record HI  ______(2.14A) Emis ________(600 uA)
$NOP 1 2330	;Start Limit check for CS1 Hi E
$WAIT 30		;Note number of CS counts ______________(C/S)
$NOP 1 2340	;Number of counts required to set scale for prints).
$WAIT 5		;Wait for NOP
;keep in low emission 7/8/02
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On (again)
$NOP 1 2350	;End plotting for fil 2 on
$WAIT 5		;Wait for NOP
$Hidestrip m49 	;CS2 Fil Amps
$Hidestrip m50	;CS2 Fil Emission
$Wait 2

;*******************  Both CS2 and OS2 Fils ON  ******************
$strip m17 e 0 2.5 902 233 200 200		;OS2 Fil Amps
$strip m18 e 0 800 902 433 200 200	;OS2 Fil Emission
$FLast 2610		;Fixed tune to M28 (Mid Freq) Open Source selected
$FFirst 2596	;Only one 15 IP sequence 
$DCON0 0 0		;OS Lo Emission - changed 7/8/02
$NOP 1 2360	;Start plot for OS Fil 2 Turnon

			;OS Fil 2 turnon w/Lo Emission  ***********************
$DCON0 5 1		;OS Fil 2 on
$Wait 60		;Read & Record ______ Emis ________
$NOP 1 2370	;Start Limit Check
$Wait 60
$NOP 1 2380	;End Limit Check
$WAIT 5		;Wait for NOP
$Hidestrip m17	;OS2 Fil Amps
$Hidestrip m18	;OS2 Fil Emission
;Both OS2 and CS 2 filaments are ON, low emission, at this point.
;All filament turnons run from NOP 2000  thru NOP 2380
$LoadMT 9		;Normal AMUX table with equal sampling
$WAIT 10
$tableupdate	;Load RAM with EEPROM values incl. MUX Table 9
$Wait 5
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$Wait 5

;*********************  FT Mass Tune - Fractional, Normal ********************
$FLast 1200		;CS Mass .5...66.5 and 126...133.4  ­  Fractional, Normal Width
$FFirst 481		;Frequency display not stable
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 3000
$WAIT 60
$WAIT 120
$NOP 1 3010		;This will give a 5 to 6 average for each mass
;PlotFT (X-Y averaging counts plot) from 3000 to 3010.  Pg 106&107      Realtime UI-1

;********************    FT Mass Tune - Fractional, Wide  ********************
$FLast 1920		;This is a new test (27-Oct-01)  Requires FT15 or higher.
$FFirst 1201	;CS Mass .5...66.5 and 126...133.4  ­  Fractional, Wide Peaks
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
			;Wait for completion of cycle at ~24S/swp
$NOP 1 3020
$WAIT 180		;This will give a 5 to 6 average for each mass
$NOP 1 3030	;Compare to normal peak width.
$Wait  2
;PlotFT (X-Y averaging counts plot) from 3020 to 3030.  Pg 108&109   Realtime UI-2

;***********************  Electrode Scans  ********************
;Closed Source - (M28,  as of 2-Aug-01)
$FLast 60		;QB scan   U-I#101        Plot Pg 110
$FFirst 31
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$WAIT 2		;Wait for completion of previous cycle at ~24S/swp
$NOP 1 4000
$WAIT 30
$NOP 1 4010
$WAIT 3		;Wait for NOP
;Verify with PlotFT from 4000 to 4010, with X axis = volts.  etc. for following

$FLast 90		;CS  QL1/3 scan   U-I#102    Plot Pg 111
$FFirst 61
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4020
$WAIT 30
$NOP 1 4030
$WAIT 3		;Wait for NOP

$FLast 120		;CS  QL2/4 scan   U-I#103    Plot Pg 112
$FFirst 91
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4040
$WAIT 30
$NOP 1 4050
$WAIT 3		;Wait for NOP

$FLast 150
$FFirst 121		;CS  Faraday Cup   U-I#104 (27-Oct-01)    Plot Pg 113
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4060
$WAIT 30
$NOP 1 4070
$WAIT 3		;Wait for NOP

$FLast 180
$FFirst 151		;CS  L6 scan   U-I#105    Plot Pg 114
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4080
$WAIT 30
$NOP 1 4090
$WAIT 3		;Wait for NOP

$FLast 210
$FFirst 181		;CS  L4 scan   U-I#106    Plot Pg 115
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4100
$WAIT 30
$NOP 1 4110
$WAIT 3		;Wait for NOP

$FLast 240
$FFirst 211		;CS  L5 scan   U-I#107    Plot Pg 116
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$Wait 2
$NOP 1 4120
$WAIT 30
$NOP 1 4130
$WAIT 3		;Wait for NOP

$FLast 270
$FFirst 241		;CS  BS scan   U-I#108    Plot Pg 117
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4140
$WAIT 30
$NOP 1 4150
$WAIT 3		;Wait for NOP

$FLast 300
$FFirst 271		;CS  L2 scan   U-I#109    Plot Pg 118
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4160
$WAIT 30
$NOP 1 4170
$WAIT 3		;Wait for NOP

;Open source
$FLast 330
$FFirst 301		;OS NT QB scan   U-I#201    Plot Pg 119
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4180
$WAIT 30
$NOP 1 4190
$WAIT 3		;Wait for NOP

$FLast 360
$FFirst 331		;OS NT OL3 scan   U-I#202    Plot Pg 120
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4200
$WAIT 30
$NOP 1 4210
$WAIT 3		;Wait for NOP

$FLast 390
$FFirst 361		;OS NT OS  OL4 scan   U-I#203    Plot Pg 121
$Wait 2
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 4220
$WAIT 30
$NOP 1 4230
$WAIT 3		;Wait for NOP

$FLast 420
$FFirst 391		;OS  NT  Energy Scan   U-I#204    Plot Pg 122
$Wait 2
$DCON0 5 1		;OS Fil 2 On
$DCON0 7 1		;CS Fil 2 On
$NOP 1 4240
$WAIT 30
$NOP 1 4250
$WAIT 3		;Wait for NOP

$FLast 450
$FFirst 421		;OS NT  Faraday Cup (27-Oct-01)  U-I#205    Plot Pg 123
$Wait 2
$DCON0 5 1		;OS Fil 2 On
$DCON0 7 1		;CS Fil 2 On
$NOP 1 4260
$WAIT 30
$NOP 1 4270
$WAIT 3		;Wait for NOP

$FLast 480
$FFirst 451		;OS NT Enizel   U-I#206    Plot Pg 124
$Wait 2
$DCON0 5 1		;OS Fil 2 On
$DCON0 7 1		;CS Fil 2 On
$NOP 1 4280
$WAIT 30
$NOP 1 4290
$WAIT 3		;Wait for NOP
;End of Flat Table Lens Scans
;Analyze with X-Y plots for each electrode  Pgs 111 thru 123

;***********************  FT Ion Mode - Fils ON ********************
$FLast 2115		;Ion Mode Tests - CS2 & OS2 on   U-I  - 1001   Pg 125
$FFirst 1921	;Ion, M28, Ion, M40
$Wait 2
$DCON0 5 1		;OS Fil 2 On
$DCON0 7 1		;CS Fil 2 On
$NOP 1 4300
$WAIT 60
$NOP 1 4310	;X-Y Plot 4300 to 4310
$WAIT 7		;Wait for completion of cycle at ~6.3S/cycle

;***********************  FT OS  Unity Step ********************
$FLast 2160		;Unity Step, Ion, M28, Ion, M40            Pg 126
$FFirst 2116
$Wait 2
$DCON0 5 1		;OS Fil 2 On
$DCON0 7 1		;CS Fil 2 On
$NOP 1 4320
$WAIT 30
$NOP 1 4330	;Check Electrode monitors in Ion Mode
$WAIT 7		;Wait for completion of cycle at ~6.3S/cycle

; ************************  PHD  **************************
;A=171, 187, 207 B=172, 190, 205 
;3 tables, of 15 IPs, step thru 15 threshold values, for Low, Normal, and Hi voltage.
;The same IPs are used for both EM1/counter1 & EM2/counter2.
$DACOR 8 ON	;Enable DAC 8 Settings -EM HV 1
$DACOR 9 ON	;Enable DAC 9 Settings -EM HV 2
$DACOR 12 OFF	;Set DACOR off for threshold 1
$DACOR 13 OFF	;Set DACOR off for threshold 2
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On

			;EM 1 ON at Low Voltage  ************
$FLast 2535		;Fixed tune to M28 (Mid Freq), CS values, changing DAC 12/13
$FFirst 2521	;HV set LOW by DCON
$DAC 8 171		;EM1 ON (LOW)
$DAC 9 0		;EM2 OFF
$WAIT 5		;Wait for NOP
$NOP 1 4500
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 4510
$WAIT 5		;Wait for NOP

			;EM 1 ON at Normal Voltage  ************
$FLast 2550		;Fixed tune to M28 (Mid Freq), CS values, changing DAC 12/13
$FFirst 2536	;HV set Norm by DCON
$DAC 8 187		;EM1 ON (Mid)
$dac 9 0
$WAIT 5		;Wait for NOP
$NOP 1 4520
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 4530
$WAIT 5		;Wait for NOP

			;EM 1 ON at High Voltage  ************
$FLast 2565		;Fixed tune to M28 (Mid Freq), CS values, changing DAC 12/13
$FFirst 2551	;HV set High by DCON
$DAC 8 207		;EM1 ON (High)
$dac 9 0
$WAIT 5		;Wait for NOP
$NOP 1 4540
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 4550
$WAIT 5		;Wait for NOP
			;EM 2 ON at Low Voltage  ************
$FLast 2535		;Fixed tune to M28 (Mid Freq), CS values, changing DAC 12/13
$FFirst 2521	;HV set LOW by DCON
$DAC 8 0		;EM1 OFF
$DAC 9 190		;EM2 ON  (LOW)
$WAIT 5		;Wait for NOP
$NOP 1 4600
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 4610
$WAIT 5		;Wait for NOP

			;EM 2 ON at Normal Voltage  ************
$FLast 2550		;Fixed tune to M28 (Mid Freq), CS values, changing DAC 12/13
$FFirst 2536	;HV set Norm by DCON
$dac 8 0
$DAC 9 205		;EM2 ON   (Mid)
$WAIT 5		;Wait for NOP
$NOP 1 4620
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 4630
$WAIT 5		;Wait for NOP

			;EM 2 ON at High Voltage  ************
$FLast 2565		;Fixed tune to M28 (Mid Freq), CS values, changing DAC 12/13
$FFirst 2551	;HV set High by DCON
$dac 8 0
$DAC 9 220		;EM2 ON  (High)
$WAIT 5		;Wait for NOP
$NOP 1 4640
$WAIT 30		;Average threshold sweeps - Detector 1
$NOP 1 4650
$WAIT 5		;Wait for NOP

			;Put back EMs back to normal conditions  ***************
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$WAIT 5
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$DACOR 12 ON
$DACOR 13  ON
$Wait 2
			;Check with X-Y plots for 4500-4550 & 4600-4650, Pgs 127 & 128

;************* Round Robin Electrode Tuning ***************************
;Deleted Rev 60.  5-Dec-01.    Not value added.
;************* Round Sequences  w/RASP********************************
;NOTE at start still set to mass 28, OS, dwell
$LoadMT 14	;Load AMUX table for high RF AGC sample rate
$WAIT 10
$ftc 54 0x1073 0x41 1 27689	;Set LF to Normal (cnts/IP)
$ftc 54 0x1074 0x41 1 33516 	;Set MF to Normal (cnt/IP/2)
$ftc 54 0x106E 0x41 1 340 		;LF correction limit of 1%
$ftc 54 0x106D 0x41 1 280 		;MF correction limit of 1%
$ftc 54 0x1032 0x43 1 1 0 1  	;Freq Correction ON  (DC-on, QB-off, AC-on)
$Wait 2
$Tableupdate
$Wait 5
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$WAIT 5
$NOP 1 5400
$WAIT 2
; set up masstables that OS NT are in 50 - 70 for OS, NT, Fractional, Mode 10
$MASSTABLE 50 200
$MASSTABLE 51 201
$MASSTABLE 52 202
$MASSTABLE 53 203
$MASSTABLE 54 204
$MASSTABLE 55 205
$MASSTABLE 56 206
$MASSTABLE 57 207
$MASSTABLE 58 208
$MASSTABLE 59 209
$MASSTABLE 60 210
$MASSTABLE 61 211
$MASSTABLE 62 212
$MASSTABLE 63 213
$MASSTABLE 64 214
$MASSTABLE 65 215
$MASSTABLE 66 216
$MASSTABLE 67 217
$MASSTABLE 68 218
$MASSTABLE 69 219
$MASSTABLE 70 220

Mode 1  --------------------------------------------------
;	 - low mass medium temporal  13.86 S cycle   Plot Pgs 130 & 131
;	OS 0-3   CS 0-3   IM 0-3   PM 0-15
$FTC 53 1 0x0003 1 0x0003 1 0x0003 4 0x000F
$FTC 63 0x0101 1
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5410
$WAIT 30
$NOP 1 5415
;       focus on IM	10.00		-600.00
$FTC 63 0x0000 0
$WAIT 2

;Mode 2  --------------------------------------------------
;	focus on IM for far out science, low mass medium temporal 
;	resolution, general purpose scan exercising ALL modes.
;	Src	Rpt	Fract	First	Last
;	OS 	1	0	0	3
;	CS 	1	0	0	3
;	IM 	4	0	0	3
;	PM 	4	0	0	15
;	AD	1,1,4	0	0	5  
;	OS  0-3  CS  0-3  IM  0-3  PM  0-15
$FTC 53 1 0x0003 1 0x0003 4 0x0003 4 0x000F
;AD	  CSOS IM
$FTC 63 0x0101 4
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5420
$WAIT 40		;2 complete cycles
$NOP 1 5425
;       IM high TR	5.00		-590.00
$FTC 63 0 0		;Turn off Adaptive
$WAIT 2

;Mode 3  --------------------------------------------------
;	 - highest temporal    7.97 S cycle   Plot Pgs 134 & 135
;	OS       CS 0-3   IM 0-3   PM 0-15
$FTC 53 0 0x0003 0 0x0003 0 0x0003 4 0x000F
$FTC 63 0x0000 0
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5430
$WAIT 20
$NOP 1 5435
;       gen scan	0.396	2.42
$FTC 63 0x0000 0
$WAIT 2

;Mode 4    --------------------------------------------------
;	- highest resolution IONS ONLY 3.96 S cycle   Plot Pgs 136 & 137
;	OS       CS       IM 0-3   PM 0-0
$FTC 53 0 0x0003 0 0x0003 1 0x0003 1 0x0000
$FTC 63 0x0000 0
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5440
$WAIT 20
$NOP 1 5445
;       high M, all IS	2.25		-585.00
$FTC 63 0x0000 0
$WAIT 2

;Mode 5  ------------------ Flyby Modes --------------------------------
;	-inbound 2.5 degree tilt,13.86 S cycle   Plot Pgs 138 & 139
;	more emphasis on IM and CS and less on OS
;	Src	Rpt	Fract	First	Last
;	OS 	1	0	1	2
;	CS 	1	0	0	3
;	IM 	1	0	1	2
;	PM 	4	0	0	15
;	AD	1,1,1	0	0	5
;	OS 1-2   CS 0-3   IM 1-2   PM 0-15
$FTC 53 1 0x0102 1 0x0003 1 0x0102 4 0x000F
;AD	  CSOS IM
$FTC 63 0x0101 1
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5450
$WAIT 30
$NOP 1 5455
$FTC 63 0 0		;Turn off Adaptive
$WAIT 2

;Mode 6  --------------------------------------------------
;       high mass scan all sources, 
;	repeat occasionally far from nucleus to check 
;	backgrounds and tuning from CS data
;	Src	Rpt	Fract	First	Last
;	--------------------------------------
;	OS 	1	0	0	10	** 20 for SW3
;	CS 	1	0	0	20
;	IM 	1	0	0	10	** 20 for SW3	
;	PM 	4	0	0	15
;	AD	2,2,2	0	0	5	
;	OS 0-10  CS 0-20  IM 0-10  PM 0-15
$FTC 53 1 0x000A 1 0x0014 1 0x000A 4 0x000F
;AD	  CSOS IM
$FTC 63 0x0202 2
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5460
$WAIT 80
$NOP 1 5465
;       IM high TR	5.00		-582.75
$FTC 63 0 0		;Turn off Adaptive
$WAIT 2

;Mode 7   --------------------------------------------------
;	 - full CS fractional       519.75 S cycle   (140S observed)   Plot Pgs 142,143,144
;	CS f0-20 PM 0-13
$FTC 53 0 0x0102 1 0x8014 0 0x0102 4 0x000F
$FTC 63 0x0000 0
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5470
$WAIT 150
$NOP 1 5475
$FTC 63 0x0000 0
$WAIT 2

;Mode 8    -------------------------------------------------
;		  -full OS fractional    623.7 S cycle  (140S observed)   Plot Pgs 145 & 146
;	Src	Rpt	Fract	First	Last
;	OS 	1	0	0	10	*** 20 for SW3
;	CS 	0	1	0	20
;	IM 	0	0	0	3
;	PM 	4	0	0	15
;	AD	0	0	0	5	*** Not Implemented
;	OS f0-10 CS 0-3   IM 0-3   PM 0-15
$FTC 53 1 0x800A 0 0x0003 0 0x0102 4 0x000F
$FTC 63 0x0000 0
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5480
$WAIT 150
$NOP 1 5485
$FTC 63 0x0000 0
$WAIT 2

;Mode 9  --------------------------------------------------
;	full IM fractional   727.65 S cycle  (140S observed)   Plot Pgs 147 & 148
;	Src	Rpt	Fract	First	Last
;	OS 	0	0	0	3	
;	CS 	0	1	0	3
;	IM 	1	0	0	10      *** 20 for SW3
;	PM 	4	0	0	15
;	AD	0	0	0	5	*** Not Implemented
;	OS 0-10  CS 0-3   IM f0-10   PM 0-15
$FTC 53 0 0x0102 0 0x0003 1 0x800A 4 0x000F
$FTC 63 0x0000 0
$Wait 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5490
$WAIT 150
$NOP 1 5495
$FTC 63 0x0000 0
$WAIT 2

;Mode 10  ------------------------------------------------Added Baseline 39   Plot Pgs 149 & 150
;	Full OS NT fractional via PM      140 S cycle
;	OS 0-10  CS 0-20  IM 0-3   PM f50-70
$FTC 53 0 0x0003 0 0x0014 0 0x0003 1 0xB246
$FTC 63 0x0000 0
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 On normal
$DACOR 8 ON		;DACOR for EM1 On
$DACOR 9 ON		;DACOR for EM2 On
$NOP 1 5497
$WAIT 50
$WAIT 100
$NOP 1 5498
$FTC 63 0x0000 0
$WAIT 2

;***************  Flat Table CS Fractional, for reference ***********
DAC 9 205		;EMHV 1 to normal DAC voltage setting
DACOR 8 ON	;EMHV 2 override on
DACOR 9 ON	;EMHV 1 override on
$FLast 1200		;CS Mass .5...66.5 and 126...133.4  ­  Fractional, Normal Width
$FFirst 481
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$NOP 1 5500
$WAIT 120		;Compare this spectrum to preceeding and following
$NOP 1 5510	;Plot Pgs 151 & 152

;************** RR CS Fractional .5 to 150 AMU Freq Corr OFF ************
$ftc 54 0x1032 0x43 1 0 0 0  ;Freq Correction OFF  (DC, QB, AC)
$Wait 2
$Tableupdate
$Wait 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EMHV 2 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$Wait 5
;Fractional  CS F0-10  (Revised for Rev 65, 12-Dec-01 by FT, ER, JM)
$FTC 53 0 0x0003 1 0x800A 0 0x0003 0 0x000F
$FTC 63 0 0		;Turn off Adaptive
$WAIT 25		;LF ______(27689)  MF _______(33516)  HF ______(20376)
$NOP 1 5550	;LF=reading/.03   MF=reading/.015  HF = (reading + 131072)/.03
$WAIT 120		; Average for 120 Sec (2 sweeps)
$NOP 1 5560	; End data acq. *************
$WAIT 10		;Plot Pgs 153 & 154

;************* Freq Corr ON, 1% HIGH Ref **************************
;The plot should show about a 1.5 AMU shift of peaks to the left.
$ftc 54 0x1032 0x43 1 1 0 1  ;Freq Correction ON  (DC, QB, AC)
$ftc 54 0x1073 0x41 1 27959 ;Set LF to ref of 1% High     27715=Norm
$ftc 54 0x1074 0x41 1 34186 ;Set MF to ref of 1% High    33516=Norm
			;Note, high ref is same as added cap = lower freq
$ftc 54 0x1075 0x41 1 0 ;Set HF to ref of 0 (not active)
$Wait 2
$Tableupdate
$WAIT 15		; Let the dust settle
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$Wait 5
$NOP 1 5570	; Start data acq. *************
$WAIT 120		; Average for 120 Sec (2 sweeps)
$NOP 1 5580	; End data acq. *************
$WAIT 10		;Plot Pgs 155 & 156

;************* Freq Corr ON, 0.5% LIMIT HIGH  Ref ******************
;The plot should show about a .7 AMU shift of peaks to the left.
$ftc 54 0x106E 0x41 1 170 	;LF correction limit of 0.5%
$ftc 54 0x106D 0x41 1 140 	;MF correction limit of 0.5%
$Wait 2
$Tableupdate
$WAIT 15		; Let the dust settle
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$Wait 5
$NOP 1 5600	; Start data acq. *************
$WAIT 120		; Average for 120 Sec (2 sweeps)
$NOP 1 5610	; End data acq. *************
$WAIT 10		;Plot Pgs 157 & 158
;Put back to normal
$ftc 54 0x106E 0x41 1 340 		;LF correction limit of 1%
$ftc 54 0x106D 0x41 1 280 		;MF correction limit of 1%
$ftc 54 0x1073 0x41 1 27689 	;Set LF to Normal (cnts/IP)
$ftc 54 0x1074 0x41 1 33516 	;Set MF to Normal (cnt/IP/2)
$ftc 54 0x1075 0x41 1 0 		;Set HF to ref of 0 (not active)

;************* Freq Corr ON, High Correction   ************************
$LoadCFG 56 12	;Load cfg table for high correction
$Wait 2
$Tableupdate
$WAIT 5		;Let the dust settle
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$Wait 5
$NOP 1 5620	; Start data acq. *************
$WAIT 120		; Average for 120 Sec (2 sweeps)
$NOP 1 5630	; End data acq. *************
$WAIT 5		;Plot Pgs 159 & 160

;************* Freq Corr ON, Low Correction  ********************
$LoadCFG 55 12	;Load cfg table for low correction 
$Wait 2
$Tableupdate
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$Wait 5
$NOP 1 5640	; Start data acq. *************
$WAIT 120		; Average for 120 Sec (2 sweeps)
$NOP 1 5650	; End data acq. *************
$WAIT 5		;Plot Pgs 161 & 162
$LoadCFG 61 12	;Load cfg table for norm correction 
$Wait 2
$Tableupdate
$WAIT 5
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On
$DAC 3 32768	;DAC 3 = RFAC = 0 volts 
$DACOR 3 ON
$Wait 5

;************* Freq Corr ON, NORMAL Ref  **************************
;Set reference (again) to normal
$ftc 54 0x1073 0x41 1 27689 	;Set LF to Normal (cnts/IP)
$ftc 54 0x1074 0x41 1 33516 	;Set MF to Normal (cnt/IP/2)
$ftc 54 0x1075 0x41 1 0 		;Set HF to ref of 0 (not active)
$Wait 2
$Tableupdate
$WAIT 5		;Let the dust settle
$DCON0 0 0		;OS lo Emission
$DCON0 2 0		;CS lo Emission
$DCON0 7 1		;CS Fil 2 On
$DCON0 5 1		;OS Fil 2 On
$DAC 8 0		;EM1 OFF
$DAC 9 205		;EM2 ON (Normal Baseline EM HV value = 2440 V)
$DACOR 8 ON	;DACOR for EM1 On
$DACOR 9 ON	;DACOR for EM2 On      AGC Temp __________
$Wait 5
$NOP 1 5660	;LF ______(27689)  MF _______(33516)  HF ______(20376)
$WAIT 240		; Average for 240 Sec (4 sweeps)
$NOP 1 5670	; End data acq.
$WAIT 5		;Plot Pgs 163 & 164

;************* Filament and Power Noise ********************************
$Standby ON	;Check table status in Standby mode
$Wait 2
$TM ON		;Verify No RF in Standby mode
$WAIT 5
$NOP 1 6100
$WAIT 60		;Evaluate noise with NO RF - CS2, OS2 ON
$NOP 1 6110
$WAIT 5		;Wait for NOP

$LoadMT 9		;PROM equal AMUX Table with alternate Imons
$WAIT 20
$tableupdate	;Load RAM with EEPROM values
$WAIT 5

$DCON0 7 0		;CS Fil 2 Off
$Wait 5		;To observe different power levels
$DCON0 5 0		;OS Fil 2 off
$WAIT 60		;Check system noise with NO RF and Filaments off
$NOP 1 6120
$WAIT 5		;Wait for NOP

;************* Init and Minimum Power********************************
$INITMODE
$TM ON		;Turnon Conditions -verify NO RF and .52A input current
$WAIT 30		;Check system noise with RF and Filaments off

$NOP 1 6200	;End of Baseline Test
$WAIT 10		;Wait for NOP
;************* End of Test  ­  Turn OFF Power   ****************************
				;Note PacketID number _____________
				;Test End Time________________
				;Number of commands _______   #NAKs ______