红心J 

 如果不用中断，可以这样
org 0000h
     SJMP MAIN
     org 30h
MAIN:clr p1.5
     mov a,#0feh
ZD00:RR A
     MOV R2,#5
     JNB P1.3,ZD01
     DEC R2
     JNB P1.2,ZD01
     DEC R2
     JNB P1.1,ZD01
     DEC R2
     JNB P1.0,ZD01
     DEC R2
     RL A
     RL A
ZD01:mov p0,a
     lcall delay
     mov p0,#0ffh
     lcall delay
     djnz r2,ZD01
     SJMP ZD00
     
delay:mov r3,#03h
   l4:mov r4,#0c8h
   l5:mov r5,#0c8h
   l6:djnz r5,l6
      djnz r4,l5
      djnz r3,l4
      ret
end

发表时间:2003年4月28日9:53:49