p1口8个跑马灯的另外一个程序.asm

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

;p1口8个跑马灯的另外一个程序。
;***************************************************************************
;* (程序转载请著明出处 ，未声明可适应本站腾龙/isp开发套件/倚天版开发套件      *
;*  E-mail:[e-mail] (51c51 test web)  51测试网，自学单片机的网站            *
;* Create by :石学军 www.51c51.com   www.8951.com 更多例程请登陆网站                 *
;*************************************************************************** 
org 0000h
ajmp main
org 0030h
main:
mov p1,#00h ;全亮
lcall delay ;
lcall delay ;
lcall delay ;延时一段时间
mov a,#0feh ;每次只亮一个灯。
loop: mov p1,a ;
lcall delay ;
lcall delay ;
lcall delay ;
rl a ;循环左移。
ajmp loop ;

delay: mov r7,#00h ;延时子程序
tt: mov r6,#00h
djnz r6,$
djnz r7,tt
ret
end