ASSEMBLY kodları ile PIC çalışmaları

[alisumer]

            Movlw 4
            Movwf pırpır_etsin
Mavi
            Bsf PORTA,1
	movlw	0x81
            Call Pauseus
            Bcf PORTA ,1
	movlw	0x81
            Call Pauseus
            Decfsz pırpır_etsin,f
            Goto Mavi
            Movlw 4
            Movwf pırpır_etsin
	movlw	0x255
	call	pauseus
           
Kırmızı
            Bsf PORTA ,0
	movlw	0x81
            Call Pauseus
            Bcf PORTA ,0
	movlw	0x81
            Call Pauseus
            Decfsz pırpır_etsin,f
            Goto Kırmızı
            Movlw 4
            Movwf pırpır_etsin
	movlw	0x255
	call	pauseus
            Goto Mavi
;-----------------------------------------------
 
Pauseus     	; yaklaşık 10 msec. delay
			
			movwf SAYAC1
Dongu1
			movlw h'81'	;Decimal 129
			movwf SAYAC2
Dongu2 
			decfsz SAYAC2,F 
			goto Dongu2 
			decfsz SAYAC1,F
			goto Dongu1 
			return
                  end

şöyle de olabilir  mavi kırmızı geçiş arasınındaki beklemeyi de ayarlamış olursunuz