- 9 Ağu 2022
- 78
- 61
Merhaba,
Klavye ile basılan her tuşun ASCII değerini okuyabilen bir çalışma. Açık kaynak kodlar "rar" dosyasındadır.
;
LIST P=16F628
INCLUDE "P16F628.INC"
;***************
MOVLW H'07'; PORTA GİRİŞLERİ DİGİTAL
MOVWF CMCON
;*************
CLRF PORTA
CLRF PORTB
;*************
BANKSEL TRISA
MOVLW B'11110000'
MOVWF TRISA
MOVLW B'00001011';RB1 RX ALICI GİRİŞ (1) RB2/TX (0) ÇIKIŞ OLMALI
MOVWF TRISB
MOVLW D'25'; 9600 BAUD RATE İÇİN GİRİLEN DEĞER
MOVWF SPBRG
MOVLW B'000000100'; SYNC=0 (4.BİT),BRGH=1 (2.BİT)
MOVWF TXSTA
BANKSEL PORTB
MOVLW B'10010000';SPEN=1 (7.BİT),CREN=1 (4.BİT)
MOVWF RCSTA
;************
LED_GONDER
CALL VERI_AL
MOVWF PORTA
MOVWF PORTB
GOTO LED_GONDER
VERI_AL
BTFSS PIR1,RCIF; RCIF BAYRAĞI (1) Mİ?
GOTO VERI_AL
BCF PIR1,RCIF; EVET (1) O ZAMAN RCIF BAYRAĞINI (0) YAP
MOVF RCREG,W
RETURN
END
Klavye ile basılan her tuşun ASCII değerini okuyabilen bir çalışma. Açık kaynak kodlar "rar" dosyasındadır.
LIST P=16F628
INCLUDE "P16F628.INC"
;***************
MOVLW H'07'; PORTA GİRİŞLERİ DİGİTAL
MOVWF CMCON
;*************
CLRF PORTA
CLRF PORTB
;*************
BANKSEL TRISA
MOVLW B'11110000'
MOVWF TRISA
MOVLW B'00001011';RB1 RX ALICI GİRİŞ (1) RB2/TX (0) ÇIKIŞ OLMALI
MOVWF TRISB
MOVLW D'25'; 9600 BAUD RATE İÇİN GİRİLEN DEĞER
MOVWF SPBRG
MOVLW B'000000100'; SYNC=0 (4.BİT),BRGH=1 (2.BİT)
MOVWF TXSTA
BANKSEL PORTB
MOVLW B'10010000';SPEN=1 (7.BİT),CREN=1 (4.BİT)
MOVWF RCSTA
;************
LED_GONDER
CALL VERI_AL
MOVWF PORTA
MOVWF PORTB
GOTO LED_GONDER
VERI_AL
BTFSS PIR1,RCIF; RCIF BAYRAĞI (1) Mİ?
GOTO VERI_AL
BCF PIR1,RCIF; EVET (1) O ZAMAN RCIF BAYRAĞINI (0) YAP
MOVF RCREG,W
RETURN
END