إخواني الأعزاء
السلام عليكم ورحمة الله وبركاته وبعد
أنا مبتدئ في تعلم ال pic
وأثناء قراءتي لأحد الكتب في هذا الموضوع ومحاولة تطبيق أحد المشاريع البسيطة
والمشروع هو دائرة فليشر واجهتني مشكلة وهي أنا الكود المكتوب في البرنامج يراعي وجود
مذبذب من النوع LP 32khz
وأنا ليس متوافر لدي غير
XT
4 MHZ
والسؤال هو كيفية تحويل الكود هذا
TMR0 EQU 1 ;means TMR0 is file 1.
STATUS EQU 3 ;means STATUS is file 3.
PORTA EQU 5 ;means PORTA is file 5.
PORTB EQU 6 ;means PORTB is file 6.
TRISA EQU 85H ;TRISA (the PORTA I/O selection) is file 85H
TRISB EQU 86H ;TRISB (the PORTB I/O selection) is file 86H
OPTION_R EQU 81H ;the OPTION register is file 81H
ZEROBIT EQU 2 ;means ZEROBIT is bit 2.
COUNT EQU 0CH ; COUNT is file 0C, a register to count events.
;************************************************* ********
LIST P=16F84 ;we are using the 16F84.
ORG 0 ;the start address in memory is 0
GOTO START ;goto start!
;************************************************* *****************
; Configuration Bits
__CONFIG H’3FF0’ ;selects LP oscillator, WDT off, PUT on,
;Code Protection disabled.
;************************************************* ****
;SUBROUTINE SECTION.
; 1 second delay.
DELAY1 CLRF TMR0 ;START TMR0.
LOOPA MOVF TMR0,W ;READ TMR0 INTO W.
SUBLW .32 ;TIME - 32
BTFSS STATUS,
ZEROBIT ; Check TIME-W=0
GOTO LOOPA ;Time is not=32.
RETLW 0 ;Time is 32, return.
; 0.5 second delay.
Programming the 16F84 microcontroller
17
DELAYP5 CLRF TMR0 ;START TMR0.
LOOPB MOVF TMR0,W ;READ TMR0 INTO W.
SUBLW .16 ;TIME - 16
BTFSS STATUS,
ZEROBIT ; Check TIME-W=0
GOTO LOOPB ;Time is not=16.
RETLW 0 ;Time is 16, return.
;************************************************* ********
;CONFIGURATION SECTION.
START BSF STATUS,5 ;Turns to Bank1.
MOVLW B’00011111’ ;5bits of PORTA are I/P
MOVWF TRISA
MOVLW B’00000000’
MOVWF TRISB ;PORTB is OUTPUT
MOVLW B’00000111’ ;Prescaler is /256
MOVWF OPTION_R ;TIMER is 1/32 secs.
BCF STATUS,5 ;Return to Bank0.
CLRF PORTA ;Clears PortA.
CLRF PORTB ;Clears PortB.
;************************************************* ********
;Program starts now.
BEGIN BSF PORTB,0 ;Turn ON B0.
CALL DELAYP5 ;Wait 0.5 seconds
BCF PORTB,0 ;Turn OFF B0.
CALL DELAYP5 ;Wait 0.5 seconds
GOTO BEGIN ;Repeat
END ;YOU MUST END!!
طبعا الكود به شرح
علما بأن الدائرة هي كما بالشكل
[IMG]http://www.*********.com/files/78730861/66.jpg[/IMG]
http://www.*********.com/files/78730861/66.jpg
أرجو الإفادة مع شرح كيفية تعديل الكود إذا كنت أستخدم كريستال أربعة ميجا هيرتز أو رقم آخر أقصد كيفية حسابها
وآسف على الإطالة
وجزاكم الله كل خير
crystal 4mhz
