main.asm

很实用的单片机例程

/**************************************************************************************************
*** 慧净电子1天入门、10天学会、1年精通单片机与语言视频教程配套程序汇编源码                         ***
*** 实验板：HJ-1G HJ-3G 开发板                                                                      ***
*** MCU: STC89C52/AT89C52  部分汇编源码可以直接用于项目开发、欢迎复制共享、功德无量、没有版权      ***
*** 收集整理：慧净助学会员  部分原源来源网络，如有伤害到你的利润请来信，我们的免费助学会员会定期给你删除***
*** 编译器：KEIL                                                                                ***
*** 百度交流空间：http://hi.baidu.com/HJMCU      WWW.HJMCU.COM                                  ***
*** 论坛交流：http://bbs.hjmcu.com   欢迎来论坛一分钱不要下载配套的仿真电路                     ***
*** 配套的硬件学习板网址：http://shop37031453.taobao.com/                                       ***
*** 日期：2008.8.8                                                                              ***
*** 目标：用C语言写程序就这么简单、慧争祝你1天入门、10天学会、1年精通单片机与C语言、找个好工作  ***
***************************************************************************************************/
    mov r7,#8
main:mov r0,#8           ;一个循环需要移动8位
     mov p1,#01111111b   ;初始为P0.7灯点亮
loop:
      jnb p3.4,loop
      acall ds1ms
      jnb p3.4,loop      
loop1:jb  p3.4,loop1
      clr p2.3
      acall ds1ms         ;延时，以便人眼可以观察到
      setb p2.3
      acall ds1ms
      mov a,p1            ;读P0口当前显示的数据送到A
      rr a                ;将A中的数据循环右移1位
      mov  p1,a            ;再将A中右移过的数据送到P0
      djnz r0,loop
      djnz r7,main           ;移动不够8位，跳到LOOP处循环,
      ljmp rel          ;流动1遍跳转到MAIN处循环流。

;---显示延时----------
ds1ms: mov r1,#2
ds1lo: mov r2,#20
ds2lo: mov r3,#200
       djnz r3,$
       djnz r2,ds2lo
       djnz r1,ds1lo
       ret ;延时返回
rel:end