const_nos
20-07-2009, 10:34 AM
em mới học pic .em đang viết chương trình giao tiếp rs232 cho pic nhưng chưa chạy được. sau đây là code của em va co kèm theo sơ đồ proteus nưa:
TITLE " CHUONG TRINH KIEM TRA KI THUAT BANG"
PROCESSOR P16F877A
#INCLUDE <P16F877A.INC>
__CONFIG _CP_OFF&_WDT_OFF&_BODEN_OFF&_PWRTE_ON&_LVP_OFF&_CPD_OFF
;------ ---
TAM EQU 0X20
ORG 0X00
GOTO MAIN
;--- DIA CHI VECTO NGAT---
ORG 0X04
INCF TAM
BCF TXSTA,TX9
BCF TXSTA,SYNC
BSF TXSTA,TXEN
;----TRUYEN DU LIEU----
MOVF TAM
MOVWF TXREG
RETFIE
MAIN
;-----CAI DAT CHE DO TRUYEN DU LIEU----
CLRF TAM
BANKSEL PORTC
CLRF TRISC
BANKSEL TXSTA
BSF TXSTA,BRGH ; CAI DAT TOC DO BAUD
MOVLW D'25'
BANKSEL SPBRG ;9600,8,1
MOVWF SPBRG
BANKSEL INTCON
BSF INTCON,GIE
BSF INTCON,PEIE
BANKSEL PIE1
BSF PIE1,TXIE
GOTO $
END
Đây chỉ là truyên dữ liệu.
nhờ các anh và các bạn giúp đỡ.
TITLE " CHUONG TRINH KIEM TRA KI THUAT BANG"
PROCESSOR P16F877A
#INCLUDE <P16F877A.INC>
__CONFIG _CP_OFF&_WDT_OFF&_BODEN_OFF&_PWRTE_ON&_LVP_OFF&_CPD_OFF
;------ ---
TAM EQU 0X20
ORG 0X00
GOTO MAIN
;--- DIA CHI VECTO NGAT---
ORG 0X04
INCF TAM
BCF TXSTA,TX9
BCF TXSTA,SYNC
BSF TXSTA,TXEN
;----TRUYEN DU LIEU----
MOVF TAM
MOVWF TXREG
RETFIE
MAIN
;-----CAI DAT CHE DO TRUYEN DU LIEU----
CLRF TAM
BANKSEL PORTC
CLRF TRISC
BANKSEL TXSTA
BSF TXSTA,BRGH ; CAI DAT TOC DO BAUD
MOVLW D'25'
BANKSEL SPBRG ;9600,8,1
MOVWF SPBRG
BANKSEL INTCON
BSF INTCON,GIE
BSF INTCON,PEIE
BANKSEL PIE1
BSF PIE1,TXIE
GOTO $
END
Đây chỉ là truyên dữ liệu.
nhờ các anh và các bạn giúp đỡ.