; É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 modifier des valeurs dans le menu
  .def temp = r20 ; Utilisé pour différentes choses mais très brièvement
  .def t2 = r20 ; Jour (3 premiers bits) et Heure (5 derniers bits)
  .def t1 = r20 ; Minutes
  .def t0 = r20 ; Secondes / 2

  
  ; 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

  
  ; Affichages
  afficherHorloge:

      ; Affiche l'heure actuelle

      temp <- t2 & 0b00011111
      d3 <- 0x00
      si temp > 10 alors d3 <- afficheur[temp/10]
      d2 <- afficheur[temp%10] | 0b10000000
      d1 <- afficheur[t2/10]
      d0 <- afficheur[t2%10]

      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] | 0b10000000

      d3 <- afficheur[temp/100]
      ret
  

  afficherHeur:
      ; Considère le registre compteur comme une heure et l'affiche
      d3 <- afficheur[compteur/10]
      d2 <- afficheur[compteur%10] | 0b100000000
      d1 <- 0x00
      d0 <- 0x00
      ret
  
  afficherMinu:
      ; Considère le registre compteur comme une minute et l'affiche
      d3 <- 0x00
      d2 <- 0b10000000
      d1 <- afficheur[compteur/10]
      d0 <- afficheur[compteur%10]
      ret
  
  afficherJour:

      ; Considère le registre compteur comme un jour et l'affiche

      ; TODO
      ret
  
  ; Logique

  agir10s:
      ; Initialise une lecture ADC
      ; Met à jour l'état de veille (si on est en état veille)

      ; TODO

      ret
  

  agirHeur:

      ; Recharge la température de référence

      ; TODO

      ret
  

  ; Recadrage
  boundHeur:
      si compteur =  255 alors compteur <- 23
      si compteur >= 24  alors compteur <- 0
      ret

  boundMinu:
      si compteur =  255 alors compteur <- 59
      si compteur >= 60  alors compteur <- 0
      ret
  
  boundJour:
      si compteur = 255 alors compteur <- 6
      si compteur >= 7  alors compteur <- 0
      ret
  
  boundTemperature:
      si compteur < 5   alors compteur <- 5
      si compteur > 200 alors compteur <- 200
      ret
  

  reti:
      reti
  

  ; États
  ; × : Arrivée à l'état par un niveau supérieur
  ; R : Arrivée à l'état par un niveau inférieur
  ; U : Mise à jour de l'affichage
  ; C : Changement de l'état
  
  etatVeilleHeur:
      etat <- 0
      call afficherHorloge

      reti
  

  etatVeilleTemp:
      etat <- 0
      compteur <- ADCH
      call afficherTemperature

      reti
  
  etatMenuAssoc:
      etat <- 2

      d <- "ASSO"

      reti
  

  etatMenuJours:
      compteur <- 0
  etatMenuJoursU:
      etat <- 3 + compteur
      call afficherJour

      reti

  
  etatMenuJoursR:
      compteur <- etat - 7 - 3
      jmp etatMenuJoursU
  
  etatMenuJoursC:
      call boundJour
      jmp etatMenuJoursU
  
  etatParaJours:

      etat <- etat + 7

      compteur <- 12
  etatParaJoursU:
      d3 <- afficheur[compteur/10]
      d2 <- afficheur[compteur%10]
      d1 <- 0x00
      d0 <- 0xFF ; TODO Récupérer le mode

      reti

  
  etatParaJoursC:
      call boundHeur
      jmp etatParaJoursU
  
  etatParaJoursS: ; Switch
      ; TODO Sauvegarde
      jmp etatParaJoursU
  
  etatMenuTJour:
      etat <- 17
      d <- "JOUR"

      reti

  
  etatParaTJour:

      etat <- 18

      compteur <- 0 ; TODO Récupérer la température
  etatParaTJourU:
      call afficherTemperature

      reti

  
  etatParaTJourC:
      call boundTemperature
      ; TODO Sauvegarde
      jmp etatParaTJourU
  
  etatMenuTNuit:
      etat <- 19
      d <- "NUIT"

      reti

  
  etatParaTNuit:

      etat <- 20

      compteur <- 0 ; TODO Récupérer la température
  etatParaTNuitU:
      call afficherTemperature

      reti

  
  etatParaTNuitC:
      call boundTemperature
      ; TODO Sauvegarde
      jmp etatParaTNuitU
  
  etatMenuHorloge:
      etat <- 21
      d <- "HORL"

      reti

  
  etatMenuHJour:

      etat <- 22

      d <- "JOUR"

      reti

  
  etatMenuHHeur:
      etat <- 23
      d <- "HEUR"

      reti

  
  etatMenuHMinu:
      etat <- 24
      d <- "MINU"

      reti
  

  etatParaHJour:
      etat <- 25
      compteur <- 0 ; TODO Récupérer le jour
      call afficherJour

      reti

  
  etatParaHJourC:
      call boundJour
      ; TODO Sauvegarde
      call afficherJour

      reti

  
  etatParaHHeur:
      etat <- 26
      compteur <- 0 ; TODO Récupérer l'heure
      call afficherHeur

      reti

  
  etatParaHHeurC:
      call boundHeur
      ; TODO Sauvegarde
      call afficherHeur

      reti

  
  etatParaHMinu:
      etat <- 27
      compteur <- 0 ; TODO Récupérer la minute
      call afficherMinu

      reti

  
  etatParaHMinuC:
      call boundMinu
      ; TODO Sauvegarde
      call afficherMinu

      reti

  
  ; Interruption boutons
  
  incrementer:
      inc compteur
      si etat =   0 saut etatVeilleHeur
      si etat =   1 saut etatVeilleTemp
      si etat =   2 saut etatMenuTJour
      si etat <=  9 saut etatMenuJoursC
      si etat <= 16 saut etatParaJoursC
      si etat =  17 saut etatMenuTNuit
      si etat =  18 saut etatParaTJourC
      si etat =  19 saut etatMenuHorloge
      si etat =  20 saut etatParaTNuitC
      si etat =  21 saut etatMenuAssoc
      si etat =  22 saut etatMenuHHeur
      si etat =  23 saut etatMenuHMinu
      si etat =  24 saut etatMenuHJour
      si etat =  25 saut etatParaHJourC
      si etat =  26 saut etatParaHHeurC
      si etat =  27 saut etatParaHMinuC
      reti ; Ne devrait pas arriver, mais permet d'éviter les dégâts
  
  decrementer:
      dec compteur
      si etat =   0 saut etatVeilleHeur
      si etat =   1 saut etatVeilleTemp
      si etat =   2 saut etatMenuHorloge
      si etat <=  9 saut etatMenuJoursC
      si etat <= 16 saut etatParaJoursC
      si etat =  17 saut etatMenuAssoc
      si etat =  18 saut etatParaTJourC
      si etat =  19 saut etatMenuTJour
      si etat =  20 saut etatParaTNuitC
      si etat =  21 saut etatMenuTNuit
      si etat =  22 saut etatMenuHMinu
      si etat =  23 saut etatMenuHJour
      si etat =  24 saut etatMenuHHeur
      si etat =  25 saut etatParaHJourC
      si etat =  26 saut etatParaHHeurC
      si etat =  27 saut etatParaHMinuC
      reti ; Ne devrait pas arriver, mais permet d'éviter les dégâts
  
  valider:
      si etat <=  1 saut etatMenuAssoc
      si etat =   2 saut etatMenuJours
      si etat <=  9 saut etatParaJours
      si etat <= 16 saut etatMenuJoursS
      si etat =  17 saut etatParaTJour
      si etat =  18 saut etatMenuTJour
      si etat =  19 saut etatParaTNuit
      si etat =  20 saut etatMenuTNuit
      si etat =  21 saut etatMenuHJour
      si etat =  22 saut etatParaHJour
      si etat =  23 saut etatMenuHJour
      si etat =  24 saut etatParaHHeur
      si etat =  25 saut etatMenuHHeur
      si etat =  26 saut etatParaHMinu
      si etat =  27 saut etatMenuHMinu
      reti ; Ne devrait pas arriver, mais permet d'éviter les dégâts
  
  retour:

      si etat <=  1 saut reti

      si etat =   2 saut etatVeilleHeur
      si etat <=  9 saut etatMenuAssoc
      si etat <= 16 saut etatMenuJoursR
      si etat =  17 saut etatVeilleHeur
      si etat =  18 saut etatMenuTJour
      si etat =  19 saut etatVeilleHeur
      si etat =  20 saut etatMenuTNuit
      si etat =  21 saut etatVeilleHeur
      si etat <= 24 saut etatMenuHorloge
      si etat =  25 saut etatMenuHJour
      si etat =  26 saut etatMenuHHeur
      si etat =  27 saut etatMenuHMinu
      reti ; Ne devrait pas arriver, mais permet d'éviter les dégâts
  

  ; Interruption Watchdog
  watchdog:

      ; Met à jour les registres de temps, active agir10s ou agirHeur si nécessaire

      inc t0
      si t0 % 5 != 0 saut reti ; Continue si on est sur un multiple de 10 secondes
      call agir10s
      si t0 < 30 saut reti ; Continue si on est sur un multiple de 60 secondes
      t0 <- 0
      inc t1
      si t1 < 60 saut reti ; Continue si on est sur un multiple de 60 minutes
      t1 <- 0
      inc t2
      si t2 & 0b00011111 >= 7 saut watchdogHeure ; Continue si il est minuit
      t2 <- t2 + 0b00100000 ; Jour suivant
      t2 <- t2 & 0b11100000 ; Heure à minuit
      si t2 >= 0b11100000 t2 <- 0b00000000 ; Si on est dimanche soir, on revient à lundi matin
  watchdogHeure:
      call agirHeure

      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