int_ext_schimbare_sens_led

org 0000H
    jmp MAIN

org 000BH
      djnz R0, RETURN
      jmp ISR_TIMER0
     
org 0003H
      jmp INT_SRV
     
org 0030H
       
MAIN:
      mov A, #01H
      mov R0, #14H
      mov TMOD , #01H ;setare mod de lucru timer
      setb ET0
      setb EA
      setb TR0
      setb EX0 ;setare flag intrerupere
      clr 00H
      jmp $
     
ISR_TIMER0: jb 00H, ROTATE_RIGHT
   rl A
            mov P0, A
            mov R0, #14H
            reti                  
           
ROTATE_RIGHT: rr A
              mov P0, A
              mov R0, #14H
              reti
           
INT_SRV: cpl 00H  ;setare flag propriu intrare intrerupere
         reti
           
RETURN:     reti
           
end