pililed.asm

51单片机,霹雳彩灯原程序.非常适合初学者!

;********************************************************************************
;*霹雳灯                                                                        *
;* P0---8个LED和P2---8个LED   硬件：8路指示灯接P0口，或者P2口                   *
;********************************************************************************
;*  日期:  2008-2-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳志博电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.elecmcu.com     http://www.elecmcu.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司志博电子实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳志博电子有限公司 www.elecmcu.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
        ORG  0000H
        JMP  MAIN
        ORG  0030H
;************************************************
MAIN:
        MOV  A,#0FEH     ;赋初始值
LOOP:
        MOV  R0,#07H     ;移动次数
LOOPL:
        MOV  P1,A
        RL  A            ;左移
        CALL  DELAY
        DJNZ  R0,LOOPL
        MOV  R0,#07H     ;移动次数
LOOPR:
        MOV  P1,A
        RR  A            ;右移
        CALL  DELAY
        DJNZ  R0,LOOPR
        JMP  LOOP
;************************************************
DELAY:
        MOV  R6,#0FFH
 DEL:
        MOV  R7,#0FFH
        DJNZ  R7,$
        DJNZ  R6,DEL
        RET
;************************************************
        END