; É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 0x3F, 0x30, 0x6D, 0x79, 0x72, 0x5B, 0x5F, 0x31, 0x7F, 0x7B, 0x77, 0x40, 0x4c, 0xfc, 0xcf, 0xc7, 0x40, 0xf6, 0x04, 0x3c, 0x40, 0x0E, 0x37, 0x54, 0x5c, 0x40, 0x40, 0x44, 0x5b, 0x4e, 0x1c, 0x1c, 0x40, 0x40, 0x40, 0x40, 0x63
      ;      0,    1,    2,    3,    4,    5,    6,    7,    8,    9,    a,    b,    c,    d,    e,    f,    g,    h,    i,    j,    k,    l,    m,    n,    o,    p,    q,    r,    s,    t,    u,    v,    w,    x,    y,    z,    °

  
  ; 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 <- afficheurLettre[26] ; 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:

      si etat <= 1 saut reti
      si etat = 2 saut etatMenuJour
      si etat < 9 saut etatPlusUn
      si etat = 9 saut etatLundi
      si etat = 17 saut etatMenuNuit
      si etat = 18 saut TODO
      si etat = 19 saut etatMenuHorloge
      si etat = 20 saut TODO
      si etat = 21 saut etatMenuAssoc
      si etat < 24 saut etatPlusUn
      si etat = 24 saut etatMenuHorlogeJour

      reti
  
  decrementer:

      si etat <= 1 saut reti
      reti
  
  etatMenuAssoc:
      etat <- 2
      reti
  etatMenuJour:
      etat <- 17
      reti
  etatMenuNuit:
      etat <- 19
      reti
  etatMenuHorloge
      etat <- 21
      reti
  etatPlusUn:
      etat <- etat + 1
      reti
  etatLundi:
      etat <- 3
      reti
  etatMenuHorlogeJour:
      etat <- 22
      reti
  reti:

      reti
  
  valider:

      si etat <= 1 saut validerVeille
      si etat = 2 saut validerAssoc
      si etat <= 9 saut validerAJour
      si etat <= 16 saut validerParaAJour
      si etat = 17 saut validerTJour
      si etat = 18 saut validerParaTJour
      si etat = 19 saut validerTNuit
      si etat = 20 saut validerParaTNuit
      si etat = 21 saut validerHorloge
      si etat <= 24 saut validerMenuHorloge
      si etat <= 27 saut validerParaHorloge

      reti
      ; TODO Affichages
  validerVeille:

      etat <- 2

  validerAssoc:

      etat <- 3

  validerAJour:

      etat <- etat + 7

      reti
  validerParaAJour:
      ; TODO
      reti
  validerTJour:

      etat <- 18

      reti
  validerParaTJour:
      ; TODO

      etat <- 17

      reti
  validerTNuit:

      etat <- 20

      reti
  validerParaTNuit:
      ; TODO

      etat <- 19

      reti
  validerHorloge:

      etat <- 22

      reti
  validerMenuHorloge:

      etat <- etat + 3

      reti
  validerParaHorloge:

      etat <- etat - 3

      reti
  
  retour:

      si etat <= 1 saut retourRien
      si (etat = 2 ou etat = 17 ou etat = 19 ou etat = 21) saut retourVeille
      si etat <= 9 saut retourMenuAssoc
      si etat <= 16 saut retourMenuJAssoc
      si etat <= 21 saut retourMoinsUn
      si etat <= 24 saut retourMenuHorloge
      si etat <= 27 saut retourMenuMenuHorloge

  retourRien:
      reti
  retourVeille:

      etat <- 0

      reti
  retourMenuAssoc:

      etat <- 2

      reti
  retourMenuJAssoc:

      etat <- etat - 7

      reti
  retourMoinsUn:

      etat <- etat - 1

      reti
  retourMenuHorloge:

      etat <- 21

      reti
  retourMenuMenuHorloge:

      etat <- etat - 3

      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