Gracias ANDIPIC; dejo tu código adaptado para la placa PicEBasic.
'**********************************************************************************
'Programa de ejemplo para la lectura de temperatura mediante el sensor DS18B20
'Placa PicEBasic, 12/2013
'Basic Pic Simulator IDE (PSI), v6.96_02, Pic16F88
'**********************************************************************************
'----------------------------------------------------------------------------------
Define CONF_WORD = 0x2f50
Define CONF_WORD_2 = 0x3ffc
Define CLOCK_FREQUENCY = 8 'Oscilador a 8Mhz
'Define SIMULATION_WAITMS_VALUE = 1 'Activar para simulación
'-----------------------------------------
Call _setupebasic() 'Inicializa la placa entrenadora PicEBasic.
Hseropen 38400 'Inicializa puerto RS232 por hardware a 38400Baudios
Lcdinit 'Inicializa el LCD sin cursor
WaitMs 100 'Pausa de 100 mSeg.
Lcdout "Test T. DS18B20" 'Imprime el texto en el LCD
WaitMs 1000 'Pausa de 1 Seg.
'-----------------------------------------
void_main: '{
Define 1WIRE_REG = PORTA
Define 1WIRE_BIT = 4
Dim finish As Bit
Dim temp As Word
Dim tempf As Byte
Dim tempd As Byte
Dim main As Bit
Const ascii_grados = 0xf8 'Codigo ASCII que corresponde al simbolo de grados
Symbol signo = temp.11
While main = main '{
tempf = 0
tempd = 0
finish = 0
1wireInit
1wireSendByte 0xcc, 0x44 'salteamos rom y le decimos que vamos a escribir en la Scratchpad [4Eh]
WaitMs 1
While finish = 0
1wireGetBit finish
Wend
1wireInit
1wireSendByte 0xcc, 0xbe
1wireGetByte temp.LB, temp.HB
If temp.0 = 1 Then tempd = tempd + 625 / 100
If temp.1 = 1 Then tempd = tempd + 125 / 10
If temp.2 = 1 Then tempd = tempd + 250 / 10
If temp.3 = 1 Then tempd = tempd + 500 / 10
If temp.4 = 1 Then tempf = tempf + 1
If temp.5 = 1 Then tempf = tempf + 2
If temp.6 = 1 Then tempf = tempf + 4
If temp.7 = 1 Then tempf = tempf + 8
If temp.8 = 1 Then tempf = tempf + 16
If temp.9 = 1 Then tempf = tempf + 32
If temp.10 = 1 Then tempf = tempf + 64
Hserout "Temperatura = "
If signo = 1 Then
Hserout "-"
tempf = 128 - tempf
tempd = 100 - tempd
If tempd = 100 Then tempd = 0
Else
Hserout "+ "
Endif
Hserout #tempf, ","
If tempd < 10 Then Hserout "0"
Hserout #tempd, " ", ascii_grados, "C", CrLf, Lf
WaitMs 1000
Wend '}
End '}
'Bibliotecas usadas:
Include "_ProcSetUpEBasic.bas"