ad.asm

用伟福6000写的ad采样程序

;****************************************************************************
; Function: AD1_MODULE
; 电流采样
;****************************************************************************

D200_R1          EQU     50H            ;延时寄存器
AD_ADRESS        EQU     52H

        ORG     0000H
        GOTO    START



START:
;--------------------I/O口初始化--------------------

        BSF      STATUS,RP0
        MOVLW    00001111B
        MOVWF    TRISA

        BCF      STATUS,RP0
        BSF      PORTA,5

        BSF      STATUS,RP0
        MOVLW    00000100B              ;通道设定
        MOVWF    ADCON1
        BCF      STATUS,RP0
        MOVLW    10000000B              ;选取1通道,暂不启动转换过程
        MOVWF    ADCON0

        CALL     D200MS                 ;采样保持

        BSF      ADCON0,0
        BSF      ADCON0,2
WAIT:   BTFSS    PIR1,ADIF
        GOTO     WAIT
        BCF      PIR1,ADIF
        MOVF     ADRES,0
        MOVWF    AD_ADRESS
        BCF      ADCON0,0

        GOTO     $


;------------------------延时-----------------------
D200MS:      MOVLW   0FFH
             MOVWF   D200_R1              ;外层寄存器
D200MS_LP0:  DECFSZ  D200_R1
             GOTO    D200MS_LP0
             RETLW   0