Advertisement
Guest User

Untitled

a guest
Dec 2nd, 2019
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     #include p18f87k22.inc
  2.    
  3.     bcf INTCON2, RBPU ;rezystory ustawiane indywidualnie
  4.    
  5.        
  6.     ;bcf TRISB, RB5 ;gaszenie nieuzywanych LED
  7.     ;bcf TRISB, RB4
  8.     ;bcf PORTB, RB5
  9.     ;bcf PORTB, RB4
  10.     bsf TRISB, RB0 ; rezystor podciagajacy dla przycisku - PB0 jako wejscie
  11.     clrf PORTB
  12.     clrf PORTE
  13.     clrf PORTA
  14.     bcf TRISB, RB5; porte rb5 wyjscie
  15.     bcf TRISB, RB4 ; porte rb4 wyjscie
  16.     bcf TRISA, RA5 ; porte ra5 wyjscie
  17.     bcf TRISE, RE7 ; porte re7 wyjscie
  18.     bcf TRISE, RE6 ; porte re6 wyjscie
  19.     bcf TRISE, RE5 ; porte re5 wyjscie
  20.     bcf TRISE, RE4 ; porte re4 wyjscie
  21.    
  22.    
  23.  
  24. et: btfss PORTB, RB0
  25.     goto etz
  26.     goto et
  27.  
  28. etz:
  29.     btg PORTB, RB5
  30. ett:
  31.     btfss PORTB, RB0
  32.     goto ett
  33.     goto et1
  34.  
  35.  
  36. et1:    btfss PORTB, RB0
  37.     goto etz1
  38.     goto et1
  39.  
  40. etz1:
  41.     btg PORTB, RB4
  42. ett1:
  43.     btfss PORTB, RB0
  44.     goto ett1
  45.     goto et2
  46.  
  47.  
  48. et2:    btfss PORTB, RB0
  49.     goto etz2
  50.     goto et2
  51.  
  52. etz2:
  53.     btg PORTA, RA5
  54. ett2:
  55.     btfss PORTB, RB0
  56.     goto ett2
  57.     goto et3
  58.  
  59. et3:    btfss PORTB, RB0
  60.     goto etz3
  61.     goto et3
  62.  
  63. etz3:
  64.     btg PORTE, RE7
  65. ett3:
  66.     btfss PORTB, RB0
  67.     goto ett3
  68.     goto et4
  69.  
  70.  
  71. et4:    btfss PORTB, RB0
  72.     goto etz4
  73.     goto et4
  74.  
  75. etz4:
  76.     btg PORTE, RE6
  77. ett4:
  78.     btfss PORTB, RB0
  79.     goto ett4
  80.     goto et5
  81.  
  82. et5:    btfss PORTB, RB0
  83.     goto etz5
  84.     goto et5
  85.  
  86. etz5:
  87.     btg PORTE, RE5
  88. ett5:
  89.     btfss PORTB, RB0
  90.     goto ett5
  91.     goto et6
  92.  
  93. et6 btfss PORTB, RB0
  94.     goto etz6
  95.     goto et6
  96.  
  97. etz6:
  98.     btg PORTE, RE4
  99. ett6:
  100.     btfss PORTB, RB0
  101.     goto ett6
  102.     goto gasswiat
  103. gasswiat:
  104.     btg PORTB, RB5
  105.     btg PORTB, RB4
  106.     clrf PORTA
  107.     btg PORTE, RE7
  108.     btg PORTE, RE6
  109.     btg PORTE, RE5
  110.     btg PORTE, RE4
  111.     goto et
  112. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement