用移位方式實(shí)現(xiàn)流水燈

org 00h ;程序上電從00h開(kāi)始
ajmp main ;跳轉(zhuǎn)到主程序
org 0030h ;主程序起始地址
main:
mov a,#0feh ;給A賦值成11111110
mov r0,#8
loop:
mov p0,a ;將A送到P1口,發(fā)光二極管低電平點(diǎn)亮
; mov p2,a
lcall delay ;調(diào)用延時(shí)子程序

rl a ;累加器A循環(huán)左移一位
djnz r0,loop
mov p0,#0ffh

mov a,#7fh
mov r0,#8
loop1:
mov p2,a ;將A送到P1口,發(fā)光二極管低電平點(diǎn)亮
; mov p2,a
lcall delay ;調(diào)用延時(shí)子程序
rr a ;累加器A循環(huán)左移一位
djnz r0,loop1
mov p2,#0ffh

ajmp main ;重新送P1顯示
delay:
mov r3,#10 ;最外層循環(huán)二十次
d1:
mov r4,#80 ;次外層循環(huán)八十次
d2:
mov r5,#250 ;最內(nèi)層循環(huán)250次
djnz r5,$ ;總共延時(shí)2us*250*80*20=0.8S
djnz r4,d2
djnz r3,d1
ret
end