; Équivalences
  
  .equ PINA = 0x00
  .equ DDRA = 0x01
  .equ PORTA = 0x02

  .equ PINB = 0x03
  .equ DDRB = 0x04
  .equ PORTB = 0x05
  

  .equ SREG = 0x3F
  

  .equ WDTCSR = 0x60
  

  .equ EIMSK = 0x3D
  .equ EICRA = 0x69
  .equ EICRB = 0x6A
  

  .equ ADMUX = 0x7C
  .equ ADCSRB = 0x7B
  .equ ADCSRA = 0x7A
  .equ ADCH = 0x79
  

  .equ SPH = 0x3E
  .equ SPL = 0x3D
  
  ; Nommage des registres utilisés
  
  .def etat = r19

  .def reference = r20

  .def d3 = r20 ; Digit 3 (tout à gauche)
  .def d2 = r20 ; Digit 2
  .def d1 = r20 ; Digit 1
  .def d0 = r20 ; Digit 0 (tout à droite)

  .def compteur = r20 ; Utilisé pour différentes choses
  .def tempo = r20 ; Utilisé pour différentes choses mais très brièvement

  
  ; Vecteurs d'interruptions
  
  .org 0x000 ; Vecteur RESET
      jmp debut
  

  .org 0x0002 ; INT0
      jmp valider
  
  .org 0x0004 ; INT1
      jmp retour
  
  .org 0x0006 ; INT2
      jmp incrementer
  
  .org 0x0008 ; INT3
      jmp decrementer

  .org 0x0018 ; Watchdog
      jmp watchdog
  
  .org 0x003A ; ADC
      jmp adc
  
  

  .org 0x0080
  

  ; Tableaux de la mémoire du programme
  

  afficheurNombres:

      .DB 0x3F, 0x30, 0x6D, 0x79, 0x72, 0x5B, 0x5F, 0x31, 0x7F, 0x7B

      ;      0,    1,    2,    3,    4,    5,    6,    7,    8,    9
  
  ;afficheurLettres:
  ;    .DB ; TODO
  ;    ;      A,    B,    C,    D,    E,    F,    G,    H ; TODO

  
  ; Programme
  
  debut:
  ; Configuration des composants

      SREG <- 0b10000000
  

      ; Watchdog

      WDTCSR <- 0b00010000
      WDTCSR <- 0b01000111

      ; Interruptions externes
      EIMSK <- 0b00001111
      EICRA <- 0b11111111 ; TODO Oscillations annulables ?
      EICRB <- 0b00000000
  
      ; ADC

      ADMUX <- 0b01110000
      ADCSRB <- 0b00001011
      ADCSRA <- 0b10011101 ; TODO Auto-trigger ?

      sei

  ; Initialisation des valeurs
  
  boucle:
      sleep
      jmp boucle
  
  ; Fonctions

  afficherHeure:
      ; Affiche l'heure actuelle
      temp <- 
      ret
  
  
  afficherTemperature:
      ; Considère le registre compteur comme une température et l'affiche
      d0 <- 0x63 ; Sigle °
      d1 <- afficheur[compteur%10]
      temp <- compteur + 50
      d2 <- afficheur[(temp/10)%10]
      d3 <- afficheur[temp/100]
      ret
  

  agir10s:
      ; Initialise une lecture ADC
      ; Met à jour l'état de veille (si on est en état veille)
      ret
  
  agirHeure:
      ; Recharge la température de référence
      ret
  
  ; Interruption boutons
  
  incrementer:
      reti
  
  decrementer:
      reti
  
  valider:

      si mode <= 1 saut validerVeille
      si mode = 2 saut validerAssoc
      si mode <= 9 saut validerAJour
      si mode <= 16 saut validerParaAJour
      si mode = 17 saut validerTJour
      si mode = 18 saut validerParaTJour
      si mode = 19 saut validerTNuit
      si mode = 20 saut validerParaTNuit
      si mode = 21 saut validerHorloge
      si mode <= 24 saut validerMenuHorloge
      si mode <= 27 saut validerParaHorloge
      reti
      ; TODO Affichages
  validerVeille:
      mode <- 2
  validerAssoc:
      mode <- 3
  validerAJour:
      mode <- mode + 7
      reti
  validerParaAJour:
      ; TODO
      reti
  validerTJour:
      mode <- 18
      reti
  validerParaTJour:
      ; TODO
      mode <- 17
      reti
  validerTNuit:
      mode <- 20
      reti
  validerParaTNuit:
      ; TODO
      mode <- 19
      reti
  validerHorloge:
      mode <- 22
      reti
  validerMenuHorloge:
      mode <- mode + 3
      reti
  validerParaHorloge:
      mode <- mode - 3

      reti
  
  retour:
      reti
  
  ; Interruption Watchdog
  watchdog:
      ; Met à jour les registres de temps, active agir10s ou agirHeure si nécessaire
      reti
  
  ; Interruption ADC
  adc:

      si ADCH > reference + 5 saut eteindreChaudiere
      si ADCH < reference - 5 saut allumerChaudiere
      reti
  allumerChaudiere:
      PORTC <- 0x01
      reti
  eteindreChaudiere:
      PORTC <- 0x00

      reti
  
  ; Interruption timer
  timer:
      ; Affiche le digit suivant sur l'afficheur 7seg
      reti