API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 8th, 2018
111
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.08 KB | None | 0 0
raw download clone embed print report
  1.  
  2.  
  3. .include "tn13Adef.inc"
  4.  
  5. .def temp = R16
  6. .cseg
  7. .org 0
  8.  
  9. ldi temp, RAMEND
  10. out SPL, temp
  11.  
  12. ldi temp, 0x80
  13. out ACSR, temp
  14. cbi DDRB, 2 ; knopka uvelicheniya yarkosti
  15. cbi DDRB, 3 ; knopka umenscheniya yarkosti
  16. cbi DDRB, 4 ; knopka VKLYUCHENIYA VYKLYUCHENIYA
  17. sbi DDRB, 0
  18. ldi temp, 0b00011100 ;
  19. out PORTB, temp
  20.  
  21. ; ZDES PRONSHODIT TOLKO VKLYUCHENIE
  22.  
  23.  
  24. main0: rcall WG
  25. rcall WG
  26. rcall WG
  27. rcall WG
  28. rcall WG
  29. rcall WG
  30.  
  31.  
  32. main: in temp, PINB
  33. sbrc temp, 4
  34. rjmp main
  35. rcall WG ;zaderzha
  36. main2: in temp, PINB
  37. sbrs temp, 4
  38. rjmp main2
  39. rjmp VK
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47. ; VKLYUCHENIE TAIMERA
  48.  
  49. VK: ldi temp,(1<<COM0A1)|(1<<COM0A0)|(0<<COM0B1)|(0<<COM0B0)|(1<<WGM01)|(1<<WGM00)
  50. out TCCR0A, temp
  51.  
  52. ldi temp,(0<<FOC0A)|(0<<FOC0B)|(0<<WGM02)|(0<<CS02)|(0<<CS01)|(1<<CS00)
  53. out TCCR0B, temp
  54. rjmp B6
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. ;UPRAVLENIE YARKOSTYU
  71.  
  72.  
  73. B0: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  74. ldi temp, 0xFA
  75. out OCR0A, temp
  76. C0: in temp, PINB
  77. sbrs temp, 4 ; i?iione neaa eiiaiau anee eiiiea aee??aiey ia ia?aoa
  78. rjmp T0
  79. Z0: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  80. rjmp K0
  81. rjmp C0
  82.  
  83. T0: rcall WG
  84. J0: in temp, PINB
  85. sbrc temp, 4
  86. rjmp OFF
  87. rjmp J0
  88.  
  89. K0: rcall WG
  90. in temp, PINB
  91. sbrc temp, 2
  92. rjmp C0 ; esli 2 ne nazhata to k knopke4
  93. U0: in temp, PINB
  94. sbrc temp, 2
  95. rjmp B1
  96. rjmp U0
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103. B1: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  104. ldi temp, 0xE6
  105. out OCR0A, temp
  106. C1: in temp, PINB
  107. sbrs temp, 4 ; i?iione neaa eiiaiau anee eiiiea aee??aiey ia ia?aoa
  108. rjmp T1
  109. Z1: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  110. rjmp K1
  111. L1: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  112. rjmp W1
  113. rjmp C1
  114.  
  115. T1: rcall WG
  116. J1: in temp, PINB
  117. sbrc temp, 4
  118. rjmp OFF
  119. rjmp J1
  120.  
  121. K1: rcall WG
  122. in temp, PINB
  123. sbrc temp, 2
  124. rjmp L1 ; esli 2 ne nazhata to k knopke3
  125. U1: in temp, PINB
  126. sbrc temp, 2
  127. rjmp B2
  128. rjmp U1
  129.  
  130. W1: rcall WG
  131. in temp, PINB
  132. sbrc temp, 3
  133. rjmp C1 ; esli 3 ne nazhata to k knopke4
  134. P1: in temp, PINB
  135. sbrc temp, 3
  136. rjmp B0
  137. rjmp P1
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150. B2: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  151. ldi temp, 0xD2
  152. out OCR0A, temp
  153. C2: in temp, PINB
  154. sbrs temp, 4 ; i?iione neaa eiiaiau anee eiiiea aee??aiey ia ia?aoa
  155. rjmp T2
  156. Z2: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  157. rjmp K2
  158. L2: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  159. rjmp W2
  160. rjmp C2
  161.  
  162. T2: rcall WG
  163. J2: in temp, PINB
  164. sbrc temp, 4
  165. rjmp OFF
  166. rjmp J2
  167.  
  168. K2: rcall WG
  169. in temp, PINB
  170. sbrc temp, 2
  171. rjmp L2 ; esli 2 ne nazhata to k knopke3
  172. U2: in temp, PINB
  173. sbrc temp, 2
  174. rjmp B3
  175. rjmp U2
  176.  
  177. W2: rcall WG
  178. in temp, PINB
  179. sbrc temp, 3
  180. rjmp C2 ; esli 3 ne nazhata to k knopke4
  181. P2: in temp, PINB
  182. sbrc temp, 3
  183. rjmp B1
  184. rjmp P2
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200. B3: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  201. ldi temp, 0xB4
  202. out OCR0A, temp
  203. C3: in temp, PINB
  204. sbrs temp, 4 ; i?iione neaa eiiaiau anee eiiiea aee??aiey ia ia?aoa
  205. rjmp T3
  206. Z3: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  207. rjmp K3
  208. L3: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  209. rjmp W3
  210. rjmp C3
  211.  
  212. T3: rcall WG
  213. J3: in temp, PINB
  214. sbrc temp, 4
  215. rjmp OFF
  216. rjmp J3
  217.  
  218. K3: rcall WG
  219. in temp, PINB
  220. sbrc temp, 2
  221. rjmp L3 ; esli 2 ne nazhata to k knopke3
  222. U3: in temp, PINB
  223. sbrc temp, 2
  224. rjmp B4
  225. rjmp U3
  226.  
  227. W3: rcall WG
  228. in temp, PINB
  229. sbrc temp, 3
  230. rjmp C3 ; esli 3 ne nazhata to k knopke4
  231. P3: in temp, PINB
  232. sbrc temp, 3
  233. rjmp B2
  234. rjmp P3
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257. B4: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  258. ldi temp, 0xA0
  259. out OCR0A, temp
  260. C4: in temp, PINB
  261. sbrs temp, 4 ; i?iione neaa eiiaiau anee eiiiea aee??aiey ia ia?aoa
  262. rjmp T4
  263. Z4: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  264. rjmp K4
  265. L4: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  266. rjmp W4
  267. rjmp C4
  268.  
  269. T4: rcall WG
  270. J4: in temp, PINB
  271. sbrc temp, 4
  272. rjmp OFF
  273. rjmp J4
  274.  
  275. K4: rcall WG
  276. in temp, PINB
  277. sbrc temp, 2
  278. rjmp L4 ; esli 2 ne nazhata to k knopke3
  279. U4: in temp, PINB
  280. sbrc temp, 2
  281. rjmp B5
  282. rjmp U4
  283.  
  284. W4: rcall WG
  285. in temp, PINB
  286. sbrc temp, 3
  287. rjmp C4 ; esli 3 ne nazhata to k knopke4
  288. P4: in temp, PINB
  289. sbrc temp, 3
  290. rjmp B3
  291. rjmp P4
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308. B5: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  309. ldi temp, 0x8C
  310. out OCR0A, temp
  311. C5: in temp, PINB
  312. sbrs temp, 4 ; i?iione neaa eiiaiau anee eiiiea aee??aiey ia ia?aoa
  313. rjmp T5
  314. Z5: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  315. rjmp K5
  316. L5: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  317. rjmp W5
  318. rjmp C5
  319.  
  320. T5: rcall WG
  321. J5: in temp, PINB
  322. sbrc temp, 4
  323. rjmp OFF
  324. rjmp J5
  325.  
  326. K5: rcall WG
  327. in temp, PINB
  328. sbrc temp, 2
  329. rjmp L5 ; esli 2 ne nazhata to k knopke3
  330. U5: in temp, PINB
  331. sbrc temp, 2
  332. rjmp B6
  333. rjmp U5
  334.  
  335. W5: rcall WG
  336. in temp, PINB
  337. sbrc temp, 3
  338. rjmp C5 ; esli 3 ne nazhata to k knopke4
  339. P5: in temp, PINB
  340. sbrc temp, 3
  341. rjmp B4
  342. rjmp P5
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.  
  353.  
  354. B6: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  355. ldi temp, 0x78
  356. out OCR0A, temp
  357. C6: in temp, PINB
  358. sbrs temp, 4 ; i?iione neaa eiiaiau anee eiiiea aee??aiey ia ia?aoa
  359. rjmp T6
  360. Z6: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  361. rjmp K6
  362. L6: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  363. rjmp W6
  364. rjmp C6
  365.  
  366. T6: rcall WG
  367. J6: in temp, PINB
  368. sbrc temp, 4
  369. rjmp OFF
  370. rjmp J6
  371.  
  372. K6: rcall WG
  373. in temp, PINB
  374. sbrc temp, 2
  375. rjmp L6 ; esli 2 ne nazhata to k knopke3
  376. U6: in temp, PINB
  377. sbrc temp, 2
  378. rjmp B7
  379. rjmp U6
  380.  
  381. W6: rcall WG
  382. in temp, PINB
  383. sbrc temp, 3
  384. rjmp C6 ; esli 3 ne nazhata to k knopke4
  385. P6: in temp, PINB
  386. sbrc temp, 3
  387. rjmp B5
  388. rjmp P6
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404. B7: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  405. ldi temp, 0x64
  406. out OCR0A, temp
  407. C7: in temp, PINB
  408. sbrs temp, 4 ; propusk komandy esli knopka vklyucheniya ne nazhata
  409. rjmp T7
  410. Z7: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  411. rjmp K7
  412. L7: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  413. rjmp W7
  414. rjmp C7
  415.  
  416. T7: rcall WG
  417. J7: in temp, PINB
  418. sbrc temp, 4
  419. rjmp OFF
  420. rjmp J7
  421.  
  422. K7: rcall WG
  423. in temp, PINB
  424. sbrc temp, 2
  425. rjmp L7 ; esli 2 ne nazhata to k knopke3
  426. U7: in temp, PINB
  427. sbrc temp, 2
  428. rjmp B8
  429. rjmp U7
  430.  
  431. W7: rcall WG
  432. in temp, PINB
  433. sbrc temp, 3
  434. rjmp C7 ; esli 3 ne nazhata to k knopke4
  435. P7: in temp, PINB
  436. sbrc temp, 3
  437. rjmp B6
  438. rjmp P7
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.  
  448.  
  449.  
  450.  
  451.  
  452.  
  453. B8: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  454. ldi temp, 0x50
  455. out OCR0A, temp
  456. C8: in temp, PINB
  457. sbrs temp, 4 ; propusk komandy esli knopka vklyucheniya ne nazhata
  458. rjmp T8
  459. Z8: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  460. rjmp K8
  461. L8: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  462. rjmp W8
  463. rjmp C8
  464.  
  465. T8: rcall WG
  466. J8: in temp, PINB
  467. sbrc temp, 4
  468. rjmp OFF
  469. rjmp J8
  470.  
  471. K8: rcall WG
  472. in temp, PINB
  473. sbrc temp, 2
  474. rjmp L8 ; esli 2 ne nazhata to k knopke3
  475. U8: in temp, PINB
  476. sbrc temp, 2
  477. rjmp B9
  478. rjmp U8
  479.  
  480. W8: rcall WG
  481. in temp, PINB
  482. sbrc temp, 3
  483. rjmp C8 ; esli 3 ne nazhata to k knopke4
  484. P8: in temp, PINB
  485. sbrc temp, 3
  486. rjmp B7
  487. rjmp P8
  488.  
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500.  
  501.  
  502.  
  503.  
  504.  
  505. B9: rcall WG ; caaa??ea ?oia ia auno?i oaaee?eaaeinu
  506. ldi temp, 0x3C
  507. out OCR0A, temp
  508. C9: in temp, PINB
  509. sbrs temp, 4 ; propusk komandy esli knopka vklyucheniya ne nazhata
  510. rjmp T9
  511. Z9: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  512. rjmp K9
  513. L9: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  514. rjmp W9
  515. rjmp C9
  516.  
  517. T9: rcall WG
  518. J9: in temp, PINB
  519. sbrc temp, 4
  520. rjmp OFF
  521. rjmp J9
  522.  
  523. K9: rcall WG
  524. in temp, PINB
  525. sbrc temp, 2
  526. rjmp L9 ; esli 2 ne nazhata to k knopke3
  527. U9: in temp, PINB
  528. sbrc temp, 2
  529. rjmp B10
  530. rjmp U9
  531.  
  532. W9: rcall WG
  533. in temp, PINB
  534. sbrc temp, 3
  535. rjmp C9 ; esli 3 ne nazhata to k knopke4
  536. P9: in temp, PINB
  537. sbrc temp, 3
  538. rjmp B8
  539. rjmp P9
  540.  
  541.  
  542.  
  543.  
  544.  
  545.  
  546.  
  547.  
  548.  
  549.  
  550.  
  551.  
  552.  
  553. B10: rcall WG ; zaderzhka
  554. ldi temp, 0x28
  555. out OCR0A, temp
  556. C10: in temp, PINB
  557. sbrs temp, 4 ; propusk komandy esli knopka vklyucheniya ne nazhata
  558. rjmp T10
  559. Z10: sbrs temp, 2 ; esli knopka2 uvelicheniya NE nazhata to propusk komandy
  560. rjmp K10
  561. L10: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  562. rjmp W10
  563. rjmp C10
  564.  
  565. T10: rcall WG
  566. J10: in temp, PINB
  567. sbrc temp, 4
  568. rjmp OFF
  569. rjmp J10
  570.  
  571. K10: rcall WG
  572. in temp, PINB
  573. sbrc temp, 2
  574. rjmp L10 ; esli 2 ne nazhata to k knopke3
  575. U10: in temp, PINB
  576. sbrc temp, 2
  577. rjmp B11
  578. rjmp U10
  579.  
  580. W10: rcall WG
  581. in temp, PINB
  582. sbrc temp, 3
  583. rjmp C10 ; esli 3 ne nazhata to k knopke4
  584. P10: in temp, PINB
  585. sbrc temp, 3
  586. rjmp B9
  587. rjmp P10
  588.  
  589.  
  590.  
  591.  
  592.  
  593.  
  594.  
  595.  
  596.  
  597.  
  598.  
  599.  
  600.  
  601. B11: rcall WG ; zaderzhka
  602. ldi temp, 0x0
  603. out OCR0A, temp
  604. C11: in temp, PINB
  605. sbrs temp, 4 ; propusk komandy esli knopka vklyucheniya ne nazhata
  606. rjmp T11
  607. L11: sbrs temp, 3 ;esli knopka3 umenschenie yarkosti ne nazhata to propusk sled komandy
  608. rjmp W11
  609. rjmp C11
  610.  
  611. T11: rcall WG
  612. J11: in temp, PINB
  613. sbrc temp, 4
  614. rjmp OFF
  615. rjmp J11
  616.  
  617. W11: rcall WG
  618. in temp, PINB
  619. sbrc temp, 3
  620. rjmp C11 ; esli 3 ne nazhata to k knopke4
  621. P11: in temp, PINB
  622. sbrc temp, 3
  623. rjmp B10
  624. rjmp P11
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631.  
  632.  
  633.  
  634.  
  635.  
  636. ; VYKLYUCHENIE TAIMERA
  637.  
  638.  
  639. OFF: ldi temp,(0<<FOC0A)|(0<<FOC0B)|(0<<WGM02)|(0<<CS02)|(0<<CS01)|(0<<CS00)
  640. out TCCR0B, temp
  641. rjmp main0
  642.  
  643.  
  644.  
  645.  
  646.  
  647.  
  648.  
  649.  
  650.  
  651.  
  652. ; ZADERZHKA
  653.  
  654.  
  655. WG: ldi R17, 0x50
  656. WGLOOP0: ldi R18, 0xFF
  657. WGLOOP1: dec R18
  658. brne WGLOOP1 ; brne perehod esli ne 0
  659. dec R17
  660. brne WGLOOP0 ; anee ia iieu oi ia?aoia ia WGLOOP0
  661. 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!