mikrdenetliyiciden anlayan elektronikçi panpalar

list p=pic16f84
2. include <p16f84.inc>
org 0x000
goto basla
basla:
clrf PORTB ;PORTB'yi sıfırla
bsf STATUS,RP0 ;Bank1'e geç
movlw 0x00
movwf TRISB ; PORTB çıkış ayarlandı
bcf STATUS,5 ;Bank0'a geç
movlw 0xff
movwf 0x20 ;gecikme için kullanılan register
kaydirma:
movlw 0x01
MOVWF PORTB ;PORTB=0b00000001
call delay ;gecikme programi cagirilir.
movlw 0x02
MOVWF PORTB ;PORTB=0b00000010
call delay
movlw 0x04
MOVWF PORTB ;PORTB=0b00000100
call delay
movlw 0x08
MOVWF PORTB ;PORTB=0b00001000
call delay
movlw 0x10
MOVWF PORTB ;PORTB=0b00010000
call delay
movlw 0x20
MOVWF PORTB ;PORTB=0b00100000
call delay
movlw 0x40
MOVWF PORTB ;PORTB=0b01000000
call delay
movlw 0x80
MOVWF PORTB ;PORTB=0b10000000
call delay
movlw 0x40
MOVWF PORTB ;PORTB=0b01000000
call delay
movlw 0x20
MOVWF PORTB ;PORTB=0b00100000
call delay
movlw 0x10
MOVWF PORTB ;PORTB=0b00010000
call delay
movlw 0x08
MOVWF PORTB ;PORTB=0b00001000
call delay
movlw 0x04
MOVWF PORTB ;PORTB=0b00000100
call delay
movlw 0x02
MOVWF PORTB ;PORTB=0b00000010
call delay
goto kaydirma
delay:
nop
nop
nop
decfsz 0x20
goto delay
return
end

2. sorunun cevabı panpa. şimdi yazdım ve test ettim proteusta. bir sıkıntı yok.