Hello to everyone!
I attempt to read temperature from a DS1621. The program is really simple, but I have a short experience programming and it doesn't work. I hope you can help me. Here is my code:
I only want to show in an LCD the data from the DS1621Code:@__CONFIG _CONFIG1L, _PLLDIV_5_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L @__CONFIG _CONFIG1H, _FOSC_HSPLL_HS_1H & _FCMEN_OFF_1H & _IESO_OFF_1H @__CONFIG _CONFIG2L, _PWRT_OFF_2L & _BOR_ON_2L & _BORV_3_2L & _VREGEN_ON_2L @__CONFIG _CONFIG2H, _WDT_ON_2H & _WDTPS_512_2H @__CONFIG _CONFIG3H, _CCP2MX_ON_3H & _PBADEN_OFF_3H & _LPT1OSC_OFF_3H & _MCLRE_OFF_3H @__CONFIG _CONFIG4L, _STVREN_ON_4L & _LVP_OFF_4L & _XINST_OFF_4L 'LCD DEFINE LCD_DREG PORTB DEFINE LCD_DBIT 4 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 1 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 2 'I2C CMCON = 7 ADCON1 = 7 SCL VAR PORTA.0 SDA VAR PORTA.1 WO var WORD T1 var WO.byte0 T2 var WO.byte1 main: i2cwrite SDA,SCL,%10010000 Pause 10 i2cwrite SDA,SCL,$90,$AC,[0] Pause 10 i2cwrite SDA,SCL,$90,$EE Pause 50 i2cwrite SDA,SCL,$90,$AA pause 10 i2cread SDA,SCL,$91,[T1,T2] pause 10 LCDout $FE,1 LCDout $FE,1, #WO goto main
Thank you!




Bookmarks