[JAL] op weg helpen?

Helaas door ziekte heb meer tijd gekregen om mijn project.
Heb temperatuur meting gmaakt voor 1 sensor,(werkt goed) en wil dit uitbreiden met nog 2 sensoren.
Adressen van sensoren zijn bekend en jal lib is aangepast.
Wil er iemand aan de hand van een voorbeeld mij op weg helpen.
Voor zo ver ik het allemaal begrijp moet onder de regel lees temperatuur van sensor de adressen van ds1822 gedefineerd worden.(weet alleen hoe)

-- augustus 2014

include 16F877_bert
include 1_wire
include ds1822_1_wire

-- declareer de variabelen
const byte mystr0[]="DS1822. Temperatuurmeting augustus 2014"
const byte mystr1[]="Y$ Temperatuur:1:"
const byte mystr2[]="Y& Temperatuur:2:"
const byte mystr3[]="Y? Temperatuur:3:"

-- led indicatie
var bit led is pin_d7
pin_d7_direction = output

-- lees ID van Ds1822
read_ID
delay_100ms(1)
forever loop

-- drukkopregel af -- is de tekst "ds1822. temperatuurmeting augustus 2014"
serial_sw_write(27)
serial_sw_write("H")
serial_sw_printf(mystr0)

-- toon het op het vt52 terminal
serial_sw_write(27)
serial_sw_printf(mystr1) -- temperatuur:1
serial_sw_write(27)
serial_sw_printf(mystr2) -- temperatuur:2
serial_sw_write(27)
serial_sw_printf(mystr3) -- temperatuur:3

-- knipper de led zodat we weten dat programma werkt
led = on
delay_100ms(1)
led = off
delay_100ms(1)

-- voor alle sensoren
DS1822_start_temperature_conversion

-- lees temperatuur van sensor
MatchRom
Send_ID
d1w_write_byte(0xBE)
d1w_read_byte_with_CRC(9)

-- toon resultaat
if GOOD_crc == 0 then

-- converteer naar temperatuur
temp = (word(d1)+(256*word(d2)))/16
if temp > 2047 then
serial_sw_write ("-")
temp = ! temp
temp = temp & 0b0000111111111111
temp = temp + 1
end if
format_byte_dec (serial_sw_data,temp,5,0)
serial_sw_write (" ")
serial_sw_write ("C")
else

-- oeps,CRC is niet correct
serial_sw_write("C")
serial_sw_write("R")
serial_sw_write("C")
serial_sw_write(" ")
serial_sw_write("e")
serial_sw_write("r")
serial_sw_write("r")
serial_sw_write("o")
serial_sw_write("r")
end if

-- naar het begin van de volgende regel(windows stijl)
serial_sw_write(13)
delay_1s(1)
end loop