F6FCO

Hello World

;************************************************************************************************
;                       F6FCO 
;                  Hello World
;                       24 oct 2023    
;
;

Errorlevel-302                 ; Supprime le message "Ensure that bank bits are correct"

list            p=18f2525        ; processeur utilisé 
        #include        <p18f2525.inc>        ; Définitions des constantes PIC

CONFIG OSC = INTIO67                         ; Oscillateur interne 8MHz 
 CONFIG IESO = OFF                            ; Délai au démarrage (ON/OFF)
 CONFIG BOREN = OFF                           ; Reset si chute de tension (ON/OFF)
 CONFIG PWRT = ON                              ; Délai au démarrage (ON/OFF)
 CONFIG BORV = 0                              ; Tension de reset en 1/10ème Volts 
 CONFIG WDT = OFF                             ; Mise hors service du watchdog (ON/OFF)
 CONFIG PBADEN = OFF                          ; PORTB<4:0> les broches sont configurées comme E/S numériques lors de la réinitialisation
 CONFIG LPT1OSC = OFF                         ; Timer1 configuré pour un fonctionnement plus puissant
 CONFIG MCLRE = ON                            ; Mclr configuré comme entrée
 CONFIG STVREN = ON                           ; Reset sur débordement de pile (ON/OFF)
 CONFIG LVP = OFF                             ; Programmation basse tension autorisée (ON/OFF)
 CONFIG XINST = OFF                           ; L'extension du jeu d'instructions et le mode d'adressage indexé sont désactivés(mode hérité)
 CONFIG DEBUG = OFF                           ; Debugger hors service
 CONFIG CP0 = OFF                             ; Code protection sur block 0 (ON/OFF)
 CONFIG CP1 = OFF                             ; Code protection sur block 1 (ON/OFF)
 CONFIG CP2 = OFF                             ; Code protection sur block 2 (ON/OFF)
 CONFIG CPB = OFF                             ; Code protection sur bootblock  (ON/OFF)
 CONFIG CPD = OFF                             ; Code protection sur eeprom (ON/OFF)
 CONFIG WRT0 = OFF                            ; Protection écriture block 0 (ON/OFF)
 CONFIG WRT1 = OFF                            ; Protection écriture block 1 (ON/OFF)
 CONFIG WRT2 = OFF                            ; Protection écriture block 2 (ON/OFF)
 CONFIG WRTB = OFF                            ; Protection écriture bootblock (ON/OFF)
 CONFIG WRTC = OFF                            ; Protection écriture configurations (ON/OFF)
 CONFIG WRTD = OFF                            ; Protection écriture zone eeprom (ON/OFF)
 CONFIG EBTR0 = OFF                           ; Protection lecture de table block 0 (ON/OFF)
 CONFIG EBTR1 = OFF                           ; Protection lecture de table block 1 (ON/OFF)
 CONFIG EBTR2 = OFF                           ; Protection lecture de table block 2 (ON/OFF)
 CONFIG EBTRB = OFF                           ; Protection lecture de table bootblock (ON/OFF)

;#define bip        PORTA,1

CBLOCK H'0' 
     ;--------------- variables 
    Reg_1            :1    ; tempo
    Reg_2            :1    ; tempo
    Reg_3            :1    ; tempo
    conchita        :2    ; variable bonne à tout faire
    LcdLigne        :1    ; LCD
    LcdColonne        :1    ; LCD

ENDC

ORG H'0'
init
       movlw     b'01110011'
        movwf     OSCCON            ; oscillateur interne à 8 Mhz 
        ;
        movlw     0Fh
          movwf     ADCON1            ; mode digital
    ;
    movlw    b'00000000'    
    movwf    TRISA
    clrf    PORTA
    ;
    movlw    b'00000000'    
    movwf    TRISB
    clrf    PORTB
    ;
    movlw    b'00000000'
    movwf    TRISC
    clrf    PORTC

Hello World avec le Timer0 en mode 8bits

;**********************************************************************
;                                                                    
;             Led clignotante avecr TIMER0
;                                                                     
;                                                                     
;**********************************************************************

Errorlevel-302                 ; Supprime le message "Ensure that bank bits are correct"

list            p=18f2525        ; processeur utilisé 
        #include        <p18f2525.inc>        ; Définitions des constantes PIC

;CONFIG OSC = INTIO67                         ; Oscillateur interne 8MHz 
 CONFIG OSC = XT                 ; Oscillateur externe
 CONFIG IESO = OFF                            ; Délai au démarrage (ON/OFF)
 CONFIG BOREN = OFF                           ; Reset si chute de tension (ON/OFF)
 CONFIG PWRT = ON                              ; Délai au démarrage (ON/OFF)
 CONFIG BORV = 0                              ; Tension de reset en 1/10ème Volts 
 CONFIG WDT = OFF                             ; Mise hors service du watchdog (ON/OFF)
 CONFIG PBADEN = OFF                          ; PORTB<4:0> les broches sont configurées comme E/S numériques lors de la réinitialisation
 CONFIG LPT1OSC = OFF                         ; Timer1 configuré pour un fonctionnement plus puissant
 CONFIG MCLRE = ON                            ; Mclr configuré comme entrée
 CONFIG STVREN = ON                           ; Reset sur débordement de pile (ON/OFF)
 CONFIG LVP = OFF                             ; Programmation basse tension autorisée (ON/OFF)
 CONFIG XINST = OFF                           ; L'extension du jeu d'instructions et le mode d'adressage indexé sont désactivés(mode hérité)
 CONFIG DEBUG = OFF                           ; Debugger hors service
 CONFIG CP0 = OFF                             ; Code protection sur block 0 (ON/OFF)
 CONFIG CP1 = OFF                             ; Code protection sur block 1 (ON/OFF)
 CONFIG CP2 = OFF                             ; Code protection sur block 2 (ON/OFF)
 CONFIG CPB = OFF                             ; Code protection sur bootblock  (ON/OFF)
 CONFIG CPD = OFF                             ; Code protection sur eeprom (ON/OFF)
 CONFIG WRT0 = OFF                            ; Protection écriture block 0 (ON/OFF)
 CONFIG WRT1 = OFF                            ; Protection écriture block 1 (ON/OFF)
 CONFIG WRT2 = OFF                            ; Protection écriture block 2 (ON/OFF)
 CONFIG WRTB = OFF                            ; Protection écriture bootblock (ON/OFF)
 CONFIG WRTC = OFF                            ; Protection écriture configurations (ON/OFF)
 CONFIG WRTD = OFF                            ; Protection écriture zone eeprom (ON/OFF)
 CONFIG EBTR0 = OFF                           ; Protection lecture de table block 0 (ON/OFF)
 CONFIG EBTR1 = OFF                           ; Protection lecture de table block 1 (ON/OFF)
 CONFIG EBTR2 = OFF                           ; Protection lecture de table block 2 (ON/OFF)
 CONFIG EBTRB = OFF                           ; Protection lecture de table bootblock (ON/OFF)

MasqueIntcon    EQU    H'00A0'     ; réglage interruptions Timer0

#DEFINE LED    PORTB,1

CBLOCK 0x00C               
    w_temp :1            ; Sauvegarde du registre W
    status_temp : 1            ; Sauvegarde du registre STATUS
    cmpt : 1            
    ENDC

org     0x000             ; Adresse de départ après reset
      bra    init            ; Adresse 0: initialiser

; ------------------------  Routines Interruptions                            
    ;sauvegarder registres    
    org     0x008            ; adresse d'interruption
    movwf   w_temp          ; sauver registre W
    swapf    STATUS,w        ; swap status avec résultat dans w
    movwf    status_temp        ; sauver status swappé

; Interrupt TIMER0
    btfsc    INTCON,TMR0IE        ; interrupt timer autorisée ?
    btfss    INTCON,TMR0IF        ; si oui, tester si interrupt timer en cours
    bra     restorereg
    call    inttimer        ; vers routine interrupt timer
    bcf    INTCON,TMR0IF        ; effacer flag interrupt timer

;restaurer registres
restorereg
    swapf    status_temp,w        ; swap ancien status, résultat dans w
    movwf   STATUS            ; restaurer status
    swapf   w_temp,f        ; Inversion L et H de l'ancien W
                                   ; sans modifier Z
    swapf   w_temp,w          ; Réinversion de L et H dans W
                    ; W restauré sans modifier status
    retfie              ; return from interrupt

;  Routine d'interruption TIMER 0                            
inttimer
    decfsz    cmpt,f            ; décrémenter compteur de passages
    return                ; pas 0, on ne fait rien
    movlw    b'00000010'        ; sélectionner bit à inverser
    xorwf    PORTB , f        ; inverser LED
    movlw    d'7'            ; on recommence à décompter
    movwf    cmpt            
    return                ; fin d'interruption timer
    
; ------------------------ Init

init
    clrf    PORTA            
    clrf    PORTB            
    clrf    EEADR            ; diminue la consommation
    movlw    h'C7'            ; Timer0 interne avec prescaler 256        
    movwf    T0CON        
        movlw     0Fh
          movwf     ADCON1                ; mode digital
    movlw    b'00000000'
    movwf    TRISA
    movwf    TRISB

movlw    MasqueIntcon        ; masque interruption
    movwf    INTCON            ; charger interrupt control

movlw    d'7'            
    movwf    cmpt

; -----------------------------------
main

nop
    nop
    nop
    nop
    nop
    nop
    nop
    nop
    nop
    nop
    nop
    nop
    bra     main            ; boucler

END

Division 16bits sur PIC18F4525

;----------------------------------------------------------------------------------------------
;                                Division 16bits - F6FCO
;                                     12 décembre 2018
; 
;----------------------------------------------------------------------------------------------

Errorlevel-302                         ; Supprime le message "Ensure that bank bits are correct"

list        p=18f4525                ; processeur utilisé 
    #include    <p18f4525.inc>            ; Définitions des constantes

;---------------------------------------------------------------------------------------------

CONFIG    OSC = XT                        ; Oscillateur ext 4MHz 
 ;CONFIG    OSC = HSPLL                        ; Oscillateur interne 32Mhz 
 CONFIG    IESO = OFF                        ; Oscillateur secondaire refusé (ON/OFF)
 CONFIG PWRT = ON                        ; Délai au démarrage (ON/OFF)
 CONFIG BOREN = OFF                        ; Reset si chute de tension (ON/OFF)
 CONFIG BORV = 0                        ; Tension de reset en 1/10ème Volts 
 CONFIG WDT = OFF                        ; Mise hors service du watchdog (ON/OFF)
 CONFIG PBADEN = OFF                    ; PORTB<4:0> les broches sont configurées comme E/S numériques lors de la réinitialisation
 CONFIG LPT1OSC = OFF                    ; Timer1 configuré pour un fonctionnement plus puissant
 CONFIG MCLRE = ON                        ; Mclr 
 CONFIG STVREN = ON                        ; Reset sur débordement de pile (ON/OFF)
 CONFIG LVP = OFF                        ; Programmation basse tension autorisée (ON/OFF)
 CONFIG XINST = OFF                        ; L'extension du jeu d'instructions et le mode d'adressage indexé sont désactivés(mode hérité)
 CONFIG DEBUG = ON                        ; Debugger hors service
 CONFIG CP0 = OFF                        ; Code protection sur block 0 (ON/OFF)
 CONFIG CP1 = OFF                        ; Code protection sur block 1 (ON/OFF)
 CONFIG CP2 = OFF                        ; Code protection sur block 2 (ON/OFF)
 CONFIG CPB = OFF                        ; Code protection sur bootblock  (ON/OFF)
 CONFIG CPD = OFF                        ; Code protection sur eeprom (ON/OFF)
 CONFIG WRT0 = OFF                        ; Protection écriture block 0 (ON/OFF)
 CONFIG WRT1 = OFF                        ; Protection écriture block 1 (ON/OFF)
 CONFIG WRT2 = OFF                        ; Protection écriture block 2 (ON/OFF)
 CONFIG WRTB = OFF                        ; Protection écriture bootblock (ON/OFF)
 CONFIG WRTC = OFF                        ; Protection écriture configurations (ON/OFF)
 CONFIG WRTD = OFF                        ; Protection écriture zone eeprom (ON/OFF)
 CONFIG EBTR0 = OFF                        ; Protection lecture de table block 0 (ON/OFF)
 CONFIG EBTR1 = OFF                        ; Protection lecture de table block 1 (ON/OFF)
 CONFIG EBTR2 = OFF                        ; Protection lecture de table block 2 (ON/OFF)
 CONFIG EBTRB = OFF                        ; Protection lecture de table bootblock (ON/OFF)

;------------------------------ déclaration des variables -------------------------------------

CBLOCK    H'08'
                    ptr_train_RCIF                    ; compteur nb octets reçus dans un train
                    valeur1:2
                    valeur2:2
                    dividende16:2                        ; utilisé par division 16bits
                    diviseur16:2                        ; utilisé par division 16bits
                    reste16:2                            ; utilisé par division 16bits
                    quotient16:2                        ; utilisé par division 16bits
                    W_TEMP
                    STATUS_TEMP
                    BSR_TEMP
                 ENDC
                 
                 CBLOCK H'100' 
                ENDC

;--------------------------------- adresse de depart après reset -----------------------------
                ORG     H'0'
                bra        init

;--------------------------------------- interruptions ---------------------------------------

ORG        H'08'
interrupt       btfss    PIR1,RCIF                ; registre plein ? si oui on saute à réception
                bra        int1                    ; sinon on sort de l'interrupt                   
reception        
                nop
                movff    RCREG,POSTINC0            ; lecture de RCREG  et mise en mem       
                incf    ptr_train_RCIF            ; on a reçu qq chose donc on incrémente le compteur de trains
                btfss    RCSTA,OERR                ; test d'une erreur d'overrun
                goto    int1
                ; traitement de l'erreur d'overrun
                bcf        RCSTA,CREN                ; on efface le bit OERR
                bsf        RCSTA,CREN                ; on relance la réception
int1            ; traitement des autres interruptions
                retfie
            
         
;----------------------------------- Initialisations -------------------------------------------------
init
                ;ovlw    b'01000000'                ; oscillateur interne 8Mhzx4=32Mhz
                ;ovlw    OSCTUNE                    
                movlw    b'11000000'                ; INTCON (activation des int GIE/GIEH=1, PEIE/GIEL=1)
                movwf    INTCON
                movlw    b'10000000'                ; RCON (priorités int activées IPEN=1,)
                movwf    RCON
                movlw    b'00100000'                ; IPR1 (Rx en haute priorité RCIP=1)
                movwf    IPR1
                movlw    b'00100000'                ; PIE1 (int RX activée RCIE=1)
                movwf    PIE1
                movlw    b'00100100'                ; TXSTA (Emission USART activée TXEN=1, et mode asynchrone haute vitesse BRGH=1)
                movwf    TXSTA
                movlw    b'10010000'                ; RCSTA (Utilisation du port série activée SPEN=1, Réception USART activée CREN=1)
                movwf    RCSTA
                movlw    d'25'                    ; 9600bauds avec sync=O, brgh=1, brg16=0, xtal=4Mhz
                movwf    SPBRG
                bcf        BAUDCON,BRG16            ; réglé à 8bits        
                movlw     B'00000111'                 
                movwf    TRISB
                movlw     B'11001100'                
                movwf    TRISC
                movlw     B'10000011'                  
                movwf    TRISD
                movlw     B'10000011'                 
                movwf    TRISE
                clrf    PORTB
                clrf    PORTC
                clrf    PORTD
                clrf    PORTE
                ; -----------------   initialisation du PORT A
                clrf    PORTA
                clrf    LATA
                movlw    0xf
                movwf    ADCON1
                movwf    0x07
                movwf    CMCON            
                movlw     0xff                 
                movwf    TRISA
            
                
;############################################################################################################################

main      
            nop
            movlw    0xff
            movwf    dividende16                ; poids fort dividende
            movlw    0xff
            movwf    dividende16+1             ; poids faible dividende
            movlw    0x03
            movwf    diviseur16                ; poids fort diviseur
            movlw    0xd5
            movwf    diviseur16+1            ; poids faible dividende                
            call    division16
            nop
            
            
            bra        main

; ----------------------------------------------------- division 16bits -------------------------------------------------------

;********************************************************************
;                    Division sur 16bits                              *
;     Il faut préalablement déclarer les variables sur 16 bits         *
;         dividende16, diviseur16, quotient16    et reste16                *
;                                                                    *
; Placer le poids fort de la valeur à diviser dans dividende16, le  *
; le poids faible dans dividende16+1                                *
; Placer le poids fort du diviseur dans diviseur16, le poids faible    *
; dans diviseur16+1                                                    *
; Le résultat sera dans quotient16 et quotient16+1                     *   
; Le reste sera dans reste16 et reste16+1                            *        
;                                                                    *
; Cette division utilise la routine soustraction16                     *    
; il faut donc aussi avoir déclaré les variables sur                 *                                            
;                 16 bits valeur1 et valeur2                                *
;********************************************************************

division16    ; quotient=0
            clrf    quotient16
            clrf    quotient16+1
            ; reste=dividende
            movff    dividende16,reste16
            movff    dividende16+1,reste16+1
div16_1        
            movf    reste16,w
            subwf    diviseur16,w
            ; test si poids fort reste>diviseur ?
            btfss    STATUS,C                    
            bra        div16_3
            ; test si poids fort reste=diviseur ? sinon on sort
div16_4        bz        div16_2
findiv16    return
div16_2        ; test si poids faible reste>diviseur
            movff    reste16+1,WREG
            subwf    diviseur16+1,w
            btfss    STATUS,C
            bra        div16_3
            bz        div16_3
            bra        findiv16
div16_3        ; reste=dividende-diviseur
            movff    reste16,valeur1
            movff    reste16+1,valeur1+1
            movff    diviseur16,valeur2
            movff    diviseur16+1,valeur2+1
            call    soustraction16            ; résultat dans valeur2, valeur2+1
            movff    valeur2,reste16
            movff    valeur2+1,reste16+1
            ; quotient +1
            movff    quotient16,valeur1
            movff    quotient16+1,valeur1+1
            clrf    valeur2
            movlw    1
            movwf    valeur2+1
            ; on additionne valeur1 et valeur2 sur 16bits
            movf    valeur1+1,W
            addwf    valeur2+1,f
            ; on additionne le carry dans le poids fort
            movf    STATUS,W
            andlw    0x1
            addwf    valeur2,f
            movf    valeur1,W
            addwf    valeur2,f
            ; on charge valeur2 dans quotient
            movff    valeur2,quotient16
            movff    valeur2+1,quotient16+1
            bra        div16_1

;********************************************************************
;                   Soustraction sur 16bits                            *
;     Il faut préalablement déclarer des variables sur 16 bits         *
;             valeur1:2 et valeur2:2                                    *
;                                                                    *
; Placer le poids fort de la première valeur dans valeur1            *
; et le poids faible dans valeur1+1                                    *
; Placer le poids fort de la valeur à soustraire dans valeur2        *
; et le poids faible dans valeur2+1                                   *   
; Appeler la procédure soustraction16 et le résultat de             *
; valeur1-valeur2 sur 16bits sera dans les 2 octets de valeur2           *
;********************************************************************   
soustraction16
    ; ------------------------------------- on traite valeur2
            movf    valeur2,w        ; inversion du poids fort
            xorlw    0xff
            movwf    valeur2
            movf    valeur2+1,w        ; complément à 2 du poids faible
            xorlw    0xff
            addlw    0x01
            movwf    valeur2+1    
            movf    STATUS,w        ; on isole le carry
            andlw    0x01
            addwf    valeur2,f        ; et on l'ajoute au poids fort    
            ;----------------------------------- on additionne les deux poids faibles    
            movf    valeur1+1,w
            addwf    valeur2+1,f    
            movf    STATUS,w        ; on isole le carry
            andlw    0x01
            addwf    valeur2,f        ; et on l'ajoute au poids fort    
            ;--------------------------------- on additionne maintenant les deux poids forts
            movf    valeur1,w
            addwf    valeur2,f
            ; s'il y a carry il sera perdu car on reste en 16bits
            return

END

Gestion encodeur rotatif

;************************************************************************************************
;                         F6FCO - Encodeur rotatif                        ;
;                                                                                      ;
;********************************************************************************************** ;

Errorlevel-302 
        list        p=18f4525                
        #include    <p18f4525.inc>

CONFIG OSC = INTIO67                     ; Oscillateur interne 8MHz 
 CONFIG IESO = OFF                        ; Délai au démarrage (ON/OFF)
 CONFIG BOREN = OFF                       ; Reset si chute de tension (ON/OFF)
 CONFIG BORV = 0                          ; Tension de reset en 1/10ème Volts 
 CONFIG WDT = OFF                         ; Mise hors service du watchdog (ON/OFF)
 CONFIG PBADEN = OFF                      ; PORTB<4:0> les broches sont configurées comme E/S numériques lors de la réinitialisation
 CONFIG LPT1OSC = OFF                     ; Timer1 configuré pour un fonctionnement plus puissant
 CONFIG MCLRE = ON                        ; Mclr configuré comme entrée
 CONFIG STVREN = ON                       ; Reset sur débordement de pile (ON/OFF)
 CONFIG LVP = OFF                         ; Programmation basse tension autorisée (ON/OFF)
 CONFIG XINST = OFF                       ; L'extension du jeu d'instructions et le mode d'adressage indexé sont désactivés(mode hérité)
 CONFIG DEBUG = OFF                       ; Debugger hors service
 CONFIG CP0 = OFF                         ; Code protection sur block 0 (ON/OFF)
 CONFIG CP1 = OFF                         ; Code protection sur block 1 (ON/OFF)
 CONFIG CP2 = OFF                         ; Code protection sur block 2 (ON/OFF)
 CONFIG CPB = OFF                         ; Code protection sur bootblock  (ON/OFF)
 CONFIG CPD = OFF                         ; Code protection sur eeprom (ON/OFF)
 CONFIG WRT0 = OFF                        ; Protection écriture block 0 (ON/OFF)
 CONFIG WRT1 = OFF                        ; Protection écriture block 1 (ON/OFF)
 CONFIG WRT2 = OFF                        ; Protection écriture block 2 (ON/OFF)
 CONFIG WRTB = OFF                        ; Protection écriture bootblock (ON/OFF)
 CONFIG WRTC = OFF                        ; Protection écriture configurations (ON/OFF)
 CONFIG WRTD = OFF                        ; Protection écriture zone eeprom (ON/OFF)
 CONFIG EBTR0 = OFF                       ; Protection lecture de table block 0 (ON/OFF)
 CONFIG EBTR1 = OFF                       ; Protection lecture de table block 1 (ON/OFF)
 CONFIG EBTR2 = OFF                       ; Protection lecture de table block 2 (ON/OFF)
 CONFIG EBTRB = OFF                       ; Protection lecture de table bobtfsssssssssssssssotblock (ON/OFF)

; ------------------------------------ #define
;#define        EncA    PORTD,0

; ------------------------------------ 
     CBLOCK H'0' 
        EncA_old    :1     ; état de la pin A de l'encodeur au tour d'avant
        EncB_old    :1     ; état de la pin B de l'encodeur au tour d'avant
        Sens        :1    ; sens de rotation de l'encodeur
        Valeur        :1
    ENDC

ORG H'0'
    
; ------------------------------------ 
init
        movlw     B'01110011'
        movwf     OSCCON            
    movlw    b'00000000'
    movwf    TRISC
    movwf    TRISB
    movlw    b'00000011'        ; les 2 pins de l'encodeur en entrée, ici sur le PORTD
    movwf    TRISD

;------------------------------------------------------------------------------
;
;        Gestion encodeur rotatif F6FCO
;            Octobre 2021
;
;    pin A de l'encodeur sur PORTD,0
;    pin B de l'encodeur sur PORTD,1
;
; Déclarer les variables:
;    EncA_old    :1     ; état de la pin A de l'encodeur au tour d'avant
;    EncB_old    :1     ; état de la pin B de l'encodeur au tour d'avant
;    Sens        :1    ; sens de rotation de l'encodeur
;-------------------------------------------------------------------------------

Gestion_encodeur
    movf    PORTD,w
    andlw    b'00000001'
    subwf    EncA_old,w
    btfsc    STATUS,Z
    goto    enc1
        
enc3    movf    PORTD,w        ; est-ce que A=B_old ?
    andlw    b'00000010'
    rrncf    WREG,w
    subwf    EncA_old,w
    btfsc    STATUS,Z
    goto    enc4
    movlw    1
    movwf    Sens        ; Sens=1  horaire
    
enc5    movf    PORTD,w
    andlw    b'00000001'
    movwf    EncA_old
    movf    PORTD,w
    andlw    b'00000010'
    movwf    EncB_old
    return

enc1    movf    PORTD,W
    andlw    b'00000010'
    subwf    EncB_old,w
    btfss    STATUS,Z
    goto    enc3
    
enc2    movlw    2
    movwf    Sens        ; sens=2  encodeur figé
    return
    
enc4    clrf    Sens        ; Sens=0 anti-horaire
    goto    enc5