Advertisement
Guest User

ass

a guest
Apr 10th, 2018
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. ; Dioda.asm
  3. ;
  4. ; Created: 2018-03-21 08:50:49
  5. ; Author : admin
  6. ;
  7.  
  8.  
  9. ; Replace with your application code
  10.  
  11.  
  12.     ldi r26,0
  13.     ldi r27,255
  14.     ldi r28,0
  15.     ldi r29,0
  16.     ldi r16,0
  17.     ldi r25,2
  18.     out DDRB,r16
  19.     ldi r18,255
  20.     out DDRD,r18
  21. spr:
  22.    
  23.     ldi r17,2
  24.     ldi r18,1
  25.     in r16,PINB
  26.     AND r16,r17
  27.     CP r16,r17
  28.     BRNE p
  29.     in r16,PINB
  30.     AND r16,r18
  31.     CP r16,r18
  32.     BRNE l
  33.     rjmp spr
  34. l:
  35.     ldi r28,0
  36.     LSL r25
  37.     BRCS przep
  38.     rjmp pen
  39. d:
  40.  
  41.     rjmp poczatek
  42.    
  43. p:
  44.     ldi r28,0
  45.     LSR r25
  46.     BRCS przel
  47.         rjmp pen2
  48. d2:
  49.  
  50.     ldi r22,2
  51.     CP r22,r25
  52.     BREQ przep
  53.     rjmp poczatek
  54.  
  55. poczatek:
  56.     out PORTD,r25
  57.     rjmp spr
  58.    
  59.  
  60. przep:
  61.     ldi r25,4
  62.     rjmp poczatek
  63.  
  64. przel:
  65.     ldi r25,128
  66.     rjmp poczatek
  67.  
  68. pen:
  69. inc r28
  70. ldi r29,0
  71. op:
  72. Cp r28,r27
  73. BREQ d
  74. inc r26
  75. Cp r26,r27
  76. BRNE op
  77. BREQ op1
  78. op1:
  79. ldi r26,0
  80. inc r29
  81. Cp r29,r27
  82. BRNE pen
  83.  
  84.  
  85. pen2:
  86. inc r28
  87. ldi r29,0
  88. op2:
  89. Cp r28,r27
  90. BREQ d2
  91. inc r26
  92. Cp r26,r27
  93. BRNE op2
  94. BREQ op12
  95. op12:
  96. ldi r26,0
  97. inc r29
  98. Cp r29,r27
  99. BRNE pen
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement