кварц 4МГЦ
CODE
bsf STATUS,RP0 ;Выбираем банк 1
movlw d'25' ;
movwf SPBRG ;
movlw 24H
movwf TXSTA ;
bcf STATUS,RP0 ;
movlw 90H
movwf RCSTA
CLRF PORTA ;
CLRF PORTB ;
movlw 7H
MOVWF CMCON
BSF STATUS,RP0
MOVLW 1CH ;
MOVWF TRISA ;
MOVLW 06H ;
MOVWF TRISB
BCF STATUS,RP0 ;
=========================================================
sss
MOVLW 31H
MOVWF tx_data
CALL transmitw
MOVLW 32H
MOVWF tx_data
CALL transmitw
MOVLW 33H
MOVWF tx_data
CALL transmitw
MOVLW 34H
MOVWF tx_data
CALL transmitw
MOVLW 35H
MOVWF tx_data
CALL transmitw
CALL PAU_10
bcf RCSTA, CREN
movfw RCREG
movfw RCREG ;
bsf RCSTA, CREN
CALL PollRcv
MOVF rx_data,W
MOVWF tx_data
CALL transmitw
goto sss
PollRcv CLRWDT
btfss PIR1,5 ; check the RBIF bit
goto PollRcv ;
movf RCREG,w
NOP
movwf rx_data
bcf RCSTA, CREN
movfw RCREG
movfw RCREG ;
; bsf RCSTA, CREN
RETURN
transmitw
PollTXIF CLRWDT
btfss PIR1,4 ; check the TXIF bit of PIR register in bank1
goto PollTXIF ; off
movf tx_data,w ;
movwf TXREG
return
end
movlw d'25' ;
movwf SPBRG ;
movlw 24H
movwf TXSTA ;
bcf STATUS,RP0 ;
movlw 90H
movwf RCSTA
CLRF PORTA ;
CLRF PORTB ;
movlw 7H
MOVWF CMCON
BSF STATUS,RP0
MOVLW 1CH ;
MOVWF TRISA ;
MOVLW 06H ;
MOVWF TRISB
BCF STATUS,RP0 ;
=========================================================
sss
MOVLW 31H
MOVWF tx_data
CALL transmitw
MOVLW 32H
MOVWF tx_data
CALL transmitw
MOVLW 33H
MOVWF tx_data
CALL transmitw
MOVLW 34H
MOVWF tx_data
CALL transmitw
MOVLW 35H
MOVWF tx_data
CALL transmitw
CALL PAU_10
bcf RCSTA, CREN
movfw RCREG
movfw RCREG ;
bsf RCSTA, CREN
CALL PollRcv
MOVF rx_data,W
MOVWF tx_data
CALL transmitw
goto sss
PollRcv CLRWDT
btfss PIR1,5 ; check the RBIF bit
goto PollRcv ;
movf RCREG,w
NOP
movwf rx_data
bcf RCSTA, CREN
movfw RCREG
movfw RCREG ;
; bsf RCSTA, CREN
RETURN
transmitw
PollTXIF CLRWDT
btfss PIR1,4 ; check the TXIF bit of PIR register in bank1
goto PollTXIF ; off
movf tx_data,w ;
movwf TXREG
return
end
спасибо.