ls1.a51

01单片机网站51单片机开发板全部配套程序

;程序名：  MCS51实验板配套程序-流水灯
;电路介绍：8个灯接p0口
;
;www.01mcu.net www.01mcu.com 2003/4/18编写
;***********************************************************************
main:   mov r0,#8
        mov p0,#01111111b
loop:   acall ds1ms
        mov a,p0
        rr a
        mov p0,a
        djnz r0,loop
        ljmp main

   ;---显示延时---------- 
ds1ms:    mov r1,#1
ds1lo:    mov r2,#200
ds2lo:    mov r3,#200
          djnz r3,$
          djnz r2,ds2lo
          djnz r1,ds1lo
          ret                  ;延时返回 

end