Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include p18f87k22.inc
- bcf INTCON2, RBPU ;rezystory ustawiane indywidualnie
- clrf PORTB
- bsf TRISB, RB0 ; rezystor podciagajacy dla przycisku - PB0 jako wejscie
- bcf TRISB, RB5 ;gaszenie nieuzywanych LED
- bcf TRISB, RB4
- bcf PORTB, RB5
- bcf PORTB, RB4
- clrf PORTE
- bcf TRISE, RE7 ; porte re7 wyjscie
- bcf TRISE, RE6
- bcf TRISE, RE5
- bcf TRISE, RE4
- bcf TRISB, RB5
- bcf TRISB, RB4
- bcf TRISA, RA5
- clrf PORTA
- et3:
- btfss PORTB, RB0
- goto d3
- goto et3
- d3: btfss PORTB, RB0
- goto d3
- goto zm3
- zm3:
- btg PORTB, RB5
- et2:
- btfss PORTB, RB0
- goto d2
- goto et2
- d2: btfss PORTB, RB0
- goto d2
- goto zm2
- zm2:
- btg PORTB, RB4
- et1:
- btfss PORTB, RB0
- goto d1
- goto et1
- d1: btfss PORTB, RB0
- goto d1
- goto zm1
- zm1:
- btg PORTA, RA5
- et7:
- btfss PORTB, RB0
- goto d7
- goto et7
- d7: btfss PORTB, RB0
- goto d7
- goto zm7
- zm7:
- btg PORTE, RE7
- et6:
- btfss PORTB, RB0
- goto d6
- goto et6
- d6: btfss PORTB, RB0
- goto d6
- goto zm6
- zm6:
- btg PORTE, RE6
- et5:
- btfss PORTB, RB0
- goto d5
- goto et5
- d5: btfss PORTB, RB0
- goto d5
- goto zm5
- zm5:
- btg PORTE, RE5
- et4:
- btfss PORTB, RB0
- goto d4
- goto et4
- d4: btfss PORTB, RB0
- goto d4
- goto zm4
- zm4:
- btg PORTE, RE4
- etzero: btfss PORTB, RB0
- goto dzero
- goto etzero
- dzero: btfss PORTB, RB0
- goto dzero
- goto zero
- zero:
- btg PORTE, RE7
- btg PORTE, RE6
- btg PORTE, RE5
- btg PORTE, RE4
- btg PORTB, RB5
- btg PORTB, RB4
- clrf PORTA
- goto et3
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement