p1口八个灯作跑马灯.asm

本人跟网上学单片机时,调试用过的资料,有汇编和C,

;p1口八个灯作跑马灯。
;***************************************************************************
;* (程序转载请著明出处 ，未声明可适应本站isp开发套件/倚天版开发套件       *
;*  E-mail:[e-mail] (51c51 test web)  51测试网，自学单片机的网站   *
;* Create by :石学军 www.51c51.com   www.8951.com 更多例程请登陆网站        *
;***************************************************************************

org 0000h
ajmp start
org 0030h
start:
mov a,#0ffh ;
clr c ;
mov r2,#08h ;循环八次。
loop: rlc a ;带进位左移。
mov p1,a ;输出到P1口。
call delay ;延时一段时间
djnz r2,loop ;反复循环
mov r2,#07h ;再往回循环。
loop1: rrc a ;带进位右移
mov p1,a ;输出到P1口。
call delay ;延时一段时间
djnz r2,loop1 ;反复循环
jmp start ;重新开始

delay: mov r3,#20 ;延时子程序
d1: mov r4,#20
d2: mov r5,#248
djnz r5,$
djnz r4,d2