;ngims_postlaunch_PressureChkHi.txt
;ft	Rev 1	July 8, 2002
;power up NGIMS using NGIMS_PwrOn.prc

;NGIMS_TM_ON
$tm on

;NGIMS_LOADMT_B3
$LoadMT 18      ;AMUX table with fil mons at 5x rate
$WAIT 4         ;The higher rate gives better time resolution for turnon.

;NGIMS_Pressure_Test_Part0
$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
;
;*******************BA FILAMENT ON ******************
;NGIMS_BAFil_On
$DCON0 8 1              ;BA filament on

;NGIMS_Pressure_Test_Part2
$NOP 1 370              ;Start plot for BA monitors and end for Imon short plot.
$DCON0 9 1              ;BA set Hi Emission
$WAIT 59                ;Wait for filament turnon before limitcheck
                        ;Operator enter (but do not send) INITMODE in cmnd window.
$NOP 1 375

;NGIMS_Pressure_Test_Part3
$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

;power off NGIMS using NGIMS_PwrDn.prc