API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 22nd, 2019
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
M68000 Assembler 1.32 KB | None | 0 0
raw download clone embed print report
  1.     include "p16f84a.inc"
  2.     LIST    p=16f84a
  3.  __CONFIG _FOSC_XT & _WDTE_OFF & _PWRTE_OFF & _CP_OFF
  4. P   EQU     0x0c
  5. M   EQU     0x0d
  6. N   EQU     0x0e
  7.    
  8.     org     0
  9. puertos
  10.     bsf     STATUS,RP0
  11.     movlw   b'00000000'
  12.     movwf   TRISB
  13.     bcf     STATUS,RP0
  14.    
  15. principal
  16.     movlw   b'00000001'
  17.     movwf   PORTB
  18.     movlw   d'20'
  19.     movwf   P
  20.     call    retardo
  21.     movlw   b'00000000'    
  22.     movwf   PORTB
  23.     movlw   d'3'
  24.     movwf   P
  25.     call    retardo
  26.     movlw   b'00000001'
  27.     movwf   PORTB
  28.     movlw   d'3'
  29.     movwf   P
  30.     call    retardo
  31.     movlw   b'00000000'
  32.     movwf   PORTB
  33.     movlw   d'3'
  34.     movwf   P
  35.     call    retardo
  36.     movlw   b'00000001'
  37.     movwf   PORTB
  38.     movlw   d'3'
  39.     movwf   P
  40.     call    retardo
  41.     movlw   b'00000000'
  42.     movwf   PORTB
  43.     movlw   d'3'
  44.     movwf   P
  45.     call    retardo
  46.     movlw   b'00000001'
  47.     movwf   PORTB
  48.     movlw   d'3'
  49.     movwf   P
  50.     call    retardo
  51.     movlw   b'00000010'
  52.     movwf   PORTB
  53.     movlw   d'15'
  54.     movwf   P
  55.     call    retardo
  56.     movlw   b'00000100'
  57.     movwf   PORTB
  58.     movlw   d'20'
  59.     movwf   P
  60.     call    retardo
  61.     goto    principal
  62.  
  63.    
  64. retardo
  65. tres
  66.     movlw   d'80'
  67.     movwf   M
  68. dos
  69.     movlw   d'250'
  70.     movwf   N
  71. uno
  72.     nop
  73.     nop
  74.     decfsz  N
  75.     goto    uno
  76.     decfsz  M
  77.     goto    dos
  78.     decfsz  P
  79.     goto    tres
  80.     return
  81.    
  82.  
  83.     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!