aplicatie_leduri

mov TMOD , #01H

mov 30H , #01H
mov 31H , #02H
mov 32H , #04H
mov 33H , #08H
mov 34H , #0FFH

led:  mov R1 , #0FEH
      mov 35H , R1
      mov P0 , 35H
      call DELAY
      djnz R1, led
     

mov R0, #80H
mov @R0 , #10H


mov R0, #81H
mov @R0 , #20H

mov R0, #82H
mov @R0 , #40H

mov R0, #83H
mov @R0 , #80H


START_LED: mov P0 , 30H
           call DELAY
                   
           mov P0 , 34H
           call DELAY        
                               
           mov P0 , 31H
           call DELAY
         
           mov P0 , 34H
           call DELAY
         
           mov P0 , 32H
           call DELAY
         
           mov P0 , 34H
           call DELAY
         
           mov P0 , 33H
           call DELAY
         
           mov P0 , 34H
           call DELAY
         
           mov R0, #80H
           mov p0, @R0
           call DELAY
         
           mov P0 , 34H
           call DELAY
         
           mov R0, #81H
           mov p0, @R0
           call DELAY
         
           mov P0 , 34H
           call DELAY
         
           mov R0, #82H
           mov p0, @R0
           call DELAY
         
           mov P0 , 34H
           call DELAY
         
           mov R0, #83H
           mov p0, @R0
           call DELAY
         
           mov P0 , 34H
           call DELAY
                   
           call led      
                   
           jmp START_LED
       
DELAY: mov TH0 , #00H
       mov TL0 , #00H
       mov A , #14H
       setb TR0
     
WAIT_TF0: jnb TF0 , $
          clr TF0
          dec A
          jnz WAIT_TF0
          clr TR0
          ret
END