Attention, ce code (en NOIR) ne peut pas être utilisé en copier-collé à cause des explications (en JAUNE).
Pour que cela ne vous pose pas de souci rendez vous ICI pour retrouver le programme complet sans explication.

// *****************************************************************************
// * Config_SIOC ver 3.7B1   -     By Manolo Vélez    -    www.opencockpits.com
// *****************************************************************************
// * FileName : 100121 Le code sioc de p-apou.txt
// * Date : 19/07/2010



Var 0000, name iNITIALISATION
{
  CALL &Init_voyants     // Sub 0399
}

Var 0001, name BATTERY, Link FSUIPC_INOUT, Offset $3102, Length 1     // Commande  de courant
{
  &BATTERY = &BATTERY_SW   
 
  IF &BATTERY = 1     // Si il y a du courant
  {
    IF &L_ENG_START = 0     // Et moteur gauche n'est pas démarré
    {
      IF &R_ENG_START = 0     // Et moteur droit n'est pas démarré
      {
        &INVERTER_LED = 1         // Les Leds suivantes s'allument
      }
    }
  }
  CALL &Init_voyants     // Sub 0399
}



Var 0200, name KEYS, Link KEYS     // kEYBOARD EMULATION

Var 0302, name INVERTER, Link SUBRUTINE     // Alarme INVERTER 0404
{
  IF &BATTERY_SW = 1
  {
    IF &INVERTER_SW = 1
    {
      &INVERTER_LED = 0   
    }
    ELSE
    {
      &INVERTER_LED = 1   
    }
  }
  ELSE
  {
    &INVERTER_LED = 0   
  }
}

Var 0319, name EXT_POWER, Link SUBRUTINE     // Alarme EXT POWER
{
  L0 = &AVIONIC_SW + &INVERTER_SW
  L1 = &R_ENG_TORQUE + &R_GEN_SW
  L2 = L0 + L1
  L1 = &N_PKG_BRAKE - &N_ACFT_ON_GND     // Avion au sol et frein serré
  L0 = L1 + L2
  L1 = &L_ENG_TORQUE + &L_GEN_SW
  L2 = L0 + L1
  IF L2 = 0     // Les 6 inters Off et moteurs arrêtés
  {
    &EXT_PWR_LED = &BATTERY_SW   
  }
  ELSE
  {
    &EXT_PWR_LED = 0   
  }
}

Var 0399, name Init_voyants, Link SUBRUTINE     // Initialisation des sorties
{
  IF &BATTERY = 0
  {
    &INVERTER_LED = 0   
  }
  ELSE
  {
    CALL &INVERTER     // Sub 0302
  }
}


Var 0404, name INVERTER_SW, Link IOCARD_SW, Input 13     // Inter Inverter
{
  IF &INVERTER_SW = 1
  {
    &KEYS = 71         // génère un g pour Inverter ON
    &KEYS = 0   
  }
  ELSE
  {
    &KEYS = 71         // Génère un g pour Inverter OFF
    &KEYS = 0   
  }
  CALL &INVERTER     // Sub 0302 Alarme Inverter
  CALL &EXT_POWER     // Sub 0319 Eteindre EXT Power
}

Var 0709, name INVERTER_LED, Link IOCARD_OUT, Output 19     // Alarme rouge INVERTER


Rien de particulier : Switcht commandé par Key2mouse commande l'alame Inverter et EXT Power.