iyi günler arkadaslarlar müsait olan bir arkadas varsa bana yardımcı olabilirmi lütfen devre ilk çalıştıgında hosgeldiniz yazısı çıksın istiyorum ve cihaza hiç dokunulmadıgında kayan bir yazıyla kaan alben yazmasını ve yapılabilecek her çeşitli efekler geçmesini istiyorum cihaza hiç müdale edilmedikçe onun haricinde tüm kodların normal haliyle çalışmasını cihazı kapatırkende hoşçakalın veya güle güle der gibi birşey yazmasını istiyorum yardımcı olabililirmisiniz...
lıst p=16f877
ınclude "p16f877.ınc"
__confıg _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'
tız equ h'0023'
denge equ h'0024'
ses equ h'0025'
sayac1 equ h'0026'
sayac2 equ h'0027'
sayı1 equ h'0028'
sayı2 equ h'0029'
sevıye equ h'002a'
sayac3 equ h'002b'
sayac4 equ h'002c'
logodng equ h'002d'
org h'0000'
goto basla
basla
bcf status,6
bsf status,5
clrf trısb
clrf trısc
clrf trısd
clrf trıse
movlw h'ff'
movwf trısa
movlw h'06'
movwf adcon1
bcf status,5
clrf portb
clrf portc
clrf portd
clrf porte
clrf ses
clrf bass
clrf tız
clrf denge
clrf msb
clrf lsb
clrf sayac1
clrf sayac2
clrf sevıye
call temızle
movlw b'10001000'
movwf portc
movlw b'10000101'
movwf portd
movlw .8
movwf denge
movlw .5
movwf ses
movlw .8
movwf bass
movwf tız
call temızle
call lcd_thasan
call bekle
call bekle
call satır2
call bekle
call bekle
call lcd_ceptel
call bekle
call bekle
movlw .55
movwf logodng
logo_don
call bekle
decfsz logodng
goto logo_don
goto sesayar
;****************************
sesayar
call temızle
call lcd_ses
movf ses,w
call goster
call sesyaz
movf ses,w
movwf lsb
sestest
call bekle
call bekle
call bekle
btfss porta,2
goto bassayar
call testa
movf lsb,w
subwf ses,w
btfsc status,z
goto sestest
call temızle
call lcd_ses
movf lsb,w
movwf ses
call goster
call sesyaz
goto sestest
sesyaz
bcf portd,0
bcf portd,1
bcf portd,2
bcf portd,3
btfsc ses,0
call set0d
btfsc ses,1
call set1d
btfsc ses,2
call set2d
btfsc ses,3
call set3d
return
;****************************
set0d
bsf portd,0
return
set1d
bsf portd,1
return
set2d
bsf portd,2
return
set3d
bsf portd,3
return
set4d
bsf portd,4
return
set5d
bsf portd,5
return
set6d
bsf portd,6
return
set7d
bsf portd,7
return
;****************************
bassayar
call temızle
call lcd_bass
movf bass,w
call goster
call bassyaz
movf bass,w
movwf lsb
basstest
call bekle
call bekle
call bekle
btfss porta,2
goto tızayar
call testa
movf lsb,w
subwf bass,w
btfsc status,z
goto basstest
call temızle
call lcd_bass
movf lsb,w
movwf bass
call goster
call bassyaz
goto basstest
bassyaz
bcf portd,4
bcf portd,5
bcf portd,6
bcf portd,7
btfsc bass,0
call set4d
btfsc bass,1
call set5d
btfsc bass,2
call set6d
btfsc bass,3
call set7d
return
;***************************
tızayar
call temızle
call lcd_tız
movf tız,w
call goster
call tızyaz
movf tız,w
movwf lsb
tıztest
call bekle
call bekle
call bekle
btfss porta,2
goto dengeayar
call testa
movf lsb,w
subwf tız,w
btfsc status,z
goto tıztest
call temızle
call lcd_tız
movf lsb,w
movwf tız
call goster
call tızyaz
goto tıztest
tızyaz
bcf portc,0
bcf portc,1
bcf portc,2
bcf portc,3
btfsc tız,0
call set0c
btfsc tız,1
call set1c
btfsc tız,2
call set2c
btfsc tız,3
call set3c
return
;**************************
dengeayar
call temızle
call lcd_denge
movf denge,w
call goster
call dengeyaz
movf denge,w
movwf lsb
dengetest
call bekle
call bekle
call bekle
btfss porta,2
goto sesayar
call testa
movf lsb,w
subwf denge,w
btfsc status,z
goto dengetest
call temızle
call lcd_denge
movf lsb,w
movwf denge
call goster
call dengeyaz
goto dengetest
dengeyaz
bcf portc,4
bcf portc,5
bcf portc,6
bcf portc,7
btfsc denge,0
call set4c
btfsc denge,1
call set5c
btfsc denge,2
call set6c
btfsc denge,3
call set7c
return
;***************************
set0c
bsf portc,0
return
set1c
bsf portc,1
return
set2c
bsf portc,2
return
set3c
bsf portc,3
return
set4c
bsf portc,4
return
set5c
bsf portc,5
return
set6c
bsf portc,6
return
set7c
bsf portc,7
return
;****************************
testa
btfss porta,0
call art
btfss porta,1
call azal
return
art
nop
movlw .15
subwf lsb,w
btfsc status,z
return
ıncf lsb,f
return
azal
nop
movlw .0
subwf lsb,w
btfsc status,z
return
decf lsb,f
return
goster
movwf msb
movwf sevıye
call hesap
movlw h'30'
addwf sayı2,w
call verıyaz
movlw h'30'
addwf sayı1,w
call verıyaz
svekran
movlw .0
subwf sevıye,w
btfsc status,z
return
call satır2
s_ekran
call ımlec
decfsz sevıye,f
goto s_ekran
return
;****************************
hesap
movlw .0
movwf sayı1
movwf sayı2
hes
movlw .10
subwf msb,w
btfss status,c
goto hes1
movlw .10
subwf msb,f
ıncf sayı2,f
goto hes
hes1
movlw .1
subwf msb,w
btfss status,c
goto hesson
movlw .1
subwf msb,f
ıncf sayı1,f
goto hes1
hesson
return
;****************************
satır2
movlw h'c0'
call komutyaz
return
satır1
movlw h'80'
call komutyaz
return
ımlec
movlw a'>'
call verıyaz
return
verıyaz
bsf porte,1
movwf portb
bcf porte,0
call gecıkme
bsf porte,0
return
temızle
movlw h'0c'
call komutyaz
movlw h'01'
call komutyaz
movlw h'38'
call komutyaz
movlw h'0c'
call komutyaz
return
komutyaz
bcf porte,1
movwf portb
bcf porte,0
call gecıkme
bsf porte,0
return
gecıkme
movlw .10
movwf sayac1
don1
movlw .100
movwf sayac2
don2
decfsz sayac2,f
goto don2
decfsz sayac1,f
goto don1
return
lcd_bass
movlw a' '
call verıyaz
movlw a' '
call verıyaz
movlw a'b'
call verıyaz
movlw a'a'
call verıyaz
movlw a's'
call verıyaz
movlw a's'
call verıyaz
movlw a' '
call verıyaz
movlw a' '
call verıyaz
return
lcd_tız
movlw a' '
call verıyaz
movlw a' '
call verıyaz
movlw a't'
call verıyaz
movlw a'ı'
call verıyaz
movlw a'z'
call verıyaz
movlw a' '
call verıyaz
movlw a' '
call verıyaz
return
lcd_denge
movlw a' '
call verıyaz
movlw a'b'
call verıyaz
movlw a'a'
call verıyaz
movlw a'l'
call verıyaz
movlw a'a'
call verıyaz
movlw a'n'
call verıyaz
movlw a's'
call verıyaz
movlw a' '
call verıyaz
return
lcd_ses
movlw a' '
call verıyaz
movlw a' '
call verıyaz
movlw a's'
call verıyaz
movlw a'e'
call verıyaz
movlw a's'
call verıyaz
movlw a' '
call verıyaz
movlw a' '
call verıyaz
return
lcd_thasan
movlw a' '
call verıyaz
movlw a'>'
call verıyaz
movlw a't'
call verıyaz
movlw a'a'
call verıyaz
movlw a'm'
call verıyaz
movlw a'i'
call verıyaz
movlw a'r'
call verıyaz
movlw a'c'
call verıyaz
movlw a'i'
call verıyaz
movlw a'h'
call verıyaz
movlw a'a'
call verıyaz
movlw a's'
call verıyaz
movlw a'a'
call verıyaz
movlw a'n'
call verıyaz
movlw a'<'
call verıyaz
movlw a' '
call verıyaz
return
lcd_ceptel
movlw a' '
call verıyaz
movlw a' '
call verıyaz
movlw a'h'
call verıyaz
movlw a'a'
call verıyaz
movlw a'l'
call verıyaz
movlw a'h'
call verıyaz
movlw a'a'
call verıyaz
movlw a'l'
call verıyaz
movlw a' '
call verıyaz
movlw a'k'
call verıyaz
movlw a'o'
call verıyaz
movlw a'n'
call verıyaz
movlw a'y'
call verıyaz
movlw a'a'
call verıyaz
movlw a' '
call verıyaz
movlw a' '
call verıyaz
return
bekle
movlw .100
movwf sayac3
don11
movlw .255
movwf sayac4
don22
decfsz sayac4,f
goto don22
decfsz sayac3,f
goto don11
return
;************************
end
