??????????????? S4?EQU?P3.6? ; 按鍵端口
??????????????? ORG???? 0000H????????? ;程序執行開始地址
??????????????? LJMP??? START????????? ;跳至START
??????????????? ORG???? 0003H????????? ;外中斷0中斷程序入口
??????????????? RETI??? ;跳至INTEX0中斷服務程序
??????????????? ORG???? 000BH?? ;定時器T0中斷程序入口
??????????????? RETI??? ;中斷返回
??????????????? ORG???? 0013H????????? ;外中斷1中斷入口
??????????????? RETI??? ;跳至INTEX1中斷服務程序
??????????????? ORG???? 001BH?? ;定時器T1中斷程序入口
??????????????? RETI??? ;跳至INTT1中斷服務程序
??????????????? ORG???? 0023H?? ;串口中斷入口地址
??????????????? RETI??? ;中斷返回
??????????????? ORG???? 002BH????????? ;定時器T2中斷入口地址
??????????????? RETI??? ;中斷返回
;*******************************************************???????????????
START:?????????
??????????????? MOV???? SP,#60H????????? ; 堆棧在60H開始
???????? MOV?TMOD,#20H? ? ; 定時器1工作于8位自動重載模式,用于產生波特率
???????? MOV?TH1,#0FDH
???????? MOV?TL1,#0FDH? ; 波特率9600
?
???????? MOV?SCON,#50H? ; 設定串行口工作方式
??? ???????? ANL?PCON,#0EFH? ; 波特率不倍增
?
???? ???????? SETB?TR1?? ; 啟動定時器1
???????? MOV?IE,#0?? ; 禁止任何中斷
;******************************************************* ?
MAIN:
????? ??????? JNB?RI,MAIN1? ; 是否有數據到來
??????? CLR?RI
??????? MOV?A,SBUF?? ; 暫存接收到的數據
??????? MOV?P2,A?? ; 數據傳送到P2口
??????? LCALL?SEND????????? ; 回傳接收到的數據
?
MAIN1:
??????? JB?????? S4,MAIN????????? ;
??????? LCALL?DELAY10MS ? ;? 延時去抖動
??????? JB?????? S4,MAIN????????? ;
??????? JNB????? S4,$???????????? ;
??????? LCALL?KEY_SEND? ;? 鍵處理
??????? SJMP?MAIN???????????? ;
;******************************************************* ?
; 按鍵處理子程序 --- 發送字符串到PC?
;*******************************************************?
KEY_SEND:
??????? MOV?DPTR,#TABLE ? ; 字串表格地址
SEND_1:
??????? CLR?A??????????????? ;
??????? MOVC?A,@A+DPTR??????? ;
??????? JZ?SEND_END? ; 查到00H時,表示字串結束
??????? ACALL?SEND???????????? ;
??????? INC?DPTR?? ; 下一字符
??????? SJMP?SEND_1?????????? ;
SEND_END:
??????? RET????????????????? ;
;*******************************************************?
; 傳送一個字符 ACC為(要發送的數據)
;*******************************************************?
SEND:
?????? MOV?SBUF,A
?????? JNB?TI,$? ? ; 等特數據傳送
?????? CLR?TI?? ; 清除數據傳送標志
?????? RET
;*******************************************************?
;按鍵延時
;*******************************************************?
DELAY10MS:
?????? MOV?R7,#10?????????? ;
DELAY1:
?? ?????? MOV?R6,#0D8H???????? ;
DELAY2:
?????? NOP??????????????????????? ;
?????? NOP??????????????????????? ;
?????? DJNZ?R6,DELAY2??????? ;
?????? DJNZ?R7,DELAY1??????? ;
?????? RET??????????????????????? ;
;*******************************************************?
TABLE:
?????? DB?"www.picavr.com" ;
???? ?????? DB?0AH,0DH?? ;換行/回車
?????? DB?00H????????????? ;
?????? END??????????????????????? ;