cwfpicl4.asm

用于PIC的AD转换和用HD7279A的显示（公阴极的8段数码管）

;程序1完成A/D转换及同步串行发送(SPI)方式
        LIST  P=16F874,  R=DEC;
        INCLUDE  "C:\Program Files\MPLAB IDE\MCHIP_Tools\P16F874.INC";
W_TEMP         EQU       0X20;
STATUS_TEMP    EQU       0X21;
AD_STATUSL     EQU       0X22;
        ORG   0X00;
        NOP;
        GOTO    MAINLINE;     
MAINLINE
        CALL      INITIAL;
MAINLOOP
        CALL      AD_CONVERT;
        CALL      SPI_OUT;
            
        GOTO      MAINLOOP;
INITIAL       
        BANKSEL   TRISC
        MOVLW     0X10
        MOVWF     TRISC
        BSF       SSPSTAT,   7
        BSF       SSPSTAT,   6
        BANKSEL   SSPCON
        CLRF      SSPBUF
        MOVLW     0X30
        MOVWF     SSPCON
              
        BANKSEL   AD_STATUSL
        CLRF      AD_STATUSL       
        BANKSEL   ADCON1
        MOVLW     B'00001110'
        MOVWF     ADCON1
        BANKSEL   TRISA
        BSF       TRISA,  0
        BANKSEL   ADCON0
        MOVLW     B'10000001'
        MOVWF     ADCON0        
        RETURN
AD_CONVERT        
        BANKSEL   ADCON0
        BSF       ADCON0,  GO
WAIT
        BTFSC     ADCON0, GO
        GOTO      WAIT
        BANKSEL   ADRESH
        MOVF      ADRESH, W
        BANKSEL   AD_STATUSL
        MOVWF     AD_STATUSL       
        RETURN
SPI_OUT
        BANKSEL   PIR1
        BCF       PIR1, SSPIF       
        BANKSEL   AD_STATUSL
        MOVF      AD_STATUSL, W
        MOVWF     SSPBUF
WAIT_TX1
        BTFSS     PIR1,SSPIF
        GOTO      WAIT_TX1
        RETURN

        END