;LCD_TTYExemple.asm ;Exemple d'utilisation de ;7/1/8 Ph Loutrel ;Cet exemple gère la ligne TX d'une USART.Il envoie sur cette ligne un car vers un ecran LCD ;géré par 88PicTTY.Le car s'affiche en decimal et hexadécimal. ;Même .inc pour 16F88 et 16F877 ;Au minimum, il faut une masse commune et un fil entre la patte TX du DUT et le PicTTY ;Le +5V peut être fourni par le DUT ou lséparémént. ;********************************************************************** list p=16F88 ; list directive to define processor #include ; processor specific variable definitions ;Program Configuration Register 1 PIEGE sur 16F88: il FAUT _HS_OSC meme à 4MHzou comme ici INTRC_IO osc interne __CONFIG _CONFIG1, _CP_OFF & _CCP1_RB0 & _DEBUG_OFF & _WRT_PROTECT_OFF & _CPD_OFF & _LVP_OFF & _BODEN_OFF & _MCLR_ON & _PWRTE_ON & _WDT_OFF & _INTRC_IO ;Program Configuration Register 2 __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF ;Mclr_on= habituel( =off connection interne du reset à Vdd, Mclr devient RA5). CCP_RB0, RB0 est l'entrée du module COMPARE. SURTOUT oscllateur HS,bug avec XT! ERRORLEVEL -302 cblock h'20' XTMP ;pour XWAIT_1s TMP endc org 0 MAIN call INIT_USART ;ex d'utilisation: on emet un acr qd le BP est poussé clrf TMP deb incf TMP,f movfw TMP call XEMET call XWAIT_5ms call XWAIT_5ms ; call XWAIT_5ms ; call XWAIT_5ms ; call XWAIT_1s nop btfsc PORTB,0 ; 0 si bp poussé goto $-1 goto deb #INCLUDE end