pililed.asm

来自「这是一个八路跑马灯的实验在单片机做跑马灯时经常用到 希望能对大家有帮助」· 汇编 代码 · 共 50 行

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