Aqui te pongo el codigo completo ,sin alteraciones, solo quite(en forma de comentario) lo que se supone no necesitas.
-------------------------------------------------------------------------------------------------------------
"****************************************************************
"* Name : SLED_1307.BAS *
"* Author : Bruce Reynolds *
"* Notice : Copyright (c) 2004 Reynolds Electronics *
"* : All Rights Reserved *
"* Date : 7/02/2004 *
"* Version : 1.0 Digital Clock w/ Time & Temp *
"* Notes : Test code for the SLED4C 4-digit serial *
"* : LED/clock display module, DS1620 & DS1307 RTC *
"****************************************************************
" PIC16F876A @ 20MHz w/boot-loader
DEFINE OSC 20
"DEFINE LOADER_USED 1 " Comment out if not using boot-loader
"INCLUDE "modedefs.bas"<<<<<<<<<<<<<<YA QUE NO VAS AUSAR SHIFS
" Note: use 10K pull-up resistors on both SDA and SCL i2C lines
" DS1307 control pins
" DEFINICIONES DE LOS REGISTROS DEL LCD<<<<<<<<<<<<<<AJUSTALOS A TU CONFIG
"DEFINE LCD_DREG PORTD "<<<<PORTD.4,5,6,7 A D4,D5,D6,D7 DEL LCD
"DEFINE LCD_DBIT 4
"DEFINE LCD_RSREG PORTE "<<<<PORTE.0 A RS DEL LCD
"DEFINE LCD_RSBIT 0
"DEFINE LCD_EREG PORTE "<<<<PORTE.1 A E DEL LCD
"DEFINE LCD_EBIT 1
"DEFINE LCD_BITS 4 "<<<<BUS A 4 BITS
"DEFINE LCD_LINES 2 "<<<< LCD DE 2 LINEAS??
SDA VAR PORTB.0 " DS1307 SDA pin #5
SCL VAR PORTB.1 " DS1307 SCL pin #6
" DS1620 control pins
DQ VAR PORTB.2 " DS1620 DQ pin #1
CLK0 VAR PORTB.3 " DS1620 CLK pin #2
RST VAR PORTB.4 " DS1620 RST pin #3
" SLED4C display control pins
"EN VAR PORTB.5 " SLED enable pin #5
"CLK VAR PORTB.6 " SLED clock pin #4
"DOUT VAR PORTB.7 " SLED data pin #3
" Variables
X VAR WORD " GP var
Y VAR BYTE " GP var
"CFG VAR BYTE " Holds display bank & digit config value
Temp VAR WORD " 1620 temperature result register
DB0 VAR BYTE[8] " Data byte array
" Port configuration
TRISB = 0
TRISA = 0
CMCON = %00000111 " Comparators = off
PAUSE 1000 " Allow power to stabilize on power-up
" 24-hour clock routine for the DS1307 RTC w/SLED4C clock display
Main:
GOSUB Write_1307 " Write time & date on entry
Read_1307:
"CFG = %11000011 " Banks 5,4,3,2 HEX decode, bank 1 (colon) special decode
"GOSUB Config " Configure display
I2CREAD SDA,SCL,$D0,$00,[STR DB08] " Read 8 bytes from DS1307
"EN = 0 " Enable data input
"*********** AQUI TU ESCRITURA A LCD!!!!!!!!!!!!!!!!>>>>>>>>>>>>>
"*********** Lcdout $fe,1,STR DB08 "CLS Y ENVIA!!!!>>>>>>>>>>>>>
" Read time Secs,Mins,Hours,Day,Date,Month,Year,Control
" DIM 5/4 3/2 :=ON
"SHIFTOUT DOUT,CLK,MSBFIRST,[%00004, DB0[2], DB0[1], $84]
"EN = 1 " Transfer data into display registers
PAUSE 2000 " Display time for 2 seconds
"GOSUB Read_1620 " Read & display Temp<<<<<<<<<<<<<<<<<<<TEMPERATURA DESHABILITADA
GOTO Read_1307 " Read & display Time
Write_1307:
" Set time & date to 15:30:00 Tuesday 6th of July 2004
I2CWRITE SDA,SCL,$D0,$00,[$00,$30,$15,$02,$06,$07,$04,$90] " Write to DS1307
RETURN " Sec Min Hr Day D M Y Control
"Read_1620:
" RST = 1
" SHIFTOUT DQ,CLK0,LSBFIRST,[$0C,$02] " Continuous convert, CPU mode
" RST = 0
" PAUSE 10 " Minimum wait time after write
" RST = 1 " Enable 1620
" SHIFTOUT DQ, CLK0, LSBFIRST, [$EE] " Send start temp convert command
" RST = 0 " Disable 1620
" PAUSE 1000 " Wait for conversion to complete
" RST = 1 " Enable 1620
" SHIFTOUT DQ, CLK0, LSBFIRST, [$AA] " Send read temp command
" SHIFTIN DQ, CLK0, LSBPRE, [Temp9] " Read 9 bit temperature
" RST = 0 " Disable 1620
" Temp = Temp/2 " Scale reading to whole degrees C.
" Temp = (Temp */ $01CC) " Multiply by 1.8.
" Temp = Temp + 32 " Complete C to F conversion.
" IF Temp > 99 THEN Ouch " Is Temp > 99 deg F..?
" HSEROUT [DEC Temp DIG 1,".",DEC Temp DIG 0,13,10]
" Temp = (Temp DIG 1*16)+Temp DIG 0 " No. Convert to BCD
" Configure display
" CFG = %11001011 " 5,4,2 HEX decode. 3,1 special decode
" GOSUB Config " Write config value to display
" Display temp in deg F
" EN = 0 " Enable data input 5/4 deg F :=OFF
" SHIFTOUT DOUT, CLK, MSBFIRST, [%00004, Temp, $F4, $F4, $04]
" EN = 1 " Transfer data into display registers
" PAUSE 2000 " Display Temp for 2 seconds
" RETURN
"Ouch:
" CFG = %11010111 " 5,3 hex decode. 4,2,1 special decode, display ON
" GOSUB Config " Write config value to display
"
" " Write OUCH to the display when the temperature is > 99 deg F
" Y = %00001000 " Set bit 3 for toggling display brightness
" FOR X = 0 TO 4 " This loop causes OUCH to blink
" EN = 0 " Enable data input
" Y.0[3] = Y.0[3] ^ 1" Toggle Y.bit.3 by XOR-ing with 1 [ 0=DIM, 1=BRIGHT ]
" " 5=O 4=U 3=C 2=H :=OFF
" SHIFTOUT DOUT, CLK, MSBFIRST, [Y4, $04, $A4, $C4, $24, $04]
" " ^--- bit 3 of 4-bit value toggles brightness
" EN = 1 " Transfer data into display registers
" PAUSE 200 " Set display blink rate here
" NEXT X " Close the loop
" GOTO Read_1307 " Start over
"Config: " This routine writes the config byte to the display
"EN = 0 " Enable data input
"SHIFTOUT DOUT, CLK, MSBFIRST, [CFG] " Write config data to display
"EN = 1 " Transfer data into display register
"RETURN
END
---------------------------------------------------------------------------------------------------------
Pruebalo y me dices, ojo que no removi absolutamente nada ,solo agrege en calidad de comentario lo que se supone debes agregar para usar el lcd(tienes que configurarlo a tus necesidades) asi como donde debe de imprimir.
Salu2 pana