LIST P=18f452 #include acnt equ 0x60 acnt2 equ 0x62 acnt3 equ 0x64 a equ 0x66 org 00h goto Start org 8h bcf INTCON,7 movlw 43 MOVWF TXREG ; movf RCREG movff RCREG,TXREG movff TXREG,RCREG ; movlw 51h ; movwf TXREG BCF PIR1,RCIF bsf INTCON,7 RETURN Start org 0x80 movlw 0h movwf TRISD movlw b'11111111' movwf PORTD MOVLW B'10000000' MOVWF TRISC ; megszakítások MOVLW B'00000000' MOVWF INTCON ;port MOVLW 1fh movwf SPBRG bcf TXSTA,TX9 bcf TXSTA,SYNC bcf TXSTA,BRGH bsf RCSTA,SPEN bcf PIE1,TXIE bsf TXSTA,TXEN bcf RCSTA,RX9 bsf RCSTA,CREN bsf PIE1,RCIE bsf RCSTA,CREN BSF INTCON,GIE BSF INTCON,PEIE ide ; movlw 43 ; MOVWF TXREG ; movff RCREG,TXREG ; movff acnt,TXREG NOP goto ide END