采用循环移位的方式走马灯(汇编 51)

;本程序是参考8051单片机彻底研究上的例子。

org 0000H

start:mov r1,#00h
;a1:     djnz r1,a1
 mov sp,#50h
loop: mov a,#0feh  ;11111110
loop_1: mov p1,a
 call delay
 call delay
 call delay
 call delay
 rl  a
 cjne a,#07fh,loop_1
loop_2: mov p1,a
 call delay
 call delay
 call delay
 call delay

 call delay
 call delay
 call delay
 call delay
 rr a
 cjne a,#0feh,loop_2
 sjmp loop

delay:    ;延时子程序 11.059Mhz，延时0.142s
 mov r0,#00
 MM:mov r1,#00
 djnz r1,$  ;
 djnz r0,MM
 ret
END