LPC900系列單片機(jī)UART和CCU模塊實(shí)現(xiàn)紅外通信程序

$INCLUDE(REG932.INC)

;變量定義
BEEPBITP2.7
KEY1BITP0.1

FEBITSCON.7
PLEENBITTCR20.7
RCV_BUFDATA30H;接收緩沖區(qū)首地址（30H~3FH）
BRGR1_DATADATA09H;波特率設(shè)為2400bit/s
BRGR0_DATADATA0B4H

ORG0000H
AJMPMAIN

;主程序開(kāi)始
ORG0100H
MAIN:
MOVSP,#60H
MOVP0M1,#00H;P0,P1口設(shè)置為準(zhǔn)雙向
MOVP0M2,#00H
MOVP1M1,#00H
MOVP1M2,#00H
MOVP2M1,#0C0H;P2.6,P2.7設(shè)置為開(kāi)漏
MOVP2M2,#0C0H
ACALLCCU_INIT;CCU模塊初始化,用以產(chǎn)生38KHz調(diào)制信號(hào)
ACALLUART_INIT
MAIN_L1:
JBKEY1,$
ACALLSEND_DATA;發(fā)送16字節(jié)數(shù)據(jù)
MOVR7,#01H
ACALLDELAY
ACALLRCV_DATA;接收16字節(jié)數(shù)據(jù)
ACALLCOMPARE;比較接收到的數(shù)據(jù)和發(fā)送的數(shù)據(jù)
JZMAIN_L2
CLRBEEP;如果正確則蜂鳴器短響一聲
MOVR7,#01H
ACALLDELAY
SETBBEEP
AJMPMAIN_L1
MAIN_L2:
CLRBEEP;如果錯(cuò)誤則蜂鳴器長(zhǎng)響一聲
MOVR7,#05H
ACALLDELAY
SETBBEEP
AJMPMAIN_L1

;********************************************
;名稱(chēng):SEND_DATA
;功能:通過(guò)UART連續(xù)發(fā)送16字節(jié)數(shù)據(jù)(0~15)
;入口參數(shù)：無(wú)
;出口參數(shù)：無(wú)
;注意:此程序采用查詢(xún)方式發(fā)送。
;********************************************
SEND_DATA:
MOVR7,#10H
CLRTI
CLRA
SEND_DL1:
MOVSBUF,A
JNBTI,$;等待一字節(jié)發(fā)送完畢
CLRTI
INCA
DJNZR7,SEND_DL1
RET

;********************************************************************
;名稱(chēng):RCV_DATA
;功能:通過(guò)UART連續(xù)接收16字節(jié)數(shù)據(jù)
;入口參數(shù):RCV_BUF--用于接收數(shù)據(jù)的緩沖區(qū)首地址
;出口參數(shù):接收到的16字節(jié)數(shù)據(jù)位于接收緩沖區(qū)
;注意:此程序采用查詢(xún)方式進(jìn)行接收。由于采取半雙工通信，所以接收
;數(shù)據(jù)之前要打開(kāi)接收允許，接收完畢之后要關(guān)閉接收允許。
;********************************************************************
RCV_DATA:
MOVR7,#10H
MOVR0,#RCV_BUF
SETBREN;串行接收允許
CLRFE
CLRRI
RCV_DL1:
JNBRI,$;等待接收一字節(jié)
CLRRI
MOVA,SBUF
MOV@R0,A
INCR0
DJNZR7,RCV_DL1
CLRREN;串行接收禁止
RET

;*********************************************
;名稱(chēng):COMPARE
;功能:比較緩沖區(qū)中的內(nèi)容是否為0~15
;入口參數(shù):RCV_BUF--需要比較的緩沖區(qū)首地址
;出口參數(shù):ACC--比較正確則返回1,否則返回0。
;*********************************************
COMPARE:
MOVR7,#10H
MOVR0,#RCV_BUF
MOVR1,#00H
CLRA
COMP_L1:
MOVA,@R0
CJNEA,01H,COMP_RTN;ACC與R1（01H）比較
INCR0
INCR1
DJNZR7,COMP_L1
MOVA,#01H;比較結(jié)果正確，返回01H
RET
COMP_RTN:
CLRA;比較結(jié)果錯(cuò)誤，返回00H
RET

;**********************************************************************
;名稱(chēng):CCU_INIT
;功能:CCU模塊初始化,使OCA(P2.7)輸出38KHz,50%占空比的PWM波,
;作為紅外線的載波
;使用6MHz晶振時(shí),CCU頻率=((6000000/2)/6)*32=16MHz
;定時(shí)器重裝值=CCU頻率/紅外線載頻=16000000/38000=421=01A5H
;**********************************************************************
CCU_INIT:
MOVTOR2H,#01H;定時(shí)器重裝值
MOVTOR2L,#0A5H
MOVOCRAH,#00H;(OCRAH:OCRAL)=(TOR2H:TOR2L)/2,PWM的占空比為50%
MOVOCRAL,#0D2H
MOVTCR21,#85H;PLL預(yù)分頻為5+1
MOVCCCRA,#01H;非反相的PWM
MOVTCR20,#00H
SETBPLEEN
NOP
JNBPLEEN,$;等待鎖相環(huán)（PLL）穩(wěn)定
ORLTCR20,#03H;啟動(dòng)定時(shí)器,對(duì)稱(chēng)PWM模式
RET

;***************************************
;名稱(chēng):UART_INIT
;功能:UART初始化,波特率2400bit/s
;***************************************
UART_INIT:
MOVPCON,#00H
MOVSSTAT,#00H;雙緩沖禁止,中斷禁止,采用查詢(xún)方式發(fā)送和接收
MOVSCON,#40H;串口模式1,接收禁止
ORLPCON,#40H;SMOD0=1,SCON的位7作為FE
MOVBRGCON,#00H
MOVBRGR1,#BRGR1_DATA
MOVBRGR0,#BRGR0_DATA
MOVBRGCON,#03H;啟動(dòng)UART的波特率發(fā)生器
RET

;*****************************************************
;名稱(chēng):DELAY
;功能:延時(shí)(R7*0.1)秒(振蕩器為6MHz)
;入口參數(shù)：R7--延時(shí)時(shí)間
;出口參數(shù)：無(wú)
;注意：如果入口參數(shù)R7等于0，則不延時(shí)而直接返回。
;*****************************************************
DELAY:
MOVA,R7
JZDELAY_RTN
DELAY_L1:
MOVR6,#0C8H;延時(shí)0.1S
DELAY_L2:
MOVR5,#0FAH
DELAY_L3:
NOP
NOP
NOP
NOP
DJNZR5,DELAY_L3
DJNZR6,DELAY_L2
DJNZR7,DELAY_L1
DELAY_RTN:
RET
END