Advertisement
Guest User

Untitled

a guest
Dec 2nd, 2019
198
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.     clrf PORTB
  5.     bsf TRISB, RB0 ; rezystor podciagajacy dla przycisku - PB0 jako wejscie
  6.    
  7.     bcf TRISB, RB5  ;gaszenie nieuzywanych LED
  8.     bcf TRISB, RB4
  9.     bcf PORTB, RB5
  10.     bcf PORTB, RB4
  11.    
  12.     clrf PORTE
  13.     bcf TRISE, RE7 ; porte re7 wyjscie
  14.     bcf TRISE, RE6
  15.     bcf TRISE, RE5
  16.     bcf TRISE, RE4
  17.     bcf TRISB, RB5
  18.     bcf TRISB, RB4
  19.     bcf TRISA, RA5
  20.     clrf PORTA
  21.  
  22. et3:   
  23.     btfss PORTB, RB0
  24.         goto d3
  25.     goto et3
  26.     d3: btfss PORTB, RB0
  27.             goto d3
  28.         goto zm3
  29. zm3:
  30.     btg PORTB, RB5
  31.  
  32. et2:   
  33.     btfss PORTB, RB0
  34.         goto d2
  35.     goto et2
  36.     d2: btfss PORTB, RB0
  37.             goto d2
  38.         goto zm2
  39. zm2:
  40.     btg PORTB, RB4
  41.  
  42. et1:   
  43.     btfss PORTB, RB0
  44.         goto d1
  45.     goto et1
  46.     d1: btfss PORTB, RB0
  47.             goto d1
  48.         goto zm1
  49. zm1:
  50.     btg PORTA, RA5
  51.  
  52.  
  53. et7:   
  54.     btfss PORTB, RB0
  55.         goto d7
  56.     goto et7
  57.  
  58.     d7: btfss PORTB, RB0
  59.             goto d7
  60.         goto zm7
  61. zm7:
  62.     btg PORTE, RE7
  63.  
  64. et6:   
  65.     btfss PORTB, RB0
  66.         goto d6
  67.     goto et6
  68.     d6: btfss PORTB, RB0
  69.             goto d6
  70.         goto zm6   
  71. zm6:
  72.     btg PORTE, RE6
  73.  
  74. et5:   
  75.     btfss PORTB, RB0
  76.         goto d5
  77.     goto et5
  78.     d5: btfss PORTB, RB0
  79.             goto d5
  80.         goto zm5
  81. zm5:
  82.     btg PORTE, RE5
  83.  
  84. et4:   
  85.     btfss PORTB, RB0
  86.         goto d4
  87.     goto et4
  88.     d4: btfss PORTB, RB0
  89.             goto d4
  90.         goto zm4
  91. zm4:
  92.     btg PORTE, RE4
  93.  
  94. etzero: btfss PORTB, RB0
  95.         goto dzero
  96.     goto etzero
  97. dzero:  btfss PORTB, RB0
  98.             goto dzero
  99.         goto zero
  100.    
  101.  
  102. zero:
  103.     btg PORTE, RE7
  104.     btg PORTE, RE6
  105.     btg PORTE, RE5
  106.     btg PORTE, RE4
  107.     btg PORTB, RB5
  108.     btg PORTB, RB4
  109.     clrf PORTA
  110.  
  111.  
  112.     goto et3
  113. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement