单片机跑马灯.asm

单片机跑马灯八路

      ;***************************************************************************
      ;*;p1口8个跑马灯的程序。      *
      ;* Support telephone:  (www.ggdl.com )                       
      ;*
      ;*               
      ;*
      ;* 
      ;*************************************************************************** 


      org 0000h
      ajmp main
      org 030h
      main:
      setb p3.0
      setb p3.1
      nop
      nop
      lcall delay ;
      lcall delay ;
;		lcall delay ;
     ; lcall delay ;
      clr p3.0
      clr p3.1
      nop
      nop
      lcall delay ;
      lcall delay 
;		lcall delay ;
      lcall delay ;;
      ;ajmp main
      mov  p0,#0 ;
      mov  p2,#0 ;
      setb p2.3   ;关风鸣器
      MOV  p1,#00h ;全亮
      lcall delay ;
      lcall delay ;
      lcall delay ;延时一段时间
		lcall delay ;
      lcall delay ;
      mov a,#0feh ;每次只亮一个灯。
loop: mov p1,a ;
      lcall delay ;
      lcall delay ;
      lcall delay ;
;
      lcall delay ;
      lcall delay ;
      rl a ;循环左移。
;		cpl   p2.0
;
      ajmp loop ;

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