↑ ↓

farklı bir kayan yazı

Başlatan igudenler, 15 Ağustos 2006, 00:03:38

Yazdır
Aşağı git
Kullanıcı Eylemleri

igudenler

15 Ağustos 2006, 00:03:38
arkadaşlar biraz uğraştım ve 3 tuş yardımı ile programlanabilen bir kayan yazı uygulaması tasrladım.
ayrıca bu uygulamada benim nette veya başka biyerde  görmediğim bir programlama mantığı kullandım..
yazıyı değiştirmek için set tuşuna uzun süre basmalısınız karşınıza eeprom sil yazısı çıkacak up a basarsanız siler downa basarsanız silmeden geri döner
up a bastıktan sonra  karakterleri teker teker girebilirsiniz
up down tuşları ile istediğiniz karakterin üzerine geldikten sonra
up a basarsanız karakteri eeproma kaydeder ve bir sonraki karakteri seçmeye gidersiniz
set e basarsanız karakteri kaydeder ve kayıt işlemini bitirirsiniz
down a basınca karakter kaydedilmez

asm yide veriyorum ki yeni olanlara yardımda bulunsun
ayrıca uzmanların yorumlarınıda sabırsızlıkla bekliyorum.

işte link

http://rapidshare.de/files/29409751/kayan_yazi.rar.html
10 çeşit insan vardır  binary saymayı bilenler  ve bilmeyenler...

stlg

#1
15 Ağustos 2006, 09:59:49
Sevgili kardeşim

Çizdigin şemada 12v var  :oops: aman dikkat once bu 5v yapılmalı sonrada picin cıkıslarınıda 74154 cıkıslarınıda bir surucu uzerinden ledlere baglasan daha iyi olurdu bu kadar entegre yerine sana 74hc595 entegresini oneriyorum tabi dotmatris ledlerin buyukse cıkıslarına yine surucu entegreleri uln2003 vs ve transistorler kullanmanı tavsiye ediyorum birde bu dosyanın icinde hex ve asm kodları yok kolay gelsin
ALLAHA EMANET OLUNUZ Hoştur bana senden gelen,  Ya gonca gül yahut diken,  Ya kaftandır yahut kefen,  Kereminde hoş lütfunda hoş.

igudenler

#2
15 Ağustos 2006, 14:42:31
arkadaşlar önerileriniz için teşekkur ediyorum
gerçekten 12 voltu değiştirmeyi unutmuşum.
fakat devreyi kuracak olsam tabiki orayı bir 7805 çıkışına bağlardım
yani şuan için devreyi kurma gibi bir niyetim yok
benim asıl amacım farklı bir programlama (kendim buldum) mantığı ile bir kayan yazı uygulaması gerçekleştirmekti.
devre de herhangibir latch bulunmamasının sebebi ise proteustaki dotmatris displaylerin gerçek diplaylerden oldukça farklı olması
bunlar bizim bildiğimizgibi kısa sürelerde yüksek akım çekerek değilde sadece uçlarındaki lojik seviye değişikliklerine göre çalışıyorlar
yani devreyi kurmak isteyen arkadaşlar program içindeki yaz altprogramını kullandıkları displayin yapısına göre değiştirmeliler
bu işlem kolayca yapılabileceği gibi yardım isteyen arkadaşlara forum yoluyla yardım edebilirim

ayrıca verdiğim linki şimdi denedim.
asm ve hex dosyaları kayan_yazı klasörünün içinde design file ise buradaki proteus klasöründe bulunmaktadır.
iyi çalışmalar... ;)
10 çeşit insan vardır  binary saymayı bilenler  ve bilmeyenler...

ground

#3
15 Ağustos 2006, 14:52:48
Alıntı yapılan: "igudenler"bu işlem kolayca yapılabileceği gibi yardım isteyen arkadaşlar için email-msn igudenler@hotmail.com

Kişisel yardım yok burda..

Nedir bu son zamanlarda artan kayan yazı mevzuları yaw.
⌒╮'╭⌒╮⌒╮.
╱◥██◣                  
| 田︱田田|              
╬╬╬╬╬╬╬╬╬

Picproje - Sözde değil özde paylaşım..

teknikelektronikci

#4
15 Ağustos 2006, 22:17:00
@igudenler
anlatigina göre özelikleri hosuma giti eline saglik bu isiste calisiyormu ben calistiramadim birde bende ayni yöntemle yani 74154 entegresiyle kayan yazi mantigini anlamaya ve ögrenmeye calisiyorum yani su an amatörüm benim merak etigim  enable larda niye not kullnadin cevabin icin simdiden sagol
Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!

Ufocu

#5
15 Ağustos 2006, 23:20:30
igudenler arkadaşım bu devreyi jpg formatında siteye  koysaydın daha iyi olurdu. Proteusta versiyon sorunu çıkıyor. Bende devre şeması görünmüyor. Bu nedenle bakamadım bilgine... :!:
"Benim manevi mirasım ilim ve akıldır." M. K. ATATÜRK

stlg

#6
16 Ağustos 2006, 10:43:41
Sevgili igudenler

Kardeş kusura bakma ben dosyaları gormemişim  :(  Hayırlı calışmalar dilegiyle
ALLAHA EMANET OLUNUZ Hoştur bana senden gelen,  Ya gonca gül yahut diken,  Ya kaftandır yahut kefen,  Kereminde hoş lütfunda hoş.

igudenler

#7
16 Ağustos 2006, 14:41:55
arkadaşlar öncelikle ilginiz için teşekkürler

şemayı enkısa zamanda jpeg formatında koyacağım

kullandığım o not kapılarına gelince

devrede görüldüğü gibi 4x16 decoder kullanılmıştır fakat bizim displayimiz 45 satırdan oluştuğu için her sutunu teker teker seçmemiz gerektiğinden bu 4x 16 lar not kapılarıyla bağlanarak 6x48 decoder elde edimiştir
bu yöntemle bir adet daha 4x16 decoder eklenerek 6x64 decoder elde edilebilir

kolay gelsin

unutmadan tekrar söyleyeyim devreyi kurmak isteyen arkadaşlar "yaz"
altprogramını değiştirmeliler
10 çeşit insan vardır  binary saymayı bilenler  ve bilmeyenler...

teknikelektronikci

#8
16 Ağustos 2006, 23:06:48
cevap icin sagolun vala hocam bu 74154 de amac enable leri aktif edip o entegredeki sütünlari secmek sonra bir sonrakini aktif edip ordaki sütünleri secmek öle değilmi bunlarda milisaniye icinde oldugu icin gözle görülmüyor öle değilmi ben öle anladim ve iki enable i birlestitip sirasiyla eciorum entegreleri saygilar
Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!

recebcolak

#9
17 Ağustos 2006, 14:13:07
SELAM
usta yaptın bir iyilik 876 ya uyarlarmısın rica ediyorum.
mclr ve krıstal uçlarınıda normal hale getirmem mümkünmü.
ben bu şekil bredboarta çalıştıramadım.
ben herkesi sevdim bilmiyorum sevildimmi?

sagamen

#10
09 Aralık 2006, 21:12:12
sevgili igudenler yaptıgın calısma cok guzel  devreyi kurdum  ortak katot 5x7 dotmatrx'le karakterleride yeniden olusturdum ama asm yi cok iyi bilemediğim gibi yaz komutunu degistiremedım bu konuda bana yardımcı olurmusun  
YAZ
   MOVWF   PORTB
   MOVF   SAY,   W
   MOVWF   PORTA
   NOP
   MOVLW   d'47'
   MOVWF   PORTA
   CALL   BEKLE
   INCF   SAY
   RETURN



ilgine şimdiden teşekkürler
herkEse kolay gelsin

sagamen

#11
10 Aralık 2006, 21:42:22
programda karakter değisikliği
ve yaz alt komutunu nasıl degıstırebilirim
LIST P=16F628A
	INCLUDE	"P16F628A.INC"
	__CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _BODEN_OFF & _LVP_OFF & _DATA_CP_OFF & _CP_OFF
SAY	EQU	h'20'
CTRL	EQU	h'21'
ADRES	EQU	h'22'
KRK	EQU	h'24'
SAY1	EQU	h'25'
SAY2	EQU	h'26'
G	EQU	h'27'
ADR	EQU	h'28'
CHAR	EQU	h'29'
S0	EQU	h'2A'
S1	EQU	h'2B'
S2	EQU	h'2C'
	ORG	H'000'
	BANKSEL	TRISA
	MOVLW	b'11000000'
	MOVWF	TRISA
	MOVLW	b'10000000'
	MOVWF	TRISB
	BANKSEL	PORTA
	MOVLW	d'47'
	MOVWF	PORTA
	CLRF	PORTB
	CLRF	SAY
	CLRF	ADRES
	CLRF	CTRL
	CLRF	KRK
	CLRF	SAY1
	CLRF	SAY2
	CLRF	ADR
	CLRF	CHAR
	CALL	KRK_HESAP
	MOVLW	h'00'
	SUBWF	KRK,	W
	BTFSC	STATUS,	2
	CALL	KAYIT
;================================================================
BASLA
	BTFSS	PORTB,	7
	CALL	KAYIT
	CALL	GOSTER
	CALL	KESME
	GOTO	BASLA
;=================================================================
KESME
	BCF	PIR1,	1	;TMR2 sayıcısını sonraki kesmelere hazırla
	INCF	SAY1		
	MOVLW	D'250'
	SUBWF	SAY1,	W	;10 ms de bir kesme üretmiştik
	BTFSS	STATUS,	2
	GOTO	ATLA
	INCF	CTRL
	CLRF	SAY1
	MOVF	KRK,	W
	SUBWF	CTRL,	W
	BTFSC	STATUS,	0
	CLRF	CTRL
ATLA
	RETURN			;kesme sonu
;======================================================
GOSTER
	CLRF	SAY
	CLRF	SAY2
DON
	MOVF	CTRL,	W
	ADDWF	SAY2,	W
	MOVWF	ADRES
	MOVF	KRK,	W
	SUBWF	ADRES,	W
	BTFSC	STATUS,	0
	GOTO	ISLEM
DEVAM
	CALL	EEOKU
	CALL	AC
	INCF	SAY2
	MOVLW	d'42'
	SUBWF	SAY,	W
	BTFSS	STATUS,	0
	GOTO	DON
	GOTO	BITIR
ISLEM
	MOVWF	ADRES
	GOTO	DEVAM
BITIR
	RETURN
;=======================================================================	
EEOKU
	MOVF	ADRES,	W
	BANKSEL	EEADR
	MOVWF	EEADR
	BSF	EECON1,	RD
	MOVF	EEDATA,	W
	BANKSEL	PORTA
	RETURN
;========================================================================
EEYAZ
	MOVF	ADR,	W
	BANKSEL	EEADR
	MOVWF	EEADR
	BANKSEL	PORTB
	MOVF	CHAR,	W
	BANKSEL	EEDATA
	MOVWF	EEDATA
	BSF	EECON1,	WREN
	BANKSEL	PIR1
	BCF	PIR1,	EEIF
	BANKSEL	EECON1
	MOVLW	h'55'
	MOVWF	EECON2
	MOVLW	h'AA'
	MOVWF	EECON2
	BSF	EECON1,	WR
	BANKSEL	PIR1
TEST
	BTFSS	PIR1,	EEIF
	GOTO	TEST
	BANKSEL	EECON1
	BCF	EECON1,	WREN
	BCF	EECON1,	3
	BANKSEL	PORTB
	RETURN
;=====================================================
EESIL
	CLRF	ADR
	MOVLW	h'FF'
	MOVWF	CHAR
YAZZ
	CALL	EEYAZ
	INCF	ADR
	MOVLW	d'128'
	SUBWF	ADR,	W
	BTFSS	STATUS,	2
	GOTO	YAZZ
	RETURN	
;=====================================================
BEKLE
	MOVLW	d'5'
	MOVWF	G
DON1
	DECFSZ	G
	GOTO	DON1;DON1  OLACAK
	RETURN
;=============================================================================
YAZ
	MOVWF	PORTA
	MOVF	SAY,	W
	MOVWF	PORTB
	NOP
	MOVLW	d'10'
	MOVWF	PORTA
	CALL	BEKLE
	INCF	SAY
	RETURN
;=====================================================================================

AC
	ADDWF	PCL,	F
	GOTO	A
	GOTO	B_
	GOTO	C
	GOTO	D
	GOTO	E
	GOTO	F_
	GOTO	G
	GOTO	H
	GOTO	I
	GOTO	J
	GOTO	K
	GOTO	L
	GOTO	M
	GOTO	N
	GOTO	O
	GOTO	P
	GOTO	Q
	GOTO	R
	GOTO	S
	GOTO	T
	GOTO	U
	GOTO	V
	GOTO	W
	GOTO	X
	GOTO	Y
	GOTO	Z
	GOTO	SP
	GOTO	AY
	GOTO	YIL
;---------------------------------------------------------------------	
A
	MOVLW	b'0111111'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'0111111'
	CALL	YAZ
	RETURN
;------------------------------------------------------------------------------------------------
B_
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
    MOVLW 	b'0110110'
	CALL	YAZ
	RETURN
;-----------------------------------------------------------------------------------------------
C_
	MOVLW	b'0111110'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'0100010'
	CALL	YAZ
	RETURN
;----------------------------------------------------------------------------------------------------
D
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'0100010'
	CALL	YAZ
    MOVLW	b'0011100'
	CALL	YAZ
	RETURN
;------------------------------------------------------------------------------------------------------
E
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
    MOVLW	b'1000001'
	CALL	YAZ
	RETURN
F_
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'1000000'
	CALL	YAZ
    MOVLW	b'1000000'
	CALL	YAZ
	RETURN
G_
	MOVLW	b'0111110'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'0101110'
	CALL	YAZ
	RETURN
H
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'0001000'
	CALL	YAZ
	MOVLW	b'0001000'
	CALL	YAZ
	MOVLW	b'0001000'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	RETURN
I
	MOVLW	b'0000000'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'0000000'
	CALL	YAZ
	RETURN
J
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1111110'
	CALL	YAZ
	MOVLW	b'1000000'
	CALL	YAZ
	MOVLW	b'0000000'
	CALL	YAZ
	RETURN
K
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'0001000'
	CALL	YAZ
	MOVLW	b'0010100'
	CALL	YAZ
	MOVLW	b'0100010'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	RETURN
L
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	RETURN
M
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'0100000'
	CALL	YAZ
	MOVLW	b'0011000'
	CALL	YAZ
	MOVLW	b'0100000'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	RETURN
N
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'0100000'
	CALL	YAZ
	MOVLW	b'0010000'
	CALL	YAZ
	MOVLW	b'0001000'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	RETURN
O
	MOVLW	b'0111110'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'0111110'
	CALL	YAZ
	RETURN
P
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'0110000'
	CALL	YAZ
	RETURN
Q
	MOVLW	b'0111110'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1000001'
	CALL	YAZ
	MOVLW	b'1000011'
	CALL	YAZ
	MOVLW	b'0111111'
	CALL	YAZ
	RETURN
R
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1001000'
	CALL	YAZ
	MOVLW	b'1001100'
	CALL	YAZ
	MOVLW	b'1001010'
	CALL	YAZ
	MOVLW	b'0110001'
	CALL	YAZ
	RETURN
S
	MOVLW	b'0110010'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'0100110'
	CALL	YAZ
	RETURN
T
	MOVLW	b'1000000'
	CALL	YAZ
	MOVLW	b'1000000'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1000000'
	CALL	YAZ
	MOVLW	b'1000000'
	CALL	YAZ
	RETURN
U
	MOVLW	b'1111110'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'1111110'
	CALL	YAZ
	RETURN
V
	MOVLW	b'1111100'
	CALL	YAZ
	MOVLW	b'0000010'
	CALL	YAZ
	MOVLW	b'0000001'
	CALL	YAZ
	MOVLW	b'0000010'
	CALL	YAZ
	MOVLW	b'1111100'
	CALL	YAZ
	RETURN
W_
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'0000010'
	CALL	YAZ
	MOVLW	b'0001100'
	CALL	YAZ
	MOVLW	b'0000010'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	RETURN
X
	MOVLW	b'1100011'
	CALL	YAZ
	MOVLW	b'0010100'
	CALL	YAZ
	MOVLW	b'0001000'
	CALL	YAZ
	MOVLW	b'0010100'
	CALL	YAZ
	MOVLW	b'1100011'
	CALL	YAZ
	RETURN
Y
	MOVLW	b'1000000'
	CALL	YAZ
	MOVLW	b'0100000'
	CALL	YAZ
	MOVLW	b'0011111'
	CALL	YAZ
	MOVLW	b'0100000'
	CALL	YAZ
	MOVLW	b'1000000'
	CALL	YAZ
	RETURN
Z_
	MOVLW	b'1000011'
	CALL	YAZ
	MOVLW	b'1000101'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'1010001'
	CALL	YAZ
	MOVLW	b'1100001'
	CALL	YAZ
	RETURN
SP
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	RETURN
AY
	MOVLW	b'0111110'
	CALL	YAZ
	MOVLW	b'1110111'
	CALL	YAZ
	MOVLW	b'1100011'
	CALL	YAZ
	MOVLW	b'1100011'
	CALL	YAZ
	MOVLW	b'0110110'
	CALL	YAZ
	RETURN
YIL

	MOVLW	b'1001001'
	CALL	YAZ
	MOVLW	b'0101010'
	CALL	YAZ
	MOVLW	b'0011100'
	CALL	YAZ
	MOVLW	b'1111111'
	CALL	YAZ
	MOVLW	b'0011100'
	CALL	YAZ
	MOVLW	b'0101010'
	CALL	YAZ
	MOVLW	b'1001001'
	CALL	YAZ
	RETURN
;===================================================================================
KRK_HESAP
	CLRF	ADRES
	CLRF	KRK
D1
	CALL	EEOKU
	SUBLW	h'FF'
	BTFSC	STATUS,	2
	GOTO	FINISH
	INCF	KRK
	INCF	ADRES
	GOTO	D1
FINISH
	RETURN
;==========================================================================	
GECIK
	MOVLW	d'10'
	MOVWF	S0
K1
	MOVLW	H'FF'
	MOVWF	S1
K2
	MOVF	CHAR,	W
	CALL	AC
	CLRF	SAY
	DECFSZ	S1
	GOTO	K2
	DECFSZ	S0
	GOTO	K1
	RETURN
;===========================================================================
GECIK1
	MOVLW	H'06'
	MOVWF	S0
K01
	MOVLW	H'FF'
	MOVWF	S1
K02
	MOVLW	H'FF'
	MOVWF	S2
K03
	DECFSZ	S2
	GOTO	K03
	DECFSZ	S1
	GOTO	K02
	DECFSZ	S0
	GOTO	K01
	RETURN
;===========================================================
KAYIT	
	MOVLW	h'00'
	SUBWF	KRK,	W
	BTFSC	STATUS,	2
	GOTO	START
	CALL	GECIK1
	BTFSC	PORTB,	7
	RETURN
	CLRF	CHAR
	CLRF	ADR
OK
	MOVLW	d'04'
	CALL	AC
	MOVLW	d'04'
	CALL	AC
	MOVLW	d'15'
	CALL	AC
	MOVLW	d'17'
	CALL	AC
	MOVLW	d'14'
	CALL	AC
	MOVLW	d'12'
	CALL	AC
	MOVLW	d'26'
	CALL	AC
	MOVLW	d'18'
	CALL	AC
	MOVLW	d'8'
	CALL	AC
	MOVLW	d'11'
	CALL	AC
	CLRF	SAY
	BTFSS	PORTA,	7
	RETURN
	BTFSC	PORTA,	6
	GOTO	OK
	CALL	GECIK
	CALL	EESIL
	CLRF	CHAR
	CLRF	ADR
START
	MOVF	CHAR,	W
	CALL	AC
	CLRF	SAY
	BTFSS	PORTA,	6
	GOTO	ART
	BTFSS	PORTA,	7
	GOTO	AZL
	BTFSS	PORTB,	7
	GOTO	KAYDET
	GOTO	START
ART
	INCF	CHAR
	MOVLW	d'29'
	SUBWF	CHAR,	W
	BTFSC	STATUS,	2
	CLRF	CHAR
	CALL	GECIK
	GOTO	START
AZL

	DECF	CHAR
	MOVLW	h'FF'
	SUBWF	CHAR,	W
	BTFSS	STATUS,	2
	GOTO	BIT
	MOVLW	d'28'
	MOVWF	CHAR
	CALL	GECIK
	GOTO	START
BIT
	CALL	GECIK
	GOTO	START
KAYDET	
	CALL	GECIK
YAZMA
	MOVF	CHAR,	W
	CALL	AC
	MOVLW	b'11110111'
	CALL	YAZ
	MOVLW	b'11110111'
	CALL	YAZ
	MOVLW	b'11100011'
	CALL	YAZ
	MOVLW	b'11110111'
	CALL	YAZ
	CLRF	SAY
	BTFSS	PORTA,	6
	GOTO	CONT1
	BTFSS	PORTA,	7
	GOTO	CONT2
	BTFSS	PORTB,	7
	GOTO	STOP
	GOTO	YAZMA
CONT1
	CALL	GECIK
	CALL	EEYAZ
	INCF	ADR
	GOTO	START
CONT2
	CALL	GECIK
	GOTO	START
STOP
	CALL	GECIK
	CALL	EEYAZ
	INCF	ADR
	MOVLW	d'26'
	MOVWF	CHAR
	CALL	EEYAZ
	INCF	ADR
	CALL	EEYAZ
	INCF	ADR
	CALL	EEYAZ
	INCF	ADR
	CALL	EEYAZ
	INCF	ADR
	CALL	EEYAZ
	INCF	ADR
	CALL	EEYAZ
	INCF	ADR
	CALL	EEYAZ
	INCF	ADR
	CALL	EEYAZ
	INCF	ADR
	CALL	KRK_HESAP
	CLRF	ADRES
	CLRF	CTRL
	CLRF	SAY1
	RETURN
;=======================================================================


END


code tag kullanmayı lütfen unutmayın!
herkEse kolay gelsin
Yazdır
Yukarı git
Kullanıcı Eylemleri
▲