
Bonjour , qu'en dites vous ?
VAR_TEMP
Cpt_Loop : INT ;
END_VAR
BEGIN
NETWORK
TITLE =Comptage nombre de bits à 1
// Charger la premiere adresse d'entrée
// sur l'adresse de registre 1
L P#90.0;
LAR1 ;
// Positionner le compteur de boucles
// pour 16 Bits
L 16;
LOOP: T #Cpt_Loop;
// Lire l'etat de l'entrée
// Saut si = 0
U E [AR1,P#0.0];
SPBN CPTB;
// Incrementer de 1 le nombre de bits
L 1;
L "Nb_Bits_0_15";
+I ;
T "Nb_Bits_0_15";
CPTB: NOP 0;
// Lire l'adresse de registre 1
// Incrementer de 0.1
// Charger l'adresse de registre 1 incrementée
TAR1 ;
L P#0.1;
+I ;
LAR1 ;
L #Cpt_Loop;
LOOP LOOP;