assemblyde sayının karesini alma programı(yardım)

[nanit]

arkadaşlar yazdıgım programda hata var bn çözemedim sizde bir bakın portadan girdigim verinin portbde karesi gözükmesi lazım

LIST P=16F84
INCLUDE "P16F84.INC"
SAYAC EQU H'0C'
BELLEK EQU H'0D'
BSF STATUS,5
CLRF TRISB
BCF STATUS,5
CLRF PORTB
MOVF PORTA,W
MOVWF SAYAC
BASLA
MOVF PORTA,W
ADDLW BELLEK
DECFSZ SAYAC
GOTO BASLA
MOVWF PORTB
DONGU 
GOTO DONGU
END

 

[nanit]

yokmu arkadaşlar assemblyden anlayan

 

[oskaya]

Uzun suredir Picprogramlamadım ama, sanki ProgrAM Basla dongusunden cıkamıyor gibi...

 

[Sage]

MCS-51'e aşinayım, ama onu bile kullanmayalı epey uzun süre oldu. Sorunun algoritmadan kaynaklanmıyor gibi ancak eğer düzgün bir şematik ya da pseudocode yapmadıysan yapmanı ve kodu bir daha yazmanı öneririm.

Zaten çarpma fonksiyonu da vardır herhalde, pek zor olacağını sanmıyorum.

 

[necmine]

DONGU
GOTO DONGU

Yukarıdaki iki satır sonsuz döngü oluşturuyor gibi duruyor. Yoksa benim bilmediğim bişey mi :S