Advertisement
Guest User

diodaLED

a guest
Oct 4th, 2015
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     LIST P=10F202
  2.     INCLUDE p10f202.inc
  3.  
  4. licznik EQU 08H
  5.    
  6.     ORG 0000H  
  7.  
  8.     MOVLW b'11011111'
  9.     OPTION     
  10. LOOP
  11.     MOVLW b'11111000'
  12.     MOVWF GPIO 
  13.     MOVLW b'11111000'
  14.     TRIS GPIO  
  15.  
  16.     MOVLW b'11111110'
  17.     MOVWF GPIO
  18.     MOVLW .020
  19.     MOVWF licznik
  20.     CALL WAIT      
  21.    
  22.     MOVLW b'11111101'
  23.     MOVWF GPIO
  24.     MOVLW .010
  25.     MOVWF licznik
  26.     CALL WAIT    
  27.    
  28.     MOVLW b'11111011'
  29.     MOVWF GPIO
  30.     MOVLW .001
  31.     MOVWF licznik
  32.     CALL WAIT
  33.    
  34.     GOTO LOOP    
  35. WAIT
  36. FOR1
  37.     DECFSZ licznik,f
  38.     GOTO FOR1
  39.     RETLW 0
  40.     END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement