LIST P=16F877
	INCLUDE "P16F877.INC"
	__CONFIG _CP_OFF &_WDT_OFF &_PWRTE_ON &_HS_OSC &_BODEN_OFF &_LVP_OFF &_CPD_OFF &_WRT_ENABLE_OFF 
LSB	EQU	H'0020'
MSB	EQU	H'0021'
BASS	EQU	H'0022'
TIZ	EQU	H'0023'
DENGE	EQU	H'0024'
SES	EQU	H'0025'
SAYAC1	EQU	H'0026'
SAYAC2	EQU	H'0027'
SAYI1	EQU	H'0028'	
SAYI2	EQU	H'0029'	
SEVIYE	EQU	H'002A'
SAYAC3	EQU	H'002B'
SAYAC4	EQU	H'002C'
LOGODNG	EQU	H'002D'
	ORG 	H'0000'
	GOTO 	BASLA
BASLA
	BCF	STATUS6
	BSF	STATUS5
	CLRF	TRISB
	CLRF	TRISC
	CLRF	TRISD
	CLRF	TRISE
	MOVLW	H'FF'
	MOVWF	TRISA
	MOVLW	H'06'
	MOVWF	ADCON1
	BCF	STATUS5
	CLRF	PORTB
	CLRF	PORTC
	CLRF	PORTD
	CLRF	PORTE
	CLRF	SES
	CLRF	BASS
	CLRF	TIZ
	CLRF	DENGE
	CLRF	MSB
	CLRF	LSB
	CLRF	SAYAC1
	CLRF	SAYAC2
	CLRF	SEVIYE
	CALL	TEMIZLE
	MOVLW	B'10001000'
	MOVWF	PORTC
	MOVLW	B'10000101'
	MOVWF	PORTD
	MOVLW	.8
	MOVWF	DENGE
	MOVLW	.5
	MOVWF	SES
	MOVLW	.8
	MOVWF	BASS
	MOVWF	TIZ
	CALL	TEMIZLE
	CALL	LCD_Tbigali017
	CALL	BEKLE
	CALL	BEKLE
	CALL	SATIR2
	CALL	BEKLE
	CALL	BEKLE
	CALL	LCD_MAIL
	CALL	BEKLE
	CALL	BEKLE
	MOVLW	.55
	MOVWF	LOGODNG
LOGO_DON
	CALL	BEKLE
	DECFSZ	LOGODNG
	GOTO	LOGO_DON
	GOTO	SESAYAR
;****************************
SESAYAR
	CALL	TEMIZLE
	CALL	LCD_SES
	MOVF	SESW
	CALL	GOSTER
	CALL	SESYAZ
	MOVF	SESW
	MOVWF	LSB
SESTEST
	CALL	BEKLE
	CALL	BEKLE
	CALL	BEKLE
	BTFSS	PORTA2
	GOTO	BASSAYAR
	CALL	TESTA
	MOVF	LSBW
	SUBWF	SESW
	BTFSC	STATUSZ
	GOTO	SESTEST
	CALL	TEMIZLE
	CALL	LCD_SES
	MOVF	LSBW
	MOVWF	SES
	CALL	GOSTER
	CALL	SESYAZ
	GOTO	SESTEST
SESYAZ
	BCF	PORTD0
	BCF	PORTD1
	BCF	PORTD2
	BCF	PORTD3
	BTFSC	SES0
	CALL	SET0D
	BTFSC	SES1
	CALL	SET1D
	BTFSC	SES2
	CALL	SET2D
	BTFSC	SES3
	CALL	SET3D
	RETURN
;****************************
SET0D
	BSF	PORTD0
	RETURN
SET1D
	BSF	PORTD1
	RETURN
SET2D
	BSF	PORTD2
	RETURN
SET3D
	BSF	PORTD3
	RETURN
SET4D
	BSF	PORTD4
	RETURN
SET5D
	BSF	PORTD5
	RETURN
SET6D
	BSF	PORTD6
	RETURN
SET7D
	BSF	PORTD7
	RETURN
;****************************
BASSAYAR
	CALL	TEMIZLE
	CALL	LCD_BASS
	MOVF	BASSW
	CALL	GOSTER
	CALL	BASSYAZ
	MOVF	BASSW
	MOVWF	LSB
BASSTEST
	CALL	BEKLE
	CALL	BEKLE
	CALL	BEKLE
	BTFSS	PORTA2
	GOTO	TIZAYAR
	CALL	TESTA
	MOVF	LSBW
	SUBWF	BASSW
	BTFSC	STATUSZ
	GOTO	BASSTEST
	CALL	TEMIZLE
	CALL	LCD_BASS
	MOVF	LSBW
	MOVWF	BASS
	CALL	GOSTER
	CALL	BASSYAZ
	GOTO	BASSTEST
BASSYAZ
	BCF	PORTD4
	BCF	PORTD5
	BCF	PORTD6
	BCF	PORTD7
	BTFSC	BASS0
	CALL	SET4D
	BTFSC	BASS1
	CALL	SET5D
	BTFSC	BASS2
	CALL	SET6D
	BTFSC	BASS3
	CALL	SET7D
	RETURN
;***************************
TIZAYAR
	CALL	TEMIZLE
	CALL	LCD_TIZ
	MOVF	TIZW
	CALL	GOSTER
	CALL	TIZYAZ
	MOVF	TIZW
	MOVWF	LSB
TIZTEST
	CALL	BEKLE
	CALL	BEKLE
	CALL	BEKLE
	BTFSS	PORTA2
	GOTO	DENGEAYAR
	CALL	TESTA
	MOVF	LSBW
	SUBWF	TIZW
	BTFSC	STATUSZ
	GOTO	TIZTEST
	CALL	TEMIZLE
	CALL	LCD_TIZ
	MOVF	LSBW
	MOVWF	TIZ
	CALL	GOSTER
	CALL	TIZYAZ
	GOTO	TIZTEST
TIZYAZ
	BCF	PORTC0
	BCF	PORTC1
	BCF	PORTC2
	BCF	PORTC3
	BTFSC	TIZ0
	CALL	SET0C
	BTFSC	TIZ1
	CALL	SET1C
	BTFSC	TIZ2
	CALL	SET2C
	BTFSC	TIZ3
	CALL	SET3C
	RETURN
;**************************
DENGEAYAR
	CALL	TEMIZLE
	CALL	LCD_DENGE
	MOVF	DENGEW
	CALL	GOSTER
	CALL	DENGEYAZ
	MOVF	DENGEW
	MOVWF	LSB
DENGETEST
	CALL	BEKLE
	CALL	BEKLE
	CALL	BEKLE
	BTFSS	PORTA2
	GOTO	SESAYAR
	CALL	TESTA
	MOVF	LSBW
	SUBWF	DENGEW
	BTFSC	STATUSZ
	GOTO	DENGETEST
	CALL	TEMIZLE
	CALL	LCD_DENGE
	MOVF	LSBW
	MOVWF	DENGE
	CALL	GOSTER
	CALL	DENGEYAZ
	GOTO	DENGETEST
DENGEYAZ
	BCF	PORTC4
	BCF	PORTC5
	BCF	PORTC6
	BCF	PORTC7
	BTFSC	DENGE0
	CALL	SET4C
	BTFSC	DENGE1
	CALL	SET5C
	BTFSC	DENGE2
	CALL	SET6C
	BTFSC	DENGE3
	CALL	SET7C
	RETURN
;***************************
SET0C
	BSF	PORTC0
	RETURN
SET1C
	BSF	PORTC1
	RETURN
SET2C
	BSF	PORTC2
	RETURN
SET3C
	BSF	PORTC3
	RETURN
SET4C
	BSF	PORTC4
	RETURN
SET5C
	BSF	PORTC5
	RETURN
SET6C
	BSF	PORTC6
	RETURN
SET7C
	BSF	PORTC7
	RETURN
;****************************
TESTA
	BTFSS	PORTA0
	CALL	ART
	BTFSS	PORTA1
	CALL	AZAL
	RETURN
ART
	NOP
	MOVLW	.15
	SUBWF	LSBW
	BTFSC	STATUSZ
	RETURN
	INCF	LSBF
	RETURN
AZAL
	NOP
	MOVLW	.0
	SUBWF	LSBW
	BTFSC	STATUSZ
	RETURN
	DECF	LSBF
	RETURN
GOSTER
	MOVWF	MSB
	MOVWF	SEVIYE
	CALL	HESAP
	MOVLW	H'30'
	ADDWF	SAYI2W
	CALL	VERIYAZ
	MOVLW	H'30'
	ADDWF	SAYI1W
	CALL	VERIYAZ
SVEKRAN
	MOVLW	.0
	SUBWF	SEVIYEW
	BTFSC	STATUSZ
	RETURN
	CALL	SATIR2
S_EKRAN
	CALL	IMLEC
	DECFSZ	SEVIYEF
	GOTO	S_EKRAN
	RETURN
;****************************
HESAP
	MOVLW	.0
	MOVWF	SAYI1
	MOVWF	SAYI2
HES
	MOVLW	.10
	SUBWF	MSBW
	BTFSS	STATUSC
	GOTO	HES1
	MOVLW	.10
	SUBWF	MSBF
	INCF	SAYI2F
	GOTO	HES	
HES1
	MOVLW	.1
	SUBWF	MSBW
	BTFSS	STATUSC
	GOTO	HESSON
	MOVLW	.1
	SUBWF	MSBF
	INCF	SAYI1F
	GOTO	HES1
HESSON
	RETURN
;****************************
SATIR2
	MOVLW	H'C0'
	CALL	KOMUTYAZ
	RETURN
SATIR1
	MOVLW	H'80'
	CALL	KOMUTYAZ
	RETURN
IMLEC
	MOVLW	A'>'
	CALL	VERIYAZ
	RETURN
VERIYAZ
	BSF	PORTE1
	MOVWF	PORTB
	BCF	PORTE0
	CALL	GECIKME
	BSF	PORTE0
	RETURN
TEMIZLE
	MOVLW	H'0C'
	CALL	KOMUTYAZ
	MOVLW	H'01'
	CALL	KOMUTYAZ
	MOVLW	H'38'
	CALL	KOMUTYAZ
	MOVLW	H'0C'
	CALL	KOMUTYAZ
	RETURN
KOMUTYAZ
	BCF	PORTE1
	MOVWF	PORTB
	BCF	PORTE0
	CALL	GECIKME
	BSF	PORTE0
	RETURN
GECIKME
	MOVLW	.10
	MOVWF	SAYAC1
DON1
	MOVLW	.100
	MOVWF	SAYAC2
DON2
	DECFSZ	SAYAC2F
	GOTO	DON2
	DECFSZ	SAYAC1F
	GOTO	DON1
	RETURN
LCD_BASS
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A'B'
	CALL	VERIYAZ
	MOVLW	A'A'
	CALL	VERIYAZ
	MOVLW	A'S'
	CALL	VERIYAZ
	MOVLW	A'S'
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	RETURN
LCD_TIZ
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A'T'
	CALL	VERIYAZ
	MOVLW	A'I'
	CALL	VERIYAZ
	MOVLW	A'Z'
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	RETURN
LCD_DENGE
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A'B'
	CALL	VERIYAZ
	MOVLW	A'A'
	CALL	VERIYAZ
	MOVLW	A'L'
	CALL	VERIYAZ
	MOVLW	A'A'
	CALL	VERIYAZ
	MOVLW	A'N'
	CALL	VERIYAZ
	MOVLW	A'S'
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	RETURN
LCD_SES
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A'S'
	CALL	VERIYAZ
	MOVLW	A'E'
	CALL	VERIYAZ
	MOVLW	A'S'
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	RETURN
LCD_Tbigali017
	MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A'>'
	CALL	VERIYAZ
	MOVLW	A'>'
	CALL	VERIYAZ
	MOVLW	A'b'
	CALL	VERIYAZ
	MOVLW	A'i'
	CALL	VERIYAZ
	MOVLW	A'g'
	CALL	VERIYAZ
	MOVLW	A'a'
	CALL	VERIYAZ
	MOVLW	A'l'
	CALL	VERIYAZ
	MOVLW	A'i'
	CALL	VERIYAZ
	MOVLW	A'0'
	CALL	VERIYAZ
	MOVLW	A'1'
	CALL	VERIYAZ
	MOVLW	A'7'
	CALL	VERIYAZ
	MOVLW	A'<'
	CALL	VERIYAZ
	MOVLW	A'<'
	CALL	VERIYAZ
	MOVLW	A' '
	CALL	VERIYAZ
	RETURN
LCD_MAIL
	MOVLW	A' '
	CALL	VERIYAZ
    MOVLW	A' '
	CALL	VERIYAZ
	MOVLW	A'w'
	CALL	VERIYAZ
	MOVLW	A'h'
	CALL	VERIYAZ
	MOVLW	A'i'
	CALL	VERIYAZ
	MOVLW	A't'
	CALL	VERIYAZ
	MOVLW	A'e'
	CALL	VERIYAZ
	MOVLW	A'c'
	CALL	VERIYAZ
	MOVLW	A'y'
	CALL	VERIYAZ
	MOVLW	A'b'
	CALL	VERIYAZ
	MOVLW	A'e'
	CALL	VERIYAZ
	MOVLW	A'r'
	CALL	VERIYAZ
	MOVLW	A'1'
	CALL	VERIYAZ
	MOVLW	A'7'
	CALL	VERIYAZ
	MOVLW	A'@'
	CALL	VERIYAZ
	MOVLW	A'g'
	CALL	VERIYAZ 
    movlw   A'm'
    call    VERIYAZ
    movlw   A'a'
    call    VERIYAZ
    movlw   A'i'
    call    VERIYAZ
    movlw   A'l'
    call    VERIYAZ
    movlw   A'.'
    call    VERIYAZ
    movlw   A'c'
    call    VERIYAZ
    movlw   A'o'
    call    VERIYAZ
    movlw   A'm'      
	RETURN
BEKLE
	MOVLW	.100
	MOVWF	SAYAC3
DON11
	MOVLW	.255
	MOVWF	SAYAC4
DON22	
	DECFSZ  SAYAC4F
	GOTO DON22
	DECFSZ	SAYAC3F
	GOTO DON11
	RETURN
;************************
	END