EFREIProjet Systèmes NumériquesImplémentation logicielle d’un fréquencemètre sur un HC11SAYADA - SASPORTAS08/06/20129004302751455Table des matières TOC \o "1-3" \h \z \u Question 0 PAGEREF _Toc326610774 \h 2Question 1 PAGEREF _Toc326610775 \h 2Question 2 PAGEREF _Toc326610776 \h 3Question 3 PAGEREF _Toc326610777 \h 4Question 4 PAGEREF _Toc326610778 \h 6Question 5 PAGEREF _Toc326610779 \h 7Question 6 PAGEREF _Toc326610780 \h 9IntroductionImplémentation logicielle d’un fréquencemètre sur un HC11(compteur 16 bits, TCNT)Comparaison des différentes méthodes de programmation d’un fréquencemètre, avec affichage LCDUtilisation du port série ordinateurLogiciel AxIDELangage assembleurPROGRAMMATION D’UNE E/S PAR SCRUTATION : LE POLLINGQuestion 0Le Polling ?En anglais, poll signifie « sondage ». Dans notre cas, le principe est assez simple, on scrute en permanence l’arrivée du premier front du signal. On attend un second de même nature, et une fois ceci fait, on en déduit la période. En voici un exemple :But de nos manipulationsAvec la méthode de Polling, on chercher à compter les fronts à l’aide du TCNT, qui est le compteur 16 bits HC11. On va donc chercher à savoir si les cycles de l’horloge du CPU et celle du TCNT son synchronisées. Ainsi, on pourra définir la durée d’une période.Applications et mesuresCyclesOn cherche tout d’abord dans la documentation, qui nous indique qu’un cycle dure 0,5 µs et que la fréquence du TCNT est définie en fonction du CPU. A l’appel du TCNT on choisit si l’on divise la fréquence par 2,4,8, ou plus en modifiant les valeurs de PR1 et PR0 dans le registre. Dans notre cas on utilise la valeur de la division par défaut :1. Le cycle du TCNT est donc égal à celui du CPU.Après avoir assemblé le programme avec l’option de comptage des cycles machines et exécuté le programme, notre fichier LST nous donne :0001 100e TCNTequ$100E0002 2000 org$20000003 2000 fe 10 0e [ 5 ] ldxTCNT0004 2003 01 [ 2 ] nop0005 2004 18 fe 10 0e [ 6 ] ldyTCNT0006 2008 39 [ 5 ] rtsFichier LST ?Le fichier LST est celui qui nous donne les adresses, le code machine, les opérandes, et la source. Il indique les éventuelles erreurs.On remarque que seulement 1 cycle sépare les fins de chargements de ldx et ldy. Le nombre de cycle est inscrit entre les crochets.On fait une mesure du nombre de cycles entre 2 chargements. Le programme commence à l’adresse 2000 et l’on fait deux « load » de la valeur du TCNT. Le compteur va alors s’incrémenter entre la mémorisation du registre x et y. En faisant la différence, on trouve le nombre d’incrémentations.Entre la fin des deux chargements, il y a 8 cycles(2 pour « nop » et 6 pour « ldy »), soit environ 4 µs.Vérifions à présent ce résultat en comparant les valeurs des registres X et Y.En faisant CALL 2000, on relève l’état des registres X et Y. Le registre Y donne 489A et le registre X donne 4892.En décimal, le registre Y :489A]16=18586]10En décimal, le registre X : 4892]16=18578]10La différence d’Y-X vaut 8.Nous avons donc 8 cycles.Le TCNT a une période par horloge de 500 ns, d’où une fréquence de 2MHz également.(celle du CPU)Ainsi, le rapport entre l’horloge du CPU et celui du TCNT est de 1. Question 1Durée d’un processusOn sait maintenant mesurer la durée d’une instruction sachant que le cycle du TCNT est égal à celui du CPU, et qu’un cycle a une durée de 0,5µs. Interessons nous maintenant à la durée d’un processus. Le 68HC11 n’effectue pas par défaut de soustraction entre les registres X et Y, il va falloir alors réaliser un programme qui va stocker la valeur initiale du TCNT dans les deux premiers octets de 2000, et dans un second temps charger de nouveau la valeur du TCNT afin de la comparer avec la valeur stockée précédemment. Le résultat sera alors mit dans les deux octets suivants en $2000.Après assemblage du programme, nous obtenons le fichier .lst suivant :0001 100e TCNTequ$100E0002 0003 2000 org$20000004 2000 initialrmb20005 2002 deltarmb20006 0007 0008 2050 org$20500009 0010 2050 fc 10 0e [ 5 ] lddTCNT0011 2053 fd 20 00 [ 5 ] stdinitial0012 0013 2056 fc 10 0e [ 5 ] lddTCNT0014 2059 b3 20 00 [ 6 ] subdinitial0015 205c fd 20 02 [ 5 ] stddelta0016 0017 205f 39 [ 5 ] rtsLes deux opérations de chargement nous donnent 5 comme cycle, ainsi 10 cycles entre les deux chargements. On va déterminer si cette valeur est bien présente dans le résultat de la soustraction, qui, comme rappelé ci-dessus, est stocké sur 2 octets aux adresses 2002 et 2003.Différence77851030022800On trouve alors 000A]16=10]10On obtient bien le résultat souhaité. Par la même occasion, on observe une erreur de 5 cycles. Le comptage se déroule entre les deux appels de TCNT, et ainsi le temps de l’instruction « std initial » est en trop, ce qui nous ramène à cette erreur de 5 cycles.Mesure d’une périodeIl s’agit maintenant de de réaliser la mesure. Pour cela il faut rechercher les registres acteurs pour les entrées PA0, PA1 et PA2.On va alors chercher dans la documentation du timer :On distingue bien dans le schéma fonctionnel du timer trois registres : PA2, PA1 et PA0 dont voici les caractéristiques.PA2 : TFLG avec le bit IC1F, TIC1, TMSK1 avec le bit IC1IPA1 : TFLG avec le bit IC2F, TIC2, TMSK1 avec le bit IC2IPA0 : TFLG avec le bit IC3F, TIC3, TMSK1 avec le bit IC3IVoici l’organigramme du programme à compléter :Le registre participant à l’opération est le registre de contrôle TCTL2Le front actif est initialisé avec &10 donc c’est un front descendantL’entrée sélectionnée est PA2Le registre participant à l’opération est le registre de signalisation TFLG1Il est chargé dans l’accumulateur A pour servir de masque au ET logiqueBit de signalisation testé : IC1FNon(=0) Oui(=1)Le registre de capture qui participe à l’opération est TOCXLa date d’arrivée sera stockée aux adresses 2050 et 2051Le registre participant à l’opération est TFLG1Il est chargé dans l’accumulateur A pour servir de masque au ET logique.Bit de signalisation testé : IC1FNon(=0) Oui(=1)La valeur de la période calculée sera aux adresses 2052 et 2053Registre : TIC1-410845327660Polarité : DescendanteEntrée : PA2 (cf schéma TCTL2)Registre : TFLG1Active IC1F(flag) [0000 0100]2INTERRUPTIONVoici le programme que l’on va exécuter, commentons le ligne par ligne :TIC1equ$1010//On donne le nom « TIC1 » à l’adresse 1010TFLG1equ$1023//On donne le nom « TGLG1 » à l’adresse 1023TCTL2equ$1021//On donne le nom « TCTL2 » à l’adresse 1021org$2050//Le programme commence en RAM à l’adresse 2050frontrmb2//On réserve 2 octets en mémoire pour frontperiodrmb2//On réserve 2 octets en mémoire pour periodED1bafcb$10//On crée une variable ED1ba de valeur $10org$2100//On se place à l’adresse 2100ldabED1ba//On charge ED1ba dans le registre bstabTCTL2//On copie la valeur de l’accumulateur b dans TCTL2ldaaTFLG1//On charge TFLG1 dans le registre aanda#$04//ET logique entre l’accu. A et la valeur argumentstaaTFLG1//On copie la valeur de l’accumulateur a dans TFLG1lire1ldaaTFLG1//On charge TFLG1 dans le registre aanda#$04//ET logique entre l’accu. A et la valeur argumentbeqlire1//Branch EQual: branche dans le cas où le résultat de l’opération précédente est égal à zéro suite1lddTIC1stdfrontldaaTFLG1//On charge dans l’accu. a TFLG1anda#$04//ET logique entre l’accu. a et la valeur argumentstaaTFLG1//On copie la valeur de l’accumulateur a dans TFLG1lire2ldaaTFLG1//On charge dans l’accu. a TFLG1anda#$04//ET logique entre l’accu. a et la valeur argumentbeqlire2//Branch EQual: branche dans le cas où le résultat de l’opération précédente est égal à zéro suite2lddTIC1subdfront stdperiodrtsIl y a 29 cycles machines qui séparent les deux opérations de chargement dans l’accumulateur D.On trouve ci-dessus le résultat de la compilation, soit le fichier LST, qui nous affiche le nombre de cycles.Question 4Il s’agit maintenant de tester la méthode avec différentes fréquences en cherchant les limites, pour des fréquences de 40 à 40 kHz.On branche la sonde sur le fréquencemètre. (PA2 et GND)F(Hz)Polling (nombre de cycles)Période(s)Fréquence(Hz)40C35F = 500150,025007539,98800361004E18 = 199920,009996100,0400164001388 = 50000,0025400100007CF = 19990,00099951000,50025400001F4 = 5000,0002540001000000C8 = 2000,000110000400000032 = 500,00002540000Période = Cycles*0.5 µsFréquence = 1/PeriodeAfin de connaitre le Polling, on relève les registres A et B.Un exemple d’appel « CALL » à l’adresse 2100 pour 40Hz : Et pour les autres…Pour le tableau de données précédent, en échelle logarithmique (log-log), on trace de graphique suivant, qui représente l’évolution du nombre de cycle par rapport à la fréquence.La notice nous donne un temps de cycle machine de 0,5 us.La courbe obtenue est en fait décroissante. En effet, la période étant inversement proportionnelle à la fréquence, lorsque la fréquence augmente, la période diminue.On retrouve bien les fréquences, le fonctionnement du fréquencemètre est ainsi vérifié.La limite de HF est 69kHz correspondant au nombre de cycle inférieur au nombre de cycle machine. Au minimum, le programme exécute 29 cycles, et nous savons qu’un cycle est de 500 ns, on obtiendra alors le temps d’exécution minimal, et d’où la fréquence maximale possible en entrée :(29 cycles de 0.5 ms soit 1.45*10^-5 contre 1.54*10^-5 pour 65 kHz) 30 Polling 001Efmax=1T=129 .(1 cycle)=129*5.10-7= 69 kHzAu dela de 69 kHz, le Timer émet trop d’erreur et calcule trop lentement.Au maximum, sur 16 bits, on ne peut dépasser FFFF, ainsi on aura 65535 cycles :Ainsi, pour FFFF]16 cycles :fmin=1T=1FFFF .(1 cycle) =165 535*5.10-7≈31 HzAu-dessous de cette valeur, la valeur codée sur 16 bits sera erronée (overflow).PROGRAMMATION D’UNE E/S PAR INTERRUPTIONOn teste ici notre deuxième méthode : l’interruption.L’interruptionLe principe de cette méthode est de créer une notion d’ « événementiel », d’un événement qui « interrompt » le fonctionnement normal. Le programme est interrompu lors de l’arrivée d’un premier front et en déduit directement la période à l’arrivée du second front.Application de la méthode et mesuresPour réaliser les mesures, nous utilisons les registres TIC1, TFLG1, TMSK1 et TCTL2, soit au final l’entrée PA2. On va dans un premier temps commencer par apprendre à utiliser l’interruption pour ensuite l’appliquer.Interruption du programmeNotre programme tourne indéfiniment dans la boucle infinie suivante :ldd#$0000;std$2000braboucle;On réitère ici le chargement du contenu à l’adresse 0.Cependant, on crée un évènement qui va interrompre cette boucle :sei;lds#$0200ldabED1bastabTCTL2ldaaTFLG1anda#$04staaTFLG1ldaa#$04;staaTMSK1;cli;On appelle cela l’événement d’interruption. Les fonctions « sei » et « cli » sont des fonctions permettant l’activation et la désactivation de l’option d’interruption. Elles modifient la valeur du bit 1 dans le registre CCR.Au moment où il y a un signal en entrée de PA2, on écrit à l’adresse $00E8 ; le programme va alors quitter sa boucle infinie et à l’aide de la commande « jump » on va exécuter la partie « issprog ».Le vecteur d’interruption : Le FLAG passe à 1, on sort alors de la boucle infinie et on se rend en une adresse préféinieorg $00E8 jmp issprogVoici le sous-programme d’interruption, qui est exécuté à l’appel d’ « issprog ».issprogldd#$ACDC;std$2000;Complétons maintenant l’organigramme :N, valeur de déclenchement mise à 2Si N non nul :Récupération front 1Décrémentation nCopie/Sauvegarde du front 1Organigramme :Initialisations, configurations : Autorisation des interruptions pour PA2 et les enregistrements du Timer se feront dans TIC1On boucle tant que N != 0rtiSous-programme d’interruptionChargement de $ACDC à l’adresse $2000Requête d’interruption : Évènement extérieur auprogramme principalBoucle infinieSi N nul :On récupère le front 2On fait la différence avec le front 1On obtient la périodeOn va relever l’état de la mémoire aux adresses 2000 et 00E8 avant et après l’exécution :AdressesAvant interruptionAprès interruption00E82000On lance une première fois le programme, sans brancher l’alimentation sur l’entrée PA2, on obtient les valeurs 6F et F5 aux adresses 2000/2001, ainsi il n’y a pas d’interruption. À contrario, si on applique une tension, la valeur change et l’on obtient bien ACDC, on a donc réussi à faire une interruption ! La valeur contenue à l’adresse $00E8 elle ne change pas ; elle vaut E3 et 71 dans les deux cas, ce qui est normal./!\ Messieurs ACDC, plus d’interruption SVP !! Mesure d’une périodeLe principe du programme est le suivant : le programme commence par des initialisations/configurations, il rentre ensuite dans une boucle infinie qui ne s’arrête que s’il y a une interruption. Le programme exécute alors un sous-programme, puis de nouveau on retourne dans cette boucle infinie.Le programme est le suivant :TIC1equ$1010//TIC1 se situe à l’@ 1010 TFLG1equ$1023//TFLG1 se situe à l'@ 1023 TCTL2equ$1021//TCTL2 se situe à l'@ 1021 TMSK1equ$1022;//TMSK1 se situe à l'@ 1022org $2050//On se positionne a l'@ 2050front rmb 2//On réserve 2 octets pour frontperiod rmb 2//On réserve 2 octets pour periodED1ba fcb $10//Activation fronts descendantsorg $00E8 jmp issprogorg $2100//On se positionne à l'@ 2100sei;//début des interruptionslds #$0200ldabED1bastabTCTL2ldaaTFLG1anda#$04 staa TFLG1ldaa #$04; staa TMSK1 ;cli ;//Fin des interruptions ldd #$0000;//Place "0"std $2000//à l'adresse 2000bouclebra boucle;//en boucleissprog ldd #$ACDC;//place "ACDC"std $2000;//à l'adresse 2000rti//retourne au programmeSEANCE 2 :Question 11Afin d’afficher les caractères, on nous donne deux sous programmes « longue » et « courte » qui permettent une temporisation pour la mise à jour de l’affichage. On s’intéresse ici au nombre de cycles qu’on obtient avec l’option de comptage :Nous avons deux boucles avec de nombreuses itérations : 50000 et 1000 ; il faut donc modifier leur durée. Pour afficher octet par octet, on se restreint à un passage par boucle. A l’aide de l’exécution pas à pas, on en déduit les étapes :Initialisation écran (LCDCMD)Rafraichissement (CLRCH)Affichage curseur (DCBON)Resteindre déplacement (CINSHOF)Avancer position de 1 vers la droite (SCHR)Déclarer position actuelle comme initiale (CSRHROM)Courte : 40 µsLongue : 1.65 msLST0001 b5f0 LCDCMDequ$b5f00002 b5f1 LCDDATequ$b5f10003 0004 003c L4xC20equ $3c * 4x200005 0001 CLRCHequ$010006 000f DCBONequ$0f0007 0006 CINSHOFequ$060008 0014 SCSHRequ$140009 0002 CSRHOMequ$020010 0011 2100 ORG$21000012 0013 2100 86 3c [ 2 ] initldaa#L4xC200014 2102 b7 b5 f0 [ 4 ] staaLCDCMD0015 2105 bd 21 30 [ 6 ] jsrlongue0016 2108 86 01 [ 2 ] ldaa#CLRCH0017 210a b7 b5 f0 [ 4 ] staaLCDCMD0018 210d bd 21 30 [ 6 ] jsrlongue0019 2110 86 0f [ 2 ] ldaa#DCBON0020 2112 b7 b5 f0 [ 4 ] staaLCDCMD0021 2115 bd 21 37 [ 6 ] jsrcourte0022 2118 86 06 [ 2 ] ldaa#CINSHOF0023 211a b7 b5 f0 [ 4 ] staaLCDCMD0024 211d bd 21 37 [ 6 ] jsrcourte0025 2120 86 14 [ 2 ] ldaa#SCSHR0026 2122 b7 b5 f0 [ 4 ] staaLCDCMD0027 2125 bd 21 37 [ 6 ] jsrcourte0028 2128 86 02 [ 2 ] ldaa#CSRHOM0029 212a b7 b5 f0 [ 4 ] staaLCDCMD0030 212d bd 21 37 [ 6 ] jsrcourte0031 *0032 2130 ce c3 50 [ 3 ] longueldx#500000033 2133 09 [ 3 ] loop_ldex0034 2134 26 fd [ 3 ] bneloop_l0035 2136 39 [ 5 ] rts0036 *0037 2137 ce 03 e8 [ 3 ] courteldx#10000038 213a 09 [ 3 ] loop_cdex0039 213b 26 fd [ 3 ] bneloop_c0040 213d 39 [ 5 ] rtsQuestion 12init …suiteldaa#'A'//On charge le caractère 'A' dans l’accumulateurstaaLCDDAT//On applique le caractèrejsr courte//Temporisation courte (caractères)ldaa#’B’staaLCDDATjsrcourteldaa#’C’staaLCDDATjsr courteldaa#’D’staaLCDDATjsrcourteLST0001 b5f0 LCDCMDequ$b5f00002 b5f1 LCDDATequ$b5f10003 0004 003c L4xC20equ $3c * 4x200005 0001 CLRCHequ$010006 000f DCBONequ$0f0007 0006 CINSHOFequ$060008 0014 SCSHRequ$140009 0002 CSRHOMequ$020010 0011 2100 ORG$21000012 0013 2100 86 3c [ 2 ] initldaa#L4xC200014 2102 b7 b5 f0 [ 4 ] staaLCDCMD0015 2105 bd 21 50 [ 6 ] jsrlongue0016 2108 86 01 [ 2 ] ldaa#CLRCH0017 210a b7 b5 f0 [ 4 ] staaLCDCMD0018 210d bd 21 50 [ 6 ] jsrlongue0019 2110 86 0f [ 2 ] ldaa#DCBON0020 2112 b7 b5 f0 [ 4 ] staaLCDCMD0021 2115 bd 21 57 [ 6 ] jsrcourte0022 2118 86 06 [ 2 ] ldaa#CINSHOF0023 211a b7 b5 f0 [ 4 ] staaLCDCMD0024 211d bd 21 57 [ 6 ] jsrcourte0025 2120 86 14 [ 2 ] ldaa#SCSHR0026 2122 b7 b5 f0 [ 4 ] staaLCDCMD0027 2125 bd 21 57 [ 6 ] jsrcourte0028 2128 86 02 [ 2 ] ldaa#CSRHOM0029 212a b7 b5 f0 [ 4 ] staaLCDCMD0030 212d bd 21 57 [ 6 ] jsrcourte0031 0032 2130 86 41 [ 2 ] suiteldaa#'A'0033 2132 b7 b5 f1 [ 4 ] staaLCDDAT0034 2135 bd 21 57 [ 6 ] jsrcourte0035 2138 86 42 [ 2 ] ldaa#'B'0036 213a b7 b5 f1 [ 4 ] staaLCDDAT0037 213d bd 21 57 [ 6 ] jsrcourte0038 2140 86 43 [ 2 ] ldaa#'C'0039 2142 b7 b5 f1 [ 4 ] staaLCDDAT0040 2145 bd 21 57 [ 6 ] jsrcourte0041 2148 86 44 [ 2 ] ldaa#'D'0042 214a b7 b5 f1 [ 4 ] staaLCDDAT0043 214d bd 21 57 [ 6 ] jsrcourte0044 0045 0046 *0047 2150 ce c3 50 [ 3 ] longueldx#500000048 2153 09 [ 3 ] loop_ldex0049 2154 26 fd [ 3 ] bneloop_l0050 2156 39 [ 5 ] rts0051 *0052 2157 ce 03 e8 [ 3 ] courteldx#10000053 215a 09 [ 3 ] loop_cdex0054 215b 26 fd [ 3 ] bneloop_c0055 215d 39 [ 5 ] rtsQuestion 13Fcc : Réserver place nécessaire en octets pour la chaine donnéeorg$2000//On démarre à l'adresse $2000textofcc'La periode ='//On réserve la place nécessaire (en octets) pour la chaine finfcb#0//Réserve d'octets multiples : ici pour 0org$2100//On se place à l’adresse $2100init???ldy#texto//stockage de la chaine de caractèreschaineldaa0,y//observation du registre YstaaLCDDAT//commande de donnéesjsrcourte//Temporisation courte (caractères)iny//incrémente Y (on va caractère suivant)brachaine//Tant qu’on est pas arrivé a la fin, on retourne à Ysuite???courte :LCDCMDequ$b5f0LCDDATequ$b5f1L4xC20equ $3c * 4x20CLRCHequ$01DCBONequ$0fCINSHOFequ$06SCSHRequ$14CSRHOMequ$02org$2000textofcc'La periode='finfcb#0org$2100initldaa#L4xC20staaLCDCMDjsrlongueldaa#CLRCHstaaLCDCMDjsrlongueldaa#DCBONstaaLCDCMDjsrcourteldaa#CINSHOFstaaLCDCMDjsrcourteldaa#SCSHRstaaLCDCMDjsrcourteldaa#CSRHOMstaaLCDCMDjsrcourteldy#textochaineldaa0,ybeqsuitestaaLCDDATjsrcourteinybrachainesuiteldaa#'A'staaLCDDATjsrcourteldaa#'B'staaLCDDATjsrcourteldaa#'C'staaLCDDATjsrcourteldaa#'D'staaLCDDATjsrcourte0011 2000 org$20000012 2000 4c 61 20 70 65 72 textofcc'La periode=' 69 6f 64 65 3d0013 200b 00 finfcb#00014 0015 2100 org$21000016 0017 2100 86 3c [ 2 ] initldaa#L4xC200018 2102 b7 b5 f0 [ 4 ] staaLCDCMD0019 2105 bd 21 63 [ 6 ] jsrlongue0020 2108 86 01 [ 2 ] ldaa#CLRCH0021 210a b7 b5 f0 [ 4 ] staaLCDCMD0022 210d bd 21 63 [ 6 ] jsrlongue0023 2110 86 0f [ 2 ] ldaa#DCBON0024 2112 b7 b5 f0 [ 4 ] staaLCDCMD0025 2115 bd 21 6a [ 6 ] jsrcourte0026 2118 86 06 [ 2 ] ldaa#CINSHOF0027 211a b7 b5 f0 [ 4 ] staaLCDCMD0028 211d bd 21 6a [ 6 ] jsrcourte0029 2120 86 14 [ 2 ] ldaa#SCSHR0030 2122 b7 b5 f0 [ 4 ] staaLCDCMD0031 2125 bd 21 6a [ 6 ] jsrcourte0032 2128 86 02 [ 2 ] ldaa#CSRHOM0033 212a b7 b5 f0 [ 4 ] staaLCDCMD0034 212d bd 21 6a [ 6 ] jsrcourte0035 0036 2130 18 ce 20 00 [ 4 ] ldy#texto0037 0038 2134 18 a6 00 [ 5 ] chaineldaa0,y0039 2137 27 0a [ 3 ] beqsuite0040 2139 b7 b5 f1 [ 4 ] staaLCDDAT0041 213c bd 21 6a [ 6 ] jsrcourte0042 213f 18 08 [ 4 ] iny0043 2141 20 f1 [ 3 ] brachaine0044 0045 2143 86 41 [ 2 ] suiteldaa#'A'0046 2145 b7 b5 f1 [ 4 ] staaLCDDAT0047 2148 bd 21 6a [ 6 ] jsrcourte0048 214b 86 42 [ 2 ] ldaa#'B'0049 214d b7 b5 f1 [ 4 ] staaLCDDAT0050 2150 bd 21 6a [ 6 ] jsrcourte0051 2153 86 43 [ 2 ] ldaa#'C'0052 2155 b7 b5 f1 [ 4 ] staaLCDDAT0053 2158 bd 21 6a [ 6 ] jsrcourte0054 215b 86 44 [ 2 ] ldaa#'D'0055 215d b7 b5 f1 [ 4 ] staaLCDDAT0056 2160 bd 21 6a [ 6 ] jsrcourte0057 0058 0059 *0060 2163 ce c3 50 [ 3 ] longueldx#500000061 2166 09 [ 3 ] loop_ldex0062 2167 26 fd [ 3 ] bneloop_l0063 2169 39 [ 5 ] rts0064 *0065 216a ce 03 e8 [ 3 ] courteldx#10000066 216d 09 [ 3 ] loop_cdex0067 216e 26 fd [ 3 ] bneloop_c0068 2170 39 [ 5 ] rtsQuestion 140001 b5f0 LCDCMDequ$b5f00002 b5f1 LCDDATequ$b5f10003 0004 003c L4xC20equ $3c * 4x200005 0001 CLRCHequ$010006 000f DCBONequ$0f0007 0006 CINSHOFequ$060008 0014 SCSHRequ$140009 0002 CSRHOMequ$020010 2000 org$20000011 2000 4c 61 20 70 65 72 textofcc'La periode=' 69 6f 64 65 3d0012 200b 00 finfcb#00013 0014 2020 org$20200015 2020 30 tablefcc'0'0016 2021 31 fcc'1'0017 2022 32 fcc'2'0018 2023 33 fcc'3'0019 2024 34 fcc'4'0020 2025 35 fcc'5'0021 2026 36 fcc'6'0022 2027 37 fcc'7'0023 2028 38 fcc'8'0024 2029 39 fcc'9'0025 202a 41 fcc'A'0026 202b 42 fcc'B'0027 202c 43 fcc'C'0028 202d 44 fcc'D'0029 202e 45 fcc'E'0030 202f 46 fcc'F'0031 0032 2030 36 octetfcb#$36 *octet de test0033 2031 q_hautrmb10034 2032 q_basrmb10035 0036 2100 ORG$21000037 0038 0039 2100 ce 20 20 [ 3 ] convldx#table0040 2103 b6 20 30 [ 4 ] ldaaoctet0041 2106 84 0f [ 2 ] anda#$0F0042 2108 ab 00 [ 4 ] adda0,x0043 210a b7 20 32 [ 4 ] staaq_bas *quartet bas0044 0045 210d b6 20 30 [ 4 ] ldaaoctet0046 2110 47 [ 2 ] asra0047 2111 47 [ 2 ] asra0048 2112 47 [ 2 ] asra0049 2113 47 [ 2 ] asra0050 2114 84 0f [ 2 ] anda#$0F0051 2116 a4 00 [ 4 ] anda0,x0052 2118 b7 20 31 [ 4 ] staaq_haut *quartet haut0053 0054 0055 0056 211b 86 3c [ 2 ] initldaa#L4xC200057 211d b7 b5 f0 [ 4 ] staaLCDCMD0058 2120 bd 21 7e [ 6 ] jsrlongue0059 2123 86 01 [ 2 ] ldaa#CLRCH0060 2125 b7 b5 f0 [ 4 ] staaLCDCMD0061 2128 bd 21 7e [ 6 ] jsrlongue0062 212b 86 0f [ 2 ] ldaa#DCBON0063 212d b7 b5 f0 [ 4 ] staaLCDCMD0064 2130 bd 21 85 [ 6 ] jsrcourte0065 2133 86 06 [ 2 ] ldaa#CINSHOF0066 2135 b7 b5 f0 [ 4 ] staaLCDCMD0067 2138 bd 21 85 [ 6 ] jsrcourte0068 213b 86 14 [ 2 ] ldaa#SCSHR0069 213d b7 b5 f0 [ 4 ] staaLCDCMD0070 2140 bd 21 85 [ 6 ] jsrcourte0071 2143 86 02 [ 2 ] ldaa#CSRHOM0072 2145 b7 b5 f0 [ 4 ] staaLCDCMD0073 2148 bd 21 85 [ 6 ] jsrcourte0074 0075 214b 18 ce 20 00 [ 4 ] ldy#texto0076 214f 18 a6 00 [ 5 ] chaineldaa0,y0077 2152 27 0a [ 3 ] beqsuite0078 2154 b7 b5 f1 [ 4 ] staaLCDDAT0079 2157 bd 21 85 [ 6 ] jsrcourte0080 215a 18 08 [ 4 ] iny0081 215c 20 f1 [ 3 ] brachaine0082 0083 215e b6 20 31 [ 4 ] suiteldaaq_haut0084 2161 b7 b5 f1 [ 4 ] staaLCDDAT0085 2164 bd 21 85 [ 6 ] jsrcourte0086 0087 2167 b6 20 32 [ 4 ] ldaaq_bas0088 216a b7 b5 f1 [ 4 ] staaLCDDAT0089 216d bd 21 85 [ 6 ] jsrcourte0090 0091 2170 86 2e [ 2 ] ldaa#'.'0092 2172 b7 b5 f1 [ 4 ] staaLCDDAT0093 2175 9d 00 [ 5 ] jsr0094 0095 2177 86 2e [ 2 ] ldaa#'.'0096 2179 b7 b5 f1 [ 4 ] staaLCDDAT0097 217c 9d 00 [ 5 ] jsr0098 0099 *0100 217e ce c3 50 [ 3 ] longueldx#500000101 2181 09 [ 3 ] loop_ldex0102 2182 26 fd [ 3 ] bneloop_l0103 2184 39 [ 5 ] rts0104 *0105 2185 ce 03 e8 [ 3 ] courteldx#10000106 2188 09 [ 3 ] loop_cdex0107 2189 26 fd [ 3 ] bneloop_cQuestion 15Question 16Question 172000