Postat: 20 september 2008, 14:35:57
vad tror ni om detta så?:
Kod: Markera allt
start
; remaining code goes here
banksel cmcon
movlw b'00000111' ;stäng av komparatorerna
movwf cmcon
banksel trisb
clrf trisb ;sätt hela portb till utgångar
banksel trisa
clrf trisa ;sätt hela porta till utgångar
bsf trisa, 0 ;sätt RA0 till digital ingång
banksel portb
test
movlw b'01010101'
movwf portb ;sätt RB0 RB2 RB4 RB6 höga och resten låga
test1
btfss porta, 0 ;kolla om RA0 är hög
goto test1 ;gå till test 1 om RA0 är låg
movlw b'10101010'
movwf portb ;Sätt RB1 RB3 RB5 RB7 höga och resten låga
test2
btfsc porta, 0 ;kolla om RA0 är hög
goto test2 ;gå till test2 om RA0 är hög
goto test ;gå till test om RA0 är låg