用51单片机模拟空调遥控开关-汇编程序

;遥控4按键模拟 15F104E ;内部振荡11.0592M;按1就P3.0低电平，按2就P3.1低电平 按3就P3.2低电平  按4就P3.3低电平 ;蜂呜器提示， ;自学习功能，按住要学习的键2秒，;蜂呜器长响，学习成功停止响;***************************YHM EQU 2fh;用户码SET0  EQU 30H;SET1  EQU 31H;SET2  EQU 32H;SET3  EQU 33H;;;;;;;;;;;;;;;;;;;;;;;;;;IAP_DATA EQU 0C2HIAP_ADDRH EQU 0C3HIAP_ADDRL EQU 0C4HIAP_CMD  EQU 0C5HIAP_TRIG EQU 0C6HIAP_CONTR EQU 0C7HENABLE_IAP EQU 83H ;系统工作时钟<12MHZ时;************************IR_KEY BIT P3.5;红外beep bit p3.3MA1 EQU 7BH ;MA2 EQU 7CH ;MA3 EQU 7DH MA4 EQU 7EH ;RED_32 EQU 7FH;;************ORG  0H ;程序开始AJMP STARTORG  30H;*************; 单片机初始化START:mov p3,#0ffh MOV DPTR, #0call EEPROMRmov 30h,ainc dptrcall EEPROMRmov 31h,ainc dptrcall EEPROMRmov 32h,ainc dptrcall EEPROMRmov 33h,aMOV DPTR, #200hcall EEPROMRmov 2fh,a;********************************MAIN:orl p3,#17hmov a,p3anl a,#17hcjne a,#17h,d2jmp d4d2:call delay2Sorl p3,#17hmov a,p3anl a,#17hcjne a,#17h,d3jmp d4d3:cpl aanl a,#17hmov 20h,aclr beepd4:jb IR_KEY,MAINACALL IRmov a,20hjnz d4AJMP MAIN ;返回;***************************IR:PUSH ACCPUSH PSWLCALL   DELAY1MSLCALL   DELAY1MSLCALL   DELAY1MSLCALL   DELAY1MSJB IR_KEY,IR_OUT;;高电平退出JNB   IR_KEY,$;等 IR 变为高电平LCALL DELAY2MS380USLCALL DELAY2MS380USJB     IR_KEY,IR_OUT;是否低电平MOV  R0,#MA1;起始内存为7CH,共4个内存JJJ:MOV  R3,#8  ;8位BBB:JNB  IR_KEY,$;等 IR 变为高电平;高电平后开始计数,计数值1 高电平1MOV    R2,#0  ;1MS计数CCC:LCALL   DELAY1MSJNB     IR_KEY,DDD ;低电平跳出计数INC     R2;;高电平继续计数CJNE    R2,#3,CCC;防止计数超时AJMP IR_OUTDDD:CLR ACLR CSUBB A,R2 ;MOV     A,@R0RRC     AMOV     @R0,A  ;处理完一位DJNZ   R3,BBB;8位数据INC     R0;换下一个内存CJNE    R0,#RED_32,JJJ  ;写完个4内存;4个8位码存入MA1~MA4中;-------------------------------------MOV  A,MA4CPL  ACJNE A,MA3,IR_OUTjbc 0,s30jbc 1,s31jbc 2,s32jbc 4,s33MOV  A,MA2;CJNE A,YHM,IR_OUT;CALL IR_GOTOIR_OUT:POP     PSWPOP     ACCRETs30:mov set0,MA3call bao0call bao1setb beepjmp IR_OUTs31:mov set1,MA3call bao0call bao1setb beepjmp IR_OUTs32:mov set2,MA3call bao0call bao1setb beepjmp IR_OUTs33:mov set3,MA3call bao0call bao1setb beepjmp IR_OUT;----------------IR_GOTO:mov a,ma3CJNE A,SET0,E11clr beepclr p3.0LCALL DELAY2MS380USLCALL DELAY2MS380USLCALL DELAY2MS380USsetb p3.0setb beepRETE11:CJNE A,SET1,E12clr beepclr p3.1LCALL DELAY2MS380USLCALL DELAY2MS380USLCALL DELAY2MS380USsetb p3.1setb beepretE12:CJNE A,SET2,E13clr beepclr p3.2LCALL DELAY2MS380USLCALL DELAY2MS380USLCALL DELAY2MS380USsetb p3.2setb beepRETE13:CJNE A,SET3,E14clr beepclr p3.4LCALL DELAY2MS380USLCALL DELAY2MS380USLCALL DELAY2MS380USsetb p3.4setb beepRETE14:;RET;--------延时------DELAY2MS380US:   ;1T  11.0592MMOV R6,#0DFHDL0:MOV R5,#1CHDJNZ R5,$DJNZ R6,DL0RETDELAY1MS:   ;1T   11.0592MMOV R6,#12HDL05:MOV R5,#98HDJNZ R5,$DJNZ R6,DL05NOPRETDELAY255MS:   ;MOV R7,#255DL045:call DELAY1MSDJNZ R7,DL045NOPRETDELAY2S:   ;MOV R4,#7DL1s:call DELAY255MSDJNZ R4,DL1sRET;************************ERASE:;擦除MOV IAP_CONTR,#83h;允许IAP/IAP操作MOV IAP_CMD,#03H  ;扇区擦除MOV IAP_ADDRH,DPH ;送高地址MOV IAP_ADDRL,DPL ;送低地址ACALL IAPXX       ;触发RET;************************EEPROMW:;写MOV IAP_CONTR,#83h;允许IAP/IAP操作MOV IAP_CMD,#02H  ;送写命令MOV IAP_ADDRH,DPH ;送高地址MOV IAP_ADDRL,DPL ;送低地址MOV IAP_DATA,A    ;A是要写入的数据ACALL IAPXX       ;触发RET;************************EEPROMR:;读MOV IAP_CONTR,#83h;允许IAP/IAP操作MOV IAP_CMD,#01H  ;送读命令MOV IAP_ADDRH,DPH ;送高地址MOV IAP_ADDRL,DPL ;送低地址ACALL IAPXX       ;触发MOV A,IAP_DATA    ;读出的数据放到ARET;----------IAPXX:;触发MOV IAP_TRIG, #5AHMOV IAP_TRIG, #0A5H ;NOPNOPret;---------------------IAP_Disable:;禁止IAP/IAP操作MOV IAP_CONTR,#0  MOV IAP_CMD,#0    MOV IAP_TRIG,#0   MOV IAP_ADDRH,#0FFHMOV IAP_ADDRL,#0FFHRETbao0:MOV DPTR, #0;保存call ERASEmov a,30hcall EEPROMWinc dptrmov a,31hcall EEPROMWinc dptrmov a,32hcall EEPROMWinc dptrmov a,33hcall EEPROMWcall IAP_Disableretbao1:MOV DPTR,#200h;保存call ERASEMOV  A,MA2mov 2fh,acall EEPROMWcall IAP_DisableretEND