Assembly Yardım

[POWER]

Değerli Arkadaşlar,
aşağıdaki programcıkla porta nın 1. bitine bağlı butona basıldığında gecikmeli olarak portb nin 7. bitindeki ledi yakan ve söndüren bir proğram.Benim yapmaya çalıştığım hem porta nın 1. bitine bağlı butona basınca portb nin 7 bitindeki led gecikmeli yanıp sönmesi hemde porta nın 2.bitine bağlı butona basılınca gecikmeli olarak portb nin 6. bitindeki led'in  yanıp sönmesi.Bir türlü bu işin mantığını kuramadım.Yardımcı olursanız sevinirim.Şimdiden teşekkürler.KOLAY GELSİN.  
NOT:Önceki mesajda bir takım bozulmalar olduğu için yeniden yazdım.
porta nın 1. bitine bağlı butona basıldığında gecikmeli olarak portb nin 7. bitindeki ledi yakan ve söndüren proğramcık aşağıda;

; Hazırlayan Salih Dinçer (t) 29.7.2004

; AYARLAR
	LIST    p=16F84A 
	#include "P16F84A.INC"
	RADIX HEX 
__CONFIG _CP_OFF&_WDT_OFF&_PWRTE_ON&_RC_OSC 

xBEKLE1	EQU	0x0C
xBEKLE2	EQU	0x0D
	ORG	0x00

BSF	STATUS, RP0	; Ayar bölgesine geç
MOVLW	b'00000001'	; PORTB'yi devre göre
MOVWF	PORTB		; Ayarla...
BCF	STATUS, RP0	; Geçit bölgesine geç
BCF	PORTB, 7	                ; PORTB'deki LED'i kapa
MOVLW	.200		; Gecikme değeri

; ANA PROGRAM
BASLA	; ANA DÖNGÜ
YAN	BTFSC	PORTA,1    ; Düğmeye basıldı mı?
	GOTO	YAN	; Hayırsa üst satırdan devam et...
	CALL	BEKLE	; Bir süre bekle,
	BSF	PORTB,7	; Evetse PORTB'deki LED'i aç.
	CALL	DEVAM	; Düğme bırakıldıysa devam et...
SON	BTFSC	PORTA,1	; Düğmeye bırakıldıktan sonra 
	GOTO	SON	; Hayırsa üst satırdan devam et...
	CALL	BEKLE	; Bir süre bekle,
	BCF	PORTB,7	; Evetse PORTB'deki LED'i kapa
	CALL	DEVAM
GOTO	BASLA

; ALT PROGRAMLAR
DEVAM	
                BTFSS	                PORTA,1	; Düğme bırakıldı mı?
	GOTO	DEVAM	; Hayırsa üst satırdan devam et...
	RETURN		; Evetse geri dön ve devam...

BEKLE	; BEKLEME
	MOVWF	xBEKLE1	; Hafızadaki değeri yükle...
BEKLE1	MOVLW	.255	; İkinci çarpanı
	MOVWF	xBEKLE2	; Yükle...
BEKLE2	DECFSZ	xBEKLE2,F ; Bir azalt, çarpan  sıfırlandı mı?
	GOTO	BEKLE2	; Değilse üst satırdan devam et...
	DECFSZ	xBEKLE1,F ; Bir azalt, çarpılan sıfırlandı mı?
	GOTO	BEKLE1	; Değilse üst satırdan devam et... 
	RETURN		; Bitince geri dön

END	                                ; Programı sonlandır...]

Yine bozulmalar oluyor,yazılım aşğıdaki link'te
http://groups.yahoo.com/group/PicProjeUP3/files/POWER]

[axanc]

kod tag'lerini kullan...

[POWER]

axanc hocam;

çok genel bir cevap vermişsiniz.Bu konuda çok yeni olduğum için işi çözemedim.Biraz daha ayrıntı verebilirmisin? KOLAY GELSİN

[axanc]

program kodlarını yazarken, msj yazdığın yerin hemen üstünde olan "Code" tuşuna basıp, programı öyle yaz sonra tekrar "Code" tuşuna bas... bu sayede yazdığın kodlar, doğru şekilde görünür bu sayede kodları daha rahat anlayarak bişiler söyleyebiliriz.. yoksa kodları copy-paste, düzelt sonra çözümle pek de rahat olmuyor...

önceki mesajlarında da sağ üst köşedeki butonla değişiklik yapabilirsin...