當(dāng)前位置：首頁 > 單片機 > 單片機

基于AT89C2051的紅外遙控學(xué)習(xí)器源程序

時間：2010-12-09 13:56:19

關(guān)鍵字： AT89C2051 源程序紅外遙控 BSP

手機看文章

掃描二維碼
隨時隨地手機看文章

[導(dǎo)讀]源程序 ORG 0000H AJMP MAIN ORG 0003H AJMP KEYPRESS ORG 000BH AJMP TIMEOUT ORG 001BH AJMP TIMEOUT SEN

源程序

ORG 0000H
          AJMP MAIN
          ORG 0003H
          AJMP KEYPRESS
          ORG 000BH
          AJMP TIMEOUT
          ORG 001BH
          AJMP TIMEOUT

          SENDDUAN   BIT P3.0
          JIEDUAN    BIT P3.1
          INTRPO     BIT P3.2
          JIEXUAN    BIT P3.3
          SENDLIGHT BIT P3.4
          JIELIGHT   BIT P3.5
          CS         BIT P3.7
          DATADUAN   BIT P1.6
          CLK        BIT P1.7
          JIANWEI    EQU R5
          JIANMA     EQU R6
          SHANGJIAN EQU 07H;R7
          OPENKEY    EQU 81H
          CLOSEKEY   EQU 00H
          CHUT0      EQU 11H
          CHUT1      EQU 11H
          BUFBEGIN   EQU 18H
          OPENT1     EQU 88H
          CLOSET1    EQU 00H
          OPENT0     EQU 82H
          CLOSET0    EQU 00H
          DATABEG1   EQU 0AAH
          DATABEG2   EQU 33H

          ORG 0030H
MAIN:     MOV IE,#80H
          MOV IP,#00H
          MOV P3,#0FFH
          CLR CS
          SETB P1.0
          SETB P1.1
          SETB P1.2
          CLR P1.3
          CLR P1.4
          CLR P1.5
          CLR P1.6
          CLR P1.7

          MOV R3,#80H
          MOV R0,00H
CYCLE1:   MOV @R0,#00H
          INC R0
          DJNZ R3,CYCLE1

          MOV PSW,#00H
          MOV SP,#07H

MOV TMOD,#11H
MOV TCON,#00H

START:    MOV SP,#07H
          SETB SENDDUAN
          CLR F0
          SETB EXO
WAITKEY: MOV C,F0
          JNC WAITKEY
          CJNC JIANMA,#1BH,SEND
          LCALL LEARNP
          LJMP START
SEND:     LCALL SENDP
          LJMP START

SENDP:    SETB SENDDUAN
          CLR F0
          MOV TMOD,#CHUT1
          CLR   SENDLIGHT
          MOV A,JIANMA
          CJNE A,SHANGJIAN,SAME
SAME:     MOV R0,#BUFBEGIN
          CLR TR1
          LJMP NEXT3
RETURN:   CLR ET1
          SETB SENDDUAN
          SETB SENDLIGHT
          CLR F0
          LCALL DELAY
          RET
NEXT3:    CPL F0
          JB F0,SEND1
SEND0:    CLR C                  ;1
          MOV A,#0FFH
          SUBB A,@R0
          MOV R2,A               ;1
          INC R0                 ;1
          MOV A,#0FFH            ;1
          SUBB A,@R0             ;1
          MOV R3,A
          INC R0
          CLR C
          MOV A,#4FH
          ADDC A,R2
          MOV R2,A
          MOV A,R3
          ADDC A,#00H
          MOV R3,A
          MOV TL1,R2
          MOV TH1,R3
          SETB TR1              ;1
          SETB ET1              ;1
SEND1:    CLR C
          MOV A,#0FFH
          SUBB A,@RO
          MOV TL1,A
          INC R0
          MOV A,#0FFH
          SUBB A,@R0
          MOV TH1,A
          INC R0
          SETB TR1
          SETB ET1
NEXT6:    CLR SENGGUAN
          MOV R3,#03H
NEXT4:    DJNZ R3,NEXT4
          SETB SENDDUAN
          MOV R3,#07H
NEXT5:    DJNZ R3,#NEXT5
          SJMP NEXT6

TIMA1OUT: CLR ET1               ;2
          CLR TR1               ;2
          SETB SENDDUAN         ;1
          CJNE@R0,#DATABEG2,TIM1NT2
          MOV DPTR,#RETURN      ;2
          MOV R1,SP            ;2
          MOV @R1,DPH          ;2
          DEC R1               ;1
          MOV @R1,DPL          ;2
          RETI                 ;2
TIM1NET2: DEC R0
TIM1NET1: CPL F0               ;1
          JB F0,SEND11         ;2
SEND00:   MOV DPTR,#SENDO      ;11
          MOV R1,SP
          MOV @R1,DPH
          DEC R1
          MOV @R1,DPL
          RETI
SEND11:   MOV DPTR,#SEND1      ;11
          MOV R1,SP
          MOV @R1,DPH
          DEC R1
          MOV @R1,DPL
          RETI
LEARNP:   MOV R2,#02H
NEXT91:   MOV R3,#0FFH
NEXT81:   MOV R4,#0FFH
NEXT71:   DJNZ R4,NEXT71
          DJNZ R3,NEXT81
          GJNZ R2,NEXT91
          CLR F0
          SETB EX0
          MOV R2,#0AH
MEXT9:    MOV R3,#0FFH
NEXT8:    MOV R4,#0FFH
NEXT7:    JB F0,NEXT10
          DJNZ R4,NEXT7
          DJNZ R3,MEXT8
          DJNZ R2,NEXT9
          CLR EX0
          RET
NEXT10:   CJNE JIANMA,#1BH,NEXT11
          LJMP NEXT111
NEXT11:   RET
NEXT111: CLR JIELIGHT
          CLR JIEXUAN
          CLR F0
          MOV R0,#BUFBEGIN
          SETB ET0
          MOV TCON,#00H
          MOV TMOD,#CHUT0
          MOV TL0,#00H
          MOV TH0,#00H
          MOV R2,#02H
NEXT92:   MOV R3,#0FFH
NEXT82:   MOV R4,#0FFH
NEXT72:   DJNZ R4,NEXT72
          DJNZ R3,NEXT82
          DJNZ R2,NEXT92

          CLR TR0
L1:       MOV C,JIEDUAN
          JC L1
L4:       SETB TR0
L2:       MOV C,JIEDUAN
          CLR TR0
          MOV @R0,TL0
          INC R0
          MOV TH0,#00H
          MOV TL0,#00H
L6:       SETB TR0
L3:       MOV C,JIEDUAN
          JC L3
          CLR TR0
          CLR C
          MOV A,TL0
          ADDC A,#13H
          MOV @R0,A
          INC R0
          MOV TH0,#00H
          MOV TL0,#00H
          SETB TR0
L5:       MOV C,JIEDUAN
          JNC L5
          CLR TR0
          CLR C                ;1
          MOV A,TL0            ;1
          ADDC A,#13H          ;1
          MOV @R0,A            ;2
          INC R0
          MOV A,TH0
          ADDC A,#00H
          MOV @R0,A
          INC R0
          MOV TH0,#00H
          MOV TL0,#00H
          SJMP L6
SHUJIAN: SETB JIEXUAN
          MOV @R0,#DATABEG1
          INC R0
          MOV @R0,#DATABEG2
          SETB EX0
          CLR F0
NEXT13:   JB F0,NEXT12
          LJMP NEXT13
NEXT12:   LCALL WRITEP
          SETB JIELIGHT
          RET
TIME0OUT CLR ET0
          CLR TR0
          MOV DPTR,#SHUJIAN
          MOV @R1,DPH
          DEC R1
          MOV @R1,DPL
          RETI
KEYPRESS: CLR EX0
          MOV R3,#0DH
CYCLE3:   MOV R4,#0FFH
CYCLE2:   DJNZ R4,CYCLE2
          DJNZ R3,CYCLE3
          MOV C,INTRPO
          JNC NEXT1
          RETI
NEXT1:    SETB F0
          MOV C,P1.0
          MOV ACC.0,C
          MOV C,P1.1
          MOV ACC.1,C
          MOV C,P1.2
          MOV ACC.2,C
          CLR P1.0
          CLR P1.1
          CLR P1.2
          SETB P1.3
          SETB P1.4
          SETB P1.5
          MOV C,P1.3
          MOV ACC.3,C
          MOV C,P1.4
          MOV ACC.4,C
          MOV C,P1.5
          MOV ACC.5,C
          ANL A,300111111B
          MOV JIANMA,A
          SETB P1.0
          SETB P1.1
          SETB P1.2
          CLR P1.3
          CLR P1.4
          CLR P1.5
          LCALL JIANWEIP
          RETI
JIANWEIP: CJNE JIANMA,#36H,NEXT14
          MOV JIANWEI,#01H
          LJMP LAST
NEXT14:   CJNE JIANMA,#35H,NEXT15
          MOV JIANWEI,#02H
          LJMP LAST
NEXT15:   CJNE JIANMA,#35H,NEXT16
          MOV JIANWEI,#03H
          LJMP LAST
NEXT16:   CJNE JIANMA,#2EH,NEXT17
          MOV JIANWEI,#04H
          LJMP LAST
NEXT17:   CJNE JIANMA,#2DH NEXT18
          MOV JIANWEI, #05H
          LJMP LAST
NEXT18:   CJNE JIANMA,#2BH,NEXT19
          MOV JIANWEL,#06H
          LJMP LAST
NEXT19:   CJNE JIANMA,#1EH,NEXT20
          MOV JIANWEI,#07H
          LJMP LAST
NEXT20:   CJNE JIANMA,#1DH,NEXT21
          MOV JIANWEL,#09H
          LJMP LAST
NEXT21:   CJNE JIANMA,#1BH,NEXT22
          MOV JIANWEI,#09H
          LJMP LAST
NEXT22:   CLR FO
LAST:     RET
READP:    MOV RO,BUFBEGIN
          MOV A,JIANWEI
          MOV B,50
          MUL AB
          MOV R3,A
SHU JU DI ZHI
          INC R3
          LCALL READCOM
READNET2: MOV A,R3
          LCALL WRITEADRESS
          LCALL READBYTE
          CJNE ,#DATABEG1,READNET1
          MOV A R3
          INC A
          LACLL WRITEADRESS
          LCALL READBYTE
          CJNE A,#DATABEG2,READNET1
          CLR CS
          RET
READNET1: MOV @RO,A
          INC RO
          INC R3
          LJMP READNET2
WRITEP:   MOV RO,BUFBEGIN
          MOV A,JIAWEI
          MOV B,50
          MUL AB
          MOV R3,A     ;KAI SHI SHU
JU DI ZHI
          INC R3
          LCALL EWEN
WRITNET1: LACLL WRITECOM
          MOV,R3
          LCALL WRITEADRESS
          MOV A,@RO
          CJNE A,#DATABEG1,WRITNET2
          INC RO
          MOV A,@RO
          CJNE A,DATABEG2,WRITNET3
          LCALL EWDS
          CLR CS
          RET
WRITNRT3: DEC RO
WRITNET2: LCALL WRITEBYTE
          INC RO
          INC R3
          LJMP WRITNE1
          RET
WRITBYTE: MOV R2,#08H
BOUT1:    CLR CLK
          RLC A
          MOV DATADUAN,C
          NOP
          SETB CLK
          NOPDJNZ R2,BOUT1
          CLRDATADUAN
          RET
READBYTE: SETB DATAUAN
          MOV R2,#08H
BIN1:     CLR CLK
          NOP
          SETB CLK
          NOP
          MOV C,DATADUAN
          RLC A
          DJNZ R2,BIN1
          RET
READCOM: CLR CS
          CLR CLK
          SETB DATADUAN
          SETB CS
          NOP
          SETB CLK           ;1
          NOP
          CLR CLK
          NOP
          SETB CLK           ;1
          NOP
          CLR DATAUAN
          CLR CLK
          NOP
          SETB CLK           ;0
          RET
WRITECOM: CLR CS
          NOP
          CLR CLK
          SETB DATADUAN
          SETB CS
          NOP
          SETB CLK           ;1
          NOP
          CLR DATADUAN
          NOP
          CLR CLK
          NOP
          SETB CLK           ;0
          NOP
          SETB DATADUAN
          NOP
          CLR CLK
          NOP
          SETB CLK           ;1
          RET
WRITEADRESS: MOV R2,#07H
          RLC A      ;TIAO GUO
DI 7 WEI
BOUT2:    CLR CLK
          RLC A
          MOV DATADUAN,C
          NOP
          DJNA R2,BOUT2
          CLR DATAUAN
          RET
EQEN:     CLR CS
          CLR CLK
          SETB DATADUAN
          SETB CS
          SETB CLK           ;1
          NOP
          CLR CLK
          NOP
          CLR DATADUAN
          SETB CLK           ;0
          NOP
          NOP
          CLR CLK
          NOP
          SETB CLK           ;0
          NOP
          NOP
          SETB DATADUAN
          CLR CLK
          NOP
          SETB CLK           ;1
          NOP
          NOP
          SETB CLK           ;1
          NOP
          NOP
          CLR CLK
          NOP
          NOP
          CLR CS
          RET
EWDS:     CLR CS
          CLR CLK
          SETB DATADUAN
          SETB CS
          SETB CLK           ;1
          NOP
          CLR CLK
          NOP
          CLR DATADUAN
          SETB CLK           ;0
          NOP
          NOP
          CLR CLK
          NOP
          SETB CLK           ;0
          NOP
          NOP
          CLR CLK
          NOP
          NOP
          RETB CLK           ;0
          NOP
          NOP
          SETB CLK           ;0
          NOP
          NOP
          CLR CLK
          NOP
          NOP
          SETB CLK           ;0
          NOP
          NOP
          CLR CS
          CLR CLK
          RET
DELAY:    MOV R3,#96H
DEL1:     MOV R4,#OFFH
DEL2:     DJNZ R4,DEL2
          DJNZ R3,#DEL1
          RET
END

本站聲明：本文章由作者或相關(guān)機構(gòu)授權(quán)發(fā)布，目的在于傳遞更多信息，并不代表本站贊同其觀點，本站亦不保證或承諾內(nèi)容真實性等。需要轉(zhuǎn)載請聯(lián)系該專欄作者，如若文章內(nèi)容侵犯您的權(quán)益，請及時聯(lián)系本站刪除。

換一批

IBM發(fā)布2022年第三季度業(yè)績報告：軟件、咨詢和基礎(chǔ)設(shè)施等核心業(yè)務(wù)實現(xiàn)強勁增長

美國紐約州阿蒙克2022年10月20日 /美通社/ -- IBM（NYSE: IBM）發(fā)布 2022 年第三季度業(yè)績報告。 IBM 董事長兼首席執(zhí)行官 Arvind Kri...

關(guān)鍵字： IBM 軟件 BSP 云平臺

[產(chǎn)業(yè)新聞]

平安養(yǎng)老險四川踐行"有溫度的金融" 助力構(gòu)建多層次養(yǎng)老保障體系

成都2022年10月19日 /美通社/ -- 近期，平安養(yǎng)老險積極籌備個人養(yǎng)老金的產(chǎn)品設(shè)計和系統(tǒng)開發(fā)工作，發(fā)展多樣化的養(yǎng)老金融產(chǎn)品，推動商業(yè)養(yǎng)老保險、個人養(yǎng)老金、專屬商業(yè)養(yǎng)老保險等產(chǎn)品供給。搭養(yǎng)老政策東風(fēng) ...

關(guān)鍵字：溫度 BSP 東風(fēng) 大眾

[產(chǎn)業(yè)新聞]

「這空間很中國」重構(gòu)理想空間恒潔推進(jìn)國民美好生活品質(zhì)升級

廣東佛山2022年10月19日 /美通社/ -- 空間是人居生活的基礎(chǔ)單元，承載著生存與活動的最基本功能。而對于理想空間的解構(gòu)意義卻在物理性容器之外，體現(xiàn)出人們對于空間和生活深層關(guān)系的思考，同時也塑造著人與空間的新型連接...

關(guān)鍵字：溫度 BSP 智能化進(jìn)程

[產(chǎn)業(yè)新聞]

下好創(chuàng)新"先手棋"，安集科技功能性濕電子化學(xué)品持續(xù)發(fā)力

上海2022年10月19日 /美通社/ -- 10月17日晚間，安集科技披露業(yè)績預(yù)告。今年前三季度，公司預(yù)計實現(xiàn)營業(yè)收入7.54億元至8.33億元，同比增長60.24%至77.03%；歸母凈利潤預(yù)計為1.73億...

關(guān)鍵字：電子安集科技 BSP EPS

[產(chǎn)業(yè)新聞]

諾誠健華獲2022年度首批"北京市企業(yè)技術(shù)中心"認(rèn)定

北京2022年10月19日 /美通社/ -- 10月18日，北京市經(jīng)濟(jì)和信息化局發(fā)布2022年度第一批北京市市級企業(yè)技術(shù)中心創(chuàng)建名單的通知，諾誠健華正式獲得"北京市企業(yè)技術(shù)中心"認(rèn)定。北京市企業(yè)技...

關(guān)鍵字： BSP ARMA COM 代碼

[產(chǎn)業(yè)新聞]

IDC：2022上半年浪潮超融合位列中國前三

北京2022年10月18日 /美通社/ -- 10月14日，國際數(shù)據(jù)公司（IDC）發(fā)布《2022Q2中國軟件定義存儲及超融合市場研究報告》，報告顯示：2022年上半年浪潮超融合銷售額同比增長59.4%，近5倍于...

關(guān)鍵字： IDC BSP 數(shù)字化數(shù)據(jù)中心

[產(chǎn)業(yè)新聞]

首都銀行（中國）行長林大鎰：現(xiàn)階段外資金融機構(gòu)更應(yīng)抓住中國市場機遇

上海2022年10月18日 /美通社/ -- 2022年9月5日，是首都銀行集團(tuán)成立60周年的紀(jì)念日。趁著首都銀行集團(tuán)成立60周年與首都銀行（中國）在華深耕經(jīng)營12年的“大日子”，圍繞作為外資金融機構(gòu)對在華戰(zhàn)略的構(gòu)想和業(yè)...

關(guān)鍵字：數(shù)字化 BSP 供應(yīng)鏈控制

[產(chǎn)業(yè)新聞]