; É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 TTCR0A = 0x24 .equ TTCR0B = 0x25 .equ TMSK0 = 0x6e .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 = r0 .def reference = r1 ; Température de référence actuelle .def d3 = r2 ; Digit 3 (tout à gauche) .def d2 = r3 ; Digit 2 .def d1 = r4 ; Digit 1 .def d0 = r5 ; Digit 0 (tout à droite) .def compteur = r6 ; Utilisé pour modifier des valeurs dans le menu .def temp = r7 ; Utilisé pour différentes choses mais très brièvement .def t2 = r8 ; Jour (3 premiers bits) et Heure (5 derniers bits) .def t1 = r9 ; Minutes .def t0 = r10 ; Secondes / 2 .def afficheur = r11 ; Digit en cours d'affichage ; 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 0x002E ; Timer jmp timer .org 0x003A ; ADC jmp adc .org 0x0080 ; Tableaux de la mémoire du programme afficheur: .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 ; Timer TTCR0A@IO <- 0b00000001 TTCR0B@IO <- 0b00000011 TMSK0@IO <- 0b00000001 ; 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 t2 <- 0b01001100 ; Mercredi 12h34'56 t1 <- 34 t0 <- 28 afficheur <- 0b00000001 etat <- 0 call afficherHorloge 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 d3 <- 0x77 d2 <- 0x5b d1 <- 0x5b d0 <- 0x5c 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 d3 <- 0x3c d2 <- 0x5c d1 <- 0x1c d0 <- 0x44 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 d3 <- 0x54 d2 <- 0x1c d1 <- 0x04 d0 <- 0x4e 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 d3 <- 0xf6 d2 <- 0x5c d1 <- 0x44 d0 <- 0x0E reti etatMenuHJour: etat <- 22 d3 <- 0x3c d2 <- 0x5c d1 <- 0x1c d0 <- 0x44 reti etatMenuHHeur: etat <- 23 d3 <- 0xf6 d2 <- 0xcf d1 <- 0x1c d0 <- 0x44 reti etatMenuHMinu: etat <- 24 d3 <- 0x37 d2 <- 0x04 d1 <- 0x54 d0 <- 0x1c 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 lsl afficheur si afficheur > 0b00001000 alors selafficheur <- 0b00000001 PORTC@IO <- 0xff - afficheur si afficheur = 0b00000001 alors PORTA@IO <- d0 si afficheur = 0b00000010 alors PORTA@IO <- d1 si afficheur = 0b00000100 alors PORTA@IO <- d2 si afficheur = 0b00001000 alors PORTA@IO <- d3 reti