Microchip Taiwan - Re: 關於12F510.. 笨鴨有疑問請教??? [8-bit PIC® MCU]

:::

論壇索引

Board index » 產品技術問題 (開版時請註明使用的元件編號及C編譯器版本) » » 8-bit PIC® MCU » 關於12F510.. 笨鴨有疑問請教???

Browsing this Thread: 3 Anonymous Users

底部

前一個主題

下一個主題登入發表文章

duck288

Re: 關於12F510.. 笨鴨有疑問請教???

資深會員

Yes..... SIR .....
馬上去當露瞧瞧..... 3Q ...

發表於: 2006/5/11 0:16

Ryang

Re: 關於12F510.. 笨鴨有疑問請教???

版主

針對 MPASM (Microchip Assebbler) 有寫了一套 workshop 的教材，你可以到右邊的教育訓練下去下載 "MPASM 一天講義" 研究一下MPASM的用法這樣比較正確快速。

發表於: 2006/5/10 9:50

duck288

Re: 關於12F510.. 笨鴨有疑問請教???

資深會員

哈...哈.... 找到問題啦 !!!! 原來少了個 Under Score " _ " .
CONFIG 之前需要兩個 Under Score __ .
奇怪啦???? 誰龜定的呀???? 還真是龜龜耶!!!!!
害笨鴨偶,,, 又想白了頭髮,,, 死了不少細胞耶 !!!!

偶說憋, 碰到問題還是先放下來 ,
昨晚去泡美媚, ( 陪心情不好的朋友去有美媚的卡拉OK..)
今天就找到問題啦 ...黑皮... 黑皮... 真黑皮....

發表於: 2006/5/10 7:28

duck288

關於12F510.. 笨鴨有疑問請教???

資深會員

Dear All :
奇怪?? Build 會出如下問題,, 是甚麼問題呀???
以前的 12F508 , 16F505 格式都是這樣寫的呀 ?
這次更慘,,,, 一開始就被踢出局啦 !!!!!!
這些 PIC 還真會找我這麼個初學者,門外漢,的碴耶 ???


Warning[207] D:MY PROJECT12F510 ADC12F510 ADC.ASM 4 : Found label after column 1. (_CONFIG)

Error[122]   D:MY PROJECT12F510 ADC12F510 ADC.ASM 4 : Illegal opcode (_CP_OFF)



;PIC12F510                          A/D  TEST                                          04/21/2006

    #include    <p12F510.inc>                                                           ; processor specific variables

; Configure: Controls the reset pin, code protect, oscillator selection, WDT.

    _CONFIG _CP_OFF & _MCLRE_OFF & _IOSCFS_OFF & _WDT_OFF & _IntRC_OSC 

;-----[Defines & Variable Assignments]--------------------------------------- 

    cblock 0x08    ; GP2,GP3=INPUT , GP0,GP1,GP4GP5=OUTPUT. 

    count        ; count buffer

    count1        ; count buffer 

    count2        ; count buffer

    count3        ; For A/D RESULT.

    ADRESH        ; A/D register

    endc

;-----[Reset Vector]---------------------------------------------------------

    ORG     0x000        ; PIC goes here (Origin of code) after reset.

    movwf   OSCCAL        ; Load the oscillator calibration factor.

    movlw   b'10001111'         ; Disable wake on pin change, Enable pull-up.

    OPTION

    movlw   b'00001100'         ; Set GP2=AN2 ,,  GP3 to an input  GP0,GP1,GP4,GP5=O/P.

    TRIS    GPIO                 ; Register 06h

;            ---------------------------[Sub routine]-----------------------------------

dly_25us

    movlw    d'8'        ;            

    movwf    count        ;

keep    

    decfsz    count,f        ;

    goto    keep        ;

    retlw    0        ;

dly_1s

    movlw    d'255'        ;            

    movwf    count1        ;

loop

    movlw    d'255'            ;

    movwf    count2            ;

loop_1    

    

    goto    $+1                ;

    goto    $+1                ;

    goto    $+1                ;

    goto    $+1                ;

    goto    $+1                ;

    goto    $+1                ;    

    decfsz    count2,f        ;

    goto    loop_1            ;

    decfsz    count1,f        ;

    goto    loop            ;

    retlw    0



;-----[Main routine]------------------ 

init

    bcf    GPIO,0        ;

    bcf    GPIO,1        ;

    bcf    GPIO,4        ;

    bcf    GPIO,5        ;

    call     dly_1s        ;

    movlw    b'01111001'    ; GP2 to an A/D input , ADC  ON

    movwf    ADCON0        ;

    call    dly_25us        ; Wait for AN2 to set up .

    bsf    ADCON0, GO    ; start A/D conversion for GP2/AN2.

    call     dly_25us        ; Wait for coversion .

wait

    btfsc    ADCON0,GO    ; Conversion complete yet? GO=0= Done.

    goto    wait        ; No,

    movf    ADRESH,W    ; Read A/D result into W.

    movwf    count3        ; Move W into count1 register

    movlw     b'11001100'    ; 4V=204=11001100.

    subwf    count3,w        ; RESULT - 4V.

    btfsc    STATUS,C    ; If C=0  then RESULT< 4V 

    goto    LED1        ; If C=1 then RESULT > 4V,.

    movlw     b'10011001'    ; 3V=153=10011001.

    subwf    count3,w        ; RESULT - 3V.

    btfsc    STATUS,C    ; If C=0  then RESULT< 3V. 

    goto    LED2        ; If C=1 then RESULT > 3V,

    movlw     b'01100110'    ; 2V=102=01100110.

    subwf    count3,w        ; RESULT -2V.

    btfsc    STATUS,C    ;  If C=0  then RESULT< 2V.

    goto    LED3        ; If C=1 then RESULT > 2V,

    movlw     b'00110011'    ; 1V=51=00110011.

    subwf    count3,w        ; RESULT - 1V.

    btfsc    STATUS,C    ;  If C=0  then RESULT< 1V.

    goto    LED4        ; If C=1 then RESULT > 1V,

    goto    LED5        ;

LED1

    bsf    GPIO,0        ; Turn LED on.

    call    dly_1s        ;

    call    dly_1s        ;

    goto    init        ;

LED2

    bsf    GPIO,1        ; Turn LED on.

    call    dly_1s        ;

    call    dly_1s        ;

    goto    init        ;

LED3

    bsf    GPIO,4        ; Turn LED on.

    call    dly_1s        ;

    call    dly_1s        ;

    goto    init        ;

LED4

    bsf    GPIO,5        ; Turn LED on.

    call    dly_1s        ;

    call    dly_1s        ;

    goto    init        ;

LED5

    bsf    GPIO,5        ; Turn LED on.

    call    dly_1s        ;

    bcf    GPIO,5        ; Turn LED on.

    call    dly_1s        ;

    bsf    GPIO,5        ; Turn LED on.

    call    dly_1s        ;

    goto    init        ;

    end