今天發(fā)一個(gè)很好的學(xué)習(xí)型紅外遙控器的匯編語言程序，還可以用at24c16保存數(shù)據(jù)，大家只需要在I/O定義區(qū)修改為自己的端口即可使用。
;;文件名:(紅外學(xué)習(xí)程序)
;;編寫時(shí)間:2002.04
;;修改2002.11 增加脈寬校正,屏蔽未學(xué)習(xí)碼
;;常數(shù)定義區(qū)
;;----------------------------------------------------------------------------------
SCIBUF EQU 14H ;串行發(fā)送緩沖區(qū)首地址
R_TH0 EQU 03H
R_TL0 EQU 04H
SP_TREG EQU 05H
N_TREG EQU 06H
SP_START EQU 07H
SP_END EQU 0BH
LP EQU 0DH
SADDH EQU 0EH ;24C16地址
SADDL EQU 0FH ;24C16地址
TREG0L EQU 60H
TREG0H EQU 61H
LENTH EQU 61H
TREG1H EQU 62H
TREG1L EQU 63H
TREG2H EQU 64H
TREG2L EQU 65H
TREG3H EQU 66H
TREG3L EQU 67H
TREG4H EQU 68H
TREG4L EQU 69H
TREG5H EQU 6AH
TREG5L EQU 6BH
TREG6H EQU 6CH
TREG6L EQU 6DH
TREG7H EQU 6EH
TREG7L EQU 6FH
;;寄存器定義區(qū)
;;----------------------------------------------------------------------------------
;;
SCICOM EQU 27H ;串行接收命令(=SCOM)
SCILEN EQU 28H ;串行發(fā)送數(shù)據(jù)長度(=SLEN)
CHANNEL EQU 29H
SCISTEP EQU 2AH ;串行通信進(jìn)程狀態(tài)字節(jié)
SCISP EQU 2BH ;串行發(fā)送數(shù)據(jù)區(qū)指針
;;
CRC EQU 2CH ;CRC校驗(yàn)輸出寄存器
SCODE EQU 2DH ;CRC校驗(yàn)輸入寄存器
TIP EQU 2EH
SECOND EQU 2FH
BUF_ST EQU 30H
BUF_END EQU 5FH
;;
;;位定義區(qū)
;;----------------------------------------------------------------------------------
B_TURN BIT 0H
B_LFAIL BIT 1H
B_LEARN BIT 2H
I_LEARN BIT 3H
;I_SEND BIT 4H
B_SDEND BIT 5H
B_SEND BIT 6H
;;I/O定義區(qū)
;;----------------------------------------------------------------------------------
;IN BIT P1.4 ;紅外線接受口
BZ BIT P0.5 ;蜂鳴器輸出口
OUT BIT P1.7 ;紅外線發(fā)射口
WP BIT P0.0 ;寫保護(hù),為0時(shí)可讀寫,為1時(shí)不能寫
SDA BIT P1.3 ;模擬IIC數(shù)據(jù)傳送位
SCL BIT P1.2 ;模擬IIC時(shí)鐘控制狀態(tài)標(biāo)志
LED BIT P0.7 ;發(fā)光指示燈口
TR BIT P0.6 ;串行口接受發(fā)送控制位,為1:接收;為0:發(fā)送
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP T0SERVE ;T0中斷
ORG 0023H
LJMP SINT ;串行中斷
ORG 0043H ;比較器2中斷 注意比較器中斷應(yīng)該是用于檢測紅外接收管傳送數(shù)據(jù)的
CLR TR0 注意比較器中即立即關(guān)閉定時(shí)器
篇幅有限中間省略
;;****************************延時(shí)10微秒********************************************
DELAY:
MOV R2, #5
DELAY1:
MOV R3, #50
DJNZ R3, $
DJNZ R2, DELAY1
RET
;;----------------------------------------------------------------------------------
;;名稱:SENTBYTE(字節(jié)數(shù)據(jù)傳送子程序)
;;功能:發(fā)送一個(gè)字節(jié)數(shù)據(jù)或地址給從接受器24C16
;;輸入:A,即要發(fā)送的數(shù)據(jù)在ACC中
;;輸出:B_ERROR,即發(fā)送數(shù)據(jù)錯(cuò)誤標(biāo)志位,B_ERROR=0,發(fā)送數(shù)據(jù)正常;
;; B_ERROR=1,表示從接受器無應(yīng)答或損壞
;;調(diào)用:無
;;----------------------------------------------------------------------------------
;;--------------------------------------------------------------------------
;;名稱: W24C
;;功能: WRITE DATA TO 24C16
;;輸入: SADD,R1,R2
;;輸出: (無)
;;--------------------------------------------------------------------------
;;調(diào)用: START,WBYTE,ACKN,STOP
;;--------------------------------------------------------------------------
;;影響: A,R1,R2
;;堆棧: 4
;;--------------------------------------------------------------------------
;;參數(shù)說明:
;; SADDH,SADDL:24C16 ADDRESS
;; R2:WRITE NUMBER 寫的數(shù)據(jù)的數(shù)量
;; R1:RAM ADDRESS POINTER 所寫數(shù)據(jù)所在RAM區(qū)域的指針
;;--------------------------------------------------------------------------
;;注意:
;;--------------------------------------------------------------------------
W24C:
LCALL START ;IIC起始信號(hào)
MOV A, SADDH
RL A
ORL A, #0A0H
LCALL WBYTE ;寫命令字節(jié)
LCALL ACKN ;收應(yīng)答
MOV A, SADDL
LCALL WBYTE ;寫2416的地址
LCALL ACKN ;收應(yīng)答
WD24:
MOV A, @R1
INC R1
LCALL WBYTE
LCALL ACKN
DJNZ R2, WD24
LCALL STOP ;IIC結(jié)束信號(hào)
RET
;;--------------------------------------------------------------------------
;;名稱: WBYTE
;;功能: WRITE ONE BYTE DATA TO 24C16
;;輸入: A
;;輸出: (無)
;;--------------------------------------------------------------------------
;;調(diào)用: (無)
;;--------------------------------------------------------------------------
;;影響: A,R0
;;堆棧: 2
;;--------------------------------------------------------------------------
;;參數(shù)說明:
;; A:發(fā)送數(shù)據(jù)(1字節(jié))
;;--------------------------------------------------------------------------
;;注意:
;;--------------------------------------------------------------------------
WBYTE:
MOV R0,#8
XWB1:
RLC A
NOP
NOP
MOV SDA,C
NOP
SETB SCL
NOP
NOP
NOP
NOP
NOP
CLR SCL
DJNZ R0,XWB1
RET
;;--------------------------------------------------------------------------
;;名稱: R24C
;;功能: READ DATA FROM 24C16
;;輸入: SADD,R1,R2
;;輸出: (無)
;;--------------------------------------------------------------------------
;;調(diào)用: START,WBYTE,ACKN,RBYTE,STOP
;;--------------------------------------------------------------------------
;;影響: A,R1,R2
;;堆棧: 4
;;--------------------------------------------------------------------------
;;參數(shù)說明:
;; SADD:24C16 ADDRESS
;; R2:WRITE NUMBER
;; R1:RAM ADDRESS POINTER
;;--------------------------------------------------------------------------
;;注意:
;;--------------------------------------------------------------------------
R24C:
LCALL START ;IIC起始信號(hào)
MOV A, SADDH SADDH是個(gè)什么樣的地址？？？？？？？？
RL A
ORL A, #0A0H
LCALL WBYTE ;寫命令字節(jié)
LCALL ACKN ;收應(yīng)答
MOV A, SADDL
LCALL WBYTE ;地址字節(jié)
LCALL ACKN ;收應(yīng)答
LCALL START
MOV A, SADDH
RL A
ORL A, #0A1H 讀24C16
LCALL WBYTE ;讀命令字節(jié)
LCALL ACKN ;收應(yīng)答
RC24:
LCALL RBYTE ;讀2416
MOV @R1,A
INC R1
DJNZ R2,RCX
LCALL STOP ;IIC結(jié)束信號(hào)
RET
RCX:
LCALL ACKS ;發(fā)應(yīng)答 注意這里比較巧妙的結(jié)構(gòu)安排
SJMP RC24
;;--------------------------------------------------------------------------
;;名稱: RBYTE
;;功能: READ ONE BYTE DATA FROM 24C16
;;輸入: (無)
;;輸出: A
;;--------------------------------------------------------------------------
;;調(diào)用: (無)
;;--------------------------------------------------------------------------
;;影響: A,R0
;;堆棧: 2
;;--------------------------------------------------------------------------
;;參數(shù)說明:
;; A:接收數(shù)據(jù)(1字節(jié))
;;--------------------------------------------------------------------------
;;注意:
;;--------------------------------------------------------------------------
RBYTE:
SETB SDA
MOV R0, #8
XRB1:
SETB SCL
NOP
NOP
NOP
MOV C, SDA
CLR SCL
RLC A
NOP
NOP
DJNZ R0, XRB1
RET
;;====================================================================
;;接收應(yīng)答
;;====================================================================
ACKN:
SETB SDA
SETB SCL
NOP
JB SDA, $
NOP
NOP
CLR SCL
RET
;;====================================================================
;;發(fā)送應(yīng)答
;;====================================================================
ACKS:
CLR SDA
NOP
NOP
NOP
SETB SCL
NOP
NOP
NOP
NOP
CLR SCL
RET
;;**********************************************************************************
;;名稱:START
;;描述:啟動(dòng)IIC總線子程序---發(fā)送IIC起始條件
;;**********************************************************************************
START:
SETB SDA ;發(fā)送起始條件的數(shù)據(jù)信號(hào)
NOP
SETB SCL ;發(fā)送起始條件的時(shí)鐘信號(hào)
NOP ;起始條件建立時(shí)間大于4.7US
NOP
NOP
NOP
NOP
CLR SDA ;發(fā)送起始信號(hào)
NOP ;起始條件鎖定時(shí)間大于4US
NOP
NOP
NOP
NOP
CLR SCL ;鉗住IIC總線,準(zhǔn)備發(fā)送或接收數(shù)據(jù)
RET
;;**********************************************************************************
;;名稱:STOP
;;描述:停止IIC總線子程序---發(fā)送IIC總線停止條件
;;**********************************************************************************
STOP:
CLR SDA ;發(fā)送停止條件的數(shù)據(jù)信號(hào)
NOP
SETB SCL ;發(fā)送停止條件的時(shí)鐘信號(hào)
NOP ;起始條件建立時(shí)間大于4US
NOP
NOP
NOP
NOP
SETB SDA ;發(fā)送IIC總線停止信號(hào)
NOP
NOP
NOP
NOP
RET
;;==================================================================================
GETADDR:
MOV A,#70H 注意模塊類型地址是70
MOV C,P1.5
MOV ACC.3,C
MOV C,P1.6
MOV ACC.2,C
MOV C,P1.7
MOV ACC.1,C
MOV C,P0.0
MOV ACC.0,C
MOV SADDR,A
RET
;;==================================================================================
;;==================================================================================
;;串行口中斷服務(wù)子程序
;;==================================================================================
;接收前四位命令: 1111 是接收處理正常,發(fā)送返回命令
; 0000 是學(xué)習(xí)紅外線指令命令
; 0001 是發(fā)送紅外線指令命令
;接收后四位數(shù)據(jù)長度為1個(gè)字節(jié)0001
;數(shù)據(jù)字節(jié):為學(xué)習(xí)或發(fā)送的按鍵值(就是EEPROM 的地址)
;設(shè)備類型+模塊地址是10000000
SINT: ;串行中斷服務(wù)子程序
PUSH PSW
PUSH A
SETB RS1 ;切換寄存器組
;
JBC RI, RINT ;RI=1,接收數(shù)據(jù),并將該位清0
JBC TI, TINT ;TI=1,發(fā)送數(shù)據(jù),并將該位清0
LJMP MAIN ;出錯(cuò)返回主程序 注意這里出錯(cuò)返回用的是跳轉(zhuǎn)指令 而不是中斷返回指令
;;==================================================================================
;;串行數(shù)據(jù)發(fā)送子程序
;;==================================================================================
TINT: ;發(fā)送中斷
MOV A, SCILEN ;發(fā)送數(shù)據(jù)長度3入A
JZ TINTOUT ;SLVADR=0,返回
DEC SCILEN ;SLVADR=SLVADR-1
CJNE A,#1,TINTC ;若SCILEN=1,則發(fā)送CRC校驗(yàn)碼
MOV SBUF, CRC
POP A
POP PSW
RETI
TINTC:
CLR TB8 ;清第9位,發(fā)送的是數(shù)據(jù) 從機(jī)只是應(yīng)答，不需要發(fā)送地址
MOV R0, #SCIBUF 為什么是緩沖區(qū)而不是指針
MOV A, @R0
MOV SBUF, A ;發(fā)送
MOV SCODE , A ;并對發(fā)送內(nèi)容進(jìn)行CRC校驗(yàn)
LCALL ENCODE
INC SCISP 發(fā)送緩沖區(qū)指針初始化是在哪進(jìn)行的？？？？
POP A
POP PSW
RETI
TINTOUT:
mov a,channel channel做什么用？？？？？？？？
jz send1
anl channel,#7
MOV A, SCICOM 在發(fā)送的時(shí)候?yàn)槭裁匆忻钭止?jié)？？？？
CJNE A,#06H,SEND ;是學(xué)習(xí)紅外碼嗎?
SETB I_LEARN 可見I_LEARN是學(xué)習(xí)紅外碼標(biāo)志，B_SEND是發(fā)射紅外碼標(biāo)志
CLR B_SEND
SEND:
CJNE A,#05H,SEND1 ;是發(fā)射紅外碼碼?
SETB B_SEND
CLR I_LEARN
SEND1:
SETB TR ;接收使能 發(fā)送完畢即啟動(dòng)接收
SETB SM2 ;RB8=0,則RI不會(huì)被激活
POP A
POP PSW
RETI
;;==================================================================================
;;串行數(shù)據(jù)接收子程序
;;==================================================================================
RINT:
JNB RB8, RVALID ;RB8=0,跳轉(zhuǎn)至數(shù)據(jù)接收
MOV A, SBUF
CJNE A,SADDR, STEP0 ;接收的類型 地址不對就進(jìn)行串口初始化
CLR SM2 準(zhǔn)備接收數(shù)據(jù)
MOV CRC, A ;CRC賦值(BITCNT與0的CRC校驗(yàn)結(jié)
;果就是本身)
MOV SCISTEP, #1 ;串行通信進(jìn)程為1 地址接收完畢 通信進(jìn)程加1
POP ACC
POP PSW
RETI
;;==================================================================================
;;接收數(shù)據(jù)
;;==================================================================================
RVALID:
MOV DPTR, #TBSTEP
MOV A, SCISTEP
ANL A, #03
RL A
JMP @A+DPTR 注意這條基址加變址間接轉(zhuǎn)移指令
TBSTEP:
AJMP STEP0 ;出錯(cuò),串行口初始化
AJMP STEP1 ;接收命令長度字節(jié)
AJMP STEP2 ;接收數(shù)據(jù)
AJMP STEP3 ;接收CRC校驗(yàn)碼,處理信息
;;==================================================================================
;;串行口初始化
;;==================================================================================
STEP0: ;串行中斷設(shè)置復(fù)位
MOV TMOD, #21H ;設(shè)置定時(shí)器0和1為方式2,定時(shí)控制方式，以運(yùn)行控制位TR0，TR1啟動(dòng)定時(shí)器 注意這里串口初始化包括初始化定時(shí)器、串口配置以及
MOV TH1, #0FAH
MOV TL1, #0FAH ;波特率為4800
MOV SCON, #0F0H ;串口工作方式3，多機(jī)通信控制，允許接收
SETB SM2
MOV SADEN, #0FFH
SETB TR1 ;啟動(dòng)T1定時(shí)
POP A
POP PSW
RETI
;;==================================================================================
;;獲得(串行命令+長度)字節(jié)
;;==================================================================================
STEP1: ;接收命令長度字節(jié)
MOV A, SBUF
PUSH A 在堆棧中保存A
ANL A, #0FH
CJNE A,#1,STEP0 轉(zhuǎn)移之后沒有出棧指令是否會(huì)導(dǎo)致堆�；靵y？？
MOV SCILEN, A ;取SLEN(BYTE2 4:0);后四位數(shù)據(jù)長度 A不為1則初始化串口是什么意思呢？？？？？
POP A ;SLEN=0
MOV SCODE, A ;CRC校驗(yàn)
ANL A, #0F0H ;取SCOM 前四位命令
SWAP A ;高低四位交換
RR A
MOV SCICOM, A ;SUBADR(2:0)
LCALL ENCODE ;調(diào)用CRC校驗(yàn)子程序
INC SCISTEP
MOV SCISP, #SCIBUF ;發(fā)送數(shù)據(jù)緩沖區(qū)的指針 注意這里初始化數(shù)據(jù)緩沖區(qū)指針
POP A
POP PSW
RETI
;;==================================================================================
;;接收數(shù)據(jù)
;;==================================================================================
STEP2: ;接收數(shù)據(jù)
MOV A, SBUF
MOV CHANNEL, A 注意接收的數(shù)據(jù)放在CHANNEL中
MOV SCODE, A
LCALL ENCODE
INC SCISP ;接收緩沖區(qū)指針加1 接收的數(shù)據(jù)似乎沒有放入緩沖區(qū)
INC SCISTEP ;等于0,進(jìn)程號(hào)加1后出中斷
POP A
POP PSW
RETI
;;==================================================================================
;;接收CRC校驗(yàn)碼
;;==================================================================================
STEP3: ;接收CRC校驗(yàn)碼
MOV A, SBUF
CJNE A,CRC,STEP0 ;接收錯(cuò)誤則復(fù)位
MOV SCIBUF, #0E0H 這是做什么？？？？？？？
;******************發(fā)送應(yīng)答信號(hào)*****************************************************
CLR TR ;發(fā)送應(yīng)答使能
LCALL DELAY ;DELAY
MOV SBUF, SADDR ;接收(類型+地址)=設(shè)定(類型+地址) 注意接收完之后要發(fā)送應(yīng)答
MOV CRC, SADDR ;(類型+地址)回送
MOV SCILEN, #02H ;發(fā)送數(shù)據(jù)長度為2個(gè)
STEP3RET:
POP A
POP PSW
RETI