Notes
Notes - notes.io |
LIST P=16F877A
INCLUDE "P16F877A.INC"
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _HS_OSC & _BODEN_OFF
SAY1 EQU 0x20
SAY2 EQU 0x21
Volt EQU 0x22
Referans EQU 0x23
#define RS PORTC,RC0
#define E PORTC,RC2
ORG 0x00
GOTO BASLA
ilk_degerler
CLRF PORTA
CLRF PORTC
CLRF PORTD
BCF STATUS,RP1
BSF STATUS,RP0
CLRF TRISC
CLRF TRISD
MOVLW b'00111111'
MOVWF TRISA
MOVLW b'00000000'
MOVWF ADCON1
BCF STATUS,RP0
MOVLW b'01000001'
MOVWF ADCON0
RETURN
GECIKME1
MOVLW .42
MOVWF SAY1
GEC1
DECFSZ SAY1, F
GOTO GEC1
RETURN
; --------------------
GECIKME2
MOVLW .40
MOVWF SAY2
GEC2
CALL GECIKME1
DECFSZ SAY2, F
GOTO GEC2
RETURN
; --------------------
DARBE
BSF E
NOP
BCF E
CALL GECIKME1
RETURN
; --------------------
LCD_HAZIRLA
BSF E
BCF RS
CALL GECIKME1
MOVLW h'38'
MOVWF PORTD
CALL DARBE
MOVLW h'0C' ; 0000 1100 (LCD komut - ekran açık, imleç kapalı)
MOVWF PORTD
CALL DARBE
MOVLW h'01' ; LCD temizleme komutu
MOVWF PORTD
CALL DARBE
CALL GECIKME2
RETURN
; ------------------------------
KARAKTER_GONDER
MOVWF PORTD
BSF RS ; RS = 1 (karakter gönderimi)
CALL DARBE
RETURN
; ------------------------------
KOMUT_GONDER
MOVWF PORTD
BCF RS ; RS = 0 (komut gönderimi)
CALL DARBE
RETURN
; ------------------------------
YAZ1
MOVLW 'L'
CALL KARAKTER_GONDER
MOVLW 'M'
CALL KARAKTER_GONDER
MOVLW '3'
CALL KARAKTER_GONDER
MOVLW '5'
CALL KARAKTER_GONDER
MOVLW ':'
CALL KARAKTER_GONDER
MOVLW h'88'
CALL KOMUT_GONDER
RETURN
; ------------------------------
Ekrana_Yaz_Hex
; Üst (High) Basamak Yazdırılıyor
MOVLW h'39'
MOVWF Referans
SWAPF Volt,W
ANDLW h'0F'
ADDLW h'30'
SUBWF Referans,F
BTFSS STATUS,C
ADDLW h'07'
CALL KARAKTER_GONDER
; Alt (Low) Basamak Yazdırılıyor
MOVLW h'39'
MOVWF Referans
MOVF Volt,W
ANDLW h'0F'
ADDLW h'30'
SUBWF Referans,F
BTFSS STATUS,C
ADDLW h'07'
CALL KARAKTER_GONDER
RETURN
BASLA
CALL ilk_degerler
CALL LCD_HAZIRLA
CALL YAZ1
devam
; "ffCCCxxx" ; CCC : Kanal numarası
MOVLW b'01000001' ; Channel 1 : A1
MOVWF ADCON0
BSF ADCON0,GO ; Başla
CALL GECIKME1 ; Az bekle
Wait_AGC1
BTFSC ADCON0,GO ; Okuma ve çevirme işlemi bitince
GOTO Wait_AGC1 ; döngüden çık
MOVF ADRESH,W ; Okunan değeri W'ye aktar
MOVWF Volt ; ve Volt değişkenine koy
MOVLW h'85' ; 1. SATIRA 7. Sütuna git
CALL KOMUT_GONDER
CALL Ekrana_Yaz_Hex
GOTO devam
END
|
|
Notes is a web-based application for online taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000+ notes created and continuing...
With notes.io;
- * You can take a note from anywhere and any device with internet connection.
- * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
- * You can quickly share your contents without website, blog and e-mail.
- * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
- * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.
Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.
Easy: Notes.io doesn’t require installation. Just write and share note!
Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )
Free: Notes.io works for 14 years and has been free since the day it was started.
You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;
Email: [email protected]
Twitter: http://twitter.com/notesio
Instagram: http://instagram.com/notes.io
Facebook: http://facebook.com/notesio
Regards;
Notes.io Team
