ADRESSE1 bsf RCSTA,CREN ; debut de réception
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf CTRL_ADRESSE ; le sauver l'octet d'adresse
movfw CTRL_ADRESSE ; on charge RCREG dans W
xorlw 0x32 ;adresse définie pour la CABINE 1
btfss STATUS,Z
goto ADRESSE1
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf CTRL_PHONE ; le sauver l'octet d'adresse
movfw CTRL_PHONE ; on charge RCREG dans W
xorlw 0x41 ;Téléphone décroché
btfss STATUS,Z
goto RECEPTION1
call MES_AFF6
RECEPTION1
movfw CTRL_PHONE ;RCREG ; charger octet reçu dans W
movwf X0 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X1 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X2 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X3 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X4 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X5 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X6 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X7 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X8 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X9 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X10 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X11 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X12 ; sauver
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X13 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X14 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X15 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X16 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X17 ; sauver
nop
btfss PIR1,RCIF ; attend que le flag soit à 1 ==> dés que l'octet est reçu et transféré dans rcreg
goto $-1
movfw RCREG ; charger octet reçu dans W
movwf X18 ; sauver
nop
bcf RCSTA,CREN ; FIN de réception
TRANSFERT1 ;call Clear_LCD ;on efface l'ecran
;**************************************************
;********************** LIGNE1 *******************
movlw ' ' ;espace
call LCD_PUTCHAR
movlw ' ' ;espace
call LCD_PUTCHAR
;*****************************************
;*************** ************ *************
movfw X0 ;prémiere lettre du type
call LCD_PUTCHAR
movfw X1 ;deuxième lettre du type
call LCD_PUTCHAR
movfw X2 ;troisième lettre du type
call LCD_PUTCHAR
;******************************************
movlw ' ' ;espace
call LCD_PUTCHAR
movlw ' ' ;espace
call LCD_PUTCHAR
;**********************************************
;*************** ***************** *************
movfw X3 ;prémiere lettre
call LCD_PUTCHAR
movfw X4 ;deuxième lettre
call LCD_PUTCHAR
movfw X5 ;troisième lettre
call LCD_PUTCHAR
movfw X6 ;quatrième lettre
call LCD_PUTCHAR
movfw X7 ;cinquième lettre
call LCD_PUTCHAR
movfw X8 ;sixième lettre
call LCD_PUTCHAR
movfw X9 ;septième lettre
call LCD_PUTCHAR
;******************************************
movlw ' ' ;espace
call LCD_PUTCHAR
movlw ' ' ;espace
call LCD_PUTCHAR
;*******************************************
;///////////////////////////////////////////
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;*******************************************
;**************************************************
;********************** LIGNE2 *******************
movlw 0xC0 ;basculement a la ligne 2 première position a gauche
call LCD_PUTCMD ;envoi la commande au LCD
;*******************************************
;************* TEMPS ECOULE****************
movlw 'T' ;T pour indiquer la zone de chrono (temps)
call LCD_PUTCHAR
movlw ':' ;deux point d'espacement
call LCD_PUTCHAR
;*******************************************
movfw X10 ;dizaines
call LCD_PUTCHAR
movfw X11 ;unités
call LCD_PUTCHAR
;*******************************************
movlw ':' ;deux point d'espacement
call LCD_PUTCHAR
;*******************************************
movfw X12 ;dizaines
call LCD_PUTCHAR
movfw X13 ;unités
call LCD_PUTCHAR
;********************************************
movlw ' ' ;espace
call LCD_PUTCHAR
movlw ' ' ;espace
call LCD_PUTCHAR
;********************************************
;****************************** **************
movlw 'F' ;
call LCD_PUTCHAR
movlw ':' ;deux point d'espacement
call LCD_PUTCHAR
;********************************************
movfw X14 ;
call LCD_PUTCHAR
movfw X15 ;
call LCD_PUTCHAR
movfw X16 ;
call LCD_PUTCHAR
movfw X17 ;
call LCD_PUTCHAR
movfw X18 ;
call LCD_PUTCHAR
goto ADRESSE1