ʵ

常用单片机程序范例代码

      ;***************************************************************************
      ;* 实验板测试程序。      *
      ;* Support telephone:  (www.gg-dl.com )                       
      ;*
      ;*               
      ;*
      ;* 
      ;*************************************************************************** 


      ORG 0000H 
AJMP MAIN;转入主程序
ORG 0013H ;0013H;0003H;外部中断P3.3脚INT0入口地址 ;INT1 
AJMP INT;转入外部中断服务子程序（红外遥控解码程序）
;以下为主程序进行CPU中断方式设置
MAIN:;LCALL YS3;等待硬件上电稳定
SETB EA;打开CPU总中断请求
SETB IT1;IT1;设定INT1的触发方式为脉冲负边沿触发
SETB EX1;EX1;打开INT1中断请求
MOV SCON,#50H;设置成串口1方式
MOV TMOD,#20H;波特率发生器T1工作在模式2上
MOV PCON,#80H;波特率翻倍为2400x2=4800BPS
MOV TH1,#0F3H;预置初值(按照波特率2400BPS预置初值)
MOV TL1,#0F3H;预置初值(按照波特率2400BPS预置初值)
SETB TR1;启动定时器T1
;以上完成串口通讯初始化设置

START:; CLR P3.4;
SETB  P2.1 ;CLOSE MOTOR
MOV P1,#01111111B 
LCALL DELAY 
MOV P1,#10111111B 
LCALL DELAY 
MOV P1,#11011111B 
LCALL DELAY 
MOV P1,#11101111B 
LCALL DELAY 
MOV P1,#11110111B 
LCALL DELAY 
MOV P1,#11111011B 
LCALL DELAY 
MOV P1,#11111101B 
LCALL DELAY 
;MOV P1,#00
MOV P1,#11111110B;P1口的LED循环由下往上点亮一次,延时约250毫秒 
LCALL DELAY 
CLR P2.3  ;MOV P2,#11011111B;蜂鸣器鸣响一声
LCALL DELAY 
SETB P2.3
CLR P2.0 ;MOV P2,#11101111B;继电器J1吸合一次
CLR P2.1 ;OPEN MOTOR
LCALL DELAY 
LCALL DELAY
LCALL DELAY
SETB P2.0
SETB P2.1 ;CLOSE MOTOR
LCALL DELAY 
MOV P0,#0FFH
MOV P2,#11101111B;数码管个位显示8
LCALL DELAY 
MOV P2,#11011111B;数码管十位显示8
LCALL DELAY
MOV P2,#10111111B;数码管百个位显示8
LCALL DELAY 
MOV P2,#01111111B;数码管千位显示8
LCALL DELAY
AJMP START;反复循环

;以下为进入P3.3脚外部中断子程序，也就是解码程序，红外接收接口
INT: CLR EA;暂时关闭CPU的所有中断请求
MOV R6,#10
SB: ACALL YS1;调用882微秒延时子程序
JB P3.3,EXIT;P3.3;延时882微秒后判断P3.3脚是否出现高电平如果有就退出解码程序 P3.3
DJNZ R6, SB;重复10次，目的是检测在8820微秒内如果出现高电平就退出解码程序 
;以上完成对遥控信号的9000微秒的初始低电平信号的识别。
JNB P3.3, $;等待高电平避开9毫秒低电平引导脉冲.P3.3
ACALL YS2;延时4.74毫秒避开4.5毫秒的结果码
MOV R7,#26;忽略前26位系统识别码 

JJJJA:JNB P3.3,$;等待地址码第一位的高电平信号
LCALL YS1;高电平开始后用882微秒的时间尺去判断信号此时的高低电平状态
MOV C,P3.3;将P3.3引脚此时的电平状态0或1存入C中
JNC UUUA;如果为0就跳转到UUUA
LCALL YS3;检测到高电平1的话延时1毫秒等待脉冲高电平结束
UUUA: DJNZ R7,JJJJA

MOV R1,#1AH ;设定1AH为起始RAM区
MOV R2,#2;接收从1AH到1BH的2个内存,用于存放操作码和操作反码 
PP: MOV R3,#8;每组数据为8位 

JJJJ: JNB P3.3,$;等待地址码第一位的高电平信号
LCALL YS1;高电平开始后用882微秒的时间尺去判断信号此时的高低电平状态
MOV C,P3.3;将P3.3引脚此时的电平状态0或1存入C中
JNC UUU;如果为0就跳转到UUU
LCALL YS3;检测到高电平1的话延时1毫秒等待脉冲高电平结束
UUU: MOV A,@R1;将R1中地址的给A
RRC A;将C中的值0或1移入A中的最低位
MOV @R1,A;将A中的数暂时存放在R1数值的内存中
DJNZ R3,JJJJ;接收满8位换一个内存
INC R1;对R1中的值加1，换下一个RAM
DJNZ R2,PP ;接收完8位数据码和8位数据反码，存放在1AH/1BH中

MOV A,1AH
CPL A;对1AH取反后和1BH比较
CJNE A,1BH,EXIT;如果不等表示接收数据发生错误,放弃

MOV P1,1AH;将按键的键值通过P1口的8个LED显示出来!
MOV A,1AH;将红外遥控器具体按键的键值发送到串口去
MOV SBUF,A;通过串口在电脑屏幕上显示出来

CLR P2.3 ;蜂鸣器鸣响嘀嘀嘀的声音，表示解码成功
LCALL YS2
LCALL YS2
LCALL YS2
SETB P2.3 ;蜂鸣器停止
EXIT: SETB EA ;允许中断
RETI ;退出解码子程序

YS1: MOV R4,#20 ;（占用R4/R5）延时子程序1，精确延时882微秒
D1: MOV R5,#20
DJNZ R5,$
DJNZ R4,D1 
RET

YS2: MOV R4,#10 ;（占用R4/R5）延时子程序2，精确延时4740微秒
D2: MOV R5,#235
DJNZ R5,$
DJNZ R4,D2 
RET

YS3: MOV R4,#2;（占用R4/R5）延时程序3，精确延时1000微秒
D3:MOV R5,#248
DJNZ R5,$
DJNZ R4,D3
RET

DELAY:MOV R1,#08H;（占用R1/R2/R3）延时子程序，12M晶振延时约250毫秒
L3: MOV R2 ,#0FAH 
L1: MOV R3 ,#0FAH 
L2: DJNZ R3 ,L2 
DJNZ R2 ,L1
DJNZ R1 ,L3 
RET
END