;*******************BA FILAMENT ON ******************
$TM ON
$tcrate 1000            ;Set comnd rate at 1/sec.   Comment out for STOL convert 
$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 <B1>.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)