16F628 İÇİN YAZILMIŞ ÖRNEK PROGRAM ARANIYOR. YARDIM!!!

[ismailnakir]

BİR ARKADAŞIN TAVSİYESİ ÜZERİNE 16F628 Lİ BİR DEVRE YAPTIM VE ŞİMDİ YAZDIĞIM EN BASİT İŞLEMİ BİLE YAPAMIYORUM. HERHALDE İÇ OSİLATÖRÜ BİR TÜRLÜ ÇALIŞTIRAMIYORUM. HASILI 16F628 İÇİN YAZILMIŞ ÖRNEK PROGRAM ARIYORUM. YARDIM EDERSENİZ ÇOK SEVİNİRİM.

[teknikelektronikci]

yazmış olduğun dil ne bilmiom ama asm dede basicdede yazabilirsin aşağıdaki kodu . yazmış olduğun programın başına eklicen ic-prog da sigorta ayarlarındanda yapabilirsin ama böyle garanti iş



kod:

@ DEVICE pic16F628
@ DEVICE pic16F628, WDT_on
@ DEVICE pic16F628, PWRT_ON
@ DEVICE pic16F628, PROTECT_OFF
@ DEVICE pic16F628, MCLR_OFF 'mclr inaktif'
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT 'dahili osilatör

[profahmet]

bu asm yazılımı işini görür . configirasyonu ayarlamak için datashetindeki CONFIGURATION WORD tablosuna bak

   LIST P=16F628      
             include "P16F628.INC"
   __CONFIG B'11110100001010'
LSB    EQU    H'20'
MSB    EQU    H'21'
;**************
   ORG    0X00
   GOTO    BASLA
;*******************
BEKLE
   MOVLW .45
   MOVWF LSB
DON1
   MOVLW .95
   MOVWF MSB
DON2   
   DECFSZ  MSB,F
   GOTO DON2
   DECFSZ  LSB,F
   GOTO DON1
   RETURN
;****************

BASLA
   CLRF    MSB
   CLRF    LSB
   MOVLW   B'00000111'
   MOVWF   CMCON
   BSF    STATUS,5
   MOVLW     B'111111'
   MOVWF    TRISA^80H   
   CLRF    TRISB^80H
   BCF    STATUS,5   
   CLRF    PORTB
;********************************************   
TEST
   BTFSS PORTA,0
   GOTO    SAG
   BTFSS PORTA,1
   GOTO   SOL
   GOTO   TEST

SOL   
   BTFSS PORTA,2
   GOTO    TEST
   
   MOVLW B'11000110'
   MOVWF PORTB
   CALL BEKLE

   MOVLW B'01000011'
   MOVWF PORTB
   CALL BEKLE

   MOVLW B'01001001'
   MOVWF PORTB
   CALL BEKLE

   MOVLW B'11001100'
   MOVWF PORTB
   CALL BEKLE
   CLRF    PORTB
   BTFSS PORTA,0
   GOTO      SAG
   GOTO      SOL
;*******************************
SAG
   BTFSS PORTA,2
   GOTO    TEST
   
   MOVLW B'00110011'
   MOVWF PORTB
   CALL BEKLE
   
   MOVLW B'00100110'
   MOVWF PORTB
   CALL BEKLE

   MOVLW B'00101100'
   MOVWF PORTB
   CALL BEKLE

   MOVLW B'00111001'
   MOVWF PORTB
   CALL BEKLE
   CLRF    PORTB
   BTFSS PORTA,1
   GOTO    SOL
   GOTO    SAG

   END

[ismailnakir]

GÖNDERDİKLERİNİZLE BİR ŞEYLER YAPMAYA ÇALIŞTIM AMA HENÜZ BİR YANIT ALAMADIM; İSTERSENİZ BİRAZ DA SİZ BAKIN
LIST P=16F628
   
                  include "P16F628.INC"    
   __config (_CP_OFF & _BODEN_ON & _LVP_OFF & _DATA_CP_OFF & _WDT_OFF & _MCLRE_OFF & _INTRC_OSC_NOCLKOUT)
   ORG   h'00'
ILKDEG   
   CLRF   PORTB
   CLRF   PORTA
   MOVLW    b'00000111'
   MOVWF   CMCON
   BCF   STATUS,RP1    
    BSF      STATUS,RP0    
     MOVLW   h'00'
   MOVWF   TRISA
   MOVLW   b'11111000'
   MOVWF   TRISB         
     BCF   STATUS,RP0  
BASLA
   BSF           PORTA,1
               GOTO        BASLA
               END