12F675温度显示程序_PIC单片机

12F675温度显示程序

点击数：7946 次录入时间：03-04 12:00:56 整理：http://www.55dianzi.com PIC单片机

    return

;--------------------------------------------
;  LCD Subroutines
Message
    addwf    PCL,f
    dt    "Hello DS1620",0

SndMsg    clrf    FSR
OutLoop
    MOVf    FSR,w
    incf    FSR,f
    call    Message
    iorlw    0
    btfsc    STATUS,Z
    goto    RtnSnd
    call    SendCHAR
    goto    OutLoop
RtnSnd    return

InitLCD
    call    Dlay5
    call    Dlay5
    call    Dlay5
    call    Dlay5

    bcf    STATUS,C
    MOVlw    0x03
    call    NybbleOut

    call    Dlay5
    EStrobe
    call    Dlay160
    EStrobe
    call    Dlay160

    bcf    STATUS, C
    MOVlw    0x02
    call    NybbleOut
    call    Dlay160

    MOVlw    0x028
    call    SendINS

    MOVlw    0x008
    call    SendINS

    MOVlw    0x001
    call    SendINS
    call    Dlay5

    MOVlw    0x006
    call    SendINS

    MOVlw    0x00F
    call    SendINS

    return

SendDEC
    MOVwf    TempBIN
    bcf    pt5,0
    btfsc    TempBIN,0
    bsf    pt5,0
    rrf    TempBIN,f
    clrf    Tens
    MOVlw    0x0A
count10    subwf    TempBIN,f
    btfss    STATUS,C
    goto    SDEC1
    incf    Tens,f
    goto    count10
SDEC1    addwf    TempBIN,w
    MOVwf    Units
    MOVfw    Tens
    addlw    a’0’
    call    SendCHAR
    MOVfw    Units
    addlw    a’0’
    call    SendCHAR
    btfss    pt5,0
    goto    DEGC
    MOVlw    a’.’
    call    SendCHAR
    MOVlw    a’5’
    call    SendCHAR
DEGC    MOVlw    a’ ’
    call    SendCHAR
    MOVlw    a’D’
    call    SendCHAR
    MOVlw    a’e’
    call    SendCHAR
    MOVlw    a’g’
    call    SendCHAR
    MOVlw    a’C’
    call    SendCHAR
    MOVlw    a’ ’
    call    SendCHAR
    MOVlw    a’ ’
    call    SendCHAR
    return

SendBIN
    MOVwf    TempBIN        ;  存温度值

    MOVlw    a’1’
    btfss    TempBIN,7
    MOVlw    a’0’
    call    SendCHAR

    MOVlw    a’1’
    btfss    TempBIN,6
    MOVlw    a’0’

上一页 [1] [2] [3] [4] 下一页