list p=16F877A #include __CONFIG _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON & _HS_OSC & _LVP_OFF Temp equ 34 ;---------------------------------------------------------------------- ;----------------------------- FŐPROGRAM ------------------------------ ;---------------------------------------------------------------------- ; org 0 ; reset vektor ;---------------------------------------------------------------------- ; I/O port konfigurálás ; bsf STATUS,RP0 bcf STATUS,RP1 ; bank1 kiválasztás movlw 14 movwf ADCON1 ; RA0 analóg bemenet !!! movlw 1 ; RA0 bemenet, RA1..5 kimenet movwf TRISA movlw B'10111111' ; RC6 kimenet (TxD) movwf TRISC ;---------------------------------------------------------------------- ; USART port programozása aszinkron módban ; movlw 129 movwf SPBRG movlw B'00100100' ; TXEN=1, SYNC=0, BRGH=1 movwf TXSTA ; bcf STATUS,RP0 ; bank0 kiválasztás movlw B'10010000' ; SPEN=1, CREN=1 movwf RCSTA ; ;---------------------------------------------------------------------- clrf Temp Loop incf Temp,1 movf Temp,0 ; Temp másolása a USART port movwf TXREG ; TXREG adás regiszterébe Wait btfss PIR1,TXIF goto Wait ; vár az adás befejeződésére ;---------------------------------------------------------------------- bcf PIR1,TXIF ; megszakítás jelzőbit törlése goto Loop ;---------------------------------------------------------------------- end