API tools faq
paste
Advertisement
DavidsonDFGL

PIC

DavidsonDFGL
Nov 13th, 2014
3,450
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pic 16 2.01 KB | None | 0 0
raw download clone embed print report
  1. ;************** AULA 01 - PROGRAMA PARA PISCAR LED *****************
  2. LIST   P=PIC16F628A
  3. RADIX DEC  
  4. #INCLUDE <P16F628A.INC>
  5.     __CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _BODEN_OFF & _LVP_OFF & _CP_OFF & _MCLRE_OFF & _DATA_CP_OFF
  6.     ;ou __CONFIG H'3F10'
  7.  
  8.     CBLOCK  0x20    ;ENDEREÇO INICIAL DA MEMÓRIA DE
  9.                     ;USUÁRIO
  10.     CONTADOR1
  11.     CONTADOR2
  12.     CONTADOR3
  13.     ENDC            ;FIM DO BLOCO DE MEMÓRIA      
  14.    
  15.     ORG 0x00        ;ENDEREÇO INICIAL DE PROCESSAMENT  GOTO    INICIO
  16.        
  17. INICIO
  18.     CLRF    PORTA       ;LIMPA O PORTA
  19.     CLRF    PORTB       ;LIMPA O PORTB
  20.     BSF STATUS, RP0
  21.     CLRF TRISB
  22.     BCF STATUS, RP0
  23.  
  24. REPETE
  25.     BSF PORTB, 1
  26.     CALL ATRASO05S
  27.     BCF PORTB, 1
  28.     CALL ATRASO05S
  29.     GOTO REPETE
  30.  
  31. ;Atraso de 1 segundo
  32. ATRASO1S
  33.     NOP
  34.     NOP
  35.     NOP
  36.     NOP
  37.     NOP
  38.     NOP
  39.     NOP
  40.     NOP
  41.     NOP
  42.     NOP
  43.     NOP
  44.     NOP
  45.     NOP
  46.     NOP
  47.     NOP
  48.     NOP
  49.     NOP
  50.     NOP
  51.     NOP
  52.     NOP
  53.     NOP
  54.     NOP
  55.     NOP
  56.     NOP
  57.     NOP
  58.     NOP
  59.     NOP
  60.     NOP
  61.     NOP
  62.     NOP
  63.     NOP
  64.     NOP
  65.     NOP
  66.     NOP
  67.     NOP
  68.     NOP
  69.     NOP
  70.     NOP
  71.     NOP
  72.     NOP
  73.     NOP
  74.     NOP
  75.     NOP
  76.     NOP
  77.     NOP
  78.     NOP
  79.     NOP
  80.     NOP
  81.     NOP
  82.     NOP
  83.     NOP
  84.     NOP
  85.     NOP
  86.     NOP
  87.     NOP
  88.     NOP
  89.     NOP
  90.     NOP
  91.     NOP
  92.     NOP
  93.     NOP
  94.     ATRASO11
  95.         NOP
  96.         NOP
  97.         NOP
  98.         NOP
  99.         NOP
  100.         NOP
  101.         NOP
  102.         NOP
  103.         NOP
  104.         NOP
  105.         NOP
  106.         NOP
  107.         NOP
  108.         NOP
  109.         MOVLW 4
  110.         MOVWF CONTADOR2    
  111.  
  112.         ATRASO12
  113.             MOVLW   242
  114.             MOVWF   CONTADOR1  
  115.             ATRASO13
  116.                 NOP        
  117.                 DECFSZ  CONTADOR1  
  118.                 GOTO    ATRASO13     
  119.        
  120.             DECFSZ CONTADOR2
  121.             GOTO   ATRASO12
  122.        
  123.         DECFSZ CONTADOR3
  124.         GOTO ATRASO11
  125.    
  126.     RETURN
  127.  
  128. ;Atraso de 0.5segundo
  129. ATRASO05S
  130.     NOP
  131.     NOP
  132.     NOP
  133.     NOP
  134.     NOP
  135.     NOP
  136.     NOP
  137.     NOP
  138.     NOP
  139.     NOP
  140.     NOP
  141.     NOP
  142.     NOP
  143.     NOP
  144.     NOP
  145.     NOP
  146.     NOP
  147.     NOP
  148.     NOP
  149.     NOP
  150.     NOP
  151.     NOP
  152.     NOP
  153.     NOP
  154.     NOP
  155.     NOP
  156.     NOP
  157.     NOP
  158.     NOP
  159.     ATRASO1
  160.         NOP
  161.         NOP
  162.         NOP
  163.         NOP
  164.         NOP
  165.         NOP
  166.         NOP
  167.         NOP
  168.         NOP
  169.         NOP
  170.         NOP
  171.         NOP
  172.         NOP
  173.         NOP
  174.         NOP
  175.         NOP
  176.         NOP
  177.         NOP
  178.         NOP
  179.         NOP
  180.         NOP
  181.         MOVLW 2
  182.         MOVWF CONTADOR2    
  183.  
  184.         ATRASO2
  185.             MOVLW   240
  186.             MOVWF   CONTADOR1  
  187.             ATRASO3
  188.                 NOP        
  189.                 DECFSZ  CONTADOR1  
  190.                 GOTO    ATRASO3  
  191.        
  192.             DECFSZ CONTADOR2
  193.             GOTO   ATRASO2
  194.        
  195.         DECFSZ CONTADOR3
  196.         GOTO ATRASO1
  197.    
  198.     RETURN             
  199.  
  200.  
  201. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!