API tools faq
paste
Advertisement
Hadix

woltomierz na diodach

Hadix
Apr 9th, 2019
102
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASM (NASM) 0.90 KB | None | 0 0
raw download clone embed print report
  1. include "m8535def.inc"
  2. LDI R16,low(RAMEND) //inicjalizacja stosu
  3. OUT SPL, R16
  4. LDI R16,high(RAMEND)
  5. OUT SPH, R16
  6.  
  7. ldi r16, 0
  8. out ddra, r16
  9.  
  10. ldi r17, 255
  11. out ddrb, r17
  12.  
  13. ldi r17, 0b10000100
  14. out adcsra, r17
  15. ldi r17, 0b01100110
  16. out admux, r17
  17.  
  18. program:
  19. sbi adcsra,6
  20. kon:
  21. sbic adcsra,6
  22. rjmp kon
  23. in r20, adch
  24. cpi r20, 51
  25. brlo zapal0
  26. cpi r20, 102
  27. brlo zapal1
  28. cpi r20, 153
  29. brlo zapal2
  30. cpi r20,204
  31. brlo zapal3
  32. cpi r20, 255
  33. brlo zapal4
  34. cpi r20,255
  35. breq zapal5
  36. rjmp program
  37.  
  38. zapal0:
  39. ldi r16, 0b00000000
  40. out portb, r16
  41. rjmp program
  42.  
  43. zapal1:
  44. ldi r16, 0b10000000
  45. out portb, r16
  46. rjmp program
  47.  
  48. zapal2:
  49. ldi r16, 0b11000000
  50. out portb, r16
  51. rjmp program
  52.  
  53. zapal3:
  54. ldi r16, 0b11100000
  55. out portb, r16
  56. rjmp program
  57.  
  58. zapal4:
  59. ldi r16, 0b11110000
  60. out portb, r16
  61. rjmp program
  62.  
  63. zapal5:
  64. ldi r16, 0b11111000
  65. out portb, r16
  66. rjmp program
  67.  
  68. zgas:
  69. ldi r16, 0b00000000
  70. out portb, r16
  71. ret
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!