run_led.asm

AVR开发板范例程序,WS开发板配套_51_汇编源程序

;/********************************************************************
; *  主    页 ：  HTTP://WWW.QLMCU.COM
; *
; *  程序功能 ：  流水灯的左移右移
; *
; *  应用软件 ：  KEIL C
; *
; *  版    本 ：  KEIL 7.06
; *
; *  硬    件 ：  WS803、WS804、WS806
; *
; *  创建时间 ：  2005-07-28
; *
; *  注：为了有更多实用的实验程序供大家学习，部分程序参考网上的资源，
; *      在此谢谢这些无私奉献的朋友！！！
; *
; ********************************************************************/
;/* 程序详细功能介绍：
; *做单一灯的左移右移，八个发光二极管L0－L7分别接在单片机的P0.0－P0.7接口上，
; *输出“0”时，发光二极管亮，开始时P0.0→P0.1→P0.2→P0.3→┅→P0.7→P0.6→┅→P0.0亮，重复循环。
; */
ORG 0000H
;;;LJMP START

;;;;ORG 0100H
START:CLR P3.7 ;选通WS 系列实验板的LED 流水灯的电源控制端
      MOV R2,#8 ;左移次数
      MOV A,#0FEH
      SETB C
LOOP: MOV P0,A
      LCALL DELAY
      RLC A  ;左移流水灯(带进位的左移)
      DJNZ R2,LOOP


       MOV R2,#8 ;右移次数
LOOP1: RRC A  ;右移流水灯
       MOV P0,A
       LCALL DELAY
       DJNZ R2,LOOP1
       LJMP START

DELAY: MOV R5,#10 ;延时子程序,改变R5,R6,R7 的值,可以改变延时的时间,从而改变流水灯移动速度
D1: MOV R6,#20
D2: MOV R7,#248
DJNZ R7,$
DJNZ R6,D2
DJNZ R5,D1
RET
END