Pic ile zamanlama sorunu

[central-unit]

Arkadaşlar örnekse bir led i 1saat çalıştırıp 1 saat durdurmak istiyorum ancak
bunu delayms gibi komutlarla yapınca çok yer kaplıyor nasıl bir program yazabilirim yardımcı olursanız sevinirim..

 

[KONDANS]

dostum iç içe 3 tane döngü yapıcaksın en dıştaki sayacın senin içteki iki sayacı nekadar döndüreceni belirler böylece istedin zamanı ayarlarsın 10 satırlık programla

 

[dgtlygtabi]

Elimde hazır var yaklaşık 59 dk falan oluyor , biraz uzun sanıyorum ama paylaşayım dedim

lıst p=16f628a
ınclude "p16f628a.ınc"
sayac1 equ h'20'
sayac2 equ h'21'
sayac3 equ h'22'
sayac4 equ h'23'
banksel trısa
clrf trısb
banksel portb
clrf porb
basla
bsf portb,0
call gecıkme
clrf portb
call gecıkme
goto basla
gecıkme
movlw h'ff'
movwf sayac1
dongu1
movlw h'ff'
movwf sayac2
dongu2
movlw h'ff'
movwf sayac3
dongu3
movlw d'72'
movwf sayac4
dongu4
decfsz sayac4,f
goto dongu4
decfsz sayac3,f
goto dongu3
decfsz sayac2,f
goto dongu2
decfsz sayac1,f
goto dongu1
return
end

 

[central-unit]

ilginize teşekkürler arkadaşlar...

 

[tyildizak]

; Frekans = 4 MHz

	cblock
	d1
	d2
	d3
	d4
	endc
			;3599999998 cycles
	movlw	0xFF
	movwf	d1
	movlw	0x84
	movwf	d2
	movlw	0xD8
	movwf	d3
	movlw	0x18
	movwf	d4
Delay_0
	decfsz	d1, f
	goto	$+2
	decfsz	d2, f
	goto	$+2
	decfsz	d3, f
	goto	$+2
	decfsz	d4, f
	goto	Delay_0
			;2 cycles
	goto	$+1