LIST P=16F877A
INCLUDE "P16F877A.INC"
BSF STATUS,5
MOVLW h'00'
MOVWF TRISB
MOVWF TRISD
BCF STATUS,5
POLIT EQU h'0D'
ZOLITE EQU h'0E'
CLRF PORTB
CLRF PORTD
CALL UZUNG
CALL UZUNG
CALL UZUNG
CALL UZUNG
CALL UZUNG
CALL UZUNG
MOVLW h'01'
MOVWF PORTB ;EKRANI SILDIM
CALL UZUNG
CALL MESGUL
MOVLW h'02' ;RETURN TO HOME
MOVWF PORTB
CALL UZUNG
CALL MESGUL
MOVLW h'3C'
MOVWF PORTB ;8 BIT INTERFACE,5X7DOT
CALL UZUNG
CALL MESGUL
MOVLW h'07'
MOVWF PORTB ;SAGA HAREKET ET
CALL UZUNG
CALL MESGUL
MOVLW h'0F'
MOVWF PORTB ;CURSOR ALT CIZGI VAR YANIP SONME VAR
CALL UZUNG
CALL MESGUL
MOVLW h'80'
MOVWF PORTB ;ILK YAZILACAK HARFIN ADRESI
CALL UZUNG
CALL MESGUL
HARF
BSF PORTD,4
MOVLW h'4F'
MOVWF PORTB ;ILK HARFIM O
CALL UZUNG
CALL MESGUL
BCF PORTD,5
CALL UZUNG
BCF PORTD,4
BSF PORTD,6
CALL UZUNG
BCF PORTD,6
CALL UZUNG
BSF PORTD,6
CALL UZUNG
BCF PORTD,6
CALL UZUNG
CALL UZUNG
GOTO HARF
UZUNG
MOVLW h'FF'
MOVWF POLIT
DONGU1
MOVLW h'FF'
MOVWF ZOLITE
DONGU2
DECFSZ ZOLITE
GOTO DONGU2
DECFSZ POLIT
GOTO DONGU1
RETURN
MESGUL
BSF STATUS,5
MOVLW h'0FF'
MOVWF TRISB
BCF STATUS,5
BCF PORTD,4
BSF PORTD,5
BSF PORTD,6
MOVF PORTB,0
BCF PORTD,6
ANDLW h'80'
BTFSS STATUS,2
GOTO MESGUL
DEVAM
BCF PORTD,5
BSF STATUS,5
MOVLW h'00'
MOVWF TRISB
BCF STATUS,5
RETURN
END