A/D převodník
Moderátor: Moderátoři
Kód: Vybrat vše
LIST P=16F876A, R=DEC
INCLUDE<P16F876A.INC>
__config _LVP_OFF & _FOSC_HS & _DEBUG_OFF & _WRT_OFF & _PWRTE_ON & _WDTE_OFF & _BOREN_ON
#define LED PORTA,0
#define TLAC PORTB,7
bsf STATUS,RP0 ;přepnuní do bank1
movlw b'00000000' ;nastavení PA0 In, PA1-PA7 Out
movwf TRISA
movlw b'11111111' ;nastavení PA0 In, PA1-PA7 Out
movwf TRISB ;TRISA(85h)
bcf STATUS,RP0 ;přepnutí do bank0
BSF LED
BTFSS TLAC
GOTO $-1
OPAK BCF LED
GOTO OPAK
END
Kód: Vybrat vše
START BTFSS TLAC
GOTO $-1
BSF LED
BTFSC TLAC
GOTO $-1
CALL CEKEJ
BTFSS TLAC
GOTO $-1
BCF LED
BTFSC TLAC
GOTO $-1
CALL CEKEJ
GOTO START
CEKEJ CLRF CISLO
MOVLW 150
MOVWF CISLOA
CEKEJ2 INCFSZ CISLO,1
GOTO CEKEJ2
DECFSZ CISLOA,1
GOTO CEKEJ2
RETURN
END- Jeejda_teda_puvodne
- Příspěvky: 142
- Registrován: 08 dub 2012, 00:00
- Jeejda_teda_puvodne
- Příspěvky: 142
- Registrován: 08 dub 2012, 00:00