LCD显示的温度表的设计.docxVIP

Temperature Display6 618 27TLC555 3645 RA3RAORA4OSC1 MCLR°SC2VssVdd RBORB7RB1RB6 RB2RB5PIC16F84 RB3RB4 o 1 EDD ooo6 D LCD display of TemperatureTHERM.ASM Shows Temperature from Thermistor on LCD LIST P=16F84;16F84 Runs at 4 MHz LIST P=16F84 ;16F84 Runs at 4 MHz INCLUDE Hpl6f84.incnCONFIG PWRTE ON LP OSC WDT OFF ; uses 32.768 kHz crystal ERRORLEVEL -224; supress annoying message because of trisERRORLEVEL -302; supress message because of page change ;Define Information#DEFTNE RS PORTA, 0#DEFINE E PORTA, 1;Macro;RAO is RS line of LCD;RAI is E line of LCD;RB0-RB3 are D4-D7 of LCDEStrobe MACRO ;Define Information #DEFTNE RS PORTA, 0 #DEFINE E PORTA, 1 ;Macro ;RAO is RS line of LCD ;RAI is E line of LCD ;RB0-RB3 are D4-D7 of LCD bsf E bcf E ENDM CBLOCKOCH Temp ;a temporary variable count ;counter bin ;binary number to be converted to BCD hundreds ;BCD hundreds result tens_and_ones ;BCD tens and ones result savetmrO ;used to save value of tmrO dispvalue ;used to hold temperature to be displayed tableindex ;points to table value to display ENDCORG 0; start at location 0 goto main; jump over to main routineData for message to be output ; Message to Output; Output the Characters ; Message to Output ; Output the Characters addwf PCL, f mO dtnTMR0 Value:H,0 ml dtTemperature11,0Ratios of Prescaler preratio: addwf PCL, f; select offset using Wdt D2,D4,D8,D16,D32,DD4,D128 Initialize the ports Init: clrf PORTAclrf PORTB movlw B WO 10000, tris PORTAmovlw BOO 110000 tris PORTBmovlw BOO 100011, optionreturn ;RA4 input, others outputs;RB4, RB5 input, others outputs ;pull-ups enabled ;prescaler assigned to RA4 ;prescaler set to 1:16 initlcd:movlw D40 call nmsec bcf RS movlw 0x03 call NybbleOut call Dlay5 EStrobe nop nop EStrobe initlcd: movlw D40 call nmsec bcf RS movlw 0x03 call NybbleOut call Dlay5 EStrobe nop nop EStrobe nop nop bcf RS movlw 0x02 call NybbleOut ; Wait 40 msecs before Reset; send an 8 bit instruction ;Reset Command;Send the Nybble ; Wait 5 msecs before Sending Agai