k0: setb tr0
pop acc
reti ;返回主程式
k1:
mov sbuf,a ;發(fā)射數(shù)字
acall delay
setb tr0
pop acc
reti ;返回主程式
;---------------------------------------------------
TIMER1:
PUSH ACC
CLR TR1
MOV TH1,#253
SETB TR1
POP ACC
RETI
;---------------------------------------------------
SERIES:
JNB TI,RECEIVE ;判斷是否傳送完畢,如果否,就是接收完畢中斷
CLR TI
RETI
RECEIVE:
CLR RI ;清除接收中斷旗標(biāo)
MOV A,SBUF
RETI
;---------------------------------------------------
TABLE: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ; 數(shù)字0~9
;---------------------------------------------------
SERIES:
JNB TI,RECEIVE
CLR TI
RETI
RECEIVE:
CLR RI
MOV A,SBUF
mov packet,a
RETI
;--------------------------------------------------------
TABLE: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;0~9