API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2014
111
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.87 KB | None | 0 0
raw download clone embed print report
  1. #include<p16f1517.inc>
  2.  
  3. __CONFIG _CONFIG1 ,_FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _BOREN_OFF &_CLKOUTEN_OFF
  4. __CONFIG _CONFIG2 , _WRT_OFF & _VCAPEN_OFF & _LVP_OFF
  5.  
  6. R1 equ 0x20
  7. R2 equ 0x21
  8.  
  9.  
  10. org 0x00
  11. BANKSEL PORTA
  12. CLRF PORTA
  13. CLRF PORTB
  14. BANKSEL LATA
  15. CLRF LATA
  16. CLRF LATB
  17. BANKSEL ANSELA
  18. CLRF ANSELA
  19. CLRF ANSELB
  20. BANKSEL TRISA
  21. MOVLW 0x37
  22. MOVWF TRISB
  23. CLRF TRISA
  24. BANKSEL PORTA
  25.  
  26. START
  27. movlw 0x50
  28. movwf R2
  29.  
  30. btfss PORTB,1
  31. goto UPNIE
  32.  
  33. btfsc PORTB,2
  34. goto LED14MIGA
  35.  
  36. btfsc PORTB,5
  37. goto LED14MIGA
  38.  
  39. btfsc PORTB,4
  40. goto LED14MIGA
  41.  
  42. btfsc PORTB,0
  43. goto LED14MIGA
  44. goto LED1MIGA
  45.  
  46. UPNIE
  47. btfss PORTB,2
  48. goto DOWNNIE
  49.  
  50. btfsc PORTB,5
  51. goto LED14MIGA
  52.  
  53. btfsc PORTB,4
  54. goto LED14MIGA
  55.  
  56. btfsc PORTB,0
  57. goto LED14MIGA
  58. goto LED2MIGA
  59.  
  60. DOWNNIE
  61. btfss PORTB,5
  62. goto LEFTNIE
  63.  
  64. btfsc PORTB,4
  65. goto LED14MIGA
  66.  
  67. btfsc PORTB,0
  68. goto LED14MIGA
  69. goto LED3MIGA
  70.  
  71. LEFTNIE
  72. btfss PORTB,4
  73. goto RIGHTNIE
  74.  
  75. btfsc PORTB,0
  76. goto LED14MIGA
  77. goto LED4MIGA
  78.  
  79. RIGHTNIE
  80. goto LED14SWIECI
  81.  
  82. LED1MIGA
  83. bsf PORTA,4
  84. call wait
  85. bcf PORTA,4
  86. call wait
  87.  
  88. LED2MIGA
  89. bsf PORTA,5
  90. call wait
  91. bcf PORTA,5
  92. call wait
  93.  
  94. LED3MIGA
  95. bsf PORTA,6
  96. call wait
  97. bcf PORTA,6
  98. call wait
  99.  
  100. LED4MIGA
  101. bsf PORTA,7
  102. call wait
  103. bcf PORTA,7
  104. call wait
  105.  
  106. LED14MIGA
  107. bsf PORTA,4
  108. bsf PORTA,5
  109. bsf PORTA,6
  110. bsf PORTA,7
  111. call wait
  112. bcf PORTA,4
  113. bcf PORTA,5
  114. bcf PORTA,6
  115. bcf PORTA,7
  116. call wait
  117.  
  118. LED14SWIECI
  119. bsf PORTA,4
  120. bsf PORTA,5
  121. bsf PORTA,6
  122. bsf PORTA,7
  123. call wait
  124.  
  125. goto START
  126.  
  127. wait
  128. decfsz R1,f
  129. goto wait
  130. decfsz R2,f
  131. goto wait
  132. return
  133.  
  134.  
  135. 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!