SHARE
TWEET

Untitled

a guest Mar 8th, 2018 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
RAW Paste Data
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
 
Top