Advertisement
Guest User

Untitled

a guest
Dec 11th, 2019
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.38 KB | None | 0 0
  1. .include "m32def.inc"
  2. .def licznik1 = R21
  3. .def licznik2 = R22
  4. .def licznik3 = R23
  5. ldi R16, high(RAMEND)
  6. out SPH, R16
  7. ldi R16, low(RAMEND)
  8. out SPL, R16 // deklaracja stosu
  9. ldi ZH, high(Opoznienie)
  10. ldi ZL, low(Opoznienie)
  11. ldi R16, 0xFF;
  12. out DDRA, R16; // ustawienie portu A jako wyjściowego
  13. ldi R16, 0x00;
  14. out DDRC, R16;
  15. ldi R24, 0x00;
  16. out PORTA,R24
  17.  
  18.  
  19. Klawisz:
  20. ldi R17,0xFF
  21. out PORTC,R17
  22. in R17, PINC
  23. sbrs R17, 0
  24. rjmp Wcisnieto
  25. rjmp Klawisz
  26.  
  27.  
  28.  
  29. Opoznienie:
  30. ldi licznik3, 5
  31. Loop:
  32. ldi licznik2, 200
  33. Loop0:
  34. ldi licznik1, 160
  35. Loop1:
  36. dec licznik1
  37. brne Loop1
  38. dec licznik2
  39. brne Loop0
  40. dec licznik3
  41. brne Loop
  42. ret
  43.  
  44. Wcisnieto:
  45. ldi R19, 0x00;
  46. out PORTA, R19
  47. ldi R19, 0x00
  48. push R19
  49. ldi R19,0b00000001
  50. push R19
  51. ldi R19,0b00000011
  52. push R19
  53. ldi R19,0b00000111
  54. push R19
  55. lsl R19
  56. push R19
  57. lsl R19
  58. push R19
  59. lsl R19
  60. push R19
  61. lsl R19
  62. push R19
  63. lsl R19
  64. push R19
  65. lsl R19
  66. push R19
  67. lsl R19
  68. push R19
  69. lsl R19
  70. rjmp Wyciaganie
  71.  
  72. Wyciaganie:
  73. pop R20
  74. out PORTA, R20
  75. icall
  76. pop R20
  77. out PORTA, R20
  78. icall
  79. pop R20
  80. out PORTA, R20
  81. icall
  82. pop R20
  83. out PORTA, R20
  84. icall
  85. pop R20
  86. out PORTA, R20
  87. icall
  88. pop R20
  89. out PORTA, R20
  90. icall
  91. pop R20
  92. out PORTA, R20
  93. icall
  94. pop R20
  95. out PORTA, R20
  96. icall
  97. pop R20
  98. out PORTA, R20
  99. icall
  100. pop R20
  101. out PORTA, R20
  102. icall
  103. pop R20
  104. out PORTA, R20
  105. icall
  106.  
  107. rjmp Klawisz
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement