Advertisement
KgCro

sve parne pa neparne blink

Nov 2nd, 2020
488
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.67 KB | None | 0 0
  1. .def tmp = r16
  2. .def mask = r20
  3. .def delayCnt = r21
  4.  
  5. .cseg
  6. rjmp reset
  7.  
  8. reset:
  9. ldi tmp, high(RAMEND)
  10. out SPH, tmp
  11. ldi tmp, low(RAMEND)
  12. out SPL, tmp
  13.  
  14. ldi tmp, 0xff
  15. out DDRA, tmp
  16. out PORTA, tmp
  17.  
  18. ldi delayCnt, 9
  19.  
  20. ldi mask, 0b10101010
  21.  
  22. main:
  23. rcall akt
  24. rcall delay
  25. rjmp main
  26.  
  27. akt:
  28. in tmp, PORTA
  29.  
  30. cpi tmp, 0xff
  31. brne gasi
  32. eor tmp, mask
  33. com mask
  34. rjmp end
  35.  
  36. gasi:
  37. ldi tmp, 0xff
  38. end:
  39.  
  40. out PORTA, tmp
  41. ret
  42.  
  43. delay:
  44. push r17
  45. push r18
  46. push r19
  47.  
  48. clr r17
  49. clr r18
  50. mov r19, delayCnt
  51.  
  52. delay_loop:
  53. dec r17
  54. brne delay_loop
  55. dec r18
  56. brne delay_loop
  57. dec r19
  58. brne delay_loop
  59. pop r19
  60. pop r18
  61. pop r17
  62. ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement