////////////////////////////////////////////////////////////////////////
///         This script is for use with iFly's 737 series and        /// 
///       Jouni Tormanen's iFlytoFSUIPC 2.03 interface program       ///
///                  Opencockpits Engine Fire Panel                  ///
///                     adapted by Kenneth Mockford                  ///
////////////////////////////////////////////////////////////////////////



//////////ENGINE FIRE PANEL LIGHTS///////

var 600, name Fire_1, Link FSUIPC_INOUT, Offset $9411, Length 1
{
	&ENG1_OHT_L = TESTBIT &Fire_1 ,0
	&WHEEL_WELL_L = TESTBIT &Fire_1 ,1
	&FAULT_L = TESTBIT &Fire_1 ,2
	&APU_DETIN_L = TESTBIT &Fire_1 ,3
	&APU_BOT_L = TESTBIT &Fire_1 ,4
	&ENG2_OHT_L = TESTBIT &Fire_1 ,5
	&L_BOT_L = TESTBIT &Fire_1 ,6
	&R_BOT_L = TESTBIT &Fire_1 ,7
}

Var 0601, name ENG1_OHT_L, Link IOCARD_OUT, Device 14, Output 7    
Var 0602, name WHEEL_WELL_L, Link IOCARD_OUT, Device 14, Output 3
Var 0603, name FAULT_L, Link IOCARD_OUT, Device 14, Output 4 
Var 0604, name APU_DETIN_L, Link IOCARD_OUT, Device 14, Output 5  
Var 0605, name APU_BOT_L, Link IOCARD_OUT, Device 14, Output 6 
Var 0606, name ENG2_OHT_L, Link IOCARD_OUT, Device 14, Output 2  
Var 0607, name L_BOT_L, Link IOCARD_OUT, Device 14, Output  1  
Var 0608, name R_BOT_L, Link IOCARD_OUT, Device 14, Output 0  

var 609, name Fire_2, Link FSUIPC_INOUT, Offset $94EC, Length 1
{
  IF &Fire_2 = 1
  {
  &ENG1_FIRE_SW_L = 1
  }
  ELSE
  {
  	IF &Fire_2 > 2
  	{
  	&ENG1_FIRE_SW_L = 1
  	}
  	ELSE
  	{
  	&ENG1_FIRE_SW_L = 0
  	}
  }
}
var 610, name Fire_3, Link FSUIPC_INOUT, Offset $94EE, Length 1
{
  IF &Fire_3 = 1
  {
  &APU_FIRE_SW_L = 1
  }
  ELSE
  {
 	IF &Fire_3 > 2
  	{
  	&APU_FIRE_SW_L = 1
  	}	
  	ELSE
  	{
  	&APU_FIRE_SW_L = 0
  	}
  }
}
var 611, name Fire_4, Link FSUIPC_INOUT, Offset $94ED, Length 1
{
  IF &Fire_4 = 1
  {
  &ENG2_FIRE_SW_L = 1
  }
  ELSE
  {
  	IF &Fire_4 > 2
  	{
  	&ENG2_FIRE_SW_L = 1
  	}
  	ELSE
  	{
  	&ENG2_FIRE_SW_L = 0
  	}
  }
}
var 613, name ENG1_FIRE_SW_L, Link IOCARD_OUT, Device 14, Output 15
var 614, name APU_FIRE_SW_L, Link IOCARD_OUT, Device 14, Output 14
var 615, name ENG2_FIRE_SW_L, Link IOCARD_OUT, Device 14, Output 13

Var 616, name FIRE2, Link FSUIPC_INOUT, Offset $9412, Length 1
{
 &ENG_EXT_L = TESTBIT &FIRE2 ,0
 &ENG_EXT_R = TESTBIT &FIRE2 ,0
 &ENG_EXT_APU = TESTBIT &FIRE2 ,0
}

Var 629, name ENG_EXT_L, Link IOCARD_OUT, Device 14, Output 12
Var 630, name ENG_EXT_R, Link IOCARD_OUT, Device 14, Output 10
Var 631, name ENG_EXT_APU, Link IOCARD_OUT, Device 14, Output 11

////////END ENGINE FIRE LIGHTS/////////

/////////ENGINE FIRE PANEL SWITCHES///////////
Var 632, name TST_FLT_INOP, Link IOCARD_SW, Device 14, Input 3   
{
    IF &TST_FLT_INOP = 1
    {
      &command = 531    
    }
}
Var 633, name TST_OVHT_FIRE, Link IOCARD_SW, Device 14, Input 2  
{
    IF &TST_OVHT_FIRE = 1
    {
      &command = 532    
    }
}
Var 634, name LOVHT_DET_A, Link IOCARD_SW, Device 14, Input 1    
{
    IF &LOVHT_DET_A = 1
    {
      &command = 522
      &LOVHT_DET_NORM = 0    
    }
    ELSE
    {
      &LOVHT_DET_NORM = 1
    }
}
Var 635, name LOVHT_DET_B, Link IOCARD_SW, Device 14, Input 0   
{
    IF &LOVHT_DET_B = 1
    {
      &command = 524    
      &LOVHT_DET_NORM = 0    
    }
    ELSE
    {
      &LoVHT_DET_NORM = 1
    }
}
Var 636, name LOVHT_DET_NORM
{
    IF  &LOVHT_DET_NORM = 1    
    {
      &command = 523
    }     
}
Var 637, name BELL_CUTOUT, Link IOCARD_SW, Device 14, Input 4    
{
    IF &BELL_CUTOUT = 1
    {
      &command = 530    
    }
}
Var 638, name ROVHT_DET_A, Link IOCARD_SW, Device 14, Input 6    
{
    IF &ROVHT_DET_A = 1
    {
      &command = 527
      &ROVHT_DET_NORM = 0    
    }
    ELSE
    {
      &ROVHT_DET_NORM = 1
    }
}
Var 639, name ROVHT_DET_B, Link IOCARD_SW, Device 14, Input 5    
{
    IF &ROVHT_DET_B = 1
    {
      &command = 529    
      &ROVHT_DET_NORM = 0    
    }
    ELSE
    {
      &ROVHT_DET_NORM = 1
    }
}
Var 640, name ROVHT_DET_NORM
{
    IF  &ROVHT_DET_NORM = 1    
    {
      &command = 528
    }     
}
Var 641, name EXT_TEST_1, Link IOCARD_SW, Device 14, Input 9  
{
    IF &EXT_TEST_1 = 1
    {
      &command = 542    
    }
}
Var 642, name EXT_TEST_2, Link IOCARD_SW, Device 14, Input 7    
{
    IF &EXT_TEST_2 = 1
    {
      &command = 543    
    }
}
Var 643, name 2_FIRE_PULL, Link IOCARD_SW, Device 14, Input 18   
{
    IF &2_FIRE_PULL = 0
    {
      &command = 539    
    }
    ELSE
    {
      &command = 539    
    }
}
Var 644, name 2_FIRE_LEFT, Link IOCARD_SW, Device 14, Input 16    
{
    IF &2_FIRE_LEFT = 1
    {
      &command = 540    
    }
}
Var 645, name 2_FIRE_RIGHT, Link IOCARD_SW, Device 14, Input 19   
{
    IF &2_FIRE_RIGHT = 1
    {
      &command = 541    
    }
}
Var 646, name APU_FIRE_PULL, Link IOCARD_SW, Device 14, Input 14    
{
    IF &APU_FIRE_PULL = 0
    {
      &command = 533    
    }
    ELSE
     {
      &command = 533    
    }
}
Var 647, name APU_FIRE_LEFT, Link IOCARD_SW, Device 14, Input 13   
{
    IF &APU_FIRE_LEFT = 1
    {
      &command = 534    
    }
}
Var 648, name APU_FIRE_RIGHT, Link IOCARD_SW, Device 14, Input 15    
{
    IF &APU_FIRE_RIGHT = 1
    {
      &command = 535    
    }
}
Var 649, name 1_FIRE_PULL, Link IOCARD_SW, Device 14, Input 11   
{
    IF &1_FIRE_PULL = 0
    {
      &command = 536    
    }
    ELSE
    {
      &command = 536    
    }
}
Var 650, name 1_FIRE_LEFT, Link IOCARD_SW, Device 14, Input 10    
{
    IF &1_FIRE_LEFT = 1
    {
      &command = 537    
    }
}
Var 651, name 1_FIRE_RIGHT, Link IOCARD_SW, Device 14, Input 12    
{
    IF &1_FIRE_RIGHT = 1
    {
      &command = 538    
    }
}

Var 652, name command, Link FSUIPC_INOUT, Offset $9400, Length 2